src/s4u/s4u_engine.cpp

   1 /* s4u::Engine Simulation Engine and global functions. */
   2
   3 /* Copyright (c) 2006-2015. The SimGrid Team. All rights reserved.          */
   4
   5 /* This program is free software; you can redistribute it and/or modify it
   6  * under the terms of the license (GNU LGPL) which comes with this package. */
   7
   8 #include "instr/instr_interface.h"
   9 #include "mc/mc.h"
  10 #include "simgrid/s4u/Mailbox.hpp"
  11 #include "simgrid/s4u/NetZone.hpp"
  12 #include "simgrid/s4u/engine.hpp"
  13 #include "simgrid/s4u/host.hpp"
  14 #include "simgrid/s4u/storage.hpp"
  15 #include "simgrid/simix.h"
  16 #include "src/kernel/EngineImpl.hpp"
  17 #include "src/kernel/routing/NetPoint.hpp"
  18 #include "src/kernel/routing/NetZoneImpl.hpp"
  19 #include "src/surf/network_interface.hpp"
  20 #include "surf/surf.h"               // routing_platf. FIXME:KILLME. SOON
  21
  22 XBT_LOG_NEW_CATEGORY(s4u,"Log channels of the S4U (Simgrid for you) interface");
  23
  24 namespace simgrid {
  25 namespace s4u {
  26 xbt::signal<void()> onPlatformCreated;
  27 xbt::signal<void()> onSimulationEnd;
  28 xbt::signal<void(double)> onTimeAdvance;
  29
  30 Engine *Engine::instance_ = nullptr; /* That singleton is awful, but I don't see no other solution right now. */
  31
  32
  33 Engine::Engine(int *argc, char **argv) {
  34   xbt_assert(s4u::Engine::instance_ == nullptr, "It is currently forbidden to create more than one instance of s4u::Engine");
  35   s4u::Engine::instance_ = this;
  36   pimpl                  = new kernel::EngineImpl();
  37
  38   TRACE_global_init(argc, argv);
  39   SIMIX_global_init(argc, argv);
  40 }
  41
  42 Engine::~Engine()
  43 {
  44   delete pimpl;
  45 }
  46
  47 Engine *Engine::instance() {
  48   if (s4u::Engine::instance_ == nullptr)
  49     new Engine(0,nullptr);
  50   return s4u::Engine::instance_;
  51 }
  52
  53 void Engine::shutdown() {
  54   delete s4u::Engine::instance_;
  55   s4u::Engine::instance_ = nullptr;
  56   delete s4u::Storage::storages_;
  57 }
  58
  59 double Engine::getClock()
  60 {
  61   return SIMIX_get_clock();
  62 }
  63
  64 void Engine::loadPlatform(const char *platf)
  65 {
  66   SIMIX_create_environment(platf);
  67 }
  68
  69 void Engine::registerFunction(const char*name, int (*code)(int,char**))
  70 {
  71   SIMIX_function_register(name,code);
  72 }
  73 void Engine::registerDefault(int (*code)(int,char**))
  74 {
  75   SIMIX_function_register_default(code);
  76 }
  77 void Engine::loadDeployment(const char *deploy)
  78 {
  79   SIMIX_launch_application(deploy);
  80 }
  81
  82 void Engine::run() {
  83   if (MC_is_active()) {
  84     MC_run();
  85   } else {
  86     SIMIX_run();
  87   }
  88 }
  89
  90 s4u::NetZone* Engine::netRoot()
  91 {
  92   return pimpl->netRoot_;
  93 }
  94
  95 static s4u::NetZone* netzoneByNameRecursive(s4u::NetZone* current, const char* name)
  96 {
  97   if(!strcmp(current->name(), name))
  98     return current;
  99
 100   xbt_dict_cursor_t cursor = nullptr;
 101   char *key;
 102   NetZone_t elem;
 103   xbt_dict_foreach(current->children(), cursor, key, elem) {
 104     simgrid::s4u::NetZone* tmp = netzoneByNameRecursive(elem, name);
 105     if (tmp != nullptr )
 106         return tmp;
 107   }
 108   return nullptr;
 109 }
 110
 111 /** @brief Retrieve the NetZone of the given name (or nullptr if not found) */
 112 NetZone* Engine::netzoneByNameOrNull(const char* name)
 113 {
 114   return netzoneByNameRecursive(netRoot(), name);
 115 }
 116
 117 /** @brief Retrieve the netpoint of the given name (or nullptr if not found) */
 118 simgrid::kernel::routing::NetPoint* Engine::netpointByNameOrNull(const char* name)
 119 {
 120   if (pimpl->netpoints_.find(name) == pimpl->netpoints_.end())
 121     return nullptr;
 122   return pimpl->netpoints_.at(name);
 123 }
 124 /** @brief Fill the provided vector with all existing netpoints */
 125 void Engine::netpointList(std::vector<simgrid::kernel::routing::NetPoint*>* list)
 126 {
 127   for (auto kv : pimpl->netpoints_)
 128     list->push_back(kv.second);
 129 }
 130 /** @brief Register a new netpoint to the system */
 131 void Engine::netpointRegister(simgrid::kernel::routing::NetPoint* point)
 132 {
 133 //  simgrid::simix::kernelImmediate([&]{ FIXME: this segfaults in set_thread
 134   pimpl->netpoints_[point->name()] = point;
 135 //  });
 136 }
 137 /** @brief Unregister a given netpoint */
 138 void Engine::netpointUnregister(simgrid::kernel::routing::NetPoint* point)
 139 {
 140   simgrid::simix::kernelImmediate([this, point] {
 141     pimpl->netpoints_.erase(point->name());
 142     delete point;
 143   });
 144 }
 145 }
 146 }