NAME

       Lexer - no description

Module

       Module   Lexer

Documentation

       Module Lexer
        : sig end

       val init : unit -> unit

       val token : Lexing.lexbuf -> Parser.token

       val skip_sharp_bang : Lexing.lexbuf -> unit

       type 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
        | Literal_overflow of string

       exception Error of error * Location.t

       val report_error : Format.formatter -> error -> unit

       val in_comment : unit -> bool

       val in_string : unit -> bool

       val print_warnings : bool Pervasives.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