Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
let's use a sensible API for the MSG_zone functions
[simgrid.git] / src / msg / msg_environment.cpp
1 /* Copyright (c) 2004-2017. The SimGrid Team. All rights reserved.          */
2
3 /* This program is free software; you can redistribute it and/or modify it
4  * under the terms of the license (GNU LGPL) which comes with this package. */
5
6 #include "simgrid/s4u/Engine.hpp"
7 #include "simgrid/s4u/NetZone.hpp"
8 #include "src/msg/msg_private.h"
9
10 #if SIMGRID_HAVE_LUA
11 #include <lua.h>
12 #include <lauxlib.h>
13 #include <lualib.h>
14 #endif
15
16 SG_BEGIN_DECL()
17
18 /********************************* MSG **************************************/
19
20 /** \ingroup msg_simulation
21  * \brief A platform constructor.
22  *
23  * Creates a new platform, including hosts, links and the routing_table.
24  * \param file a filename of a xml description of a platform. This file follows this DTD :
25  *
26  *     \include simgrid.dtd
27  *
28  * Here is a small example of such a platform 
29  *
30  *     \include small_platform.xml
31  *
32  * Have a look in the directory examples/msg/ to have a big example.
33  */
34 void MSG_create_environment(const char *file)
35 {
36   SIMIX_create_environment(file);
37 }
38
39 void MSG_post_create_environment() {
40   xbt_lib_cursor_t cursor;
41   void **data;
42   char *name;
43
44   /* Initialize MSG storages */
45   xbt_lib_foreach(storage_lib, cursor, name, data) {
46     if(data[SIMIX_STORAGE_LEVEL])
47       __MSG_storage_create(xbt_dict_cursor_get_elm(cursor));
48   }
49 }
50
51 msg_netzone_t MSG_zone_get_root()
52 {
53   return simgrid::s4u::Engine::instance()->netRoot();
54 }
55
56 const char* MSG_zone_get_name(msg_netzone_t netzone)
57 {
58   return netzone->name();
59 }
60
61 msg_netzone_t MSG_zone_get_by_name(const char* name)
62 {
63   return simgrid::s4u::Engine::instance()->netzoneByNameOrNull(name);
64 }
65
66 void MSG_zone_get_sons(msg_netzone_t netzone, xbt_dict_t whereto)
67 {
68   for (auto elem : *netzone->children()) {
69     xbt_dict_set(whereto, elem->name(), static_cast<void*>(elem), nullptr);
70   }
71 }
72
73 const char* MSG_zone_get_property_value(msg_netzone_t netzone, const char* name)
74 {
75   return netzone->property(name);
76 }
77
78 void MSG_zone_set_property_value(msg_netzone_t netzone, const char* name, char* value)
79 {
80   netzone->setProperty(name, value);
81 }
82
83 void MSG_zone_get_hosts(msg_netzone_t netzone, xbt_dynar_t whereto)
84 {
85   for (auto host : *netzone->hosts()) {
86     xbt_dynar_push(whereto, &host);
87   }
88 }
89
90 SG_END_DECL()