lua与c++的相互调用

一.   lua调用C++

      在lua中是以函数指针的形式调用函数,并且所有的函数指针都必须满足如下此种类型:
typedef int (*lua_CFunction) (lua_State *L);　　
也就是说,偶们在C++中定义函数时必须以lua_State为参数,以int为返回值才能被Lua所调用. 但是不要忘记了,偶们的lua_State是支持栈的,所以通过栈可以传递无穷个参数,大小只受内存大小限制. 而返回的int值也只是指返回值的个数真正的返回值都存储在lua_State的栈中. 偶们通常的做法是做一个wrapper,把所有需要调用的函数都wrap一下,这样就可以调用任意的函数了.

#include<iostream> using namespace std; #include<st<a href="/tag/dio/" target="_blank" class="keywords">dio</a>.h> extern "C" { #include <lua.h> #include <lualib.h> #include <lauxlib.h> } //#pragma comment(lib,"lua5.1.lib") lua_State* L; static int average(lua_State *L) { //返回栈中元素的个数 int n = lua_gettop(L); double sum = 0; int i; for (i = 1; i <= n; i++) { if (!lua_isnumber(L,i)) { lua_pushstring(L,"Incorrect argument to 'average'"); lua_error(L); } sum += lua_tonumber(L,i); } /* push the average */ lua_pushnumber(L,sum / n); /* push the sum */ lua_pushnumber(L,sum); /* return the number of results */ return 2; } int main (int argc,char*argv[]) { /* initialize Lua */ L = lua_<a href="/tag/open/" target="_blank" class="keywords">open()</a>; /* load Lua libraries */ luaL_openlibs(L); /* register our function */ lua_register(L,"average",average); /* run the script */ luaL_dofile(L,"e15.lua"); lua_getglobal(L,"avg"); cout<<"avg is:"<<lua_tointeger(L,-1)<<endl; lua_pop(L,1); lua_getglobal(L,"sum"); cout<<"sum is:"<<lua_tointeger(L,-1)<<endl; /* cleanup Lua */ lua_close(L); return 0; } //程序 //*lua_gettop()的作用是返回栈顶元素的序号. 由于Lua的栈是从1开始编号的,// 所以栈顶元素的序号也相当于栈中的元素个数. <a href="/tag/zaizheli/" target="_blank" class="keywords">在这里</a>,栈中元素的个数就 // 是传入的参数个数. //* for循环计算所有传入参数的总和. 这里用到了数值转换lua_tonumber(). //* 然后偶们用lua_pushnumber()把平均值和总和push到栈中. //* 最后,偶们返回2,表示有两个返回值. //* 虽然在C++中定义了average()<a href="/tag/hanshu/" target="_blank" class="keywords">函数</a>,但Lua程序并不知道,所以需 // 要在main<a href="/tag/hanshu/" target="_blank" class="keywords">函数</a>中加入 // // register our function // lua_register(L,average); //　　这两行的作用就是告诉e15.lua有average()这样<a href="/tag/yige/" target="_blank" class="keywords">一个</a><a href="/tag/hanshu/" target="_blank" class="keywords">函数</a>. //* 这个程序可以存成cpp也可以存成c,如果以.c为扩展名就不需要加extern "C" // 　　 //编译的<a href="/tag/fangfa/" target="_blank" class="keywords">方法</a>偶们上次说过了,<a href="/tag/fangfa/" target="_blank" class="keywords">方法</a>相同. //e15.lua执行的<a href="/tag/fangfa/" target="_blank" class="keywords">方法</a>只能用上例中的C++中执行,而不能用命令行方式执行.*/

脚本为

 

avg,sum = average(10,20,30,40,50)

print("The average is ",avg)

print("The sum is ",sum)

 

 

 

二.  C++调用lua

#include "stdafx.h" #include <st<a href="/tag/dio/" target="_blank" class="keywords">dio</a>.h> extern "C" { #include "lua.h" #include "lualib.h" #include "lauxlib.h" } /* Lua解释器指针 */ lua_State* L; int main ( int argc,char *argv[] ) { /* 初始化Lua */ L = lua_<a href="/tag/open/" target="_blank" class="keywords">open()</a>; /* 载入Lua基本库 */ luaL_openlibs(L); /* 运行脚本 */ luaL_dofile(L,"Lua1.lua"); /* 清除Lua */ lua_close(L); /* 暂停 */ printf( "Press enter to exit…" ); getchar(); return 0; }

 

 

/* A simple Lua interpreter. */ #include <st<a href="/tag/dio/" target="_blank" class="keywords">dio</a>.h> extern "C" { #include <lua.h> #include <lualib.h> #include <lauxlib.h> } #include <st<a href="/tag/dio/" target="_blank" class="keywords">dio</a>.h> extern "C" { // 这是个C++程序,所以要extern "C",// 因为lua的头<a href="/tag/wenjian/" target="_blank" class="keywords">文件</a>都是C格式的 #include "lua.h" #include "lualib.h" #include "lauxlib.h" } #pragma comment(lib,"lua5.1.lib") /* the Lua interpreter */ lua_State* L; int luaadd ( int x,int y ) { int sum; /* the function name */ lua_getglobal(L,"add"); int nTop = lua_gettop(L); //得到栈的元素个数。栈顶的位置。 /* the f<a href="/tag/irs/" target="_blank" class="keywords">irs</a>t argument */ lua_pushnumber(L,x); nTop = lua_gettop(L); /* the second argument */ lua_pushnumber(L,y); nTop = lua_gettop(L); /* call the function with 2 arguments,return 1 result */ lua_call(L,2,1); nTop = lua_gettop(L); /* get the result */ sum = (int)lua_tonumber(L,-1); nTop = lua_gettop(L); /*清掉返回值*/ lua_pop(L,1); nTop = lua_gettop(L); /*取出脚本中的变量z的值*/ lua_getglobal(L,"z"); nTop = lua_gettop(L); int z = (int)lua_tonumber(L,1);nTop = lua_gettop(L); lua_pop(L,1); nTop = lua_gettop(L); //没调通 /*lua_pushnumber(L,4); nTop = lua_gettop(L); lua_setglobal(L,"r"); nTop = lua_gettop(L); int r = (int)lua_tonumber(L,1);nTop = lua_gettop(L);*/ return sum; } int main ( int argc,char *argv[] ) { int sum; /* initialize Lua */ L = lua_<a href="/tag/open/" target="_blank" class="keywords">open()</a>; /* load Lua base libraries */ //lua_baselibopen(L); /* load the script */ luaL_dofile(L,"e12.lua"); /* call the add function */ sum = luaadd( 10,15 ); /* print the result */ printf( "The sum is %d",sum ); /* cleanup Lua */ lua_close(L); return 0; } /*程序说明: main中过程偶们上次已经说过了,所以这次只说说luaadd的过程 * 首先用lua_getglobal()把add<a href="/tag/hanshu/" target="_blank" class="keywords">函数</a>压栈 * 然后用lua_pushnumber()依次把x,y压栈 * 然后<a href="/tag/diaoyong/" target="_blank" class="keywords">调用</a>lua_call(),并且告诉程序偶们有两个参数<a href="/tag/yige/" target="_blank" class="keywords">一个</a>返回值 * 接着偶们从栈顶取回返回值,用lua_tonumber() * 最后偶们用lua_pop()把返回值清掉 */ 

脚本为：

 

-- add two numbers

function add ( x,y )

return x + y + 2

end

 

z = 6