ok
Direktori : /proc/self/root/proc/self/root/usr/share/perl5/unicore/To/ |
Current File : //proc/self/root/proc/self/root/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