A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Support for Fortran code in SMPI based on f2c, some perl and some dirty hacks.
[simgrid.git]
/
src
/
msg
/
environment.c
diff --git
a/src/msg/environment.c
b/src/msg/environment.c
index
9335a5d
..
9599a01
100644
(file)
--- a/
src/msg/environment.c
+++ b/
src/msg/environment.c
@@
-8,10
+8,12
@@
#include "xbt/sysdep.h"
#include "xbt/log.h"
#include "xbt/dict.h"
#include "xbt/sysdep.h"
#include "xbt/log.h"
#include "xbt/dict.h"
-#include "lua.h"
-#include "lauxlib.h"
-#include "lualib.h"
-
+#ifdef HAVE_LUA
+#include <lua.h>
+#include <lauxlib.h>
+#include <lualib.h>
+#endif
+//#endif
/** \defgroup msg_easier_life Platform and Application management
* \brief This section describes functions to manage the platform creation
* and the application deployment. You should also have a look at
/** \defgroup msg_easier_life Platform and Application management
* \brief This section describes functions to manage the platform creation
* and the application deployment. You should also have a look at
@@
-35,11
+37,11
@@
m_host_t MSG_get_host_by_name(const char *name)
{
smx_host_t simix_h = NULL;
simix_h = SIMIX_host_get_by_name(name);
{
smx_host_t simix_h = NULL;
simix_h = SIMIX_host_get_by_name(name);
-
+
if (simix_h == NULL)
return NULL;
if (simix_h == NULL)
return NULL;
- return (m_host_t)SIMIX_host_get_data(simix_h);
+ return (m_host_t)
SIMIX_host_get_data(simix_h);
}
/** \ingroup msg_easier_life
}
/** \ingroup msg_easier_life
@@
-81,15
+83,19
@@
void MSG_create_environment(const char *file)
* and the routing table
*/
* and the routing table
*/
-void MSG_load_platform_script(const char *script_file) {
-
- lua_State *L = lua_open();
- luaL_openlibs(L);
-
- if (luaL_loadfile(L, script_file) || lua_pcall(L, 0, 0, 0)) {
- printf("error: %s\n", lua_tostring(L, -1));
- return;
- }
+void MSG_load_platform_script(const char *script_file)
+{
+#ifdef HAVE_LUA
+ lua_State *L = lua_open();
+ luaL_openlibs(L);
+ if (luaL_loadfile(L, script_file) || lua_pcall(L, 0, 0, 0)) {
+ printf("error: %s\n", lua_tostring(L, -1));
return;
return;
+ }
+#else
+ xbt_die
+ ("Lua is not available!! to call MSG_load_platform_script, lua should be available...");
+#endif
+ return;
}
}