File: unparse.mli

package info (click to toggle)
slat 1.2.6-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 2,564 kB
  • ctags: 1,843
  • sloc: ansic: 2,326; ml: 1,928; sh: 965; yacc: 402; lex: 354; makefile: 115
file content (18 lines) | stat: -rw-r--r-- 283 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
type assoc =
    Non_assoc
  | Left
  | Right
  | Assoc

type op =
    { prec: int;
      assoc: assoc;
      printer: unit -> unit }

type expr =
    Atom of string
  | Unary of op * expr
  | Binary of op * expr * expr
  | Match of string * expr * string

val unparse: expr -> unit