X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Flogger.ml;fp=src%2Flogger.ml;h=c213b43bda4d07a35b139d91c5a0f02beab012e9;hb=e55eb5e1ceafa840dc1d137d7fae5fb06eac3875;hp=7796b7356f428758c439300aa93e4d230a72b1f1;hpb=5c37235963ddd5fbfcb6ab86c1f8ccb78d48f0f1;p=SXSI%2Fxpathcomp.git

diff --git a/src/logger.ml b/src/logger.ml
index 7796b73..c213b43 100644
--- a/src/logger.ml
+++ b/src/logger.ml
@@ -3,7 +3,9 @@ open Format
 type t = string
 type level = int
 
-let loggers = [ "top-down-run";
+let loggers = [ "parsing";
+                "indexing";
+                "top-down-run";
 		"top-down-approx";
 		"result-set";
 		"level2-jit";
@@ -43,3 +45,18 @@ let print ppf fmt =
     pp_close_box ppf ();
     fprintf ppf "@?")
     ppf fmt
+
+let _verbose = ref false
+let set_verbose b = _verbose := b
+let verbose ppf fmt =
+  if !_verbose then begin
+    pp_open_hovbox ppf 0;
+    kfprintf (fun _ ->
+      pp_close_box ppf ();
+      fprintf ppf "@?")
+      ppf fmt
+  end else 
+  ikfprintf (fun _ ->
+    pp_close_box ppf ();
+    fprintf ppf "@?")
+    ppf fmt