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;
}
