通過例子學習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是支持棧的, 所以通過?？梢?br /> 　　傳遞無窮個參數, 大小只受內存大小限制. 而返回的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.kjueaiud.com