# Module Lexer

    module Lexer: sig .. end

The lexical analyzer

Warning: this module is unstable and part of compiler-libs.

    val init : ?keyword_edition:(int * int) option * string list -> unit -> unit

    val token : Lexing.lexbuf -> Parser.token

    val skip_hash_bang : 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``
`|` | `Empty_character_literal`
`|` | `Keyword_as_label of `string``
`|` | `Capitalized_label of `string``
`|` | `Invalid_literal of `string``
`|` | `Invalid_directive of `string * string option``
`|` | `Invalid_encoding of `string``
`|` | `Invalid_char_in_ident of `Uchar.t``
`|` | `Non_lowercase_delimiter of `string``
`|` | `Capitalized_raw_identifier of `string``
`|` | `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