X-Git-Url: http://bilbo.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/82195accc91a7708f2545d91a74c1762852d4075..365a83d3a1407923acccab758f9225e11408b5c6:/src/mc/explo/simgrid_mc.cpp diff --git a/src/mc/explo/simgrid_mc.cpp b/src/mc/explo/simgrid_mc.cpp index ceeae70d08..51871357ee 100644 --- a/src/mc/explo/simgrid_mc.cpp +++ b/src/mc/explo/simgrid_mc.cpp @@ -1,66 +1,27 @@ -/* Copyright (c) 2015-2022. The SimGrid Team. All rights reserved. */ +/* Copyright (c) 2015-2023. The SimGrid Team. All rights reserved. */ /* This program is free software; you can redistribute it and/or modify it * under the terms of the license (GNU LGPL) which comes with this package. */ -#include "simgrid/sg_config.hpp" -#include "src/internal_config.h" #include "src/mc/explo/Exploration.hpp" #include "src/mc/mc_config.hpp" #include "src/mc/mc_exit.hpp" +#include "src/simgrid/sg_config.hpp" #if HAVE_SMPI #include "smpi/smpi.h" #endif -#include -#include -#include -#include - XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(mc); -static simgrid::config::Flag _sg_mc_setenv{ - "model-check/setenv", "Extra environment variables to pass to the child process (ex: 'AZE=aze;QWE=qwe').", "", - [](std::string_view value) { - xbt_assert(value.empty() || value.find('=', 0) != std::string_view::npos, - "The 'model-check/setenv' parameter must be like 'AZE=aze', but it does not contain an equal sign."); - }}; - -static void mc_exec_user_code(std::vector const& argv) -{ - int i = 1; - while (argv[i] != nullptr && argv[i][0] == '-') - i++; - - /* Setup the tokenizer that parses the cfg:model-check/setenv parameter */ - using Tokenizer = boost::tokenizer>; - boost::char_separator semicol_sep(";"); - boost::char_separator equal_sep("="); - Tokenizer token_vars(_sg_mc_setenv.get(), semicol_sep); /* Iterate over all FOO=foo parts */ - for (const auto& token : token_vars) { - std::vector kv; - Tokenizer token_kv(token, equal_sep); - for (const auto& t : token_kv) /* Iterate over 'FOO' and then 'foo' in that 'FOO=foo' */ - kv.push_back(t); - xbt_assert(kv.size() == 2, "Parse error on 'model-check/setenv' value %s. Does it contain an equal sign?", - token.c_str()); - XBT_INFO("setenv '%s'='%s'", kv[0].c_str(), kv[1].c_str()); - setenv(kv[0].c_str(), kv[1].c_str(), 1); - } - xbt_assert(argv[i] != nullptr, - "Unable to find a binary to exec on the command line. Did you only pass config flags?"); - - execvp(argv[i], argv.data() + i); - xbt_die("The model-checked process failed to exec(%s): %s", argv[i], strerror(errno)); -} +using namespace simgrid::mc; int main(int argc, char** argv) { xbt_assert(argc >= 2, "Missing arguments"); // Currently, we need this before sg_config_init: - _sg_do_model_check = 1; + simgrid::mc::set_model_checking_mode(simgrid::mc::ModelCheckingMode::CHECKER_SIDE); // The initialization function can touch argv. // We make a copy of argv before modifying it in order to pass the original value to the model-checked application: @@ -72,29 +33,22 @@ int main(int argc, char** argv) #endif sg_config_init(&argc, argv); - auto remote_app = std::make_unique([argv_copy] { mc_exec_user_code(argv_copy); }); + std::unique_ptr explo; - simgrid::mc::Exploration* explo; if (_sg_mc_comms_determinism || _sg_mc_send_determinism) - explo = simgrid::mc::create_communication_determinism_checker(*remote_app.get()); + explo = std::unique_ptr( + create_communication_determinism_checker(argv_copy, get_model_checking_reduction())); else if (_sg_mc_unfolding_checker) - explo = simgrid::mc::create_udpor_checker(*remote_app.get()); - else if (_sg_mc_property_file.get().empty()) - explo = simgrid::mc::create_dfs_exploration(*remote_app.get()); + explo = std::unique_ptr(create_udpor_checker(argv_copy)); else - explo = simgrid::mc::create_liveness_checker(*remote_app.get()); - - mc_model_checker->set_exploration(explo); - std::unique_ptr checker{explo}; + explo = std::unique_ptr(create_dfs_exploration(argv_copy, get_model_checking_reduction())); + ExitStatus status; try { - checker->run(); - } catch (const simgrid::mc::DeadlockError&) { - return SIMGRID_MC_EXIT_DEADLOCK; - } catch (const simgrid::mc::TerminationError&) { - return SIMGRID_MC_EXIT_NON_TERMINATION; - } catch (const simgrid::mc::LivenessError&) { - return SIMGRID_MC_EXIT_LIVENESS; + explo->run(); + status = ExitStatus::SUCCESS; + } catch (const McError& e) { + status = e.value; } - return SIMGRID_MC_EXIT_SUCCESS; + return static_cast(status); }