ocaml/examples/xmllight_loader.ml

   1 open Xml
   2 open Ocamlduce.Load
   3
   4
   5 let from_xml ?ns xml =
   6   let l = make ?ns () in
   7   let rec aux = function
   8     | Element (tag, attrs, child) ->
   9         start_elem l tag attrs; List.iter aux child; end_elem l ()
  10     | PCData s ->
  11         text l s in
  12   aux xml;
  13   get l
  14
  15 let from_file ?ns s = from_xml ?ns (parse_file s)
  16 let from_string ?ns s = from_xml ?ns (parse_string s)