{
- open Tiger_parser.Token
+ open Tiger_parser
let comment_level = ref 0
let string_buf = Buffer.create 100
let newline = '\n' | '\r' | "\n\r"
rule token = parse
- | eof {
- EOF
- }
+ | eof {EOF}
(* Track line number *)
| newline {
| "type" -> TYPE
| "var" -> VAR
| "while" -> WHILE
- | _ -> ID id
+ | _ -> (ID id)
}
and string_literal = parse
(* Keep escaped quote marks as part of the string literal *)
string_literal lexbuf
}
and comment = parse
- | eof {
- (* TODO: Error: unterminated comment? or we don't care? *)
- EOF
- }
+ (* TODO: Error: unterminated comment? or we don't care? *)
+ | eof {EOF}
(* Track line number *)
| newline {