1
(* $Id: token.mli,v 1.1.1.1 2002/05/28 15:59:16 weis Exp $ *)
4
| IDENT of string | INT of int | OP of string
5
| BSLASH | DOT | ELSE | EQUAL | FI | IF | LET | LPAREN | RPAREN | SEMICOL
9
val next_token : char Stream.t -> token_type;;
10
val reset_lexer : char Stream.t -> unit;;
11
val token_name : token_type -> string;;