Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Reimplement the lua console on top of sg_platf
[simgrid.git] / src / msg / environment.c
1 /* Copyright (c) 2004, 2005, 2006, 2007, 2008, 2009, 2010. The SimGrid Team.
2  * All rights reserved.                                                     */
3
4 /* This program is free software; you can redistribute it and/or modify it
5  * under the terms of the license (GNU LGPL) which comes with this package. */
6
7 #include "msg/private.h"
8 #include "xbt/sysdep.h"
9 #include "xbt/log.h"
10 #include "xbt/dict.h"
11 #ifdef HAVE_LUA
12 #include <lua.h>
13 #include <lauxlib.h>
14 #include <lualib.h>
15 #endif
16 //#endif
17 /** \defgroup msg_easier_life      Platform and Application management
18  *  \brief This section describes functions to manage the platform creation
19  *  and the application deployment. You should also have a look at 
20  *  \ref MSG_examples  to have an overview of their usage.
21  */
22 /** @addtogroup msg_easier_life
23  *    \htmlonly <!-- DOXYGEN_NAVBAR_LABEL="Platforms and Applications" --> \endhtmlonly
24  * 
25  */
26
27 /********************************* MSG **************************************/
28
29 /** \ingroup msg_easier_life
30  * \brief A name directory service...
31  *
32  * Finds a m_host_t using its name.
33  * \param name the name of an host.
34  * \return the corresponding host
35  */
36 m_host_t MSG_get_host_by_name(const char *name)
37 {
38   smx_host_t simix_h = NULL;
39   simix_h = SIMIX_req_host_get_by_name(name);
40
41   if (simix_h == NULL)
42     return NULL;
43
44   return (m_host_t) SIMIX_req_host_get_data(simix_h);
45 }
46
47 /** \ingroup msg_easier_life
48  * \brief A platform constructor.
49  *
50  * Creates a new platform, including hosts, links and the
51  * routing_table. 
52  * \param file a filename of a xml description of a platform. This file 
53  * follows this DTD :
54  *
55  *     \include simgrid.dtd
56  *
57  * Here is a small example of such a platform 
58  *
59  *     \include small_platform.xml
60  *
61  * Have a look in the directory examples/msg/ to have a big example.
62  */
63 void MSG_create_environment(const char *file)
64 {
65   xbt_lib_cursor_t cursor;
66   void **data;
67   char *name;
68
69   SIMIX_create_environment(file);
70
71   /* Initialize MSG hosts */
72   xbt_lib_foreach(host_lib, cursor, name, data) {
73     if(data[SIMIX_HOST_LEVEL])
74       __MSG_host_create((smx_host_t)data[SIMIX_HOST_LEVEL], NULL);
75   }
76 }
77
78 /**
79  * \brief A platform constructor bypassing the parser.
80  *
81  * load lua script file to set up new platform, including hosts,links
82  * and the routing table
83  */
84
85 void MSG_load_platform_script(const char *script_file)
86 {
87 #ifdef HAVE_LUA
88   lua_State *L = lua_open();
89   luaL_openlibs(L);
90
91   if (luaL_loadfile(L, script_file) || lua_pcall(L, 0, 0, 0)) {
92     printf("error: %s\n", lua_tostring(L, -1));
93     return;
94   }
95 #else
96   xbt_die
97       ("Lua is not available!! to call MSG_load_platform_script, lua should be available...");
98 #endif
99 }