src/Pure/PIDE/markup.ML
changeset 70665 94442fce40a5
parent 70499 f389019024ce
child 70780 034742453594
equal deleted inserted replaced
70664:2bd9e30183b1 70665:94442fce40a5
   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)];