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
CommitLineData
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
d10c72f2
KW
7
8#ifndef H_UTF8_STRINGS /* Guard against nested #includes */
9#define H_UTF8_STRINGS 1
10
61dad979
KW
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 */
76837d21 25
61dad979 26#define GREEK_SMALL_LETTER_IOTA_UTF8_FIRST_BYTE 0xCE /* U+03B9 */
76837d21
KW
27#define GREEK_SMALL_LETTER_IOTA_UTF8_TAIL "\xB9" /* U+03B9 */
28
61dad979 29#define GREEK_SMALL_LETTER_UPSILON_UTF8_FIRST_BYTE 0xCF /* U+03C5 */
76837d21
KW
30#define GREEK_SMALL_LETTER_UPSILON_UTF8_TAIL "\x85" /* U+03C5 */
31
61dad979
KW
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
d10c72f2
KW
37#endif /* H_UTF8_STRINGS */
38
61dad979 39/* ex: set ro: */