*******環境配置及項目設置同上一篇博客設置*******
在lua中是以函數指針的形式調用函數,
並且所有的函數指針都必須滿足如下此種
類型:
typedef int (*lua_CFunction) (lua_State *L);
也就是說, 偶們在C++中定義函數時必須以lua_State爲參數,
以int爲返回值才能
被Lua所調用.
但是不要忘記了, 偶們的lua_State是支持棧的,
所以通過棧可以
傳遞無窮個參數, 大小隻受內存大小限制.
而返回的int值也只是指返回值的個數
真正的返回值都存儲在lua_State的棧中.
偶們通常的做法是做一個wrapper,
把
所有需要調用的函數都wrap一下,
這樣就可以調用任意的函數了.
編碼如下：
// luaYc.cpp : 定義控制檯應用程序的入口點。
//
#include "stdafx.h"
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 _tmain(int argc, _TCHAR* argv[])
{
/* initialize Lua */
L = lua_open();
luaopen_base(L);
/* load Lua base libraries */
luaL_openlibs(L);
/* register our function */
lua_register(L, "average", average);
/* run the script */
luaL_dofile(L, "D:\\LuaTestDoc\\Lua02.lua");
/* cleanup Lua */
lua_close(L);
return 0;
}
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Lua02.lua文件編寫如下：
avg, sum = average(10, 20, 30, 40, 50)
print("The average is ", avg)
print("The sum is ", sum)
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
程序運行結果是：The average is 30
The sum is 150
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
1. 程序說明:
* 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