src/Pure/General/markup.ML
changeset 24289 bfd59eb6e24e
parent 23922 707639e9497d
child 24555 ea220faa69e7
equal deleted inserted replaced
24288:4016baca4973 24289:bfd59eb6e24e
    52   val junkN: string val junk: T
    52   val junkN: string val junk: T
    53   val commandspanN: string val commandspan: string -> T
    53   val commandspanN: string val commandspan: string -> T
    54   val promptN: string val prompt: T
    54   val promptN: string val prompt: T
    55   val stateN: string val state: T
    55   val stateN: string val state: T
    56   val subgoalN: string val subgoal: T
    56   val subgoalN: string val subgoal: T
       
    57   val sendbackN: string val sendback: T
    57   val default_output: T -> output * output
    58   val default_output: T -> output * output
    58   val add_mode: string -> (T -> output * output) -> unit
    59   val add_mode: string -> (T -> output * output) -> unit
    59   val output: T -> output * output
    60   val output: T -> output * output
    60   val enclose: T -> output -> output
    61   val enclose: T -> output -> output
    61 end;
    62 end;
   151 (* toplevel *)
   152 (* toplevel *)
   152 
   153 
   153 val (promptN, prompt) = markup "prompt";
   154 val (promptN, prompt) = markup "prompt";
   154 val (stateN, state) = markup "state";
   155 val (stateN, state) = markup "state";
   155 val (subgoalN, subgoal) = markup "subgoal";
   156 val (subgoalN, subgoal) = markup "subgoal";
       
   157 val (sendbackN, sendback) = markup "sendback";
   156 
   158 
   157 
   159 
   158 (* print mode operations *)
   160 (* print mode operations *)
   159 
   161 
   160 fun default_output (_: T) = ("", "");
   162 fun default_output (_: T) = ("", "");