From 9d72640755f000f77b6ede2f4d70d0870cf540c0 Mon Sep 17 00:00:00 2001
From: Enno Rehling <enno@eressea.de>
Date: Mon, 11 Jun 2007 23:56:04 +0000
Subject: [PATCH] Compiles with LUA 5.0, too

---
 src/eressea/gmmain.cpp | 39 +++++++++++++++++++++++++--------------
 src/eressea/server.cpp | 26 +++++++++++++++++++++++++-
 2 files changed, 50 insertions(+), 15 deletions(-)

diff --git a/src/eressea/gmmain.cpp b/src/eressea/gmmain.cpp
index 809e0f846..d44e8bc3e 100644
--- a/src/eressea/gmmain.cpp
+++ b/src/eressea/gmmain.cpp
@@ -21,25 +21,39 @@
 #include <lua.hpp>
 #include <luabind/luabind.hpp>
 
+static const struct { 
+  const char * name;
+  int (*func)(lua_State *);
+} lualibs[] = {
+  {"",                luaopen_base},
+  {LUA_TABLIBNAME,    luaopen_table},
+  {LUA_IOLIBNAME,     luaopen_io},
+  {LUA_STRLIBNAME,    luaopen_string},
+  {LUA_MATHLIBNAME,   luaopen_math},
+  { NULL, NULL }
+};
+
+static void
+openlibs(lua_State * L)
+{
+  int i;
+  for (i=0;lualibs[i].func;++i) {
+    lua_pushcfunction(L, lualibs[i].func);
+    lua_pushstring(L, lualibs[i].name);
+    lua_call(L, 1, 0);
+  }
+}
+
 static lua_State *
 lua_init(void)
 {
   lua_State * L = lua_open();
-/*   
-  luaopen_base(L);
-  luaopen_math(L);
-  luaopen_string(L);
-  luaopen_io(L);
-  luaopen_table(L);
-*/
-  luaL_openlibs(L);
+
+  openlibs(L);
 
   luabind::open(L);
   bind_objects(L);
   bind_eressea(L);
-  // bind_script(L);
-  // bind_message(L);
-  // bind_event(L);
   bind_spell(L);
   bind_alliance(L);
   bind_region(L);
@@ -56,9 +70,6 @@ lua_init(void)
 static void
 lua_done(lua_State * L)
 {
-#if 0
-  reset_scripts();
-#endif
   lua_close(L);
 }
 
diff --git a/src/eressea/server.cpp b/src/eressea/server.cpp
index 14bac20e5..1b84a9e0e 100644
--- a/src/eressea/server.cpp
+++ b/src/eressea/server.cpp
@@ -258,6 +258,29 @@ game_init(void)
 #endif
 }
 
+static const struct { 
+  const char * name;
+  int (*func)(lua_State *);
+} lualibs[] = {
+  {"",                luaopen_base},
+  {LUA_TABLIBNAME,    luaopen_table},
+  {LUA_IOLIBNAME,     luaopen_io},
+  {LUA_STRLIBNAME,    luaopen_string},
+  {LUA_MATHLIBNAME,   luaopen_math},
+  { NULL, NULL }
+};
+
+static void
+openlibs(lua_State * L)
+{
+  int i;
+  for (i=0;lualibs[i].func;++i) {
+    lua_pushcfunction(L, lualibs[i].func);
+    lua_pushstring(L, lualibs[i].name);
+    lua_call(L, 1, 0);
+  }
+}
+
 static lua_State *
 lua_init(void)
 {
@@ -268,8 +291,9 @@ lua_init(void)
   luaopen_string(luaState);
   luaopen_io(luaState);
   luaopen_table(luaState);
- */
   luaL_openlibs(luaState);
+ */
+  openlibs(luaState);
   luabind::open(luaState);
   bind_objects(luaState);
   bind_eressea(luaState);