This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/utf8_strings.pl: Allow explicit default on input
[perl5.git] / utf8_strings.h
1 /* -*- buffer-read-only: t -*-
2  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
3  * This file is built by regen/utf8_strings.pl from Unicode data.
4  * Any changes made here will be lost!
5  */
6
7
8 #ifndef H_UTF8_STRINGS   /* Guard against nested #includes */
9 #define H_UTF8_STRINGS   1
10
11 /* This file contains #defines for various Unicode code points.  The values
12  * for the macros are all or portions of the UTF-8 encoding for the code
13  * point.  Note that the names all have the suffix "_UTF8".
14  *
15  * The suffix "_FIRST_BYTE" may be appended to the name if the value is just
16  * the first byte of the UTF-8 representation; the value will be a numeric
17  * constant.
18  *
19  * The suffix "_TAIL" is appened if instead it represents all but the first
20  * byte.  This, and with no suffix are both string constants */
21
22 #define COMBINING_GRAVE_ACCENT_UTF8 "\xCC\x80"    /* U+0300 */
23 #define COMBINING_ACUTE_ACCENT_UTF8 "\xCC\x81"    /* U+0301 */
24 #define COMBINING_DIAERESIS_UTF8 "\xCC\x88"    /* U+0308 */
25
26 #define GREEK_SMALL_LETTER_IOTA_UTF8_FIRST_BYTE 0xCE    /* U+03B9 */
27 #define GREEK_SMALL_LETTER_IOTA_UTF8_TAIL "\xB9"    /* U+03B9 */
28
29 #define GREEK_SMALL_LETTER_UPSILON_UTF8_FIRST_BYTE 0xCF    /* U+03C5 */
30 #define GREEK_SMALL_LETTER_UPSILON_UTF8_TAIL "\x85"    /* U+03C5 */
31
32 #define HANGUL_CHOSEONG_KIYEOK_UTF8 "\xE1\x84\x80"    /* U+1100 */
33 #define HANGUL_JUNGSEONG_FILLER_UTF8 "\xE1\x85\xA0"    /* U+1160 */
34 #define HANGUL_JONGSEONG_KIYEOK_UTF8 "\xE1\x86\xA8"    /* U+11A8 */
35 #define HYPHEN_UTF8 "\xE2\x80\x90"    /* U+2010 */
36
37 #endif /* H_UTF8_STRINGS */
38
39 /* ex: set ro: */