blob: 2ca782e149971e610b89d1a07102e1ebae32cf35 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(*===----------------------------------------------------------------------===
* 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
|
