lua与c++的相互调用

一.   lua调用C++

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

[cpp] view plain copy

1. #include<iostream>  
2. using namespace std;  
3. #include<stdio.h>  
4. extern "C" {  
5. #include <lua.h>  
6. #include <lualib.h>  
7. #include <lauxlib.h>  
8. }  
9. //#pragma comment(lib, "lua5.1.lib")  
10. lua_State* L;  
11. static int average(lua_State *L)  
12. {  
13.     //返回栈中元素的个数  
14.     int n = lua_gettop(L);  
15.     double sum = 0;  
16.     int i;  
17.     for (i = 1; i <= n; i++)  
18.     {  
19.         if (!lua_isnumber(L, i))   
20.         {  
21.             lua_pushstring(L, "Incorrect argument to 'average'");  
22.             lua_error(L);  
23.         }  
24.         sum += lua_tonumber(L, i);  
25.     }  
26.     /* push the average */  
27.     lua_pushnumber(L, sum / n);  
28.     /* push the sum */  
29.     lua_pushnumber(L, sum);  
30.       
31.     /* return the number of results */  
32.     return 2;  
33. }  
34. int main (int argc,char*argv[])  
35. {  
36.     /* initialize Lua */  
37.     L = lua_open();  
38.     /* load Lua libraries */  
39.     luaL_openlibs(L);  
40.     /* register our function */  
41.     lua_register(L, "average", average);  
42.     /* run the script */  
43.     luaL_dofile(L, "e15.lua");  
44.       
45.     lua_getglobal(L,"avg");  
46.     cout<<"avg is:"<<lua_tointeger(L,-1)<<endl;  
47.     lua_pop(L,1);  
48.     lua_getglobal(L,"sum");  
49.     cout<<"sum is:"<<lua_tointeger(L,-1)<<endl;  
50.     /* cleanup Lua */  
51.     lua_close(L);  
52.       
53.     return 0;  
54. }  
55. //程序  
56. //*lua_gettop()的作用是返回栈顶元素的序号. 由于Lua的栈是从1开始编号的,  
57. // 所以栈顶元素的序号也相当于栈中的元素个数. 在这里, 栈中元素的个数就  
58. // 是传入的参数个数.  
59. //* for循环计算所有传入参数的总和. 这里用到了数值转换lua_tonumber().  
60. //* 然后偶们用lua_pushnumber()把平均值和总和push到栈中.  
61. //* 最后, 偶们返回2, 表示有两个返回值.  
62. //* 虽然在C++中定义了average()函数, 但Lua程序并不知道, 所以需  
63. //  要在main函数中加入  
64. //     // register our function   
65. //  lua_register(L, "average", average);  
66. //　　这两行的作用就是告诉e15.lua有average()这样一个函数.  
67. //* 这个程序可以存成cpp也可以存成c, 如果以.c为扩展名就不需要加extern "C"  
68. //   　　  
69. //编译的方法偶们上次说过了, 方法相同.  
70. //e15.lua执行的方法只能用上例中的C++中执行, 而不能用命令行方式执行.*/  

脚本为

 

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

print("The average is ", avg)

print("The sum is ", sum)

 

 

 

二.  C++调用lua

[cpp]  view plain  copy

1. #include "stdafx.h"  
2. #include <stdio.h>  
3. extern "C" {  
4. #include "lua.h"  
5. #include "lualib.h"  
6. #include "lauxlib.h"  
7. }  
8. /* Lua解释器指针 */  
9. lua_State* L;  
10. int main ( int argc, char *argv[] )  
11. {  
12.     /* 初始化Lua */  
13.     L = lua_open();  
14.     /* 载入Lua基本库 */  
15.     luaL_openlibs(L);  
16.     /* 运行脚本 */  
17.     luaL_dofile(L, "Lua1.lua");  
18.     /* 清除Lua */  
19.     lua_close(L);  
20.     /* 暂停 */  
21.     printf( "Press enter to exit…" );  
22.     getchar();  
23.     return 0;  
24. }  

 

 

[cpp]  view plain  copy

1. /* A simple Lua interpreter. */   
2. #include <stdio.h>   
3. extern "C" {  
4. #include <lua.h>   
5. #include <lualib.h>  
6. #include <lauxlib.h>  
7. }  
8. #include <stdio.h>  
9. extern "C" { // 这是个C++程序, 所以要extern "C",  
10.     // 因为lua的头文件都是C格式的  
11. #include "lua.h"  
12. #include "lualib.h"  
13. #include "lauxlib.h"  
14. }  
15. #pragma comment(lib, "lua5.1.lib")  
16. /* the Lua interpreter */  
17. lua_State* L;  
18. int luaadd ( int x, int y )  
19. {  
20.     int sum;  
21.     /* the function name */  
22.     lua_getglobal(L, "add");        int nTop = lua_gettop(L); //得到栈的元素个数。栈顶的位置。  
23.     /* the first argument */  
24.     lua_pushnumber(L, x);           nTop = lua_gettop(L);  
25.     /* the second argument */  
26.     lua_pushnumber(L, y);           nTop = lua_gettop(L);  
27.     /* call the function with 2 
28.     arguments, return 1 result */  
29.     lua_call(L, 2, 1);              nTop = lua_gettop(L);  
30.     /* get the result */  
31.     sum = (int)lua_tonumber(L, -1); nTop = lua_gettop(L);  
32.     /*清掉返回值*/  
33.     lua_pop(L, 1);                  nTop = lua_gettop(L);  
34.     /*取出脚本中的变量z的值*/  
35.     lua_getglobal(L, "z");          nTop = lua_gettop(L);  
36.     int z = (int)lua_tonumber(L, 1);nTop = lua_gettop(L);  
37.     lua_pop(L, 1);                  nTop = lua_gettop(L);  
38.       
39.     //没调通  
40.     /*lua_pushnumber(L, 4);         nTop = lua_gettop(L); 
41.     lua_setglobal(L, "r");          nTop = lua_gettop(L); 
42.     int r = (int)lua_tonumber(L, 1);nTop = lua_gettop(L);*/  
43.     return sum;  
44. }  
45. int main ( int argc, char *argv[] )  
46. {  
47.     int sum;  
48.     /* initialize Lua */  
49.     L = lua_open();  
50.     /* load Lua base libraries */  
51.     //lua_baselibopen(L);  
52.     /* load the script */  
53.     luaL_dofile(L, "e12.lua");  
54.     /* call the add function */  
55.     sum = luaadd( 10, 15 );  
56.     /* print the result */  
57.     printf( "The sum is %d", sum );  
58.     /* cleanup Lua */  
59.     lua_close(L);  
60.     return 0;  
61. }  
62. /*程序说明: 
63. main中过程偶们上次已经说过了, 所以这次只说说luaadd的过程 
64. * 首先用lua_getglobal()把add函数压栈 
65. * 然后用lua_pushnumber()依次把x,y压栈 
66. * 然后调用lua_call(), 并且告诉程序偶们有两个参数一个返回值 
67. * 接着偶们从栈顶取回返回值, 用lua_tonumber() 
68. * 最后偶们用lua_pop()把返回值清掉 
69. */  

 

脚本为：

 

-- add two numbers

function add ( x, y )

return x + y + 2

end

 

z = 6