let main v query_string output =
- Tag.init (Tree.tag_pool v);
+ Tag.init (Tree.tag_operations v);
let query =
time ~msg:"Parsing query" XPath.parse query_string
in
let g = time ~msg:"Loading grammar" (Grammar.load !Options.input_file) true in
begin
ignore(g);
+ Unix.sleep 10; (* Leave monitoring process the time to read the HWM *)
exit 0
end
else if Filename.check_suffix !Options.input_file ".srx"