函数编译lua笔记 --- 一个C++调用lua函数的类的实现

本篇文章是一篇关于函数编译的帖子

    这个类基本上是从LuaPlus那里弄来的，为什么不支持用LuaPlus，因为那货色我其实不知道怎么编译，能编译通过的版本的旧版本的了，而且之前的版本有BUG的存在，使用起来有阴影，不想用了，还是自己写个比拟靠谱。

    因为感觉LuaPlus那个LuaFunction有点不好用，所以进行了一些改造。自己以为现在自己封装的这个还是比拟好用的。

namespace Lua_Wrapper{
struct LuaNil{};
inline void Push(lua_State* L, bool value)				{  lua_pushboolean(L, value);  }
inline void Push(lua_State* L, char value)				{  lua_pushnumber(L, value);  }
inline void Push(lua_State* L, unsigned char value)		{  lua_pushnumber(L, value);  }
inline void Push(lua_State* L, short value)				{  lua_pushnumber(L, value);  }
inline void Push(lua_State* L, unsigned short value)	{  lua_pushnumber(L, value);  }
inline void Push(lua_State* L, int value)				{  lua_pushnumber(L, value);  }
inline void Push(lua_State* L, unsigned int value)		{  lua_pushnumber(L, value);  }
inline void Push(lua_State* L, long value)				{  lua_pushnumber(L, value);  }
inline void Push(lua_State* L, unsigned long value)		{  lua_pushnumber(L, value);  }
inline void Push(lua_State* L, double value)			{  lua_pushnumber(L, (lua_Number)value);  }
inline void Push(lua_State* L, float value)				{  lua_pushnumber(L, (lua_Number)value);  }
inline void Push(lua_State* L, const char* value)		{  lua_pushstring(L, value);  }
inline void Push(lua_State* L, const LuaNil&)			{  lua_pushnil(L);  }
inline void Push(lua_State* L, lua_CFunction value)		{  lua_pushcclosure(L, value, 0);  }
inline void Push(lua_State* L, const void* value)		{  lua_pushlightuserdata(L, (void*)value);  }

struct Get
{
	lua_State* L;
	int idx;
	Get(lua_State* L,int index=-1):L(L),idx(index){}
	operator bool(){assert(lua_isboolean(L,idx));return lua_toboolean(L, idx) != 0;}
	operator char(){assert(lua_isnumber(L,idx));return static_cast<char>(lua_tonumber(L, idx));}
	operator unsigned char(){assert(lua_isnumber(L,idx));return static_cast<unsigned char>(lua_tonumber(L, idx));}
	operator short(){assert(lua_isnumber(L,idx));return static_cast<short>(lua_tonumber(L, idx));}
	operator unsigned short(){assert(lua_isnumber(L,idx));return static_cast<unsigned short>(lua_tonumber(L, idx));}
	operator int(){assert(lua_isnumber(L,idx));return static_cast<int>(lua_tonumber(L, idx));}
	operator unsigned int(){assert(lua_isnumber(L,idx));return static_cast<unsigned int>(lua_tonumber(L, idx));}
	operator long(){assert(lua_isnumber(L,idx));return static_cast<long>(lua_tonumber(L, idx));}
	operator unsigned long(){assert(lua_isnumber(L,idx));return static_cast<unsigned long>(lua_tonumber(L, idx));}
	operator double(){assert(lua_isnumber(L,idx));return static_cast<double>(lua_tonumber(L, idx));}
	operator float(){assert(lua_isnumber(L,idx));return static_cast<float>(lua_tonumber(L, idx));}
	operator const char*(){assert(lua_isstring(L,idx));return static_cast<const char*>(lua_tostring(L, idx));}
	operator lua_CFunction(){assert(lua_iscfunction(L,idx));return static_cast<lua_CFunction>(lua_tocfunction(L, idx));}
	operator void*(){assert(lua_islightuserdata(L,idx));return static_cast<void*>(lua_touserdata(L, idx));}
};
}
class luaautoblock
{
public:
	luaautoblock(lua_State* L) :
	  L(L), m_stackTop(lua_gettop(L)){}
	  ~luaautoblock(){lua_settop(L, m_stackTop);}
private:
	luaautoblock(const luaautoblock& src);					// Not implemented
	const luaautoblock& operator=(const luaautoblock& src);	// Not implemented

	lua_State* L;
	int m_stackTop;
};

struct CallLuaFunction
{
	lua_State* L;
	luaautoblock autoblock;
	CallLuaFunction(lua_State* L, const char* fnName):L(L),autoblock(L){
		lua_getglobal(L,fnName);
		if(lua_pcall(L,0,1,0)){logluaerror(L);}
	}

	template<class T1>
	CallLuaFunction(lua_State* L, const char* fnName, T1 t1):L(L),autoblock(L){
		lua_getglobal(L,fnName);
		Lua_Wrapper::Push(L,t1);
		if(lua_pcall(L,1,1,0)){logluaerror(L);}
	}
	template<class T1,class T2>
	CallLuaFunction(lua_State* L, const char* fnName, T1 t1, T2 t2):L(L),autoblock(L){
		lua_getglobal(L,fnName);
		Lua_Wrapper::Push(L,t1);
		Lua_Wrapper::Push(L,t2);
		if(lua_pcall(L,2,1,0)){logluaerror(L);}
	}
	template<class T1,class T2,class T3>
	CallLuaFunction(lua_State* L, const char* fnName, T1 t1, T2 t2, T3 t3):L(L),autoblock(L){
		lua_getglobal(L,fnName);
		Lua_Wrapper::Push(L,t1);
		Lua_Wrapper::Push(L,t2);
		Lua_Wrapper::Push(L,t3);
		if(lua_pcall(L,3,1,0)){logluaerror(L);}
	}
	template<class T1,class T2,class T3,class T4>
	CallLuaFunction(lua_State* L, const char* fnName, T1 t1, T2 t2, T3 t3, T4 t4):L(L),autoblock(L){
		lua_getglobal(L,fnName);
		Lua_Wrapper::Push(L,t1);
		Lua_Wrapper::Push(L,t2);
		Lua_Wrapper::Push(L,t3);
		Lua_Wrapper::Push(L,t4);
		if(lua_pcall(L,4,1,0)){logluaerror(L);}
	}
	template<class T1,class T2,class T3,class T4,class T5>
	CallLuaFunction(lua_State* L, const char* fnName, T1 t1, T2 t2, T3 t3, T4 t4, T5 t5):L(L),autoblock(L){
		lua_getglobal(L,fnName);
		Lua_Wrapper::Push(L,t1);
		Lua_Wrapper::Push(L,t2);
		Lua_Wrapper::Push(L,t3);
		Lua_Wrapper::Push(L,t4);
		Lua_Wrapper::Push(L,t5);
		if(lua_pcall(L,5,1,0)){logluaerror(L);}
	}
	template<class T1,class T2,class T3,class T4,class T5,class T6>
	CallLuaFunction(lua_State* L, const char* fnName, T1 t1, T2 t2, T3 t3, T4 t4, T5 t5,T6 t6):L(L),autoblock(L){
		lua_getglobal(L,fnName);
		Lua_Wrapper::Push(L,t1);
		Lua_Wrapper::Push(L,t2);
		Lua_Wrapper::Push(L,t3);
		Lua_Wrapper::Push(L,t4);
		Lua_Wrapper::Push(L,t5);
		Lua_Wrapper::Push(L,t6);
		if(lua_pcall(L,6,1,0)){logluaerror(L);}
	}
	template<class T1,class T2,class T3,class T4,class T5,class T6,class T7>
	CallLuaFunction(lua_State* L, const char* fnName, T1 t1, T2 t2, T3 t3, T4 t4, T5 t5, T6 t6, T7 t7):L(L),autoblock(L){
		lua_getglobal(L,fnName);
		Lua_Wrapper::Push(L,t1);
		Lua_Wrapper::Push(L,t2);
		Lua_Wrapper::Push(L,t3);
		Lua_Wrapper::Push(L,t4);
		Lua_Wrapper::Push(L,t5);
		Lua_Wrapper::Push(L,t6);
		Lua_Wrapper::Push(L,t7);
		if(lua_pcall(L,7,1,0)){logluaerror(L);}
	}
	template<class T1,class T2,class T3,class T4,class T5,class T6,class T7,class T8>
	CallLuaFunction(lua_State* L, const char* fnName, T1 t1, T2 t2, T3 t3, T4 t4, T5 t5, T6 t6, T7 t7, T8 t8):L(L),autoblock(L){
		lua_getglobal(L,fnName);
		Lua_Wrapper::Push(L,t1);
		Lua_Wrapper::Push(L,t2);
		Lua_Wrapper::Push(L,t3);
		Lua_Wrapper::Push(L,t4);
		Lua_Wrapper::Push(L,t5);
		Lua_Wrapper::Push(L,t6);
		Lua_Wrapper::Push(L,t7);
		Lua_Wrapper::Push(L,t8);
		if(lua_pcall(L,8,1,0)){logluaerror(L);}
	}
	template<class T1,class T2,class T3,class T4,class T5,class T6,class T7,class T8,class T9>
	CallLuaFunction(lua_State* L, const char* fnName, T1 t1, T2 t2, T3 t3, T4 t4, T5 t5, T6 t6, T7 t7, T8 t8, T9 t9):L(L),autoblock(L){
		lua_getglobal(L,fnName);
		Lua_Wrapper::Push(L,t1);
		Lua_Wrapper::Push(L,t2);
		Lua_Wrapper::Push(L,t3);
		Lua_Wrapper::Push(L,t4);
		Lua_Wrapper::Push(L,t5);
		Lua_Wrapper::Push(L,t6);
		Lua_Wrapper::Push(L,t7);
		Lua_Wrapper::Push(L,t8);
		Lua_Wrapper::Push(L,t9);
		if(lua_pcall(L,9,1,0)){logluaerror(L);}
	}

	template<class RT>
	operator RT(){return Lua_Wrapper::Get(L);}
};

    每日一道理
曾经辉煌过，曾经凋零过，这可是你至死不渝的生活吗？我亲爱的母亲—大自然。多少次，我伏在地上，去聆听你沉重的脉搏声；多少次，我伫立在山前，去感受那松涛千年的浩瀚。你的豪壮，足以让中华民族腾飞；你的无私，谱写了一曲曲感人至深的千古壮曲。

    使用方法：

luaL_dostring(L,"function test(...) print(...) return 'ok' end");
	const char* ret = CallLuaFunction(L,"test","a","b",3,&a,5,"666",7,"888",998);//调用lua函数
	printf("ret:%s\n",ret);

    看起来就像是个函数，使用起来也方便

文章结束给大家分享下程序员的一些笑话语录： 程序员喝酒
　　我偶尔采用“木马策略”、“交叉测试”，时间不长就开始“频繁分配释放资源”，“cache”也是免不了的了，
　　不过我从不搞“轮巡”，也不会“捕获异常”，更不会“程序异常”，因为我有理性
克制的。