include Ocaml_common.Lexer
val token : Stdlib.Lexing.lexbuf -> Parser.token
val skip_hash_bang : Stdlib.Lexing.lexbuf -> unit
type error = Ocaml_common.Lexer.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 print_warnings : bool Stdlib.ref
val handle_docstrings : bool Stdlib.ref
val comments : unit -> (string * Location.t) list
val token_with_comments : Stdlib.Lexing.lexbuf -> Parser.token
val set_preprocessor : (unit -> unit) -> ((Stdlib.Lexing.lexbuf -> Parser.token) -> Stdlib.Lexing.lexbuf -> Parser.token) -> unit
val keyword_table : (string, Ocaml_common.Parser.token) Stdlib.Hashtbl.t