diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-09-02 10:30:32 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-09-13 21:14:00 -0600 |
| commit | ec34087a0a7a2c973993150137f0f8428541e7a0 (patch) | |
| tree | 4ed5dcda5a79d227c7b8d03d67e7a406671db2a3 /utf8.h | |
| parent | 1b0f46bfdeb9373b604bc2b77173cd26c0d37ecc (diff) | |
| download | perl-ec34087a0a7a2c973993150137f0f8428541e7a0.tar.gz | |
Remove some EBCDIC dependencies
A new regen'd header file has been created that contains the native
values for certain characters. By using those macros, we can eliminate
EBCDIC dependencies.
Diffstat (limited to 'utf8.h')
| -rw-r--r-- | utf8.h | 18 |
1 files changed, 10 insertions, 8 deletions
@@ -93,6 +93,8 @@ EXTCONST unsigned char PL_utf8skip[]; END_EXTERN_C +#include "unicode_constants.h" + /* Native character to iso-8859-1 */ #define NATIVE_TO_ASCII(ch) (ch) #define ASCII_TO_NATIVE(ch) (ch) @@ -481,6 +483,14 @@ Perl's extended UTF-8 means we can have start bytes up to FF. # define UTF8_QUAD_MAX UINT64_C(0x1000000000) #endif +#define LATIN_SMALL_LETTER_SHARP_S LATIN_SMALL_LETTER_SHARP_S_NATIVE +#define LATIN_SMALL_LETTER_Y_WITH_DIAERESIS \ + LATIN_SMALL_LETTER_Y_WITH_DIAERESIS_NATIVE +#define MICRO_SIGN MICRO_SIGN_NATIVE +#define LATIN_CAPITAL_LETTER_A_WITH_RING_ABOVE \ + LATIN_CAPITAL_LETTER_A_WITH_RING_ABOVE_NATIVE +#define LATIN_SMALL_LETTER_A_WITH_RING_ABOVE \ + LATIN_SMALL_LETTER_A_WITH_RING_ABOVE_NATIVE #define UNICODE_GREEK_CAPITAL_LETTER_SIGMA 0x03A3 #define UNICODE_GREEK_SMALL_LETTER_FINAL_SIGMA 0x03C2 #define UNICODE_GREEK_SMALL_LETTER_SIGMA 0x03C3 @@ -497,14 +507,6 @@ Perl's extended UTF-8 means we can have start bytes up to FF. #define UNI_DISPLAY_QQ (UNI_DISPLAY_ISPRINT|UNI_DISPLAY_BACKSLASH) #define UNI_DISPLAY_REGEX (UNI_DISPLAY_ISPRINT|UNI_DISPLAY_BACKSLASH) -#ifndef EBCDIC -# define LATIN_SMALL_LETTER_SHARP_S 0x00DF -# define LATIN_SMALL_LETTER_Y_WITH_DIAERESIS 0x00FF -# define MICRO_SIGN 0x00B5 -# define LATIN_CAPITAL_LETTER_A_WITH_RING_ABOVE 0x00C5 -# define LATIN_SMALL_LETTER_A_WITH_RING_ABOVE 0x00E5 -#endif - #define ANYOF_FOLD_SHARP_S(node, input, end) \ (ANYOF_BITMAP_TEST(node, LATIN_SMALL_LETTER_SHARP_S) && \ (ANYOF_NONBITMAP(node)) && \ |