diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-07-20 10:02:23 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-07-24 21:13:49 -0600 |
| commit | 3615ea5819e869b314f723b0ce28dfb1d80017ef (patch) | |
| tree | 1862d07d1dac58fa06879af559122f524c967345 /regcomp.sym | |
| parent | 08ada29e09c8de732363dff63daf29c269ac11b3 (diff) | |
| download | perl-3615ea5819e869b314f723b0ce28dfb1d80017ef.tar.gz | |
regcomp.sym: Add new node types POSIXA and NPOSIXA
These will be used to handle things like /[[:word:]]/a. This patch
doesn't add the code to actually use these. That will be done in a
future patch.
Also, placeholders POSIXD, POSIXL, and POSIXU are also added for future
use.
Diffstat (limited to 'regcomp.sym')
| -rw-r--r-- | regcomp.sym | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/regcomp.sym b/regcomp.sym index d4a1972412..e8400b975b 100644 --- a/regcomp.sym +++ b/regcomp.sym @@ -85,6 +85,15 @@ NDIGIT NDIGIT, no 0 S ; Match any non-numeric character using native NDIGITL NDIGIT, no 0 S ; Match any non-numeric character in locale PLACEHOLDER2 NOTHING, no ; placeholder for missing NDIGITU NDIGITA NDIGIT, no 0 S ; Match [^0-9] + +POSIXD POSIXD, none 0 S ; currently unused except as a placeholder +POSIXL POSIXD, none 0 S ; currently unused except as a placeholder +POSIXU POSIXD, none 0 S ; currently unused except as a placeholder +POSIXA POSIXD, none 0 S ; Some [[:class:]] under /a; the FLAGS field gives which one +NPOSIXD POSIXD, none 0 S ; currently unused except as a placeholder +NPOSIXL POSIXD, none 0 S ; currently unused except as a placeholder +NPOSIXU POSIXD, none 0 S ; currently unused except as a placeholder +NPOSIXA POSIXD, none 0 S ; complement of POSIXA, [[:^class:]] # End of order is important (within groups) CLUMP CLUMP, no 0 V ; Match any extended grapheme cluster sequence @@ -236,7 +245,6 @@ NVERTWS NVERTWS, none 0 S ; not vertical whitespace (Perl 6) HORIZWS HORIZWS, none 0 S ; horizontal whitespace (Perl 6) NHORIZWS NHORIZWS, none 0 S ; not horizontal whitespace (Perl 6) - # NEW STUFF SOMEWHERE ABOVE THIS LINE ################################################################################ |