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 #> |