Google

Edit File: lexer.mli

(**************************************************************************) (* *) (* OCaml *) (* *) (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) (* *) (* Copyright 1996 Institut National de Recherche en Informatique et *) (* en Automatique. *) (* *) (* All rights reserved. This file is distributed under the terms of *) (* the GNU Lesser General Public License version 2.1, with the *) (* special exception on linking described in the file LICENSE. *) (* *) (**************************************************************************) (* The lexical analyzer *) val init : 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 | 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 open Format val report_error: formatter -> error -> unit (* Deprecated. Use Location.{error_of_exn, report_error}. *) val in_comment : unit -> bool;; val in_string : unit -> 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 (* [set_preprocessor init preprocessor] registers [init] as the function to call to initialize the preprocessor when the lexer is initialized, and [preprocessor] a function that is called when a new token is needed by the parser, as [preprocessor lexer lexbuf] where [lexer] is the lexing function. When a preprocessor is configured by calling [set_preprocessor], the lexer changes its behavior to accept backslash-newline as a token-separating blank. *) val set_preprocessor : (unit -> unit) -> ((Lexing.lexbuf -> Parser.token) -> Lexing.lexbuf -> Parser.token) -> unit