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 #include "mc_private.h"
  17
  18 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(mc_config, mc,
  19                                 "Configuration of MC");
  20
  21 /* Configuration support */
  22 e_mc_reduce_t mc_reduce_kind = e_mc_reduce_unset;
  23
  24 int _sg_do_model_check = 0;
  25 int _sg_mc_checkpoint = 0;
  26 int _sg_mc_sparse_checkpoint = 0;
  27 int _sg_mc_soft_dirty = 0;
  28 char *_sg_mc_property_file = NULL;
  29 int _sg_mc_timeout = 0;
  30 int _sg_mc_hash = 0;
  31 int _sg_mc_max_depth = 1000;
  32 int _sg_mc_visited = 0;
  33 char *_sg_mc_dot_output_file = NULL;
  34 int _sg_mc_comms_determinism = 0;
  35 int _sg_mc_send_determinism = 0;
  36 int _sg_mc_safety = 0;
  37 int _sg_mc_liveness = 0;
  38
  39
  40 void _mc_cfg_cb_reduce(const char *name, int pos)
  41 {
  42   if (_sg_cfg_init_status && !_sg_do_model_check) {
  43     xbt_die
  44         ("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.");
  45   }
  46   char *val = xbt_cfg_get_string(_sg_cfg_set, name);
  47   if (!strcasecmp(val, "none")) {
  48     mc_reduce_kind = e_mc_reduce_none;
  49   } else if (!strcasecmp(val, "dpor")) {
  50     mc_reduce_kind = e_mc_reduce_dpor;
  51   } else {
  52     xbt_die("configuration option %s can only take 'none' or 'dpor' as a value",
  53             name);
  54   }
  55 }
  56
  57 void _mc_cfg_cb_checkpoint(const char *name, int pos)
  58 {
  59   if (_sg_cfg_init_status && !_sg_do_model_check) {
  60     xbt_die
  61         ("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.");
  62   }
  63   _sg_mc_checkpoint = xbt_cfg_get_int(_sg_cfg_set, name);
  64 }
  65
  66 void _mc_cfg_cb_sparse_checkpoint(const char *name, int pos) {
  67   if (_sg_cfg_init_status && !_sg_do_model_check) {
  68     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.");
  69   }
  70   _sg_mc_sparse_checkpoint = xbt_cfg_get_boolean(_sg_cfg_set, name);
  71 }
  72
  73 void _mc_cfg_cb_soft_dirty(const char *name, int pos) {
  74   if (_sg_cfg_init_status && !_sg_do_model_check) {
  75     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.");
  76   }
  77   _sg_mc_soft_dirty = xbt_cfg_get_boolean(_sg_cfg_set, name);
  78 }
  79
  80 void _mc_cfg_cb_property(const char *name, int pos)
  81 {
  82   if (_sg_cfg_init_status && !_sg_do_model_check) {
  83     xbt_die
  84         ("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.");
  85   }
  86   _sg_mc_property_file = xbt_cfg_get_string(_sg_cfg_set, name);
  87 }
  88
  89 void _mc_cfg_cb_timeout(const char *name, int pos)
  90 {
  91   if (_sg_cfg_init_status && !_sg_do_model_check) {
  92     xbt_die
  93         ("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.");
  94   }
  95   _sg_mc_timeout = xbt_cfg_get_boolean(_sg_cfg_set, name);
  96 }
  97
  98 void _mc_cfg_cb_hash(const char *name, int pos)
  99 {
 100   if (_sg_cfg_init_status && !_sg_do_model_check) {
 101     xbt_die
 102         ("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.");
 103   }
 104   _sg_mc_hash = xbt_cfg_get_boolean(_sg_cfg_set, name);
 105 }
 106
 107 void _mc_cfg_cb_max_depth(const char *name, int pos)
 108 {
 109   if (_sg_cfg_init_status && !_sg_do_model_check) {
 110     xbt_die
 111         ("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.");
 112   }
 113   _sg_mc_max_depth = xbt_cfg_get_int(_sg_cfg_set, name);
 114 }
 115
 116 void _mc_cfg_cb_visited(const char *name, int pos)
 117 {
 118   if (_sg_cfg_init_status && !_sg_do_model_check) {
 119     xbt_die
 120         ("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.");
 121   }
 122   _sg_mc_visited = xbt_cfg_get_int(_sg_cfg_set, name);
 123 }
 124
 125 void _mc_cfg_cb_dot_output(const char *name, int pos)
 126 {
 127   if (_sg_cfg_init_status && !_sg_do_model_check) {
 128     xbt_die
 129         ("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.");
 130   }
 131   _sg_mc_dot_output_file = xbt_cfg_get_string(_sg_cfg_set, name);
 132 }
 133
 134 void _mc_cfg_cb_comms_determinism(const char *name, int pos)
 135 {
 136   if (_sg_cfg_init_status && !_sg_do_model_check) {
 137     xbt_die
 138         ("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.");
 139   }
 140   _sg_mc_comms_determinism = xbt_cfg_get_boolean(_sg_cfg_set, name);
 141   mc_reduce_kind = e_mc_reduce_none;
 142 }
 143
 144 void _mc_cfg_cb_send_determinism(const char *name, int pos)
 145 {
 146   if (_sg_cfg_init_status && !_sg_do_model_check) {
 147     xbt_die
 148         ("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.");
 149   }
 150   _sg_mc_send_determinism = xbt_cfg_get_boolean(_sg_cfg_set, name);
 151   mc_reduce_kind = e_mc_reduce_none;
 152 }