diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-09-23 15:08:06 -0600 |
|---|---|---|
| committer | Steffen Mueller <smueller@cpan.org> | 2010-09-25 11:15:31 +0200 |
| commit | 6515cb768b9ba9ee45adf10632fd8708c91ee5fe (patch) | |
| tree | 548012f4739f671de69ad234e196594945ccbf7c | |
| parent | 49323284eb24d83209492c7d2720176fb56f68f6 (diff) | |
| download | perl-6515cb768b9ba9ee45adf10632fd8708c91ee5fe.tar.gz | |
handy.h: move macro in file
| -rw-r--r-- | handy.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -510,6 +510,8 @@ patched there. The file as of this writing is cpan/Devel-PPPort/parts/inc/misc # define FITS_IN_8_BITS(c) ((sizeof(c) == 1) || (((U32)(c) & 0xFF) == (U32)(c))) #endif +#define isASCII(c) (FITS_IN_8_BITS(c) ? NATIVE_TO_UNI((U8) c) <= 127 : 0) + #define isALNUM(c) isWORDCHAR(c) #define isALNUMU(c) isWORDCHAR_L1(c) #define isALPHA(c) (isUPPER(c) || isLOWER(c)) @@ -523,7 +525,6 @@ patched there. The file as of this writing is cpan/Devel-PPPort/parts/inc/misc || NATIVE_TO_UNI((U8) c) == 0xAA \ || NATIVE_TO_UNI((U8) c) == 0xB5 \ || NATIVE_TO_UNI((U8) c) == 0xBA))) -#define isASCII(c) (FITS_IN_8_BITS(c) ? NATIVE_TO_UNI((U8) c) <= 127 : 0) /* continuation character for legal NAME in \N{NAME} */ #define isCHARNAME_CONT(c) (isALNUMU(c) || (c) == ' ' || (c) == '-' || (c) == '(' || (c) == ')' || (c) == ':' || NATIVE_TO_UNI((U8) c) == 0xA0) |