Commit 9b2aec9d authored by Raphaël Cauderlier's avatar Raphaël Cauderlier
Browse files

Count lines while lexing

parent 9f679fcd
......@@ -7,7 +7,7 @@ let id = [ 'a'-'z' '_' '0'-'9' ] ['a'-'z' 'A'-'Z' '_' '0'-'9']*
rule token = parse
| [ ' ' '\t' ] { token lexbuf }
| '\n' { token lexbuf }
| '\n' { Lexing.new_line lexbuf; token lexbuf }
(* The several meanings of "." are disambiguated at lexing *)
| '.' (id as s) ' '* "<=" { UPDATE (s) }
| '.' (id as s) ' '* ":=" { FUPD(s) }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment