Module
Module LexerDocumentation
Module
Lexer
:
sig end
val init : unit -> unit
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
of
Location.t
| Unterminated_string
| Unterminated_string_in_comment
of
Location.t * Location.t
| 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
val in_string : unit -> bool
val print_warnings : bool Pervasives.ref
val comments : unit -> (string * Location.t) list
val token_with_comments : Lexing.lexbuf -> Parser.token
val set_preprocessor : (unit -> unit) -> ((Lexing.lexbuf -> Parser.token) -> Lexing.lexbuf -> Parser.token) -> unit