my $name = 'Byte';
my %tables = (
- '8bit' =>
+ misc_t =>
[
- 'ascii.ucm',
- 'koi8-r.ucm',
+ 'gsm0338.ucm',
+ 'nextstep.ucm',
+ 'roman8.ucm',
'viscii.ucm',
],
- Mac =>
+ koi8_t => [ 'koi8-f.ucm', 'koi8-r.ucm', 'koi8-u.ucm', ],
+ mac_t =>
[
- qw(macCentEuro.enc macCroatian.enc
- macCyrillic.enc macDingbats.enc
- macGreek.enc macIceland.enc
- macRoman.enc macRumanian.enc
- macSami.enc macThai.enc
- macTurkish.enc macUkraine.enc),
+ qw(
+ macCentEuro.ucm
+ macSami.ucm
+ macUkraine.ucm
+ macCroatian.ucm
+ macGreek.ucm
+ macRoman.ucm
+ macThai.ucm
+ macCyrillic.ucm
+ macIceland.ucm
+ macRumanian.ucm
+ macTurkish.ucm
+ ),
],
-
);
opendir(ENC,'../Encode');
{
if ($file =~ /(8859|ibm).*\.ucm/io)
{
- push(@{$tables{$1}},$file);
+ push(@{$tables{$1."_t"}},$file) unless $file eq '8859-1.ucm';
}
}
closedir(ENC);