Function db_json_to_table

lua/sp.c:4028–4068

static int cson_to_table_annotated(Lua, cson_value *, int);
static int db_json_to_table(Lua lua)
{
    int rc;
    if (lua_gettop(lua) < 2) {
        return luaL_error(lua, "bad arguments to 'json_to_table'");
    }
    luaL_checkudata(lua, 1, dbtypes.db);
    int annotate = 0;
    if (lua_gettop(lua) == 3) {
        luaL_checktype(lua, 3, LUA_TTABLE);
        lua_pushnil(lua);
        int processed = 0;
        while (lua_next(lua, -2)) {
            const char *key = luabb_tostring(lua, -2);
            if (strcmp(key, "type_annotate") == 0) {
                if (luabb_type(lua, -1) == DBTYPES_LBOOLEAN) {
                    annotate = lua_toboolean(lua, -2);
                    processed = 1;
                    lua_pop(lua, 1);
                    break;
                }
            }
        }
        if (processed == 0) {
            return luaL_error(lua, "bad argument #2 to 'json_to_table'");
        }
        lua_pop(lua, 1);
    }
    const char *json = luabb_tostring(lua, 2);
    cson_value *cson = NULL;
    if ((rc = cson_parse_string(&cson, json, strlen(json))) != 0) {
        luaL_error(lua, "Parsing JSON rc:%d err:%s", rc, cson_rc_string(rc));
    }
    lua_newtable(lua);
    rc = cson_to_table_annotated(lua, cson, annotate);
    cson_free_value(cson);
    if (rc != 0) {
        luaL_error(lua, "bad argument #1 to json_to_table");
    }
    return 1;
}

typedef struct {
#define CONV_FLAG_UTF8_FATAL 0x01