Source file `ast.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
(*
 The MIT License                                                                              

 Copyright (c) 2021 Jason D. Nielsen <drjdnielsen@gmail.com>
 *)

open Sexplib.Conv

type sexpr =
  | Atom of atom
  | Alist of sexpr list
  | Slist of sexpr list
  | Stlist of sexpr list
  | Vlist of sexpr list
  | Plist of sexpr list
  | Lpatt of sexpr * sexpr
  | Toplv of string * string
and atom = typ * string
and typ =
  | Bool
  | Ident
  | Tident
  | Keyword
  | Int
  | Float
  | Op
  | Char
  | String
[@@deriving sexp]