- let root = Naive_node_list.create () in
- let () = Naive_node_list.add (Naive_tree.root doc) root in
+ let root = Compact_node_list.create () in
+ let () = Compact_node_list.add (Compact_tree.root doc) root in
output_string output (string_of_int !count);
output_string output "\" >\n";
if !Options.count then begin
output_string output (string_of_int !count);
output_string output "\" >\n";
if !Options.count then begin
Some s -> ("file " ^ s)
| None -> "[stdin]") msg; exit 3
| Xpath.Ulexer.Error (s, e, msg) -> eprintf "Error: character %i-%i: %s\n%!" s e msg; exit 4
Some s -> ("file " ^ s)
| None -> "[stdin]") msg; exit 3
| Xpath.Ulexer.Error (s, e, msg) -> eprintf "Error: character %i-%i: %s\n%!" s e msg; exit 4