1# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! 2# This file is machine-generated by lib/unicore/mktables from the Unicode 3# database, Version 6.3.0. Any changes made here will be lost! 4 5# !!!!!!! INTERNAL PERL USE ONLY !!!!!!! 6# This file is for internal use by core Perl only. The format and even the 7# name or existence of this file are subject to change without notice. Don't 8# use it directly. Use Unicode::UCD to access the Unicode character data 9# base. 10 11 12# The mappings must be modified to get the correct values by adding the code 13# point ordinal number to each one that is numeric. 14 15# The name this swash is to be known by, with the format of the mappings in 16# the main body of the table, and what all code points missing from this file 17# map to. 18$utf8::SwashInfo{'ToPerlDecimalDigit'}{'format'} = 'a'; # some entries need adjustment 19$utf8::SwashInfo{'ToPerlDecimalDigit'}{'missing'} = ''; # code point maps to the null string 20 21return <<'END'; 2230 39 0 23660 669 0 246F0 6F9 0 257C0 7C9 0 26966 96F 0 279E6 9EF 0 28A66 A6F 0 29AE6 AEF 0 30B66 B6F 0 31BE6 BEF 0 32C66 C6F 0 33CE6 CEF 0 34D66 D6F 0 35E50 E59 0 36ED0 ED9 0 37F20 F29 0 381040 1049 0 391090 1099 0 4017E0 17E9 0 411810 1819 0 421946 194F 0 4319D0 19D9 0 441A80 1A89 0 451A90 1A99 0 461B50 1B59 0 471BB0 1BB9 0 481C40 1C49 0 491C50 1C59 0 50A620 A629 0 51A8D0 A8D9 0 52A900 A909 0 53A9D0 A9D9 0 54AA50 AA59 0 55ABF0 ABF9 0 56FF10 FF19 0 57104A0 104A9 0 5811066 1106F 0 59110F0 110F9 0 6011136 1113F 0 61111D0 111D9 0 62116C0 116C9 0 631D7CE 1D7D7 0 641D7D8 1D7E1 0 651D7E2 1D7EB 0 661D7EC 1D7F5 0 671D7F6 1D7FF 0 68END 69