diff options
| author | gareuselesinge | 2013-09-12 16:32:07 +0000 |
|---|---|---|
| committer | gareuselesinge | 2013-09-12 16:32:07 +0000 |
| commit | de0357106fb2ce8918f666d2f237d04dd3636491 (patch) | |
| tree | 8de54d98a0c2e0ee1b81db360468cd8d43adc915 /lib/serialize.ml | |
| parent | 774159f7805bfddeb253e39bcd8271c58038ca39 (diff) | |
CoqIDE: show number of proofs being checked in background
good test: Nijmegen/QArithSternBrocot/Zaux.v
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16773 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/serialize.ml')
| -rw-r--r-- | lib/serialize.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/serialize.ml b/lib/serialize.ml index 5c818ad614..c1933ad90c 100644 --- a/lib/serialize.ml +++ b/lib/serialize.ml @@ -605,6 +605,10 @@ let to_feedback_content xml = do_match xml "feedback_content" (match args with | [loc; s] -> ErrorMsg (to_loc loc, to_string s) | _ -> raise Marshal_error) + | "inprogress" -> + (match args with + | [n] -> InProgress (to_int n) + | _ -> raise Marshal_error) | _ -> raise Marshal_error) let of_feedback_content = function @@ -620,6 +624,7 @@ let of_feedback_content = function ] | ErrorMsg(loc, s) -> constructor "feedback_content" "errormsg" [of_loc loc; of_string s] +| InProgress n -> constructor "feedback_content" "inprogress" [of_int n] let of_feedback msg = let content = of_feedback_content msg.content in |