projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Abstract result sets beind a Node_list interface.
[tatoo.git]
/
src
/
tatoo.ml
diff --git
a/src/tatoo.ml
b/src/tatoo.ml
index
9fb7045
..
24e212f
100644
(file)
--- a/
src/tatoo.ml
+++ b/
src/tatoo.ml
@@
-104,9
+104,10
@@
let main () =
Logger.msg `STATS "@[Automaton: @\n%a@]" Ata.print auto) auto_list;
end;
Logger.msg `STATS "@[Automaton: @\n%a@]" Ata.print auto) auto_list;
end;
- let module Naive = Run.Make(Naive_tree) in
+ let module Naive = Run.Make(Naive_tree)
(Naive_node_list)
in
let result_list =
let result_list =
- let root = [ Naive_tree.root doc] in
+
+ let root = Naive_node_list.(add (Naive_tree.root doc) (create())) in
let f, msg =
match !Options.parallel, !Options.compose with
true, true ->
let f, msg =
match !Options.parallel, !Options.compose with
true, true ->
@@
-134,10
+135,10
@@
let main () =
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
- output_string output (string_of_int (
L
ist.length results));
+ output_string output (string_of_int (
Naive_node_l
ist.length results));
output_char output '\n';
end else
output_char output '\n';
end else
-
L
ist.iter (fun n ->
+
Naive_node_l
ist.iter (fun n ->
Naive_tree.print_xml output doc n;
output_char output '\n'
) results;
Naive_tree.print_xml output doc n;
output_char output '\n'
) results;