X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/99a6dd9c43f2ad2e2f6da980642f5d0f6fc6c779..1d17c885aa26ea6c36c1fc0c6ab39ddd5d509755:/src/surf/xml/surfxml_parseplatf.cpp diff --git a/src/surf/xml/surfxml_parseplatf.cpp b/src/surf/xml/surfxml_parseplatf.cpp index 2194009bd3..14767edce3 100644 --- a/src/surf/xml/surfxml_parseplatf.cpp +++ b/src/surf/xml/surfxml_parseplatf.cpp @@ -1,125 +1,70 @@ -/* Copyright (c) 2006-2015. The SimGrid Team. - * All rights reserved. */ +/* Copyright (c) 2006-2018. The SimGrid Team. All rights reserved. */ /* This program is free software; you can redistribute it and/or modify it * under the terms of the license (GNU LGPL) which comes with this package. */ -#include "xbt/misc.h" -#include "xbt/log.h" -#include "xbt/str.h" -#include "xbt/dict.h" +#include "surf/surf.hpp" +#include "instr/instr_interface.hpp" // TRACE_start(). FIXME: remove by subscribing tracing to the surf signals #include "src/surf/cpu_interface.hpp" #include "src/surf/network_interface.hpp" -#include "src/instr/instr_private.h" // TRACE_start(). FIXME: remove by subscribing tracing to the surf signals +#include "src/surf/surf_interface.hpp" +#include "src/surf/xml/platf_private.hpp" -#include "src/surf/xml/platf.hpp" +#include -#if HAVE_LUA -extern "C" { -#include "src/bindings/lua/simgrid_lua.h" + +#if SIMGRID_HAVE_LUA +#include "src/bindings/lua/simgrid_lua.hpp" #include /* Always include this when calling Lua */ #include /* Always include this when calling Lua */ #include /* Prototype for luaL_openlibs(), */ -} #endif XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(surf_parse); -/* - * Allow the cluster tag to mess with the parsing buffer. - * (this will probably become obsolete once the cluster tag do not mess with the parsing callbacks directly) - */ - -/* This buffer is used to store the original buffer before substituting it by out own buffer. Useful for the cluster tag */ -static xbt_dynar_t surfxml_bufferstack_stack = nullptr; -int surfxml_bufferstack_size = 2048; - -static char *old_buff = nullptr; - -XBT_IMPORT_NO_EXPORT(unsigned int) surfxml_buffer_stack_stack_ptr; -XBT_IMPORT_NO_EXPORT(unsigned int) surfxml_buffer_stack_stack[1024]; - -void surfxml_bufferstack_push(int new_one) -{ - if (!new_one) - old_buff = surfxml_bufferstack; - else { - xbt_dynar_push(surfxml_bufferstack_stack, &surfxml_bufferstack); - surfxml_bufferstack = xbt_new0(char, surfxml_bufferstack_size); - } -} - -void surfxml_bufferstack_pop(int new_one) -{ - if (!new_one) - surfxml_bufferstack = old_buff; - else { - free(surfxml_bufferstack); - xbt_dynar_pop(surfxml_bufferstack_stack, &surfxml_bufferstack); - } -} - -/* - * Trace related stuff - */ - -xbt_dict_t traces_set_list = nullptr; -XBT_PRIVATE xbt_dict_t trace_connect_list_host_avail = nullptr; -XBT_PRIVATE xbt_dict_t trace_connect_list_host_speed = nullptr; -XBT_PRIVATE xbt_dict_t trace_connect_list_link_avail = nullptr; -XBT_PRIVATE xbt_dict_t trace_connect_list_link_bw = nullptr; -XBT_PRIVATE xbt_dict_t trace_connect_list_link_lat = nullptr; +/* Trace related stuff */ +XBT_PRIVATE std::unordered_map traces_set_list; +XBT_PRIVATE std::unordered_map trace_connect_list_host_avail; +XBT_PRIVATE std::unordered_map trace_connect_list_host_speed; +XBT_PRIVATE std::unordered_map trace_connect_list_link_avail; +XBT_PRIVATE std::unordered_map trace_connect_list_link_bw; +XBT_PRIVATE std::unordered_map trace_connect_list_link_lat; -void sg_platf_trace_connect(sg_platf_trace_connect_cbarg_t trace_connect) +void sg_platf_trace_connect(simgrid::kernel::routing::TraceConnectCreationArgs* trace_connect) { - xbt_assert(xbt_dict_get_or_null(traces_set_list, trace_connect->trace), - "Cannot connect trace %s to %s: trace unknown", - trace_connect->trace, - trace_connect->element); + xbt_assert(traces_set_list.find(trace_connect->trace) != traces_set_list.end(), + "Cannot connect trace %s to %s: trace unknown", trace_connect->trace.c_str(), + trace_connect->element.c_str()); switch (trace_connect->kind) { - case SURF_TRACE_CONNECT_KIND_HOST_AVAIL: - xbt_dict_set(trace_connect_list_host_avail, - trace_connect->trace, - xbt_strdup(trace_connect->element), nullptr); - break; - case SURF_TRACE_CONNECT_KIND_SPEED: - xbt_dict_set(trace_connect_list_host_speed, trace_connect->trace, - xbt_strdup(trace_connect->element), nullptr); - break; - case SURF_TRACE_CONNECT_KIND_LINK_AVAIL: - xbt_dict_set(trace_connect_list_link_avail, - trace_connect->trace, - xbt_strdup(trace_connect->element), nullptr); - break; - case SURF_TRACE_CONNECT_KIND_BANDWIDTH: - xbt_dict_set(trace_connect_list_link_bw, - trace_connect->trace, - xbt_strdup(trace_connect->element), nullptr); - break; - case SURF_TRACE_CONNECT_KIND_LATENCY: - xbt_dict_set(trace_connect_list_link_lat, trace_connect->trace, - xbt_strdup(trace_connect->element), nullptr); - break; - default: - surf_parse_error("Cannot connect trace %s to %s: kind of trace unknown", - trace_connect->trace, trace_connect->element); - break; + case simgrid::kernel::routing::TraceConnectKind::HOST_AVAIL: + trace_connect_list_host_avail.insert({trace_connect->trace, trace_connect->element}); + break; + case simgrid::kernel::routing::TraceConnectKind::SPEED: + trace_connect_list_host_speed.insert({trace_connect->trace, trace_connect->element}); + break; + case simgrid::kernel::routing::TraceConnectKind::LINK_AVAIL: + trace_connect_list_link_avail.insert({trace_connect->trace, trace_connect->element}); + break; + case simgrid::kernel::routing::TraceConnectKind::BANDWIDTH: + trace_connect_list_link_bw.insert({trace_connect->trace, trace_connect->element}); + break; + case simgrid::kernel::routing::TraceConnectKind::LATENCY: + trace_connect_list_link_lat.insert({trace_connect->trace, trace_connect->element}); + break; + default: + surf_parse_error(std::string("Cannot connect trace ") + trace_connect->trace + " to " + trace_connect->element + + ": unknown kind of trace"); + break; } } - -/* ***************************************** */ - static int after_config_done; void parse_after_config() { - if (!after_config_done) { + if (not after_config_done) { TRACE_start(); - /* Register classical callbacks */ - storage_register_callbacks(); - after_config_done = 1; } } @@ -127,14 +72,14 @@ void parse_after_config() { /* This function acts as a main in the parsing area. */ void parse_platform_file(const char *file) { -#if HAVE_LUA +#if SIMGRID_HAVE_LUA int len = (file == nullptr ? 0 : strlen(file)); int is_lua = (file != nullptr && len > 3 && file[len - 3] == 'l' && file[len - 2] == 'u' && file[len - 1] == 'a'); #endif sg_platf_init(); -#if HAVE_LUA +#if SIMGRID_HAVE_LUA /* Check if file extension is "lua". If so, we will use * the lua bindings to parse the platform file (since it is * written in lua). If not, we will use the (old?) XML parser @@ -147,99 +92,75 @@ void parse_platform_file(const char *file) /* Run the script */ if (lua_pcall(L, 0, 0, 0)) { - XBT_ERROR("FATAL ERROR:\n %s: %s\n\n", "Lua call failed. Errormessage:", lua_tostring(L, -1)); - xbt_die("Lua call failed. See Log"); + XBT_ERROR("FATAL ERROR:\n %s: %s\n\n", "Lua call failed. Error message:", lua_tostring(L, -1)); + xbt_die("Lua call failed. See Log"); } + lua_close(L); + return; } - else #endif - { // Use XML parser - - int parse_status; - /* init the flex parser */ - surfxml_buffer_stack_stack_ptr = 1; - surfxml_buffer_stack_stack[0] = 0; - after_config_done = 0; - surf_parse_open(file); + // Use XML parser - traces_set_list = xbt_dict_new_homogeneous(nullptr); - trace_connect_list_host_avail = xbt_dict_new_homogeneous(free); - trace_connect_list_host_speed = xbt_dict_new_homogeneous(free); - trace_connect_list_link_avail = xbt_dict_new_homogeneous(free); - trace_connect_list_link_bw = xbt_dict_new_homogeneous(free); - trace_connect_list_link_lat = xbt_dict_new_homogeneous(free); + int parse_status; - /* Init my data */ - if (!surfxml_bufferstack_stack) - surfxml_bufferstack_stack = xbt_dynar_new(sizeof(char *), nullptr); + /* init the flex parser */ + after_config_done = 0; + surf_parse_open(file); - /* Do the actual parsing */ - parse_status = surf_parse(); + /* Do the actual parsing */ + parse_status = surf_parse(); - /* connect all traces relative to hosts */ - xbt_dict_cursor_t cursor = nullptr; - char *trace_name, *elm; + /* connect all traces relative to hosts */ + for (auto const& elm : trace_connect_list_host_avail) { + xbt_assert(traces_set_list.find(elm.first) != traces_set_list.end(), "Trace %s undefined", elm.first.c_str()); + tmgr_trace_t trace = traces_set_list.at(elm.first); - xbt_dict_foreach(trace_connect_list_host_avail, cursor, trace_name, elm) { - tmgr_trace_t trace = (tmgr_trace_t) xbt_dict_get_or_null(traces_set_list, trace_name); - xbt_assert(trace, "Trace %s undefined", trace_name); + simgrid::s4u::Host* host = sg_host_by_name(elm.second.c_str()); + xbt_assert(host, "Host %s undefined", elm.second.c_str()); + simgrid::surf::Cpu* cpu = host->pimpl_cpu; - simgrid::s4u::Host *host = sg_host_by_name(elm); - xbt_assert(host, "Host %s undefined", elm); - simgrid::surf::Cpu *cpu = host->pimpl_cpu; + cpu->setStateTrace(trace); + } - cpu->setStateTrace(trace); - } - xbt_dict_foreach(trace_connect_list_host_speed, cursor, trace_name, elm) { - tmgr_trace_t trace = (tmgr_trace_t) xbt_dict_get_or_null(traces_set_list, trace_name); - xbt_assert(trace, "Trace %s undefined", trace_name); + for (auto const& elm : trace_connect_list_host_speed) { + xbt_assert(traces_set_list.find(elm.first) != traces_set_list.end(), "Trace %s undefined", elm.first.c_str()); + tmgr_trace_t trace = traces_set_list.at(elm.first); - simgrid::s4u::Host *host = sg_host_by_name(elm); - xbt_assert(host, "Host %s undefined", elm); - simgrid::surf::Cpu *cpu = host->pimpl_cpu; + simgrid::s4u::Host* host = sg_host_by_name(elm.second.c_str()); + xbt_assert(host, "Host %s undefined", elm.second.c_str()); + simgrid::surf::Cpu* cpu = host->pimpl_cpu; - cpu->setSpeedTrace(trace); - } - xbt_dict_foreach(trace_connect_list_link_avail, cursor, trace_name, elm) { - tmgr_trace_t trace = (tmgr_trace_t) xbt_dict_get_or_null(traces_set_list, trace_name); - xbt_assert(trace, "Trace %s undefined", trace_name); - Link *link = Link::byName(elm); - xbt_assert(link, "Link %s undefined", elm); - link->setStateTrace(trace); - } - - xbt_dict_foreach(trace_connect_list_link_bw, cursor, trace_name, elm) { - tmgr_trace_t trace = (tmgr_trace_t) xbt_dict_get_or_null(traces_set_list, trace_name); - xbt_assert(trace, "Trace %s undefined", trace_name); - Link *link = Link::byName(elm); - xbt_assert(link, "Link %s undefined", elm); - link->setBandwidthTrace(trace); - } - - xbt_dict_foreach(trace_connect_list_link_lat, cursor, trace_name, elm) { - tmgr_trace_t trace = (tmgr_trace_t) xbt_dict_get_or_null(traces_set_list, trace_name); - xbt_assert(trace, "Trace %s undefined", trace_name); - Link *link = Link::byName(elm); - xbt_assert(link, "Link %s undefined", elm); - link->setLatencyTrace(trace); - } + cpu->set_speed_trace(trace); + } - /* Free my data */ - xbt_dict_free(&trace_connect_list_host_avail); - xbt_dict_free(&trace_connect_list_host_speed); - xbt_dict_free(&trace_connect_list_link_avail); - xbt_dict_free(&trace_connect_list_link_bw); - xbt_dict_free(&trace_connect_list_link_lat); - xbt_dict_free(&traces_set_list); - xbt_dynar_free(&surfxml_bufferstack_stack); + for (auto const& elm : trace_connect_list_link_avail) { + xbt_assert(traces_set_list.find(elm.first) != traces_set_list.end(), "Trace %s undefined", elm.first.c_str()); + tmgr_trace_t trace = traces_set_list.at(elm.first); - surf_parse_close(); + sg_link_t link = simgrid::s4u::Link::by_name(elm.second.c_str()); + xbt_assert(link, "Link %s undefined", elm.second.c_str()); + link->setStateTrace(trace); + } - if (parse_status) - surf_parse_error("Parse error in %s", file); + for (auto const& elm : trace_connect_list_link_bw) { + xbt_assert(traces_set_list.find(elm.first) != traces_set_list.end(), "Trace %s undefined", elm.first.c_str()); + tmgr_trace_t trace = traces_set_list.at(elm.first); + sg_link_t link = simgrid::s4u::Link::by_name(elm.second.c_str()); + xbt_assert(link, "Link %s undefined", elm.second.c_str()); + link->setBandwidthTrace(trace); + } + for (auto const& elm : trace_connect_list_link_lat) { + xbt_assert(traces_set_list.find(elm.first) != traces_set_list.end(), "Trace %s undefined", elm.first.c_str()); + tmgr_trace_t trace = traces_set_list.at(elm.first); + sg_link_t link = simgrid::s4u::Link::by_name(elm.second.c_str()); + xbt_assert(link, "Link %s undefined", elm.second.c_str()); + link->setLatencyTrace(trace); } + surf_parse_close(); + if (parse_status) + surf_parse_error(std::string("Parse error in ") + file); }