avoid direct access to print_mode;
authorwenzelm
Mon Sep 17 16:36:41 2007 +0200 (2007-09-17)
changeset 24612d1b315bdb8d7
parent 24611 1f92518fbabe
child 24613 bc889c3d55a3
avoid direct access to print_mode;
src/HOL/Import/import_package.ML
src/HOL/Tools/res_atp.ML
src/HOLCF/IOA/meta_theory/ioa_package.ML
src/Pure/General/markup.ML
src/Pure/General/output.ML
src/Pure/General/pretty.ML
src/Pure/Isar/proof_context.ML
src/Pure/Isar/session.ML
src/Pure/Syntax/printer.ML
src/Tools/nbe.ML
     1.1 --- a/src/HOL/Import/import_package.ML	Mon Sep 17 16:06:35 2007 +0200
     1.2 +++ b/src/HOL/Import/import_package.ML	Mon Sep 17 16:36:41 2007 +0200
     1.3 @@ -25,8 +25,8 @@
     1.4  val debug = ref false
     1.5  fun message s = if !debug then writeln s else ()
     1.6  
     1.7 -val string_of_thm = Library.setmp print_mode [] string_of_thm;
     1.8 -val string_of_cterm = Library.setmp print_mode [] string_of_cterm;
     1.9 +val string_of_thm = PrintMode.with_default string_of_thm;
    1.10 +val string_of_cterm = PrintMode.with_default string_of_cterm;
    1.11  
    1.12  fun import_tac (thyname,thmname) =
    1.13      if ! quick_and_dirty
     2.1 --- a/src/HOL/Tools/res_atp.ML	Mon Sep 17 16:06:35 2007 +0200
     2.2 +++ b/src/HOL/Tools/res_atp.ML	Mon Sep 17 16:36:41 2007 +0200
     2.3 @@ -946,7 +946,7 @@
     2.4        val ctxt = ProofContext.init (theory_of_thm th)
     2.5    in  isar_atp (ctxt, [], th)  end;
     2.6  
     2.7 -val isar_atp_writeonly = setmp print_mode []
     2.8 +val isar_atp_writeonly = PrintMode.with_default
     2.9        (fn (ctxt, chain_ths, th) =>
    2.10         if Thm.no_prems th then ()
    2.11         else
     3.1 --- a/src/HOLCF/IOA/meta_theory/ioa_package.ML	Mon Sep 17 16:06:35 2007 +0200
     3.2 +++ b/src/HOLCF/IOA/meta_theory/ioa_package.ML	Mon Sep 17 16:36:41 2007 +0200
     3.3 @@ -19,8 +19,8 @@
     3.4  structure IoaPackage: IOA_PACKAGE =
     3.5  struct
     3.6  
     3.7 -val string_of_typ = setmp print_mode [] o Sign.string_of_typ;
     3.8 -val string_of_term = setmp print_mode [] o Sign.string_of_term;
     3.9 +val string_of_typ = PrintMode.with_default o Sign.string_of_typ;
    3.10 +val string_of_term = PrintMode.with_default o Sign.string_of_term;
    3.11  
    3.12  exception malformed;
    3.13  
     4.1 --- a/src/Pure/General/markup.ML	Mon Sep 17 16:06:35 2007 +0200
     4.2 +++ b/src/Pure/General/markup.ML	Mon Sep 17 16:36:41 2007 +0200
     4.3 @@ -170,7 +170,7 @@
     4.4    fun add_mode name output = CRITICAL (fn () =>
     4.5      change modes (Symtab.update_new (name, {output = output})));
     4.6    fun get_mode () =
     4.7 -    the_default default (Library.get_first (Symtab.lookup (! modes)) (! print_mode));
     4.8 +    the_default default (Library.get_first (Symtab.lookup (! modes)) (print_mode_value ()));
     4.9  end;
    4.10  
    4.11  fun output ("", _) = ("", "")
     5.1 --- a/src/Pure/General/output.ML	Mon Sep 17 16:06:35 2007 +0200
     5.2 +++ b/src/Pure/General/output.ML	Mon Sep 17 16:36:41 2007 +0200
     5.3 @@ -67,7 +67,7 @@
     5.4    fun add_mode name output escape = CRITICAL (fn () =>
     5.5      change modes (Symtab.update_new (name, {output = output, escape = escape})));
     5.6    fun get_mode () =
     5.7 -    the_default default (Library.get_first (Symtab.lookup (! modes)) (! print_mode));
     5.8 +    the_default default (Library.get_first (Symtab.lookup (! modes)) (print_mode_value ()));
     5.9  end;
    5.10  
    5.11  fun output_width x = #output (get_mode ()) x;
     6.1 --- a/src/Pure/General/pretty.ML	Mon Sep 17 16:06:35 2007 +0200
     6.2 +++ b/src/Pure/General/pretty.ML	Mon Sep 17 16:36:41 2007 +0200
     6.3 @@ -93,7 +93,7 @@
     6.4    fun add_mode name indent = CRITICAL (fn () =>
     6.5      change modes (Symtab.update_new (name, {indent = indent})));
     6.6    fun get_mode () =
     6.7 -    the_default default (Library.get_first (Symtab.lookup (! modes)) (! print_mode));
     6.8 +    the_default default (Library.get_first (Symtab.lookup (! modes)) (print_mode_value ()));
     6.9  end;
    6.10  
    6.11  fun mode_indent x y = #indent (get_mode ()) x y;
     7.1 --- a/src/Pure/Isar/proof_context.ML	Mon Sep 17 16:06:35 2007 +0200
     7.2 +++ b/src/Pure/Isar/proof_context.ML	Mon Sep 17 16:36:41 2007 +0200
     7.3 @@ -314,7 +314,7 @@
     7.4      val consts = consts_of ctxt;
     7.5      val do_abbrevs = abbrevs andalso not (print_mode_active "no_abbrevs");
     7.6      val t' = t
     7.7 -      |> do_abbrevs ? rewrite_term true thy (Consts.abbrevs_of consts (! print_mode @ [""]))
     7.8 +      |> do_abbrevs ? rewrite_term true thy (Consts.abbrevs_of consts (print_mode_value () @ [""]))
     7.9        |> do_abbrevs ? rewrite_term false thy (Consts.abbrevs_of consts [Syntax.internalM])
    7.10        |> Sign.extern_term (Consts.extern_early consts) thy
    7.11        |> LocalSyntax.extern_term syntax;
     8.1 --- a/src/Pure/Isar/session.ML	Mon Sep 17 16:06:35 2007 +0200
     8.2 +++ b/src/Pure/Isar/session.ML	Mon Sep 17 16:36:41 2007 +0200
     8.3 @@ -87,7 +87,7 @@
     8.4        Secure.use_noncritical root;
     8.5        finish ()))
     8.6      |> setmp_noncritical Proofterm.proofs level
     8.7 -    |> setmp_noncritical print_mode (modes @ ! print_mode)
     8.8 +    |> setmp_noncritical print_mode (modes @ print_mode_value ())
     8.9      |> setmp_noncritical Multithreading.trace trace_threads
    8.10      |> setmp_noncritical Multithreading.max_threads
    8.11        (if Multithreading.available then max_threads
     9.1 --- a/src/Pure/Syntax/printer.ML	Mon Sep 17 16:06:35 2007 +0200
     9.2 +++ b/src/Pure/Syntax/printer.ML	Mon Sep 17 16:36:41 2007 +0200
     9.3 @@ -367,14 +367,14 @@
     9.4  (* pretty_term_ast *)
     9.5  
     9.6  fun pretty_term_ast extern_const ctxt curried prtabs trf tokentrf ast =
     9.7 -  pretty extern_const ctxt (mode_tabs prtabs (! print_mode))
     9.8 +  pretty extern_const ctxt (mode_tabs prtabs (print_mode_value ()))
     9.9      trf tokentrf false curried ast 0;
    9.10  
    9.11  
    9.12  (* pretty_typ_ast *)
    9.13  
    9.14  fun pretty_typ_ast ctxt _ prtabs trf tokentrf ast =
    9.15 -  pretty I ctxt (mode_tabs prtabs (! print_mode))
    9.16 +  pretty I ctxt (mode_tabs prtabs (print_mode_value ()))
    9.17      trf tokentrf true false ast 0;
    9.18  
    9.19  end;
    10.1 --- a/src/Tools/nbe.ML	Mon Sep 17 16:06:35 2007 +0200
    10.2 +++ b/src/Tools/nbe.ML	Mon Sep 17 16:36:41 2007 +0200
    10.3 @@ -373,7 +373,7 @@
    10.4      val ct = Thm.cterm_of thy t;
    10.5      val (_, t') = (Logic.dest_equals o Thm.prop_of o normalization_conv) ct;
    10.6      val ty = Term.type_of t';
    10.7 -    val p = Library.setmp print_mode (modes @ ! print_mode) (fn () =>
    10.8 +    val p = Library.setmp print_mode (modes @ print_mode_value ()) (fn () =>
    10.9        Pretty.block [Pretty.quote (ProofContext.pretty_term ctxt t'), Pretty.fbrk,
   10.10          Pretty.str "::", Pretty.brk 1, Pretty.quote (ProofContext.pretty_typ ctxt ty)]) ();
   10.11    in Pretty.writeln p end;