lua函数

Posted 2020-10-22 taek

https://www.cnblogs.com/chuanwei-zhang/p/4077247.html
https://www.cnblogs.com/sifenkesi/p/3876745.html
https://www.cnblogs.com/ringofthec/archive/2010/10/22/lua.html

1.lua_gettable

void lua_gettable (lua_State *L, int index);

把t[k] 值压入堆栈，这里的 t 是指有效索引 index 指向的值，而 k 则是栈顶放的值。这个函数会弹出堆栈上的 key，把结果放在栈上相同位置。

// 将一个key放到栈顶，这个key为1。如果你的key是字符串，那就用lua_pushstring。

lua_pushnumber(L, 1);

// table一开始是在栈顶，即-1处的，但上面的语句压入了一个值，栈顶变-2了。

// lua_gettable的作用就是以栈顶的值作为key来访问-2位置上的table。

lua_gettable(L, -2);

 

这时table中的第1个元素的值就放到栈顶了，你想怎么使用就怎么使用吧。

获取table元素：

  * 将元素的key压入到栈中,用 lua_gettable(Lua_state,index)

  * 对于字符串索引，可以用lua_getfield(Lua_state,index,key)来直接获取,

　　如:lua_getfield(stack, -1, "loaded");等价于 lua_pushstring(L,"loaded") lua_gettable(L,-2);

上面说的是访问table中的一个元素的方法，那要怎么样遍历table中的所有元素呢？

1)如果table是一个以连续的整形作为key的table， 可以用下面方法：

int size = lua_objlen(L,-1);//相关于#table  
for(int i = 1; i <= size; i++)  
{  
lua_pushnumber(L, i);  
lua_gettable(L, -2);  
//这时table[i]的值在栈顶了  
lua_pop(L, 1);//把栈顶的值移出栈，保证栈顶是table以便遍历。  
};  

2)如果table中的key是任意值呢？可以用下面的方法：

lua_pushnill(L);  
while(lua_next(L, -2))  
{  
//这时值在-1（栈顶）处，key在-2处。  
lua_pop(L, 1);//把栈顶的值移出栈，让key成为栈顶以便继续遍历  
}  

这里重点说明一下lua_next。

它执行操作是这样的，以栈顶元素为key,先判断上一个key的值（这个值放在栈顶，如果是nil，则表示当前取出的是table中第一个元素的值），然后得到当前的key和value。

这时先把栈顶出栈，将新key进栈，后将value进栈。这样栈顶就是table中第一个遍历到的元素的值。用完这个值后，我们要把这个值出栈，让新key在栈顶以便继续遍历。当根据上一个key值算不出下一个key值时(其实这时候key的是多少并不重要，只要不为nil就行，因为为nil会返回table的第一个元素)，lua_next返回0，结束循环。

2.lua_settable

void lua_settable (lua_State *L, int index);

作一个等价于 t[k] = v 的操作， 这里 t 是一个给定有效索引 index 处的值， v 指栈顶的值， 而 k 是栈顶之下的那个值。

这个函数会把键和值都从堆栈中弹出。

其实这个解释的意思就是，lua_settable 会把栈顶作为value,栈顶的下一个作为key设置到index指向的table，最后把这两个弹出弹出栈，这时候settable完成。

3.lua_next

int lua_next (lua_State *L, int index);

从栈上弹出一个 key（键），然后把索引指定的表中 key-value（健值）对压入堆栈（指定 key 后面的下一 (next) 对）。如果表中以无更多元素，那么lua_next 将返回 0 （什么也不压入堆栈）。

典型的遍历方法是这样的：

 

/* table 放在索引 \'t\' 处 */
     lua_pushnil(L);  /* 第一个 key */
     while (lua_next(L, t) != 0) {
       /* 用一下 \'key\' （在索引 -2 处） 和 \'value\' （在索引 -1 处） */
       printf("%s - %s\\n",
              lua_typename(L, lua_type(L, -2)),
              lua_typename(L, lua_type(L, -1)));
       /* 移除 \'value\' ；保留 \'key\' 做下一次迭代 */
       lua_pop(L, 1);
     }

 

 

在遍历一张表的时候，不要直接对 key 调用 lua_tolstring ，除非你知道这个 key 一定是一个字符串。调用 lua_tolstring 有可能改变给定索引位置的值；这会对下一次调用 lua_next 造成影响。

 最后我们以一段c调用lua的loaded表并且设置符合某个规章的key将它的value设置为nil，为列：

 

lua_getglobal(stack, "package");                         /* L: package，获得package，在栈定 */
lua_getfield(stack, -1, "loaded");                       /* L: package loaded,获得表，在栈顶*/
lua_pushnil(stack);                                     /* L: package loaded nil */
while ( 0 != lua_next(stack, -2 ) ) /* L: package loaded, key, value，上一个栈顶为nil，弹出nil，获得表的第一个key和value，压入栈 */
{
    //CCLOG("%s - %s \\n", tolua_tostring(stack, -2, ""), lua_typename(stack, lua_type(stack, -1)));
    std::string key=tolua_tostring(stack, -2, "");  /*这时候栈顶得下一个,是key*/
    std::string tableKey =key;                      /*下面是对key的一段处理*/
    int found = tableKey.rfind(".lua");
    if (found!=std::string::npos)
        tableKey = tableKey.substr(0,found);
    tableKey=replaceAll(tableKey,".","/");
    tableKey=replaceAll(tableKey,"\\\\","/");
    tableKey.append(".lua");
    found = fileName.rfind(tableKey);
    if (0 == found || ( found!=std::string::npos && fileName.at(found-1) == \'/\'))
    {
        lua_pushstring(stack, key.c_str());  /*package loaded, key, value，newkey, 将key,压入栈顶*/
        lua_pushnil(stack);                 /* pakage,loaded(table)(-5),key(-4),value(-3),key(-2),nil(-1)*/
        if (lua_istable(stack, -5)) /*判读栈顶往下第五个是不是table*/
        {
            /*结果将key对应的值置为nil*/
            lua_settable(stack, -5);/*pakage,loaded(table),key,value,  将栈顶两个元素作为key和value设置给table，弹出栈顶两个元素*/
        }
    }
    lua_pop(stack, 1); /*pakage,loaded(table),key  弹出value,留下key作为下一个next*/
}
lua_pop(stack, 2); /*栈平衡*/