/[suikacvs]/perl/charclass/lib/Char/Class/UCS-src.upl
Suika

Contents of /perl/charclass/lib/Char/Class/UCS-src.upl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (hide annotations) (download)
Thu Jul 19 13:26:22 2007 UTC (17 years, 4 months ago) by wakaba
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +8 -2 lines
++ ChangeLog	19 Jul 2007 13:21:24 -0000
2007-07-19  Wakaba  <wakaba@suika.fam.cx>

	* Makefile.PL: Updated.

	* readme.en.html: New document.

	* .htaccess: New file.

	* release/: New directory.

	* MANIFEST.SKIP: New file.

	* cvscommit.sh: New file.

++ charclass/lib/Char/Class/ChangeLog	19 Jul 2007 13:26:07 -0000
2007-07-19  Wakaba  <wakaba@suika.fam.cx>

	* JISX0221-src.upl (SEE ALSO): Links to |Char::Class::UCS|
	and |Char::Class::RFC1815| are added.

	* Makefile (%.html): New rule.
	(all): Make HTML files.
	(MODULES): |JaInput.pm| was missing.
	(clean): Call |clean-pod|.  Don't delete generated Perl modules.
	(clean-pod): New rule.
	(distclean): New.  (Note that the rule name is incorrect!)

	* RFC1815-src.upl (SEE ALSO): Links to |Char::Class::UCS|
	and |Char::Class::JISX0221| are added.

	* UCS-src.upl (SEE ALSO): Links to |Char::Class::JISX0221|
	and |Char::Class::RFC1815| are added.

	* mkpm.pl (generated pod's NAME): Was generated with a bad style.
	(generated pod's COLLECTION NAMES): |=back| was missing.
	(generated pod's EXAMPLE): Use a real class name.  Note that
	this does not work for e.g. Kana.

++ charclass/t/ChangeLog	19 Jul 2007 11:57:39 -0000
2007-07-19  Wakaba  <wakaba@suika.fam.cx>

	* perlbug.t: Number of tests were wrong.

1 wakaba 1.1 #!/usr/local/bin/perl
2     use utf8; ## This file is written in UTF-8
3     use strict;
4     require 'mkpm.pl';
5     use vars qw(%PROP %SET %SET_ALIAS);
6     $PROP{module_name} = 'UCS';
7 wakaba 1.3 $PROP{version} = do{my @r=(q$Revision: 1.2 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
8 wakaba 1.1 $PROP{author_name} = 'Wakaba';
9     $PROP{author_mail} = 'w@suika.fam.cx';
10    
11 wakaba 1.3 $PROP{pod_see_also} = <<EOH;
12     L<Char::Class::JISX0221>
13    
14     L<Char::Class::RFC1815>
15     EOH
16    
17 wakaba 1.1 my $l = <<EOH;
18     1 BASIC LATIN 0020 - 007E
19     2 LATIN-1 SUPPLEMENT 00A0 - 00FF
20     3 LATIN EXTENDED-A 0100 - 017F
21     4 LATIN EXTENDED-B 0180 - 024F
22     6 SPACING MODIFIER LETTERS 02B0 - 02FF
23     7 COMBINING DIACRITICAL MARKS 0300 - 036F
24     8 BASIC GREEK 0370 - 03CF
25     9 GREEK SYMBOLS AND COPTIC 03D0 - 03FF
26     10 CYRILLIC 0400 - 04FF
27     11 ARMENIAN 0530 - 058F
28     12 BASIC HEBREW 05D0 - 05EA
29     13 HEBREW EXTENDED 0590 - 05CF, 05EB - 05FF
30     14 BASIC ARABIC 0600 - 065F
31     15 ARABIC EXTENDED 0660 - 06FF
32     16 DEVANAGARI 0900 - 097F, 200C, 200D
33     17 BENGALI 0980 - 09FF,200C, 200D
34     18 GURMUKHI 0A00 - 0A7F,200C, 200D
35     19 GUJARATI 0A80 - 0AFF,200C, 200D
36     20 ORIYA 0B00 - 0B7F,200C, 200D
37     21 TAMIL 0B80 - 0BFF,200C, 200D
38     22 TELUGU 0C00 - 0C7F,200C, 200D
39     23 KANNADA 0C80 - 0CFF,200C, 200D
40     24 MALAYALAM 0D00 - 0D7F,200C, 200D
41     25 THAI 0E00 - 0E7F
42     26 LAO 0E80 - 0EFF
43     27 BASIC GEORGIAN 10D0 - 10FF
44     28 GEORGIAN EXTENDED 10A0 - 10CF
45     29 HANGUL JAMO 1100 - 11FF
46     30 LATIN EXTENDED ADDITIONAL 1E00 - 1EFF
47     31 GREEK EXTENDED 1F00 - 1FFF
48     32 GENERAL PUNCTUATION 2000 - 206F
49     33 SUPERSCRIPTS AND SUBSCRIPTS 2070 - 209F
50     34 CURRENCY SYMBOLS 20A0 - 20CF
51     35 COMBINING DIACRITICAL MARKS FOR SYMBOLS 20D0 - 20FF
52     36 LETTERLIKE SYMBOLS 2100 - 214F
53     37 NUMBER FORMS 2150 - 218F
54     38 ARROWS 2190 - 21FF
55     39 MATHEMATICAL OPERATORS 2200 - 22FF
56     40 MISCELLANEOUS TECHNICAL 2300 - 23FF
57     41 CONTROL PICTURES 2400 - 243F
58     42 OPTICAL CHARACTER RECOGNITION 2440 - 245F
59     43 ENCLOSED ALPHANUMERICS 2460 - 24FF
60     44 BOX DRAWING 2500 - 257F
61     45 BLOCK ELEMENTS 2580 - 259F
62     46 GEOMETRIC SHAPES 25A0 - 25FF
63     47 MISCELLANEOUS SYMBOLS 2600 - 26FF
64     48 DINGBATS 2700 - 27BF
65     49 CJK SYMBOLS AND PUNCTUATION 3000 - 303F
66     50 HIRAGANA 3040 - 309F
67     51 KATAKANA 30A0 - 30FF
68     52 BOPOMOFO 3100 - 312F,31A0 - 31BF
69     53 HANGUL COMPATIBILITY JAMO 3130 - 318F
70     54 CJK MISCELLANEOUS 3190 - 319F
71     55 ENCLOSED CJK LETTERS AND MONTHS 3200 - 32FF
72     56 CJK COMPATIBILITY 3300 - 33FF
73     ## 57-59 were deleted at ISO/IEC 10646-1:1993 Amd.5 (so-called Korean mess)
74     57 Basic Hangul 3400-3D3D
75     58 Supplemental Hangul A 3D2E-44B7
76     58 Supplemental Hangul B 44BE-4DFF
77     60 CJK UNIFIED IDEOGRAPHS 4E00 - 9FFF
78     61 PRIVATE USE AREA E000 - F8FF
79     62 CJK COMPATIBILITY IDEOGRAPHS F900 - FAFF
80     63 ALPHABETIC PRESENTATION FORMS FB00 - FB4F
81     64 ARABIC PRESENTATION FORMS-A FB50 - FDFF
82     65 COMBINING HALF MARKS FE20 - FE2F
83     66 CJK COMPATIBILITY FORMS FE30 - FE4F
84     67 SMALL FORM VARIANTS FE50 - FE6F
85     68 ARABIC PRESENTATION FORMS-B FE70 - FEFE
86     69 HALFWIDTH AND FULLWIDTH FORMS FF00 - FFEF
87     70 SPECIALS FFF0 - FFFD
88     71 HANGUL SYLLABLES AC00 - D7A3
89     72 BASIC TIBETAN 0F00 - 0FBF
90     73 ETHIOPIC 1200 - 137F
91     74 UNIFIED CANADIAN ABORIGINAL SYLLABICS 1400 - 167F
92     75 CHEROKEE 13A0 - 13FF
93     76 YI SYLLABLES A000 - A48F
94     77 YI RADICALS A490 - A4CF
95     78 KANGXI RADICALS 2F00 - 2FDF
96     79 CJK RADICALS SUPPLEMENT 2E80 - 2EFF
97     80 BRAILLE PATTERNS 2800 - 28FF
98     81 CJK UNIFIED IDEOGRAPHS EXTENSION A 3400 - 4DBF
99     82 OGHAM 1680 - 169F
100     83 RUNIC 16A0 - 16FF
101     84 SINHALA 0D80 - 0DFF
102     85 SYRIAC 0700 - 074F
103     86 THAANA 0780 - 07BF
104     87 BASIC MYANMAR 1000 - 104F,200C, 200D
105     88 KHMER 1780 - 17FF,200C, 200D
106     89 MONGOLIAN 1800 - 18AF
107     90 EXTENDED MYANMAR 1050 - 109F
108     91 TIBETAN 0F00 - 0FFF
109     200 ZERO-WIDTH BOUNDARY INDICATORS 200B - 200D,FEFF
110     201 FORMAT SEPARATORS 2028 - 2029
111     202 BI-DIRECTIONAL FORMAT MARKS 200E - 200F
112     203 BI-DIRECTIONAL FORMAT EMBEDDINGS 202A - 202E
113     204 HANGUL FILL CHARACTERS 3164, FFA0
114     205 CHARACTER SHAPING SELECTORS 206A - 206D
115     206 NUMERIC SHAPE SELECTORS 206E - 206F
116     207 IDEOGRAPHIC DESCRIPTION CHARACTERS 2FF0 - 2FFF
117     #270 COMBINING CHARACTERS
118     #271 COMBINING CHARACTERS B-2
119     ## 92-101,180,10646 ISO/IEC 10646-1:2000 Amd.1
120     180 CJK UNIFIED IDEOGRAPHS ALL 3400-4DBF,4E00-9FFF,FA0E-FA0F,FA11,FA14-FA14,FA1F,FA21,FA23-FA24,FA27-FA29,20000-2A6DF
121     10646 UNICODE 0000-FDCF,FDF0-FFFD,10000-1FFFD,20000-2FFFD,E0000-EFFFD,F0000-FFFFD,100000-10FFFD
122     92 CYRILLIC SUPPLEMENTARY 0500-052F
123     93 TAGALOG 1700-171F
124     94 HANUNOO 1720-173F
125     95 BUHID 1740-175F
126     96 TAGBANWA 1760-177F
127     97 SUPPLEMENTAL ARROWS 2900-297F
128     98 MISCLLANEOUS MATHMATICAL SYMBOLS 2980-29FF
129     99 SUPPLEMENTAL MATHMATICAL OPERATORS 2A00-2AFF
130     100 KATAKANA PHONETIC EXTENSIONS 31F0-31FF
131     101 VARIATION SELECTORS FE00-FE0F
132     ## 104-108 ISO/IEC 10646-1:2000 Amd.2
133     104 LIMBU 1900-194F
134     105 TAI LE 1950-197F
135     106 SUPPLEMENTAL ARROWS-C 2B00-2B2F
136     107 SUPPLEMENTAL CJK COMPATIBILITY 31C0-31EF
137     108 YIJING HEXAGRAM SYMBOLS 4DC0-4DFF
138     ## 1001-4000 ISO/IEC 10646-2:2001
139     1001 ETRUSCAN 010300-01032F
140     1002 GOTHIC 010330-01034F
141     1003 DESERET 010400-01044F
142     1004 BYZANTINE MUSICAL SYMBOLS 01D000-01D0FF
143     1005 WESTERN MUSICAL SYMBOLS 01D100-01D1FF
144     2001 CJK UNIFIED IDEOGRAPHS EXTENSION B 020000-02A71F
145     ## Note: ISO/IEC 10646-2:2000 incorrectly gave collection No. 2001 to
146     ## CJK COMP. ID. SUPPLEMENT. This was fixed by its Amd.1.
147     2002 CJK COMPATIBILITY IDEOGRAPHS SUPPLEMENT 02F800-02FA1F
148     3001 TAGS 0E0000-0E007F
149     3002 ALTERNATE FORMAT CHARACTERS EXTENDED 0E0000-0E0FFF
150     1000 SMP 010000-01FFFD
151     #1900 SMP COMBINING CHARACTERS
152     2000 SIP 020000-02FFFD
153     3000 SPP 0E0000-0EFFFD
154     4000 PART 2 010000-01FFFD,020000-02FFFD,0E0000-0EFFFD
155     ## 1007-3002 ISO/IEC 10646-2:2001 Amd.1
156     1007 LINEAR B SYLLABARY 10000-1007F
157     1008 LINEAR B IDEOGRAMS 10080-100FF
158     1009 AEGAN NUMBERS 10100-1013F
159     1010 UGARITIC 10380-1039F
160     1011 SHAVIAN 10450-1047F
161     1012 OSMANYA 10480-104AF
162     1013 CYPRIOT SYLLABARY 10800-1083F
163     3002 VARIATION SELECTORS SUPPLEMENT E0110-E01FF
164     EOH
165    
166     for (split /\n/, $l) {
167     if (/^(\d+)\s([^\t]+)\t(.+)/) {
168     my ($num, $name, $range) = ($1, lc $2, $3);
169     $name =~ s/\bcjk\b/CJK/;
170     $name =~ s/[\x20-](\w)/uc $1/ge; $name =~ s/^(\w)/uc $1/e;
171     $name =~ s/^([A-Z][A-Z])/_$1/;
172     $range =~ tr/\x20//d;
173     my @range;
174     for (split /,/, $range) {
175     if (/([0-9A-F]+)-([0-9A-F]+)/) {
176     push @range, sprintf '!%s %s '."\n", $1, $2;
177     } else {
178     push @range, '!'.$_."\n";
179     }
180     }
181     $SET{$name} = join '', @range;
182     $SET_ALIAS{$num} = $name;
183     }
184     }
185    
186     $SET{IPAExtensions} = <<EOH;
187     !0250 02AF
188     EOH
189     $SET_ALIAS{5} = 'IPAExtensions';
190    
191     $SET{_BMP} = <<EOH;
192     !0000 D7FF
193     !E000 FFFD
194     EOH
195     $SET_ALIAS{300} = '_BMP';
196    
197     ## 299 BMP FIRST EDITION (ISO/IEC 10646-1:2000 A.3.2)
198     $SET_ALIAS{299} = '_BMPFirstEdition';
199     $SET{_BMPFirstEdition} = col2list (<<EOH) . <<EOH;
200     00 20-7E A0-FF
201     01 00-F5 FA-FF
202     02 00-17 50-A8 B0-DE E0-E9
203     03 00-45 60-61 74-75 7A 7E 84-8A 8C 8E-A1
204     03 A3-CE D0-D6 DA DC DE E0 E2-F3
205     04 01-0C 0E-4F 51-5C 5E-86 90-C4 C7-C8 CB-CC D0-EB EE-F5 F8-F9
206     05 31-56 59-5F 61-87 89 B0-B9 BB-C3 D0-EA F0-F4
207     06 0C 1B 1F 21-3A 40-52 60-6D 70-B7 BA-BE C0-CE D0-ED F0-F9
208     09 01-03 05-39 3C-4D 50-54 58-70 81-83 85-8C
209     09 8F-90 93-A8 AA-B0 B2 B6-B9 BC BE-C4
210     09 C7-C8 CB-CD D7 DC-DD DF-E3 E6-FA
211     0A 02 05-0A 0F-10 13-28 2A-30 32-33 35-36
212     0A 38-39 3C 3E-42 47-48 4B-4D 59-5C 5E 66-74
213     0A 81-83 85-8B 8D 8F-91 93-A8 AA-B0 B2-B3
214     0A B5-B9 BC-C5 C7-C9 CB-CD D0 E0 E6-EF
215     0B 01-03 05-0C 0F-10 13-28 2A-30 32-33 36-39
216     0B 3C-43 47-48 4B-4D 56-57 5C-5D 5F-61 66-70
217     0B 82-83 85-8A 8E-90 92-25 99-9A 9C 9E-9F
218     0B A3-A4 A8-AA AE-B5 B7-B9 BE-C2 C6-C8 CA-CD D7 E7-F2
219     0C 01-03 05-0C 0E-10 12-28 2A-33 35-39 3E-44
220     0C 46-48 4A-4D 55-56 60-61 66-6F 82-83 85-8C
221     0C 8E-90 92-A8 AA-B3 B5-B9 BE-C4 C6-C8 CA-CD D5-D6 DE E0-E1 E6-EF
222     0D 02-03 05-0C 0E-10 12-28 2A-39 3E-43 46-48 4A-4D 57 60-61 66-6F
223     0E 01-3A 3F-5B 81-82 84 87-88 8A 8D 94-97
224     0E 99-9F A1-A3 A5 A7 AA-AB AD-B9 BB-BD C0-C4 C6 C8-CD D0-D9 DC-DD
225     10 A0-C5 D0-F6 FB
226     11 00-59 5F-A2 A8-F9
227     1E 00-9A A0-F9
228     1F 00-15 18-1D 20-45 48-4D 50-57 59 5B 5D
229     1F 5F-7D 80-B4 B6-C4 C6-D3 D6-DB DD-EF F2-F4 F6-FE
230     20 00-2E 30-46 6A-70 74-8E A0-AA D0-E1
231     21 00-38 53-82 90-EA
232     22 00-F1
233     23 00 02-7A
234     24 00-24 40-4A 60-EA
235     25 00-95 A0-EF
236     26 00-13 1A-6F
237     27 01-04 06-09 0C-27 29-4B 4D 4F-52 56 58-5E 61-67 76-94 98-AF B1-BE
238     30 00-37 3F 41-94 99-9E A1-FE
239     31 05-2C 31-8E 90-9F
240     32 00-1C 20-43 60-7B 7F-B0 C0-CB D0-FE
241     33 00-76 7B-DD E0-FE
242     FB 00-06 13-17 1E-36 38-3C 3E 40-41 43-44 46-B1 D3-FF
243     FC 00-FF
244     FD 00-3F 50-8F 92-C7 F0-FB
245     FE 20-23 30-44 49-52 54-66 68-6B 70-72 74 76-FC FF
246     FF 01-5E 61-BE C2-C7 CA-CF D2-D7 DA-DC E0-E6 E8-EE FD
247     EOH
248     !3400 4DFF
249     !4E00 9FA5
250     !E000 F8FF
251     !F900 FA2D
252     EOH
253    
254     ## 301 BMP-AMD.7 (ISO/IEC 10646-1:2000 A.3.1)
255     $SET_ALIAS{301} = '_BMP_AMD7';
256     $SET{_BMP_AMD7} = col2list (<<EOH) . <<EOH;
257     00 20-7E A0-FF
258     01 00-F5 FA-FF
259     02 00-17 50-A8 B0-DE E0-E9
260     03 00-45 60-61 74-75 7A 7E 84-8A 8C 8E-A1
261     03 A3-CE D0-D6 DA DC DE E0 E2-F3
262     04 01-0C 0E-4F 51-5C 5E-86 90-C4 C7-C8 CB-CC D0-EB EE-F5 F8-F9
263     05 31-56 59-5F 61-87 89 91-A1 A3-B9 BB-C4 D0-EA F0-F4
264     06 0C 1B 1F 21-3A 40-52 60-6D 70-B7 BA-BE C0-CE D0-ED F0-F9
265     09 01-03 05-39 3C-4D 50-54 58-70 81-83 85-8C
266     09 8F-90 93-A8 AA-B0 B2 B6-B9 BC BE-C4
267     09 C7-C8 CB-CD D7 DC-DD DF-E3 E6-FA
268     0A 02 05-0A 0F-10 13-28 2A-30 32-33 35-36
269     0A 38-39 3C 3E-42 47-48 4B-4D 59-5C 5E 66-74
270     0A 81-83 85-8B 8D 8F-91 93-A8 AA-B0 B2-B3
271     0A B5-B9 BC-C5 C7-C9 CB-CD D0 E0 E6-EF
272     0B 01-03 05-0C 0F-10 13-28 2A-30 32-33 36-39
273     0B 3C-43 47-48 4B-4D 56-57 5C-5D 5F-61 66-70
274     0B 82-83 85-8A 8E-90 92-25 99-9A 9C 9E-9F
275     0B A3-A4 A8-AA AE-B5 B7-B9 BE-C2 C6-C8 CA-CD D7 E7-F2
276     0C 01-03 05-0C 0E-10 12-28 2A-33 35-39 3E-44
277     0C 46-48 4A-4D 55-56 60-61 66-6F 82-83 85-8C
278     0C 8E-90 92-A8 AA-B3 B5-B9 BE-C4 C6-C8 CA-CD D5-D6 DE E0-E1 E6-EF
279     0D 02-03 05-0C 0E-10 12-28 2A-39 3E-43 46-48 4A-4D 57 60-61 66-6F
280     0E 01-3A 3F-5B 81-82 84 87-88 8A 8D 94-97
281     0E 99-9F A1-A3 A5 A7 AA-AB AD-B9 BB-BD C0-C4 C6 C8-CD D0-D9 DC-DD
282     0F 00-47 49-69 71-8B 90-95 97 99-AD B1-B7 B9
283     10 A0-C5 D0-F6 FB
284     11 00-59 5F-A2 A8-F9
285     1E 00-9B A0-F9
286     1F 00-15 18-1D 20-45 48-4D 50-57 59 5B 5D
287     1F 5F-7D 80-B4 B6-C4 C6-D3 D6-DB DD-EF F2-F4 F6-FE
288     20 00-2E 30-46 6A-70 74-8E A0-AB D0-E1
289     21 00-38 53-82 90-EA
290     22 00-F1
291     23 00 02-7A
292     24 00-24 40-4A 60-EA
293     25 00-95 A0-EF
294     26 00-13 1A-6F
295     27 01-04 06-09 0C-27 29-4B 4D 4F-52 56 58-5E 61-67 76-94 98-AF B1-BE
296     30 00-37 3F 41-94 99-9E A1-FE
297     31 05-2C 31-8E 90-9F
298     32 00-1C 20-43 60-7B 7F-B0 C0-CB D0-FE
299     33 00-76 7B-DD E0-FE
300     FB 00-06 13-17 1E-36 38-3C 3E 40-41 43-44 46-B1 D3-FF
301     FC 00-FF
302     FD 00-3F 50-8F 92-C7 F0-FB
303     FE 20-23 30-44 49-52 54-66 68-6B 70-72 74 76-FC FF
304     FF 01-5E 61-BE C2-C7 CA-CF D2-D7 DA-DC E0-E6 E8-EE FD
305     EOH
306     !4E00 9FA5
307     !AC00 D7A3
308     !E000 F8FF
309     !F900 FA2D
310     EOH
311    
312     ## 302 BMP SECOND EDITION (ISO/IEC 10646-1:2000 A.3.3)
313     $SET_ALIAS{302} = '_BMPSecondEdition';
314     $SET{_BMPSecondEdition} = col2list (<<EOH) . <<EOH;
315     00 20-7E A0-FF
316     01 00-FF
317     02 00-33 50-AD B0-EE
318     03 00-4E 60-62 74-75 7A 7E 84-8A 8C 8E-A1 A3-CE D0-D7 DA-F3
319 wakaba 1.2 04 00-86 88-89 8C-C4 C7-C8 CB-CC D0-F5 F8-F9
320 wakaba 1.1 05 31-56 59-5F 61-87 89-8A 91-A1 A3-B9 BB-C4 D0-EA F0-F4
321 wakaba 1.2 06 0C 1B 1F 21-3A 40-55 60-6D 70-ED F0-FE
322 wakaba 1.1 07 00-0D 0F-2C 30-4A 80-BF
323     09 01-03 05-39 3C-4D 50-54 58-70 81-83 85-8C 8F-90 93-A8 AA-B0
324     09 B2 B6-B9 BC BE-C4 C7-C8 CB-CD D7 DC-DD DF-E3 E6-FA
325     0A 02 05-0A 0F-10 13-28 2A-30 32-33 35-36
326     0A 38-39 3C 3E-42 47-48 4B-4D 59-5C 5E 66-74 81-83 85-8B
327     0A 8D 8F-91 93-A8 AA-B0 B2-B3 B5-B9 BC-C5 C7-C9 CB-CD D0 E0 E6-EF
328     0B 01-03 05-0C 0F-10 13-28 2A-30 32-33 36-39
329     0B 3C-43 47-48 4B-4D 56-57 5C-5D 5F-61 66-70
330 wakaba 1.2 0B 82-83 85-8A 8E-90 92-95 99-9A 9C 9E-9F
331 wakaba 1.1 0B A3-A4 A8-AA AE-B5 B7-B9 BE-C2 C6-C8 CA-CD D7 E7-F2
332     0C 01-03 05-0C 0E-10 12-28 2A-33 35-39 3E-44
333     0C 46-48 4A-4D 55-56 60-61 66-6F 82-83 85-8C
334     0C 8E-90 92-A8 AA-B3 B5-B9 BE-C4 C6-C8 CA-CD D5-D6 DE E0-E1 E6-EF
335     0D 02-03 05-0C 0E-10 12-28 2A-39 3E-43 46-48
336     0D 4A-4D 57 60-61 66-6F 82-83 85-96 9A-B1
337     0D B3-BB BD C0-C6 CA CF-D4 D6 D8-DF F2-F4
338     0E 01-3A 3F-5B 81-82 84 87-88 8A 8D 94-97
339     0E 99-9F A1-A3 A5 A7 AA-AB AD-B9 BB-BD C0-C4 C6 C8-CD D0-D9 DC-DD
340     0F 00-47 49-6A 71-8B 90-97 99-BC BE-CC CF
341     10 00-21 23-27 29-2A 2C-32 36-39 40-59 A0-C5 D0-F6 FB
342     11 00-59 5F-A2 A8-F9
343     12 20-26 28-46 48 4A-4D 50-56 58 5A-5D 60-86 88 8A-8D
344     12 90-AE B0 B2-B5 B8-BE C0 C2-C5 C8-CE D0-D6 D8-EE F0-FF
345     13 00-0E 10 12-15 18-1E 20-46 48-5A 61-7C A0-F4
346     16 00-76 80-9C A0-F0
347     17 80-DC E0-E9
348     18 00-0E 10-19 20-77 80-A9
349     1E 00-9B A0-F9
350     1F 00-15 18-1D 20-45 48-4D 50-57 59 5B 5D
351     1F 5F-7D 80-B4 B6-C4 C6-D3 D6-DB DD-EF F2-F4 F6-FE
352     20 00-46 48-4D 4F 6A-70 74-8E A0-AF D0-E3
353     21 00-3A 53-83 90-F3
354     22 00-F1
355     23 00-7B 7D-9A
356     24 00-26 40-4A 60-EA
357     25 00-95 A0-F7
358     26 00-13 19-71
359     27 01-04 06-09 0C-27 29-4B 4D 4F-52 56 58-5E 61-67 76-94 98-AF B1-BE
360     28 00-FF
361     2E 80-99 9B-F3
362     2F 00-D5 F0-FB
363     30 00-3A 3E-3F 41-94 99-9E A1-FE
364     31 05-2C 31-8E 90-B7
365     32 00-1C 20-43 60-7B 7F-B0 C0-CB D0-FE
366     33 00-76 7B-DD E0-FE
367     A4 00-8C 90-A1 A4-B3 B5-C0 C2-C4 C6
368     FB 00-06 13-17 1D-36 38-3C 3E 40-41 43-44 46-B1 D3-FF
369     FC 00-FF
370     FD 00-3F 50-8F 92-C7 F0-FB
371     FE 20-23 30-44 49-52 54-66 68-6B 70-72 74 76-FC FF
372     FF 01-5E 61-BE C2-C7 CA-CF D2-D7 DA-DC E0-E6 E8-EE F9-FD
373     EOH
374     !1401 15FF
375     !4E00 9FA5
376     !AC00 D7A3
377     !E000 F8FF
378     !F900 FA2D
379     EOH
380    
381     $SET{GeneralFormatCharacters} = $SET{ $SET_ALIAS{200} }.$SET{ $SET_ALIAS{201} }
382     .$SET{ $SET_ALIAS{202} }.$SET{ $SET_ALIAS{203} };
383     $SET{ScriptSpecificFormatCharacters} = $SET{ $SET_ALIAS{204} }
384     .$SET{ $SET_ALIAS{205} }.$SET{ $SET_ALIAS{206} }.$SET{ $SET_ALIAS{207} };
385     $SET_ALIAS{250} = 'GeneralFormatCharacters';
386     $SET_ALIAS{251} = 'ScriptSpecificFormatCharacters';
387    
388     ## 281-284 ISO/IEC 10646-1:2000 Amd.1
389     $SET_ALIAS{281} = '_MES1';
390     $SET{_MES1} = col2list (<<EOH);
391     00 20-7E A0-FF
392     01 00-13 16-2B 2E-4D 50-7E
393     02 C7 D8-DB DD
394     20 15 18-19 1C-1D AC
395     21 22 26 5B-5E 90-93
396     26 6A
397     EOH
398    
399     $SET_ALIAS{282} = '_MES2';
400     $SET{_MES2} = col2list (<<EOH);
401     00 20-7E A0-FF
402     01 00-7F 8F 92 B7 DE-EF FA-FF
403     02 18-1B 1E-1F 59 7C 92 BB-BD C6-C7 C9 D8-DD EE
404     03 74-75 7A 7E 84-8A 8C 8E-A1 A3-CE D7 DA-E1
405     04 00-5F 90-C4 C7-C8 CB-CC D0-EB EE-F5 F8-F9
406     1E 02-03 0A-0B 1E-1F 40-41 56-57 60-61 6A-6B 80-85 9B F2-F3
407     1F 00-15 18-1D 20-45 48-4D 50-57 59 5B 5D 5F-7D 80-B4 B6-C4 C6-D3 D6-DB DD-EF
408     1F F2-F4 F6-FE
409     20 13-15 17-1E 20-22 26 30 32-33 39-3A 3C 3E 44 4A 7F 82 A3-A4 A7 AC AF
410     21 05 16 22 26 5B-5E 90-95 A8
411     22 00 02-03 06 08-09 0F 11-12 19-1A 1E-1F 27-2B 48 59 60-61 64-65 82-83 95 97
412     23 02 10 20-21 29-2A
413     25 00 02 0C 10 14 18 1C 24 2C 34 3C 50-6C 80 84 88 8C 90-93 A0 AC B2 BA BC C4
414     25 CA-CB D8-D9
415     26 3A-3C 40 42 60 63 65-66 6A-6B
416     FB 01-02
417     FF FD
418     EOH
419    
420     $SET_ALIAS{283} = '_MES3A';
421     $SET{_MES3A} = '';
422     for (1..11, 27, 30..40, 42, 44..47, 63, 65, 70) {
423     $SET{_MES3A} .= $SET{ $SET_ALIAS{$_} };
424     }
425    
426     $SET_ALIAS{284} = '_MES3B';
427     $SET{_MES3B} = col2list (<<EOH);
428     00 20-7E A0-FF
429     01 00-FF
430     02 00-1F 22-33 50-AD B0-EE
431     03 00-4E 60-62 74-75 7A 7E 84-8A 8C 8E-A1 A3-CE D0-D7 DA-F3
432     04 00-86 88-89 8C-C4 C7-C8 CB-CC D0-F5 F8-F9
433     05 31-56 59-5F 61-87 89-8A
434     10 D0-F6 FB
435     1E 00-9B A0-F9
436     1F 00-15 18-1D 20-45 48-4D 50-57 59 5B 5D 5F-7D 80-B4 B6-C4 C6-D3 D6-DB DD-EF
437     1F F2-F4 F6-FE
438     20 00-46 48-4D 6A-70 74-8E A0-AF D0-E3
439     21 00-3A 53-83 90-F3
440     22 00-F1
441     23 00-7B 7D-9A
442     24 40-4A
443     25 00-95 A0-F7
444     26 00-13 19-71
445     FB 00-06 13-17
446     FE 20-23
447     FF F9-FD
448     EOH
449    
450     ## 500-501 Removed by ISO/IEC 10646-1:2000 Amd.1
451     $SET{PrivateUsePlanes} = <<EOH;
452     0F0000 10FFFF
453     E00000 FFFFFF
454     EOH
455     $SET_ALIAS{500} = 'PrivateUsePlanes';
456     $SET{PrivateUseGroups} = <<EOH;
457     60000000 7FFFFFFF
458     EOH
459     $SET_ALIAS{500} = 'PrivateUseGroups';
460    
461     &print_module;
462    
463 wakaba 1.3 ## $Date: 2002/09/07 09:09:59 $
464 wakaba 1.1 ### UCS-src.upl ends here

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24