From 6d42453dea17a8bd35530bf793344570ff9fc055 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 17 Feb 2004 09:23:50 +0000
Subject: Ajout de lconstr, constr et binder_constr dans Print Grammar constr

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5355 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/metasyntax.ml | 22 +++++++++++++++-------
 1 file changed, 15 insertions(+), 7 deletions(-)

(limited to 'toplevel')

diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml
index 0ded5150d3..50e3f62607 100644
--- a/toplevel/metasyntax.ml
+++ b/toplevel/metasyntax.ml
@@ -215,13 +215,21 @@ let print_grammar univ entry =
     let te,_,_ = get_constr_entry false typ in
     Gram.Entry.print te
   else
-    let te = 
-      match entry with
-	| "constr" | "operconstr" -> weaken_entry Pcoq.Constr.operconstr
-	| "pattern" -> weaken_entry Pcoq.Constr.pattern
-	| "tactic" -> weaken_entry Pcoq.Tactic.simple_tactic
-	| _ -> error "Unknown or unprintable grammar entry" in
-    Gram.Entry.print te
+    match entry with
+      | "constr" | "operconstr" | "binder_constr" ->
+	  msgnl (str "Entry constr is");
+	  Gram.Entry.print Pcoq.Constr.constr;
+	  msgnl (str "and lconstr is");
+	  Gram.Entry.print Pcoq.Constr.lconstr;
+	  msgnl (str "where binder_constr is");
+	  Gram.Entry.print Pcoq.Constr.binder_constr;
+	  msgnl (str "and operconstr is");
+	  Gram.Entry.print Pcoq.Constr.operconstr;
+      | "pattern" ->
+	  Gram.Entry.print Pcoq.Constr.pattern
+      | "tactic" -> 
+	  Gram.Entry.print Pcoq.Tactic.simple_tactic
+      | _ -> error "Unknown or unprintable grammar entry"
 
 (* Parse a format (every terminal starting with a letter or a single
    quote (except a single quote alone) must be quoted) *)
-- 
cgit v1.2.3