https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| 61dad979 KW |
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 | /* This file contains #defines for various Unicode code points. The values | |
| 8 | * for the macros are all or portions of the UTF-8 encoding for the code | |
| 9 | * point. Note that the names all have the suffix "_UTF8". | |
| 10 | * | |
| 11 | * The suffix "_FIRST_BYTE" may be appended to the name if the value is just | |
| 12 | * the first byte of the UTF-8 representation; the value will be a numeric | |
| 13 | * constant. | |
| 14 | * | |
| 15 | * The suffix "_TAIL" is appened if instead it represents all but the first | |
| 16 | * byte. This, and with no suffix are both string constants */ | |
| 17 | ||
| 18 | #define COMBINING_GRAVE_ACCENT_UTF8 "\xCC\x80" /* U+0300 */ | |
| 19 | #define COMBINING_ACUTE_ACCENT_UTF8 "\xCC\x81" /* U+0301 */ | |
| 20 | #define COMBINING_DIAERESIS_UTF8 "\xCC\x88" /* U+0308 */ | |
| 21 | #define GREEK_SMALL_LETTER_IOTA_UTF8_TAIL "\xB9" /* U+03B9 */ | |
| 22 | #define GREEK_SMALL_LETTER_UPSILON_UTF8_TAIL "\x85" /* U+03C5 */ | |
| 23 | #define GREEK_SMALL_LETTER_IOTA_UTF8_FIRST_BYTE 0xCE /* U+03B9 */ | |
| 24 | #define GREEK_SMALL_LETTER_UPSILON_UTF8_FIRST_BYTE 0xCF /* U+03C5 */ | |
| 25 | #define HANGUL_CHOSEONG_KIYEOK_UTF8 "\xE1\x84\x80" /* U+1100 */ | |
| 26 | #define HANGUL_JUNGSEONG_FILLER_UTF8 "\xE1\x85\xA0" /* U+1160 */ | |
| 27 | #define HANGUL_JONGSEONG_KIYEOK_UTF8 "\xE1\x86\xA8" /* U+11A8 */ | |
| 28 | #define HYPHEN_UTF8 "\xE2\x80\x90" /* U+2010 */ | |
| 29 | ||
| 30 | /* ex: set ro: */ |