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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations) (download)
Sun Sep 7 01:26:15 2003 UTC (21 years, 3 months ago) by wakaba
Branch: MAIN
CVS Tags: HEAD
Bug fix

1 #!/usr/local/bin/perl
2 use strict;
3 require 'mkpm.pl';
4 use vars qw(%PROP %SET %SET_ALIAS);
5 $PROP{module_name} = 'ISOIECTR10176';
6 $PROP{version} = do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
7 $PROP{author_name} = 'Wakaba';
8 $PROP{author_mail} = 'w@suika.fam.cx';
9
10 $PROP{pod_description} = <<EOH;
11 Recommended extended repertoire for user-defined Identifier,
12 defined by ISO/IEC TR 10176:1998 Annex A.
13
14 ISO/IEC TR 10176:1998 Annex A says:
15
16 The repertoire recommended consists of characters that
17 are used to write different natural langauges of the world,
18 and consists of letters, ideographic and syllabic characters,
19 digits, and some marks.
20
21 Attention is drawn to that using extended repertoire for
22 identifiers may impact source code portability.
23 EOH
24
25 $PROP{pod_see_also} = <<EOH;
26 ISO/IEC TR 10176:1998, "Information technology --
27 Guidelines for the preparation of programming language
28 standards", ISO/IEC, 1998-09-01 (Second edition).
29
30 JIS TR X 0031:2000, "Information technology --
31 Guidelines for the preparation of programming language
32 standards", JISC <http://www.jisc.go.jp/>, 2000-06-01,
33 will be expired on 2005-07-31. (TR type III)
34 (IDT with ISO/IEC TR 10176:1998.)
35 EOH
36
37 $SET{Latin} = col2list (<<EOH);
38 00 41-5A 61-7A AA BA C0-D6 D8-F6 F8-FF
39 01 00-F5 FA-FF
40 02 00-17 50-A8
41 1E 00-9B A0-F9
42 20 7F
43 EOH
44
45 $SET{Greek} = col2list (<<EOH);
46 03 86 88-8A 8C 8E-A1 A3-CE D0-D6 DA DC DE E0 E2-F3
47 1F 00-15 18-1D 20-45 48-4D 50-57 79 5B 5D 5F-7D 80-B4 B6-BC
48 1F C2-C4 C6-CC D0-D3 D6-DB E0-EC F2-F4 F6-FC
49 EOH
50
51 $SET{Cyrillic} = col2list (<<EOH);
52 04 01-0C 0E-0F 51-5C 5E-81 90-C4 C7-C8 CB-CC D0-EB EE-F5 F8-F9
53 EOH
54
55 $SET{Armenian} = col2list (<<EOH);
56 05 31-56 61-87
57 EOH
58
59 $SET{Hebrew} = col2list (<<EOH);
60 05 B0-B9 BB-BD BF C1-C2 D0-EA F0-F2
61 EOH
62
63 $SET{Arabic} = col2list (<<EOH);
64 06 21-3A 40-52 70-B7 BA-BE C0-CE D0-DC E5-E8 EA-ED
65 EOH
66
67 $SET{Devanagari} = col2list (<<EOH);
68 09 01-03 05-39 3E-4D 50-52 58-63
69 EOH
70
71 $SET{Bengali} = col2list (<<EOH);
72 09 81-83 85-8C 8F-90 93-A8 AA-B0 B2 B6-B9 BE-C4 C7-C8 CB-CD
73 09 DC-DD DF-E3 F0-F1
74 EOH
75
76 $SET{Gurmukhi} = col2list (<<EOH);
77 0A 02 05-0A 0F-10 13-28 2A-30 32-33 35-36 38-39 3E-42 47 48 4B-4D
78 0A 59-5C 5E 74
79 EOH
80
81 $SET{Gujarati} = col2list (<<EOH);
82 0A 81-83 85-8B 8D 8F-91 93-A8 AA-B0 B2-B3 B5-B9 BD-C5 C7-C9 CB-CD D0 E0
83 EOH
84
85 $SET{Oriya} = col2list (<<EOH);
86 0B 01-03 05-0C 0F-10 13-28 2A-30 32-33 36-39 3E-43 47-48 4B-4D 5C-5D 5F-61
87 EOH
88
89 $SET{Tamil} = col2list (<<EOH);
90 0B 82-83 85-8A 8E-90 92-95 99-9A 9C 9E-9F A3-A4 A8-AA AE-B5
91 0B B7-B9 BE-C2 C6-C8 CA-CD
92 EOH
93
94 $SET{Telugur} = col2list (<<EOH);
95 0C 01-03 05-0C 0E-10 12-28 2A-33 35-39 3E-44 46-48 4A-4D 60-61
96 EOH
97
98 $SET{Kannada} = col2list (<<EOH);
99 0C 82-83 85-8C 8E-90 92-A8 AA-B3 B5-B9 BE-C4 C6-C8 CA-CC CD DE E0-E1
100 EOH
101
102 $SET{Malayalam} = col2list (<<EOH);
103 0D 02-03 05-0C 0E-10 12-28 2A-39 3E-43 46-48 4A-4D 60-61
104 EOH
105
106 $SET{Thai} = col2list (<<EOH);
107 0E 01-3A 40-5B
108 EOH
109
110 $SET{Lao} = col2list (<<EOH);
111 0E 81-82 84 87-88 8A 8D 94-97 99-9F A1-A3 A5 A7 AA-AB AD-AE
112 0E B0-B9 BB-BD C0-C4 C6 C8-CD DC-DD
113 EOH
114
115 $SET{Tibetan} = col2list (<<EOH);
116 0F 00 18-19 35 37 39 3E-47 49-69 71-84 86-8B 90-95 97 99-AD B1-B7 B9
117 EOH
118
119 $SET{Georian} = col2list (<<EOH);
120 10 A0-C5 D0-F6
121 EOH
122
123 $SET{Hiragana} = col2list (<<EOH);
124 30 41-93 9B-9C
125 EOH
126
127 $SET{Katakana} = col2list (<<EOH);
128 30 A1-F6 FB-FC
129 EOH
130
131 $SET{Bopomofo} = col2list (<<EOH);
132 31 05-2C
133 EOH
134
135 $SET{CJKUnifiedIdeographs} = <<EOH;
136 4E00 9FA5
137 EOH
138
139 $SET{Hangul} = <<EOH;
140 AC00-D7A3
141 EOH
142
143 $SET{Digits} = col2list (<<EOH);
144 00 30-39
145 06 60-69 F0-F9
146 09 66-6F E6-EF
147 0A 66-6F E6-EF
148 0B 66-6F E7-EF
149 0C 66-6F E6-EF
150 0D 66-6F
151 0E 50-59 D0-D9
152 0F 20-33
153 EOH
154
155 $SET{Special} = col2list (<<EOH);
156 #DESCRIPTION Special characters
157 00 B5 B7
158 02 B0-B8 BB BD-C1 D0-D1 E0-E4
159 03 7A 59
160 09 3D
161 0B 3D
162 1F BE
163 20 3F-40
164 21 02 07 0A-13 15 18-1D 24 26 28 2A-31 33-38 60-82
165 30 05-07 21-29
166 EOH
167
168 &print_module;
169
170 ## $Date: 2002/10/22 11:03:09 $

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24