Mylloon
828a780f9c
* Add basic support of function * move debug function to test file * add a test who need to pass to end the implementation
40 lines
1 KiB
OCaml
40 lines
1 KiB
OCaml
{
|
|
open Errors
|
|
open Lexing
|
|
open Parser
|
|
}
|
|
|
|
let alpha = ['a'-'z' 'A'-'Z']
|
|
let num = ['0'-'9']
|
|
let bool = "true" | "false"
|
|
let ident = alpha (alpha | num | '-' | '_')*
|
|
|
|
rule token = parse
|
|
| eof { Lend }
|
|
| [ ' ' '\t' ] { token lexbuf }
|
|
| '\n' { Lexing.new_line lexbuf; token lexbuf }
|
|
| num+ as n { Lint (int_of_string n) }
|
|
| bool as b { Lbool (bool_of_string b) }
|
|
| "return" { Lreturn }
|
|
| "int" { Ltype (Int_t) }
|
|
| "bool" { Ltype (Bool_t) }
|
|
| "void" { Ltype (Void_t) }
|
|
| '{' { Lbracedeb }
|
|
| '}' { Lbracefin }
|
|
| '(' { Lpardeb }
|
|
| ')' { Lparfin }
|
|
| ',' { Lcomma }
|
|
| '=' { Lassign }
|
|
| ';' { Lsc }
|
|
| '+' { Ladd }
|
|
| '-' { Lsub }
|
|
| '*' { Lmul }
|
|
| '/' { Ldiv }
|
|
| ident as i { Lvar i }
|
|
| '#' { comment lexbuf }
|
|
| _ as c { raise (LexerError c) }
|
|
|
|
and comment = parse
|
|
| eof { Lend }
|
|
| '\n' { Lexing.new_line lexbuf; token lexbuf }
|
|
| _ { comment lexbuf }
|