Char/Class/Alphabet-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} = 'Alphabet';
$PROP{prefix_name} = '';
$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';

## TCVN 6909:2001 <http://www.undp.org.vn/unicode/>
$SET{LatinTCVN6909_2001} = col2list (<<EOH);
  00    20-7E A0 C0-C3 C8-CA CC-CD D2-D5 D9-DA DD
  00    E0-E3 E8-EA EC-ED F2-F5 F9-FA FD
  01    02-03 10-11 28-29 68-69 A0-A1 AF-B0
  03    00-03 06 09 1B 23
  1E    A0-F9
  20    1C-1D
EOH

%SET_ALIAS = (
        LatinTCVN6909   => 'LatinTCVN6909_2001',
        LatinVietnamese => 'LatinTCVN6909_2001',
);

&print_module;

## $Date: 2002/08/23 23:16:32 $
### Latin-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} = 'Alphabet';
7	$PROP{prefix_name} = '';
8	$PROP{version} = do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
9	$PROP{author_name} = 'Wakaba';
10	$PROP{author_mail} = 'w@suika.fam.cx';
11
12	## TCVN 6909:2001 <http://www.undp.org.vn/unicode/>
13	$SET{LatinTCVN6909_2001} = col2list (<<EOH);
14	00 20-7E A0 C0-C3 C8-CA CC-CD D2-D5 D9-DA DD
15	00 E0-E3 E8-EA EC-ED F2-F5 F9-FA FD
16	01 02-03 10-11 28-29 68-69 A0-A1 AF-B0
17	03 00-03 06 09 1B 23
18	1E A0-F9
19	20 1C-1D
20	EOH
21
22	%SET_ALIAS = (
23	LatinTCVN6909 => 'LatinTCVN6909_2001',
24	LatinVietnamese => 'LatinTCVN6909_2001',
25	);
26
27	&print_module;
28
29	## $Date: 2002/08/23 23:16:32 $
30	### Latin-src.upl ends here