projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Refactor the Ata module:
[tatoo.git]
/
src
/
tatoo.ml
diff --git
a/src/tatoo.ml
b/src/tatoo.ml
index
ca79411
..
c3cddfe
100644
(file)
--- a/
src/tatoo.ml
+++ b/
src/tatoo.ml
@@
-13,10
+13,6
@@
(* *)
(***********************************************************************)
(* *)
(***********************************************************************)
-(*
- Time-stamp: <Last modified on 2013-04-25 15:05:36 CEST by Kim Nguyen>
-*)
-
open Format
let time f arg msg =
open Format
let time f arg msg =
@@
-54,7
+50,7
@@
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 =
time (Naive.eval auto doc) (Naive_tree.root doc) "evaluating query"
in
let results =
time (Naive.eval auto doc) (Naive_tree.root doc) "evaluating query"
in