从Lua到C的Lua嵌套表

我不幸未能将嵌套 Lua 表转换为 C json 对象。我正在使用 LuaTableToJson（请参阅后面的代码），其中“index”是要检索的参数索引，PopOneArg 是根据值的类型处理值的例程。

当有嵌套表时，我想递归地调用 LuaTableToJson，但索引 = -1 时它不起作用。

问题：能否请某人指出工作示例以检索作为参数从 Lua 传递到 C 的嵌套表。或者有人可以解释将嵌套表从 Lua 传递到 C 时的堆栈结构。

谢谢

注意：对于 C->Lua 我有一个解决方案。

    STATIC json_object *LuaTableToJson (lua_State* luaState, int index) {
    int idx;

    json_object *tableJ= json_object_new_object();
    const char *key;
    char number[3];
    lua_pushnil(luaState); // 1st key
    for (idx=1; lua_next(luaState, index) != 0; idx++) {

        // uses 'key' (at index -2) and 'value' (at index -1)
        if (lua_type(luaState,-2) == LUA_TSTRING) key= lua_tostring(luaState, -2);
        else {
            snprintf(number, sizeof(number),"%d", idx);
            key=number;
        } 
        json_object *argJ= PopOneArg(luaState, -1);
        json_object_object_add(tableJ, key, argJ);
        lua_pop(luaState, 1); // removes 'value'; keeps 'key' for next iteration 
    } 

    // Query is empty free empty json object
    if (idx == 1) {
        json_object_put(tableJ);
        return NULL;
    }
    return tableJ;
}

STATIC  json_object *PopOneArg (lua_State* luaState, int idx) {
    json_object *value=NULL;

    int luaType = lua_type(luaState, idx);
    switch(luaType)  {
        case LUA_TNUMBER: {
            lua_Number number= lua_tonumber(luaState, idx);;
            int nombre = (int)number; // evil trick to determine wether n fits in an integer. (stolen from ltcl.c)
            if (number == nombre) {
                value= json_object_new_int((int)number);
            } else {
                value= json_object_new_double(number);
            }
            break;
        }
        case LUA_TBOOLEAN:
            value=  json_object_new_boolean(lua_toboolean(luaState, idx));
            break;
        case LUA_TSTRING:
           value=  json_object_new_string(lua_tostring(luaState, idx));
            break;
        case LUA_TTABLE: {
            if (idx > 0) {
                value= LuaTableToJson(luaState, idx);
            } else {
                value= json_object_new_string("UNSUPPORTED_Lua_Nested_Table");
            }
            break;                
        }    
        case LUA_TNIL:
            value=json_object_new_string("nil") ;
            break;

        default:
            AFB_NOTICE ("PopOneArg: script returned Unknown/Unsupported idx=%d type:%d/%s", idx, luaType, lua_typename(luaState, luaType));
            value=NULL;
    }

    return value;    
}

static json_object *LuaPopArgs (lua_State* luaState, int start) {    
    json_object *responseJ;

    int stop = lua_gettop(luaState);
    if(stop-start <0) return NULL;

    // start at 2 because we are using a function array lib
    if (start == stop) {
        responseJ=PopOneArg (luaState, start);
    } else {
        // loop on remaining return arguments
        responseJ= json_object_new_array();
        for (int idx=start; idx <= stop; idx++) {
            json_object *argJ=PopOneArg (luaState, idx);
            if (!argJ) goto OnErrorExit;
            json_object_array_add(responseJ, argJ);     
       }
    }

    return responseJ;

  OnErrorExit:
    return NULL;
}   

对于打包的解决方案，请检查我的代码here https://github.com/nickcano/XenoScan/blob/master/src/XenoLua/LuaVariant.h#L101-L176

本质上，在解析嵌套表时，您应该在负索引处进行解析。在这种情况下，lua_next会弄乱相对于您正在跟踪的索引的堆栈，因此您需要递减它。

你可以试试

if (index < 0) index--; // change to -- as in your code

解析表时。它应该适用于您的代码，但我不能保证我没有遗漏其他问题。

我的代码肯定适用于任何级别的嵌套，因此我建议将其作为示例，并在其工作后将最终代码作为答案发布。