通过例子学习Lua(7)--调用C/C++函数

1.前言
　　上次偶说到从C/C++中调用Lua的函数, 然后就有朋友问从Lua中如何调用C/C++的
　　函数, 所以偶们这次就来说说这个问题. 首先偶们会在C++中建立一个函数, 然后
　　告知Lua有这个函数, 最后再执行它. 另外, 由于函数不是在Lua中定义的, 所以
　　无法确定函数的正确性, 可能在调用过程中会出错, 因此偶们还会说说Lua出错处
　　理的问题.
　　
　　2.Lua中调用C函数
　　在lua中是以函数指针的形式调用函数, 并且所有的函数指针都必须满足如下此种
　　类型:
　　typedef int (*lua_CFunction) (lua_State *L);
　　
　　也就是说, 偶们在C++中定义函数时必须以lua_State为参数, 以int为返回值才能
　　被Lua所调用. 但是不要忘记了, 偶们的lua_State是支持栈的, 所以通过栈可以
　　传递无穷个参数, 大小只受内存大小限制. 而返回的int值也只是指返回值的个数
　　真正的返回值都存储在lua_State的栈中. 偶们通常的做法是做一个wrapper, 把
　　所有需要调用的函数都wrap一下, 这样就可以调用任意的函数了.
　　
　　下面这个例子是一个C++的average()函数, 它将展示如何用多个参数并返回多个值
　　
　　例e14.cpp
　　#include
　　
　　extern "C" {
　　#include "lua.h"
　　#include "lualib.h"
　　#include "lauxlib.h"
　　}
　　
　　/* the Lua interpreter */
　　lua_State* L;
　　
　　static int average(lua_State *L)
　　{
　　/* get number of arguments */
　　int n = lua_gettop(L);
　　double sum = 0;
　　int i;
　　
　　/* loop through each argument */
　　for (i = 1; i <= n; i++)
　　{
　　/* total the arguments */
　　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_open();
　　
　　/* load Lua base libraries */
　　lua_baselibopen(L);
　　
　　/* register our function */
　　lua_register(L, "average", average);
　　
　　/* run the script */
　　lua_dofile(L, "e15.lua");
　　
　　/* cleanup Lua */
　　lua_close(L);
　　
　　return 0;
　　}
　　
　　例e15.lua
　　-- call a C++ function
　　
　　avg, sum = average(10, 20, 30, 40, 50)
　　
　　print("The average is ", avg)
　　print("The sum is ", sum)
　　
　　
　　程序说明:
　　* lua_gettop()的作用是返回栈顶元素的序号. 由于Lua的栈是从1开始编号的,
　　　所以栈顶元素的序号也相当于栈中的元素个数. 在这里, 栈中元素的个数就
　　　是传入的参数个数.
　　* for循环计算所有传入参数的总和. 这里用到了数值转换lua_tonumber().
　　* 然后偶们用lua_pushnumber()把平均值和总和push到栈中.
　　* 最后, 偶们返回2, 表示有两个返回值.
　　* 偶们虽然在C++中定义了average()函数, 但偶们的Lua程序并不知道, 所以需
　　　要在main函数中加入
　　
　　　 /* register our function */
　　lua_register(L, "average", average);
　　
　　　这两行的作用就是告诉e15.lua有average()这样一个函数.
　　* 这个程序可以存成cpp也可以存成c, 如果以.c为扩展名就不需要加extern "C"
　　
　　编译的方法偶们上次说过了, 方法相同.
　　e15.lua执行的方法只能用上例中的C++中执行, 而不能用命令行方式执行.
　　
　　3.错误处理
　　在上例中, 偶们没有对传入的参数是否为数字进行检测, 这样做不好. 所以这里偶
　　们再加上错误处理的片断.
　　
　　把这段加在for循环之内:
　　if (!lua_isnumber(L, i)) {
　　lua_pushstring(L, "Incorrect argument to 'average'");
　　lua_error(L);
　　}
　　这段的作用就是检测传入的是否为数字.
　　
　　加上这段之后, 偶们debug的时候就会简单许多. 对于结合两种语言的编程, 它们之
　　间传递数据的正确性检测是非常重要的.
　　
　　这里有别人写好的例子:
　　VC的 http://tonyandpaige.com/tutorials/luaavg.zip
　　Linux的 http://tonyandpaige.com/tutorials/luaavg.tar.gz

原文转自：http://www.ltesting.net