From 177f50c624caf811ff26642390c853f0fba1a106 Mon Sep 17 00:00:00 2001 From: herbelin Date: Tue, 23 Mar 2010 22:33:18 +0000 Subject: Added automatic expansion on the left of recursive notations (currently only one expansion but could be virtually made user-parametrizable). Also fixed a bug in recursive notations happening with multiple-tokens separators (see Notations.v in test-suite). git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12881 85f007b7-540e-0410-9357-904b9bb8a0f7 --- parsing/extend.ml | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'parsing/extend.ml') diff --git a/parsing/extend.ml b/parsing/extend.ml index 2121671a8..7643120f3 100644 --- a/parsing/extend.ml +++ b/parsing/extend.ml @@ -50,9 +50,14 @@ type ('lev,'pos) constr_entry_key_gen = | ETOther of string * string | ETConstrList of ('lev * 'pos) * Token.pattern list -type constr_prod_entry_key = - (production_level,production_position) constr_entry_key_gen +(* Entries level (left-hand-side of grammar rules) *) type constr_entry_key = (int,unit) constr_entry_key_gen + +(* Entries used in productions (in right-hand-side of grammar rules) *) +type constr_prod_entry_key = + (production_level,production_position) constr_entry_key_gen + +(* Entries used in productions, vernac side (e.g. "x bigint" or "x ident") *) type simple_constr_prod_entry_key = (production_level,unit) constr_entry_key_gen -- cgit v1.2.3