-static void parse_route_multi_set_route(void)
-{
- char *route_name;
-
- route_name =
- bprintf("%s#%s#%d#%d#%d", src_name, dst_name, route_action,
- is_symmetric_route, route_multi_size);
-
- xbt_dynar_push(route_multi_elements, &route_name);
-
- /* Add route */
- xbt_dict_set(route_multi_table, route_name, route_link_list, NULL);
- /* add symmetric if it is the case */
- if (is_symmetric_route == 1) {
- char *symmetric_name =
- bprintf("%s#%s#%d#%d#%d", dst_name, src_name, route_action,
- !is_symmetric_route, route_multi_size);
-
- xbt_dict_set(route_multi_table, symmetric_name, route_link_list, NULL);
- xbt_dynar_push(route_multi_elements, &symmetric_name);
- is_symmetric_route = 0;
- }
- free(src_name);
- free(dst_name);
-}
-
-static void add_multi_links(const char *src, const char *dst,
- xbt_dynar_t links, const char *src_name,
- const char *dst_name)
-{
- unsigned int cpt;
- char *value, *val;
-
- push_surfxml_bufferstack(1);
-
- parse_make_temporary_route(src_name, dst_name, route_action);
- surfxml_call_cb_functions(STag_surfxml_route_cb_list);
- DEBUG2("\tADDING ROUTE: %s -> %s", src_name, dst_name);
- /* Build link list */
- xbt_dynar_foreach(links, cpt, value) {
- if (strcmp(value, src) == 0)
- val = xbt_strdup(src_name);
- else if (strcmp(value, dst) == 0)
- val = xbt_strdup(dst_name);
- else if (strcmp(value, "$dst") == 0)
- val = xbt_strdup(dst_name);
- else if (strcmp(value, "$src") == 0)
- val = xbt_strdup(src_name);
- else
- val = xbt_strdup(value);
- DEBUG1("\t\tELEMENT: %s", val);
- xbt_dynar_push(route_link_list, &val);
- }
- surfxml_call_cb_functions(ETag_surfxml_route_cb_list);
- pop_surfxml_bufferstack(1);
-}
-
-static void convert_route_multi_to_routes(void)
-{
- xbt_dict_cursor_t cursor_w;
- int symmetric;
- unsigned int cpt, cpt2, cursor;
- char *src_host_name, *dst_host_name, *key, *src, *dst, *val, *key_w,
- *data_w;
- const char *sep = "#";
- xbt_dict_t set;
- xbt_dynar_t src_names = NULL, dst_names = NULL, links;
-
- if (!route_multi_elements)
- return;
-
- set = cpu_set;
- DEBUG1("%d", xbt_dict_length(workstation_set));
- if (workstation_set != NULL && xbt_dict_length(workstation_set) > 0)
- set = workstation_set;
-
-
- push_surfxml_bufferstack(0);
- /* Get all routes in the exact order they were entered in the platform file */
- xbt_dynar_foreach(route_multi_elements, cursor, key) {
- /* Get links for the route */
- links = (xbt_dynar_t) xbt_dict_get_or_null(route_multi_table, key);
- keys = xbt_str_split_str(key, sep);
- /* Get route ends */
- src = xbt_dynar_get_as(keys, 0, char *);
- dst = xbt_dynar_get_as(keys, 1, char *);
- route_action = atoi(xbt_dynar_get_as(keys, 2, char *));
- symmetric = atoi(xbt_dynar_get_as(keys, 3, char *));
-
- /* Create the dynar of src and dst hosts for the new routes */
- /* NOTE: src and dst can be either set names or simple host names */
- src_names = (xbt_dynar_t) xbt_dict_get_or_null(set_list, src);
- dst_names = (xbt_dynar_t) xbt_dict_get_or_null(set_list, dst);
- /* Add to dynar even if they are simple names */
- if (src_names == NULL) {
- src_names = xbt_dynar_new(sizeof(char *), &xbt_free_ref);
- val = xbt_strdup(src);
- xbt_dynar_push(src_names, &val);
- if (strcmp(val, "$*") != 0 && NULL == xbt_dict_get_or_null(set, val))
- THROW3(unknown_error, 0,
- "(In route:multi (%s -> %s) source %s does not exist (not a set or a host)",
- src, dst, src);
- }
- if (dst_names == NULL) {
- dst_names = xbt_dynar_new(sizeof(char *), &xbt_free_ref);
- val = xbt_strdup(dst);
- if (strcmp(val, "$*") != 0 && NULL == xbt_dict_get_or_null(set, val))
- THROW3(unknown_error, 0,
- "(In route:multi (%s -> %s) destination %s does not exist (not a set or a host)",
- src, dst, dst);
- xbt_dynar_push(dst_names, &val);
- }
-
- /* Build the routes */
- DEBUG2("ADDING MULTI ROUTE: %s -> %s", xbt_dynar_get_as(keys, 0, char *),
- xbt_dynar_get_as(keys, 1, char *));
- xbt_dynar_foreach(src_names, cpt, src_host_name) {
- xbt_dynar_foreach(dst_names, cpt2, dst_host_name) {
- /* If dst is $* then set this route to have its dst point to all hosts */
- if (strcmp(src_host_name, "$*") != 0
- && strcmp(dst_host_name, "$*") == 0) {
- xbt_dict_foreach(set, cursor_w, key_w, data_w) {
- //int n = xbt_dynar_member(src_names, (char*)key_w);
- add_multi_links(src, dst, links, src_host_name, key_w);
- }
- }
- /* If src is $* then set this route to have its dst point to all hosts */
- if (strcmp(src_host_name, "$*") == 0
- && strcmp(dst_host_name, "$*") != 0) {
- xbt_dict_foreach(set, cursor_w, key_w, data_w) {
- // if (!symmetric || (symmetric && !contains(dst_names, key_w)))
- add_multi_links(src, dst, links, key_w, dst_host_name);
- }
- }
- /* if none of them are equal to $* */
- if (strcmp(src_host_name, "$*") != 0
- && strcmp(dst_host_name, "$*") != 0) {
- add_multi_links(src, dst, links, src_host_name, dst_host_name);
- }
- }
- }
- xbt_dynar_free(&keys);
- }
- pop_surfxml_bufferstack(0);
-}
-
-/* Cluster tag functions */
-
-static void parse_cluster(void)
-{
- static int AX_ptr = 0;
-
- char *cluster_id = A_surfxml_cluster_id;
- char *cluster_prefix = A_surfxml_cluster_prefix;
- char *cluster_suffix = A_surfxml_cluster_suffix;
- char *cluster_radical = A_surfxml_cluster_radical;
- char *cluster_power = A_surfxml_cluster_power;
- char *cluster_bw = A_surfxml_cluster_bw;
- char *cluster_lat = A_surfxml_cluster_lat;
- char *cluster_bb_bw = A_surfxml_cluster_bb_bw;
- char *cluster_bb_lat = A_surfxml_cluster_bb_lat;
- char *backbone_name;
-
- push_surfxml_bufferstack(1);
-
- /* Make set */
- SURFXML_BUFFER_SET(set_id, cluster_id);
- SURFXML_BUFFER_SET(set_prefix, cluster_prefix);
- SURFXML_BUFFER_SET(set_suffix, cluster_suffix);
- SURFXML_BUFFER_SET(set_radical, cluster_radical);
-
- SURFXML_START_TAG(set);
- SURFXML_END_TAG(set);
-
- /* Make foreach */
- SURFXML_BUFFER_SET(foreach_set_id, cluster_id);
-
- SURFXML_START_TAG(foreach);
-
- /* Make host for the foreach */
- parse_change_cpu_data("$1", cluster_power, "1.0", "", "");
- A_surfxml_host_state = A_surfxml_host_state_ON;
-
- SURFXML_START_TAG(host);
- SURFXML_END_TAG(host);
-
- /* Make link for the foreach */
- parse_change_link_data("$1", cluster_bw, "", cluster_lat, "", "");
- A_surfxml_link_state = A_surfxml_link_state_ON;
- A_surfxml_link_sharing_policy = A_surfxml_link_sharing_policy_SHARED;
-
- SURFXML_START_TAG(link);
- SURFXML_END_TAG(link);
-
- SURFXML_END_TAG(foreach);
-
- /* Make backbone link */
- backbone_name = bprintf("%s_bb", cluster_id);
- parse_change_link_data(backbone_name, cluster_bb_bw, "", cluster_bb_lat, "",
- "");
- A_surfxml_link_state = A_surfxml_link_state_ON;
- A_surfxml_link_sharing_policy = A_surfxml_link_sharing_policy_FATPIPE;
-
- SURFXML_START_TAG(link);
- SURFXML_END_TAG(link);
-
- /* Make route multi with the outside world, i.e. cluster->$* */
- SURFXML_BUFFER_SET(route_c_multi_src, cluster_id);
- SURFXML_BUFFER_SET(route_c_multi_dst, "$*");
- A_surfxml_route_c_multi_symmetric = A_surfxml_route_c_multi_symmetric_NO;
- A_surfxml_route_c_multi_action = A_surfxml_route_c_multi_action_OVERRIDE;
-
- SURFXML_START_TAG(route_c_multi);
-
- SURFXML_BUFFER_SET(link_c_ctn_id, "$src");
-
- SURFXML_START_TAG(link_c_ctn);
- SURFXML_END_TAG(link_c_ctn);
-
- SURFXML_END_TAG(route_c_multi);
-
- /* Make route multi between cluster hosts, i.e. cluster->cluster */
- SURFXML_BUFFER_SET(route_c_multi_src, cluster_id);
- SURFXML_BUFFER_SET(route_c_multi_dst, cluster_id);
- A_surfxml_route_c_multi_action = A_surfxml_route_c_multi_action_POSTPEND;
- A_surfxml_route_c_multi_symmetric = A_surfxml_route_c_multi_symmetric_NO;
-
- SURFXML_START_TAG(route_c_multi);
-
- SURFXML_BUFFER_SET(link_c_ctn_id, backbone_name);
-
- SURFXML_START_TAG(link_c_ctn);
- SURFXML_END_TAG(link_c_ctn);
-
- SURFXML_END_TAG(route_c_multi);
-
-
- free(backbone_name);
-
- /* Restore buff */
- pop_surfxml_bufferstack(1);
-}
-
-/* Trace management functions */
-
-static double trace_periodicity = -1.0;
-static char *trace_file = NULL;
-static char *trace_id;
-
-static void parse_trace_init(void)
-{
- trace_id = strdup(A_surfxml_trace_id);
- trace_file = strdup(A_surfxml_trace_file);
- surf_parse_get_double(&trace_periodicity, A_surfxml_trace_periodicity);
-}
-
-static void parse_trace_finalize(void)
-{
- tmgr_trace_t trace;
- if (!trace_file || strcmp(trace_file, "") != 0) {
- surf_parse_get_trace(&trace, trace_file);
- } else {
- if (strcmp(surfxml_pcdata, "") == 0)
- trace = NULL;
- else
- trace =
- tmgr_trace_new_from_string(trace_id, surfxml_pcdata,
- trace_periodicity);
- }
- xbt_dict_set(traces_set_list, trace_id, (void *) trace, NULL);
-}
-
-static void parse_trace_c_connect(void)
-{
- xbt_assert2(xbt_dict_get_or_null
- (traces_set_list, A_surfxml_trace_c_connect_trace),
- "Cannot connect trace %s to %s: trace unknown",
- A_surfxml_trace_c_connect_trace,
- A_surfxml_trace_c_connect_element);
-
- switch (A_surfxml_trace_c_connect_kind) {
- case A_surfxml_trace_c_connect_kind_HOST_AVAIL:
- xbt_dict_set(trace_connect_list_host_avail,
- A_surfxml_trace_c_connect_trace,
- xbt_strdup(A_surfxml_trace_c_connect_element), free);
- break;
- case A_surfxml_trace_c_connect_kind_POWER:
- xbt_dict_set(trace_connect_list_power, A_surfxml_trace_c_connect_trace,
- xbt_strdup(A_surfxml_trace_c_connect_element), free);
- break;
- case A_surfxml_trace_c_connect_kind_LINK_AVAIL:
- xbt_dict_set(trace_connect_list_link_avail,
- A_surfxml_trace_c_connect_trace,
- xbt_strdup(A_surfxml_trace_c_connect_element), free);
- break;
- case A_surfxml_trace_c_connect_kind_BANDWIDTH:
- xbt_dict_set(trace_connect_list_bandwidth,
- A_surfxml_trace_c_connect_trace,
- xbt_strdup(A_surfxml_trace_c_connect_element), free);
- break;
- case A_surfxml_trace_c_connect_kind_LATENCY:
- xbt_dict_set(trace_connect_list_latency, A_surfxml_trace_c_connect_trace,
- xbt_strdup(A_surfxml_trace_c_connect_element), free);
- break;
- default:
- xbt_die(bprintf("Cannot connect trace %s to %s: kind of trace unknown",
- A_surfxml_trace_c_connect_trace,
- A_surfxml_trace_c_connect_element));
- }
-}