Char/Class/JISX4052-src.upl

#!/usr/local/bin/perl
use utf8;       ## This file is written in UTF-8
use strict;
require 'mkpm.pl';
use vars qw(%PROP %SET %SET_ALIAS);
$PROP{module_name} = 'JISX4052';
$PROP{version} = do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
$PROP{author_name} = 'わかば Wakaba';
$PROP{author_mail} = 'w@suika.fam.cx';

$PROP{pod_description} = <<EOH;
JIS X 4052 character classes represented in UCS,
defined by JIS X 4052 Appendix 1, 2 and 3
EOH

$PROP{pod_see_also} = <<EOH;
JIS X 4052:2000, 『日本語文書の組版指定交換形式 Exchange format for 
Japanese documents with composition markup』, 日本工業標準調査会 
Japanese Industrial Standard Commitee (JISC <http://www.jisc.go.jp/>), 2000.
EOH

$SET{KanaCharacter} = col2list (<<EOH);
#DESCRIPTION 仮名文字クラス (JIS X 4052:2000 附属書1)
30 41-93 9D-9E A1-F6 FC-FE
EOH

$SET{Kenten} = col2list (<<EOH);
#DESCRIPTION 圏点クラス (JIS X 4052:2000 附属書2)
25 EF EB B2 B3 EE E9
FE 45-46
EOH

$SET{AlphabeticBasic} = col2list (<<EOH);
#DESCRIPTION 欧文用文字クラス基本文字種 (JIS X 4052:2000 附属書2)
00 21-7E
EOH

$SET{AlphabeticRecommended} = col2list (<<EOH);
#DESCRIPTION 欧文用文字クラス推奨文字種 (JIS X 4052:2000 附属書3)
00 A1-FF
01 00 12 2A 4C 6A 01 13 2B 4D 6B
EOH

$SET{Alphabetic} = <<EOH;
#DESCRIPTION 欧文用文字クラス (JIS X 4052:2000 附属書3)
#+AlphabeticBasic
#+AlphabeticRecommended
EOH

$SET{Digits} = <<EOH;
#DESCRIPTION 連数字クラス (JIS X 4052:2000 附属書4)
!002C
!002E
!0030   0039
EOH

&print_module;

## $Date: 2002/08/31 11:17:10 $
### JISX4052-src.upl ends here
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} = 'JISX4052';
7			$PROP{version} = do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
8			$PROP{author_name} = 'わかば Wakaba';
9			$PROP{author_mail} = 'w@suika.fam.cx';
10
11			$PROP{pod_description} = <<EOH;
12			JIS X 4052 character classes represented in UCS,
13			defined by JIS X 4052 Appendix 1, 2 and 3
14			EOH
15
16			$PROP{pod_see_also} = <<EOH;
17			JIS X 4052:2000, 『日本語文書の組版指定交換形式 Exchange format for
18			Japanese documents with composition markup』, 日本工業標準調査会
19			Japanese Industrial Standard Commitee (JISC <http://www.jisc.go.jp/>), 2000.
20			EOH
21
22			$SET{KanaCharacter} = col2list (<<EOH);
23			#DESCRIPTION 仮名文字クラス (JIS X 4052:2000 附属書1)
24			30 41-93 9D-9E A1-F6 FC-FE
25			EOH
26
27			$SET{Kenten} = col2list (<<EOH);
28			#DESCRIPTION 圏点クラス (JIS X 4052:2000 附属書2)
29			25 EF EB B2 B3 EE E9
30			FE 45-46
31			EOH
32
33			$SET{AlphabeticBasic} = col2list (<<EOH);
34			#DESCRIPTION 欧文用文字クラス基本文字種 (JIS X 4052:2000 附属書2)
35			00 21-7E
36			EOH
37
38			$SET{AlphabeticRecommended} = col2list (<<EOH);
39			#DESCRIPTION 欧文用文字クラス推奨文字種 (JIS X 4052:2000 附属書3)
40			00 A1-FF
41			01 00 12 2A 4C 6A 01 13 2B 4D 6B
42			EOH
43
44			$SET{Alphabetic} = <<EOH;
45			#DESCRIPTION 欧文用文字クラス (JIS X 4052:2000 附属書3)
46			#+AlphabeticBasic
47			#+AlphabeticRecommended
48			EOH
49
50			$SET{Digits} = <<EOH;
51			#DESCRIPTION 連数字クラス (JIS X 4052:2000 附属書4)
52			!002C
53			!002E
54			!0030 0039
55			EOH
56
57			&print_module;
58
59			## $Date: 2002/08/31 11:17:10 $
60			### JISX4052-src.upl ends here