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 }