Module Parser_extended.Lexer

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 Ocaml_common.Location.t
  5. | Unterminated_string
  6. | Unterminated_string_in_comment of Ocaml_common.Location.t * Ocaml_common.Location.t
  7. | Empty_character_literal
  8. | Keyword_as_label of string
  9. | Invalid_literal of string
  10. | Invalid_directive of string * string option
exception Error of error * Ocaml_common.Location.t
val keyword_table : (string, Parser_extended.Parser.token) Hashtbl.t
val string_buffer : Buffer.t
val reset_string_buffer : unit -> unit
val get_stored_string : unit -> string
val store_string_char : char -> unit
val store_string_utf_8_uchar : Uchar.t -> unit
val store_string : string -> unit
val store_lexeme : Lexing.lexbuf -> unit
val string_start_loc : Ocaml_common.Location.t ref
val comment_start_loc : Ocaml_common.Location.t list ref
val in_comment : unit -> bool
val is_in_string : bool ref
val in_string : unit -> bool
val print_warnings : bool ref
val store_escaped_char : Lexing.lexbuf -> char -> unit
val store_escaped_uchar : Lexing.lexbuf -> Uchar.t -> unit
val compute_quoted_string_idloc : Ocaml_common.Location.t -> int -> string -> Ocaml_common.Location.t
val wrap_string_lexer : (Lexing.lexbuf -> Lexing.position) -> Lexing.lexbuf -> string * Ocaml_common.Location.t
val wrap_comment_lexer : (Lexing.lexbuf -> Ocaml_common.Location.t) -> Lexing.lexbuf -> string * Ocaml_common.Location.t
val error : Lexing.lexbuf -> error -> 'a
val error_loc : Ocaml_common.Location.t -> error -> 'a
val digit_value : char -> int
val num_value : Lexing.lexbuf -> base:int -> first:int -> last:int -> int
val char_for_backslash : char -> char
val illegal_escape : Lexing.lexbuf -> string -> 'a
val char_for_decimal_code : Lexing.lexbuf -> int -> char
val char_for_octal_code : Lexing.lexbuf -> int -> char
val char_for_hexadecimal_code : Lexing.lexbuf -> int -> char
val uchar_for_uchar_escape : Lexing.lexbuf -> Uchar.t
val is_keyword : string -> bool
val check_label_name : Lexing.lexbuf -> string -> unit
val set_lexeme_length : Lexing.lexbuf -> int -> unit
val disambiguate : Lexing.lexbuf -> string -> Parser_extended.Parser.token
val update_loc : Lexing.lexbuf -> string option -> int -> bool -> int -> unit
val preprocessor : ((unit -> unit) * ((Lexing.lexbuf -> Parser_extended.Parser.token) -> Lexing.lexbuf -> Parser_extended.Parser.token)) option ref
val escaped_newlines : bool ref
val warn_latin1 : Lexing.lexbuf -> unit
type comment = [
  1. | `Comment of string
  2. | `Docstring of string
]
val handle_docstrings : bool ref
val comment_list : (comment * Ocaml_common.Location.t) list ref
val add_comment : (string * Ocaml_common.Location.t) -> unit
val add_docstring_comment : Parser_extended.Docstrings.docstring -> unit
val comments : unit -> (comment * Ocaml_common.Location.t) list
val __ocaml_lex_tables : Lexing.lex_tables
val __ocaml_lex_token_rec : Lexing.lexbuf -> int -> Parser_extended.Parser.token
val __ocaml_lex_directive_rec : Lexing.lexbuf -> int -> Parser_extended.Parser.token
val __ocaml_lex_comment_rec : Lexing.lexbuf -> int -> Ocaml_common.Location.t
val __ocaml_lex_string_rec : Lexing.lexbuf -> int -> Lexing.position
val quoted_string : string -> Lexing.lexbuf -> Lexing.position
val __ocaml_lex_quoted_string_rec : string -> Lexing.lexbuf -> int -> Lexing.position
val skip_hash_bang : Lexing.lexbuf -> unit
val __ocaml_lex_skip_hash_bang_rec : Lexing.lexbuf -> int -> unit
val token_with_comments : Lexing.lexbuf -> Parser_extended.Parser.token
type newline_state =
  1. | NoLine
  2. | NewLine
  3. | BlankLine
type doc_state =
  1. | Initial
  2. | After of docstring list
  3. | Before of docstring list * docstring list * docstring list
val init : unit -> unit
val set_preprocessor : (unit -> unit) -> ((Lexing.lexbuf -> Parser_extended.Parser.token) -> Lexing.lexbuf -> Parser_extended.Parser.token) -> unit