let arg2 = Sys.argv.(2) in
if arg2 = "-f"
then let fq = open_in Sys.argv.(3) in
- let q = XPath.parse_file fq in
- close_in fq;
- fprintf err_formatter "Parse query OK ! ";
- q
+ let q = XPath.parse_file fq in
+ close_in fq;
+ fprintf err_formatter "Parse query OK ! ";
+ q
else let q = XPath.parse_string arg2 in
fprintf err_formatter "Parse query OK ! ";
q
Tree.print_xml stderr doc (Tree.root doc);
output_string stderr "\n";
Asta.print err_formatter asta;
- fprintf err_formatter "@[<v 0>##### Run #####@. %a@]\n"
- Run.print run;
+ Run.print err_formatter run;
exit 0