Current File : //usr/share/perl5/unicore/To/PerlDeci.pl
# !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
# This file is machine-generated by lib/unicore/mktables from the Unicode
# database, Version 6.1.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.
# 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';
0030 0039 0
0660 0669 0
06F0 06F9 0
07C0 07C9 0
0966 096F 0
09E6 09EF 0
0A66 0A6F 0
0AE6 0AEF 0
0B66 0B6F 0
0BE6 0BEF 0
0C66 0C6F 0
0CE6 0CEF 0
0D66 0D6F 0
0E50 0E59 0
0ED0 0ED9 0
0F20 0F29 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
AA50 AA59 0
ABF0 ABF9 0
FF10 FF19 0
104A0 104A9 0
11066 1106F 0
110F0 110F9 0
11136 1113F 0
111D0 111D9 0
116C0 116C9 0
1D7CE 1D7D7 0
1D7D8 1D7E1 0
1D7E2 1D7EB 0
1D7EC 1D7F5 0
1D7F6 1D7FF 0
END
Mini Shell