diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-07-20 12:57:27 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-11-19 17:12:59 -0700 |
| commit | 1545c4e9f4193ebc9aced1810ef3c36efac5eb43 (patch) | |
| tree | b1c8e3d4b3b87cd327854cdc10bb1dffd092105d | |
| parent | 26483009bbdb96e8d6b8ecd41b2b4e8d1763869d (diff) | |
| download | perl-1545c4e9f4193ebc9aced1810ef3c36efac5eb43.tar.gz | |
handy.h: Define some macros for consistency
isWORDCHAR_uni() and isWORDCHAR_utf8() are defined for consistency with
the other isWORDCHAR...() macros
The isALNUM_foo() versions are retained for backwards compatibility
| -rw-r--r-- | handy.h | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -921,7 +921,8 @@ EXTCONST U32 PL_charclass[]; : function(c)) /* Note that all ignore 'use bytes' */ -#define isALNUM_uni(c) generic_uni(isWORDCHAR, is_uni_alnum, c) +#define isWORDCHAR_uni(c) generic_uni(isWORDCHAR, is_uni_alnum, c) +#define isALNUM_uni(c) isWORDCHAR_uni(c) #define isBLANK_uni(c) generic_uni(isBLANK, is_uni_blank, c) #define isIDFIRST_uni(c) generic_uni(isIDFIRST, is_uni_idfirst, c) #define isALPHA_uni(c) generic_uni(isALPHA, is_uni_alpha, c) @@ -976,7 +977,8 @@ EXTCONST U32 PL_charclass[]; /* Note that all assume that the utf8 has been validated, and ignore 'use * bytes' */ -#define isALNUM_utf8(p) generic_utf8(isWORDCHAR, is_utf8_alnum, p) +#define isWORDCHAR_utf8(p) generic_utf8(isWORDCHAR, is_utf8_alnum, p) +#define isALNUM_utf8(p) isWORDCHAR_utf8(p) /* back compat */ /* To prevent S_scan_word in toke.c from hanging, we have to make sure that * IDFIRST is an alnum. See * http://rt.perl.org/rt3/Ticket/Display.html?id=74022 for more detail than you |