Home | History | Annotate | Download | only in Chapter6
      1 (*===----------------------------------------------------------------------===
      2  * Lexer Tokens
      3  *===----------------------------------------------------------------------===*)
      4 
      5 (* The lexer returns these 'Kwd' if it is an unknown character, otherwise one of
      6  * these others for known things. *)
      7 type token =
      8   (* commands *)
      9   | Def | Extern
     10 
     11   (* primary *)
     12   | Ident of string | Number of float
     13 
     14   (* unknown *)
     15   | Kwd of char
     16 
     17   (* control *)
     18   | If | Then | Else
     19   | For | In
     20 
     21   (* operators *)
     22   | Binary | Unary
     23