This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
handy.h: Add isALNUM_L1() macro
authorKarl Williamson <public@khwilliamson.com>
Thu, 23 Sep 2010 18:16:12 +0000 (12:16 -0600)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 24 Sep 2010 05:24:42 +0000 (22:24 -0700)
This is a synonym for isALNUMU

handy.h

diff --git a/handy.h b/handy.h
index 7bacab3..449ec0f 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -524,6 +524,7 @@ patched there.  The file as of this writing is cpan/Devel-PPPort/parts/inc/misc
        || NATIVE_TO_UNI((U8) c) == 0xB5 \
        || NATIVE_TO_UNI((U8) c) == 0xBA)))
 #define isALNUMU(c)    (isDIGIT(c) || isALPHAU(c) || (c) == '_')
        || NATIVE_TO_UNI((U8) c) == 0xB5 \
        || NATIVE_TO_UNI((U8) c) == 0xBA)))
 #define isALNUMU(c)    (isDIGIT(c) || isALPHAU(c) || (c) == '_')
+#define isALNUM_L1(c)  isALNUMU(c)
 
 /* 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)
 
 /* 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)