Module Lexer


module Lexer: sig .. end

val token : Lexing.lexbuf -> Parser.token
val skip_sharp_bang : Lexing.lexbuf -> unit

type error =
| Illegal_character of char
| Illegal_escape of string
| Unterminated_comment
| Unterminated_string
| Unterminated_string_in_comment
| Keyword_as_label of string
| Literal_overflow of string
exception Error of error * Location.t
val report_error : Format.formatter -> error -> unit
val in_comment : unit -> bool