1 files changed, 153 insertions, 0 deletions
diff --git a/lib/liblua_wrapper.cc b/lib/liblua_wrapper.cc
new file mode 100644
index 0000000..7f493c5
--- /dev/null
+++ b/lib/liblua_wrapper.cc
@@ -0,0 +1,153 @@
+/* -*- Mode: C++; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/***************************************************************************
+ *            liblua_wrapper.cc
+ *
+ *  Mon Aug 14 17:36:03 CEST 2006
+ *  Copyright  2006 Bent Bisballe Nyeng
+ *  deva@aasimon.org
+ ****************************************************************************/
+
+/*
+ *  This file is part of MIaV.
+ *
+ *  MIaV is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  MIaV is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with MIaV; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA.
+ */
+#include "liblua_wrapper.h"
+
+#include <stdexcept>
+
+LibLUAWrapper::LibLUAWrapper()
+{ 
+  L = lua_open();
+  //  luaL_openlibs(L);
+}
+
+LibLUAWrapper::~LibLUAWrapper()
+{
+  lua_close(L);
+}
+
+int LibLUAWrapper::loadFile(char *fname)
+{
+  int s;
+
+  s = luaL_loadfile(L, fname);
+
+  switch(s) {
+  case 0: //no errors;
+    break;
+  case LUA_ERRSYNTAX: //syntax error during pre-compilation;
+  case LUA_ERRMEM: //memory allocation error.
+  case LUA_ERRFILE: //cannot open/read the file.
+    error = std::string(lua_tostring(L, lua_gettop(L)));
+    return 1;
+  default:
+    error = std::string("Unknown return value of luaL_loadfile.");
+    return 1;
+  }
+
+  s = lua_pcall(L, 0, LUA_MULTRET, 0);
+
+  switch(s) {
+  case 0: // Success
+    break;
+  case LUA_ERRRUN:// a runtime error.
+  case LUA_ERRMEM:// memory allocation error. For such errors, Lua does not call the error handler function.
+  case LUA_ERRERR:// error while running the error handler function.
+    error = std::string(lua_tostring(L, lua_gettop(L)));
+    return 1;
+  default:
+    error = std::string("Unknown return value of lua_pcall.");
+    return 1;
+  }
+
+  return 0;
+}
+
+int LibLUAWrapper::getInteger(char *name)
+{
+  lua_getfield(L, LUA_GLOBALSINDEX, name); 
+  
+  int top = lua_gettop(L);
+
+  int val = lua_tointeger(L, top);
+
+  lua_remove(L, top);
+
+  return val;
+}
+
+double LibLUAWrapper::getReal(char *name)
+{
+  lua_getfield(L, LUA_GLOBALSINDEX, name); 
+  
+  int top = lua_gettop(L);
+
+  double val = lua_tonumber(L, top);
+
+  lua_remove(L, top);
+
+  return val;
+}
+
+bool LibLUAWrapper::getBoolean(char *name)
+{
+  lua_getfield(L, LUA_GLOBALSINDEX, name); 
+  
+  int top = lua_gettop(L);
+
+  bool val = lua_toboolean(L, top);
+
+  lua_remove(L, top);
+
+  return val;
+}
+
+std::string LibLUAWrapper::getString(char *name)
+{
+  lua_getfield(L, LUA_GLOBALSINDEX, name); 
+  
+  int top = lua_gettop(L);
+
+  std::string val = std::string(lua_tostring(L, top));
+
+  lua_remove(L, top);
+
+  return val;
+}
+
+std::string LibLUAWrapper::getError()
+{
+  return error;
+}
+
+#ifdef LUA_TEST
+
+int main()
+{
+  LibLUAWrapper lua;
+
+  if(!lua.loadFile("test.lua")) {
+    printf("a: %f\n", lua.getReal("a"));
+    printf("b: %d\n", lua.getInteger("b"));
+    printf("c: %d\n", lua.getBoolean("c"));
+    printf("fisk: %s\n", lua.getString("fisk").c_str());
+  } else {
+    fprintf(stderr, "LUA load error: %s\n", lua.getError().c_str());
+  }
+  return 0;
+}
+
+#endif