Function json_parse_array_context

engine/script/src/luacjson/lua_cjson.c:1476–1520

Handle the array context */

/* Handle the array context */
static int json_parse_array_context(lua_State *l, json_parse_t *json)
{
    json_token_t token;
    int i;

    /* 2 slots required:
     * .., table, value */
    json_decode_descend(l, json, 2);

    lua_newtable(l);

    /* set array_mt on the table at the top of the stack */
    if (json->cfg->decode_array_with_array_mt) {
        lua_pushlightuserdata(l, json_lightudata_mask(&json_array));
        lua_rawget(l, LUA_REGISTRYINDEX);
        lua_setmetatable(l, -2);
    }

    json_next_token(json, &token);

    /* Handle empty arrays */
    if (token.type == T_ARR_END) {
        json_decode_ascend(json);
        return 1;
    }

    for (i = 1; ; i++) {
        if (!json_process_value(l, json, &token))
            return 0;
        lua_rawseti(l, -2, i);            /* arr[i] = value */

        json_next_token(json, &token);

        if (token.type == T_ARR_END) {
            json_decode_ascend(json);
            return 1;
        }

        if (token.type != T_COMMA)
            return json_throw_parse_error(l, json, "comma or array end", &token);

        json_next_token(json, &token);
    }
    return 1;
}

/* Handle the "value" context */
static int json_process_value(lua_State *l, json_parse_t *json,