diff options
| author | barras | 2009-03-06 21:40:38 +0000 |
|---|---|---|
| committer | barras | 2009-03-06 21:40:38 +0000 |
| commit | 47ac37a3098484e3903ac07f3e15477216a57c5d (patch) | |
| tree | bb5703cdc8ad180ee5cc9e5ce8905f44de99ad1a /contrib/interface | |
| parent | 04293c47d8f1bffd2c310d4490947d6e696daa0f (diff) | |
fixed groebner as a plugin + pattern matching Timeout
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11967 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface')
| -rw-r--r-- | contrib/interface/ascent.mli | 1 | ||||
| -rw-r--r-- | contrib/interface/vtp.ml | 4 | ||||
| -rw-r--r-- | contrib/interface/xlate.ml | 1 |
3 files changed, 6 insertions, 0 deletions
diff --git a/contrib/interface/ascent.mli b/contrib/interface/ascent.mli index c2035586fb..f0b68fb7c1 100644 --- a/contrib/interface/ascent.mli +++ b/contrib/interface/ascent.mli @@ -195,6 +195,7 @@ and ct_COMMAND = | CT_test_natural_feature of ct_NATURAL_FEATURE * ct_ID | CT_theorem_struct of ct_THEOREM_GOAL * ct_PROOF_SCRIPT | CT_time of ct_COMMAND + | CT_timeout of ct_INT * ct_COMMAND | CT_undo of ct_INT_OPT | CT_unfocus | CT_unset_option of ct_TABLE diff --git a/contrib/interface/vtp.ml b/contrib/interface/vtp.ml index b9daf63574..1714440dfb 100644 --- a/contrib/interface/vtp.ml +++ b/contrib/interface/vtp.ml @@ -617,6 +617,10 @@ and fCOMMAND = function | CT_time(x1) -> fCOMMAND x1 ++ fNODE "time" 1 +| CT_timeout(n,x1) -> + fINT n ++ + fCOMMAND x1 ++ + fNODE "timeout" 2 | CT_undo(x1) -> fINT_OPT x1 ++ fNODE "undo" 1 diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index c8684a9a0e..64a9b5c8c0 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -2192,6 +2192,7 @@ let rec xlate_vernac = | VernacLocate(LocateFile s) -> CT_locate_file(CT_string s) | VernacLocate(LocateNotation s) -> CT_locate_notation(CT_string s) | VernacTime(v) -> CT_time(xlate_vernac v) + | VernacTimeout(n,v) -> CT_timeout(CT_int n,xlate_vernac v) | VernacSetOption (Goptions.SecondaryTable ("Implicit", "Arguments"), BoolValue true)->CT_user_vernac (CT_ident "IMPLICIT_ARGS_ON", CT_varg_list[]) |VernacExactProof f -> CT_proof(xlate_formula f) | VernacSetOption (table, BoolValue true) -> |