sig
type token =
WHILE
| VERTICALBARVERTICALBAR
| STRUCT
| STAR
| SLASH
| SIZEOF
| SEMICOLON
| RPAR
| RETURN
| RBRACE
| PLUS
| MINUS
| LPAR
| LBRACE
| INTEGER of int32
| INT
| IF
| IDENT of string
| EQOP of Ptree.binop
| EQ
| EOF
| ELSE
| COMP of Ptree.binop
| COMMA
| BANG
| ARROW
| AMPERSANDAMPERSAND
exception Error
val file :
(Stdlib.Lexing.lexbuf -> Parser.token) ->
Stdlib.Lexing.lexbuf -> Ptree.file
end