diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-07-19 21:47:48 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-07-24 21:13:48 -0600 |
| commit | 430b7c7009472449aece84a5288fb71719d8418f (patch) | |
| tree | ceae7cf2aaff28e1ac77c0417ab49a4e268a5910 | |
| parent | ce712dffad41e08420bdc13aa14486bb92469cc2 (diff) | |
| download | perl-430b7c7009472449aece84a5288fb71719d8418f.tar.gz | |
handy.h: Add intermediate internal macro
This macro abstracts an operation, and will make future commits cleaner.
| -rw-r--r-- | handy.h | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -665,7 +665,9 @@ EXTCONST U32 PL_charclass[]; # endif /* The 1U keeps Solaris from griping when shifting sets the uppermost bit */ -# define _generic_isCC(c, bit_shift) cBOOL(FITS_IN_8_BITS(c) && (PL_charclass[(U8) NATIVE_TO_UNI(c)] & (1U << (bit_shift)))) +# define _CC_mask(classnum) (1U << (classnum)) +# define _generic_isCC(c, classnum) cBOOL(FITS_IN_8_BITS(c) \ + && (PL_charclass[(U8) NATIVE_TO_UNI(c)] & _CC_mask(classnum))) # define isALNUMC_A(c) _generic_isCC(c, _CC_ALNUMC_A) # define isALPHA_A(c) _generic_isCC(c, _CC_ALPHA_A) @@ -684,7 +686,8 @@ EXTCONST U32 PL_charclass[]; # define isXDIGIT_A(c) _generic_isCC(c, _CC_XDIGIT_A) /* Either participates in a fold with a character above 255, or is a * multi-char fold */ -# define _HAS_NONLATIN1_FOLD_CLOSURE_ONLY_FOR_USE_BY_REGCOMP_DOT_C_AND_REGEXEC_DOT_C(c) ((! cBOOL(FITS_IN_8_BITS(c))) || (PL_charclass[(U8) NATIVE_TO_UNI(c)] & (1U << _CC_NONLATIN1_FOLD))) +# define _HAS_NONLATIN1_FOLD_CLOSURE_ONLY_FOR_USE_BY_REGCOMP_DOT_C_AND_REGEXEC_DOT_C(c) ((! cBOOL(FITS_IN_8_BITS(c))) || (PL_charclass[(U8) NATIVE_TO_UNI(c)] & _CC_mask(_CC_NONLATIN1_FOLD))) + # define _isQUOTEMETA(c) _generic_isCC(c, _CC_QUOTEMETA) #else /* No perl.h. */ # ifdef EBCDIC |