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.
42 lines
1.4 KiB
OCaml
42 lines
1.4 KiB
OCaml
(** The reader's output: syntax, before any typing or macro expansion.
|
|
|
|
Deliberately dumb. [true], [false] and [nil] are ordinary symbols here and
|
|
are resolved later; the reader knows nothing about special forms. *)
|
|
|
|
type t = {
|
|
v : value;
|
|
loc : Loc.t;
|
|
}
|
|
|
|
and value =
|
|
| Sym of string (* foo rl/draw-fps .pos + *)
|
|
| Kw of string (* :space :else (leading : dropped) *)
|
|
| Int of int64 (* 42 -1 0xE6B800FF *)
|
|
| Float of float (* 0.05 *)
|
|
| Str of string (* "SAND" *)
|
|
| Byte of int (* \space \0 \( (0..255) *)
|
|
| List of t list (* (f x) *)
|
|
| Vec of t list (* [1 2 3] and every binding/type bracket *)
|
|
| Map of t list (* {.field v} a struct value, {K V} a type. The
|
|
colon spelling is left for map literals. *)
|
|
|
|
let make v loc = { v; loc }
|
|
|
|
let rec to_string f =
|
|
let seq l = String.concat " " (List.map to_string l) in
|
|
match f.v with
|
|
| Sym s -> s
|
|
| Kw s -> ":" ^ s
|
|
| Int i -> Int64.to_string i
|
|
| Float x -> Printf.sprintf "%g" x
|
|
| Str s -> Printf.sprintf "%S" s
|
|
| Byte b ->
|
|
(match Char.chr b with
|
|
| ' ' -> "\\space"
|
|
| '\t' -> "\\tab"
|
|
| '\n' -> "\\newline"
|
|
| c -> Printf.sprintf "\\%c" c)
|
|
| List l -> "(" ^ seq l ^ ")"
|
|
| Vec l -> "[" ^ seq l ^ "]"
|
|
| Map l -> "{" ^ seq l ^ "}"
|