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();
}
/// Opens a library
///
/// \param s The Lua state.
/// \param name The name of the module to create.
/// \param members The list of member functions to add to the module.
void lutok::registerLib(state& s, const std::map< std::string, cxx_function >& members){
assert(s.is_table());
for (std::map< std::string, cxx_function >::const_iterator
iter = members.begin(); iter != members.end(); iter++) {
s.push_string((*iter).first);
s.push_cxx_function((*iter).second);
s.set_table(-3);
}
}
/// Opens a library
///
/// \param s The Lua state.
/// \param name The name of the module to create.
/// \param members The list of member functions to add to the module.
void lutok::registerLib(state& s, const std::string& name, const std::map< std::string, cxx_function >& members, const int nup){
s.findLib(name, members.size(), nup);
assert(s.is_table());
for (std::map< std::string, cxx_function >::const_iterator
iter = members.begin(); iter != members.end(); iter++) {
s.push_string((*iter).first);
s.push_cxx_function((*iter).second);
s.set_table(-3);
}
s.pop(nup);
}
/// Creates a module: i.e. a table with a set of methods in it.
///
/// \param s The Lua state.
/// \param name The name of the module to create.
/// \param members The list of member functions to add to the module.
void
lutok::create_module(state& s, const std::string& name,
const std::map< std::string, cxx_function >& members)
{
stack_cleaner cleaner(s);
s.new_table();
for (std::map< std::string, cxx_function >::const_iterator
iter = members.begin(); iter != members.end(); iter++) {
s.push_string((*iter).first);
s.push_cxx_function((*iter).second);
s.set_table(-3);
}
s.set_global(name);
}
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 void lutok::LObject<T>::set(state& s, Index table, const std::string& key) {
s.push_string(key);
s.insert(-2);
s.set_table(table);
}
