From c95cc94a68476cd6a9eb6d8439be2439b3922f9a Mon Sep 17 00:00:00 2001
From: coldpeace <coldpeace@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Thu, 29 Jul 2010 23:07:07 +0000
Subject: [PATCH] add function MSG_load_platform_script that load the console
 lua script to set up platform

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@8066 48e7efb5-ca39-0410-a469-dd3cf9ba447f
---
 include/msg/msg.h     |  1 +
 src/msg/environment.c | 23 +++++++++++++++++++++++
 2 files changed, 24 insertions(+)

diff --git a/include/msg/msg.h b/include/msg/msg.h
index 47272b3ca4..a82b4224f7 100644
--- a/include/msg/msg.h
+++ b/include/msg/msg.h
@@ -49,6 +49,7 @@ XBT_PUBLIC(const char *) MSG_host_get_property_value(m_host_t host,
                                                      const char *name);
 
 XBT_PUBLIC(void) MSG_create_environment(const char *file);
+XBT_PUBLIC(void) MSG_load_platform_script(const char *script_file);
 
 XBT_PUBLIC(m_host_t) MSG_get_host_by_name(const char *name);
 XBT_PUBLIC(int) MSG_get_host_number(void);
diff --git a/src/msg/environment.c b/src/msg/environment.c
index 8d17dc04af..9335a5d628 100644
--- a/src/msg/environment.c
+++ b/src/msg/environment.c
@@ -8,6 +8,9 @@
 #include "xbt/sysdep.h"
 #include "xbt/log.h"
 #include "xbt/dict.h"
+#include "lua.h"
+#include "lauxlib.h"
+#include "lualib.h"
 
 /** \defgroup msg_easier_life      Platform and Application management
  *  \brief This section describes functions to manage the platform creation
@@ -70,3 +73,23 @@ void MSG_create_environment(const char *file)
   }
   return;
 }
+
+/**
+ * \brief A platform constructor bypassing the parser.
+ *
+ * load lua script file to set up new platform, including hosts,links
+ * 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;
+       }
+
+    return;
+}
-- 
2.20.1