This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
There's no need to special case SVt_NULL in the print code, as it's
[perl5.git]
/
utfebcdic.h
diff --git
a/utfebcdic.h
b/utfebcdic.h
index
93b598c
..
c2ecc14
100644
(file)
--- a/
utfebcdic.h
+++ b/
utfebcdic.h
@@
-1,6
+1,7
@@
/* utfebcdic.h
*
/* utfebcdic.h
*
- * Copyright (c) 2001-2002, Larry Wall, Nick Ing-Simmons
+ * Copyright (C) 2001, 2002, 2003, 2005, 2006 by Larry Wall, Nick
+ * Ing-Simmons, and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
@@
-337,9
+338,9
@@
EXTCONST unsigned char PL_a2e[];
END_EXTERN_C
END_EXTERN_C
-#define UTF8SKIP(s) PL_utf8skip[*(
U8*)s
]
+#define UTF8SKIP(s) PL_utf8skip[*(
const U8*)(s)
]
-/* EBCDIC-happy ways of converting native code to UTF8 */
+/* EBCDIC-happy ways of converting native code to UTF
-
8 */
/* Native to iso-8859-1 */
#define NATIVE_TO_ASCII(ch) PL_e2a[(U8)(ch)]
/* Native to iso-8859-1 */
#define NATIVE_TO_ASCII(ch) PL_e2a[(U8)(ch)]
@@
-357,16
+358,16
@@
END_EXTERN_C
/*
* Note: we should try and be careful never to call the isXXX_utf8() functions
* unless we're pretty sure we've seen the beginning of a UTF-EBCDIC character
/*
* Note: we should try and be careful never to call the isXXX_utf8() functions
* unless we're pretty sure we've seen the beginning of a UTF-EBCDIC character
- * Otherwise we risk loading in the heavy-duty
SWASHINIT and SWASHGET routines
- * unnecessarily.
+ * Otherwise we risk loading in the heavy-duty
swash_init and swash_fetch
+ *
routines
unnecessarily.
*/
#define isIDFIRST_lazy_if(p,c) ((IN_BYTES || (!c || UTF8_IS_INVARIANT(*p))) \
? isIDFIRST(*(p)) \
*/
#define isIDFIRST_lazy_if(p,c) ((IN_BYTES || (!c || UTF8_IS_INVARIANT(*p))) \
? isIDFIRST(*(p)) \
- : isIDFIRST_utf8((U8*)p))
+ : isIDFIRST_utf8((
const
U8*)p))
#define isALNUM_lazy_if(p,c) ((IN_BYTES || (!c || UTF8_IS_INVARIANT(*p))) \
? isALNUM(*(p)) \
#define isALNUM_lazy_if(p,c) ((IN_BYTES || (!c || UTF8_IS_INVARIANT(*p))) \
? isALNUM(*(p)) \
- : isALNUM_utf8((U8*)p))
+ : isALNUM_utf8((
const
U8*)p))
/*
The following table is adapted from tr16, it shows UTF-8-mod encoding of Unicode code points.
/*
The following table is adapted from tr16, it shows UTF-8-mod encoding of Unicode code points.