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	#!/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