extern "C" int mapFunc(lua_State* L)
{
    //檢查Lua調用代碼中傳遞的第一個參數(shù)必須是table。否則將引發(fā)錯誤。
    luaL_checktype(L,1,LUA_TTABLE);
    luaL_checktype(L,2,LUA_TFUNCTION);
    //獲取table中的字段數(shù)量，即數(shù)組的元素數(shù)量。
    int n = lua_objlen(L,1);
    //Lua中的數(shù)組起始索引習慣為1，而不是C中的0。
    for (int i = 1; i <= n; ++i) {
        lua_pushvalue(L,2);  //將Lua參數(shù)中的function(第二個參數(shù))的副本壓入棧中。
        lua_rawgeti(L,1,i);  //壓入table[i]
        lua_call(L,1,1);     //調用function(table[i])，并將函數(shù)結果壓入棧中。
        lua_rawseti(L,1,i);  //table[i] = 函數(shù)返回值，同時將返回值彈出棧。
    }

    //無結果返回給Lua代碼。
    return 0;
}

extern "C" int splitFunc(lua_State* L)
{
    const char* s = luaL_checkstring(L,1);
    const char* sep = luaL_checkstring(L,2); //分隔符
    const char* e;
    int i = 1;
    lua_newtable(L); //結果table
    while ((e = strchr(s,*sep)) != NULL) {
        lua_pushlstring(L,s,e - s);  //壓入子字符串。
        //將剛剛壓入的子字符串設置給table，同時賦值指定的索引值。
        lua_rawseti(L,-2,i++);      
        s = e + 1;
    }
    //壓入最后一個子串
    lua_pushstring(L,s);
    lua_rawseti(L,-2,i);
    return 1; //返回table。
}

extern "C" int strUpperFunc(lua_State* L)
{
    size_t len;
    luaL_Buffer b;
    //檢查參數(shù)第一個參數(shù)是否為字符串，同時返回字符串的指針及長度。
    const char* s = luaL_checklstring(L,1,&len);
    //初始化Lua的內部Buffer。
    luaL_buffinit(L,&b);
    //將處理后的字符依次(luaL_addchar)追加到Lua的內部Buffer中。
    for (int i = 0; i < len; ++i)
        luaL_addchar(&b,toupper(s[i]));
    //將該Buffer及其內容壓入棧中。
    luaL_pushresult(&b);
    return 1;
}

void registryTestFunc(lua_State* L)
{
    lua_pushstring(L,"Hello");
    lua_setfield(L,LUA_REGISTRYINDEX,"key1");
    lua_getfield(L,LUA_REGISTRYINDEX,"key1");
    printf("%s\n",lua_tostring(L,-1));
}

int main()
{
    lua_State* L = luaL_newstate();
    registryTestFunc(L);
    lua_close(L);
    return 0;
}
 

//模塊內設置環(huán)境數(shù)據(jù)的函數(shù)
extern "C" int setValue(lua_State* L)
{
    lua_pushstring(L,"Hello");
    lua_setfield(L,LUA_ENVIRONINDEX,"key1");
    return 0;
}

//模塊內獲取環(huán)境數(shù)據(jù)的函數(shù)
extern "C" int getValue(lua_State* L)
{
    lua_getfield(L,LUA_ENVIRONINDEX,"key1");
    printf("%s\n",lua_tostring(L,-1));
    return 0;
}

static luaL_Reg myfuncs[] = {
    {"setValue", setValue},
    {"getValue", getValue},
    {NULL, NULL}
};

extern "C" __declspec(dllexport)
int luaopen_testenv(lua_State* L)
{
    lua_newtable(L);  //創(chuàng)建一個新的表用于環(huán)境
    lua_replace(L,LUA_ENVIRONINDEX); //將剛剛創(chuàng)建并壓入棧的新表替換為當前模塊的環(huán)境表。
    luaL_register(L,"testenv",myfuncs);
    return 1;
}
 

extern "C" int counter(lua_State* L)
{
    //獲取第一個upvalue的值。
    int val = lua_tointeger(L,lua_upvalueindex(1));
    //將得到的結果壓入棧中。
    lua_pushinteger(L,++val);
    //賦值一份棧頂?shù)臄?shù)據(jù)，以便于后面的替換操作。
    lua_pushvalue(L,-1);
    //該函數(shù)將棧頂?shù)臄?shù)據(jù)替換到upvalue(1)中的值。同時將棧頂數(shù)據(jù)彈出。
    lua_replace(L,lua_upvalueindex(1));
    //lua_pushinteger(L,++value)中壓入的數(shù)據(jù)仍然保留在棧中并返回給Lua。
    return 1;
}

extern "C" int newCounter(lua_State* L)
{
    //壓入一個upvalue的初始值0，該函數(shù)必須先于lua_pushcclosure之前調用。
    lua_pushinteger(L,0);
    //壓入閉包函數(shù)，參數(shù)1表示該閉包函數(shù)的upvalue數(shù)量。該函數(shù)返回值，閉包函數(shù)始終位于棧頂。
    lua_pushcclosure(L,counter,1);
    return 1;
}

static luaL_Reg myfuncs[] = {
    {"counter", counter},
    {"newCounter", newCounter},
    {NULL, NULL}
};

extern "C" __declspec(dllexport)
int luaopen_testupvalue(lua_State* L)
{
    luaL_register(L,"testupvalue",myfuncs);
    return 1;
}

func = testupvalue.newCounter();
print(func());
print(func());
print(func());

func = testupvalue.newCounter();
print(func());
print(func());
print(func());

--[[ 輸出結果為：
1
2
3
1
2
3
--]]