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

3 files changed, 17 insertions, 7 deletions

diff --git a/parsing/pcoq.ml4 b/parsing/pcoq.ml4
index e0b60e6243..296c66b07a 100644
--- a/parsing/pcoq.ml4
+++ b/parsing/pcoq.ml4
@@ -343,6 +343,7 @@ module Constr =
     let operconstr = gec_constr "operconstr"
     let constr_eoi = eoi_entry constr
     let lconstr = gec_constr "lconstr"
+    let binder_constr = create_constr_entry uconstr "binder_constr"
     let ident = make_gen_entry uconstr rawwit_ident "ident"
     let global = make_gen_entry uconstr rawwit_ref "global"
     let sort = make_gen_entry uconstr rawwit_sort "sort"
diff --git a/parsing/pcoq.mli b/parsing/pcoq.mli
index 1ad4bbfd8f..c245f9fd5e 100644
--- a/parsing/pcoq.mli
+++ b/parsing/pcoq.mli
@@ -132,6 +132,7 @@ module Constr :
     val constr : constr_expr Gram.Entry.e
     val constr_eoi : constr_expr Gram.Entry.e
     val lconstr : constr_expr Gram.Entry.e
+    val binder_constr : constr_expr Gram.Entry.e
     val operconstr : constr_expr Gram.Entry.e
     val ident : identifier Gram.Entry.e
     val global : reference Gram.Entry.e
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) *)