[obj2yaml] - Stop triggering UB when dumping corrupted strings.
[llvm-complete.git] / examples / OCaml-Kaleidoscope / Chapter5 / ast.ml
blob8a6703db837e7c4b198de24aafc14c282453cb45
1 (*===----------------------------------------------------------------------===
2 * Abstract Syntax Tree (aka Parse Tree)
3 *===----------------------------------------------------------------------===*)
5 (* expr - Base type for all expression nodes. *)
6 type expr =
7 (* variant for numeric literals like "1.0". *)
8 | Number of float
10 (* variant for referencing a variable, like "a". *)
11 | Variable of string
13 (* variant for a binary operator. *)
14 | Binary of char * expr * expr
16 (* variant for function calls. *)
17 | Call of string * expr array
19 (* variant for if/then/else. *)
20 | If of expr * expr * expr
22 (* variant for for/in. *)
23 | For of string * expr * expr * expr option * expr
25 (* proto - This type represents the "prototype" for a function, which captures
26 * its name, and its argument names (thus implicitly the number of arguments the
27 * function takes). *)
28 type proto = Prototype of string * string array
30 (* func - This type represents a function definition itself. *)
31 type func = Function of proto * expr