.

[SXSI/xpathcomp.git] / main.ml

diff --git a/main.ml b/main.ml
index e7bdd35..6295044 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -21,19 +21,6 @@ let time f x =
 ;;
 let total_time () =  List.fold_left (+.) 0. !l;;
 
-let test filename query output = 
-  Printf.eprintf "Parsing document : %!";
-  let v = time Tree.Binary.parse_xml_uri filename in
-(*    Tree.dump v;
-    Printf.eprintf "\n\n\n\n\n%!";
-    Tree.Binary.print_xml_fast stderr v  *)
-    Printf.eprintf "Full Traversal\n%!";
-    time (Tree.full_traversal) v;
-    Printf.eprintf "Traversal\n%!";
-    time (Tree.traversal) v;
-    Printf.eprintf "CPP Traversal\n%!";
-    time (Tree.cpp_traversal) v
-
 
 let main filename query output =
   Printf.eprintf "Parsing document : %!";
@@ -52,7 +39,8 @@ let main filename query output =
       let auto = time XPath.Compile.compile  query in
        XPath.Ast.print Format.err_formatter query;
        Format.eprintf "\n%!";
-
+(*             Format.eprintf "Internal rep of the tree is :\n%!";
+               Tree.Binary.dump v;                           *)
        Printf.eprintf "TopDown (No BackTrack) : \n";
        time (fun v -> ignore (TopDown.accept auto v)) v;
        Printf.eprintf "Number of nodes in the result set : %i\n" (BST.cardinal auto.result);
@@ -66,13 +54,11 @@ let main filename query output =
                        let oc = open_out f in
                          output_string oc "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
                          BST.iter (fun t -> Tree.Binary.print_xml_fast oc t;
-                                     output_string oc "\n------------------";
-                                   output_char oc '\n') auto.result) ();
+                                     output_char oc '\n') auto.result) ();
        end;
        Printf.eprintf "Total time : %fms\n Coherence : %i\n%!" (total_time())
 ;;
                
-
 let argc = Array.length Sys.argv;;
 if (argc < 3 || argc >4)
 then
@@ -81,5 +67,9 @@ then
 ;;
 
 
-test Sys.argv.(1) Sys.argv.(2) (if argc == 4 then Some Sys.argv.(3) else None) ;; 
+main Sys.argv.(1) Sys.argv.(2) (if argc == 4 then Some Sys.argv.(3) else None) ;; 
+
+Printf.eprintf "\n=================================================\nDEBUGGING\n%!";
+Tree.DEBUGTREE.print_stats Format.err_formatter;;
+