Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
WIP stop using const char* in C++ layers
[simgrid.git] / 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       xbt_dict_cursor_free(&cursor);
107       return tmp;
108     }
109   }
110   return nullptr;
111 }
112
113 /** @brief Retrieve the NetZone of the given name (or nullptr if not found) */
114 NetZone* Engine::netzoneByNameOrNull(const char* name)
115 {
116   return netzoneByNameRecursive(netRoot(), name);
117 }
118
119 /** @brief Retrieve the netpoint of the given name (or nullptr if not found) */
120 simgrid::kernel::routing::NetPoint* Engine::netpointByNameOrNull(const char* name)
121 {
122   if (pimpl->netpoints_.find(name) == pimpl->netpoints_.end())
123     return nullptr;
124   return pimpl->netpoints_.at(name);
125 }
126 /** @brief Fill the provided vector with all existing netpoints */
127 void Engine::netpointList(std::vector<simgrid::kernel::routing::NetPoint*>* list)
128 {
129   for (auto kv : pimpl->netpoints_)
130     list->push_back(kv.second);
131 }
132 /** @brief Register a new netpoint to the system */
133 void Engine::netpointRegister(simgrid::kernel::routing::NetPoint* point)
134 {
135 //  simgrid::simix::kernelImmediate([&]{ FIXME: this segfaults in set_thread
136   pimpl->netpoints_[point->name()] = point;
137 //  });
138 }
139 /** @brief Unregister a given netpoint */
140 void Engine::netpointUnregister(simgrid::kernel::routing::NetPoint* point)
141 {
142   simgrid::simix::kernelImmediate([this, point] {
143     pimpl->netpoints_.erase(point->name());
144     delete point;
145   });
146 }
147 }
148 }