Lua&C 通过栈交换数据

Lua和C程序通过一个堆栈交换数据: struct lua_State
　　堆栈的序号可以从栈顶和栈底计数，从栈底计数，则栈底是1,向栈顶方向递增。从栈顶计数，则栈顶是-1,向栈底方向递减。一般都用从栈顶计数的方式。堆栈的默认大小是20，可以用lua_checkstack修改.用lua_gettop则可以获得栈里的元素数目。并不是说在栈顶有一个整形元素。而是计算了一下栈顶元素在栈里的正index,相当于元素数目。
　　Lua 调用C函数用的堆栈是临时的，调用结束之后就被销毁了。
　　如何从堆栈中获取从Lua脚本中的参数
　　如果知道Lua脚本中某个全局变量的名字，可以用void lua_getglobal (lua_State *L, const char *name) 。这个函数会将name所指Lua变量的值放在栈顶.
　　如果是在C 函数中要获取Lua调用函数使用的参数：
　　首先用lua_gettop检查参数数量
　　用lua_is...类函数检测参数的类型，做好错误处理
　　用lua_to...类函数将参数转换为number或者string.(对Lua来说，只有这两种简单类型)
　　lua_tonumber返回的是double
　　lua_tostring返回的是char*
　　用lua_remove从栈中删除掉元素
　　继续获取下一个元素. 因为每次都调用lua_remove,所以每次调用lua_tonumber,使用的index都将固定是-1，即栈顶。
　　如果lua_istable成立，那么说明栈顶是一个table.注意table是不能取出来的，只能把table里的元素一个个取出来。
　　首先把元素的名字压入栈顶： lua_pushstring(L,"i");然后就可以用lua_gettable调用，值会放在栈顶。同时刚才压入的元素名字被弹出。用上面的办法，可以把这个值取出来。记得也应该lua_remove。 如果table的某一个元素也是table，重复即可。当table的所有元素都取完了，记住这个table本身还在堆栈里，要用lua_remove把它删除。
　　如果要获取的是一个数组(所谓数组，其实就是key是从1开始的数字序列的table,并且值类型相同),用lua_next可以遍历这个数组：
　　首先lua_pushnil，压入一个空值，然后
　　while (lua_next(L, -2) != 0)
　　{
　　　　if(lua_isnumber(L,-1)) //判断元素类型，也可能是string
　　　　{
　　　　　　arrf.add((float)lua_tonumber(L, -1));//获取元素的值
　　　　　　lua_remove(L,-1);
　　　　}
　　}
　　lua_remove(L,-1);//删除NIL

　　如何从C返回数据给Lua脚本

　　用lua_push...类函数压入数据到堆栈中，并用return n;来告诉Lua返回了几个返回值。 Lua是天生支持多个返回值的，如 x,y = Test()。 Lua会根据n从栈里取相应的数据。

　　如果要返回一个table:
　　lua_newtable(L);　　//创建一个表格，放在栈顶
　　lua_pushstring(L, "mydata");　　//压入key
　　lua_pushnumber(L,66);　　//压入value
　　lua_settable(L,-3);　　//弹出key,value，并设置到table里面去
　　lua_pushstring(L, "subdata");　　//压入key
　　lua_newtable(L);　　//压入value,也是一个table
　　lua_pushstring(L, "mydata");　　//压入subtable的key
　　lua_pushnumber(L,53);　　//value
　　lua_settable(L,-3);　　//弹出key,value,并设置到subtable
　　lua_settable(L,-3);　　//这时候父table的位置还是-3,弹出key,value(subtable),并设置到table里去
　　lua_pushstring(L, "mydata2");　　//同上
　　lua_pushnumber(L,77);
　　lua_settable(L,-3);
　　return 1;　　//堆栈里现在就一个table.其他都被弹掉了。
如果要返回一个数组，用如下代码：(注意那个关于trick的注释，我在等官方的解释。经过验证，这个问题只在windows版本调用dll中方法的时候出现。WinCE正常)

　　lua_pushstring(L,"arri");
　　lua_newtable(L);
　　{
　　　　//a trick:otherwise the lua engine will crash. This element is invisible in Lua script
　　　　lua_pushnumber(L,-1);
　　　　lua_rawseti(L,-2,0);
　　　　for(int i = 0; i < arri.size();i++)
　　　　{
　　　　　　lua_pushnumber(L,arri);
　　　　　　lua_rawseti(L,-2,i+1);
　　　　}
　　 }
 　　lua_settable(L,-3);
　　这样产生的数组可以在Lua中如下遍历：

　　for i,v in ipairs(data.arri) do
　　　　print(v)
　　end
　　或者是
　　for i=1,table.getn(data.arri) do
　　　　print(data.arri)
　　end
　　只有数组才能这样，name,value构成的Record不行，table.getn也只对数组有效。

　　由于上述代码的高度相似性，所以很容易实现自动生成这些代码。比如，根据C的一个struct定义：

　　typedef enum { BR_9600, BR_4800,} BaudRate;
　　typedef struct flag{ int onoff; int j; long l; double d; char* name; BaudRate rate;} flag;　　可以自动产生如下代码：
　　bool DataToLua(flag data,lua_State *L)
　　{
　　　　lua_newtable(L);
　　　　lua_pushstring(L,"onoff");
　　　　lua_pushnumber(L,(double)data.onoff);
　　　　lua_settable(L,-3);
　　　　lua_pushstring(L,"j");
　　　　lua_pushnumber(L,(double)data.j);
　　　　lua_settable(L,-3);
　　　　lua_pushstring(L,"l");
　　　　lua_pushnumber(L,(double)data.l);
　　　　lua_settable(L,-3);
　　　　lua_pushstring(L,"d");
　　　　lua_pushnumber(L,(double)data.d);
　　　　lua_settable(L,-3);
　　　　lua_pushstring(L,"name");
　　　　lua_pushstring(L,data. name.c_str());
　　　　lua_settable(L,-3);
　　　　lua_pushstring(L,"rate");
　　　　lua_pushnumber(L,(double)(int)data.rate);
　　　　lua_settable(L,-3);
　　　　return true;
　　}
　　LuaToData也是类似的。

　　如果使用面向对象的方式封装起flag来，把DataToLua变成flag类的一个方法，就更加方便了。

摘自:http://baike.baidu.com/view/416116.htm#8