projects
/
SXSI
/
xpathcomp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
74aa5cc
)
Put grammar stuff.
author
Kim Nguyễn
<kn@lri.fr>
Thu, 1 Mar 2012 13:30:24 +0000
(14:30 +0100)
committer
Kim Nguyễn
<kn@lri.fr>
Thu, 1 Mar 2012 13:30:24 +0000
(14:30 +0100)
src/main.ml
patch
|
blob
|
history
diff --git
a/src/main.ml
b/src/main.ml
index
fa16737
..
42c8822
100644
(file)
--- a/
src/main.ml
+++ b/
src/main.ml
@@
-126,10
+126,16
@@
let _ =
Gc.compact();
Gc.set (tuned_gc);
let runtime =
Gc.compact();
Gc.set (tuned_gc);
let runtime =
- let module R = ResJIT.Count in
+ if !Options.count_only then
+ let module R = ResJIT.Make(NodeSet.Partial(NodeSet.Count)) in
let module M = Runtime.Make(R) in
(* mk_runtime run auto doc arg count print outfile *)
mk_runtime M.grammar_run auto (Obj.magic g) () R.NS.length (Obj.magic R.NS.serialize) None
let module M = Runtime.Make(R) in
(* mk_runtime run auto doc arg count print outfile *)
mk_runtime M.grammar_run auto (Obj.magic g) () R.NS.length (Obj.magic R.NS.serialize) None
+ else
+ let module R = ResJIT.Mat in
+ let module M = Runtime.Make(R) in
+ (* mk_runtime run auto doc arg count print outfile *)
+ mk_runtime M.grammar_run auto (Obj.magic g) () R.NS.length (Obj.magic R.NS.serialize) None
in
runtime ();
exit 0
in
runtime ();
exit 0