Lua脚本调用C函数小结

Lua脚本调用C函数小结

Lua脚本调用C函数小结
仔细的学习了一下，发现功能的确非常强大。用脚本调用C的函数，都希望有如下特性：
1. 多输出
Lua 本身就支持函数返回多个值，语法如下：
x,y = testext.Test()

2. 可以使用类似C的结构的形式输入输出
Lua 的Table可以在形式上很好的模仿C的结构，
a = {}
a.i = 101
a.name = "jason"
a.subtable = {}
a.subtable.i = 99
相当于
struct A
{
int i;
string name;
struct subtable
{
int i;
}
}
这个能力一般的脚本是不具备的。我们的应用中，很多参数都是用结构组织的，
以前使用TCL，就只能让用户平铺的输入。现在好多了.

输出也可以，在C的函数中可以返回一个table给Lua脚本。TCL也可以返回一个Array.

不过给Lua写C函数太痛苦了，全部是基于堆栈的，而且非常的不直观，看来还需要
研究一下如何封装。网上有不少基于模版的封装，得好好看看。

测试代码如下：

Lua
local testlib = package.loadlib("testext.dll","luaopen_testext")
if(testlib)then
testlib()
else
-- Error
end

a = {}
a.i = 101
a.name = "jason hah"
a.subtable = {}
a.subtable.i = 99
r = testext.Complex(a)
print(r.mydata)

C
static int Complex(lua_State* L)
{
//1. get the table from Lua Script
int i = lua_gettop(L);
if( i != 1)
{
lua_pushstring(L, "Complex(table)" ) ;
return 1;
}

if (lua_istable(L, 1))
{
lua_pushstring(L,"i");
lua_gettable(L,-2);
if(lua_isnumber(L,-1))
{
int j = lua_tonumber(L, -1);
printf("The table.j = %d ",j);
}
lua_remove(L,-1);

lua_pushstring(L,"name");
lua_gettable(L,-2);
if(lua_isstring(L,-1))
{
char* name = lua_tostring(L, -1);
printf("The table.name = %s ",name);
}

lua_remove(L,-1);
lua_pushstring(L,"subtable");
lua_gettable(L,-2);
if(lua_istable(L,-1))
{
lua_pushstring(L,"i");
lua_gettable(L,-2);
if(lua_isnumber(L,-1))
{
int j = lua_tonumber(L, -1);
printf("The table.j = %d ",j);
}
}
}
else
{
lua_pushstring(L, "Complex(table)" ) ;
return 1;
}
//2. Return Another table to Lua Script
lua_newtable(L);
lua_pushstring(L, "mydata");
lua_pushnumber(L,66);
lua_settable(L,-3);
return 1;
}