From ea7e0d8c30c3af10d51b4ca4e62320be23f7fcc6 Mon Sep 17 00:00:00 2001
From: bertot
Date: Thu, 30 Jan 2003 12:28:54 +0000
Subject: 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
---
 Makefile             | 2 +-
 parsing/g_constr.ml4 | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/Makefile b/Makefile
index 2efa0e99d5..c93b546cd4 100644
--- a/Makefile
+++ b/Makefile
@@ -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)
-- 
cgit v1.2.3