diff options
Diffstat (limited to 'handy.h')
| -rw-r--r-- | handy.h | 11 |
1 files changed, 2 insertions, 9 deletions
@@ -1895,13 +1895,6 @@ END_EXTERN_C generic_LC_base_(c,utf8_locale_classnum, \ non_utf8_func( (LC_CAST_) (c))) -/* For internal core Perl use only: like generic_LC_, but also returns TRUE if - * 'c' is the platform's native underscore character */ -#define generic_LC_underscore_(c,utf8_locale_classnum,non_utf8_func) \ - generic_LC_base_(c, utf8_locale_classnum, \ - (non_utf8_func( (LC_CAST_) (c)) \ - || (char)(c) == '_')) - /* These next three are also for internal core Perl use only: case-change * helper macros. The reason for using the PL_latin arrays is in case the * system function is defective; it ensures uniform results that conform to the @@ -2007,13 +2000,13 @@ END_EXTERN_C # else # define isGRAPH_LC(c) generic_LC_(c, _CC_GRAPH, isgraph) # endif -# define isIDFIRST_LC(c) generic_LC_underscore_(c, _CC_IDFIRST, isalpha) +# define isIDFIRST_LC(c) ((c) == '_' || generic_LC_(c, _CC_IDFIRST, isalpha)) # define isLOWER_LC(c) generic_LC_(c, _CC_LOWER, islower) # define isPRINT_LC(c) generic_LC_(c, _CC_PRINT, isprint) # define isPUNCT_LC(c) generic_LC_(c, _CC_PUNCT, ispunct) # define isSPACE_LC(c) generic_LC_(c, _CC_SPACE, isspace) # define isUPPER_LC(c) generic_LC_(c, _CC_UPPER, isupper) -# define isWORDCHAR_LC(c) generic_LC_underscore_(c, _CC_WORDCHAR, isalnum) +# define isWORDCHAR_LC(c) ((c) == '_' || generic_LC_(c, _CC_WORDCHAR, isalnum)) # define isXDIGIT_LC(c) generic_LC_(c, _CC_XDIGIT, isxdigit) |