1# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! 2# This file is machine-generated by lib/unicore/mktables from the Unicode 3# database, Version 15.0.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 table 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$Unicode::UCD::SwashInfo{'ToPerlDecimalDigit'}{'format'} = 'a'; # some entries need adjustment 19$Unicode::UCD::SwashInfo{'ToPerlDecimalDigit'}{'missing'} = ''; # code point maps to the empty 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 35DE6 DEF 0 36E50 E59 0 37ED0 ED9 0 38F20 F29 0 391040 1049 0 401090 1099 0 4117E0 17E9 0 421810 1819 0 431946 194F 0 4419D0 19D9 0 451A80 1A89 0 461A90 1A99 0 471B50 1B59 0 481BB0 1BB9 0 491C40 1C49 0 501C50 1C59 0 51A620 A629 0 52A8D0 A8D9 0 53A900 A909 0 54A9D0 A9D9 0 55A9F0 A9F9 0 56AA50 AA59 0 57ABF0 ABF9 0 58FF10 FF19 0 59104A0 104A9 0 6010D30 10D39 0 6111066 1106F 0 62110F0 110F9 0 6311136 1113F 0 64111D0 111D9 0 65112F0 112F9 0 6611450 11459 0 67114D0 114D9 0 6811650 11659 0 69116C0 116C9 0 7011730 11739 0 71118E0 118E9 0 7211950 11959 0 7311C50 11C59 0 7411D50 11D59 0 7511DA0 11DA9 0 7611F50 11F59 0 7716A60 16A69 0 7816AC0 16AC9 0 7916B50 16B59 0 801D7CE 1D7D7 0 811D7D8 1D7E1 0 821D7E2 1D7EB 0 831D7EC 1D7F5 0 841D7F6 1D7FF 0 851E140 1E149 0 861E2F0 1E2F9 0 871E4F0 1E4F9 0 881E950 1E959 0 891FBF0 1FBF9 0 90END 91