cosmetic
This commit is contained in:
+37
-36
@@ -16,53 +16,53 @@ protected:
|
|||||||
|
|
||||||
struct RegType
|
struct RegType
|
||||||
{
|
{
|
||||||
const char *name;
|
const char *szName;
|
||||||
int (*mfunc)(T *p, lua_State *L);
|
int (*mfunc)(T *p, lua_State *L);
|
||||||
};
|
};
|
||||||
|
|
||||||
typedef struct { T *pT; } userdataType;
|
typedef struct { T *pT; } userdataType;
|
||||||
|
|
||||||
public:
|
public:
|
||||||
static void Register(lua_State *L)
|
static void Register( Lua *L )
|
||||||
{
|
{
|
||||||
/* Create the methods table, if it doesn't already exist. */
|
/* Create the methods table, if it doesn't already exist. */
|
||||||
CreateGlobalTable( L, m_sClassName );
|
CreateGlobalTable( L, m_sClassName );
|
||||||
|
|
||||||
int methods = lua_gettop(L);
|
int methods = lua_gettop( L );
|
||||||
|
|
||||||
/* Create a metatable for the userdata objects. */
|
/* Create a metatable for the userdata objects. */
|
||||||
luaL_newmetatable(L, m_sClassName);
|
luaL_newmetatable( L, m_sClassName );
|
||||||
int metatable = lua_gettop(L);
|
int metatable = lua_gettop( L );
|
||||||
|
|
||||||
lua_pushliteral(L, "__metatable");
|
lua_pushliteral( L, "__metatable" );
|
||||||
lua_pushvalue(L, methods);
|
lua_pushvalue( L, methods );
|
||||||
lua_settable(L, metatable); // hide metatable from Lua getmetatable()
|
lua_settable( L, metatable ); // hide metatable from Lua getmetatable()
|
||||||
|
|
||||||
lua_pushliteral(L, "__index");
|
lua_pushliteral( L, "__index" );
|
||||||
lua_pushvalue(L, methods);
|
lua_pushvalue( L, methods );
|
||||||
lua_settable(L, metatable);
|
lua_settable( L, metatable );
|
||||||
|
|
||||||
lua_pushliteral(L, "__tostring");
|
lua_pushliteral( L, "__tostring" );
|
||||||
lua_pushcfunction(L, tostring_T);
|
lua_pushcfunction( L, tostring_T );
|
||||||
lua_settable(L, metatable);
|
lua_settable( L, metatable );
|
||||||
|
|
||||||
lua_pushliteral(L, "__eq");
|
lua_pushliteral( L, "__eq" );
|
||||||
lua_pushcfunction(L, equal);
|
lua_pushcfunction( L, equal );
|
||||||
lua_settable(L, metatable);
|
lua_settable( L, metatable );
|
||||||
|
|
||||||
// fill method table with methods from class T
|
// fill method table with methods from class T
|
||||||
for (unsigned i=0; s_pvMethods && i<s_pvMethods->size(); i++ )
|
for( unsigned i=0; s_pvMethods && i < s_pvMethods->size(); i++ )
|
||||||
{
|
{
|
||||||
const RegType *l = &(*s_pvMethods)[i];
|
const RegType *l = &(*s_pvMethods)[i];
|
||||||
lua_pushstring(L, l->name);
|
lua_pushstring( L, l->szName );
|
||||||
lua_pushlightuserdata(L, (void*)l);
|
lua_pushlightuserdata( L, (void*)l );
|
||||||
lua_pushcclosure(L, thunk, 1);
|
lua_pushcclosure( L, thunk, 1 );
|
||||||
lua_settable(L, methods);
|
lua_settable( L, methods );
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Create a metatable for the methods table. */
|
/* Create a metatable for the methods table. */
|
||||||
lua_newtable( L );
|
lua_newtable( L );
|
||||||
int methods_metatable = lua_gettop(L);
|
int methods_metatable = lua_gettop( L );
|
||||||
|
|
||||||
// Hide the metatable.
|
// Hide the metatable.
|
||||||
lua_pushliteral( L, "__metatable" );
|
lua_pushliteral( L, "__metatable" );
|
||||||
@@ -87,7 +87,7 @@ public:
|
|||||||
/* Set and pop the methods metatable. */
|
/* Set and pop the methods metatable. */
|
||||||
lua_setmetatable( L, methods );
|
lua_setmetatable( L, methods );
|
||||||
|
|
||||||
lua_pop(L, 2); // drop metatable and method table
|
lua_pop( L, 2 ); // drop metatable and method table
|
||||||
}
|
}
|
||||||
|
|
||||||
// get userdata from Lua stack and return pointer to T object
|
// get userdata from Lua stack and return pointer to T object
|
||||||
@@ -107,7 +107,7 @@ public:
|
|||||||
|
|
||||||
private:
|
private:
|
||||||
// member function dispatcher
|
// member function dispatcher
|
||||||
static int thunk(lua_State *L)
|
static int thunk( Lua *L )
|
||||||
{
|
{
|
||||||
// stack has userdata, followed by method args
|
// stack has userdata, followed by method args
|
||||||
T *obj = check( L, 1, true ); // get self
|
T *obj = check( L, 1, true ); // get self
|
||||||
@@ -120,20 +120,20 @@ private:
|
|||||||
/* Two objects are equal if the underlying object is the same. */
|
/* Two objects are equal if the underlying object is the same. */
|
||||||
static int equal( lua_State *L )
|
static int equal( lua_State *L )
|
||||||
{
|
{
|
||||||
userdataType *obj1 = static_cast<userdataType*>(lua_touserdata(L, 1));
|
userdataType *obj1 = static_cast<userdataType*>( lua_touserdata(L, 1) );
|
||||||
userdataType *obj2 = static_cast<userdataType*>(lua_touserdata(L, 2));
|
userdataType *obj2 = static_cast<userdataType*>( lua_touserdata(L, 2) );
|
||||||
lua_pushboolean( L, obj1->pT == obj2->pT );
|
lua_pushboolean( L, obj1->pT == obj2->pT );
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
public:
|
public:
|
||||||
// push a userdata containing a pointer to T object
|
// push a userdata containing a pointer to T object
|
||||||
static int Push(lua_State *L, T* p )
|
static int Push( Lua *L, T* p )
|
||||||
{
|
{
|
||||||
userdataType *ud = static_cast<userdataType*>(lua_newuserdata(L, sizeof(userdataType)));
|
userdataType *ud = static_cast<userdataType*>( lua_newuserdata(L, sizeof(userdataType)) );
|
||||||
ud->pT = p; // store pointer to object in userdata
|
ud->pT = p; // store pointer to object in userdata
|
||||||
luaL_getmetatable(L, m_sClassName); // lookup metatable in Lua registry
|
luaL_getmetatable( L, m_sClassName ); // lookup metatable in Lua registry
|
||||||
lua_setmetatable(L, -2);
|
lua_setmetatable( L, -2 );
|
||||||
return 1; // userdata containing pointer to T object
|
return 1; // userdata containing pointer to T object
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -141,8 +141,9 @@ public:
|
|||||||
{
|
{
|
||||||
if( s_pvMethods == NULL )
|
if( s_pvMethods == NULL )
|
||||||
s_pvMethods = new RegTypeVector;
|
s_pvMethods = new RegTypeVector;
|
||||||
|
|
||||||
RegType r = { szName, pFunc };
|
RegType r = { szName, pFunc };
|
||||||
Luna<T>::s_pvMethods->push_back(r);
|
s_pvMethods->push_back(r);
|
||||||
}
|
}
|
||||||
|
|
||||||
private:
|
private:
|
||||||
@@ -152,13 +153,13 @@ private:
|
|||||||
static const char *m_sClassName;
|
static const char *m_sClassName;
|
||||||
static const char *m_sBaseClassName;
|
static const char *m_sBaseClassName;
|
||||||
|
|
||||||
static int tostring_T (lua_State *L)
|
static int tostring_T( lua_State *L )
|
||||||
{
|
{
|
||||||
char buff[32];
|
char buff[32];
|
||||||
userdataType *ud = static_cast<userdataType*>(lua_touserdata(L, 1));
|
userdataType *ud = static_cast<userdataType*>( lua_touserdata(L, 1) );
|
||||||
T *obj = ud->pT;
|
T *obj = ud->pT;
|
||||||
sprintf(buff, "%p", obj);
|
sprintf( buff, "%p", obj) ;
|
||||||
lua_pushfstring(L, "%s (%s)", m_sClassName, buff);
|
lua_pushfstring( L, "%s (%s)", m_sClassName, buff );
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
};
|
};
|
||||||
|
|||||||
Reference in New Issue
Block a user