diff options
| author | herbelin | 2002-06-05 12:57:59 +0000 |
|---|---|---|
| committer | herbelin | 2002-06-05 12:57:59 +0000 |
| commit | 3869d3744aa799d52922e4bd41c52c9a76013165 (patch) | |
| tree | aadec52f9f4b80963134b2e02b125cd5a2355be8 /contrib/interface | |
| parent | f2d6c91726cefdc9860268e3e6a86a9acb50c2f6 (diff) | |
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
Diffstat (limited to 'contrib/interface')
| -rw-r--r-- | contrib/interface/centaur.ml4 | 15 |
1 files changed, 11 insertions, 4 deletions
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 |