diff options
| author | bertot | 2004-02-13 09:21:00 +0000 |
|---|---|---|
| committer | bertot | 2004-02-13 09:21:00 +0000 |
| commit | a2e05c8fe6de43935d4a2054808db86dc575b34d (patch) | |
| tree | 4d1531bc868684881d0a372b9111f627c976fd9d /contrib/interface/vtp.ml | |
| parent | f9a8b7e91650ed4be5f9f23f384c9beb1dfa2a45 (diff) | |
adds the possibility to have terms (and not just identifiers) as hints
Adds the 'Reserved Notation' command
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5335 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface/vtp.ml')
| -rw-r--r-- | contrib/interface/vtp.ml | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/contrib/interface/vtp.ml b/contrib/interface/vtp.ml index 94d338b10d..ddf005dbd7 100644 --- a/contrib/interface/vtp.ml +++ b/contrib/interface/vtp.ml @@ -249,6 +249,14 @@ and fCOMMAND = function fID_NE_LIST x2; fID_LIST x3; fNODE "hints" 3 +| CT_hints_immediate(x1, x2) -> + fFORMULA_NE_LIST x1; + fID_LIST x2; + fNODE "hints_immediate" 2 +| CT_hints_resolve(x1, x2) -> + fFORMULA_NE_LIST x1; + fID_LIST x2; + fNODE "hints_resolve" 2 | CT_implicits(x1, x2) -> fID x1; fID_LIST_OPT x2; @@ -303,6 +311,14 @@ and fCOMMAND = function fID_NE_LIST x2; fID_LIST x3; fNODE "local_hints" 3 +| CT_local_hints_immediate(x1, x2) -> + fFORMULA_NE_LIST x1; + fID_LIST x2; + fNODE "local_hints_immediate" 2 +| CT_local_hints_resolve(x1, x2) -> + fFORMULA_NE_LIST x1; + fID_LIST x2; + fNODE "local_hints_resolve" 2 | CT_local_infix(x1, x2, x3, x4) -> fSTRING x1; fID x2; @@ -312,6 +328,10 @@ and fCOMMAND = function | CT_local_open_scope(x1) -> fID x1; fNODE "local_open_scope" 1 +| CT_local_reserve_notation(x1, x2) -> + fSTRING x1; + fMODIFIER_LIST x2; + fNODE "local_reserve_notation" 2 | CT_locate(x1) -> fID x1; fNODE "locate" 1 @@ -456,6 +476,10 @@ and fCOMMAND = function fID_NE_LIST x1; fFORMULA x2; fNODE "reserve" 2 +| CT_reserve_notation(x1, x2) -> + fSTRING x1; + fMODIFIER_LIST x2; + fNODE "reserve_notation" 2 | CT_reset(x1) -> fID x1; fNODE "reset" 1 |