json.nula

// Nulang standard library — JSON encoding and decoding.
// Import: `import std.json`

/// Represents a parsed JSON value.
pub type JsonValue =
    | JsonNull
    | JsonBool(Bool)
    | JsonNumber(Float)
    | JsonString(String)
    | JsonArray(List[JsonValue])
    | JsonObject(List[(String, JsonValue)])

/// Parse a JSON string into a JsonValue.
/// Uses the built-in JSON.parse operation.
pub fn parse(json: String) -> JsonValue {
    Json.parse(json)
}

/// Convert a JsonValue back to a JSON string.
/// Uses the built-in JSON.stringify operation.
pub fn stringify(value: JsonValue) -> String {
    Json.stringify(value)
}

/// Get a string field from a JSON object, or return a default.
pub fn get_string(obj: JsonValue, key: String, default: String) -> String {
    match obj {
        JsonObject(fields) => {
            let i = 0;
            while i < List.len(fields) {
                let (k, v) = List.get(fields, i);
                if k == key then {
                    match v {
                        JsonString(s) => return s,
                        _ => return default,
                    }
                } else { };
                i = i + 1;
            };
            default
        },
        _ => default,
    }
}

/// Get a number field from a JSON object, or return a default.
pub fn get_number(obj: JsonValue, key: String, default: Float) -> Float {
    match obj {
        JsonObject(fields) => {
            let i = 0;
            while i < List.len(fields) {
                let (k, v) = List.get(fields, i);
                if k == key then {
                    match v {
                        JsonNumber(n) => return n,
                        _ => return default,
                    }
                } else { };
                i = i + 1;
            };
            default
        },
        _ => default,
    }
}

/// Get a bool field from a JSON object, or return a default.
pub fn get_bool(obj: JsonValue, key: String, default: Bool) -> Bool {
    match obj {
        JsonObject(fields) => {
            let i = 0;
            while i < List.len(fields) {
                let (k, v) = List.get(fields, i);
                if k == key then {
                    match v {
                        JsonBool(b) => return b,
                        _ => return default,
                    }
                } else { };
                i = i + 1;
            };
            default
        },
        _ => default,
    }
}