let () =
let flag = Array.length Sys.argv = 5 in
+ let flag2 =
+ if flag
+ then int_of_string Sys.argv.(4) = 1
+ else false in
Format.pp_set_margin err_formatter 80;
let doc = doc () in
let queries = query () in
fprintf err_formatter " ### Query: %a"
XPath.Ast.print query
else ();
- fprintf err_formatter "@. ### Selected nodes: {%a}@."
- print_selec selected_nodes;
+ if flag2 then
+ fprintf err_formatter "@. ### Selected nodes: {%a}@."
+ print_selec selected_nodes
+ else ();
if flag
then begin
Asta.print err_formatter asta;