3 # Create Unicode Unaccenting Table
4 # (c) 1997 Martin Mares <mj@atrey.karlin.mff.cuni.cz>
7 open (UNI, "/tmp/unicode") || die "No Unicode Data File";
10 ($num,$name,$cat,$_,$_,$exp) = split /;/;
11 if ($cat =~ /^L[ul]$/) { $letter{$num} = 1; }
12 if ($cat =~ /^Mn$/) { $accent{$num} = 1; }
16 open (UNI, "/tmp/unicode") || die "No Unicode Data File";
19 ($num,$name,$cat,$_,$_,$exp) = split /;/;
24 foreach $a (split(/\s+/, $exp)) {
27 if ($e ne "") { $good = 0; }
31 if ($good && $e ne "") { print "$num\t0x$e\n"; }