McpSquirrelJson.hpp

浏览该文件的文档.

#pragma once
 
// Squirrel -> compact JSON conversion shared by the embedded MCP server and the
// script tool registry. Kept in one place so a value produced by a scene kit and
// a value returned by a project tool serialize identically.
 
#include "devtools/McpJson.hpp"
 
#include <squirrel.h>
 
#include <string>
 
namespace eve::dev {
 
constexpr int kSqJsonMaxDepth = 16;
 
inline std::string sqValueToJson(HSQUIRRELVM vm, SQInteger idx, int depth = 0);
 
inline std::string sqKeyToJson(HSQUIRRELVM vm, SQInteger idx) {
    if (idx < 0) idx = sq_gettop(vm) + idx + 1;
    if (sq_gettype(vm, idx) == OT_STRING) {
        const SQChar* value = nullptr;
        sq_getstring(vm, idx, &value);
        return std::string("\"") + mcpJsonEscape(value ? value : "") + "\"";
    }
    const std::string text = sqValueToJson(vm, idx, 0);
    if (text.empty() || text.front() != '"') return "\"" + mcpJsonEscape(text) + "\"";
    return text;
}
 
inline std::string sqValueToJson(HSQUIRRELVM vm, SQInteger idx, int depth) {
    if (idx < 0) idx = sq_gettop(vm) + idx + 1;  // normalize relative -> absolute
    if (depth > kSqJsonMaxDepth) return "null";
    switch (sq_gettype(vm, idx)) {
        case OT_NULL: return "null";
        case OT_BOOL: {
            SQBool value = SQFalse;
            sq_getbool(vm, idx, &value);
            return value ? "true" : "false";
        }
        case OT_INTEGER: {
            SQInteger value = 0;
            sq_getinteger(vm, idx, &value);
            return std::to_string(static_cast<long long>(value));
        }
        case OT_FLOAT: {
            SQFloat value = 0;
            sq_getfloat(vm, idx, &value);
            char buffer[64];
            std::snprintf(buffer, sizeof(buffer), "%g", static_cast<double>(value));
            return buffer;
        }
        case OT_STRING: {
            const SQChar* value = nullptr;
            sq_getstring(vm, idx, &value);
            return std::string("\"") + mcpJsonEscape(value ? value : "") + "\"";
        }
        case OT_ARRAY: {
            std::string out   = "[";
            bool        first = true;
            sq_pushnull(vm);
            while (SQ_SUCCEEDED(sq_next(vm, idx))) {
                if (!first) out += ",";
                first = false;
                out += sqValueToJson(vm, -1, depth + 1);
                sq_pop(vm, 2);
            }
            sq_pop(vm, 1);
            out += "]";
            return out;
        }
        case OT_TABLE: {
            std::string out   = "{";
            bool        first = true;
            sq_pushnull(vm);
            while (SQ_SUCCEEDED(sq_next(vm, idx))) {
                if (!first) out += ",";
                first = false;
                out += sqKeyToJson(vm, -2);
                out += ":";
                out += sqValueToJson(vm, -1, depth + 1);
                sq_pop(vm, 2);
            }
            sq_pop(vm, 1);
            out += "}";
            return out;
        }
        default: return "\"<unserializable>\"";
    }
}
 
}  // namespace eve::dev