summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/unicode_constants.h
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/unicode_constants.h')
-rwxr-xr-xsystems/texlive/tlnet/tlpkg/tlperl/lib/CORE/unicode_constants.h28
1 files changed, 22 insertions, 6 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/unicode_constants.h b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/unicode_constants.h
index b85b0fcd5a..eea66f6ba4 100755
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/unicode_constants.h
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/unicode_constants.h
@@ -22,7 +22,7 @@
* with no additional suffix are both string constants */
/*
-=head1 Unicode Support
+=for apidoc_section $unicode
=for apidoc AmnU|const char *|BOM_UTF8
@@ -82,12 +82,16 @@ bytes.
# define VT_NATIVE 0x0B /* U+000B */
# define ESC_NATIVE 0x1B /* U+001B */
# define LATIN_SMALL_LETTER_SHARP_S_NATIVE 0xDF /* U+00DF */
+# define LATIN_SMALL_LETTER_SHARP_S_UTF8 "\xC3\x9F" /* U+00DF */
# define LATIN_SMALL_LETTER_A_WITH_RING_ABOVE_NATIVE 0xE5 /* U+00E5 */
# define LATIN_CAPITAL_LETTER_A_WITH_RING_ABOVE_NATIVE 0xC5 /* U+00C5 */
# define LATIN_SMALL_LETTER_Y_WITH_DIAERESIS_NATIVE 0xFF /* U+00FF */
# define MICRO_SIGN_NATIVE 0xB5 /* U+00B5 */
-# define MAX_PRINT_A_FOR_USE_ONLY_BY_REGCOMP_DOT_C 0x7E /* The max code point that isPRINT_A */
+# define MICRO_SIGN_UTF8 "\xC2\xB5" /* U+00B5 */
+# ifdef PERL_IN_REGCOMP_C
+# define MAX_PRINT_A 0x7E /* The max code point that isPRINT_A */
+# endif
#endif /* ASCII/Latin1 */
#if 'A' == 193 /* EBCDIC 1047 */ \
@@ -125,12 +129,16 @@ bytes.
# define VT_NATIVE 0x0B /* U+000B */
# define ESC_NATIVE 0x27 /* U+001B */
# define LATIN_SMALL_LETTER_SHARP_S_NATIVE 0x59 /* U+00DF */
+# define LATIN_SMALL_LETTER_SHARP_S_UTF8 "\x8A\x73" /* U+00DF */
# define LATIN_SMALL_LETTER_A_WITH_RING_ABOVE_NATIVE 0x47 /* U+00E5 */
# define LATIN_CAPITAL_LETTER_A_WITH_RING_ABOVE_NATIVE 0x67 /* U+00C5 */
# define LATIN_SMALL_LETTER_Y_WITH_DIAERESIS_NATIVE 0xDF /* U+00FF */
# define MICRO_SIGN_NATIVE 0xA0 /* U+00B5 */
-# define MAX_PRINT_A_FOR_USE_ONLY_BY_REGCOMP_DOT_C 0xF9 /* The max code point that isPRINT_A */
+# define MICRO_SIGN_UTF8 "\x80\x64" /* U+00B5 */
+# ifdef PERL_IN_REGCOMP_C
+# define MAX_PRINT_A 0xF9 /* The max code point that isPRINT_A */
+# endif
#endif /* EBCDIC 1047 */
#if 'A' == 193 /* EBCDIC 037 */ \
@@ -168,19 +176,27 @@ bytes.
# define VT_NATIVE 0x0B /* U+000B */
# define ESC_NATIVE 0x27 /* U+001B */
# define LATIN_SMALL_LETTER_SHARP_S_NATIVE 0x59 /* U+00DF */
+# define LATIN_SMALL_LETTER_SHARP_S_UTF8 "\x80\x72" /* U+00DF */
# define LATIN_SMALL_LETTER_A_WITH_RING_ABOVE_NATIVE 0x47 /* U+00E5 */
# define LATIN_CAPITAL_LETTER_A_WITH_RING_ABOVE_NATIVE 0x67 /* U+00C5 */
# define LATIN_SMALL_LETTER_Y_WITH_DIAERESIS_NATIVE 0xDF /* U+00FF */
# define MICRO_SIGN_NATIVE 0xA0 /* U+00B5 */
-# define MAX_PRINT_A_FOR_USE_ONLY_BY_REGCOMP_DOT_C 0xF9 /* The max code point that isPRINT_A */
+# define MICRO_SIGN_UTF8 "\x78\x63" /* U+00B5 */
+# ifdef PERL_IN_REGCOMP_C
+# define MAX_PRINT_A 0xF9 /* The max code point that isPRINT_A */
+# endif
#endif /* EBCDIC 037 */
/* The number of code points not matching \pC */
-#define NON_OTHER_COUNT_FOR_USE_ONLY_BY_REGCOMP_DOT_C 143698
+#ifdef PERL_IN_REGCOMP_C
+# define NON_OTHER_COUNT 143698
+#endif
/* The highest code point that has any type of case change */
-#define HIGHEST_CASE_CHANGING_CP_FOR_USE_ONLY_BY_UTF8_DOT_C 0x1E943
+#ifdef PERL_IN_UTF8_C
+# define HIGHEST_CASE_CHANGING_CP 0x1E943
+#endif
#endif /* PERL_UNICODE_CONSTANTS_H_ */