16 lines
304 B
OCaml
16 lines
304 B
OCaml
|
{
|
||
|
|
open Lexing
|
||
|
|
open Parser
|
||
|
|
|
||
|
|
exception Error of char
|
||
|
|
}
|
||
|
|
|
||
|
|
let num = ['0'-'9']
|
||
|
|
|
||
|
|
rule token = parse
|
||
|
|
| eof { Lend }
|
||
|
|
| [ ' ' '\t' ] { token lexbuf }
|
||
|
|
| '\n' { Lexing.new_line lexbuf; token lexbuf }
|
||
|
|
| num+ as n { Lint (int_of_string n) }
|
||
|
|
| _ as c { raise (Error c) }
|