X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Fpxp%2Fpxp%2Fexamples%2Fsimple_transformation%2Fprint.ml;fp=helm%2FDEVEL%2Fpxp%2Fpxp%2Fexamples%2Fsimple_transformation%2Fprint.ml;h=0000000000000000000000000000000000000000;hb=c7514aaa249a96c5fdd39b1123fbdb38d92f20b6;hp=56f5fb69b5e9d18aed9e7375c10c852af84a04a3;hpb=1c7fb836e2af4f2f3d18afd0396701f2094265ff;p=helm.git

diff --git a/helm/DEVEL/pxp/pxp/examples/simple_transformation/print.ml b/helm/DEVEL/pxp/pxp/examples/simple_transformation/print.ml
deleted file mode 100644
index 56f5fb69b..000000000
--- a/helm/DEVEL/pxp/pxp/examples/simple_transformation/print.ml
+++ /dev/null
@@ -1,60 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-(* Read a record-list structure and print it *)
-open Pxp_types;;
-open Pxp_document;;
-open Pxp_yacc;;
-
-let print tree =
-  iter_tree
-    ~pre:
-      (fun n ->
-	 match n # node_type with
-	     T_element "last-name" ->
-	       print_endline ("Last name: " ^ n # data)
-	   | T_element "first-name" ->
-	       print_endline ("First name: " ^ n # data)
-	   | T_element "phone" ->
-	       print_endline ("Telephone number: " ^ n # data)
-	   | _ ->
-	       ())
-    ~post:
-      (fun n ->
-	 match n # node_type with
-	     T_element "record" -> 
-	       print_newline()
-	   | _ ->
-	       ())
-    tree
-;;
-
-let main() =
-  try
-    let dtd = parse_dtd_entity default_config (from_file "record.dtd") in
-    let tree = 
-      parse_content_entity default_config (from_channel stdin) dtd default_spec in
-    print tree
-  with
-      x ->
-	prerr_endline(string_of_exn x);
-	exit 1
-;;
-
-
-main();;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/08/22 21:57:43  gerd
- * 	Initial revision.
- *
- * 
- *)