Module Lexer

val init : ?keyword_edition:((int * int) option * string list) -> unit -> unit
val skip_hash_bang : Lexing.lexbuf -> unit
type error =
  1. | Illegal_character of char
  2. | Illegal_escape of string * string option
  3. | Reserved_sequence of string * string option
  4. | Unterminated_comment of Location.t
  5. | Unterminated_string
  6. | Unterminated_string_in_comment of Location.t * Location.t
  7. | Empty_character_literal
  8. | Keyword_as_label of string
  9. | Capitalized_label of string
  10. | Invalid_literal of string
  11. | Invalid_directive of string * string option
  12. | Invalid_encoding of string
  13. | Invalid_char_in_ident of Uchar.t
  14. | Non_lowercase_delimiter of string
  15. | Capitalized_raw_identifier of string
  16. | Unknown_keyword of string
exception Error of error * Location.t
val in_comment : unit -> bool
val in_string : unit -> bool
val is_keyword : string -> bool
val print_warnings : bool ref
val handle_docstrings : bool ref
val comments : unit -> (string * Location.t) list
val token_with_comments : Lexing.lexbuf -> Parser.token
val set_preprocessor : (unit -> unit) -> ((Lexing.lexbuf -> Parser.token) -> Lexing.lexbuf -> Parser.token) -> unit