37 lines
907 B
OCaml
37 lines
907 B
OCaml
{
|
|
open Lexing
|
|
open Parser
|
|
exception SyntaxError of string
|
|
|
|
let strip_quotes s = String.sub s 1 (String.length s - 2);;
|
|
}
|
|
|
|
let digit = ['0'-'9']
|
|
let number_sign = '-' | '+'
|
|
let int = number_sign? digit+
|
|
let double = digit* '.' digit+ | digit+ '.' digit*
|
|
|
|
|
|
let white = [' ' '\t']+
|
|
let newline = '\r' | '\n' | "\r\n"
|
|
|
|
let sym_char = ['a'-'z' 'A'-'Z' '!' '\\' '+' '-' '*' '/' '_' '?']
|
|
let sym = sym_char sym_char*
|
|
|
|
let str = '"' [^'"']* '"'
|
|
|
|
rule read =
|
|
parse
|
|
| white { read lexbuf }
|
|
| newline { new_line lexbuf; read lexbuf}
|
|
| int { INT (int_of_string (Lexing.lexeme lexbuf))}
|
|
| double { DOUBLE (float_of_string (Lexing.lexeme lexbuf))}
|
|
| sym { SYM (Lexing.lexeme lexbuf)}
|
|
| str { STR (strip_quotes (Lexing.lexeme lexbuf))}
|
|
| '(' { LPAREN }
|
|
| ')' { RPAREN }
|
|
| '\'' { QUOTE }
|
|
| _ { raise (SyntaxError ("Unexpected char: " ^ Lexing.lexeme lexbuf))}
|
|
| eof { EOF }
|
|
|