module Lexer: sig .. end
val init : unit -> unit
val token : Lexing.lexbuf -> Parser.token
val skip_sharp_bang : Lexing.lexbuf -> unit
type 
| | | 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 | 
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