let save_file = ref ""
let count_only = ref false
let time = ref false
+let backward = ref false
let usage_msg = Printf.sprintf "%s <input.{xml|srx}> 'query' [output]" Sys.argv.(0)
"-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(backward), "real bottom up run";
]
let parse_cmdline() =
+