X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Flogger.ml;h=05fbc83bfb113c5b2e12e0bd1e8428080713031d;hb=4516c5fe48693d769b62b987fe561d9aa8951695;hp=c213b43bda4d07a35b139d91c5a0f02beab012e9;hpb=e55eb5e1ceafa840dc1d137d7fae5fb06eac3875;p=SXSI%2Fxpathcomp.git

diff --git a/src/logger.ml b/src/logger.ml
index c213b43..05fbc83 100644
--- a/src/logger.ml
+++ b/src/logger.ml
@@ -40,23 +40,19 @@ 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
+  fprintf 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
+let msg ppf fmt =
+  if !_verbose
+  then fprintf ppf fmt
+  else ifprintf ppf fmt
+
+let start_msg ppf s =
+  msg ppf "@[%s" s
+
+let end_msg ppf s =
+  msg ppf "@]%s@?" s
+
+let verbose a b = msg a b