X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/93327b758a54c8e1ff7ee137a513caff4d077a7d..ef0d5f5f6ff5fd68bc3eae8895729728d5b2579b:/unicode_constants.h diff --git a/unicode_constants.h b/unicode_constants.h index dfeaacc..b85b0fc 100644 --- a/unicode_constants.h +++ b/unicode_constants.h @@ -24,7 +24,7 @@ /* =head1 Unicode Support -=for apidoc AmU|placeholder|BOM_UTF8 +=for apidoc AmnU|const char *|BOM_UTF8 This is a macro that evaluates to a string constant of the UTF-8 bytes that define the Unicode BYTE ORDER MARK (U+FEFF) for the platform that perl @@ -33,7 +33,7 @@ works on both ASCII and EBCDIC platforms. S> can be used to get its length in bytes. -=for apidoc AmU|placeholder|REPLACEMENT_CHARACTER_UTF8 +=for apidoc AmnU|const char *|REPLACEMENT_CHARACTER_UTF8 This is a macro that evaluates to a string constant of the UTF-8 bytes that define the Unicode REPLACEMENT CHARACTER (U+FFFD) for the platform that perl @@ -45,7 +45,7 @@ bytes. =cut */ -#define UNICODE_MAJOR_VERSION 11 +#define UNICODE_MAJOR_VERSION 13 #define UNICODE_DOT_VERSION 0 #define UNICODE_DOT_DOT_VERSION 0 @@ -54,8 +54,7 @@ bytes. # define LATIN_SMALL_LETTER_LONG_S_UTF8 "\xC5\xBF" /* U+017F */ # define COMBINING_GRAVE_ACCENT_UTF8 "\xCC\x80" /* U+0300 */ - -# define GREEK_CAPITAL_LETTER_IOTA_UTF8 "\xCE\x99" /* U+0399 */ +# define COMBINING_DOT_ABOVE_UTF8 "\xCC\x87" /* U+0307 */ # define LATIN_CAPITAL_LETTER_SHARP_S_UTF8 "\xE1\xBA\x9E" /* U+1E9E */ @@ -94,12 +93,11 @@ bytes. #if 'A' == 193 /* EBCDIC 1047 */ \ && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \ && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \ - && '$' == 91 && '@' == 124 && '`' == 121 + && '$' == 91 && '@' == 124 && '`' == 121 && '\n' == 21 # define LATIN_SMALL_LETTER_LONG_S_UTF8 "\x8F\x73" /* U+017F */ # define COMBINING_GRAVE_ACCENT_UTF8 "\xAF\x41" /* U+0300 */ - -# define GREEK_CAPITAL_LETTER_IOTA_UTF8 "\xB3\x68" /* U+0399 */ +# define COMBINING_DOT_ABOVE_UTF8 "\xAF\x48" /* U+0307 */ # define LATIN_CAPITAL_LETTER_SHARP_S_UTF8 "\xBF\x63\x72" /* U+1E9E */ @@ -138,12 +136,11 @@ bytes. #if 'A' == 193 /* EBCDIC 037 */ \ && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \ && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \ - && '$' == 91 && '@' == 124 && '`' == 121 + && '$' == 91 && '@' == 124 && '`' == 121 && '\n' == 37 # define LATIN_SMALL_LETTER_LONG_S_UTF8 "\x8E\x72" /* U+017F */ # define COMBINING_GRAVE_ACCENT_UTF8 "\xAD\x41" /* U+0300 */ - -# define GREEK_CAPITAL_LETTER_IOTA_UTF8 "\xB2\x67" /* U+0399 */ +# define COMBINING_DOT_ABOVE_UTF8 "\xAD\x48" /* U+0307 */ # define LATIN_CAPITAL_LETTER_SHARP_S_UTF8 "\xBF\x62\x71" /* U+1E9E */ @@ -180,7 +177,7 @@ bytes. #endif /* EBCDIC 037 */ /* The number of code points not matching \pC */ -#define NON_OTHER_COUNT_FOR_USE_ONLY_BY_REGCOMP_DOT_C 137222 +#define NON_OTHER_COUNT_FOR_USE_ONLY_BY_REGCOMP_DOT_C 143698 /* The highest code point that has any type of case change */ #define HIGHEST_CASE_CHANGING_CP_FOR_USE_ONLY_BY_UTF8_DOT_C 0x1E943