val token : Lexing.lexbuf -> Parser.tokenval skip_hash_bang : Lexing.lexbuf -> unittype 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| Invalid_literal of string| Invalid_directive of string * string optionexception Error of error * Location.tval report_error : Format.formatter -> error -> unitval print_warnings : bool refval handle_docstrings : bool refval comments : unit -> (string * Location.t) listval token_with_comments : Lexing.lexbuf -> Parser.tokenval set_preprocessor :
(unit -> unit) ->
((Lexing.lexbuf -> Parser.token) -> Lexing.lexbuf -> Parser.token) ->
unitval keyword_table : (string, Parser.token) Hashtbl.t