1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
my $unicodes=shift;
my $testing_hook=shift;
my %unicodes;
grep ( $unicodes{lc($_)}=1, split (/,/, $unicodes));
while (<STDIN>)
{
if ($unicodes eq "" || $unicodes eq "yes")
{
print;
next;
}
my ($chset, $structname)=split (/[ \t\r\n]/, $_);
if ($unicodes eq "no")
{
next if $structname ne "unicode_ISO8859_1";
}
else
{
next unless $unicodes{lc($chset)}
|| $structname eq "unicode_ISO8859_1";
}
print;
}
print "X-TEST\tunicode_XTEST\n" if $testing_hook eq "yes";
|
