void tLuaObject::RegisterType(lua_State* L, const char* type_name, const char* pointer_type_name) { LUASTACK_SET(L); luaCompat_moduleCreate(L, MODULENAME); lua_pop(L, 1); // Registers the table type and the pointer type luaCompat_newLuaType(L, MODULENAME, type_name); luaCompat_newLuaType(L, MODULENAME, pointer_type_name); #ifdef LUA5 // Registers the weak table to store the pairs // (pointer, LuaObject) to avoid duplication // of Lua objects. This step must be done // only once luaCompat_moduleGet(L, MODULENAME, INSTANCES_CACHE); if(lua_isnil(L, -1)) { lua_pop(L, 1); // pushes tables lua_newtable(L); // pushes metatable and initializes it lua_newtable(L); lua_pushstring(L, "__mode"); lua_pushstring(L, "v"); lua_settable(L, -3); lua_setmetatable(L, -2); // stores in the registry luaCompat_moduleSet(L, MODULENAME, INSTANCES_CACHE); } else lua_pop(L, 1); #endif luaCompat_pushTypeByName(L, MODULENAME, type_name); lua_pushcfunction(L, tLuaObject::generic_index); luaCompat_handleNoIndexEvent(L); lua_pushcfunction(L, tLuaObject::generic_newindex); luaCompat_handleSettableEvent(L); lua_pop(L, 1); luaCompat_pushTypeByName(L, MODULENAME, pointer_type_name); lua_pushcfunction(L, tLuaObject::garbagecollect); luaCompat_handleGCEvent(L); lua_pop(L, 1); LUASTACK_CLEAN(L, 0); }
void luaCompat_newLuaType(lua_State* L, const char* module_name, const char* type_name) { /* lua4 */ LUASTACK_SET(L); int tag = lua_newtag(L); lua_pushnumber(L, tag); luaCompat_moduleSet(L, module_name, type_name); LUASTACK_CLEAN(L, 0); }
void luaCompat_newLuaType(lua_State* L, const char* module, const char* type) { /* lua5 */ LUASTACK_SET(L); lua_newtable(L); /* stores the typename in the Lua table, allowing some reflexivity */ lua_pushstring(L, "type"); lua_pushstring(L, type); lua_settable(L, -3); /* stores type in the module */ luaCompat_moduleSet(L, module, type); LUASTACK_CLEAN(L, 0); }
LuaBeans* LuaBeans::createBeans(lua_State *L, const char* module_name, const char* name) { LUASTACK_SET(L); luaCompat_moduleGet(L, module_name, "LuaBeansTable"); if(lua_isnil(L, -1)) { lua_pop(L, 1); lua_newtable(L); lua_pushvalue(L, -1); luaCompat_moduleSet(L, module_name, "LuaBeansTable"); } lua_pushstring(L, (char*)name); LuaBeans* lbeans = new LuaBeans(L, module_name, name); luaCompat_pushTypeByName(L, module_name, "LuaBeansObject"); // sets GC callback lua_pushcfunction(L, LuaBeans::gc); luaCompat_handleGCEvent(L); luaCompat_newTypedObject(L, lbeans); lua_settable(L, -3); lua_pop(L, 1); LUASTACK_CLEAN(L, 0); return lbeans; }