ocaml: Remove the old OCaml viewer program.

[libguestfs.git] / ocaml / examples / xmllight_loader.ml

diff --git a/ocaml/examples/xmllight_loader.ml b/ocaml/examples/xmllight_loader.ml
deleted file mode 100644 (file)
index 6f0c536..0000000
--- a/ocaml/examples/xmllight_loader.ml
+++ /dev/null
@@ -1,16 +0,0 @@
-open Xml
-open Ocamlduce.Load
-
-
-let from_xml ?ns xml =
-  let l = make ?ns () in
-  let rec aux = function
-    | Element (tag, attrs, child) ->
-        start_elem l tag attrs; List.iter aux child; end_elem l ()
-    | PCData s ->
-        text l s in
-  aux xml;
-  get l
-
-let from_file ?ns s = from_xml ?ns (parse_file s)
-let from_string ?ns s = from_xml ?ns (parse_string s)