equal
deleted
inserted
replaced
172 val timingN: string val timing: {elapsed: Time.time, cpu: Time.time, gc: Time.time} -> T |
172 val timingN: string val timing: {elapsed: Time.time, cpu: Time.time, gc: Time.time} -> T |
173 val command_indentN: string val command_indent: int -> T |
173 val command_indentN: string val command_indent: int -> T |
174 val goalN: string val goal: T |
174 val goalN: string val goal: T |
175 val subgoalN: string val subgoal: string -> T |
175 val subgoalN: string val subgoal: string -> T |
176 val taskN: string |
176 val taskN: string |
177 val acceptedN: string val accepted: T |
|
178 val forkedN: string val forked: T |
177 val forkedN: string val forked: T |
179 val joinedN: string val joined: T |
178 val joinedN: string val joined: T |
180 val runningN: string val running: T |
179 val runningN: string val running: T |
181 val finishedN: string val finished: T |
180 val finishedN: string val finished: T |
182 val failedN: string val failed: T |
181 val failedN: string val failed: T |
209 val padding_line: Properties.entry |
208 val padding_line: Properties.entry |
210 val padding_command: Properties.entry |
209 val padding_command: Properties.entry |
211 val dialogN: string val dialog: serial -> string -> T |
210 val dialogN: string val dialog: serial -> string -> T |
212 val jedit_actionN: string |
211 val jedit_actionN: string |
213 val functionN: string |
212 val functionN: string |
|
213 val commands_accepted: Properties.T |
214 val assign_update: Properties.T |
214 val assign_update: Properties.T |
215 val removed_versions: Properties.T |
215 val removed_versions: Properties.T |
216 val protocol_handler: string -> Properties.T |
216 val protocol_handler: string -> Properties.T |
217 val invoke_scala: string -> string -> Properties.T |
217 val invoke_scala: string -> string -> Properties.T |
218 val cancel_scala: string -> Properties.T |
218 val cancel_scala: string -> Properties.T |
621 |
621 |
622 (* command status *) |
622 (* command status *) |
623 |
623 |
624 val taskN = "task"; |
624 val taskN = "task"; |
625 |
625 |
626 val (acceptedN, accepted) = markup_elem "accepted"; |
|
627 val (forkedN, forked) = markup_elem "forked"; |
626 val (forkedN, forked) = markup_elem "forked"; |
628 val (joinedN, joined) = markup_elem "joined"; |
627 val (joinedN, joined) = markup_elem "joined"; |
629 val (runningN, running) = markup_elem "running"; |
628 val (runningN, running) = markup_elem "running"; |
630 val (finishedN, finished) = markup_elem "finished"; |
629 val (finishedN, finished) = markup_elem "finished"; |
631 val (failedN, failed) = markup_elem "failed"; |
630 val (failedN, failed) = markup_elem "failed"; |
679 |
678 |
680 |
679 |
681 (* protocol message functions *) |
680 (* protocol message functions *) |
682 |
681 |
683 val functionN = "function" |
682 val functionN = "function" |
|
683 |
|
684 val commands_accepted = [(functionN, "commands_accepted")]; |
684 |
685 |
685 val assign_update = [(functionN, "assign_update")]; |
686 val assign_update = [(functionN, "assign_update")]; |
686 val removed_versions = [(functionN, "removed_versions")]; |
687 val removed_versions = [(functionN, "removed_versions")]; |
687 |
688 |
688 fun protocol_handler name = [(functionN, "protocol_handler"), (nameN, name)]; |
689 fun protocol_handler name = [(functionN, "protocol_handler"), (nameN, name)]; |