val init : unit -> unitval token : Stdlib.Lexing.lexbuf -> Parser.tokenval skip_hash_bang : Stdlib.Lexing.lexbuf -> unit
type error =| Illegal_character of char| Illegal_escape of string * string option| Reserved_sequence of string * string option| Unterminated_comment of Location.t| Unterminated_string| Unterminated_string_in_comment 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 in_comment : unit -> boolval in_string : unit -> boolval print_warnings : bool Stdlib.refval handle_docstrings : bool Stdlib.refval comments : unit -> (string * Location.t) listval token_with_comments : Stdlib.Lexing.lexbuf -> Parser.tokenval set_preprocessor : (unit -> unit) -> ((Stdlib.Lexing.lexbuf -> Parser.token) -> Stdlib.Lexing.lexbuf -> Parser.token) -> unit