supprimer (List.rev p) dans la fonction compile_path_rev

[tatoo.git] / src / table_driver.ml

diff --git a/src/table_driver.ml b/src/table_driver.ml
index 9d5b240..1f04028 100644 (file)
--- a/src/table_driver.ml
+++ b/src/table_driver.ml
@@ -26,14 +26,11 @@ let main () =
   let query_tree_list =
     List.map (fun query -> compile_xpath query) queries
   in
-  let cpt = ref 0 in
- 
-    List.iter ( fun q -> 
-     
+     List.iter ( fun q -> 
       let res = eval_query_tree doc [ (Naive_tree.root doc) ] q in
+      print_string "<xml_result num=\"1\" >\n";
       print_node_list doc res;
-      Format.printf "---------------Fin %i\n!" !cpt;
-      incr cpt;
+      print_string "</xml_result>\n"
     ) query_tree_list ;
 
  (* let output =