diff options
| author | gareuselesinge | 2013-10-22 09:22:11 +0000 |
|---|---|---|
| committer | gareuselesinge | 2013-10-22 09:22:11 +0000 |
| commit | 9269fe8688aa7ca1dfa40e9900987ea4713c7227 (patch) | |
| tree | 7226a54220db25508a1ba635e6ad4933d6bfd17e /ide/coqOps.ml | |
| parent | 478e93273c3b83d0af8bdc322dd2bce8594733c0 (diff) | |
CoqIDE: display in the errors window also the slaves status
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16900 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/coqOps.ml')
| -rw-r--r-- | ide/coqOps.ml | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/ide/coqOps.ml b/ide/coqOps.ml index 8ba7c70195..af24d7f5fd 100644 --- a/ide/coqOps.ml +++ b/ide/coqOps.ml @@ -123,7 +123,7 @@ object method get_n_errors : int method get_errors : (int * string) list - method get_slaves_status : int * int + method get_slaves_status : int * int * string Int.Map.t method handle_failure : handle_exn_rty -> unit task @@ -151,6 +151,7 @@ object(self) (* proofs being processed by the slaves *) val mutable to_process = 0 val mutable processed = 0 + val mutable slaves_status = Int.Map.empty val feedbacks : feedback Queue.t = Queue.create () val feedback_timer = Ideutils.mktimer () @@ -357,6 +358,9 @@ object(self) | InProgress n, _ -> if n < 0 then processed <- processed + abs n else to_process <- to_process + n + | SlaveStatus(id,status), _ -> + log "SlaveStatus" None; + slaves_status <- Int.Map.add id status slaves_status | _ -> if sentence <> None then Minilib.log "Unsupported feedback message" @@ -519,7 +523,7 @@ object(self) | Fail x -> self#handle_failure x in Coq.bind (Coq.status ~logger:messages#push true) next - method get_slaves_status = processed, to_process + method get_slaves_status = processed, to_process, slaves_status method get_n_errors = Doc.fold_all document 0 (fun n _ _ s -> if has_flag s `ERROR then n+1 else n) |