From: Kim Nguyễn <kn@lri.fr>
Date: Wed, 2 May 2012 12:31:00 +0000 (+0200)
Subject: Add 'bottom-up' logging level.
X-Git-Url: http://git.nguyen.vg/gitweb/?p=SXSI%2Fxpathcomp.git;a=commitdiff_plain;h=ff7893db153ecd86099fab1c71be475dcc8272bf

Add 'bottom-up' logging level.
---

diff --git a/src/logger.ml b/src/logger.ml
index 1b123f1..e113010 100644
--- a/src/logger.ml
+++ b/src/logger.ml
@@ -3,7 +3,15 @@ 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 = [ "top-down-run";
+		"top-down-approx";
+		"result-set";
+		"level2-jit";
+		"res-jit";
+		"grammar";
+		"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