diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-23 22:33:18 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-23 22:33:18 +0000 |
| commit | 177f50c624caf811ff26642390c853f0fba1a106 (patch) | |
| tree | 5053ccdac32d2d3e9407ac96283b2d43e517c9a8 /parsing/extend.ml | |
| parent | ba124d6092143b3e76ec02aaf0b985eb50ad5e20 (diff) | |
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
Diffstat (limited to 'parsing/extend.ml')
| -rw-r--r-- | parsing/extend.ml | 9 |
1 files changed, 7 insertions, 2 deletions
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 |