Function luaL_traverse_table_with_nested

src/Chain/libraries/glua/lapi.cpp:1386–1427

}

size_t luaL_traverse_table_with_nested(lua_State *L, int index, lua_table_traverser_with_nested traverser, void *ud, std::list<const void*> &jsons, size_t recur_depth)
{
    if (index > lua_gettop(L))
        return 0;
    if (!lua_istable(L, index))
        return 0;
    lua_len(L, index);
    auto len = (size_t) lua_tointegerx(L, -1, nullptr);
    lua_pop(L, 1);
    size_t keys_count = 0;
    for (auto i = 0; i < len; ++i)
    {
        lua_pushinteger(L, i + 1);
        auto new_index = index < 0 ? (index - 1) : index;
        lua_geti(L, new_index, i + 1);
        ++keys_count;
        if (nullptr != traverser)
            traverser(L, ud, len, jsons, recur_depth+1);
        lua_pop(L, 2);
    }
    lua_pushvalue(L, index);
    int it = lua_gettop(L);
    lua_pushnil(L);
    while (lua_next(L, it))
    {
        if (lua_isinteger(L, -2))
        {
            auto key_int = lua_tointeger(L, -2);
            if (((int)key_int) <= len && key_int > 0)
            {
                lua_pop(L, 1);
                continue;
            }
        }
        ++keys_count;
        if (traverser)
            traverser(L, ud, len, jsons, recur_depth+1);
        lua_pop(L, 1);
    }
    lua_pop(L, 1);
    return keys_count;
}

size_t luaL_traverse_table(lua_State *L, int index, lua_table_traverser traverser, void *ud)
{