projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Preliminary work for multiple starters evaluation.
[tatoo.git]
/
src
/
tatoo.ml
diff --git
a/src/tatoo.ml
b/src/tatoo.ml
index
8b50581
..
362c4fb
100644
(file)
--- a/
src/tatoo.ml
+++ b/
src/tatoo.ml
@@
-50,9
+50,9
@@
let main () =
Logger.msg `STATS "@[Automaton: @\n%a@]" Ata.print auto;
end;
Logger.msg `STATS "@[Automaton: @\n%a@]" Ata.print auto;
end;
- let module Naive =
Eval
.Make(Naive_tree) in
+ let module Naive =
Run
.Make(Naive_tree) in
let results =
let results =
- time (Naive.eval auto doc) (
Naive_tree.root doc
) "evaluating query"
+ time (Naive.eval auto doc) (
[Naive_tree.root doc]
) "evaluating query"
in
time (fun () ->
output_string output "<xml_result>\n";
in
time (fun () ->
output_string output "<xml_result>\n";