From 75a5f25a31a70a6b6535f248dce5d73534b91cb6 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Fri, 18 Nov 2011 15:02:56 +0000
Subject: Making status info better in CoqIDE: path and name of current lemma

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14684 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 ide/coq.mli   |  2 +-
 ide/coqide.ml | 20 +++++++++++++++-----
 2 files changed, 16 insertions(+), 6 deletions(-)

(limited to 'ide')

diff --git a/ide/coq.mli b/ide/coq.mli
index 047a265879..b3b51d3fcf 100644
--- a/ide/coq.mli
+++ b/ide/coq.mli
@@ -48,7 +48,7 @@ val interrupter : (int -> unit) ref
 val interp :
   coqtop -> ?raw:bool -> ?verbose:bool -> string -> string Ide_intf.value
 val rewind : coqtop -> int -> int Ide_intf.value
-val status : coqtop -> string Ide_intf.value
+val status : coqtop -> Ide_intf.status Ide_intf.value
 val goals : coqtop -> Ide_intf.goals Ide_intf.value
 val inloadpath : coqtop -> string -> bool Ide_intf.value
 val mkcases : coqtop -> string -> string list list Ide_intf.value
diff --git a/ide/coqide.ml b/ide/coqide.ml
index 899d0d6cad..d224e72b56 100644
--- a/ide/coqide.ml
+++ b/ide/coqide.ml
@@ -2179,11 +2179,21 @@ let main files =
         let av = current.analyzed_view in
         ignore (f av);
         pop_info ();
-        push_info
-          (match Coq.status !(current.toplvl) with
-            | Ide_intf.Fail (l,str) ->
-	      "Oops, problem while fetching coq status."
-            | Ide_intf.Good str -> str)
+        let msg = match Coq.status !(current.toplvl) with
+        | Ide_intf.Fail (l, str) ->
+          "Oops, problem while fetching coq status."
+        | Ide_intf.Good status ->
+          let path = match status.Ide_intf.status_path with
+          | None -> ""
+          | Some p -> " in " ^ p
+          in
+          let name = match status.Ide_intf.status_proofname with
+          | None -> ""
+          | Some n -> ", proving " ^ n
+          in
+          "Ready" ^ path ^ name
+        in
+        push_info msg
       )
       [session_notebook#current_term]
   in
-- 
cgit v1.2.3