# HG changeset patch
# User boehmes
# Date 1269722068 -3600
# Node ID 26e820d27e0a6e821de41964d636ae5980a263a6
# Parent  380b974967343a0c5c55d87752c649d9cdfc710a
re-introduce reference to control simplifier tracing (needed for ProofGeneral settings menu) (cf. 12bb31230550)

diff -r 380b97496734 -r 26e820d27e0a NEWS
--- a/NEWS	Sat Mar 27 18:43:11 2010 +0100
+++ b/NEWS	Sat Mar 27 21:34:28 2010 +0100
@@ -68,7 +68,8 @@
   using [[trace_simp=true]]
 
 Tracing is then active for all invocations of the simplifier
-in subsequent goal refinement steps.
+in subsequent goal refinement steps. Tracing may also still be
+enabled or disabled via the ProofGeneral settings menu.
 
 
 *** Pure ***
diff -r 380b97496734 -r 26e820d27e0a src/Pure/ProofGeneral/preferences.ML
--- a/src/Pure/ProofGeneral/preferences.ML	Sat Mar 27 18:43:11 2010 +0100
+++ b/src/Pure/ProofGeneral/preferences.ML	Sat Mar 27 21:34:28 2010 +0100
@@ -146,7 +146,10 @@
     "Show leading question mark of variable name"];
 
 val tracing_preferences =
- [nat_pref trace_simp_depth_limit
+ [bool_pref trace_simp_ref
+    "trace-simplifier"
+    "Trace simplification rules.",
+  nat_pref trace_simp_depth_limit
     "trace-simplifier-depth"
     "Trace simplifier depth limit.",
   bool_pref trace_rules
diff -r 380b97496734 -r 26e820d27e0a src/Pure/meta_simplifier.ML
--- a/src/Pure/meta_simplifier.ML	Sat Mar 27 18:43:11 2010 +0100
+++ b/src/Pure/meta_simplifier.ML	Sat Mar 27 21:34:28 2010 +0100
@@ -15,6 +15,7 @@
   val debug_simp_value: Config.value Config.T
   val trace_simp: bool Config.T
   val trace_simp_value: Config.value Config.T
+  val trace_simp_ref: bool Unsynchronized.ref
   val trace_simp_depth_limit: int Unsynchronized.ref
   type rrule
   val eq_rrule: rrule * rrule -> bool
@@ -278,6 +279,7 @@
 
 val trace_simp_value = Config.declare false "trace_simp" (Config.Bool false);
 val trace_simp = Config.bool trace_simp_value;
+val trace_simp_ref = Unsynchronized.ref false;
 
 local
 
@@ -299,25 +301,31 @@
 fun print_term_global ss warn a thy t =
   print_term ss warn (K a) t (ProofContext.init thy);
 
-fun if_enabled (Simpset ({context, ...}, _)) flag f =
+fun if_enabled (Simpset ({context, ...}, _)) b flag f =
   (case context of
-    SOME ctxt => if Config.get ctxt flag then f ctxt else ()
+    SOME ctxt => if b orelse Config.get ctxt flag then f ctxt else ()
   | NONE => ())
 
-fun debug warn a ss = if_enabled ss debug_simp (fn _ => prnt ss warn (a ()));
-fun trace warn a ss = if_enabled ss trace_simp (fn _ => prnt ss warn (a ()));
+fun debug warn a ss =
+  if_enabled ss false debug_simp (fn _ => prnt ss warn (a ()));
+fun trace warn a ss =
+  if_enabled ss (!trace_simp_ref) trace_simp (fn _ => prnt ss warn (a ()));
 
-fun debug_term warn a ss t = if_enabled ss debug_simp (print_term ss warn a t);
-fun trace_term warn a ss t = if_enabled ss trace_simp (print_term ss warn a t);
+fun debug_term warn a ss t =
+  if_enabled ss false debug_simp (print_term ss warn a t);
+fun trace_term warn a ss t =
+  if_enabled ss (!trace_simp_ref) trace_simp (print_term ss warn a t);
 
 fun trace_cterm warn a ss ct =
-  if_enabled ss trace_simp (print_term ss warn a (Thm.term_of ct));
+  if_enabled ss (!trace_simp_ref) trace_simp
+    (print_term ss warn a (Thm.term_of ct));
 
 fun trace_thm a ss th =
-  if_enabled ss trace_simp (print_term ss false a (Thm.full_prop_of th));
+  if_enabled ss (!trace_simp_ref) trace_simp
+    (print_term ss false a (Thm.full_prop_of th));
 
 fun trace_named_thm a ss (th, name) =
-  if_enabled ss trace_simp (print_term ss false
+  if_enabled ss (!trace_simp_ref) trace_simp (print_term ss false
     (fn () => if name = "" then a () else a () ^ " " ^ quote name ^ ":")
     (Thm.full_prop_of th));