equal
deleted
inserted
replaced
103 val unprocessedN: string val unprocessed: T |
103 val unprocessedN: string val unprocessed: T |
104 val runningN: string val running: string -> T |
104 val runningN: string val running: string -> T |
105 val failedN: string val failed: T |
105 val failedN: string val failed: T |
106 val finishedN: string val finished: T |
106 val finishedN: string val finished: T |
107 val disposedN: string val disposed: T |
107 val disposedN: string val disposed: T |
108 val editsN: string val edits: string -> T |
|
109 val editN: string val edit: string -> string -> T |
108 val editN: string val edit: string -> string -> T |
110 val pidN: string |
109 val pidN: string |
111 val sessionN: string |
110 val sessionN: string |
112 val promptN: string val prompt: T |
111 val promptN: string val prompt: T |
113 val readyN: string val ready: T |
112 val readyN: string val ready: T |
305 val (disposedN, disposed) = markup_elem "disposed"; |
304 val (disposedN, disposed) = markup_elem "disposed"; |
306 |
305 |
307 |
306 |
308 (* interactive documents *) |
307 (* interactive documents *) |
309 |
308 |
310 val (editsN, edits) = markup_string "edits" idN; |
|
311 |
|
312 val editN = "edit"; |
309 val editN = "edit"; |
313 fun edit id state_id : T = (editN, [(idN, id), (stateN, state_id)]); |
310 fun edit id state_id : T = (editN, [(idN, id), (stateN, state_id)]); |
314 |
311 |
315 |
312 |
316 (* messages *) |
313 (* messages *) |