C++ 嵌入 Lua 脚本 示例代码

// lua.cpp : Defines the entry point for the console application. // #include "stdafx.h" #include <stdio h=""> #include <stdlib h=""> #include <string h=""> #include <errno h=""> #include <assert h=""> //lua头文件 extern "C" //在c++中调用C库 { #include <lua h=""> #include <lualib h=""> #include <lauxlib h=""> }; #define TOSTRING(P) #P //转成字符串 #define err_exit(num,fmt,args) / do{printf("[%s:%d]"fmt"/n",__FILE__,__LINE__,##args);exit(num);} while(0) #define err_return(num,fmt,args) / do{printf("[%s:%d]"fmt"/n",__FILE__,__LINE__,##args);return(num);} while(0) //#define exampleNum(n) num##n //int num9=9; //int num=exampleNum(9); //将会扩展成 int num=num9; //lua中调用的c函数定义,实现加法 int csum(lua_State* L) { int a = lua_tointeger(L,1); int b = lua_tointeger(L,2); lua_pushinteger(L,a+b); return 1 ; } int _tmain(int argc, _TCHAR* argv[]) { lua_State * L = luaL_newstate() ; //创建lua运行环境 if (L == NULL) { printf("创建lua运行环境出错！！!/n"); } luaL_openlibs(L); //加载所有lua库，很重要，没这个语句不能用table.getn等 int ret = 0 ; ret = luaL_loadfile(L,"func.lua") ; //加载lua脚本文件 if ( ret != 0 ) { printf("加载lua脚本文件出错！！！/n"); } ret = lua_pcall(L,0,0,0) ; //这句的作用应该是初始化lua栈，和重新加载函数的作用建议luaL_loadfile后都调用一次 if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(L,-1)) ; //lua_pushcfunction(L,csum) ; //注册在lua中使用的c函数 //lua_setglobal(L,"csum") ; //绑定到lua中的名字csum //相当于给全局变量赋值 //lua_register(L,TOSTRING(csum),csum); //和上面两句作用相同 //可以注册成库的形式，比上面单个注册来的方便 luaL_Reg Reg[] = { {TOSTRING(csum),csum}, {NULL,NULL}, //这里一定要的不然会有问题，因为它不知道什么时候结束 }; luaL_register(L,"mylib",Reg); lua_getglobal(L,"width"); //获取lua中定义的变量 lua_getglobal(L,"height"); printf("height:%ld width:%ld/n",lua_tointeger(L,-1),lua_tointeger(L,-2)) ; lua_pop(L,2) ; //恢复lua的栈 //小心bug lua_getglobal会入栈 lua_pushinteger(L,15); //push操作都会入栈 lua_setglobal(L,"width"); //此操作会平衡栈，出栈 lua_pushinteger(L,16); lua_setglobal(L,"height"); //设置lua中定义的变量 lua_getglobal(L,"width"); //获取lua中定义的变量 lua_getglobal(L,"height"); printf("height:%ld width:%ld/n",lua_tointeger(L,-1),lua_tointeger(L,-2)) ; lua_pop(L,2) ; //恢复lua的栈 //小心bug lua_getglobal会入栈 int a = 11 ; int b = 12 ; lua_getglobal(L,"sum"); //调用lua中的函数sum lua_pushinteger(L,a) ; lua_pushinteger(L,b) ; ret = lua_pcall(L,2,1,0) ; if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(L,-1)) ; printf("sum:%d + %d = %ld/n",a,b,lua_tointeger(L,-1)) ; lua_pop(L,1) ; const char str1[] = "hello" ; const char str2[] = "world" ; lua_getglobal(L,"mystrcat"); //调用lua中的函数mystrcat lua_pushstring(L,str1) ; lua_pushstring(L,str2) ; ret = lua_pcall(L,2,1,0) ; if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(L,-1)) ; printf("mystrcat:%s%s = %s/n",str1,str2,lua_tostring(L,-1)) ; lua_pop(L,1) ; lua_getglobal(L,"mysum"); //调用lua中的mysum函数，该函数调用本程序中定义的csum函数实现加法 lua_pushinteger(L,a) ; lua_pushinteger(L,b) ; ret = lua_pcall(L,2,1,0) ; if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(L,-1)) ; printf("mysum:%d + %d = %ld/n",a,b,lua_tointeger(L,-1)) ; lua_pop(L,1) ; /下面是table的用法/ lua_getglobal(L,"retargnum"); //调用lua中的函数retargnum lua_newtable(L); lua_pushnumber(L,8); //压入key lua_pushstring(L,"w"); //压入Value lua_settable(L,-3); //只能一次一次的压入 lua_pushnumber(L,7); //压入key lua_pushstring(L,"w2"); //压入Value lua_settable(L,-3); ret = lua_pcall(L,1,1,0) ; if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(L,-1)) ; printf("retargnum[1] ret = %s/n",lua_tostring(L,-1)) ; lua_pop(L,1); // ret = luaL_loadfile(L,"func2.lua") ; //加载lua脚本文件 if ( ret != 0 ) { printf("加载lua脚本文件出错！！！/n"); } ret = lua_pcall(L,0,0,0) ; //如果没有这句的话retargnum将会调用以前lua的同名函数 if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(L,-1)) ; //覆盖了func.lua里面的retargnum lua_getglobal(L,"retargnum"); //调用lua中的函数retargnum lua_newtable(L); //以数字为下标的数组 lua_pushinteger(L,8); //push value lua_rawseti(L,-2,1); //下标从1开始 lua_pushinteger(L,7); //push value lua_rawseti(L,-2,2); //下标从1开始 ret = lua_pcall(L,1,1,0) ; if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(L,-1)) ; printf("retargnum[1] ret = %d/n",lua_tointeger(L,-1)) ; lua_pop(L,1); lua_getglobal(L,"mysum"); //调用lua中的mysum函数，该函数调用本程序中定义的csum函数实现加法 lua_pushinteger(L,a) ; lua_pushinteger(L,b) ; ret = lua_pcall(L,2,1,0) ; if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(L,-1)) ; printf("mysum:%d + %d = %ld/n",a,b,lua_tointeger(L,-1)) ; lua_pop(L,1) ; lua_getglobal(L,"retglobalwidth"); // ret = lua_pcall(L,0,1,0) ; if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(L,-1)) ; printf("retglobalwidth = %d/n",lua_tointeger(L,-1)) ; lua_pop(L,1) ; lua_close(L) ; //释放lua运行环境 getchar(); return 0 ; }