diff options
| author |  aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-11-02 15:35:43 +0000 |
|---|---|---|
| committer | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-11-02 15:35:43 +0000 |
| commit | 386d36deb6efb755cdd16ad216361e01e0b7662e (patch) | |
| tree | ad4a3063b901c508d759f9a9b9660a1e04dc1c3d /printing/ppvernac.ml | |
| parent | e6404437c1f6ae451f4253cd3450f75513b395c3 (diff) | |
Adds a new goal selector "all:".
all:tac applies tac to all the focused subgoals.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16982 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing/ppvernac.ml')
| -rw-r--r-- | printing/ppvernac.ml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index 6cfa6d47f..1ffa8275a 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -773,7 +773,13 @@ let rec pr_vernac = function prlist_with_sep (fun () -> str " <+ ") pr_m mexprs) (* Solving *) | VernacSolve (i,tac,deftac) -> - (if Int.equal i 1 then mt() else int i ++ str ": ") ++ + let pr_goal_selector = function + | SelectNth i -> int i ++ str":" + | SelectAll -> str"all" ++ str":" + in + (* arnaud: attention à imprimer correctement en fonction + de la (future) option pour le sélecteur par défaut *) + (if i = SelectNth 1 then mt() else pr_goal_selector i) ++ pr_raw_tactic tac ++ (if deftac then str ".." else mt ()) | VernacSolveExistential (i,c) -> |