X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/997eaf52ad0ae1eb34820b135c7ba884b2a17f3c..f55ebe8f51eaa911242266638068e2c91e958db9:/src/surf/surf_routing_full.c diff --git a/src/surf/surf_routing_full.c b/src/surf/surf_routing_full.c index 9d42e98786..1ac2f26306 100644 --- a/src/surf/surf_routing_full.c +++ b/src/surf/surf_routing_full.c @@ -8,6 +8,7 @@ /* Global vars */ extern routing_global_t global_routing; +extern int surf_parse_lineno; XBT_LOG_NEW_DEFAULT_SUBCATEGORY(surf_route_full, surf, "Routing part of surf"); @@ -17,41 +18,35 @@ XBT_LOG_NEW_DEFAULT_SUBCATEGORY(surf_route_full, surf, "Routing part of surf"); typedef struct s_routing_component_full { s_as_t generic_routing; - route_extended_t *routing_table; + route_t *routing_table; } s_routing_component_full_t, *routing_component_full_t; /* Business methods */ static xbt_dynar_t full_get_onelink_routes(AS_t rc) { xbt_dynar_t ret = xbt_dynar_new(sizeof(onelink_t), xbt_free); - routing_component_full_t routing = (routing_component_full_t) rc; - size_t table_size = xbt_dict_length(routing->generic_routing.to_index); - xbt_dict_cursor_t c1 = NULL, c2 = NULL; - char *k1, *d1, *k2, *d2; - xbt_dict_foreach(routing->generic_routing.to_index, c1, k1, d1) { - xbt_dict_foreach(routing->generic_routing.to_index, c2, k2, d2) { - int *src_id = xbt_dict_get_or_null(routing->generic_routing.to_index, k1); - int *dst_id = xbt_dict_get_or_null(routing->generic_routing.to_index, k2); - xbt_assert(src_id - && dst_id, - "Ask for route \"from\"(%s) or \"to\"(%s) no found in the local table", - k1, k2); - route_extended_t route = TO_ROUTE_FULL(*src_id, *dst_id); + + int src,dst; + int table_size = xbt_dynar_length(rc->index_network_elm); + + for(src=0; src < table_size; src++) { + for(dst=0; dst< table_size; dst++) { + route_t route = TO_ROUTE_FULL(src, dst); if (route) { - if (xbt_dynar_length(route->generic_route.link_list) == 1) { - void *link = - *(void **) xbt_dynar_get_ptr(route->generic_route.link_list, - 0); + if (xbt_dynar_length(route->link_list) == 1) { + void *link = *(void **) xbt_dynar_get_ptr(route->link_list, 0); onelink_t onelink = xbt_new0(s_onelink_t, 1); onelink->link_ptr = link; if (routing->generic_routing.hierarchy == SURF_ROUTING_BASE) { - onelink->src = xbt_strdup(k1); - onelink->dst = xbt_strdup(k2); + onelink->src = xbt_dynar_get_as(routing->generic_routing.index_network_elm,src,network_element_t); + onelink->src->id = src; + onelink->dst = xbt_dynar_get_as(routing->generic_routing.index_network_elm,dst,network_element_t); + onelink->dst->id = dst; } else if (routing->generic_routing.hierarchy == SURF_ROUTING_RECURSIVE) { - onelink->src = xbt_strdup(route->src_gateway); - onelink->dst = xbt_strdup(route->dst_gateway); + onelink->src = route->src_gateway; + onelink->dst = route->dst_gateway; } xbt_dynar_push(ret, &onelink); } @@ -61,55 +56,47 @@ static xbt_dynar_t full_get_onelink_routes(AS_t rc) return ret; } -static route_extended_t full_get_route(AS_t rc, - const char *src, const char *dst) +static void full_get_route_and_latency(AS_t rc, + network_element_t src, network_element_t dst, + route_t res, double *lat) { - xbt_assert(rc && src - && dst, - "Invalid params for \"get_route\" function at AS \"%s\"", - rc->name); + XBT_DEBUG("full_get_route_and_latency from %s[%d] to %s[%d]", + src->name, + src->id, + dst->name, + dst->id ); /* set utils vars */ routing_component_full_t routing = (routing_component_full_t) rc; - size_t table_size = xbt_dict_length(routing->generic_routing.to_index); + size_t table_size = xbt_dynar_length(routing->generic_routing.index_network_elm); - int *src_id = xbt_dict_get_or_null(routing->generic_routing.to_index, src); - int *dst_id = xbt_dict_get_or_null(routing->generic_routing.to_index, dst); - xbt_assert(src_id - && dst_id, - "Ask for route \"from\"(%s) or \"to\"(%s) no found in the local table", - src, dst); - - route_extended_t e_route = NULL; - route_extended_t new_e_route = NULL; + route_t e_route = NULL; void *link; unsigned int cpt = 0; - e_route = TO_ROUTE_FULL(*src_id, *dst_id); + e_route = TO_ROUTE_FULL(src->id, dst->id); if (e_route) { - new_e_route = xbt_new0(s_route_extended_t, 1); - new_e_route->src_gateway = xbt_strdup(e_route->src_gateway); - new_e_route->dst_gateway = xbt_strdup(e_route->dst_gateway); - new_e_route->generic_route.link_list = - xbt_dynar_new(global_routing->size_of_link, NULL); - xbt_dynar_foreach(e_route->generic_route.link_list, cpt, link) { - xbt_dynar_push(new_e_route->generic_route.link_list, &link); + res->src_gateway = e_route->src_gateway; + res->dst_gateway = e_route->dst_gateway; + xbt_dynar_foreach(e_route->link_list, cpt, link) { + xbt_dynar_push(res->link_list, &link); + if (lat) + *lat += surf_network_model->extension.network.get_link_latency(link); } } - return new_e_route; } static void full_finalize(AS_t rc) { routing_component_full_t routing = (routing_component_full_t) rc; - size_t table_size = xbt_dict_length(routing->generic_routing.to_index); + size_t table_size = xbt_dynar_length(routing->generic_routing.index_network_elm); int i, j; if (routing) { /* Delete routing table */ for (i = 0; i < table_size; i++) for (j = 0; j < table_size; j++) - generic_free_extended_route(TO_ROUTE_FULL(i, j)); + generic_free_route(TO_ROUTE_FULL(i, j)); xbt_free(routing->routing_table); model_generic_finalize(rc); } @@ -124,9 +111,9 @@ AS_t model_full_create(void) new_component->generic_routing.parse_route = model_full_set_route; new_component->generic_routing.parse_ASroute = model_full_set_route; - new_component->generic_routing.get_route = full_get_route; - new_component->generic_routing.get_onelink_routes = - full_get_onelink_routes; + new_component->generic_routing.get_route_and_latency = + full_get_route_and_latency; + new_component->generic_routing.get_onelink_routes = full_get_onelink_routes; new_component->generic_routing.finalize = full_finalize; return (AS_t) new_component; @@ -135,131 +122,158 @@ AS_t model_full_create(void) void model_full_end(AS_t current_routing) { unsigned int i; - route_extended_t e_route; + route_t e_route; /* set utils vars */ routing_component_full_t routing = ((routing_component_full_t) current_routing); - size_t table_size = xbt_dict_length(routing->generic_routing.to_index); + size_t table_size = xbt_dynar_length(routing->generic_routing.index_network_elm); /* Create table if necessary */ - if(!routing->routing_table) - routing->routing_table = xbt_new0(route_extended_t, table_size * table_size); + if (!routing->routing_table) + routing->routing_table = xbt_new0(route_t, table_size * table_size); /* Add the loopback if needed */ - if (current_routing->hierarchy == SURF_ROUTING_BASE) { + if (global_routing->loopback && current_routing->hierarchy == SURF_ROUTING_BASE) { for (i = 0; i < table_size; i++) { e_route = TO_ROUTE_FULL(i, i); if (!e_route) { - e_route = xbt_new0(s_route_extended_t, 1); + e_route = xbt_new0(s_route_t, 1); e_route->src_gateway = NULL; e_route->dst_gateway = NULL; - e_route->generic_route.link_list = - xbt_dynar_new(global_routing->size_of_link, NULL); - xbt_dynar_push(e_route->generic_route.link_list, - &global_routing->loopback); + e_route->link_list = xbt_dynar_new(global_routing->size_of_link, NULL); + xbt_dynar_push(e_route->link_list, &global_routing->loopback); TO_ROUTE_FULL(i, i) = e_route; } } } } -static int surf_pointer_resource_cmp(const void *a, const void *b) { +static int full_pointer_resource_cmp(const void *a, const void *b) +{ return a != b; } void model_full_set_route(AS_t rc, const char *src, - const char *dst, route_extended_t route) + const char *dst, route_t route) { - int *src_id, *dst_id; - src_id = xbt_dict_get_or_null(rc->to_index, src); - dst_id = xbt_dict_get_or_null(rc->to_index, dst); - routing_component_full_t routing = ((routing_component_full_t) rc); - size_t table_size = xbt_dict_length(routing->generic_routing.to_index); - - xbt_assert(src_id, "Network elements %s not found", src); - xbt_assert(dst_id, "Network elements %s not found", dst); - - xbt_assert(!xbt_dynar_is_empty(route->generic_route.link_list), - "Invalid count of links, must be greater than zero (%s,%s)", - src, dst); - - if(!routing->routing_table) - routing->routing_table = xbt_new0(route_extended_t, table_size * table_size); - - if(TO_ROUTE_FULL(*src_id, *dst_id)) - { - char * link_name; - unsigned int i; - xbt_dynar_t link_route_to_test = xbt_dynar_new(global_routing->size_of_link, NULL); - xbt_dynar_foreach(route->generic_route.link_list,i,link_name) - { - void *link = xbt_lib_get_or_null(link_lib, link_name, SURF_LINK_LEVEL); - xbt_assert(link,"Link : '%s' doesn't exists.",link_name); - xbt_dynar_push(link_route_to_test,&link); - } - xbt_assert(!xbt_dynar_compare( - (void*)TO_ROUTE_FULL(*src_id, *dst_id)->generic_route.link_list, - (void*)link_route_to_test, - (int_f_cpvoid_cpvoid_t) surf_pointer_resource_cmp), - "The route between \"%s\" and \"%s\" already exists. If you are trying to define a reverse route, you must set the symmetrical=no attribute to your routes tags.", src,dst); - } - else - { - if(!route->dst_gateway && !route->src_gateway) - XBT_DEBUG("Load Route from \"%s\" to \"%s\"", src, dst); - else{ - XBT_DEBUG("Load ASroute from \"%s(%s)\" to \"%s(%s)\"", src, - route->src_gateway, dst, route->dst_gateway); - if(routing_get_network_element_type((const char*)route->dst_gateway) == SURF_NETWORK_ELEMENT_NULL) - xbt_die("The dst_gateway '%s' does not exist!",route->dst_gateway); - if(routing_get_network_element_type((const char*)route->src_gateway) == SURF_NETWORK_ELEMENT_NULL) - xbt_die("The src_gateway '%s' does not exist!",route->src_gateway); - } - TO_ROUTE_FULL(*src_id, *dst_id) = generic_new_extended_route(rc->hierarchy,route,1); - xbt_dynar_shrink(TO_ROUTE_FULL(*src_id, *dst_id)->generic_route.link_list, 0); - } - - if( A_surfxml_route_symmetrical == A_surfxml_route_symmetrical_YES - || A_surfxml_ASroute_symmetrical == A_surfxml_ASroute_symmetrical_YES ) - { - if(route->dst_gateway && route->src_gateway) - { - char *gw_tmp ; - gw_tmp = route->src_gateway; - route->src_gateway = route->dst_gateway; - route->dst_gateway = gw_tmp; - } - if(TO_ROUTE_FULL(*dst_id, *src_id)) - { - char * link_name; - unsigned int i; - xbt_dynar_t link_route_to_test = xbt_dynar_new(global_routing->size_of_link, NULL); - for(i=xbt_dynar_length(route->generic_route.link_list) ;i>0 ;i--) - { - link_name = xbt_dynar_get_as(route->generic_route.link_list,i-1,void *); - void *link = xbt_lib_get_or_null(link_lib, link_name, SURF_LINK_LEVEL); - xbt_assert(link,"Link : '%s' doesn't exists.",link_name); - xbt_dynar_push(link_route_to_test,&link); - } - xbt_assert(!xbt_dynar_compare( - (void*)TO_ROUTE_FULL(*dst_id, *src_id)->generic_route.link_list, - (void*)link_route_to_test, - (int_f_cpvoid_cpvoid_t) surf_pointer_resource_cmp), - "The route between \"%s\" and \"%s\" already exists", src,dst); - } - else - { - if(!route->dst_gateway && !route->src_gateway) - XBT_DEBUG("Load Route from \"%s\" to \"%s\"", dst, src); - else - XBT_DEBUG("Load ASroute from \"%s(%s)\" to \"%s(%s)\"", dst, - route->src_gateway, src, route->dst_gateway); - TO_ROUTE_FULL(*dst_id, *src_id) = generic_new_extended_route(rc->hierarchy,route,0); - xbt_dynar_shrink(TO_ROUTE_FULL(*dst_id, *src_id)->generic_route.link_list, 0); - } - } - - if (rc->hierarchy == SURF_ROUTING_BASE) generic_free_route((route_t)route) ; - else generic_free_extended_route((route_extended_t)route); + network_element_t src_net_elm, dst_net_elm; + + src_net_elm = (network_element_t)xbt_lib_get_or_null(host_lib, src, ROUTING_HOST_LEVEL); + dst_net_elm = (network_element_t)xbt_lib_get_or_null(host_lib, dst, ROUTING_HOST_LEVEL); + if(!src_net_elm) src_net_elm = (network_element_t)xbt_lib_get_or_null(as_router_lib, src, ROUTING_ASR_LEVEL); + if(!dst_net_elm) dst_net_elm = (network_element_t)xbt_lib_get_or_null(as_router_lib, dst, ROUTING_ASR_LEVEL); + + xbt_assert(src_net_elm, "Network elements %s not found", src); + xbt_assert(dst_net_elm, "Network elements %s not found", dst); + + routing_component_full_t routing = (routing_component_full_t) rc; + size_t table_size = xbt_dynar_length(routing->generic_routing.index_network_elm); + + xbt_assert(!xbt_dynar_is_empty(route->link_list), + "Invalid count of links, must be greater than zero (%s,%s)", + src, dst); + + if (!routing->routing_table) + routing->routing_table = xbt_new0(route_t, table_size * table_size); + + if (TO_ROUTE_FULL(src_net_elm->id, dst_net_elm->id)) { + char *link_name; + unsigned int i; + xbt_dynar_t link_route_to_test = + xbt_dynar_new(global_routing->size_of_link, NULL); + xbt_dynar_foreach(route->link_list, i, link_name) { + void *link = xbt_lib_get_or_null(link_lib, link_name, SURF_LINK_LEVEL); + xbt_assert(link, "Link : '%s' doesn't exists.", link_name); + xbt_dynar_push(link_route_to_test, &link); + } + if (xbt_dynar_compare(TO_ROUTE_FULL(src_net_elm->id, dst_net_elm->id)->link_list, + link_route_to_test, full_pointer_resource_cmp)) { + surf_parse_error("A route between \"%s\" and \"%s\" already exists " + "with a different content. " + "If you are trying to define a reverse route, " + "you must set the symmetrical=no attribute to " + "your routes tags.", src, dst); + } else { + surf_parse_warn("Ignoring the identical redefinition of the route " + "between \"%s\" and \"%s\"", src, dst); + } + } else { + if (!route->dst_gateway && !route->src_gateway) + XBT_DEBUG("Load Route from \"%s\" to \"%s\"", src, dst); + else { +// FIXME We can call a gw wich is down the current AS (cf g5k.xml) but not upper. +// AS_t subas = xbt_dict_get_or_null(rc->routing_sons, src); +// if (subas == NULL) +// surf_parse_error("The source of an ASroute must be a sub-AS " +// "declared within the current AS, " +// "but '%s' is not an AS within '%s'", src, rc->name); +// if (subas->to_index +// && xbt_dict_get_or_null(subas->to_index, route->src_gateway) == NULL) +// surf_parse_error("In an ASroute, source gateway must be part of " +// "the source sub-AS (in particular, being in a " +// "sub-sub-AS is not allowed), " +// "but '%s' is not in '%s'.", +// route->src_gateway, subas->name); +// +// subas = xbt_dict_get_or_null(rc->routing_sons, dst); +// if (subas == NULL) +// surf_parse_error("The destination of an ASroute must be a sub-AS " +// "declared within the current AS, " +// "but '%s' is not an AS within '%s'", dst, rc->name); +// if (subas->to_index +// && xbt_dict_get_or_null(subas->to_index, route->dst_gateway) == NULL) +// surf_parse_error("In an ASroute, destination gateway must be " +// "part of the destination sub-AS (in particular, " +// "in a sub-sub-AS is not allowed), " +// "but '%s' is not in '%s'.", +// route->dst_gateway, subas->name); + + XBT_DEBUG("Load ASroute from \"%s(%s)\" to \"%s(%s)\"", + src, route->src_gateway->name, dst, route->dst_gateway->name); + if (route->dst_gateway->rc_type == SURF_NETWORK_ELEMENT_NULL) + xbt_die("The dst_gateway '%s' does not exist!", route->dst_gateway->name); + if (route->src_gateway->rc_type == SURF_NETWORK_ELEMENT_NULL) + xbt_die("The src_gateway '%s' does not exist!", route->src_gateway->name); + } + TO_ROUTE_FULL(src_net_elm->id, dst_net_elm->id) = + generic_new_extended_route(rc->hierarchy, route, 1); + xbt_dynar_shrink(TO_ROUTE_FULL(src_net_elm->id, dst_net_elm->id)->link_list, 0); + } + + if (A_surfxml_route_symmetrical == A_surfxml_route_symmetrical_YES + || A_surfxml_ASroute_symmetrical == A_surfxml_ASroute_symmetrical_YES) { + if (route->dst_gateway && route->src_gateway) { + network_element_t gw_tmp; + gw_tmp = route->src_gateway; + route->src_gateway = route->dst_gateway; + route->dst_gateway = gw_tmp; + } + if (TO_ROUTE_FULL(dst_net_elm->id, src_net_elm->id)) { + char *link_name; + unsigned int i; + xbt_dynar_t link_route_to_test = + xbt_dynar_new(global_routing->size_of_link, NULL); + for (i = xbt_dynar_length(route->link_list); i > 0; i--) { + link_name = xbt_dynar_get_as(route->link_list, i - 1, void *); + void *link = xbt_lib_get_or_null(link_lib, link_name, SURF_LINK_LEVEL); + xbt_assert(link, "Link : '%s' doesn't exists.", link_name); + xbt_dynar_push(link_route_to_test, &link); + } + xbt_assert(!xbt_dynar_compare(TO_ROUTE_FULL(dst_net_elm->id, src_net_elm->id)->link_list, + link_route_to_test, + full_pointer_resource_cmp), + "The route between \"%s\" and \"%s\" already exists", src, + dst); + } else { + if (!route->dst_gateway && !route->src_gateway) + XBT_DEBUG("Load Route from \"%s\" to \"%s\"", dst, src); + else + XBT_DEBUG("Load ASroute from \"%s(%s)\" to \"%s(%s)\"", + dst, route->src_gateway->name, src, route->dst_gateway->name); + TO_ROUTE_FULL(dst_net_elm->id, src_net_elm->id) = + generic_new_extended_route(rc->hierarchy, route, 0); + xbt_dynar_shrink(TO_ROUTE_FULL(dst_net_elm->id, src_net_elm->id)->link_list, 0); + } + } }