diff options
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) -> |