Lua和C程序通過一個堆棧交換數(shù)據(jù): struct lua_State

堆棧的序號可以從棧頂和棧底計(jì)數(shù)，從棧底計(jì)數(shù)，則棧底是1,向棧頂方向遞增。從棧頂計(jì)數(shù)，則棧頂是-1,向棧底方向遞減。一般都用從棧頂計(jì)數(shù)的方式。堆棧的默認(rèn)大小是20，可以用lua_checkstack修改.用lua_gettop則可以獲得棧里的元素?cái)?shù)目。并不是說在棧頂有一個整形元素。而是計(jì)算了一下棧頂元素在棧里的正index,相當(dāng)于元素?cái)?shù)目。

Lua 調(diào)用C函數(shù)用的堆棧是臨時的，調(diào)用結(jié)束之后就被銷毀了。

如何從堆棧中獲取從Lua腳本中的參數(shù)

如何從C返回?cái)?shù)據(jù)給Lua腳本

用lua_push...類函數(shù)壓入數(shù)據(jù)到堆棧中，并用return n;來告訴Lua返回了幾個返回值。 Lua是天生支持多個返回值的，如 x,y = Test()。 Lua會根據(jù)n從棧里取相應(yīng)的數(shù)據(jù)。

如果要返回一個table:

     lua_newtable(L);//創(chuàng)建一個表格，放在棧頂
    lua_pushstring(L, "mydata");//壓入key
    lua_pushnumber(L,66);//壓入value
    lua_settable(L,-3);//彈出key,value，并設(shè)置到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,并設(shè)置到subtable
    lua_settable(L,-3);//這時候父table的位置還是-3,彈出key,value(subtable),并設(shè)置到table里去
    lua_pushstring(L, "mydata2");//同上
    lua_pushnumber(L,77);
    lua_settable(L,-3);
    return 1;//堆棧里現(xiàn)在就一個table.其他都被彈掉了。

如果要返回一個數(shù)組，用如下代碼：(注意那個關(guān)于trick的注釋，我在等官方的解釋。經(jīng)過驗(yàn)證，這個問題只在windows版本調(diào)用dll中方法的時候出現(xiàn)。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);

這樣產(chǎn)生的數(shù)組可以在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

只有數(shù)組才能這樣，name,value構(gòu)成的Record不行，table.getn也只對數(shù)組有效。

由于上述代碼的高度相似性，所以很容易實(shí)現(xiàn)自動生成這些代碼。比如，根據(jù)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;
    

可以自動產(chǎn)生如下代碼：

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也是類似的。

如果使用面向?qū)ο蟮姆绞椒庋b起flag來，把DataToLua變成flag類的一個方法，就更加方便了。

http://www.lua.org