.

[SXSI/xpathcomp.git] / options.ml

diff --git a/options.ml b/options.ml
index ab25d7d..43f665f 100644 (file)
--- a/options.ml
+++ b/options.ml
@@ -1,6 +1,7 @@
 let index_empty_texts = ref false
 let sample_factor = ref 64
 let disable_text_collection = ref false
+let tc_threshold = ref 60000
 
 let query = ref ""
 let input_file = ref ""
@@ -22,6 +23,7 @@ let anon_fun =
 
 let spec = [ "-c", Arg.Set(count_only), "counting only (don't materialize the result set)";
             "-t", Arg.Set(time), "print timing statistics";
+            "-max-tc", Arg.Set_int(tc_threshold), "set maximum count for which the TextCollection is used";
              "-f", Arg.Set_int(sample_factor), "sample factor [default=64]";
             "-i", Arg.Set(index_empty_texts), "index empty texts [default=false]";
             "-d", Arg.Set(disable_text_collection), "disable text collection[default=false]";