camlp4/Camlp4Filters/Camlp4TrashRemover.ml

   1 (* camlp4r *)
   2 (****************************************************************************)
   3 (*                                                                          *)
   4 (*                              Objective Caml                              *)
   5 (*                                                                          *)
   6 (*                            INRIA Rocquencourt                            *)
   7 (*                                                                          *)
   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.                                                       *)
  13 (*                                                                          *)
  14 (****************************************************************************)
  15
  16 (* Authors:
  17  * - Nicolas Pouillard: initial version
  18  *)
  19
  20
  21 open Camlp4;
  22
  23 module Id = struct
  24   value name    = "Camlp4TrashRemover";
  25   value version = "$Id$";
  26 end;
  27
  28 module Make (AstFilters : Camlp4.Sig.AstFilters) = struct
  29   open AstFilters;
  30   open Ast;
  31
  32   register_str_item_filter
  33     (Ast.map_str_item
  34       (fun
  35        [ <:str_item@_loc< module Camlp4Trash = $_$ >> ->
  36             <:str_item<>>
  37        | st -> st ]))#str_item;
  38
  39 end;
  40
  41 let module M = Camlp4.Register.AstFilter Id Make in ();