1 (***********************************************************************)
5 (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
7 (* Copyright 1996 Institut National de Recherche en Informatique et *)
8 (* en Automatique. All rights reserved. This file is distributed *)
9 (* under the terms of the Q Public License version 1.0. *)
11 (***********************************************************************)
13 (* $Id: lexer.mli 5961 2003-11-21 16:01:13Z xleroy $ *)
15 (* The lexical analyzer *)
17 val token: Lexing.lexbuf -> Parser.token
18 val skip_sharp_bang: Lexing.lexbuf -> unit
21 | Illegal_character of char
22 | Illegal_escape of string
23 | Unterminated_comment
25 | Unterminated_string_in_comment
26 | Keyword_as_label of string
27 | Literal_overflow of string
30 exception Error of error * Location.t
34 val report_error: formatter -> error -> unit
36 val in_comment : unit -> bool;;