Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Merge branch 'master' into mc
[simgrid.git] / src / mc / mc_config.cpp
1 /* Copyright (c) 2008-2014. 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 #include <strings.h>
8
9 #include <xbt/log.h>
10 #include <xbt/config.h>
11
12 #include <mc/mc.h>
13 #include "mc/mc_replay.h"
14
15 #include <simgrid/sg_config.h>
16
17 #ifdef HAVE_MC
18 #include "mc_safety.h"
19 #include "mc_private.h"
20 #endif
21
22 #include "mc_record.h"
23
24 extern "C" {
25
26 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(mc_config, mc,
27                                 "Configuration of MC");
28
29 #ifdef HAVE_MC
30 /* Configuration support */
31 e_mc_reduce_t mc_reduce_kind = e_mc_reduce_unset;
32 #endif
33
34 #ifndef HAVE_MC
35 #define _sg_do_model_check 0
36 #endif
37
38 int _sg_mc_timeout = 0;
39
40 void _mc_cfg_cb_timeout(const char *name, int pos)
41 {
42   if (_sg_cfg_init_status && !(_sg_do_model_check || MC_record_path)) {
43     xbt_die
44         ("You are specifying a value to enable/disable timeout for wait requests after the initialization (through MSG_config?), but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
45   }
46   _sg_mc_timeout = xbt_cfg_get_boolean(_sg_cfg_set, name);
47 }
48
49 #ifdef HAVE_MC
50 int _sg_do_model_check = 0;
51 int _sg_do_model_check_record = 0;
52 int _sg_mc_checkpoint = 0;
53 int _sg_mc_sparse_checkpoint = 0;
54 char *_sg_mc_property_file = NULL;
55 int _sg_mc_hash = 0;
56 int _sg_mc_max_depth = 1000;
57 int _sg_mc_visited = 0;
58 char *_sg_mc_dot_output_file = NULL;
59 int _sg_mc_comms_determinism = 0;
60 int _sg_mc_send_determinism = 0;
61 int _sg_mc_safety = 0;
62 int _sg_mc_liveness = 0;
63 int _sg_mc_snapshot_fds = 0;
64 int _sg_mc_termination = 0;
65
66 void _mc_cfg_cb_reduce(const char *name, int pos)
67 {
68   if (_sg_cfg_init_status && !_sg_do_model_check) {
69     xbt_die
70         ("You are specifying a reduction strategy after the initialization (through MSG_config?), but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
71   }
72   char *val = xbt_cfg_get_string(_sg_cfg_set, name);
73   if (!strcasecmp(val, "none")) {
74     mc_reduce_kind = e_mc_reduce_none;
75   } else if (!strcasecmp(val, "dpor")) {
76     mc_reduce_kind = e_mc_reduce_dpor;
77   } else {
78     xbt_die("configuration option %s can only take 'none' or 'dpor' as a value",
79             name);
80   }
81 }
82
83 void _mc_cfg_cb_checkpoint(const char *name, int pos)
84 {
85   if (_sg_cfg_init_status && !_sg_do_model_check) {
86     xbt_die
87         ("You are specifying a checkpointing value after the initialization (through MSG_config?), but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
88   }
89   _sg_mc_checkpoint = xbt_cfg_get_int(_sg_cfg_set, name);
90 }
91
92 void _mc_cfg_cb_sparse_checkpoint(const char *name, int pos) {
93   if (_sg_cfg_init_status && !_sg_do_model_check) {
94     xbt_die("You are specifying a checkpointing value after the initialization (through MSG_config?), but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
95   }
96   _sg_mc_sparse_checkpoint = xbt_cfg_get_boolean(_sg_cfg_set, name);
97 }
98
99 void _mc_cfg_cb_property(const char *name, int pos)
100 {
101   if (_sg_cfg_init_status && !_sg_do_model_check) {
102     xbt_die
103         ("You are specifying a property after the initialization (through MSG_config?), but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
104   }
105   _sg_mc_property_file = xbt_cfg_get_string(_sg_cfg_set, name);
106 }
107
108 void _mc_cfg_cb_hash(const char *name, int pos)
109 {
110   if (_sg_cfg_init_status && !_sg_do_model_check) {
111     xbt_die
112         ("You are specifying a value to enable/disable the use of global hash to speedup state comparaison, but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
113   }
114   _sg_mc_hash = xbt_cfg_get_boolean(_sg_cfg_set, name);
115 }
116
117 void _mc_cfg_cb_snapshot_fds(const char *name, int pos)
118 {
119   if (_sg_cfg_init_status && !_sg_do_model_check) {
120     xbt_die
121         ("You are specifying a value to enable/disable the use of FD snapshoting, but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
122   }
123   _sg_mc_snapshot_fds = xbt_cfg_get_boolean(_sg_cfg_set, name);
124 }
125
126 void _mc_cfg_cb_max_depth(const char *name, int pos)
127 {
128   if (_sg_cfg_init_status && !_sg_do_model_check) {
129     xbt_die
130         ("You are specifying a max depth value after the initialization (through MSG_config?), but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
131   }
132   _sg_mc_max_depth = xbt_cfg_get_int(_sg_cfg_set, name);
133 }
134
135 void _mc_cfg_cb_visited(const char *name, int pos)
136 {
137   if (_sg_cfg_init_status && !_sg_do_model_check) {
138     xbt_die
139         ("You are specifying a number of stored visited states after the initialization (through MSG_config?), but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
140   }
141   _sg_mc_visited = xbt_cfg_get_int(_sg_cfg_set, name);
142 }
143
144 void _mc_cfg_cb_dot_output(const char *name, int pos)
145 {
146   if (_sg_cfg_init_status && !_sg_do_model_check) {
147     xbt_die
148         ("You are specifying a file name for a dot output of graph state after the initialization (through MSG_config?), but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
149   }
150   _sg_mc_dot_output_file = xbt_cfg_get_string(_sg_cfg_set, name);
151 }
152
153 void _mc_cfg_cb_comms_determinism(const char *name, int pos)
154 {
155   if (_sg_cfg_init_status && !_sg_do_model_check) {
156     xbt_die
157         ("You are specifying a value to enable/disable the detection of determinism in the communications schemes after the initialization (through MSG_config?), but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
158   }
159   _sg_mc_comms_determinism = xbt_cfg_get_boolean(_sg_cfg_set, name);
160 }
161
162 void _mc_cfg_cb_send_determinism(const char *name, int pos)
163 {
164   if (_sg_cfg_init_status && !_sg_do_model_check) {
165     xbt_die
166         ("You are specifying a value to enable/disable the detection of send-determinism in the communications schemes after the initialization (through MSG_config?), but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
167   }
168   _sg_mc_send_determinism = xbt_cfg_get_boolean(_sg_cfg_set, name);
169 }
170
171 void _mc_cfg_cb_termination(const char *name, int pos)
172 {
173   if (_sg_cfg_init_status && !_sg_do_model_check) {
174     xbt_die
175         ("You are specifying a value to enable/disable the detection of non progressive cycles after the initialization (through MSG_config?), but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
176   }
177   _sg_mc_termination = xbt_cfg_get_boolean(_sg_cfg_set, name);
178 }
179
180 #endif
181
182 }