Joseph Ferano
9a820d86cd
The script is in tools/ rather than thrown away, because two lanes are
writing Flan in the old spelling right now and their files need the same
pass at merge.
It works on forms, not on text: a keyword becomes a dot only where it sits
in a field-label position inside a brace, so an enum member in value
position, a map key inside an EDN string and a type-position {K V} are all
left alone. :keys keeps its colon -- it names no field.
21 lines
714 B
Plaintext
21 lines
714 B
Plaintext
(defstruct Enemy [hp i32 name string])
|
|
|
|
(defvar spawned i32)
|
|
(defconst room-size 4)
|
|
(defvar room [room-size i32])
|
|
|
|
;; `set` takes a fixed list of forms, not an extensible setf.
|
|
(defn main []
|
|
(let [e (Enemy {.hp 10 .name "slime"})
|
|
p (addr e)]
|
|
(set spawned (+ spawned 1)) ; a local or a defvar
|
|
(set (.hp e) 7) ; a struct field
|
|
(set (.hp p) 8) ; through a (Ptr Enemy) — derefs one level
|
|
(set (at room 2) 5) ; a fixed array or slice element
|
|
(set (deref p) (Enemy {.hp 3 .name "wisp"})) ; a whole-object store
|
|
|
|
(print (.hp e)) (println "")
|
|
(println (.name e))
|
|
(print (at room 2)) (println "")
|
|
(print spawned) (println "")))
|