1 /* Copyright (c) 2009, 2010. The SimGrid Team.
2 * All rights reserved. */
4 /* This program is free software; you can redistribute it and/or modify it
5 * under the terms of the license (GNU LGPL) which comes with this package. */
7 /* surf_config: configuration infrastructure for the simulation world */
9 #include "xbt/config.h"
11 #include "surf/surf_private.h"
12 #include "surf/surf_routing.h" /* COORD_HOST_LEVEL and COORD_ASR_LEVEL */
13 #include "simix/context.h"
15 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(surf_config, surf,
16 "About the configuration of surf (and the rest of the simulation)");
18 xbt_cfg_t _surf_cfg_set = NULL;
20 /* Parse the command line, looking for options */
21 static void surf_config_cmd_line(int *argc, char **argv)
26 for (i = 1; i < *argc; i++) {
28 if (!strncmp(argv[i], "--cfg=", strlen("--cfg="))) {
29 opt = strchr(argv[i], '=');
32 xbt_cfg_set_parse(_surf_cfg_set, opt);
33 XBT_DEBUG("Did apply '%s' as config setting", opt);
35 } else if (!strncmp(argv[i], "--cfg-help", strlen("--cfg-help") + 1) ||
36 !strncmp(argv[i], "--help", strlen("--help") + 1)) {
38 ("Description of the configuration accepted by this simulator:\n");
39 xbt_cfg_help(_surf_cfg_set);
40 printf("\nYou can also use --help-models to see the details of all models known by this simulator.\n");
42 printf("\nYou can also use --help-tracing to see the details of all tracing options known by this simulator.\n");
45 } else if (!strncmp(argv[i], "--help-models", strlen("--help-models") + 1)) {
46 model_help("workstation", surf_workstation_model_description);
47 model_help("CPU", surf_cpu_model_description);
48 model_help("network", surf_network_model_description);
51 } else if (!strncmp(argv[i], "--help-tracing", strlen("--help-tracing") + 1)) {
56 if (remove_it) { /*remove this from argv */
57 for (j = i + 1; j < *argc; j++) {
58 argv[j - 1] = argv[j];
63 i--; /* compensate effect of next loop incrementation */
69 int _surf_init_status = 0; /* 0: beginning of time;
70 1: pre-inited (cfg_set created);
71 2: inited (running) */
73 /* callback of the workstation/model variable */
74 static void _surf_cfg_cb__workstation_model(const char *name, int pos)
78 xbt_assert(_surf_init_status < 2,
79 "Cannot change the model after the initialization");
81 val = xbt_cfg_get_string(_surf_cfg_set, name);
83 if (!strcmp(val, "help")) {
84 model_help("workstation", surf_workstation_model_description);
88 /* Make sure that the model exists */
89 find_model_description(surf_workstation_model_description, val);
92 /* callback of the cpu/model variable */
93 static void _surf_cfg_cb__cpu_model(const char *name, int pos)
97 xbt_assert(_surf_init_status < 2,
98 "Cannot change the model after the initialization");
100 val = xbt_cfg_get_string(_surf_cfg_set, name);
102 if (!strcmp(val, "help")) {
103 model_help("CPU", surf_cpu_model_description);
107 /* New Module missing */
108 find_model_description(surf_cpu_model_description, val);
111 /* callback of the cpu/model variable */
112 static void _surf_cfg_cb__optimization_mode(const char *name, int pos)
116 xbt_assert(_surf_init_status < 2,
117 "Cannot change the model after the initialization");
119 val = xbt_cfg_get_string(_surf_cfg_set, name);
121 if (!strcmp(val, "help")) {
122 model_help("optimization", surf_optimization_mode_description);
126 /* New Module missing */
127 find_model_description(surf_optimization_mode_description, val);
130 /* callback of the workstation_model variable */
131 static void _surf_cfg_cb__network_model(const char *name, int pos)
135 xbt_assert(_surf_init_status < 2,
136 "Cannot change the model after the initialization");
138 val = xbt_cfg_get_string(_surf_cfg_set, name);
140 if (!strcmp(val, "help")) {
141 model_help("network", surf_network_model_description);
145 /* New Module missing */
146 find_model_description(surf_network_model_description, val);
150 /* callbacks of the network models values */
151 static void _surf_cfg_cb__tcp_gamma(const char *name, int pos)
153 sg_tcp_gamma = xbt_cfg_get_double(_surf_cfg_set, name);
156 static void _surf_cfg_cb__maxmin_precision(const char* name, int pos)
158 sg_maxmin_precision = xbt_cfg_get_double(_surf_cfg_set, name);
161 static void _surf_cfg_cb__sender_gap(const char* name, int pos)
163 sg_sender_gap = xbt_cfg_get_double(_surf_cfg_set, name);
166 static void _surf_cfg_cb__latency_factor(const char *name, int pos)
168 sg_latency_factor = xbt_cfg_get_double(_surf_cfg_set, name);
171 static void _surf_cfg_cb__bandwidth_factor(const char *name, int pos)
173 sg_bandwidth_factor = xbt_cfg_get_double(_surf_cfg_set, name);
176 static void _surf_cfg_cb__weight_S(const char *name, int pos)
178 sg_weight_S_parameter = xbt_cfg_get_double(_surf_cfg_set, name);
181 static void _surf_cfg_cb__surf_maxmin_selective_update(const char *name,
184 sg_maxmin_selective_update = xbt_cfg_get_int(_surf_cfg_set, name);
187 /* callback of the inclusion path */
188 static void _surf_cfg_cb__surf_path(const char *name, int pos)
190 char *path = xbt_cfg_get_string_at(_surf_cfg_set, name, pos);
191 xbt_dynar_push(surf_path, &path);
194 /* callback to decide if we want to use the model-checking */
195 #include "xbt_modinter.h"
196 extern int _surf_do_model_check; /* this variable lives in xbt_main until I find a right location for it */
198 static void _surf_cfg_cb_model_check(const char *name, int pos)
200 _surf_do_model_check = xbt_cfg_get_int(_surf_cfg_set, name);
202 if (_surf_do_model_check) {
203 /* Tell modules using mallocators that they shouldn't. MC don't like them */
209 extern int _surf_do_verbose_exit;
211 static void _surf_cfg_cb_verbose_exit(const char *name, int pos)
213 _surf_do_verbose_exit = xbt_cfg_get_int(_surf_cfg_set, name);
217 static void _surf_cfg_cb_context_factory(const char *name, int pos)
219 smx_context_factory_name = xbt_cfg_get_string(_surf_cfg_set, name);
222 static void _surf_cfg_cb_context_stack_size(const char *name, int pos)
224 smx_context_stack_size = xbt_cfg_get_int(_surf_cfg_set, name) * 1024;
227 static void _surf_cfg_cb_contexts_nthreads(const char *name, int pos)
229 SIMIX_context_set_nthreads(xbt_cfg_get_int(_surf_cfg_set, name));
232 static void _surf_cfg_cb_contexts_parallel_threshold(const char *name, int pos)
234 SIMIX_context_set_parallel_threshold(xbt_cfg_get_int(_surf_cfg_set, name));
237 static void _surf_cfg_cb_contexts_parallel_mode(const char *name, int pos)
239 const char* mode_name = xbt_cfg_get_string(_surf_cfg_set, name);
240 if (!strcmp(mode_name, "posix")) {
241 SIMIX_context_set_parallel_mode(XBT_PARMAP_POSIX);
243 else if (!strcmp(mode_name, "futex")) {
244 SIMIX_context_set_parallel_mode(XBT_PARMAP_FUTEX);
246 else if (!strcmp(mode_name, "busy_wait")) {
247 SIMIX_context_set_parallel_mode(XBT_PARMAP_BUSY_WAIT);
250 XBT_WARN("Command line setting of the parallel synchronization mode should "
251 "be one of \"posix\", \"futex\" or \"busy_wait\"");
255 static void _surf_cfg_cb__surf_network_coordinates(const char *name,
258 char *val = xbt_cfg_get_string(_surf_cfg_set, name);
259 if (!strcmp(val, "yes")) {
260 if (!COORD_HOST_LEVEL) {
261 COORD_HOST_LEVEL = xbt_lib_add_level(host_lib,xbt_dynar_free_voidp);
262 COORD_ASR_LEVEL = xbt_lib_add_level(as_router_lib,xbt_dynar_free_voidp);
264 } else if (!strcmp(val, "no")) {
265 if (COORD_HOST_LEVEL)
266 XBT_WARN("Setting of whether to use coordinate cannot be disabled once set.");
268 XBT_WARN("Command line setting of whether to use coordinates must be either \"yes\" or \"no\"");
272 static void _surf_cfg_cb__surf_network_fullduplex(const char *name,
275 sg_network_fullduplex = xbt_cfg_get_int(_surf_cfg_set, name);
279 static void _surf_cfg_cb__gtnets_jitter(const char *name, int pos)
281 sg_gtnets_jitter = xbt_cfg_get_double(_surf_cfg_set, name);
284 static void _surf_cfg_cb__gtnets_jitter_seed(const char *name, int pos)
286 sg_gtnets_jitter_seed = xbt_cfg_get_int(_surf_cfg_set, name);
290 /* create the config set, register what should be and parse the command line*/
291 void surf_config_init(int *argc, char **argv)
293 char *description = xbt_malloc(1024), *p = description;
295 double double_default_value;
296 int default_value_int;
299 /* Create the configuration support */
300 if (_surf_init_status == 0) { /* Only create stuff if not already inited */
301 _surf_init_status = 1;
304 "The model to use for the CPU. Possible values: ");
306 while (*(++p) != '\0');
307 for (i = 0; surf_cpu_model_description[i].name; i++)
308 p += sprintf(p, "%s%s", (i == 0 ? "" : ", "),
309 surf_cpu_model_description[i].name);
311 ".\n (use 'help' as a value to see the long description of each model)");
312 default_value = xbt_strdup("Cas01");
313 xbt_cfg_register(&_surf_cfg_set,
314 "cpu/model", description, xbt_cfgelm_string,
315 &default_value, 1, 1, &_surf_cfg_cb__cpu_model, NULL);
318 "The optimization modes to use for the CPU. Possible values: ");
320 while (*(++p) != '\0');
321 for (i = 0; surf_optimization_mode_description[i].name; i++)
322 p += sprintf(p, "%s%s", (i == 0 ? "" : ", "),
323 surf_optimization_mode_description[i].name);
325 ".\n (use 'help' as a value to see the long description of each optimization mode)");
326 default_value = xbt_strdup("Lazy");
327 xbt_cfg_register(&_surf_cfg_set,
328 "cpu/optim", description, xbt_cfgelm_string,
329 &default_value, 1, 1, &_surf_cfg_cb__optimization_mode, NULL);
332 "The model to use for the network. Possible values: ");
334 while (*(++p) != '\0');
335 for (i = 0; surf_network_model_description[i].name; i++)
336 p += sprintf(p, "%s%s", (i == 0 ? "" : ", "),
337 surf_network_model_description[i].name);
339 ".\n (use 'help' as a value to see the long description of each model)");
340 default_value = xbt_strdup("LV08");
341 xbt_cfg_register(&_surf_cfg_set,
342 "network/model", description, xbt_cfgelm_string,
343 &default_value, 1, 1, &_surf_cfg_cb__network_model,
347 "The optimization modes to use for the network. Possible values: ");
349 while (*(++p) != '\0');
350 for (i = 0; surf_optimization_mode_description[i].name; i++)
351 p += sprintf(p, "%s%s", (i == 0 ? "" : ", "),
352 surf_optimization_mode_description[i].name);
354 ".\n (use 'help' as a value to see the long description of each optimization mode)");
355 default_value = xbt_strdup("Lazy");
356 xbt_cfg_register(&_surf_cfg_set,
357 "network/optim", description, xbt_cfgelm_string,
358 &default_value, 1, 1, &_surf_cfg_cb__optimization_mode, NULL);
361 "The model to use for the workstation. Possible values: ");
363 while (*(++p) != '\0');
364 for (i = 0; surf_workstation_model_description[i].name; i++)
365 p += sprintf(p, "%s%s", (i == 0 ? "" : ", "),
366 surf_workstation_model_description[i].name);
368 ".\n (use 'help' as a value to see the long description of each model)");
369 default_value = xbt_strdup("CLM03");
370 xbt_cfg_register(&_surf_cfg_set,
371 "workstation/model", description, xbt_cfgelm_string,
372 &default_value, 1, 1,
373 &_surf_cfg_cb__workstation_model, NULL);
375 xbt_free(description);
377 default_value = xbt_strdup("Full");
378 xbt_cfg_register(&_surf_cfg_set, "routing",
379 "Model to use to store the routing information",
380 xbt_cfgelm_string, &default_value, 1, 1, NULL, NULL);
382 xbt_cfg_register(&_surf_cfg_set, "TCP_gamma",
383 "Size of the biggest TCP window (cat /proc/sys/net/ipv4/tcp_[rw]mem for recv/send window; Use the last given value, which is the max window size)",
384 xbt_cfgelm_double, NULL, 1, 1,
385 _surf_cfg_cb__tcp_gamma, NULL);
386 xbt_cfg_setdefault_double(_surf_cfg_set, "TCP_gamma", 20000.0);
388 xbt_cfg_register(&_surf_cfg_set, "maxmin/precision",
389 "Minimum retained action value when updating simulation",
390 xbt_cfgelm_double, NULL, 1, 1, _surf_cfg_cb__maxmin_precision, NULL);
391 xbt_cfg_setdefault_double(_surf_cfg_set, "maxmin/precision", 0.00001); // FIXME use setdefault everywhere here!
393 /* The parameters of network models */
395 double_default_value = 0.0;
396 xbt_cfg_register(&_surf_cfg_set, "network/sender_gap",
397 "Minimum gap between two overlapping sends",
398 xbt_cfgelm_double, &double_default_value, 1, 1,
399 _surf_cfg_cb__sender_gap, NULL);
401 double_default_value = 1.0;
402 xbt_cfg_register(&_surf_cfg_set, "network/latency_factor",
403 "Correction factor to apply to the provided latency (default value set by network model)",
404 xbt_cfgelm_double, &double_default_value, 1, 1,
405 _surf_cfg_cb__latency_factor, NULL);
406 double_default_value = 1.0;
407 xbt_cfg_register(&_surf_cfg_set, "network/bandwidth_factor",
408 "Correction factor to apply to the provided bandwidth (default value set by network model)",
409 xbt_cfgelm_double, &double_default_value, 1, 1,
410 _surf_cfg_cb__bandwidth_factor, NULL);
411 double_default_value = 0.0;
412 xbt_cfg_register(&_surf_cfg_set, "network/weight_S",
413 "Correction factor to apply to the weight of competing streams(default value set by network model)",
414 xbt_cfgelm_double, &double_default_value, 1, 1,
415 _surf_cfg_cb__weight_S, NULL);
418 xbt_cfg_register(&_surf_cfg_set, "path",
419 "Lookup path for inclusions in platform and deployment XML files",
420 xbt_cfgelm_string, NULL, 0, 0,
421 _surf_cfg_cb__surf_path, NULL);
423 default_value_int = 0;
424 xbt_cfg_register(&_surf_cfg_set, "maxmin_selective_update",
425 "Update the constraint set propagating recursively to others constraints",
426 xbt_cfgelm_int, &default_value_int, 0, 1,
427 _surf_cfg_cb__surf_maxmin_selective_update, NULL);
430 default_value_int = 0;
431 xbt_cfg_register(&_surf_cfg_set, "model-check",
432 "Activate the model-checking of the \"simulated\" system (EXPERIMENTAL -- msg only for now)",
433 xbt_cfgelm_int, &default_value_int, 0, 1,
434 _surf_cfg_cb_model_check, NULL);
437 FIXME: this function is not setting model-check to it's default value because
438 internally it calls to variable->cb_set that in this case is the function
439 _surf_cfg_cb_model_check which sets it's value to 1 (instead of the default value 0)
440 xbt_cfg_set_int(_surf_cfg_set, "model-check", default_value_int); */
442 /* do verbose-exit */
443 default_value_int = 0;
444 xbt_cfg_register(&_surf_cfg_set, "verbose-exit",
445 "Activate the \"do nothing\" mode in Ctrl-C",
446 xbt_cfgelm_int, &default_value_int, 0, 1,
447 _surf_cfg_cb_verbose_exit, NULL);
450 /* context factory */
451 default_value = xbt_strdup("ucontext");
452 xbt_cfg_register(&_surf_cfg_set, "contexts/factory",
453 "Context factory to use in SIMIX (ucontext, thread or raw)",
454 xbt_cfgelm_string, &default_value, 1, 1, _surf_cfg_cb_context_factory, NULL);
456 /* stack size of contexts in Ko */
457 default_value_int = 128;
458 xbt_cfg_register(&_surf_cfg_set, "contexts/stack_size",
459 "Stack size of contexts in Ko (ucontext or raw only)",
460 xbt_cfgelm_int, &default_value_int, 1, 1,
461 _surf_cfg_cb_context_stack_size, NULL);
463 /* number of parallel threads for user processes */
464 default_value_int = 1;
465 xbt_cfg_register(&_surf_cfg_set, "contexts/nthreads",
466 "Number of parallel threads for user contexts (EXPERIMENTAL)",
467 xbt_cfgelm_int, &default_value_int, 1, 1,
468 _surf_cfg_cb_contexts_nthreads, NULL);
470 /* minimal number of user contexts to be run in parallel */
471 default_value_int = 1;
472 xbt_cfg_register(&_surf_cfg_set, "contexts/parallel_threshold",
473 "Minimal number of user contexts to be run in parallel (raw contexts only)",
474 xbt_cfgelm_int, &default_value_int, 1, 1,
475 _surf_cfg_cb_contexts_parallel_threshold, NULL);
477 /* minimal number of user contexts to be run in parallel */
478 default_value = xbt_strdup("futex");
479 xbt_cfg_register(&_surf_cfg_set, "contexts/parallel_mode",
480 "Synchronization mode to use when running contexts in parallel",
481 xbt_cfgelm_string, &default_value, 1, 1,
482 _surf_cfg_cb_contexts_parallel_mode, NULL);
484 default_value = xbt_strdup("no");
485 xbt_cfg_register(&_surf_cfg_set, "coordinates",
486 "\"yes\" or \"no\" (FIXME: document)",
487 xbt_cfgelm_string, &default_value, 1, 1,
488 _surf_cfg_cb__surf_network_coordinates, NULL);
489 xbt_cfg_setdefault_string(_surf_cfg_set, "coordinates", default_value);
491 default_value_int = 0;
492 xbt_cfg_register(&_surf_cfg_set, "fullduplex",
493 "Activate the interferences between uploads and downloads for fluid max-min models (LV08, CM02)",
494 xbt_cfgelm_int, &default_value_int, 0, 1,
495 _surf_cfg_cb__surf_network_fullduplex, NULL);
496 xbt_cfg_setdefault_int(_surf_cfg_set, "fullduplex", default_value_int);
499 xbt_cfg_register(&_surf_cfg_set, "gtnets_jitter",
500 "Double value to oscillate the link latency, uniformly in random interval [-latency*gtnets_jitter,latency*gtnets_jitter)",
501 xbt_cfgelm_double, NULL, 1, 1,
502 _surf_cfg_cb__gtnets_jitter, NULL);
503 xbt_cfg_setdefault_double(_surf_cfg_set, "gtnets_jitter", 0.0);
505 default_value_int = 10;
506 xbt_cfg_register(&_surf_cfg_set, "gtnets_jitter_seed",
507 "Use a positive seed to reproduce jitted results, value must be in [1,1e8], default is 10",
508 xbt_cfgelm_int, &default_value_int, 0, 1,
509 _surf_cfg_cb__gtnets_jitter_seed, NULL);
512 xbt_cfg_register(&_surf_cfg_set, "ns3/TcpModel",
513 "The ns3 tcp model can be : NewReno or Reno or Tahoe",
514 xbt_cfgelm_string, NULL, 1, 1,
516 xbt_cfg_setdefault_string(_surf_cfg_set, "ns3/TcpModel", "default");
519 /* retrieves the current directory of the current process */
520 const char *initial_path = __surf_get_initial_path();
521 xbt_assert((initial_path),
522 "__surf_get_initial_path() failed! Can't resolves current Windows directory");
524 surf_path = xbt_dynar_new(sizeof(char *), NULL);
525 xbt_cfg_setdefault_string(_surf_cfg_set, "path", initial_path);
529 surf_config_cmd_line(argc, argv);
531 XBT_WARN("Call to surf_config_init() after initialization ignored");
535 void surf_config_finalize(void)
537 if (!_surf_init_status)
538 return; /* Not initialized yet. Nothing to do */
540 xbt_cfg_free(&_surf_cfg_set);
541 _surf_init_status = 0;
544 /* Pick the right models for CPU, net and workstation, and call their model_init_preparse */
545 void surf_config_models_setup()
547 char *workstation_model_name;
548 int workstation_id = -1;
549 char *network_model_name = NULL;
550 char *cpu_model_name = NULL;
552 workstation_model_name =
553 xbt_cfg_get_string(_surf_cfg_set, "workstation/model");
554 network_model_name = xbt_cfg_get_string(_surf_cfg_set, "network/model");
555 cpu_model_name = xbt_cfg_get_string(_surf_cfg_set, "cpu/model");
557 /* Check whether we use a net/cpu model differing from the default ones, in which case
558 * we should switch to the "compound" workstation model to correctly dispatch stuff to
559 * the right net/cpu models.
562 if((!xbt_cfg_is_default_value(_surf_cfg_set, "network/model") ||
563 !xbt_cfg_is_default_value(_surf_cfg_set, "cpu/model")) &&
564 xbt_cfg_is_default_value(_surf_cfg_set, "workstation/model"))
566 const char *val = "compound";
568 ("Switching workstation model to compound since you changed the network and/or cpu model(s)");
569 xbt_cfg_set_string(_surf_cfg_set, "workstation/model", val);
570 workstation_model_name = (char *) "compound";
573 XBT_DEBUG("Workstation model: %s", workstation_model_name);
575 find_model_description(surf_workstation_model_description,
576 workstation_model_name);
577 if (!strcmp(workstation_model_name, "compound")) {
581 xbt_assert(cpu_model_name,
582 "Set a cpu model to use with the 'compound' workstation model");
584 xbt_assert(network_model_name,
585 "Set a network model to use with the 'compound' workstation model");
588 find_model_description(surf_network_model_description,
591 find_model_description(surf_cpu_model_description, cpu_model_name);
593 surf_cpu_model_description[cpu_id].model_init_preparse();
594 surf_network_model_description[network_id].model_init_preparse();
597 XBT_DEBUG("Call workstation_model_init");
598 surf_workstation_model_description[workstation_id].model_init_preparse();