-void manage_route(xbt_dict_t routing_table, const char *route_name, int action, int isMultiRoute)
-{
- unsigned int cpt;
- xbt_dynar_t links;
- char *value;
-
- /* get already existing list if it exists */
- links = xbt_dict_get_or_null(routing_table, route_name);
- DEBUG1("ROUTE: %s", route_name);
- if (links != NULL) {
- switch (action) {
- case A_surfxml_route_action_PREPEND: /* add existing links at the end; route_link_list + links */
- xbt_dynar_foreach(links, cpt, value) {
- xbt_dynar_push(route_link_list,&value);
- }
- xbt_dynar_free(&links);
- break;
- case A_surfxml_route_action_POSTPEND: /* add existing links in front; links + route_link_list */
- xbt_dynar_foreach(route_link_list, cpt, value) {
- xbt_dynar_push(links,&value);
- }
- xbt_dynar_free(&route_link_list);
- route_link_list = links;
- break;
- case A_surfxml_route_action_OVERRIDE:
- xbt_dynar_free(&links);
- break;
- default:break;
- }
- }
- /* this is the final route; do not add if name is a set; add only if name is in set list */
- if (!isMultiRoute){
- xbt_dict_set(routing_table, route_name, route_link_list, NULL);
- }
-}
-
-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)