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