在C++使用LUA交互,LUA实现闭包,C++/LUA相互闭包

<span style="font-size:14px;color:#000000;">#include "string.h" extern "C" { #include "lualib.h" //包括lua lib #include "lauxlib.h" //辅助函数 }; #pragma comment(lib,"lua.lib") //Lua和C程序通过1个堆栈交换数据: lua_State lua_State* GetLua() { lua_State* lu = luaL_newstate(); /*创建Lua对象*/ luaL_openlibs(lu); // 打开所有 同享库函数 到lua 对象 return lu ; } //批量数据压入堆栈 #define FOR_PUSH(I,J,STEP,LUA) for(int i=I;i<=J;i+=STEP) { lua_pushinteger(LUA,i); } //取出堆栈中指定index的数据 //打印堆栈数据 #define FOR_LIST(I,LUA) for(int i=I;i<=J;i+=STEP) { int n=lua_tointeger(LUA,i); printf("堆栈中Index:%d,数据:%d ",i,n); } #define CLEAR(LUA) for(int i=1;i<=lua_gettop(LUA);i++) lua_pop(LUA,i) //返回1个结果 //函数原型具体参照LUA5.2文档 int callCPP(lua_State *lua) { int a = lua_tointeger(lua,1); int b = lua_tointeger(lua,2); lua_pushnumber(lua,a+b); //结果压栈 return 1; } int _tmain(int argc,_TCHAR* argv[]) { //获得C和Lua交互的堆栈指针 lua_State *lua =GetLua(); if(lua==nullptr) { printf("Lua Open Error"); return 0; } //关于Lua的堆栈操作 FOR_PUSH(1,10,1,lua);//循环顺序入堆栈的参数 int n=lua_gettop(lua); printf("lua堆栈中有%d个参数 ",n); FOR_LIST(1,lua); // //lua_pop(lua,3) ;//依照堆栈 落后先出的方式弹出3个参数 n=lua_gettop(lua); printf("lua堆栈中有%d个参数 ",n,lua); // //履行简单内存LUA脚本 char*pLua="print ("hello,lua!")"; luaL_loadbuffer(lua,pLua,strlen(pLua),"testLuaScript0Chunk"); if(LUA_OK==lua_pcall(lua,0)) { printf("lua 脚本调用成功! "); } //弹出堆栈所有数据 CLEAR(lua); ///加载lua脚本 并且编译运行lua脚本 //从当前工作目录加载 if(luaL_dofile(lua,"./c.lua")) { printf("lua脚本加载成功! "); } lua_getglobal(lua,"num1");//加载到堆栈 lua_getglobal(lua,"num2");//加载到堆栈 lua_getglobal(lua,"str1"); //加载字符串 int num1 = lua_tointeger(lua,⑶); //逆向取值 从堆栈 LUA堆栈为双向 printf("num1:%d ",num1); n=lua_gettop(lua); int num2 = lua_tointeger(lua,⑵); //逆向取值 从堆栈 LUA堆栈为双向 printf("num2:%d ",num2); n=lua_gettop(lua); printf("lua堆栈中有%d个参数 ",n); CLEAR(lua); //加载函数到堆栈 //调用的是无参函数 lua_getglobal(lua,"testHello") ; n=lua_gettop(lua); printf("lua堆栈中有%d个参数 ",n); //lua 函数调用会自动清算堆栈 lua_pcall(lua,0); n=lua_gettop(lua); printf("lua堆栈中有%d个参数 ",n); lua_getglobal(lua,"Closer") ; //函数压入栈顶 lua_pushinteger(lua,1); lua_pushinteger(lua,2);//压入参数 //闭包函数调用 if(LUA_OK!=lua_pcall(lua,2,0)) { printf("函数调用失败! "); return 0 ; } int result=lua_tointeger(lua,⑴);//取出栈顶数据 printf("Closer result:%d ",result); //注意清算堆栈返回值在 栈顶 POP1下 lua_pop(lua,1); n=lua_gettop(lua); printf("lua堆栈中有%d个参数 ",n); /////LUA调用C++函数 //注册函数 lua_register(lua,"CallC",callCPP); //从当前工作目录加载 if(luaL_dofile(lua,"./c1.lua")) { printf("lua c1脚本加载成功! "); } ///C/LUA闭包调用 lua_pushcfunction(lua,callCPP); lua_setglobal(lua,"CallCT");//设置lua中的调用 lua_getglobal(lua,"CloserT");//加载lua闭包函数到C++堆栈 lua_pushinteger(lua,2); //函数堆栈参数1定要正确 lua_pushinteger(lua,3); lua_pcall(lua,0); n=lua_gettop(lua); printf("lua堆栈中有%d个参数 ",n); return 0; } </span>

str1="hello,I am Luaer" num1=2 num2=3 --测试函数输出 str1 function testHello() print(str1) end --lua实现闭包 function Closer(i,j) function add(i,j) return i+j end return add(i,j) end function CallC(a,b) return callCPP(a,b) end

--c1.lua call C++ function num=CallC(3,4) print ("num is:",num) --c++和lua相互闭包 function CloserT(a,b) num1=CallCT(a,b) print ("C++/LUA相互闭包 Num1 is:",num1) end