lua json library

src/logic/scripting/lua/libjson.cpp

@@ -0,0 +1,39 @@
+#include "api_lua.h"
+#include "lua_commons.h"
+
+#include "LuaState.h"
+
+#include "../../../coders/json.h"
+#include "../../../data/dynamic.h"
+
+namespace scripting {
+    extern lua::LuaState* state;
+}
+
+static int l_json_stringify(lua_State* L) {
+    auto value = scripting::state->tovalue(1);
+    if (value->type != dynamic::valtype::map) {
+        luaL_error(L, "table expected");
+        return 0;
+    }
+    bool nice = lua_toboolean(L, 2);
+    auto string = json::stringify(std::get<dynamic::Map*>(value->value), nice, "  ");
+    lua_pushstring(L, string.c_str());
+    return 1;
+}
+
+static int l_json_parse(lua_State* L) {
+    auto string = lua_tostring(L, 1);
+    auto element = json::parse("<string>", string);
+    auto value = std::make_unique<dynamic::Value>(
+        dynamic::valtype::map, element.release()
+    );
+    scripting::state->pushvalue(*value);
+    return 1;
+}
+
+const luaL_Reg jsonlib [] = {
+    {"stringify", lua_wrap_errors<l_json_stringify>},
+    {"parse", lua_wrap_errors<l_json_parse>},
+    {NULL, NULL}
+};