+ close_in fd;
+ fprintf err_formatter "Parse Tree OK ! ";
+ d
+
+
+let query () =
+ 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
+ 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