Lua和C程序通过一个堆栈交换数据: struct lua_State

堆栈的序号可以从栈顶和栈底计数，从栈底计数，则栈底是1,向栈顶方向递增。从栈顶计数，则栈顶是-1,向栈底方向递减。一般都用从栈顶计数的方式。堆栈的默认大小是20，可以用lua_checkstack修改.用lua_gettop则可以获得栈里的元素数目。并不是说在栈顶有一个整形元素。而是计算了一下栈顶元素在栈里的正index,相当于元素数目。

Lua 调用C函数用的堆栈是临时的，调用结束之后就被销毁了。

如何从堆栈中获取从Lua脚本中的参数

如何从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[i]);
    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[i])
    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://www.lua.org