This commit was manufactured by cvs2svn to create branch

[helm.git] / helm / DEVEL / pxp / pxp / examples / simple_transformation / print.ml

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 (file)
index 56f5fb6..0000000
--- 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.
- *
- * 
- *)