2 (****************************************************************************)
6 (* INRIA Rocquencourt *)
8 (* Copyright 2006 Institut National de Recherche en Informatique et *)
9 (* en Automatique. All rights reserved. This file is distributed under *)
10 (* the terms of the GNU Library General Public License, with the special *)
11 (* exception on linking described in LICENSE at the top of the Objective *)
12 (* Caml source tree. *)
14 (****************************************************************************)
17 * - Nicolas Pouillard: initial version
24 value name = "Camlp4AstLifter";
25 value version = Sys.ocaml_version;
28 module Make (AstFilters : Camlp4.Sig.AstFilters) = struct
31 module MetaLoc = struct
33 value meta_loc_patt _loc _ = <:patt< loc >>;
34 value meta_loc_expr _loc _ = <:expr< loc >>;
36 module MetaAst = Ast.Meta.Make MetaLoc;
38 register_str_item_filter (fun ast ->
39 let _loc = Ast.loc_of_str_item ast in
40 <:str_item< let loc = Loc.ghost in $exp:MetaAst.Expr.meta_str_item _loc ast$ >>);
44 let module M = Camlp4.Register.AstFilter Id Make in ();