equal
deleted
inserted
replaced
93 val disposedN: string val disposed: T |
93 val disposedN: string val disposed: T |
94 val editsN: string val edits: string -> T |
94 val editsN: string val edits: string -> T |
95 val editN: string val edit: string -> string -> T |
95 val editN: string val edit: string -> string -> T |
96 val pidN: string |
96 val pidN: string |
97 val sessionN: string |
97 val sessionN: string |
98 val classN: string |
|
99 val messageN: string val message: string -> T |
|
100 val promptN: string val prompt: T |
98 val promptN: string val prompt: T |
101 val writelnN: string |
|
102 val priorityN: string |
|
103 val tracingN: string |
|
104 val warningN: string |
|
105 val errorN: string |
|
106 val debugN: string |
|
107 val initN: string |
|
108 val statusN: string |
|
109 val no_output: output * output |
99 val no_output: output * output |
110 val default_output: T -> output * output |
100 val default_output: T -> output * output |
111 val add_mode: string -> (T -> output * output) -> unit |
101 val add_mode: string -> (T -> output * output) -> unit |
112 val output: T -> output * output |
102 val output: T -> output * output |
113 val enclose: T -> output -> output |
103 val enclose: T -> output -> output |
282 (* messages *) |
272 (* messages *) |
283 |
273 |
284 val pidN = "pid"; |
274 val pidN = "pid"; |
285 val sessionN = "session"; |
275 val sessionN = "session"; |
286 |
276 |
287 val classN = "class"; |
|
288 val (messageN, message) = markup_string "message" classN; |
|
289 |
|
290 val (promptN, prompt) = markup_elem "prompt"; |
277 val (promptN, prompt) = markup_elem "prompt"; |
291 |
278 |
292 val writelnN = "writeln"; |
|
293 val priorityN = "priority"; |
|
294 val tracingN = "tracing"; |
|
295 val warningN = "warning"; |
|
296 val errorN = "error"; |
|
297 val debugN = "debug"; |
|
298 val initN = "init"; |
|
299 val statusN = "status"; |
|
300 |
279 |
301 |
280 |
302 (* print mode operations *) |
281 (* print mode operations *) |
303 |
282 |
304 val no_output = ("", ""); |
283 val no_output = ("", ""); |