module Lexer:sig
..end
val token : Lexing.lexbuf -> Parser.token
val skip_sharp_bang : Lexing.lexbuf -> unit
type
error =
| |
Illegal_character of |
| |
Illegal_escape of |
| |
Unterminated_comment |
| |
Unterminated_string |
| |
Unterminated_string_in_comment |
| |
Keyword_as_label of |
| |
Literal_overflow of |
exception Error of error * Location.t
val report_error : Format.formatter -> error -> unit
val in_comment : unit -> bool