let stats = ref false
let specs = align [
- "-c", Set count, "";
- "--count", Set count, " write the number of results only";
- "-s", Set stats, "";
- "--stats", Set stats, " display timing and various statistics";
+ "-c", Set count, " write the number of results only";
+ "--count", Set count, " ";
+ "-s", Set stats, " display timing and various statistics";
+ "--stats", Set stats, " ";
]
let usage_msg = Printf.sprintf "usage: %s [options] input.xml query [output.xml]" Sys.argv.(0)