/* Turn something like "1-4,6,9-11" into the vector {1,2,3,4,6,9,10,11} */
static std::vector<int>* explodesRadical(const char* radicals)
{
std::vector<int>* exploded = new std::vector<int>();
char* groups;
unsigned int iter;
// Make all hosts
xbt_dynar_t radical_elements = xbt_str_split(radicals, ",");
xbt_dynar_foreach (radical_elements, iter, groups) {
xbt_dynar_t radical_ends = xbt_str_split(groups, "-");
int start = surf_parse_get_int(xbt_dynar_get_as(radical_ends, 0, char*));
int end = 0;
switch (xbt_dynar_length(radical_ends)) {
case 1:
end = start;
break;
case 2:
end = surf_parse_get_int(xbt_dynar_get_as(radical_ends, 1, char*));
break;
default:
surf_parse_error("Malformed radical: %s", groups);
break;
}
for (int i = start; i <= end; i++)
exploded->push_back(i);
xbt_dynar_free(&radical_ends);
}
static xbt_dynar_t parse_factor(const char *smpi_coef_string)
{
char *value = NULL;
unsigned int iter = 0;
s_smpi_factor_t fact;
xbt_dynar_t smpi_factor, radical_elements, radical_elements2 = NULL;
smpi_factor = xbt_dynar_new(sizeof(s_smpi_factor_t), NULL);
radical_elements = xbt_str_split(smpi_coef_string, ";");
xbt_dynar_foreach(radical_elements, iter, value) {
radical_elements2 = xbt_str_split(value, ":");
surf_parse_assert(xbt_dynar_length(radical_elements2) == 2,
"Malformed radical '%s' for smpi factor. I was expecting something like 'a:b'", value);
char *errmsg = bprintf("Invalid factor in chunk #%d: %%s", iter+1);
fact.factor = xbt_str_parse_int(xbt_dynar_get_as(radical_elements2, 0, char *), errmsg);
xbt_free(errmsg);
fact.value = xbt_str_parse_double(xbt_dynar_get_as(radical_elements2, 1, char *), errmsg);
errmsg = bprintf("Invalid factor value in chunk #%d: %%s", iter+1);
xbt_free(errmsg);
xbt_dynar_push_as(smpi_factor, s_smpi_factor_t, fact);
XBT_DEBUG("smpi_factor:\t%ld : %f", fact.factor, fact.value);
xbt_dynar_free(&radical_elements2);
}
static void parse_ns3_add_cluster(sg_platf_cluster_cbarg_t cluster)
{
const char *cluster_prefix = cluster->prefix;
const char *cluster_suffix = cluster->suffix;
const char *cluster_radical = cluster->radical;
const char *cluster_bb_bw = bprintf("%f",cluster->bb_bw);
const char *cluster_bb_lat = bprintf("%f",cluster->bb_lat);
const char *cluster_bw = bprintf("%f",cluster->bw);
const char *cluster_lat = bprintf("%f",cluster->lat);
const char *groups = NULL;
int start, end, i;
unsigned int iter;
xbt_dynar_t radical_elements;
xbt_dynar_t radical_ends;
xbt_dynar_t tab_elements_num = xbt_dynar_new(sizeof(int), NULL);
char *router_id,*host_id;
radical_elements = xbt_str_split(cluster_radical, ",");
xbt_dynar_foreach(radical_elements, iter, groups) {
radical_ends = xbt_str_split(groups, "-");
switch (xbt_dynar_length(radical_ends)) {
case 1:
start = surf_parse_get_int(xbt_dynar_get_as(radical_ends, 0, char *));
xbt_dynar_push_as(tab_elements_num, int, start);
router_id = bprintf("ns3_%s%d%s", cluster_prefix, start, cluster_suffix);
xbt_lib_set(host_lib,
router_id,
NS3_HOST_LEVEL,
ns3_add_host_cluster(router_id)
);
XBT_DEBUG("NS3_ADD_ROUTER '%s'",router_id);
free(router_id);
break;
case 2:
start = surf_parse_get_int(xbt_dynar_get_as(radical_ends, 0, char *));
end = surf_parse_get_int(xbt_dynar_get_as(radical_ends, 1, char *));
for (i = start; i <= end; i++){
xbt_dynar_push_as(tab_elements_num, int, i);
router_id = bprintf("ns3_%s%d%s", cluster_prefix, i, cluster_suffix);
xbt_lib_set(host_lib,
router_id,
NS3_HOST_LEVEL,
ns3_add_host_cluster(router_id)
);
XBT_DEBUG("NS3_ADD_ROUTER '%s'",router_id);
free(router_id);
}
break;
default:
XBT_DEBUG("Malformed radical");
}
}
static void mytest(const char *input, const char *patterns,
const char *expected)
{
xbt_dynar_t dyn_patterns; /* splited string */
xbt_dict_t p; /* patterns */
unsigned int cpt;
char *str; /*foreach */
xbt_strbuff_t sb; /* what we test */
p = xbt_dict_new_homogeneous(free);
dyn_patterns = xbt_str_split(patterns, " ");
xbt_dynar_foreach(dyn_patterns, cpt, str) {
xbt_dynar_t keyvals = xbt_str_split(str, "=");
char *key = xbt_dynar_get_as(keyvals, 0, char *);
char *val = xbt_dynar_get_as(keyvals, 1, char *);
xbt_str_subst(key, '_', ' ', 0); // to put space in names without breaking the enclosing dynar_foreach
xbt_dict_set(p, key, xbt_strdup(val), NULL);
xbt_dynar_free(&keyvals);
}
static void parse_ns3_add_cluster(sg_platf_cluster_cbarg_t cluster)
{
const char *groups = nullptr;
int start, end, i;
unsigned int iter;
xbt_dynar_t tab_elements_num = xbt_dynar_new(sizeof(int), nullptr);
char *router_id,*host_id;
xbt_dynar_t radical_elements = xbt_str_split(cluster->radical, ",");
xbt_dynar_foreach(radical_elements, iter, groups) {
xbt_dynar_t radical_ends = xbt_str_split(groups, "-");
switch (xbt_dynar_length(radical_ends)) {
case 1:
start = surf_parse_get_int(xbt_dynar_get_as(radical_ends, 0, char *));
xbt_dynar_push_as(tab_elements_num, int, start);
router_id = bprintf("ns3_%s%d%s", cluster->prefix, start, cluster->suffix);
simgrid::s4u::Host::by_name_or_create(router_id)->extension_set(NS3_EXTENSION_ID, ns3_add_host_cluster(router_id));
XBT_DEBUG("NS3_ADD_ROUTER '%s'",router_id);
free(router_id);
break;
case 2:
start = surf_parse_get_int(xbt_dynar_get_as(radical_ends, 0, char *));
end = surf_parse_get_int(xbt_dynar_get_as(radical_ends, 1, char *));
for (i = start; i <= end; i++){
xbt_dynar_push_as(tab_elements_num, int, i);
router_id = bprintf("ns3_%s%d%s", cluster->prefix, i, cluster->suffix);
simgrid::s4u::Host::by_name_or_create(router_id)->extension_set(NS3_EXTENSION_ID, ns3_add_host_cluster(router_id));
XBT_DEBUG("NS3_ADD_ROUTER '%s'",router_id);
free(router_id);
}
break;
default:
XBT_DEBUG("Malformed radical");
}
}
tmgr_trace_t tmgr_trace_new_from_string(const char *id, const char *input,
double periodicity)
{
tmgr_trace_t trace = NULL;
int linecount = 0;
s_tmgr_event_t event;
tmgr_event_t last_event = NULL;
xbt_dynar_t list;
unsigned int cpt;
char *val;
if (trace_list) {
trace = xbt_dict_get_or_null(trace_list, id);
if (trace) {
XBT_WARN("Ignoring redefinition of trace %s", id);
return trace;
}
}
xbt_assert(periodicity >= 0,
"Invalid periodicity %lg (must be positive)", periodicity);
trace = xbt_new0(s_tmgr_trace_t, 1);
trace->type = e_trace_list;
trace->s_list.event_list = xbt_dynar_new(sizeof(s_tmgr_event_t), NULL);
list = xbt_str_split(input, "\n\r");
xbt_dynar_foreach(list, cpt, val) {
linecount++;
xbt_str_trim(val, " \t\n\r\x0B");
if (val[0] == '#' || val[0] == '\0' || val[0] == '%')
continue;
if (sscanf(val, "PERIODICITY " "%lg" "\n", &periodicity) == 1)
continue;
if (sscanf(val, "%lg" " " "%lg" "\n", &event.delta, &event.value) != 2)
xbt_die("%s:%d: Syntax error in trace\n%s", id, linecount, input);
if (last_event) {
if (last_event->delta > event.delta) {
xbt_die("%s:%d: Invalid trace: Events must be sorted, "
"but time %lg > time %lg.\n%s",
id, linecount, last_event->delta, event.delta, input);
}
last_event->delta = event.delta - last_event->delta;
}
xbt_dynar_push(trace->s_list.event_list, &event);
last_event =
xbt_dynar_get_ptr(trace->s_list.event_list,
xbt_dynar_length(trace->s_list.event_list) - 1);
}
NetworkIBModel::NetworkIBModel()
: NetworkSmpiModel() {
m_haveGap=false;
active_nodes=NULL;
const char* IB_factors_string=sg_cfg_get_string("smpi/IB_penalty_factors");
xbt_dynar_t radical_elements = xbt_str_split(IB_factors_string, ";");
if(xbt_dynar_length(radical_elements)!=3)
surf_parse_error("smpi/IB_penalty_factors should be provided and contain 3 elements, semi-colon separated : for example 0.965;0.925;1.35");
Be = atof(xbt_dynar_get_as(radical_elements, 0, char *));
Bs = atof(xbt_dynar_get_as(radical_elements, 1, char *));
ys = atof(xbt_dynar_get_as(radical_elements, 2, char *));
}
xbt_workload_elm_t xbt_workload_elm_parse(char *line)
{
xbt_workload_elm_t res = xbt_new(s_xbt_workload_elm_t, 1);
res->date = -1;
res->comment = NULL; /* it's not enough to memset for valgrind, apparently */
res->who = NULL;
res->str_arg = NULL;
xbt_dynar_t w = xbt_str_split(line, " ");
if (xbt_dynar_length(w) == 0) {
free(res);
xbt_dynar_free(&w);
return NULL;
}
char **words = xbt_dynar_get_ptr(w, 0);
int i = 0;
if (words[i][0] == '[') {
sscanf(words[i] + 1, "%lg", &(res->date));
i++;
}
res->who = xbt_strdup(words[i++]);
if (!strcmp(words[i], "recv")) {
res->action = XBT_WORKLOAD_RECV;
res->str_arg = xbt_strdup(words[++i]);
sscanf(words[++i], "%lg", &(res->d_arg));
} else if (!strcmp(words[i], "send")) {
res->action = XBT_WORKLOAD_SEND;
res->str_arg = xbt_strdup(words[++i]);
sscanf(words[++i], "%lg", &(res->d_arg));
} else if (!strcmp(words[i], "compute")) {
res->action = XBT_WORKLOAD_COMPUTE;
sscanf(words[++i], "%lg", &(res->d_arg));
} else {
xbt_die("Unparsable command: %s (in %s)", words[i], line);
}
i++;
if (words[i] && words[i][0] == '#') {
res->comment = xbt_strdup(strchr(line, '#') + 1);
}
xbt_dynar_free(&w);
return res;
}
tmgr_trace_t tmgr_trace_new_from_string(const char *name, const char *input, double periodicity)
{
int linecount = 0;
tmgr_event_t last_event = nullptr;
unsigned int cpt;
char *val;
xbt_assert(trace_list.find(name) == trace_list.end(), "Refusing to define trace %s twice", name);
xbt_assert(periodicity >= 0, "Invalid periodicity %g (must be positive)", periodicity);
tmgr_trace_t trace = new simgrid::trace_mgr::trace();
xbt_dynar_t list = xbt_str_split(input, "\n\r");
xbt_dynar_foreach(list, cpt, val) {
s_tmgr_event_t event;
linecount++;
xbt_str_trim(val, " \t\n\r\x0B");
if (val[0] == '#' || val[0] == '\0' || val[0] == '%') // pass comments
continue;
if (sscanf(val, "PERIODICITY " "%lg" "\n", &periodicity) == 1)
continue;
xbt_assert(sscanf(val, "%lg" " " "%lg" "\n", &event.delta, &event.value) == 2,
"%s:%d: Syntax error in trace\n%s", name, linecount, input);
if (last_event) {
xbt_assert(last_event->delta <= event.delta,
"%s:%d: Invalid trace: Events must be sorted, but time %g > time %g.\n%s",
name, linecount, last_event->delta, event.delta, input);
last_event->delta = event.delta - last_event->delta;
} else {
if(event.delta > 0.0){
s_tmgr_event_t first_event;
first_event.delta=event.delta;
first_event.value=-1.0;
xbt_dynar_push(trace->event_list, &first_event);
}
}
xbt_dynar_push(trace->event_list, &event);
last_event = (tmgr_event_t)xbt_dynar_get_ptr(trace->event_list, xbt_dynar_length(trace->event_list) - 1);
}
xbt_dynar_t xbt_workload_parse_file(char *filename)
{
FILE *file_in;
file_in = fopen(filename, "r");
xbt_assert(file_in, "cannot open tracefile '%s'", filename);
char *str_in = xbt_str_from_file(file_in);
fclose(file_in);
xbt_dynar_t in = xbt_str_split(str_in, "\n");
free(str_in);
xbt_dynar_t cmds =
xbt_dynar_new(sizeof(xbt_workload_elm_t),
xbt_workload_elm_free_voidp);
unsigned int cursor;
char *line;
xbt_dynar_foreach(in, cursor, line) {
xbt_workload_elm_t cmd = xbt_workload_elm_parse(line);
if (cmd)
xbt_dynar_push(cmds, &cmd);
}
void xbt_ex_setup_backtrace(xbt_ex_t * e) //FIXME: This code could be greatly improved/simplifyied with http://cairo.sourcearchive.com/documentation/1.9.4/backtrace-symbols_8c-source.html
{
int i;
/* to get the backtrace from the libc */
char **backtrace_syms;
/* To build the commandline of addr2line */
char *cmd, *curr;
/* to extract the addresses from the backtrace */
char **addrs;
char buff[256];
/* To read the output of addr2line */
FILE *pipe;
char line_func[1024], line_pos[1024];
/* size (in char) of pointers on this arch */
int addr_len = 0;
/* To search for the right executable path when not trivial */
struct stat stat_buf;
char *binary_name = NULL;
xbt_assert(e, "Backtrace not setup yet, cannot set it up for display");
e->bt_strings = NULL;
if (xbt_binary_name == NULL) /* no binary name, nothing to do */
return;
if (e->used <= 1)
return;
/* ignore first one, which is xbt_backtrace_current() */
e->used--;
memmove(e->bt, e->bt + 1, (sizeof *e->bt) * e->used);
backtrace_syms = backtrace_symbols(e->bt, e->used);
/* build the commandline */
if (stat(xbt_binary_name, &stat_buf)) {
/* Damn. binary not in current dir. We'll have to dig the PATH to find it */
for (i = 0; environ[i]; i++) {
if (!strncmp("PATH=", environ[i], 5)) {
xbt_dynar_t path = xbt_str_split(environ[i] + 5, ":");
unsigned int cpt;
char *data;
xbt_dynar_foreach(path, cpt, data) {
free(binary_name);
binary_name = bprintf("%s/%s", data, xbt_binary_name);
if (!stat(binary_name, &stat_buf)) {
/* Found. */
XBT_DEBUG("Looked in the PATH for the binary. Found %s",
binary_name);
break;
}
}
xbt_dynar_free(&path);
if (stat(binary_name, &stat_buf)) {
/* not found */
e->used = 1;
e->bt_strings = xbt_new(char *, 1);
e->bt_strings[0] =
bprintf("(binary '%s' not found in the PATH)", xbt_binary_name);
free(backtrace_syms);
return;
}
break;
}
int console_add_ASroute(lua_State *L) {
s_sg_platf_route_cbarg_t ASroute;
memset(&ASroute,0,sizeof(ASroute));
lua_pushstring(L, "src");
lua_gettable(L, -2);
const char *srcName = lua_tostring(L, -1);
ASroute.src = sg_netcard_by_name_or_null(srcName);
lua_ensure(ASroute.src != nullptr, "Attribute 'src=%s' of AS route does not name a node.", srcName);
lua_pop(L, 1);
lua_pushstring(L, "dst");
lua_gettable(L, -2);
const char *dstName = lua_tostring(L, -1);
ASroute.dst = sg_netcard_by_name_or_null(dstName);
lua_ensure(ASroute.dst != nullptr, "Attribute 'dst=%s' of AS route does not name a node.", dstName);
lua_pop(L, 1);
lua_pushstring(L, "gw_src");
lua_gettable(L, -2);
const char *name = lua_tostring(L, -1);
ASroute.gw_src = sg_netcard_by_name_or_null(name);
lua_ensure(ASroute.gw_src, "Attribute 'gw_src=%s' of AS route does not name a valid node", name);
lua_pop(L, 1);
lua_pushstring(L, "gw_dst");
lua_gettable(L, -2);
name = lua_tostring(L, -1);
ASroute.gw_dst = sg_netcard_by_name_or_null(name);
lua_ensure(ASroute.gw_dst, "Attribute 'gw_dst=%s' of AS route does not name a valid node", name);
lua_pop(L, 1);
lua_pushstring(L,"links");
lua_gettable(L,-2);
ASroute.link_list = new std::vector<Link*>();
xbt_dynar_t names = xbt_str_split(lua_tostring(L, -1), ", \t\r\n");
if (xbt_dynar_is_empty(names)) {
/* unique name with no comma */
ASroute.link_list->push_back(Link::byName(lua_tostring(L, -1)));
} else {
// Several names separated by , \t\r\n
unsigned int cpt;
char *name;
xbt_dynar_foreach(names, cpt, name) {
if (strlen(name)>0) {
Link *link = Link::byName(name);
ASroute.link_list->push_back(link);
}
}
}
lua_pop(L,1);
lua_pushstring(L,"symmetrical");
lua_gettable(L,-2);
if (lua_isstring(L, -1)) {
const char* value = lua_tostring(L, -1);
if (strcmp("YES", value) == 0)
ASroute.symmetrical = true;
else
ASroute.symmetrical = false;
}
else {
ASroute.symmetrical = true;
}
lua_pop(L,1);
sg_platf_new_route(&ASroute);
return 0;
}
int console_add_route(lua_State *L) {
XBT_DEBUG("Adding route");
s_sg_platf_route_cbarg_t route;
memset(&route,0,sizeof(route));
int type;
/* allocating memory for the buffer, I think 2kB should be enough */
surfxml_bufferstack = xbt_new0(char, surfxml_bufferstack_size);
lua_ensure(lua_istable(L, -1), "Bad Arguments to add a route. Should be a table with named arguments");
lua_pushstring(L,"src");
type = lua_gettable(L,-2);
lua_ensure(type == LUA_TSTRING, "Attribute 'src' must be specified for any route and must be a string.");
const char *srcName = lua_tostring(L, -1);
route.src = sg_netcard_by_name_or_null(srcName);
lua_ensure(route.src != nullptr, "Attribute 'src=%s' of route does not name a node.", srcName);
lua_pop(L,1);
lua_pushstring(L,"dest");
type = lua_gettable(L,-2);
lua_ensure(type == LUA_TSTRING, "Attribute 'dest' must be specified for any route and must be a string.");
const char *dstName = lua_tostring(L, -1);
route.dst = sg_netcard_by_name_or_null(dstName);
lua_ensure(route.dst != nullptr, "Attribute 'dst=%s' of route does not name a node.", dstName);
lua_pop(L,1);
lua_pushstring(L,"links");
type = lua_gettable(L,-2);
lua_ensure(type == LUA_TSTRING,
"Attribute 'links' must be specified for any route and must be a string (different links separated by commas or single spaces.");
route.link_list = new std::vector<Link*>();
xbt_dynar_t names = xbt_str_split(lua_tostring(L, -1), ", \t\r\n");
if (xbt_dynar_is_empty(names)) {
/* unique name */
route.link_list->push_back(Link::byName(lua_tostring(L, -1)));
} else {
// Several names separated by , \t\r\n
unsigned int cpt;
char *name;
xbt_dynar_foreach(names, cpt, name) {
if (strlen(name)>0) {
Link *link = Link::byName(name);
route.link_list->push_back(link);
}
}
}
lua_pop(L,1);
/* We are relying on the XML bypassing mechanism since the corresponding sg_platf does not exist yet.
* Et ouais mon pote. That's the way it goes. F34R.
*
* (Note that above this function, there is a #include statement. Is this
* comment related to that statement?)
*/
lua_pushstring(L,"symmetrical");
lua_gettable(L,-2);
if (lua_isstring(L, -1)) {
const char* value = lua_tostring(L, -1);
if (strcmp("YES", value) == 0)
route.symmetrical = true;
else
route.symmetrical = false;
}
else {
route.symmetrical = true;
}
lua_pop(L,1);
route.gw_src = nullptr;
route.gw_dst = nullptr;
sg_platf_new_route(&route);
return 0;
}
