Function luaTableToJson

app/src/DataModel/Scripting/ScriptApiCall.cpp:266–300

* @brief Walks a Lua table at @p idx and returns its JSON object/array equivalent. */

 * @brief Walks a Lua table at @p idx and returns its JSON object/array equivalent.
 */
static QJsonValue luaTableToJson(lua_State* L, int idx, int depth)
{
  if (depth >= kMaxJsonDepth)
    return QJsonValue();

  const int abs = (idx > 0) ? idx : lua_gettop(L) + idx + 1;

  if (luaTableIsArray(L, abs)) {
    QJsonArray arr;
    const lua_Integer n = static_cast<lua_Integer>(lua_rawlen(L, abs));
    for (lua_Integer i = 1; i <= n; ++i) {
      lua_rawgeti(L, abs, i);
      arr.append(luaToJson(L, -1, depth + 1));
      lua_pop(L, 1);
    }
    return arr;
  }

  QJsonObject obj;
  lua_pushnil(L);
  // code-verify off  -- canonical lua_next walk, bounded by Lua table size
  while (lua_next(L, abs) != 0) {
    if (lua_type(L, -2) == LUA_TSTRING) {
      size_t klen      = 0;
      const char* kstr = lua_tolstring(L, -2, &klen);
      const QString k  = QString::fromUtf8(kstr, static_cast<int>(klen));
      obj.insert(k, luaToJson(L, -1, depth + 1));
    } else if (lua_type(L, -2) == LUA_TNUMBER) {
      obj.insert(QString::number(lua_tonumber(L, -2)), luaToJson(L, -1, depth + 1));
    }
    lua_pop(L, 1);
  }
  // code-verify on
  return obj;
}

/**
 * @brief Converts the Lua value at @p idx into a QJsonValue; unsupported types become null.