Lua 与 C混合编程 .

本文通过程序实例说明C调用lua脚本和lua调用C的方法：

先建立一个 test.c文件：

#include <stdio.h>
#include <stdlib.h>
#include "lua.h"
#include "lualib.h"
#include "lauxlib.h"
#pragma comment(lib, "lua5.1.lib") 
// lua解释器指针
lua_State* L;
#if 0
// C执行lua脚本
/************************************************************************
1、lua_open()返回一个指向Lua解释器的一个指针。
2、luaL_openlibs()用于装载Lua库，它提供了一些简单的函数，如：print。
3、通过调用luaL_dofile()执行脚本。它的作用是读取并解释脚本。
4、最后，通过lua_close()函数关闭Lua。
************************************************************************/
int main(int argc, char **argv)
{
 L = lua_open();// 打开lua
 luaL_openlibs(L);// 打开lua库
 luaL_dofile(L, "test.lua");// 执行lua脚本
 lua_close(L);// 关闭lua
 return 0;
}
#endif
#if 0
// C 调用Lua函数
/************************************************************************
1、调用lua_getglobal()将average()函数压入栈中。
2、调用lua_pushnumber()将第一个参数x压入栈中。
3、同样，调用lua_pushnumber()将第二个参数y压入栈中。
4、调用lua_call()，其参数的意思是两个参数，一个返回值。
5、现在，我们可以利用lua_tointeger()获得整型返回值。
6、最后，调用lua_pop()将值从栈中移出。
************************************************************************/
int lua_average(int arr[],int a)
{
 int sum;
 int data;
 int i =0;
 lua_getglobal(L, "average");// 根据函数名获得Lua中的函数
 for (i;i<a;i++)
     lua_pushnumber(L, arr[i]);// 参数一入栈
 lua_pushnumber(L, a);//注意数组要传送一个长度的一个隐含参数
 lua_call(L, a+1, 1);// 调用lua中的add函数，连个输入参数，一个返回值
 sum = (int)lua_tointeger(L, -1);//获得返回值
    lua_pop(L, 1);// 将返回值出栈，恢复栈中的元素
 return sum;
}
int main(int argc, char **argv)
{
 int sum;
 int  arr[]={1,2,3,4,5,6,7,8,9};
 L = lua_open();// 打开lua
 luaL_openlibs(L);// 打开lua库
 luaL_dofile(L, "test.lua");// 加载lua脚本
 sum = lua_average(arr,9);// 调用lua中的函数
 printf("Result is: %d.\n", sum);
 lua_close(L);// 关闭lua
 return 0;
}
#endif

#if 1
// lua调用C的函数
/************************************************************************
1、lua_gettop函数返回栈顶的索引值。因为在Lua中栈是从1开始编号的，因此该函
   数获得的值就是参数的个数。
2、在for循环中计算所有参数之和。
3、调用lua_pushnumber()将参数的平均值压栈。
4、将参数之和压入栈中。
5、最后，函数返回2，说明有两个返回值在栈中。
************************************************************************/

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);
  }
  else
  {
   sum += lua_tonumber(L, i);
  }
 }
 lua_pushnumber(L, sum/n);// 将平均数压入栈顶
 lua_pushnumber(L, sum);// 将和压入栈中
 return 2;// 返回压入栈中参数的个数
}
int main(int argc, char **argv)
{
 int sum;
 L = lua_open();// 打开lua
 luaL_openlibs(L);// 打开lua库
 lua_register(L, "average", average);// 注册lua基本库，绑定之
 luaL_dofile(L, "test.lua");// 加载lua脚本
 lua_close(L);// 关闭lua
 system("pause");
 return 0;
}
#endif

然后建立一个lua文件test.lua

--C dofile 
print ("hello world"); 
--Be called by C
function add(x, y) 
    return x - y; 
end 
--Be called by C
function lua_average(...)
    local sum = 0;
    for i,j in pairs(arg) do
        sum = sum + j;
    end
    return sum/table.getn(arg);
end
--call C function 
avg, sum = average(23,56,46,24,65,75,34,12); 
print("The average is : ", avg); 
print("The sum is : ", sum);