static typename lutok::LObject<T>::Index lutok::LObject<T>::push(state& s, T* instance, bool gc) { if (!instance) { s.push_nil(); return 0; } luaL_getmetatable(s._pimpl->lua_state, T::s_lunaClassName); if (s.is_nil()) { luaL_error(s._pimpl->lua_state, "[Luna::%s] Class %s has not been commited!", __func__, T::s_lunaClassName); return 0; } lutok::LObject<T>::Index metatable = s.get_top(); subtable(s, metatable, "userdata", "v"); lutok::LObject<T>::Userdata * userdata = allocUserdata(s, metatable, instance); if (userdata) { userdata->pT = instance; s.push_value(metatable); s.set_metatable(); if (!gc) { lua_checkstack(s._pimpl->lua_state, 3); subtable(s, metatable, "unmanaged", "k"); s.push_value(-2); s.push_boolean(1); s.set_table(); s.pop(1); } } lua_replace(s._pimpl->lua_state, metatable); lua_settop(s._pimpl->lua_state, metatable); return metatable; }
static void lutok::LObject<T>::weaktable(state& s, const std::string& mode) { s.new_table(); s.push_value(); s.set_metatable(); s.push_literal("__mode"); s.push_string(mode); s.set_table(); }
static void lutok::LObject<T>::commit(state& s) { s.new_table(); int methods = s.get_top(); luaL_newmetatable(s._pimpl->lua_state, T::s_lunaClassName); int metatable = s.get_top(); s.push_value(methods); set(s, LUA_GLOBALSINDEX, T::s_lunaClassName); s.push_value(methods); set(s, metatable, "__metatable"); s.push_value(methods); set(s, metatable, "__index"); s.push_cxx_function(tostringT); set(s, metatable, "__tostring"); s.push_cxx_function(gcT); set(s, metatable, "__gc"); s.new_table(); s.push_cxx_function(newT); s.push_value(); set(s, methods, "new"); set(s, -3, "__call"); s.set_metatable(methods); for (std::map< std::string, cxx_function >::const_iterator iter = T::s_lunaMethods.begin(); iter != T::s_lunaMethods.end(); iter++) { s.push_string((*iter).first); s.push_lightuserdata(reinterpret_cast<void*>((*iter).second)); s.push_cxx_closure(thunk, 1); s.set_table(methods); } TypeInfo::commit(s, methods); s.pop(2); }
static void lutok::LObject<T>::TypeInfo::commit(state& s, int methods) { s.get_global(typeid(T).name()); if (s.is_table()) { s.set_table(methods); return; } s.new_table(); int type = s.get_top(); assert(T::s_lunaTypeInfoPtr); s.push_string(T::s_lunaTypeInfoPtr->name()); set(s, type, "name"); s.push_value(type); set(s, methods, "type"); s.push_value(methods); set(s, LUA_GLOBALSINDEX, T::s_lunaTypeInfoPtr->name()); }
static int lutok::LObject<T>::gcT(state& s) { if (luaL_getmetafield(s._pimpl->lua_state, 1, "unmanaged")) { s.push_value(1); s.get_table(); if (!s.is_nil()) { return 0; } } Userdata* ud = s.to_userdata<UserData>(1); T* obj = ud->pT; delete obj; return 0; }
static void lutok::LObject<T>::subtable(state& s, Index metatable, const std::string& name, const std::string& mode) { s.push_string(name); s.get_table(metatable); if (s.is_nil()) { s.pop(1); lua_checkstack(s._pimpl->lua_state, 3); weaktable(s, mode); s.push_string(name); s.push_value(-2); s.set_metatable(metatable); } }