Module Parser

module Parser: sig .. end

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 -> token) -> Stdlib.Lexing.lexbuf -> Ptree.file