26 lines
551 B
OCaml
26 lines
551 B
OCaml
|
(*===----------------------------------------------------------------------===
|
||
|
|
* Lexer Tokens
|
||
|
|
*===----------------------------------------------------------------------===*)
|
||
|
|
|
||
|
|
(* The lexer returns these 'Kwd' if it is an unknown character, otherwise one of
|
||
|
|
* these others for known things. *)
|
||
|
|
type token =
|
||
|
|
(* commands *)
|
||
|
|
| Def | Extern
|
||
|
|
|
||
|
|
(* primary *)
|
||
|
|
| Ident of string | Number of float
|
||
|
|
|
||
|
|
(* unknown *)
|
||
|
|
| Kwd of char
|
||
|
|
|
||
|
|
(* control *)
|
||
|
|
| If | Then | Else
|
||
|
|
| For | In
|
||
|
|
|
||
|
|
(* operators *)
|
||
|
|
| Binary | Unary
|
||
|
|
|
||
|
|
(* var definition *)
|
||
|
|
| Var
|