blob: 812df0e008e41c262895fea318d6a95129aa2fef (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
(****************************************************************************)
(* *)
(* Objective Caml *)
(* *)
(* INRIA Rocquencourt *)
(* *)
(* Copyright 2006 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed under *)
(* the terms of the GNU Library General Public License, with the special *)
(* exception on linking described in LICENSE at the top of the Objective *)
(* Caml source tree. *)
(* *)
(****************************************************************************)
(* Authors:
* - Daniel de Rauglaudre: initial version
* - Nicolas Pouillard: refactoring
*)
module Make (Loc : Sig.Loc) : Sig.Camlp4Token with module Loc = Loc;
module Eval : sig
value char : string -> char;
(** Convert a char token, where the escape sequences (backslashes)
remain to be interpreted; raise [Failure] if an
incorrect backslash sequence is found; [Token.Eval.char (Char.escaped c)]
returns [c] *)
value string : ?strict:unit -> string -> string;
(** [Taken.Eval.string strict s]
Convert a string token, where the escape sequences (backslashes)
remain to be interpreted; raise [Failure] if [strict] and an
incorrect backslash sequence is found;
[Token.Eval.string strict (String.escaped s)] returns [s] *)
end;
|
