diff options
| author | bertot | 2003-01-30 12:28:54 +0000 |
|---|---|---|
| committer | bertot | 2003-01-30 12:28:54 +0000 |
| commit | ea7e0d8c30c3af10d51b4ca4e62320be23f7fcc6 (patch) | |
| tree | 5edef96ca98379f3f31808e42cac123c7b292fd3 /parsing | |
| parent | 2d5681c38f449b04da10880823efbbc4561d12ba (diff) | |
Adds a possibility to construct a term as if it had been parsed through
a user-defined notation, but without actually using the notation.
Changes the files needed to construct the parser : file lib/stamps does not
seem to be used.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3631 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_constr.ml4 | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/parsing/g_constr.ml4 b/parsing/g_constr.ml4 index d98388fd7f..3413af8e25 100644 --- a/parsing/g_constr.ml4 +++ b/parsing/g_constr.ml4 @@ -173,6 +173,8 @@ GEXTEND Gram CFix (loc, id, fbinders) | IDENT "CoFix"; id = identref; "{"; fbinders = cofixbinders; "}" -> CCoFix (loc, id, fbinders) + | IDENT "Prefix" ; "(" ; s = STRING ; cl = LIST0 constr ; ")" -> + CNotation(loc, s, cl) | s = sort -> CSort (loc, s) | v = global -> CRef v | n = bigint -> CNumeral (loc,n) |