+ 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
+
+let build_asta query =
+ let asta = Compil.trans query in
+ fprintf err_formatter "Compil OK !\n";
+ asta