rename ppshow.ml to print.ml

META

@@ -3,6 +3,6 @@ version="1.0.1"
 description="debug printer with [@p] markers"
 requires="compiler-libs.common,typpx"
 ppx="./ocaml_at_p.opt"
-archive(byte)="ppshow.cmo"
-archive(native)="ppshow.cmx"
+archive(byte)="print.cmo"
+archive(native)="print.cmx"
 linkopts=""

Makefile

@@ -8,13 +8,13 @@ FB = -package typpx,compiler-libs -linkpkg
 LINK = helper.cmx insert.cmx create.cmx mod.cmx ocaml_at_p.cmx
 
 #build
-build: ppshow.cmo ppshow.cmx ocaml_at_p.opt
+build: print.cmo print.cmx ocaml_at_p.opt
 
-ppshow.cmo : ppshow.ml
-	$(FIND) $(OC) $(FA) -c ppshow.ml
+print.cmo : print.ml
+	$(FIND) $(OC) $(FA) -c print.ml
 
-ppshow.cmx : ppshow.ml
-	$(FIND) $(OPT) $(FA) -c ppshow.ml
+print.cmx : print.ml
+	$(FIND) $(OPT) $(FA) -c print.ml
 
 #ocamlopt
 ocaml_at_p.opt : helper.cmx insert.cmx create.cmx mod.cmx ocaml_at_p.cmx
@@ -37,7 +37,7 @@ ocaml_at_p.cmx : ocaml_at_p.ml
 
 #install,uninstall
 install : build
-	$(FIND) install ocaml_at_p META ocaml_at_p.opt ppshow.cm* ppshow.o
+	$(FIND) install ocaml_at_p META ocaml_at_p.opt print.cm* print.o
 
 remove:
 	-$(FIND) remove ocaml_at_p

mod.ml

@@ -179,12 +179,12 @@ module MapArg : TypedtreeMap.MapArgument = struct
         { signature with sig_items = (select_sig_item [] signature.sig_items) }
 
     (* 
-     * module Ppshow open 
+     * module Print open 
      * *)
     let leave_structure structure =
         let str = { str_desc =
-                       Tstr_open { open_path = path_ident_create "Ppshow";
-                                   open_txt = {txt=Lident "Ppshow";loc=Location.none};
+                       Tstr_open { open_path = path_ident_create "Print";
+                                   open_txt = {txt=Lident "Print";loc=Location.none};
                                    open_override = Fresh;
                                    open_loc = Location.none;
                                    open_attributes = []};