Initial revision

[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
new file mode 100644 (file)
index 0000000..56f5fb6
--- /dev/null
+++ b/helm/DEVEL/pxp/pxp/examples/simple_transformation/print.ml
@@ -0,0 +1,60 @@
+(* $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.
+ *
+ * 
+ *)