encoding/value

import encoding.value
import encoding.json
import encoding.encerr
import sort
import str

func walk(v: value.Value, path: str):
    if value.IsObject(v):
        keys := value.ObjectKeys(v)
        sort.QuickSort(keys)
        each k in keys:
            walk(value.ObjectGet(v, k), path + "." + k)
        end
    else value.IsArray(v):
        repeat value.ArrayLen(v) in i:
            walk(value.ArrayGet(v, i), path + "[" + str.FromInt(i) + "]")
        end
    else:
        println path, "=", value.ToDebugString(v)
    end
end

func main:
    mut e := encerr.NoError()
    doc := json.Decode(`{"order": 1042, "customer": {"name": "Sara", "vip": true}, "lines": [{"sku": "BK-01", "qty": 2}, {"sku": "PN-07", "qty": 1}], "note": null}`, e)
    walk(doc, "$")
end

import encoding.value
import encoding.json

func payload(name: str, email: str, age: int, tags: Vector<str>): value.Value:
    mut v := value.NewValueObject()
    value.ObjectSet(v, "name", value.ValueString(name))
    if email != "":
        value.ObjectSet(v, "email", value.ValueString(email))
    end
    if age > 0:
        value.ObjectSet(v, "age", value.ValueInt(age))
    end
    if tags.len() > 0:
        mut arr := value.NewValueArray()
        each t in tags:
            value.ArrayPush(arr, value.ValueString(t))
        end
        value.ObjectSet(v, "tags", arr)
    end
    ret v
end

func main:
    opts := json.JSONOptions { sort_keys = true }
    mut tags := Vector {} as Vector<str>
    println json.Encode(payload("Sara", "", 0, tags), opts)
    tags.push("beta")
    tags.push("vip")
    println json.Encode(payload("Reza", "reza@example.com", 41, tags), opts)
end

import encoding.value
import encoding.json
import encoding.encerr

func line(sku: str, qty: int): value.Value:
    mut l := value.NewValueObject()
    value.ObjectSet(l, "sku", value.ValueString(sku))
    value.ObjectSet(l, "qty", value.ValueInt(qty))
    ret l
end

func main:
    mut e := encerr.NoError()
    mut order := json.Decode(`{"id": 1042, "customer": {"name": "Sara"}, "lines": [{"sku": "BK-01", "qty": 2}]}`, e)

    mut customer := value.ObjectGet(order, "customer")
    value.ObjectSet(customer, "tier", value.ValueString("gold"))

    mut lines := value.ObjectGet(order, "lines")
    value.ArrayPush(lines, line("PN-07", 1))
    println "before ObjectSet:", value.ArrayLen(value.ObjectGet(order, "lines")), "line(s)"
    value.ObjectSet(order, "lines", lines)
    println "after ObjectSet: ", value.ArrayLen(value.ObjectGet(order, "lines")), "line(s)"

    println json.Encode(order, json.JSONOptions { sort_keys = true })

    city := value.ObjectGet(value.ObjectGet(order, "shipping"), "city")
    println "shipping city given:", not value.IsNull(city), "[" + value.AsString(city) + "]"
end

import encoding.value
import encoding.json
import encoding.encerr

func merge(base: value.Value, over: value.Value): value.Value:
    if not value.IsObject(base) or not value.IsObject(over):
        ret value.ValueClone(over)
    end
    mut out := value.ValueClone(base)
    each k in value.ObjectKeys(over):
        o := value.ObjectGet(over, k)
        if value.ObjectHas(out, k):
            value.ObjectSet(out, k, merge(value.ObjectGet(out, k), o))
        else:
            value.ObjectSet(out, k, value.ValueClone(o))
        end
    end
    ret out
end

func main:
    mut e := encerr.NoError()
    defaults := json.Decode(`{"server": {"host": "0.0.0.0", "port": 8080}, "log": {"level": "info", "json": false}, "plugins": ["auth"]}`, e)
    site := json.Decode(`{"server": {"port": 9000}, "log": {"level": "debug"}, "plugins": ["auth", "cache"]}`, e)

    cfg := merge(defaults, site)
    println json.Encode(cfg, json.JSONOptions { indent = "  ", sort_keys = true })
    println "defaults untouched:", value.AsInt(value.ObjectGet(value.ObjectGet(defaults, "server"), "port"))
end

import encoding.value

func main:
    mut a := value.NewValueObject()
    value.ObjectSet(a, "n", value.ValueInt(1))

    mut shared := a
    value.ObjectSet(shared, "n", value.ValueInt(2))
    println "after editing a plain copy:", value.AsInt(value.ObjectGet(a, "n"))

    mut own := value.ValueClone(a)
    value.ObjectSet(own, "n", value.ValueInt(3))
    println "after editing a clone:", value.AsInt(value.ObjectGet(a, "n"))

    println "AsInt of 2.9:", value.AsInt(value.ValueFloat(2.9))
    println "AsFloat of 3:", value.AsFloat(value.ValueInt(3))
    println "AsInt of \"5\":", value.AsInt(value.ValueString("5"))
    println "1 equals 1.0:", value.Equal(value.ValueInt(1), value.ValueFloat(1.0))

    mut found := false
    _ := value.ObjectGetOk(a, "missing", found)
    println "missing key found:", found

    value.ValueFree(own)
end