src/Pure/Isar/attrib.ML
changeset 42289 dafae095d733
parent 42284 326f57825e1a
child 42358 b47d41d9f4b5
equal deleted inserted replaced
42288:2074b31650e6 42289:dafae095d733
   380   let
   380   let
   381     val config_value = Config.declare_generic {global = global} name (make o default);
   381     val config_value = Config.declare_generic {global = global} name (make o default);
   382     val config = coerce config_value;
   382     val config = coerce config_value;
   383   in (config, register_config config_value) end;
   383   in (config, register_config config_value) end;
   384 
   384 
   385 val config_bool   = declare_config Config.Bool Config.bool false;
   385 val config_bool = declare_config Config.Bool Config.bool false;
   386 val config_int    = declare_config Config.Int Config.int false;
   386 val config_int = declare_config Config.Int Config.int false;
   387 val config_real   = declare_config Config.Real Config.real false;
   387 val config_real = declare_config Config.Real Config.real false;
   388 val config_string = declare_config Config.String Config.string false;
   388 val config_string = declare_config Config.String Config.string false;
   389 
   389 
   390 val config_bool_global   = declare_config Config.Bool Config.bool true;
   390 val config_bool_global = declare_config Config.Bool Config.bool true;
   391 val config_int_global    = declare_config Config.Int Config.int true;
   391 val config_int_global = declare_config Config.Int Config.int true;
   392 val config_real_global   = declare_config Config.Real Config.real true;
   392 val config_real_global = declare_config Config.Real Config.real true;
   393 val config_string_global = declare_config Config.String Config.string true;
   393 val config_string_global = declare_config Config.String Config.string true;
   394 
   394 
   395 end;
   395 end;
   396 
   396 
   397 
   397 
   399 
   399 
   400 val _ = Context.>> (Context.map_theory
   400 val _ = Context.>> (Context.map_theory
   401  (register_config Ast.trace_raw #>
   401  (register_config Ast.trace_raw #>
   402   register_config Ast.stat_raw #>
   402   register_config Ast.stat_raw #>
   403   register_config Syntax.positions_raw #>
   403   register_config Syntax.positions_raw #>
   404   register_config Syntax.show_brackets_raw #>
   404   register_config Printer.show_brackets_raw #>
   405   register_config Syntax.show_sorts_raw #>
   405   register_config Printer.show_sorts_raw #>
   406   register_config Syntax.show_types_raw #>
   406   register_config Printer.show_types_raw #>
   407   register_config Syntax.show_structs_raw #>
   407   register_config Printer.show_structs_raw #>
   408   register_config Syntax.show_question_marks_raw #>
   408   register_config Printer.show_question_marks_raw #>
   409   register_config Syntax.ambiguity_level_raw #>
   409   register_config Syntax.ambiguity_level_raw #>
   410   register_config Syntax_Trans.eta_contract_raw #>
   410   register_config Syntax_Trans.eta_contract_raw #>
   411   register_config ML_Context.trace_raw #>
   411   register_config ML_Context.trace_raw #>
   412   register_config ProofContext.show_abbrevs_raw #>
   412   register_config ProofContext.show_abbrevs_raw #>
   413   register_config Goal_Display.goals_limit_raw #>
   413   register_config Goal_Display.goals_limit_raw #>