blob: 43d461912bc2a6edbaf90a212368e830660e1c28 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
# !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
# This file is machine-generated by mktables from the Unicode
# database, Version 7.0.0. Any changes made here will be lost!
# !!!!!!! INTERNAL PERL USE ONLY !!!!!!!
# This file is for internal use by core Perl only. The format and even the
# name or existence of this file are subject to change without notice. Don't
# use it directly. Use Unicode::UCD to access the Unicode character data
# base.
# The mappings must be modified to get the correct values by adding the code
# point ordinal number to each one that is numeric.
# The name this swash is to be known by, with the format of the mappings in
# the main body of the table, and what all code points missing from this file
# map to.
$utf8::SwashInfo{'ToPerlDecimalDigit'}{'format'} = 'a'; # some entries need adjustment
$utf8::SwashInfo{'ToPerlDecimalDigit'}{'missing'} = ''; # code point maps to the null string
return <<'END';
30 39 0
660 669 0
6F0 6F9 0
7C0 7C9 0
966 96F 0
9E6 9EF 0
A66 A6F 0
AE6 AEF 0
B66 B6F 0
BE6 BEF 0
C66 C6F 0
CE6 CEF 0
D66 D6F 0
DE6 DEF 0
E50 E59 0
ED0 ED9 0
F20 F29 0
1040 1049 0
1090 1099 0
17E0 17E9 0
1810 1819 0
1946 194F 0
19D0 19D9 0
1A80 1A89 0
1A90 1A99 0
1B50 1B59 0
1BB0 1BB9 0
1C40 1C49 0
1C50 1C59 0
A620 A629 0
A8D0 A8D9 0
A900 A909 0
A9D0 A9D9 0
A9F0 A9F9 0
AA50 AA59 0
ABF0 ABF9 0
FF10 FF19 0
104A0 104A9 0
11066 1106F 0
110F0 110F9 0
11136 1113F 0
111D0 111D9 0
112F0 112F9 0
114D0 114D9 0
11650 11659 0
116C0 116C9 0
118E0 118E9 0
16A60 16A69 0
16B50 16B59 0
1D7CE 1D7D7 0
1D7D8 1D7E1 0
1D7E2 1D7EB 0
1D7EC 1D7F5 0
1D7F6 1D7FF 0
END
|