SLB 如何加入对类成员的绑定

研究SLB也有段时间了，很喜欢这个库，轻巧、紧凑、不依赖任何第三方库。SLB支持杂交类，就是可以让你在C++类中调用Lua的函数，并完全将其当作类成员函数来使用。支持继承以及多重继承，支持构造函数。最为有特色的是其对__index,__newindex元方法的暴露使我们有更多的灵活性。而有点遗憾的是，相对于其他成熟的lua库（例如luabind、luaplus）来说，他不支持类成员变量的绑定。我想库的作者Jose L. Hidalgo的本意是不想让我们对类成员变量进行绑定，要么就是认为__index和__newindex原方法的设置可以完全实现我们的要求。不过对我来说总归是不方便，所以自己实现了一些代码，将类成员的绑定做了实现。

首先我写了两个类，用于对类成员变量分别做set和get的操作。

这两个类都是模板函数，继承于FuncCall模板参量分别描述了类的类型以及成员变量的类型。并将类成员变量相对与类的偏移量作为变量保存与Members系列类中。listener是作为监听器存在的，目的在于为变量被更改的时候给宿主类一个通知。

 

#pragma once #include "Object.hpp" #include "Export.hpp" #include "SPP.hpp" #include "lua.hpp" #include "Type.hpp" namespace SLB { template< class C, typename V > class SLB_EXPORT setMember : public FuncCall { private: setMember( V C::* offset, void (C::* set)() ) : m_offset( offset ) , m_listener( set ) { } ~setMember(void) { } virtual int call(lua_State *L) { InstanceBase** Instance = (InstanceBase**)lua_touserdata( L, 1 ); C* p = (C*)( (*Instance)->isConst()?(*Instance)->get_const_ptr():(*Instance)->get_ptr() ); if( p ) { if( m_listener ) { (p->*m_listener)(); } p->*m_offset = Private::Type< V >::get(L,3); } return 0; } public: static setMember* create( V C::* offset, void (C::* set)() ) { setMember* m = new setMember< C, V >( offset, set ); return m; } private: V C::* m_offset; void (C::* m_listener)(); }; template< class C, typename V > class SLB_EXPORT getMember : public FuncCall { private: getMember( V C::* offset, void (C::* get)() ) : m_offset( offset ) , m_listener( get ) { } ~getMember(void) { } virtual int call(lua_State *L) { int t = lua_type( L, 1 ); InstanceBase** Instance = (InstanceBase**)lua_touserdata( L, 1 ); C* p = (C*)( (*Instance)->isConst()?(*Instance)->get_const_ptr():(*Instance)->get_ptr() ); if( p ) { if( m_listener ) { (p->*m_listener)(); } Private::Type< const V& >::push( L, p->*m_offset ); } return 1; } public: static getMember* create( V C::* offset, void (C::* get)() ) { getMember* m = new getMember< C, V >( offset, get ); return m; } private: V C::* m_offset; void (C::* m_listener)(); }; }

之后，我在Table函数里实现了具体的绑定代码

template< class C, typename V > void member( const char* name, V C::* offset, void (C::* set_listener)() = NULL, void (C::* get_listener)() = NULL ) { std::string key( "__members::" ); set( key + name + "::__get", getMember< C, V >::create( offset, get_listener ) ); set( key + name + "::__set", setMember< C, V >::create( offset, set_listener ) ); } 这段代码将两个object对象存储在ClassInfo类中的__members子表中，这两个object对象分别为getMember,setMember模板类的实例化对象。

建立子表是为了区别通过set建立的成员函数对象，使之不发生混淆。

下来我们将实现调用这setMember和getMember对象的代码，从而使你在写出class.member = 10之类的代码的时候SLB可以正确的执行。

我将Table::__index函数做了一些修改，现在的__index看起来是这样的
int Table::__index(lua_State *L) { SLB_DEBUG_CALL; SLB_DEBUG_STACK(10,L,"Table::__index (%p)",this); int result = -1; if (_cacheable) { lua_pushvalue(L,2); lua_rawget(L, cacheTableIndex()); if (lua_isnil(L,-1)) lua_pop(L,1); // remove nil else { //TODO tostring modifies the object, use a ifdef endif block here SLB_DEBUG(10, "Access Table(%p) [%s] (In CACHE)", this, lua_tostring(L,2)); result = 1; // we found it } } if (result < 0) { if (lua_type(L, 2) == LUA_TSTRING) { Object *obj = get(lua_tostring(L,2)); if (obj) { result = 1; obj->push(L); if (_cacheable) { // store in the cache... SLB_DEBUG(10, "L(%p) table(%p) key %s (->to cache)", L, this, lua_tostring(L,2)); lua_pushvalue(L,2); // key lua_pushvalue(L,-2); // returned value lua_rawset(L, cacheTableIndex() ); // table } } else if( lua_gettop(L) >= 2 ) { std::string key( "__members::" ); key = key + lua_tostring(L,2) + "::__get"; Object* member = get( key ); if( member ) { member->push(L); lua_insert(L,1); lua_call(L,lua_gettop(L)-1, LUA_MULTRET); result = lua_gettop(L); } } } } return result; } 这里我们通过Key( lua_tostring(L,2) )来找到我们保存的object对象。如果找不到我们再到__members子表里去找。如果找到了我们就将这个对象压栈，然后将其插入到堆栈编号为1的位置，之后的堆栈看起来就是 func, key, value 这时通过调用lua_call让lua自己调用object所指的函数对象，也就是( getMember< C, V > );

如果我们做了继承类的设定，那么当我们要访问父类的成员变量的时候，这点代码是无法完成我们的要求的。所以我又修改了ClassInfo::__index的代码。改完之后的代码如下

int ClassInfo::__index(lua_State *L) { SLB_DEBUG_CALL; int result = Table::__index(L); // default implementation if ( result < 1 ) { // type == 0 -> class __index // type == 1 -> object __index int type = lua_istable(L,1)? 0 : 1; SLB_DEBUG(4, "Called ClassInfo(%p) '%s' __index %s", this, _name.c_str(), type? "OBJECT" : "CLASS"); // if looking for a class method, using an string... if (lua_isstring(L,2)) { const char *key = lua_tostring(L,2); Object *obj = 0; for(BaseClassMap::iterator i = _baseClasses.begin(); obj == 0L && i != _baseClasses.end(); ++i) { obj = ((Table*)(i->second.get()))->get(key); if (obj) { obj->push(L); result = 1; break; } else { std::string get_key( "__members::" ); get_key = get_key + key + "::__get"; Object* member = ((Table*)(i->second.get()))->get( get_key ); if( member ) { member->push(L); lua_insert(L,1); lua_call(L,lua_gettop(L)-1, LUA_MULTRET); result = lua_gettop(L); break; } } } } if (result < 1) // still not found... { if (_meta__index[type].valid()) { // 1 - func to call _meta__index[type]->push(L); lua_insert(L,1); // 2 - object/table // 3 - key SLB_DEBUG_STACK(8,L, "Class(%s) __index {%s} metamethod -> %p", _name.c_str(), type? "OBJECT" : "CLASS", (void*)_meta__index[type].get() ); assert("Error in number of stack elements" && lua_gettop(L) == 3); lua_call(L,lua_gettop(L)-1, LUA_MULTRET); result = lua_gettop(L); } else { SLB_DEBUG(4, "ClassInfo(%p) '%s' doesn't have __index[%s] implementation.", this, _name.c_str(), type? "OBJECT" : "CLASS"); } } } return result; } 我只是在继承类的映射表里搜索了一遍，并逐个查找其__members子表，其他的跟Table::__index所使用的方法是一样的。

getMember的调用方法到这里就可以使用了。接下来我修改了ClassInfo::__newindex 使其在恰当的时机调用setMember的Call函数修改后的代码如下：

int ClassInfo::__newindex(lua_State *L) { SLB_DEBUG_CALL; // 0 = class __index // 1 = object __index int type = lua_istable(L,1)? 0 : 1; SLB_DEBUG(4, "Called ClassInfo(%p) '%s' __newindex %s", this, _name.c_str(), type? "OBJECT" : "CLASS"); if (_meta__newindex[type].valid()) { // 1 - func to call _meta__newindex[type]->push(L); lua_insert(L,1); // 2 - object // 3 - key/table // 4 - value SLB_DEBUG_STACK(8,L, "Class(%s) __index {%s} metamethod -> %p", _name.c_str(), type? "OBJECT" :"CLASS", (void*)_meta__newindex[type].get() ); assert("Error in number of stack elements" && lua_gettop(L) == 4); lua_call(L,lua_gettop(L)-1, LUA_MULTRET); return lua_gettop(L); } else { SLB_DEBUG(4, "ClassInfo(%p) '%s' doesn't have __newindex[%s] implementation.", this, _name.c_str(), type? "OBJECT" : "CLASS"); } std::string key( "__members::" ); if( lua_gettop(L) != 3 ) return 0; key = key + lua_tostring(L,2) + "::__set"; Object* member = get( key ); if( member ) { member->push(L); // f lua_insert(L,1); lua_call(L,lua_gettop(L)-1, LUA_MULTRET); return lua_gettop(L); } else { for(BaseClassMap::iterator i = _baseClasses.begin(); i != _baseClasses.end(); ++i) { Object* member = ((Table*)(i->second.get()))->get( key ); if( member ) { member->push(L); lua_insert(L,1); lua_call(L,lua_gettop(L)-1, LUA_MULTRET); return lua_gettop(L); } } } return Table::__newindex(L); } 好了终于完成了部署，现在只差最后一步。实现Class类的member

template< class C, typename V >
__Self &member( const char *name, V C::* offset, void (C::* set)()  = NULL, void (C::* get)() = NULL )
{
    _class->member( name, offset, set, get );
    return *this;
}

好了，我们现在可以写出如下的代码了

Class< SpriteAttribute >( "ui::SpriteAttribute" )
    .constructor< _string, float, float, float, float >()
    .member( "f",    &SpriteAttribute::path )
    .member( "x",    &SpriteAttribute::x )
    .member( "y",    &SpriteAttribute::y )
    .member( "w",    &SpriteAttribute::w )
    .member( "h",    &SpriteAttribute::h )
    .set( "members",&show_members< SpriteAttribute > )
    .set( "save",    &save_file< SpriteAttribute > )
    .set( "load",    &load_file< SpriteAttribute > )
    ;

是不是很酷？

另外SLB还有些小缺陷在他的Type.hpp中，我也做了修改和补充。代码我就直接贴在下面了，具体有什么不同留给你们自己看吧。提示一下，有一些const 类型原先是没有的，另外我加了对wstring的支持。#ifndef __SLB_TYPE__ #define __SLB_TYPE__ #include "lua.hpp" #include "Debug.hpp" #include "SPP.hpp" #include "Manager.hpp" #include "ClassInfo.hpp" #include "LuaObject.h" #ifndef _CRT_SECURE_NO_DEPRECATE #define _CRT_SECURE_NO_DEPRECATE #endif namespace SLB { namespace Private { // Default implementation template<class T> struct Type { static ClassInfo *getClass(lua_State *L) { SLB_DEBUG_CALL; SLB_DEBUG(10,"getClass '%s'", typeid(T).name()); ClassInfo *c = SLB::Manager::getInstance().getClass(typeid(T)); if (c == 0) luaL_error(L, "Unknown class %s", typeid(T).name()); return c; } static void push(lua_State *L,const T &obj) { SLB_DEBUG_CALL; SLB_DEBUG(8,"Push<T=%s>(L=%p, obj =%p)", typeid(T).name(), L, &obj); getClass(L)->push_copy(L, (void*) &obj); } static T get(lua_State *L, int pos) { SLB_DEBUG_CALL; SLB_DEBUG(8,"Get<T=%s>(L=%p, pos = %i)", typeid(T).name(), L, pos); T* obj = reinterpret_cast<T*>( getClass(L)->get_ptr(L, pos) ); SLB_DEBUG(9,"obj = %p", obj); return *obj; } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; SLB_DEBUG(10,"check '%s' at pos %d", typeid(T).name(), pos); return getClass(L)->check(L, pos); } }; template<class T> struct Type<T*> { static ClassInfo *getClass(lua_State *L) { SLB_DEBUG_CALL; SLB_DEBUG(10,"getClass '%s'", typeid(T).name()); ClassInfo *c = SLB::Manager::getInstance().getClass(typeid(T)); if (c == 0) luaL_error(L, "Unknown class %s", typeid(T).name()); return c; } static void push(lua_State *L, T *obj, bool fromConstructor = false) { SLB_DEBUG_CALL; SLB_DEBUG(10,"push '%s' of %p (from constructor=%s)", typeid(T).name(), obj, fromConstructor? "true" : "false" ); if (obj == 0) { lua_pushnil(L); return; } const std::type_info &t_T = typeid(T); const std::type_info &t_obj = typeid(*obj); assert("Invalid typeinfo!!! (type)" && (&t_T) ); assert("Invalid typeinfo!!! (object)" && (&t_obj) ); if (t_obj != t_T) { // check if the internal class exists... ClassInfo *c = SLB::Manager::getInstance().getClass(t_obj); if ( c ) { SLB_DEBUG(8,"Push<T*=%s> with conversion from " "T(%p)->T(%p) (L=%p, obj =%p)", c->getName().c_str(), t_obj.name(), t_T.name(),L, obj); // covert the object to the internal class... void *real_obj = SLB::Manager::getInstance().convert( &t_T, &t_obj, obj ); c->push_ptr(L, real_obj, fromConstructor); return; } } // use this class... getClass(L)->push_ptr(L, (void*) obj, fromConstructor); } static T* get(lua_State *L, int pos) { SLB_DEBUG_CALL; SLB_DEBUG(10,"get '%s' at pos %d", typeid(T).name(), pos); return reinterpret_cast<T*>( getClass(L)->get_ptr(L, pos) ); } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; SLB_DEBUG(10,"check '%s' at pos %d", typeid(T).name(), pos); return getClass(L)->check(L, pos); } }; template<class T> struct Type<const T*> { static ClassInfo *getClass(lua_State *L) { SLB_DEBUG_CALL; SLB_DEBUG(10,"getClass '%s'", typeid(T).name()); ClassInfo *c = SLB::Manager::getInstance().getClass(typeid(T)); if (c == 0) luaL_error(L, "Unknown class %s", typeid(T).name()); return c; } static void push(lua_State *L,const T *obj) { SLB_DEBUG_CALL; SLB_DEBUG(10,"push '%s' of %p", typeid(T).name(), obj); if (obj == 0) { lua_pushnil(L); return; } if (typeid(*obj) != typeid(T)) { // check if the internal class exists... ClassInfo *c = SLB::Manager::getInstance().getClass(typeid(*obj)); if ( c ) { SLB_DEBUG(8,"Push<const T*=%s> with conversion from " "T(%p)->T(%p) (L=%p, obj =%p)", c->getName().c_str(), typeid(*obj).name(), typeid(T).name(),L, obj); // covert the object to the internal class... const void *real_obj = SLB::Manager::getInstance().convert( &typeid(T), &typeid(*obj), obj ); c->push_const_ptr(L, real_obj); return; } } getClass(L)->push_const_ptr(L, (const void*) obj); } static const T* get(lua_State *L, int pos) { SLB_DEBUG_CALL; SLB_DEBUG(10,"get '%s' at pos %d", typeid(T).name(), pos); return reinterpret_cast<const T*>( getClass(L)->get_const_ptr(L, pos) ); } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; SLB_DEBUG(10,"check '%s' at pos %d", typeid(T).name(), pos); return getClass(L)->check(L, pos); } }; template<class T> struct Type<const T&> { static void push(lua_State *L,const T &obj) { SLB_DEBUG_CALL; SLB_DEBUG(10,"push '%s' of %p(const ref)", typeid(T).name(), &obj); Type<const T*>::push(L, &obj); } static const T& get(lua_State *L, int pos) { SLB_DEBUG_CALL; SLB_DEBUG(10,"get '%s' at pos %d", typeid(T).name(), pos); const T* obj = Type<const T*>::get(L,pos); //TODO: remove the typeid(T).getName() and use classInfo :) if (obj == 0L) luaL_error(L, "Can not get a reference of class %s", typeid(T).name()); return *(obj); } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; SLB_DEBUG(10,"check '%s' at pos %d", typeid(T).name(), pos); return Type<const T*>::check(L,pos); } }; template<class T> struct Type<T&> { static ClassInfo *getClass(lua_State *L) { SLB_DEBUG_CALL; SLB_DEBUG(10,"getClass '%s'", typeid(T).name()); ClassInfo *c = SLB::Manager::getInstance().getClass(typeid(T)); if (c == 0) luaL_error(L, "Unknown class %s", typeid(T).name()); return c; } static void push(lua_State *L,T &obj) { SLB_DEBUG_CALL; SLB_DEBUG(10,"push '%s' of %p (reference)", typeid(T).name(), &obj); getClass(L)->push_ref(L, (void*) &obj); } static T& get(lua_State *L, int pos) { SLB_DEBUG_CALL; SLB_DEBUG(10,"get '%s' at pos %d", typeid(T).name(), pos); return *(Type<T*>::get(L,pos)); } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; SLB_DEBUG(10,"check '%s' at pos %d", typeid(T).name(), pos); return Type<T*>::check(L,pos); } }; //--- Specializations --------------------------------------------------- template<> struct Type<void*> { static void push(lua_State *L,void* obj) { SLB_DEBUG_CALL; if (obj == 0) lua_pushnil(L); else { SLB_DEBUG(8,"Push<void*> (L=%p, obj =%p)",L, obj); lua_pushlightuserdata(L, obj); } } static void *get(lua_State *L, int pos) { SLB_DEBUG_CALL; SLB_DEBUG(8,"Get<void*> (L=%p, pos=%i ) =%p)",L, pos, lua_touserdata(L,pos)); if (check(L,pos)) return lua_touserdata(L,pos); //TODO: Check here if is an userdata and convert it to void return 0; } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return (lua_islightuserdata(L,pos) != 0); } }; // Type specialization for <int> template<> struct Type<int> { static void push(lua_State *L, int v) { SLB_DEBUG_CALL; SLB_DEBUG(6, "Push integer = %d",v); lua_pushinteger(L,v); } static int get(lua_State *L, int p) { SLB_DEBUG_CALL; int v = (int) lua_tointeger(L,p); SLB_DEBUG(6,"Get integer (pos %d) = %d",p,v); return v; } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return (lua_isnumber(L,pos) != 0); } }; template<> struct Type<const int&> { static void push(lua_State *L, const int &v) { SLB_DEBUG_CALL; Type<int>::push(L,v); } static int get(lua_State *L, int p) { SLB_DEBUG_CALL; return Type<int>::get(L,p); } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return Type<int>::check(L,pos); } }; // Type specialization for <unsigned int> template<> struct Type<unsigned int> { static void push(lua_State *L, unsigned int v) { SLB_DEBUG_CALL; SLB_DEBUG(6, "Push unsigned integer = %d",v); lua_pushinteger(L,v); } static unsigned int get(lua_State *L, int p) { SLB_DEBUG_CALL; unsigned int v = static_cast<unsigned int>(lua_tointeger(L,p)); SLB_DEBUG(6,"Get unsigned integer (pos %d) = %d",p,v); return v; } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return (lua_isnumber(L,pos) != 0); } }; template<> struct Type<const unsigned int&> { static void push(lua_State *L, const unsigned int &v) { SLB_DEBUG_CALL; Type<unsigned int>::push(L,v); } static unsigned int get(lua_State *L, int p) { SLB_DEBUG_CALL; return Type<unsigned int>::get(L,p); } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return Type<unsigned int>::check(L,pos); } }; template<> struct Type<long> { static void push(lua_State *L, long v) { SLB_DEBUG_CALL; SLB_DEBUG(6, "Push long = %ld",v); lua_pushinteger(L,v); } static long get(lua_State *L, int p) { SLB_DEBUG_CALL; long v = (long) lua_tointeger(L,p); SLB_DEBUG(6,"Get long (pos %d) = %ld",p,v); return v; } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return (lua_isnumber(L,pos) != 0); } }; template<> struct Type<const long&> { static void push(lua_State *L, long v) { SLB_DEBUG_CALL; Type< long >::push( L, v ); } static long get(lua_State *L, int p) { SLB_DEBUG_CALL; return Type< long >::get( L, p ); } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return Type< long >::check( L, pos ); } }; /* unsigned long == unsigned int */ template<> struct Type<unsigned long> { static void push(lua_State *L, unsigned long v) { SLB_DEBUG_CALL; SLB_DEBUG(6, "Push unsigned long = %lu",v); lua_pushnumber(L,v); } static unsigned long get(lua_State *L, int p) { SLB_DEBUG_CALL; unsigned long v = (unsigned long) lua_tonumber(L,p); SLB_DEBUG(6,"Get unsigned long (pos %d) = %lu",p,v); return v; } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return (lua_isnumber(L,pos) != 0); } }; template<> struct Type<const unsigned long&> { static void push(lua_State *L, const unsigned long &v) { SLB_DEBUG_CALL; Type<unsigned long>::push(L,v); } static unsigned long get(lua_State *L, int p) { SLB_DEBUG_CALL; return Type<unsigned long>::get(L,p); } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return Type<unsigned long>::check(L,pos); } }; template<> struct Type<unsigned long long> { static void push(lua_State *L, unsigned long long v) { SLB_DEBUG_CALL; SLB_DEBUG(6, "Push unsigned long long = %llu",v); lua_pushnumber(L,(lua_Number)v); } static unsigned long long get(lua_State *L, int p) { SLB_DEBUG_CALL; unsigned long long v = (unsigned long long) lua_tonumber(L,p); SLB_DEBUG(6,"Get unsigned long long (pos %d) = %llu",p,v); return v; } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return (lua_isnumber(L,pos) != 0); } }; template<> struct Type<const unsigned long long&> { static void push(lua_State *L, const unsigned long long &v) { SLB_DEBUG_CALL; Type<unsigned long long>::push(L,v); } static unsigned long long get(lua_State *L, int p) { SLB_DEBUG_CALL; return Type<unsigned long long>::get(L,p); } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return Type<unsigned long long>::check(L,pos); } }; // Type specialization for <double> template<> struct Type<double> { static void push(lua_State *L, double v) { SLB_DEBUG_CALL; SLB_DEBUG(6, "Push double = %f",v); lua_pushnumber(L,v); } static double get(lua_State *L, int p) { SLB_DEBUG_CALL; double v = (double) lua_tonumber(L,p); SLB_DEBUG(6,"Get double (pos %d) = %f",p,v); return v; } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return (lua_isnumber(L,pos) != 0); } }; template<> struct Type<const double&> { static void push(lua_State *L, const double &v) { SLB_DEBUG_CALL; Type<double>::push(L,v); } static double get(lua_State *L, int p) { SLB_DEBUG_CALL; return Type<double>::get(L,p); } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return Type<double>::check(L,pos); } }; // Type specialization for <float> template<> struct Type<float> { static void push(lua_State *L, float v) { SLB_DEBUG_CALL; SLB_DEBUG(6, "Push float = %f",v); lua_pushnumber(L,v); } static float get(lua_State *L, int p) { SLB_DEBUG_CALL; float v = (float) lua_tonumber(L,p); SLB_DEBUG(6,"Get float (pos %d) = %f",p,v); return v; } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return (lua_isnumber(L,pos) != 0); } }; template<> struct Type<const float&> { static void push(lua_State *L, const float &v) { SLB_DEBUG_CALL; Type<float>::push(L,v); } static float get(lua_State *L, int p) { SLB_DEBUG_CALL; return Type<float>::get(L,p); } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return Type<float>::check(L,pos); } }; // Type specialization for <bool> template<> struct Type<bool> { static void push(lua_State *L, bool v) { SLB_DEBUG_CALL; SLB_DEBUG(6, "Push bool = %d",(int)v); lua_pushboolean(L,v); } static bool get(lua_State *L, int p) { SLB_DEBUG_CALL; bool v = (lua_toboolean(L,p) != 0); SLB_DEBUG(6,"Get bool (pos %d) = %d",p,v); return v; } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return lua_isboolean(L,pos); } }; template<> struct Type< const bool& > { static void push(lua_State *L, bool v) { SLB_DEBUG_CALL; SLB_DEBUG(6, "Push bool = %d",(int)v); lua_pushboolean(L,v); } static bool get(lua_State *L, int p) { SLB_DEBUG_CALL; bool v = (lua_toboolean(L,p) != 0); SLB_DEBUG(6,"Get bool (pos %d) = %d",p,v); return v; } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return lua_isboolean(L,pos); } }; template<> struct Type<std::string> { static void push(lua_State *L, const std::string &v) { SLB_DEBUG_CALL; SLB_DEBUG(6, "Push const std::string& = %s",v.c_str()); lua_pushstring(L, v.c_str()); } static std::string get(lua_State *L, int p) { SLB_DEBUG_CALL; const char* v = (const char*) lua_tostring(L,p); if( v == NULL ) luaL_error(L, "request string."); SLB_DEBUG(6,"Get std::string (pos %d) = %s",p,v); return v; } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return (lua_isstring(L,pos) != 0); } }; template<> struct Type<const std::string &> { static void push(lua_State *L, const std::string &v) { SLB_DEBUG_CALL; SLB_DEBUG(6, "Push const std::string& = %s",v.c_str()); lua_pushstring(L, v.c_str()); } // let the compiler do the conversion... static const std::string get(lua_State *L, int p) { SLB_DEBUG_CALL; const char* v = (const char*) lua_tostring(L,p); if( v == NULL ) luaL_error(L, "request string."); SLB_DEBUG(6,"Get std::string (pos %d) = %s",p,v); return std::string(v); } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return (lua_isstring(L,pos) != 0); } }; template<> struct Type<std::wstring> { static void push(lua_State *L, const std::wstring &v) { SLB_DEBUG_CALL; SLB_DEBUG(6, "Push const std::string& = %s",v.c_str()); char* lpa = (char*)_alloca( v.length() + 1 ); size_t convert = 0; size_t ret = wcstombs_s( &convert, lpa, v.length() + 1, v.c_str(), v.length() ); if( ret != 0 ) { lua_pushnil(L); } else { lua_pushstring(L, lpa ); } } static std::wstring get(lua_State *L, int p) { SLB_DEBUG_CALL; const char* v = (const char*) lua_tostring(L,p); if( v == NULL ) luaL_error(L, "request string."); SLB_DEBUG(6,"Get std::string (pos %d) = %s",p,v); int chars = (int)strlen( v ) + 1; wchar_t* lpw = (wchar_t*)_alloca( chars*sizeof(wchar_t) ); size_t convert = 0; size_t ret = mbstowcs_s( &convert, lpw, chars, v, chars ); if( ret != 0 ) return L""; return lpw; } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return (lua_isstring(L,pos) != 0); } }; template<> struct Type<const std::wstring &> { static void push(lua_State *L, const std::wstring &v) { SLB_DEBUG_CALL; SLB_DEBUG(6, "Push const std::wstring& = %s",v.c_str()); char* lpa = (char*)_alloca( v.length() + 1 ); size_t convert = 0; size_t ret = wcstombs_s( &convert, lpa, v.length() + 1, v.c_str(), v.length() ); if( ret != 0 ) { lua_pushnil(L); } else { lua_pushstring(L, lpa ); } } // let the compiler do the conversion... static const std::wstring get(lua_State *L, int p) { SLB_DEBUG_CALL; const char* v = (const char*) lua_tostring(L,p); if( v == NULL ) luaL_error(L, "request string."); SLB_DEBUG(6,"Get std::wstring (pos %d) = %s",p,v); int chars = (int)strlen( v ) + 1; wchar_t* lpw = (wchar_t*)_alloca( chars*sizeof(wchar_t) ); size_t convert = 0; size_t ret = mbstowcs_s( &convert, lpw, chars, v, chars ); if( ret != 0 ) return L""; return lpw; } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return (lua_isstring(L,pos) != 0); } }; // Type specialization for <const char*> template<> struct Type<char*> { static void push(lua_State *L, char* v) { SLB_DEBUG_CALL; SLB_DEBUG(6, "Push char* = %s",v); lua_pushstring(L,v); } static const char* get(lua_State *L, int p) { SLB_DEBUG_CALL; const char* v = (const char*) lua_tostring(L,p); SLB_DEBUG(6,"Get const char* (pos %d) = %s",p,v); return v; } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return (lua_isstring(L,pos) != 0); } }; // Type specialization for <const char*> template<> struct Type<const char*> { static void push(lua_State *L, const char* v) { SLB_DEBUG_CALL; SLB_DEBUG(6, "Push const char* = %s",v); lua_pushstring(L,v); } static const char* get(lua_State *L, int p) { SLB_DEBUG_CALL; const char* v = (const char*) lua_tostring(L,p); SLB_DEBUG(6,"Get const char* (pos %d) = %s",p,v); return v; } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return (lua_isstring(L,pos) != 0); } }; template<> struct Type<const unsigned char*> { static void push(lua_State *L, const unsigned char* v) { SLB_DEBUG_CALL; SLB_DEBUG(6, "Push const unsigned char* = %s",v); lua_pushstring(L,(const char*)v); } static const unsigned char* get(lua_State *L, int p) { SLB_DEBUG_CALL; const unsigned char* v = (const unsigned char*) lua_tostring(L,p); SLB_DEBUG(6,"Get const unsigned char* (pos %d) = %s",p,v); return v; } static bool check(lua_State *L, int pos) { SLB_DEBUG_CALL; return (lua_isstring(L,pos) != 0); } }; // // 不能使用宽字节串，lua不支持 template<> struct Type<const wchar_t*>; template<> struct Type< wchar_t* >; // } // end of SLB::Private #endif