equal
deleted
inserted
replaced
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) = ("", ""); |