git-svn-id: svn+ssh://idea.nguyen.vg/svn/sxsi/trunk/xpathcomp@270
3cdefd35-fc62-479d-8e8d-
bae585ffb9ca
time( fun () ->
let oc = open_out f in
output_string oc "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
time( fun () ->
let oc = open_out f in
output_string oc "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
- TS.iter (fun t -> output_string oc "----------\n";
Tree.print_xml_fast oc t;
output_char oc '\n') result) ();
end;
Tree.print_xml_fast oc t;
output_char oc '\n') result) ();
end;
| Nil -> ()
| Text(i,n) -> output_string outc (text_get_text t.doc i);
if print_right
| Nil -> ()
| Text(i,n) -> output_string outc (text_get_text t.doc i);
if print_right
| Node (n) ->
let tg = Tag.to_string (tag t) in
let l = left t
| Node (n) ->
let tg = Tag.to_string (tag t) in
let l = left t