Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
7de2320bee163647fcecf25b6db4ab90438cf0fd
[simgrid.git] / src / surf / surf_config.c
1 /* Copyright (c) 2009, 2010. The SimGrid Team.
2  * All rights reserved.                                                     */
3
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. */
6
7 /* surf_config: configuration infrastructure for the simulation world       */
8
9 #include "xbt/config.h"
10 #include "xbt/log.h"
11 #include "xbt/str.h"
12 #include "surf/surf_private.h"
13 #include "surf/surf_routing.h"  /* COORD_HOST_LEVEL and COORD_ASR_LEVEL */
14 #include "simix/context.h"
15
16 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(surf_config, surf,
17                                 "About the configuration of surf (and the rest of the simulation)");
18
19 xbt_cfg_t _surf_cfg_set = NULL;
20
21 /* Parse the command line, looking for options */
22 static void surf_config_cmd_line(int *argc, char **argv)
23 {
24   int shall_exit = 0;
25   int i, j;
26   char *opt;
27
28   for (j = i = 1; i < *argc; i++) {
29     if (!strncmp(argv[i], "--cfg=", strlen("--cfg="))) {
30       opt = strchr(argv[i], '=');
31       opt++;
32
33       xbt_cfg_set_parse(_surf_cfg_set, opt);
34       XBT_DEBUG("Did apply '%s' as config setting", opt);
35     } else if (!strcmp(argv[i], "--cfg-help") || !strcmp(argv[i], "--help")) {
36       printf
37           ("Description of the configuration accepted by this simulator:\n");
38       xbt_cfg_help(_surf_cfg_set);
39       printf(
40 "\n"
41 "You can also use --help-models to see the details of all models known by this simulator.\n"
42 #ifdef HAVE_TRACING
43 "\n"
44 "You can also use --help-tracing to see the details of all tracing options known by this simulator.\n"
45 #endif
46 "\n"
47 "You can also use --help-logs and --help-log-categories to see the details of logging output.\n"
48 "\n"
49         );
50       shall_exit = 1;
51     } else if (!strcmp(argv[i], "--help-models")) {
52       int k;
53
54       model_help("workstation", surf_workstation_model_description);
55       printf("\n");
56       model_help("CPU", surf_cpu_model_description);
57       printf("\n");
58       model_help("network", surf_network_model_description);
59       printf("\nLong description of all optimization levels accepted by the models of this simulator:\n");
60       for (k = 0; surf_optimization_mode_description[k].name; k++)
61         printf("  %s: %s\n",
62                surf_optimization_mode_description[k].name,
63                surf_optimization_mode_description[k].description);
64       printf("Both network and CPU models have 'Lazy' as default optimization level\n\n");
65       shall_exit = 1;
66 #ifdef HAVE_TRACING
67     } else if (!strcmp(argv[i], "--help-tracing")) {
68       TRACE_help (1);
69       shall_exit = 1;
70 #endif
71     } else {
72       argv[j++] = argv[i];
73     }
74   }
75   if (j < *argc) {
76     argv[j] = NULL;
77     *argc = j;
78   }
79   if (shall_exit)
80     exit(0);
81 }
82
83
84 int _surf_init_status = 0;      /* 0: beginning of time;
85                                    1: pre-inited (cfg_set created);
86                                    2: inited (running) */
87
88 /* callback of the workstation/model variable */
89 static void _surf_cfg_cb__workstation_model(const char *name, int pos)
90 {
91   char *val;
92
93   xbt_assert(_surf_init_status < 2,
94               "Cannot change the model after the initialization");
95
96   val = xbt_cfg_get_string(_surf_cfg_set, name);
97
98   if (!strcmp(val, "help")) {
99     model_help("workstation", surf_workstation_model_description);
100     exit(0);
101   }
102
103   /* Make sure that the model exists */
104   find_model_description(surf_workstation_model_description, val);
105 }
106
107 /* callback of the cpu/model variable */
108 static void _surf_cfg_cb__cpu_model(const char *name, int pos)
109 {
110   char *val;
111
112   xbt_assert(_surf_init_status < 2,
113               "Cannot change the model after the initialization");
114
115   val = xbt_cfg_get_string(_surf_cfg_set, name);
116
117   if (!strcmp(val, "help")) {
118     model_help("CPU", surf_cpu_model_description);
119     exit(0);
120   }
121
122   /* New Module missing */
123   find_model_description(surf_cpu_model_description, val);
124 }
125
126 /* callback of the cpu/model variable */
127 static void _surf_cfg_cb__optimization_mode(const char *name, int pos)
128 {
129   char *val;
130
131   xbt_assert(_surf_init_status < 2,
132               "Cannot change the model after the initialization");
133
134   val = xbt_cfg_get_string(_surf_cfg_set, name);
135
136   if (!strcmp(val, "help")) {
137     model_help("optimization", surf_optimization_mode_description);
138     exit(0);
139   }
140
141   /* New Module missing */
142   find_model_description(surf_optimization_mode_description, val);
143 }
144
145 /* callback of the cpu/model variable */
146 static void _surf_cfg_cb__storage_mode(const char *name, int pos)
147 {
148   char *val;
149
150   xbt_assert(_surf_init_status < 2,
151               "Cannot change the model after the initialization");
152
153   val = xbt_cfg_get_string(_surf_cfg_set, name);
154
155   if (!strcmp(val, "help")) {
156     model_help("storage", surf_storage_model_description);
157     exit(0);
158   }
159
160   /* New Module missing */
161   find_model_description(surf_storage_model_description, val);
162 }
163
164 /* callback of the workstation_model variable */
165 static void _surf_cfg_cb__network_model(const char *name, int pos)
166 {
167   char *val;
168
169   xbt_assert(_surf_init_status < 2,
170               "Cannot change the model after the initialization");
171
172   val = xbt_cfg_get_string(_surf_cfg_set, name);
173
174   if (!strcmp(val, "help")) {
175     model_help("network", surf_network_model_description);
176     exit(0);
177   }
178
179   /* New Module missing */
180   find_model_description(surf_network_model_description, val);
181 }
182
183
184 /* callbacks of the network models values */
185 static void _surf_cfg_cb__tcp_gamma(const char *name, int pos)
186 {
187   sg_tcp_gamma = xbt_cfg_get_double(_surf_cfg_set, name);
188 }
189
190 static void _surf_cfg_cb__maxmin_precision(const char* name, int pos)
191 {
192   sg_maxmin_precision = xbt_cfg_get_double(_surf_cfg_set, name);
193 }
194
195 static void _surf_cfg_cb__sender_gap(const char* name, int pos)
196 {
197   sg_sender_gap = xbt_cfg_get_double(_surf_cfg_set, name);
198 }
199
200 static void _surf_cfg_cb__latency_factor(const char *name, int pos)
201 {
202   sg_latency_factor = xbt_cfg_get_double(_surf_cfg_set, name);
203 }
204
205 static void _surf_cfg_cb__bandwidth_factor(const char *name, int pos)
206 {
207   sg_bandwidth_factor = xbt_cfg_get_double(_surf_cfg_set, name);
208 }
209
210 static void _surf_cfg_cb__weight_S(const char *name, int pos)
211 {
212   sg_weight_S_parameter = xbt_cfg_get_double(_surf_cfg_set, name);
213 }
214
215 /* callback of the inclusion path */
216 static void _surf_cfg_cb__surf_path(const char *name, int pos)
217 {
218   char *path = xbt_cfg_get_string_at(_surf_cfg_set, name, pos);
219   xbt_dynar_push(surf_path, &path);
220 }
221
222 /* callback to decide if we want to use the model-checking */
223 #include "xbt_modinter.h"
224 extern int _surf_do_model_check;   /* this variable lives in xbt_main until I find a right location for it */
225
226 static void _surf_cfg_cb_model_check(const char *name, int pos)
227 {
228   _surf_do_model_check = xbt_cfg_get_int(_surf_cfg_set, name);
229
230   if (_surf_do_model_check) {
231     /* Tell modules using mallocators that they shouldn't. MC don't like them */
232     xbt_fifo_preinit();
233     xbt_dict_preinit();
234   }
235 }
236
237 extern int _surf_do_verbose_exit;
238
239 static void _surf_cfg_cb_verbose_exit(const char *name, int pos)
240 {
241   _surf_do_verbose_exit = xbt_cfg_get_int(_surf_cfg_set, name);
242 }
243
244
245 static void _surf_cfg_cb_context_factory(const char *name, int pos)
246 {
247   smx_context_factory_name = xbt_cfg_get_string(_surf_cfg_set, name);
248 }
249
250 static void _surf_cfg_cb_context_stack_size(const char *name, int pos)
251 {
252   smx_context_stack_size = xbt_cfg_get_int(_surf_cfg_set, name) * 1024;
253 }
254
255 static void _surf_cfg_cb_contexts_nthreads(const char *name, int pos)
256 {
257   SIMIX_context_set_nthreads(xbt_cfg_get_int(_surf_cfg_set, name));
258 }
259
260 static void _surf_cfg_cb_contexts_parallel_threshold(const char *name, int pos)
261 {
262   SIMIX_context_set_parallel_threshold(xbt_cfg_get_int(_surf_cfg_set, name));
263 }
264
265 static void _surf_cfg_cb_contexts_parallel_mode(const char *name, int pos)
266 {
267   const char* mode_name = xbt_cfg_get_string(_surf_cfg_set, name);
268   if (!strcmp(mode_name, "posix")) {
269     SIMIX_context_set_parallel_mode(XBT_PARMAP_POSIX);
270   }
271   else if (!strcmp(mode_name, "futex")) {
272     SIMIX_context_set_parallel_mode(XBT_PARMAP_FUTEX);
273   }
274   else if (!strcmp(mode_name, "busy_wait")) {
275     SIMIX_context_set_parallel_mode(XBT_PARMAP_BUSY_WAIT);
276   }
277   else {
278     xbt_die("Command line setting of the parallel synchronization mode should "
279         "be one of \"posix\", \"futex\" or \"busy_wait\"");
280   }
281 }
282
283 static void _surf_cfg_cb_surf_nthreads(const char *name, int pos)
284 {
285   surf_set_nthreads(xbt_cfg_get_int(_surf_cfg_set, name));
286 }
287
288 static void _surf_cfg_cb__surf_network_coordinates(const char *name,
289                                                    int pos)
290 {
291   char *val = xbt_cfg_get_string(_surf_cfg_set, name);
292   if (!strcmp(val, "yes")) {
293     if (!COORD_HOST_LEVEL) {
294       COORD_HOST_LEVEL = xbt_lib_add_level(host_lib,xbt_dynar_free_voidp);
295       COORD_ASR_LEVEL  = xbt_lib_add_level(as_router_lib,xbt_dynar_free_voidp);
296     }
297   } else if (!strcmp(val, "no")) {
298     if (COORD_HOST_LEVEL)
299       xbt_die("Setting of whether to use coordinate cannot be disabled once set.");
300   } else {
301     xbt_die("Command line setting of whether to use coordinates must be either \"yes\" or \"no\"");
302   }
303 }
304
305 static void _surf_cfg_cb__surf_network_crosstraffic(const char *name,
306                                                   int pos)
307 {
308   sg_network_crosstraffic = xbt_cfg_get_int(_surf_cfg_set, name);
309 }
310
311 #ifdef HAVE_GTNETS
312 static void _surf_cfg_cb__gtnets_jitter(const char *name, int pos)
313 {
314   sg_gtnets_jitter = xbt_cfg_get_double(_surf_cfg_set, name);
315 }
316
317 static void _surf_cfg_cb__gtnets_jitter_seed(const char *name, int pos)
318 {
319   sg_gtnets_jitter_seed = xbt_cfg_get_int(_surf_cfg_set, name);
320 }
321 #endif
322
323 /* create the config set, register what should be and parse the command line*/
324 void surf_config_init(int *argc, char **argv)
325 {
326   char *description = xbt_malloc(1024), *p = description;
327   char *default_value;
328   double double_default_value;
329   int default_value_int;
330   int i;
331
332   /* Create the configuration support */
333   if (_surf_init_status == 0) { /* Only create stuff if not already inited */
334     _surf_init_status = 1;
335
336     sprintf(description,
337             "The model to use for the CPU. Possible values: ");
338     p = description;
339     while (*(++p) != '\0');
340     for (i = 0; surf_cpu_model_description[i].name; i++)
341       p += sprintf(p, "%s%s", (i == 0 ? "" : ", "),
342                    surf_cpu_model_description[i].name);
343     sprintf(p,
344             ".\n       (use 'help' as a value to see the long description of each model)");
345     default_value = xbt_strdup("Cas01");
346     xbt_cfg_register(&_surf_cfg_set, "cpu/model", description, xbt_cfgelm_string,
347                      &default_value, 1, 1, &_surf_cfg_cb__cpu_model, NULL);
348
349     sprintf(description,
350             "The optimization modes to use for the CPU. Possible values: ");
351     p = description;
352     while (*(++p) != '\0');
353     for (i = 0; surf_optimization_mode_description[i].name; i++)
354       p += sprintf(p, "%s%s", (i == 0 ? "" : ", "),
355                    surf_optimization_mode_description[i].name);
356     sprintf(p,
357             ".\n       (use 'help' as a value to see the long description of each optimization mode)");
358     default_value = xbt_strdup("Lazy");
359     xbt_cfg_register(&_surf_cfg_set, "cpu/optim", description, xbt_cfgelm_string,
360                      &default_value, 1, 1, &_surf_cfg_cb__optimization_mode, NULL);
361
362     sprintf(description,
363             "The model to use for the storage. Possible values: ");
364     p = description;
365     while (*(++p) != '\0');
366     for (i = 0; surf_storage_model_description[i].name; i++)
367       p += sprintf(p, "%s%s", (i == 0 ? "" : ", "),
368                    surf_storage_model_description[i].name);
369     sprintf(p,
370             ".\n       (use 'help' as a value to see the long description of each model)");
371     default_value = xbt_strdup("default");
372     xbt_cfg_register(&_surf_cfg_set, "storage/model", description, xbt_cfgelm_string,
373                      &default_value, 1, 1, &_surf_cfg_cb__storage_mode,
374                      NULL);
375
376     sprintf(description,
377             "The model to use for the network. Possible values: ");
378     p = description;
379     while (*(++p) != '\0');
380     for (i = 0; surf_network_model_description[i].name; i++)
381       p += sprintf(p, "%s%s", (i == 0 ? "" : ", "),
382                    surf_network_model_description[i].name);
383     sprintf(p,
384             ".\n       (use 'help' as a value to see the long description of each model)");
385     default_value = xbt_strdup("LV08");
386     xbt_cfg_register(&_surf_cfg_set, "network/model", description, xbt_cfgelm_string,
387                      &default_value, 1, 1, &_surf_cfg_cb__network_model,
388                      NULL);
389
390     sprintf(description,
391             "The optimization modes to use for the network. Possible values: ");
392     p = description;
393     while (*(++p) != '\0');
394     for (i = 0; surf_optimization_mode_description[i].name; i++)
395       p += sprintf(p, "%s%s", (i == 0 ? "" : ", "),
396                    surf_optimization_mode_description[i].name);
397     sprintf(p,
398             ".\n       (use 'help' as a value to see the long description of each optimization mode)");
399     default_value = xbt_strdup("Lazy");
400     xbt_cfg_register(&_surf_cfg_set, "network/optim", description, xbt_cfgelm_string,
401                      &default_value, 1, 1, &_surf_cfg_cb__optimization_mode, NULL);
402
403     sprintf(description,
404             "The model to use for the workstation. Possible values: ");
405     p = description;
406     while (*(++p) != '\0');
407     for (i = 0; surf_workstation_model_description[i].name; i++)
408       p += sprintf(p, "%s%s", (i == 0 ? "" : ", "),
409                    surf_workstation_model_description[i].name);
410     sprintf(p,
411             ".\n       (use 'help' as a value to see the long description of each model)");
412     default_value = xbt_strdup("default");
413     xbt_cfg_register(&_surf_cfg_set, "workstation/model", description, xbt_cfgelm_string,
414                      &default_value, 1, 1,
415                      &_surf_cfg_cb__workstation_model, NULL);
416
417     xbt_free(description);
418
419     xbt_cfg_register(&_surf_cfg_set, "network/TCP_gamma",
420                      "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)",
421                      xbt_cfgelm_double, NULL, 1, 1,
422                      _surf_cfg_cb__tcp_gamma, NULL);
423     xbt_cfg_setdefault_double(_surf_cfg_set, "network/TCP_gamma", 20000.0);
424
425     xbt_cfg_register(&_surf_cfg_set, "maxmin/precision",
426                      "Numerical precision used when updating simulation models (epsilon in double comparisons)",
427                      xbt_cfgelm_double, NULL, 1, 1, _surf_cfg_cb__maxmin_precision, NULL);
428     xbt_cfg_setdefault_double(_surf_cfg_set, "maxmin/precision", 0.00001); // FIXME use setdefault everywhere here!
429
430     /* The parameters of network models */
431
432     double_default_value = 0.0;
433     xbt_cfg_register(&_surf_cfg_set, "network/sender_gap",
434                      "Minimum gap between two overlapping sends",
435                      xbt_cfgelm_double, &double_default_value, 1, 1,
436                      _surf_cfg_cb__sender_gap, NULL);
437
438     double_default_value = 1.0;
439     xbt_cfg_register(&_surf_cfg_set, "network/latency_factor",
440                      "Correction factor to apply to the provided latency (default value set by network model)",
441                      xbt_cfgelm_double, &double_default_value, 1, 1,
442                      _surf_cfg_cb__latency_factor, NULL);
443     double_default_value = 1.0;
444     xbt_cfg_register(&_surf_cfg_set, "network/bandwidth_factor",
445                      "Correction factor to apply to the provided bandwidth (default value set by network model)",
446                      xbt_cfgelm_double, &double_default_value, 1, 1,
447                      _surf_cfg_cb__bandwidth_factor, NULL);
448     double_default_value = 0.0;
449     xbt_cfg_register(&_surf_cfg_set, "network/weight_S",
450                      "Correction factor to apply to the weight of competing streams(default value set by network model)",
451                      xbt_cfgelm_double, &double_default_value, 1, 1,
452                      _surf_cfg_cb__weight_S, NULL);
453
454     /* Inclusion path */
455     xbt_cfg_register(&_surf_cfg_set, "path",
456                      "Lookup path for inclusions in platform and deployment XML files",
457                      xbt_cfgelm_string, NULL, 0, 0,
458                      _surf_cfg_cb__surf_path, NULL);
459
460     default_value_int = 0;
461     xbt_cfg_register(&_surf_cfg_set, "cpu/maxmin_selective_update",
462                      "Update the constraint set propagating recursively to others constraints (1 by default when optim is set to lazy)",
463                      xbt_cfgelm_int, &default_value_int, 0, 1,
464                      NULL, NULL);
465     default_value_int = 0;
466     xbt_cfg_register(&_surf_cfg_set, "network/maxmin_selective_update",
467                      "Update the constraint set propagating recursively to others constraints (1 by default when optim is set to lazy)",
468                      xbt_cfgelm_int, &default_value_int, 0, 1,
469                      NULL, NULL);
470
471     /* do model-check */
472     default_value_int = 0;
473     xbt_cfg_register(&_surf_cfg_set, "model-check",
474                      "Activate the model-checking of the \"simulated\" system (EXPERIMENTAL -- msg only for now)",
475                      xbt_cfgelm_int, &default_value_int, 0, 1,
476                      _surf_cfg_cb_model_check, NULL);
477     
478     /*
479        FIXME: this function is not setting model-check to it's default value because
480        internally it calls to variable->cb_set that in this case is the function 
481        _surf_cfg_cb_model_check which sets it's value to 1 (instead of the default value 0)
482        xbt_cfg_set_int(_surf_cfg_set, "model-check", default_value_int); */
483
484     /* do verbose-exit */
485     default_value_int = 1;
486     xbt_cfg_register(&_surf_cfg_set, "verbose-exit",
487                      "Activate the \"do nothing\" mode in Ctrl-C",
488                      xbt_cfgelm_int, &default_value_int, 0, 1,
489                      _surf_cfg_cb_verbose_exit, NULL);
490     
491     
492     /* context factory */
493     default_value = xbt_strdup("ucontext");
494     xbt_cfg_register(&_surf_cfg_set, "contexts/factory",
495                      "Context factory to use in SIMIX (ucontext, thread or raw)",
496                      xbt_cfgelm_string, &default_value, 1, 1, _surf_cfg_cb_context_factory, NULL);
497
498     /* stack size of contexts in Ko */
499     default_value_int = 128;
500     xbt_cfg_register(&_surf_cfg_set, "contexts/stack_size",
501                      "Stack size of contexts in Kib (ucontext or raw only)",
502                      xbt_cfgelm_int, &default_value_int, 1, 1,
503                      _surf_cfg_cb_context_stack_size, NULL);
504
505     /* number of parallel threads for user processes */
506     default_value_int = 1;
507     xbt_cfg_register(&_surf_cfg_set, "contexts/nthreads",
508                      "Number of parallel threads used to execute user contexts",
509                      xbt_cfgelm_int, &default_value_int, 1, 1,
510                      _surf_cfg_cb_contexts_nthreads, NULL);
511
512     /* minimal number of user contexts to be run in parallel */
513     default_value_int = 2;
514     xbt_cfg_register(&_surf_cfg_set, "contexts/parallel_threshold",
515         "Minimal number of user contexts to be run in parallel (raw contexts only)",
516         xbt_cfgelm_int, &default_value_int, 1, 1,
517         _surf_cfg_cb_contexts_parallel_threshold, NULL);
518
519     /* synchronization mode for parallel user contexts */
520 #ifdef HAVE_FUTEX_H
521     default_value = xbt_strdup("futex");
522 #else //No futex on mac and posix is unimplememted yet
523     default_value = xbt_strdup("busy_wait");
524 #endif
525     xbt_cfg_register(&_surf_cfg_set, "contexts/synchro",
526         "Synchronization mode to use when running contexts in parallel (either futex, posix or busy_wait)",
527         xbt_cfgelm_string, &default_value, 1, 1,
528         _surf_cfg_cb_contexts_parallel_mode, NULL);
529
530     /* number of parallel threads for Surf */
531     default_value_int = surf_get_nthreads();
532     xbt_cfg_register(&_surf_cfg_set, "surf/nthreads",
533                      "Number of parallel threads used to update Surf models",
534                      xbt_cfgelm_int, &default_value_int, 1, 1,
535                      _surf_cfg_cb_surf_nthreads, NULL);
536
537     default_value = xbt_strdup("no");
538     xbt_cfg_register(&_surf_cfg_set, "network/coordinates",
539                      "\"yes\" or \"no\", specifying whether we use a coordinate-based routing (as Vivaldi)",
540                      xbt_cfgelm_string, &default_value, 1, 1,
541                      _surf_cfg_cb__surf_network_coordinates, NULL);
542     xbt_cfg_setdefault_string(_surf_cfg_set, "network/coordinates", default_value);
543
544     default_value_int = 0;
545     xbt_cfg_register(&_surf_cfg_set, "network/crosstraffic",
546                      "Activate the interferences between uploads and downloads for fluid max-min models (LV08, CM02)",
547                      xbt_cfgelm_int, &default_value_int, 0, 1,
548                      _surf_cfg_cb__surf_network_crosstraffic, NULL);
549     xbt_cfg_setdefault_int(_surf_cfg_set, "network/crosstraffic", default_value_int);
550
551 #ifdef HAVE_GTNETS
552     xbt_cfg_register(&_surf_cfg_set, "gtnets/jitter",
553                      "Double value to oscillate the link latency, uniformly in random interval [-latency*gtnets_jitter,latency*gtnets_jitter)",
554                      xbt_cfgelm_double, NULL, 1, 1,
555                      _surf_cfg_cb__gtnets_jitter, NULL);
556     xbt_cfg_setdefault_double(_surf_cfg_set, "gtnets/jitter", 0.0);
557
558     default_value_int = 10;
559     xbt_cfg_register(&_surf_cfg_set, "gtnets/jitter_seed",
560                      "Use a positive seed to reproduce jitted results, value must be in [1,1e8], default is 10",
561                      xbt_cfgelm_int, &default_value_int, 0, 1,
562                      _surf_cfg_cb__gtnets_jitter_seed, NULL);
563 #endif
564 #ifdef HAVE_NS3
565     xbt_cfg_register(&_surf_cfg_set, "ns3/TcpModel",
566                      "The ns3 tcp model can be : NewReno or Reno or Tahoe",
567                      xbt_cfgelm_string, NULL, 1, 1,
568                      NULL, NULL);
569     xbt_cfg_setdefault_string(_surf_cfg_set, "ns3/TcpModel", "default");
570 #endif
571
572 //SMPI
573     double default_reference_speed = 20000.0;
574     xbt_cfg_register(&_surf_cfg_set, "smpi/running_power",
575                      "Power of the host running the simulation (in flop/s). Used to bench the operations.",
576                      xbt_cfgelm_double, &default_reference_speed, 1, 1, NULL,
577                      NULL);
578
579     int default_display_timing = 0;
580     xbt_cfg_register(&_surf_cfg_set, "smpi/display_timing",
581                      "Boolean indicating whether we should display the timing after simulation.",
582                      xbt_cfgelm_int, &default_display_timing, 1, 1, NULL,
583                      NULL);
584
585     double default_threshold = 1e-6;
586     xbt_cfg_register(&_surf_cfg_set, "smpi/cpu_threshold",
587                      "Minimal computation time (in seconds) not discarded.",
588                      xbt_cfgelm_double, &default_threshold, 1, 1, NULL,
589                      NULL);
590
591     //For smpi/bw_factor and smpi/lat_factor
592     //Default value have to be "threshold0:value0;threshold1:value1;...;thresholdN:valueN"
593     //test is if( size >= thresholdN ) return valueN;
594     //Values can be modified with command line --cfg=smpi/bw_factor:"threshold0:value0;threshold1:value1;...;thresholdN:valueN"
595     //  or with tag config put line <prop id="smpi/bw_factor" value="threshold0:value0;threshold1:value1;...;thresholdN:valueN"></prop>
596     xbt_cfg_register(&_surf_cfg_set, "smpi/bw_factor",
597                      "Bandwidth factors for smpi.",
598                      xbt_cfgelm_string, NULL, 1, 1, NULL,
599                      NULL);
600     xbt_cfg_setdefault_string(_surf_cfg_set, "smpi/bw_factor", "65472:0.940694;15424:0.697866;9376:0.58729;5776:1.08739;3484:0.77493;1426:0.608902;732:0.341987;257:0.338112;0:0.812084");
601
602     xbt_cfg_register(&_surf_cfg_set, "smpi/lat_factor",
603                      "Latency factors for smpi.",
604                      xbt_cfgelm_string, NULL, 1, 1, NULL,
605                      NULL);
606     xbt_cfg_setdefault_string(_surf_cfg_set, "smpi/lat_factor", "65472:11.6436;15424:3.48845;9376:2.59299;5776:2.18796;3484:1.88101;1426:1.61075;732:1.9503;257:1.95341;0:2.01467");
607 //END SMPI
608
609
610     if (!surf_path) {
611       /* retrieves the current directory of the        current process */
612       const char *initial_path = __surf_get_initial_path();
613       xbt_assert((initial_path),
614                   "__surf_get_initial_path() failed! Can't resolves current Windows directory");
615
616       surf_path = xbt_dynar_new(sizeof(char *), NULL);
617       xbt_cfg_setdefault_string(_surf_cfg_set, "path", initial_path);
618     }
619
620
621     surf_config_cmd_line(argc, argv);
622   } else {
623     XBT_WARN("Call to surf_config_init() after initialization ignored");
624   }
625 }
626
627 void surf_config_finalize(void)
628 {
629   if (!_surf_init_status)
630     return;                     /* Not initialized yet. Nothing to do */
631
632   xbt_cfg_free(&_surf_cfg_set);
633   _surf_init_status = 0;
634 }
635
636 /* Pick the right models for CPU, net and workstation, and call their model_init_preparse */
637 void surf_config_models_setup()
638 {
639   char *workstation_model_name;
640   int workstation_id = -1;
641   char *network_model_name = NULL;
642   char *cpu_model_name = NULL;
643   int storage_id = -1;
644   char *storage_model_name = NULL;
645
646   workstation_model_name =
647       xbt_cfg_get_string(_surf_cfg_set, "workstation/model");
648   network_model_name = xbt_cfg_get_string(_surf_cfg_set, "network/model");
649   cpu_model_name = xbt_cfg_get_string(_surf_cfg_set, "cpu/model");
650   storage_model_name = xbt_cfg_get_string(_surf_cfg_set, "storage/model");
651
652   /* Check whether we use a net/cpu model differing from the default ones, in which case
653    * we should switch to the "compound" workstation model to correctly dispatch stuff to
654    * the right net/cpu models.
655    */
656
657   if((!xbt_cfg_is_default_value(_surf_cfg_set, "network/model") ||
658           !xbt_cfg_is_default_value(_surf_cfg_set, "cpu/model")) &&
659           xbt_cfg_is_default_value(_surf_cfg_set, "workstation/model"))
660   {
661             const char *val = "compound";
662             XBT_INFO
663                 ("Switching workstation model to compound since you changed the network and/or cpu model(s)");
664             xbt_cfg_set_string(_surf_cfg_set, "workstation/model", val);
665             workstation_model_name = (char *) "compound";
666   }
667
668   XBT_DEBUG("Workstation model: %s", workstation_model_name);
669   workstation_id =
670       find_model_description(surf_workstation_model_description,
671                              workstation_model_name);
672   if (!strcmp(workstation_model_name, "compound")) {
673     int network_id = -1;
674     int cpu_id = -1;
675
676     xbt_assert(cpu_model_name,
677                 "Set a cpu model to use with the 'compound' workstation model");
678
679     xbt_assert(network_model_name,
680                 "Set a network model to use with the 'compound' workstation model");
681
682     network_id =
683         find_model_description(surf_network_model_description,
684                                network_model_name);
685     cpu_id =
686         find_model_description(surf_cpu_model_description, cpu_model_name);
687
688     surf_cpu_model_description[cpu_id].model_init_preparse();
689     surf_network_model_description[network_id].model_init_preparse();
690   }
691
692   XBT_DEBUG("Call workstation_model_init");
693   surf_workstation_model_description[workstation_id].model_init_preparse();
694
695   XBT_DEBUG("Call storage_model_init");
696   storage_id = find_model_description(surf_storage_model_description, storage_model_name);
697   surf_storage_model_description[storage_id].model_init_preparse();
698 }