Example #1
0
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);
}