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