14 lines
400 B
OCaml
14 lines
400 B
OCaml
{
|
|
open Parser
|
|
}
|
|
|
|
rule token = parse
|
|
(* Sauter les espaces et les tabulations *)
|
|
| [' ' '\t' '\n'] { token lexbuf }
|
|
| '(' { LPAREN }
|
|
| ')' { RPAREN }
|
|
| "->" { RARROW }
|
|
| ['a'-'z']+['0'-'9']* as s { VAR_NAME s }
|
|
| ['A'-'Z']+['0'-'9']* as s { TYPE_NAME s }
|
|
| eof { EOF }
|