X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=benchmark%2Fmain.ml;h=365832f9561d206e5b65273dd79e072d482582c5;hb=c74aa5a224a41d3ab9d1a7ae4ebb4e58083a578c;hp=b80faed1f981f33a86aa1d7b9ad6f953d29b965f;hpb=ff0d1111e34d2aba9b6454e0c95b67bd38ba392c;p=SXSI%2Fxpathcomp.git

diff --git a/benchmark/main.ml b/benchmark/main.ml
index b80faed..365832f 100644
--- a/benchmark/main.ml
+++ b/benchmark/main.ml
@@ -115,9 +115,12 @@ let l = TEST.test_engine [] (make_queryset
 List.iter (function (e,d),s -> 
 	     Printf.printf "\n--------------  %s   -----------------" e;
 	     List.iter (fun k -> 
-			  Array.iter ( fun i ->
+			  Array.iteri ( fun i f ->
+					 if (CONF.run_with_output && i=1) || (CONF.run_without_output && i = 0)
+					 then begin
 					 print_newline ();
-					 print_newline ();
-					 print_stats Format.std_formatter i) k) s;
+					 print_stats Format.std_formatter f;
+					 end
+					 ) k) s;
 	     Printf.printf "\n----------------------------------------\n"
 	  ) l