Change the structure of log messages. Add a new

[SXSI/xpathcomp.git] / src / logger.ml

diff --git a/src/logger.ml b/src/logger.ml
index 2f6e6c7..05fbc83 100644 (file)
--- a/src/logger.ml
+++ b/src/logger.ml
@@ -44,7 +44,15 @@ let print ppf fmt =
 
 let _verbose = ref false
 let set_verbose b = _verbose := b
-let verbose 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