encoding/yaml

import encoding.yaml

func setting(text: str, path: str, def: str): str:
    if yaml.Has(text, path):
        ret yaml.Get(text, path)
    end
    ret def
end

func main:
    text := `# settings for the shop
server:
  host: 0.0.0.0
  port: 8080
  workers: 4
log:
  level: debug
features:
  search: true
  beta: false
`
    mut required := Vector {} as Vector<str>
    required.push("server")
    required.push("log")
    if not yaml.HasKeys(text, required):
        println "config is missing a section"
        ret 1
    end

    println "listen on", yaml.Get(text, "server.host") + ":" + yaml.Get(text, "server.port")
    println "workers:", yaml.GetInt(text, "server.workers")
    println "log level:", setting(text, "log.level", "info")
    println "log file:", setting(text, "log.file", "stdout")
    println "search on:", yaml.GetBool(text, "features.search"), "beta on:", yaml.GetBool(text, "features.beta")
    println "feature flags:", yaml.Keys(text, "features")
end

import encoding.yaml
import encoding.json
import encoding.encerr

struct Service:
    pub name: str = ""
    pub image: str = ""
    pub replicas: int = 1
    pub ports: Vector<int> = Vector {}
end

func main:
    text := `name: api
image: shop/api:2.3
ports:
  - 80
  - 443
`
    mut s := Service {}
    mut e := encerr.NoError()
    if not json.UnmarshalLenient(yaml.ToJSON(text), s, e):
        println "bad service:", e.message
        ret 1
    end
    println s.name, "runs", s.image
    println "replicas:", s.replicas
    println "ports:", s.ports.len(), s.ports.get(0), s.ports.get(1)
end

import encoding.yaml
import str

func main:
    text := `jobs:
  - name: lint
    run: salam format --check
  - name: test
    run: sh tests/run.sh
    needs: [lint]
  - name: deploy
    run: sh deploy.sh
    needs: [test]
    branch: main
`
    n := yaml.Len(text, "jobs")
    println n, "jobs"
    repeat n in i:
        at := "jobs[" + str.FromInt(i) + "]"
        line := yaml.Get(text, at + ".name") + ": " + yaml.Get(text, at + ".run")
        if yaml.Has(text, at + ".needs"):
            println line, "(after", yaml.Get(text, at + ".needs[0]") + ")"
        else:
            println line
        end
        if yaml.Has(text, at + ".branch"):
            println "  only on", yaml.Get(text, at + ".branch")
        end
    end
end

import encoding.yaml

func main:
    text := `kind: Deployment
metadata:
  name: web
spec:
  replicas: 3
---
kind: Service
metadata:
  name: web
spec:
  port: 80
---
kind: ConfigMap
metadata:
  name: web-config
`
    docs := yaml.SplitDocuments(text)
    println docs.len(), "documents"
    each d in docs:
        println "-", yaml.Get(d, "kind"), yaml.Get(d, "metadata.name"), "valid:", yaml.Valid(d)
    end
    println "deployment as JSON:", yaml.ToJSON(docs.get(0))
end

import encoding.yaml
import encoding.json
import encoding.encerr

struct Limits:
    pub max_upload: i64 = 0
    pub public: bool = false
    pub code: str = ""
end

func load(text: str):
    mut l := Limits {}
    mut err := encerr.EncodingError {}
    if json.UnmarshalLenient(yaml.ToJSON(text), l, err):
        println "  loaded:", l.max_upload, l.public, l.code
    else:
        println "  refused:", err.message
    end
end

func main:
    text := "max_upload: 5368709120\npublic: yes\ncode: 007\n"
    println "public is a", yaml.TypeOf(text, "public"), "so GetBool says", yaml.GetBool(text, "public")
    println "code is a", yaml.TypeOf(text, "code"), "with the text", yaml.Get(text, "code")
    println "GetInt overflows:", yaml.GetInt(text, "max_upload")
    println "as JSON:", yaml.ToJSON(text)
    load(text)
    load("max_upload: 5368709120\npublic: true\ncode: \"007\"\n")
end