Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
model-checker : non-progressive cycle detection (enabled with --cfg=model-check/termi...
[simgrid.git] / src / mc / mc_config.c
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
14 #include <simgrid/sg_config.h>
15
16 #ifdef HAVE_MC
17 #include "mc_safety.h"
18 #include "mc_private.h"
19 #endif
20
21 #include "mc_record.h"
22
23 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(mc_config, mc,
24                                 "Configuration of MC");
25
26 #ifdef HAVE_MC
27 /* Configuration support */
28 e_mc_reduce_t mc_reduce_kind = e_mc_reduce_unset;
29 #endif
30
31 #ifndef HAVE_MC
32 #define _sg_do_model_check 0
33 #endif
34
35 int _sg_mc_timeout = 0;
36
37 void _mc_cfg_cb_timeout(const char *name, int pos)
38 {
39   if (_sg_cfg_init_status && !(_sg_do_model_check || MC_record_path)) {
40     xbt_die
41         ("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.");
42   }
43   _sg_mc_timeout = xbt_cfg_get_boolean(_sg_cfg_set, name);
44 }
45
46 #ifdef HAVE_MC
47 int _sg_do_model_check = 0;
48 int _sg_do_model_check_record = 0;
49 int _sg_mc_checkpoint = 0;
50 int _sg_mc_sparse_checkpoint = 0;
51 int _sg_mc_soft_dirty = 0;
52 char *_sg_mc_property_file = NULL;
53 int _sg_mc_hash = 0;
54 int _sg_mc_max_depth = 1000;
55 int _sg_mc_visited = 0;
56 char *_sg_mc_dot_output_file = NULL;
57 int _sg_mc_comms_determinism = 0;
58 int _sg_mc_send_determinism = 0;
59 int _sg_mc_safety = 0;
60 int _sg_mc_liveness = 0;
61 int _sg_mc_termination = 0;
62
63
64 void _mc_cfg_cb_reduce(const char *name, int pos)
65 {
66   if (_sg_cfg_init_status && !_sg_do_model_check) {
67     xbt_die
68         ("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.");
69   }
70   char *val = xbt_cfg_get_string(_sg_cfg_set, name);
71   if (!strcasecmp(val, "none")) {
72     mc_reduce_kind = e_mc_reduce_none;
73   } else if (!strcasecmp(val, "dpor")) {
74     mc_reduce_kind = e_mc_reduce_dpor;
75   } else {
76     xbt_die("configuration option %s can only take 'none' or 'dpor' as a value",
77             name);
78   }
79 }
80
81 void _mc_cfg_cb_checkpoint(const char *name, int pos)
82 {
83   if (_sg_cfg_init_status && !_sg_do_model_check) {
84     xbt_die
85         ("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.");
86   }
87   _sg_mc_checkpoint = xbt_cfg_get_int(_sg_cfg_set, name);
88 }
89
90 void _mc_cfg_cb_sparse_checkpoint(const char *name, int pos) {
91   if (_sg_cfg_init_status && !_sg_do_model_check) {
92     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.");
93   }
94   _sg_mc_sparse_checkpoint = xbt_cfg_get_boolean(_sg_cfg_set, name);
95 }
96
97 void _mc_cfg_cb_soft_dirty(const char *name, int pos) {
98   if (_sg_cfg_init_status && !_sg_do_model_check) {
99     xbt_die("You are specifying a soft dirty 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.");
100   }
101   _sg_mc_soft_dirty = xbt_cfg_get_boolean(_sg_cfg_set, name);
102 }
103
104 void _mc_cfg_cb_property(const char *name, int pos)
105 {
106   if (_sg_cfg_init_status && !_sg_do_model_check) {
107     xbt_die
108         ("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.");
109   }
110   _sg_mc_property_file = xbt_cfg_get_string(_sg_cfg_set, name);
111 }
112
113 void _mc_cfg_cb_hash(const char *name, int pos)
114 {
115   if (_sg_cfg_init_status && !_sg_do_model_check) {
116     xbt_die
117         ("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.");
118   }
119   _sg_mc_hash = xbt_cfg_get_boolean(_sg_cfg_set, name);
120 }
121
122 void _mc_cfg_cb_max_depth(const char *name, int pos)
123 {
124   if (_sg_cfg_init_status && !_sg_do_model_check) {
125     xbt_die
126         ("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.");
127   }
128   _sg_mc_max_depth = xbt_cfg_get_int(_sg_cfg_set, name);
129 }
130
131 void _mc_cfg_cb_visited(const char *name, int pos)
132 {
133   if (_sg_cfg_init_status && !_sg_do_model_check) {
134     xbt_die
135         ("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.");
136   }
137   _sg_mc_visited = xbt_cfg_get_int(_sg_cfg_set, name);
138 }
139
140 void _mc_cfg_cb_dot_output(const char *name, int pos)
141 {
142   if (_sg_cfg_init_status && !_sg_do_model_check) {
143     xbt_die
144         ("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.");
145   }
146   _sg_mc_dot_output_file = xbt_cfg_get_string(_sg_cfg_set, name);
147 }
148
149 void _mc_cfg_cb_comms_determinism(const char *name, int pos)
150 {
151   if (_sg_cfg_init_status && !_sg_do_model_check) {
152     xbt_die
153         ("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.");
154   }
155   _sg_mc_comms_determinism = xbt_cfg_get_boolean(_sg_cfg_set, name);
156   mc_reduce_kind = e_mc_reduce_none;
157 }
158
159 void _mc_cfg_cb_send_determinism(const char *name, int pos)
160 {
161   if (_sg_cfg_init_status && !_sg_do_model_check) {
162     xbt_die
163         ("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.");
164   }
165   _sg_mc_send_determinism = xbt_cfg_get_boolean(_sg_cfg_set, name);
166   mc_reduce_kind = e_mc_reduce_none;
167 }
168
169 void _mc_cfg_cb_termination(const char *name, int pos)
170 {
171   if (_sg_cfg_init_status && !_sg_do_model_check) {
172     xbt_die
173         ("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.");
174   }
175   _sg_mc_termination = xbt_cfg_get_boolean(_sg_cfg_set, name);
176   mc_reduce_kind = e_mc_reduce_none;
177 }
178
179 #endif