X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/521daa8271ac2778d8b2944be25daae65d3540a1..0b91a7979cb7b0abe7988e5bb9ba81db3233327c:/src/surf/surfxml_parse.c diff --git a/src/surf/surfxml_parse.c b/src/surf/surfxml_parse.c index 01d41de6a3..e77e8edb95 100644 --- a/src/surf/surfxml_parse.c +++ b/src/surf/surfxml_parse.c @@ -10,12 +10,17 @@ #include "xbt/dict.h" #include "surf/surfxml_parse_private.h" #include "surf/surf_private.h" +#include "surf/surfxml_parse_values.h" XBT_LOG_NEW_DEFAULT_SUBCATEGORY(surf_parse, surf, "Logging specific to the SURF parsing module"); #undef CLEANUP +int ETag_surfxml_include_state(void); + #include "simgrid_dtd.c" +char *platform_filename; + /* Initialize the parsing globals */ xbt_dict_t traces_set_list = NULL; xbt_dict_t trace_connect_list_host_avail = NULL; @@ -120,69 +125,43 @@ static xbt_dynar_t surf_file_to_parse_stack = NULL; void STag_surfxml_include(void) { XBT_INFO("STag_surfxml_include '%s'",A_surfxml_include_file); - xbt_dynar_push(surf_file_to_parse_stack, &surf_file_to_parse); + xbt_dynar_push(surf_file_to_parse_stack, &surf_file_to_parse); //save old filename - surf_file_to_parse = surf_fopen(A_surfxml_include_file, "r"); + surf_file_to_parse = surf_fopen(A_surfxml_include_file, "r"); // read new filename xbt_assert((surf_file_to_parse), "Unable to open \"%s\"\n", A_surfxml_include_file); + xbt_dynar_push(surf_input_buffer_stack,&surf_input_buffer); surf_input_buffer = surf_parse__create_buffer(surf_file_to_parse, YY_BUF_SIZE); surf_parse_push_buffer_state(surf_input_buffer); fflush(NULL); } void ETag_surfxml_include(void) +{ +// XBT_INFO("ETag_surfxml_include '%s'",A_surfxml_include_file); +// fflush(NULL); +// fclose(surf_file_to_parse); +// xbt_dynar_pop(surf_file_to_parse_stack, &surf_file_to_parse); // restore old filename +// surf_parse_pop_buffer_state(); +// xbt_dynar_pop(surf_input_buffer_stack,&surf_input_buffer); +} + +/* + * Return 1 if tag include is opened + */ +int ETag_surfxml_include_state(void) { fflush(NULL); + XBT_INFO("ETag_surfxml_include_state '%s'",A_surfxml_include_file); + if(xbt_dynar_length(surf_input_buffer_stack)!= 0) + return 1; fclose(surf_file_to_parse); xbt_dynar_pop(surf_file_to_parse_stack, &surf_file_to_parse); surf_parse_pop_buffer_state(); - XBT_INFO("ETag_surfxml_include '%s'",A_surfxml_include_file); + xbt_dynar_pop(surf_input_buffer_stack,surf_input_buffer); + return 0; } -/* - * This function return 0 or 1 if callbacks are empty or not. - */ -int surf_parse_no_callbacks(void) -{ - return xbt_dynar_is_empty(STag_surfxml_platform_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_platform_cb_list) && - xbt_dynar_is_empty(STag_surfxml_host_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_host_cb_list) && - xbt_dynar_is_empty(STag_surfxml_router_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_router_cb_list) && - xbt_dynar_is_empty(STag_surfxml_link_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_link_cb_list) && - xbt_dynar_is_empty(STag_surfxml_route_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_route_cb_list) && - xbt_dynar_is_empty(STag_surfxml_link_ctn_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_link_ctn_cb_list) && - xbt_dynar_is_empty(STag_surfxml_process_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_process_cb_list) && - xbt_dynar_is_empty(STag_surfxml_argument_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_argument_cb_list) && - xbt_dynar_is_empty(STag_surfxml_prop_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_prop_cb_list) && - xbt_dynar_is_empty(STag_surfxml_trace_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_trace_cb_list) && - xbt_dynar_is_empty(STag_surfxml_trace_connect_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_trace_connect_cb_list) && - xbt_dynar_is_empty(STag_surfxml_random_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_random_cb_list) && - xbt_dynar_is_empty(STag_surfxml_AS_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_AS_cb_list) && - xbt_dynar_is_empty(STag_surfxml_ASroute_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_ASroute_cb_list) && - xbt_dynar_is_empty(STag_surfxml_bypassRoute_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_bypassRoute_cb_list) && - xbt_dynar_is_empty(STag_surfxml_cluster_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_cluster_cb_list) && - xbt_dynar_is_empty(STag_surfxml_peer_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_peer_cb_list) && - xbt_dynar_is_empty(STag_surfxml_config_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_config_cb_list) && - xbt_dynar_is_empty(STag_surfxml_include_cb_list) && - xbt_dynar_is_empty(ETag_surfxml_include_cb_list); -} void surf_parse_init_callbacks(void) { @@ -328,44 +307,195 @@ void STag_surfxml_platform(void) } +void STag_surfxml_host(void){ + + s_host.V_host_id = xbt_strdup(A_surfxml_host_id); + s_host.V_host_power_peak = get_cpu_power(A_surfxml_host_power); + surf_parse_get_double(&(s_host.V_host_power_scale), A_surfxml_host_availability); + surf_parse_get_int(&(s_host.V_host_core),A_surfxml_host_core); + s_host.V_host_power_trace = tmgr_trace_new(A_surfxml_host_availability_file); + s_host.V_host_state_trace = tmgr_trace_new(A_surfxml_host_state_file); + xbt_assert((A_surfxml_host_state == A_surfxml_host_state_ON) || + (A_surfxml_host_state == A_surfxml_host_state_OFF), "Invalid state"); + if (A_surfxml_host_state == A_surfxml_host_state_ON) + s_host.V_host_state_initial = SURF_RESOURCE_ON; + if (A_surfxml_host_state == A_surfxml_host_state_OFF) + s_host.V_host_state_initial = SURF_RESOURCE_OFF; + s_host.V_host_coord = xbt_strdup(A_surfxml_host_coordinates); + + surfxml_call_cb_functions(STag_surfxml_host_cb_list); +} +void ETag_surfxml_host(void){ + xbt_free(s_host.V_host_id); + s_host.V_host_power_peak = 0.0; + s_host.V_host_core = 0; + s_host.V_host_power_scale = 0.0; + tmgr_trace_free(s_host.V_host_power_trace); + s_host.V_host_state_initial = SURF_RESOURCE_ON; + tmgr_trace_free(s_host.V_host_state_trace); + xbt_free(s_host.V_host_coord); + + surfxml_call_cb_functions(ETag_surfxml_host_cb_list); +} + +void STag_surfxml_router(void){ + + s_router.V_router_id = xbt_strdup(A_surfxml_router_id); + s_router.V_router_coord = xbt_strdup(A_surfxml_router_coordinates); + + surfxml_call_cb_functions(STag_surfxml_router_cb_list); +} +void ETag_surfxml_router(void){ + xbt_free(s_router.V_router_id); + xbt_free(s_router.V_router_coord); + + surfxml_call_cb_functions(ETag_surfxml_router_cb_list); +} + +void STag_surfxml_cluster(void){ + + s_cluster.V_cluster_id = xbt_strdup(A_surfxml_cluster_id); + s_cluster.V_cluster_prefix = xbt_strdup(A_surfxml_cluster_prefix); + s_cluster.V_cluster_suffix = xbt_strdup(A_surfxml_cluster_suffix); + s_cluster.V_cluster_radical = xbt_strdup(A_surfxml_cluster_radical); + surf_parse_get_double(&(s_cluster.V_cluster_power), A_surfxml_cluster_power); + surf_parse_get_int(&(s_cluster.V_cluster_core), A_surfxml_cluster_core); + surf_parse_get_double(&(s_cluster.V_cluster_bw), A_surfxml_cluster_bw); + surf_parse_get_double(&(s_cluster.V_cluster_lat), A_surfxml_cluster_lat); + surf_parse_get_double(&(s_cluster.V_cluster_bb_bw), A_surfxml_cluster_bb_bw); + surf_parse_get_double(&(s_cluster.V_cluster_bb_lat), A_surfxml_cluster_bb_lat); + s_cluster.V_cluster_router_id = xbt_strdup(A_surfxml_cluster_router_id); + s_cluster.V_cluster_sharing_policy = AX_surfxml_cluster_sharing_policy; + s_cluster.V_cluster_bb_sharing_policy = AX_surfxml_cluster_bb_sharing_policy; + + surfxml_call_cb_functions(STag_surfxml_cluster_cb_list); +} +void ETag_surfxml_cluster(void){ + xbt_free(s_cluster.V_cluster_id); + xbt_free(s_cluster.V_cluster_prefix); + xbt_free(s_cluster.V_cluster_suffix); + xbt_free(s_cluster.V_cluster_radical); + s_cluster.V_cluster_power = 0; + s_cluster.V_cluster_core = 0; + s_cluster.V_cluster_bw = 0; + s_cluster.V_cluster_lat = 0; + s_cluster.V_cluster_bb_bw = 0; + s_cluster.V_cluster_bb_lat = 0; + xbt_free(s_cluster.V_cluster_router_id); + s_cluster.V_cluster_sharing_policy = 0; + s_cluster.V_cluster_bb_sharing_policy = 0; + + surfxml_call_cb_functions(ETag_surfxml_cluster_cb_list); +} + +void STag_surfxml_peer(void){ + + s_peer.V_peer_id = xbt_strdup(A_surfxml_peer_id); + surf_parse_get_double(&(s_peer.V_peer_power), A_surfxml_peer_power); + surf_parse_get_double(&(s_peer.V_peer_bw_in), A_surfxml_peer_bw_in); + surf_parse_get_double(&(s_peer.V_peer_bw_out), A_surfxml_peer_bw_out); + surf_parse_get_double(&(s_peer.V_peer_lat), A_surfxml_peer_lat); + s_peer.V_peer_coord = xbt_strdup(A_surfxml_peer_coordinates); + s_peer.V_peer_availability_trace = tmgr_trace_new(A_surfxml_peer_availability_file); + s_peer.V_peer_state_trace = tmgr_trace_new(A_surfxml_peer_state_file); + + surfxml_call_cb_functions(STag_surfxml_peer_cb_list); +} +void ETag_surfxml_peer(void){ + xbt_free(s_peer.V_peer_id); + s_peer.V_peer_power = 0; + s_peer.V_peer_bw_in = 0; + s_peer.V_peer_bw_out = 0; + s_peer.V_peer_lat = 0; + xbt_free(s_peer.V_peer_coord); + tmgr_trace_free(s_peer.V_peer_availability_trace); + tmgr_trace_free(s_peer.V_peer_state_trace); + + surfxml_call_cb_functions(ETag_surfxml_peer_cb_list); +} +void STag_surfxml_link(void){ + + s_link.V_link_id = xbt_strdup(A_surfxml_link_id); + surf_parse_get_double(&(s_link.V_link_bandwidth),A_surfxml_link_bandwidth); + s_link.V_link_bandwidth_file = tmgr_trace_new(A_surfxml_link_bandwidth_file); + surf_parse_get_double(&(s_link.V_link_latency),A_surfxml_link_latency); + s_link.V_link_latency_file = tmgr_trace_new(A_surfxml_link_latency_file); + xbt_assert((A_surfxml_link_state == A_surfxml_link_state_ON) || + (A_surfxml_link_state == A_surfxml_link_state_OFF), "Invalid state"); + if (A_surfxml_link_state == A_surfxml_link_state_ON) + s_link.V_link_state = SURF_RESOURCE_ON; + if (A_surfxml_link_state == A_surfxml_link_state_OFF) + s_link.V_link_state = SURF_RESOURCE_OFF; + s_link.V_link_state_file = tmgr_trace_new(A_surfxml_link_state_file); + s_link.V_link_sharing_policy = A_surfxml_link_sharing_policy; + + surfxml_call_cb_functions(STag_surfxml_link_cb_list); +} +void ETag_surfxml_link(void){ + xbt_free(s_link.V_link_id); + s_link.V_link_bandwidth = 0; + tmgr_trace_free(s_link.V_link_bandwidth_file); + s_link.V_link_latency = 0; + tmgr_trace_free(s_link.V_link_latency_file); + s_link.V_link_state = SURF_RESOURCE_ON; + tmgr_trace_free(s_link.V_link_state_file); + s_link.V_link_sharing_policy = 0; + + surfxml_call_cb_functions(ETag_surfxml_link_cb_list); +} + +void STag_surfxml_route(void){ + surfxml_call_cb_functions(STag_surfxml_route_cb_list); +} +void STag_surfxml_link_ctn(void){ + surfxml_call_cb_functions(STag_surfxml_link_ctn_cb_list); +} +void STag_surfxml_process(void){ + surfxml_call_cb_functions(STag_surfxml_process_cb_list); +} +void STag_surfxml_argument(void){ + surfxml_call_cb_functions(STag_surfxml_argument_cb_list); +} +void STag_surfxml_prop(void){ + surfxml_call_cb_functions(STag_surfxml_prop_cb_list); +} +void STag_surfxml_trace(void){ + surfxml_call_cb_functions(STag_surfxml_trace_cb_list); +} +void STag_surfxml_trace_connect(void){ + surfxml_call_cb_functions(STag_surfxml_trace_connect_cb_list); +} +void STag_surfxml_AS(void){ + surfxml_call_cb_functions(STag_surfxml_AS_cb_list); +} +void STag_surfxml_ASroute(void){ + surfxml_call_cb_functions(STag_surfxml_ASroute_cb_list); +} +void STag_surfxml_bypassRoute(void){ + surfxml_call_cb_functions(STag_surfxml_bypassRoute_cb_list); +} +void STag_surfxml_config(void){ + surfxml_call_cb_functions(STag_surfxml_config_cb_list); +} +void STag_surfxml_random(void){ + surfxml_call_cb_functions(STag_surfxml_random_cb_list); +} + #define parse_method(type,name) \ void type##Tag_surfxml_##name(void) \ { surfxml_call_cb_functions(type##Tag_surfxml_##name##_cb_list); } - parse_method(E, platform); -parse_method(S, host); -parse_method(E, host); -parse_method(S, router); -parse_method(E, router); -parse_method(S, link); -parse_method(E, link); -parse_method(S, route); parse_method(E, route); -parse_method(S, link_ctn); parse_method(E, link_ctn); -parse_method(S, process); parse_method(E, process); -parse_method(S, argument); parse_method(E, argument); -parse_method(S, prop); parse_method(E, prop); -parse_method(S, trace); parse_method(E, trace); -parse_method(S, trace_connect); parse_method(E, trace_connect); -parse_method(S, random); parse_method(E, random); -parse_method(S, AS); parse_method(E, AS); -parse_method(S, ASroute); parse_method(E, ASroute); -parse_method(S, bypassRoute); parse_method(E, bypassRoute); -parse_method(S, cluster); -parse_method(E, cluster); -parse_method(S, peer); -parse_method(E, peer); -parse_method(S, config); parse_method(E, config); /* Open and Close parse file */ @@ -454,7 +584,8 @@ void surfxml_del_callback(xbt_dynar_t cb_list, void_f_void_t function) TRY { it = xbt_dynar_search(cb_list,&function); - } CATCH(e) { + } + CATCH(e) { if (e.category == not_found_error) { xbt_ex_free(e); xbt_die("Trying to remove a callback that is not here! This should not happen"); @@ -524,25 +655,41 @@ void parse_platform_file(const char *file) /* Prop tag functions */ -void parse_properties(void) -{ - char *value = NULL; - if (!current_property_set) - current_property_set = xbt_dict_new(); // Maybe, it should be make a error - if(!strcmp(A_surfxml_prop_id,"coordinates")){ - if(!strcmp(A_surfxml_prop_value,"yes") && !COORD_HOST_LEVEL) - { - XBT_INFO("Configuration change: Set '%s' to '%s'", A_surfxml_prop_id, A_surfxml_prop_value); - COORD_HOST_LEVEL = xbt_lib_add_level(host_lib,xbt_dynar_free_voidp); - COORD_ASR_LEVEL = xbt_lib_add_level(as_router_lib,xbt_dynar_free_voidp); +void parse_properties(const char* prop_id, const char* prop_value) +{ + char *value = NULL; + if (!current_property_set) + current_property_set = xbt_dict_new(); // Maybe, it should be make a error + if(!strcmp(prop_id,"coordinates")){ + if(!strcmp(prop_value,"yes") && !COORD_HOST_LEVEL) + { + XBT_INFO("Configuration change: Set '%s' to '%s'", prop_id, prop_value); + COORD_HOST_LEVEL = xbt_lib_add_level(host_lib,xbt_dynar_free_voidp); + COORD_ASR_LEVEL = xbt_lib_add_level(as_router_lib,xbt_dynar_free_voidp); + } + if(strcmp(A_surfxml_prop_value,"yes")) + xbt_die("Setting XML prop coordinates must be \"yes\""); } - if(strcmp(A_surfxml_prop_value,"yes")) - xbt_die("Setting XML prop coordinates must be \"yes\""); - } - else{ - value = xbt_strdup(A_surfxml_prop_value); - xbt_dict_set(current_property_set, A_surfxml_prop_id, value, free); - } + else{ + value = xbt_strdup(prop_value); + xbt_dict_set(current_property_set, prop_id, value, free); + } +} + +/** + * With XML parser + */ +void parse_properties_XML(void) +{ + parse_properties(A_surfxml_prop_id, A_surfxml_prop_value); +} + +/* + * With lua console + */ +void parse_properties_lua(const char* prop_id, const char* prop_value) +{ + parse_properties(prop_id, prop_value); } /* Trace management functions */ @@ -669,7 +816,7 @@ static void add_randomness(void) /** * create CPU resource via CPU Model */ -void surf_host_create_resource(char *name, double power_peak, +void* surf_host_create_resource(char *name, double power_peak, double power_scale, tmgr_trace_t power_trace, int core, e_surf_resource_state_t state_initial, @@ -689,14 +836,14 @@ void surf_host_create_resource(char *name, double power_peak, * create CPU resource via worsktation_ptask_L07 model */ -void surf_wsL07_host_create_resource(char *name, double power_peak, +void* surf_wsL07_host_create_resource(char *name, double power_peak, double power_scale, tmgr_trace_t power_trace, e_surf_resource_state_t state_initial, tmgr_trace_t state_trace, xbt_dict_t cpu_properties) { - surf_workstation_model->extension.workstation.cpu_create_resource(name, + return surf_workstation_model->extension.workstation.cpu_create_resource(name, power_peak, power_scale, power_trace, @@ -708,7 +855,7 @@ void surf_wsL07_host_create_resource(char *name, double power_peak, /** * create link resource via network Model */ -void surf_link_create_resource(char *name, +void* surf_link_create_resource(char *name, double bw_initial, tmgr_trace_t bw_trace, double lat_initial, @@ -734,7 +881,7 @@ void surf_link_create_resource(char *name, * create link resource via workstation_ptask_L07 model */ -void surf_wsL07_link_create_resource(char *name, +void* surf_wsL07_link_create_resource(char *name, double bw_initial, tmgr_trace_t bw_trace, double lat_initial,