C函數傳遞一個table給lua代碼中使用。

script.lua-- 這個lua程序裏的foo沒定義和聲明哦，它從哪裏來了，從C代碼裏來。x = 0for i = 1, #foo do  print(i, foo[i])  x = x + foo[i]endreturn x爲了C代碼能訪問它, 我們試着編寫了這個程序。在這個程序裏，我們建立一個 table,把它傳遞到lua程序裏， 並在這個C程序中得到lua程序的返回值。/* * test.c * Example of a C program that interfaces with Lua. * Based on Lua 5.0 code by Pedro Martelletto in November, 2003. * Updated to Lua 5.1. David Manura, January 2007. */#include <lua.h>#include <lauxlib.h>#include <stdlib.h>#include <stdio.h>intmain(void){    int status, result, i;    double sum;    lua_State *L;    L = luaL_newstate();    luaL_openlibs(L);         /* 把lua程序搞進來*/    status = luaL_loadfile(L, "script.lua");    if (status) {                                  //冒搞到就提示錯誤        (void)fprintf(stderr, "bad, bad file\n");        exit(1);    }     //正式開始。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。    /*     *首先我們必須準備好Lua的虛擬堆棧。     * 然後傳遞數據到這個堆棧裏.     */     lua_newtable(L);    /* 堆棧裏建立個table*/    /**********************************************************     * 要把數據放入lua的堆棧。 首先放入index, 然後是數據，接着根據table在堆棧的位置（－3）     * *調用lua_rawset().     * 爲什麼table在堆棧的位置是－3：－3是堆棧頂往下的第3個      *      *     * <- [stack bottom] -- table, index, value [top]     *     *********************************************************/    for (i = 1; i <= 5; i++) {        lua_pushnumber(L, i);   /* 壓入table 索引 */        lua_pushnumber(L, i*2); /* 壓入值 */        lua_rawset(L, -3);      /* 保存這一雙於table中 */    }    /* lua代碼中table的名字是foo */    lua_setglobal(L, "foo");    /* 命令Lua5.1.dll運行我們的lua程序 */    result = lua_pcall(L, 0, LUA_MULTRET, 0);    if (result) {        fprintf(stdout, "bad, bad script\n");        exit(1);    }    /* 獲得堆棧頂的值*/      sum = lua_tonumber(L, lua_gettop(L));    if (!sum) {        fprintf(stdout, "lua_tonumber() failed!\n");        exit(1);    }    fprintf(stdout, "Script returned: %.0f\n", sum);    lua_pop(L, 1);  /* 把返回的值彈出堆棧，既清掉這個值*/    lua_close(L);       return 0;}