将c++类导出到lua脚本实例

#include "luna.h" template<class T> class luna { public: static void Register(lua_State *L) { lua_pushcfunction(L, &luna<T>::construct); lua_setglobal(L, T::classname); luaL_newmetatable(L, T::classname); int meta_tb = lua_gettop(L); lua_pushstring(L, "__gc"); lua_pushcfunction(L, &luna<T>::gc_obj); lua_settable(L, meta_tb); } static int construct(lua_State *L) { T* obj = new T(L); lua_newtable(L); int tb1 = lua_gettop(L); lua_pushnumber(L, 0); T** pp = (T**)lua_newuserdata(L, sizeof(T*)); *pp = obj; luaL_getmetatable(L, T::classname); lua_setmetatable(L, -2); lua_settable(L, tb1); for (int i=0; T::function[i].name; i++) { lua_pushstring(L, T::function[i].name); lua_pushnumber(L, i); lua_pushcclosure(L, &luna<T>::thunk , 1); lua_settable(L,tb1); } return 1; } static int thunk(lua_State *L) { int i = (int)lua_tonumber(L, lua_upvalueindex(1)); lua_pushnumber(L, 0); lua_gettable(L, 1); T* p = *((T**)luaL_checkudata(L, -1, T::classname)); lua_remove(L, -1); return (p->*(T::function[i].mfunc))(L); } static int gc_obj(lua_State *L) { T* p = *((T**)luaL_checkudata(L, -1, T::classname)); if (p) delete p; return 0; } struct RegType { const char *name; int (T::*mfunc)(lua_State *); }; }; class Base { public: Base() {} ~Base() {} int add(int a, int b) { return a + b; } }; class Foo :public Base { public: Foo(lua_State *L) { printf("call Foo constructor\n"); } ~Foo() { printf("call Foo destructor\n"); } int foo(lua_State *L) { printf("in foo function\n"); return 0; } int get(lua_State *L) { printf("in get function\n"); return 0; } int n_add(lua_State *L) { int a = NULL; int b = NULL; a = (int)luaL_checknumber(L, -2); b = (int)luaL_checknumber(L, -1); double result = add(a, b); lua_pushnumber(L, result); // int index = lua_gettop(L); // printf("index=%d",index); return 1; } static const char classname[]; static const luna<Foo>::RegType function[]; private: int m_value; }; const char Foo::classname[] = "Foo"; const luna<Foo>::RegType Foo::function[] = { { "foo", &Foo::foo}, { "get", &Foo::get}, { "add", &Foo::n_add}, { NULL , NULL } }; int main() { lua_State *L = lua_open(); luaopen_base(L); luna<Foo>::Register(L); luaL_dofile(L, "test.lua"); lua_close(L); return 0; }