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 | |
| 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
| -rw-r--r-- | Makefile | 2 | ||||
| -rw-r--r-- | parsing/g_constr.ml4 | 2 |
2 files changed, 3 insertions, 1 deletions
@@ -227,7 +227,7 @@ PARSERREQUIRES=\ interp/constrextern.cmo parsing/egrammar.cmo parsing/esyntax.cmo \ toplevel/metasyntax.cmo parsing/g_prim.cmo parsing/g_basevernac.cmo \ parsing/ppconstr.cmo parsing/printer.cmo parsing/pptactic.cmo \ - lib/stamps.cmo pretyping/typing.cmo proofs/proof_trees.cmo \ + pretyping/typing.cmo proofs/proof_trees.cmo \ proofs/logic.cmo proofs/refiner.cmo proofs/evar_refiner.cmo \ proofs/tacmach.cmo toplevel/himsg.cmo parsing/g_natsyntax.cmo \ parsing/g_zsyntax.cmo parsing/g_rsyntax.cmo toplevel/class.cmo \ 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) |