module Lexer: sig
.. end
val init : unit -> unit
val token : Lexing.lexbuf -> Parser.token
val skip_hash_bang : Lexing.lexbuf -> unit
type
error =
| |
Illegal_character of char |
| |
Illegal_escape of string |
| |
of Location.t |
| |
Unterminated_string |
| |
of Location.t * Location.t |
| |
Keyword_as_label of string |
| |
Invalid_literal of string |
| |
Invalid_directive of string * string option |
exception Error of error * Location.t
val report_error : Format.formatter -> error -> unit
: unit -> bool
val in_string : unit -> bool
val print_warnings : bool ref
val handle_docstrings : bool ref
: unit -> (string * Location.t) list
: Lexing.lexbuf -> Parser.token
val set_preprocessor : (unit -> unit) ->
((Lexing.lexbuf -> Parser.token) -> Lexing.lexbuf -> Parser.token) -> unit