From 3869d3744aa799d52922e4bd41c52c9a76013165 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 5 Jun 2002 12:57:59 +0000
Subject: Ajout d'extensions de syntaxe ARGUMENT EXTEND et VERNAC ARGUMENT
 EXTEND; rparation de la protection contre les clauses indiscernables de
 TACTIC EXTEND et VERNAC COMMAND EXTEND; rparation des grammaires de
 Extraction, EAuto, TextMode, KillProof et Derive Dependent Inversion

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2753 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/interface/centaur.ml4 | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

(limited to 'contrib/interface')

diff --git a/contrib/interface/centaur.ml4 b/contrib/interface/centaur.ml4
index e1ef0ecc15..92f6f285f8 100644
--- a/contrib/interface/centaur.ml4
+++ b/contrib/interface/centaur.ml4
@@ -484,10 +484,14 @@ let kill_node_verbose n =
 
 let set_text_mode s = text_proof_flag := s
 
+VERNAC ARGUMENT EXTEND text_mode
+| [ "fr" ] -> [ "fr" ]
+| [ "en" ] -> [ "en" ]
+| [ "Off" ] -> [ "off" ]
+END
+
 VERNAC COMMAND EXTEND TextMode
-| [ "Text" "Mode" "fr" ] -> [ set_text_mode "fr" ]
-| [ "Text" "Mode" "en" ] -> [ set_text_mode "en" ]
-| [ "Text" "Mode" "Off" ] -> [ set_text_mode "off" ]
+| [ "Text" "Mode" text_mode(s) ] -> [ set_text_mode s ]
 END
 
 VERNAC COMMAND EXTEND OutputGoal
@@ -498,8 +502,11 @@ VERNAC COMMAND EXTEND OutputGoal
   [ "Goal" "Cmd" natural(n) "with" tactic(tac) ] -> [ simulate_solve n tac ]
 END
 
-VERNAC COMMAND EXTEND KillProof
+VERNAC COMMAND EXTEND KillProofAfter
 | [ "Kill" "Proof" "after"  natural(n) ] -> [ kill_node_verbose n ]
+END
+
+VERNAC COMMAND EXTEND KillProofAt
 | [ "Kill" "Proof" "at"  natural(n) ] -> [ kill_node_verbose n ]
 END
 
-- 
cgit v1.2.3