Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 45 lines (33 sloc) 2.052 kb
f449261 @np Initial commit
authored
1 (****************************************************************************)
2 (* *)
3 (* Objective Caml *)
4 (* *)
5 (* INRIA Rocquencourt *)
6 (* *)
7 (* Copyright 2006-2010 Institut National de Recherche en Informatique et *)
8 (* en Automatique. All rights reserved. This file is distributed under *)
9 (* the terms of the GNU Library General Public License, with the special *)
10 (* exception on linking described in LICENSE at the top of the Objective *)
11 (* Caml source tree. *)
12 (* *)
13 (****************************************************************************)
14
15 (* Authors:
16 * - Xavier Leroy: initial version for OCaml
17 * - Daniel de Rauglaudre: some parts from Camlp4
18 * - Nicolas Pouillard: this actual implementation
19 *)
20
cb47c13 @np Replace streams by simple iterators
authored
21 type 'a iterator = unit -> 'a option
22
9f15f94 @np Use a record of flags instead of distincts labels
authored
23 type flags = { quotations : bool (** Enables the lexing of quotations *)
24 ; antiquotations : bool (** Enables the lexing of anti-quotations *)
f54b901 @np Add a way to disable the effect of # line directives
authored
25 ; line_directives : bool (** Honor the # line directives *)
9f15f94 @np Use a record of flags instead of distincts labels
authored
26 }
27
28 val default_flags : flags
29 (** By default, quotations and anti-quotations are NOT recognized,
0464b68 @np Warnings now takes part of the stream
authored
30 and line_directives are honored. *)
9f15f94 @np Use a record of flags instead of distincts labels
authored
31
1b97210 @np Camllexer: get rid of the functor (Loc)
authored
32 type position = Lexing.position
33
acbba3c @np Replace the Loc module by Located
authored
34 type token = Camltoken.caml_token Located.located
cb47c13 @np Replace streams by simple iterators
authored
35
1b97210 @np Camllexer: get rid of the functor (Loc)
authored
36 val from_lexbuf : flags -> position -> Lexing.lexbuf -> token iterator
9f15f94 @np Use a record of flags instead of distincts labels
authored
37
1b97210 @np Camllexer: get rid of the functor (Loc)
authored
38 val from_string : flags -> position -> string -> token iterator
9f15f94 @np Use a record of flags instead of distincts labels
authored
39
1b97210 @np Camllexer: get rid of the functor (Loc)
authored
40 val from_channel : flags -> position -> in_channel -> token iterator
9f15f94 @np Use a record of flags instead of distincts labels
authored
41
1b97210 @np Camllexer: get rid of the functor (Loc)
authored
42 val from_stream : flags -> position -> char Stream.t -> token iterator
88f1e7e @np Camllexer: add from_iterator
authored
43
1b97210 @np Camllexer: get rid of the functor (Loc)
authored
44 val from_iterator : flags -> position -> char iterator -> token iterator
Something went wrong with that request. Please try again.