Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Merge branch 'master' of git+ssh://scm.gforge.inria.fr//gitroot/simgrid/simgrid
[simgrid.git] / src / msg / msg_environment.cpp
1 /* Copyright (c) 2004-2016. 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/NetZone.hpp"
7 #include "simgrid/s4u/engine.hpp"
8 #include "src/msg/msg_private.h"
9
10 #if 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_environment_get_routing_root()
52 {
53   return simgrid::s4u::Engine::instance()->netRoot();
54 }
55
56 const char* MSG_environment_as_get_name(msg_netzone_t netzone)
57 {
58   return netzone->name();
59 }
60
61 msg_netzone_t MSG_environment_as_get_by_name(const char* name)
62 {
63   return simgrid::s4u::Engine::instance()->netzoneByNameOrNull(name);
64 }
65
66 xbt_dict_t MSG_environment_as_get_routing_sons(msg_netzone_t netzone)
67 {
68   return netzone->children();
69 }
70
71 const char* MSG_environment_as_get_property_value(msg_netzone_t netzone, const char* name)
72 {
73   return netzone->property(name);
74 }
75
76 void MSG_environment_as_set_property_value(msg_netzone_t netzone, const char* name, char* value)
77 {
78   netzone->setProperty(name, value);
79 }
80
81 xbt_dynar_t MSG_environment_as_get_hosts(msg_netzone_t netzone)
82 {
83   xbt_dynar_t res = xbt_dynar_new(sizeof(sg_host_t), nullptr);
84
85   for (auto host : netzone->hosts()) {
86     xbt_dynar_push(res, &host);
87   }
88
89   return res;
90 }
91
92 SG_END_DECL()