;;;; defjson over a config file, and the escape that says it is not defedn.
;;;;
;;;; The same idea as edn-provide.flan and a different package: json depends on
;;;; edn for nothing and this program imports only json.
;;;;
;;;; "name" is the line that matters. Its value in the file is written
;;;; "tileset\nrunner", and JSON's `.text` is the RAW interior — escapes
;;;; undecoded — so a reader built on `.text` prints one line with a backslash
;;;; and an n in it. This prints two lines, which is `string-of` having been
;;;; used where a field is filled.

(import json "vendor:json")

(json/defjson Config "assets/json/config.json")

(defconst config (embed "assets/json/config.json"))

(defn main [] i32
  (let [a (heap-allocator)
        cfg (Config-of-bytes config a)]
    ;; Two lines, not one with a backslash in it.
    (println (.name cfg))
    (println (.port cfg))
    (println (.scale cfg))
    (println (if (.debug cfg) "yes" "no"))
    (println (len (.layers cfg)))
    ;; 3 + 1 + 4 + 1 + 5. A length alone would pass on a Vec that was allocated
    ;; and never filled, so the sum is the claim.
    (let [total (i64 0)]
      (dotimes [i (len (.layers cfg))]
        (set total (+ total (at (.layers cfg) i))))
      (println total))
    ;; The nested structs, by the names the paths give them: Config-window and
    ;; Config-window-origin. Ordinary field loads, two deep.
    (println (.w (.window cfg)))
    (println (.h (.window cfg)))
    (println (.x (.origin (.window cfg))))
    (println (.y (.origin (.window cfg))))
    (println "")
    ;; Drift, the same contract defedn's reader carries: the struct says "port"
    ;; and these bytes do not, and they carry a "host" it has never heard of.
    (handler-bind
      [(json/SchemaDrift [d]
         (do (print (if (.extra? d) "extra " "missing "))
             (print (.field d))
             (print " in ")
             (println (.struct d))))]
      (let [c2 (Config-of-bytes
                 (bytes "{\"name\":\"x\",\"host\":\"h\",\"scale\":2.0,\"debug\":false,\"layers\":[1],\"window\":{\"w\":1,\"h\":1,\"origin\":{\"x\":0,\"y\":0}}}")
                 a)]
        (println (.name c2))
        (println (.port c2)))))
  0)