add Lua and basic Lua->C/C++ integration test, in preparation for Bullet demos setup using Lua scripts.

test/lua/main.cpp

@@ -0,0 +1,179 @@
+
+// Some quick experiments to use Lua and C (C++) together
+// so Lua can be used to setup the Bullet demos
+// See http://csl.name/lua/ 
+// and http://stackoverflow.com/questions/7298642/passing-c-struct-pointer-to-lua-script
+
+
+#include <iostream>
+#include <vector>
+
+extern "C" {
+	#include "lua.h"
+	#include "lualib.h"
+#include "lauxlib.h"
+}
+
+
+
+struct MyTest
+{
+	int m_bla;
+	MyTest():m_bla(10)
+	{
+		
+	}
+	
+	void methodPrint()
+	{
+		printf("t->m_bla=%d\n",m_bla);
+	}
+
+};
+
+std::vector<MyTest*> gValidPointers;
+
+bool isValidPointer(MyTest* ptr)
+{
+	bool result = false;
+
+	for (int i=0;i<gValidPointers.size();i++)
+	{
+		if (gValidPointers[i]==ptr)
+			result = true;
+	}
+	return result;
+}
+
+bool removeValidPointer(MyTest* ptr)
+{
+	bool result = false;
+	for (int i=0;i<gValidPointers.size();i++)
+	{
+		if (gValidPointers[i]==ptr)
+		{
+			gValidPointers[i]=0;
+			gValidPointers[i] = gValidPointers[gValidPointers.size()-1];
+			gValidPointers.pop_back();
+			result = true;
+		}
+	}
+	return result;
+}
+
+
+int my_printTest(lua_State *L)
+{
+	int argc = lua_gettop(L);
+	if (argc==1)
+	{
+		MyTest* tst = (MyTest*) lua_touserdata(L,1);
+		
+		if (isValidPointer(tst))
+		{
+			tst->methodPrint();
+		} else
+		{
+			 std::cerr << "error my_printTest called with invalid argument ";
+		}
+	}
+	return 0;
+}
+
+int my_createFunction(lua_State *L)
+{
+  int argc = lua_gettop(L);
+
+  std::cerr << "-- my_function() called with " << argc
+    << " arguments:" << std::endl;
+
+  for ( int n=1; n<=argc; ++n ) {
+    std::cerr << "-- argument " << n << ": "
+      << lua_tostring(L, n) << std::endl;
+  }
+
+  
+
+  MyTest* newTest = new MyTest();
+  gValidPointers.push_back(newTest);
+  lua_pushlightuserdata (L, newTest);
+
+
+
+  return 1; // number of return values
+}
+
+int my_deleteFunction(lua_State *L)
+{
+	int argc = lua_gettop(L);
+	if (argc==1)
+	{
+		MyTest* tst = (MyTest*) lua_touserdata(L,1);
+		if (tst)
+		{
+			bool result = removeValidPointer(tst);
+			if (result)
+			{
+				delete tst;
+			} else
+			{
+				 std::cerr << "error my_deleteFunction called with invalid pointer argument ";
+			}
+		} else
+		{
+			 std::cerr << "error my_deleteFunction called with non-pointer argument ";
+		}
+	}
+
+  return 0; // number of return values
+}
+
+
+
+void report_errors(lua_State *L, int status)
+{
+  if ( status!=0 ) {
+    std::cerr << "-- " << lua_tostring(L, -1) << std::endl;
+    lua_pop(L, 1); // remove error message
+  }
+}
+
+int main(int argc, char** argv)
+{
+  for ( int n=1; n<argc; ++n ) {
+    const char* file = argv[n];
+
+    lua_State *L = luaL_newstate();
+
+    luaopen_io(L); // provides io.*
+    luaopen_base(L);
+    luaopen_table(L);
+    luaopen_string(L);
+    luaopen_math(L);
+    //luaopen_package(L);
+	luaL_openlibs(L);
+
+	 // make my_function() available to Lua programs
+    lua_register(L, "my_createFunction", my_createFunction);
+	lua_register(L, "my_printTest", my_printTest);
+	lua_register(L, "my_deleteFunction", my_deleteFunction);
+	
+
+
+    std::cerr << "-- Loading file: " << file << std::endl;
+
+    int s = luaL_loadfile(L, file);
+
+    if ( s==0 ) {
+      // execute Lua program
+      s = lua_pcall(L, 0, LUA_MULTRET, 0);
+    }
+
+    report_errors(L, s);
+    lua_close(L);
+    std::cerr << std::endl;
+  }
+
+  return 0;
+
+}

test/lua/premake4.lua

@@ -0,0 +1,23 @@
+
+
+project ("Test_Lua")
+
+	language "C++"
+			
+	kind "ConsoleApp"
+	targetdir "../../bin"
+	includedirs {"../../btgui/lua-5.2.3/src"}
+	
+	if os.is("Windows") then 
+	end
+	if os.is("Linux") then
+	end
+	if os.is("MacOSX") then
+	end		
+		
+	links {"lua-5.2.3"}		
+	
+	files {
+		"main.cpp",
+	}
+