Question

我很难将嵌套的Lua表转换为C json对象。我使用的是LuaTableToJson（参见后面的代码），其中＆＃34; index＆＃34;是用于检索的参数索引，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;
}

Answer 1

对于打包的解决方案，请检查我的代码here

本质上，在解析嵌套表时，您应该在负索引处进行解析。在这种情况下，class token1: ROBOT_LIBRARY_SCOPE = "GLOBAL" ...会使堆栈相对于您正在跟踪的索引陷入混乱，因此您需要减少它。

你可以尝试

lua_next

解析表格时。它应该与您的代码一起使用，但我无法承诺，这不是我错过的另一个问题。

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

Lua嵌套从Lua到C的表

1 个答案: