src/Pure/Syntax/printer.ML
changeset 52190 c87b7f26e2c7
parent 52185 1b481b490454
child 52210 0226035df99d
equal deleted inserted replaced
52184:d6627b50b131 52190:c87b7f26e2c7
     8 sig
     8 sig
     9   val show_brackets: bool Config.T
     9   val show_brackets: bool Config.T
    10   val show_types: bool Config.T
    10   val show_types: bool Config.T
    11   val show_sorts: bool Config.T
    11   val show_sorts: bool Config.T
    12   val show_free_types: bool Config.T
    12   val show_free_types: bool Config.T
    13   val show_all_types: bool Config.T
       
    14   val show_markup: bool Config.T
    13   val show_markup: bool Config.T
    15   val show_structs: bool Config.T
    14   val show_structs: bool Config.T
    16   val show_question_marks: bool Config.T
    15   val show_question_marks: bool Config.T
    17   val pretty_priority: int Config.T
    16   val pretty_priority: int Config.T
    18 end;
    17 end;
    58 
    57 
    59 val show_sorts_raw = Config.declare_option "show_sorts";
    58 val show_sorts_raw = Config.declare_option "show_sorts";
    60 val show_sorts = Config.bool show_sorts_raw;
    59 val show_sorts = Config.bool show_sorts_raw;
    61 
    60 
    62 val show_free_types = Config.bool (Config.declare "show_free_types" (fn _ => Config.Bool true));
    61 val show_free_types = Config.bool (Config.declare "show_free_types" (fn _ => Config.Bool true));
    63 val show_all_types = Config.bool (Config.declare "show_all_types" (fn _ => Config.Bool false));
       
    64 
    62 
    65 val show_markup_default = Unsynchronized.ref false;
    63 val show_markup_default = Unsynchronized.ref false;
    66 val show_markup_raw = Config.declare "show_markup" (fn _ => Config.Bool (! show_markup_default));
    64 val show_markup_raw = Config.declare "show_markup" (fn _ => Config.Bool (! show_markup_default));
    67 val show_markup = Config.bool show_markup_raw;
    65 val show_markup = Config.bool show_markup_raw;
    68 
    66