X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Flogger.ml;h=e99fd1f73d7bb5b863195f0736cff7a7b0c3bc86;hb=cb728132e1c5cb0a171ee09e9b3ced16da08f796;hp=1b123f172e85a11322e36101c20a4f0847019413;hpb=3791216bfb2b9d966718f83fd414e8bcd5f7a066;p=SXSI%2Fxpathcomp.git

diff --git a/src/logger.ml b/src/logger.ml
index 1b123f1..e99fd1f 100644
--- a/src/logger.ml
+++ b/src/logger.ml
@@ -3,7 +3,16 @@ open Format
 type t = string
 type level = int
 
-let loggers = [ "top-down-run"; "top-down-approx"; "result-set"; "level2-jit"; "res-jit"; "grammar"; "twopass";"transition" ]
+let loggers = [ "parsing";
+                "indexing";
+                "top-down-run";
+		"top-down-approx";
+		"result-set";
+		"level2-jit";
+		"res-jit";
+		"twopass";
+		"transition";
+		"bottom-up" ]
 let active_loggers : (t, int) Hashtbl.t = Hashtbl.create 17
 let margin = List.fold_left (fun m l -> max m (String.length l)) 0 loggers
 let available () = loggers
@@ -31,8 +40,18 @@ let log t l fmt =
     ifprintf !logger_output fmt
 
 let print ppf fmt =
-  pp_open_hovbox ppf 0;
   kfprintf (fun _ ->
-    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
+    kfprintf (fun _ ->
+      fprintf ppf "@?")
+      ppf fmt
+  end else 
+  ikfprintf (fun _ ->
     fprintf ppf "@?")
     ppf fmt