From a3f00ceeb7a1c6de24cb255485b9466a74b78392 Mon Sep 17 00:00:00 2001 From: kim Date: Fri, 9 Sep 2011 19:26:08 +0000 Subject: [PATCH] Fix the help message and display of options. git-svn-id: svn+ssh://idea.nguyen.vg/svn/sxsi/trunk/xpathcomp@1118 3cdefd35-fc62-479d-8e8d-bae585ffb9ca --- src/options.ml | 27 +++++++++++++++++---------- 1 file changed, 17 insertions(+), 10 deletions(-) diff --git a/src/options.ml b/src/options.ml index 343536d..6395b5c 100644 --- a/src/options.ml +++ b/src/options.ml @@ -31,19 +31,26 @@ let anon_fun = | 2 -> output_file := Some s; incr pos | _ -> raise (Arg.Bad(s)) -let spec = [ "-c", Arg.Set(count_only), "counting only (don't materialize the result set)"; +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"; + "-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]"; - "-s", Arg.Set_string(save_file), "save the intermediate representation into file.srx"; - "-b", Arg.Set(bottom_up), "real bottom up run"; - "-nj", Arg.Set(no_jump), "disable jumping"; + "-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]"; + "-s", Arg.Set_string(save_file), + " save the intermediate representation into file.srx"; + "-b", Arg.Set(bottom_up), " real bottom up run"; + "-nj", Arg.Set(no_jump), " disable jumping"; "-index-type", Arg.Symbol ([ "default"; "swcsa"; "rlcsa" ], set_index_type), - "choose text index type"; - "-v", Arg.Set(verbose), "verbose mode"; + " choose text index type"; + "-v", Arg.Set(verbose), " verbose mode"; ] let parse_cmdline() = -- 2.17.1