35 lines
842 B
Perl
Executable file
35 lines
842 B
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
# Create Unicode Unaccenting Table
|
|
# (c) 1997 Martin Mares <mj@atrey.karlin.mff.cuni.cz>
|
|
#
|
|
|
|
open (UNI, "unidata/UnicodeData.txt") || die "No Unicode Data File";
|
|
while (<UNI>) {
|
|
chomp;
|
|
($num,$name,$cat,$_,$_,$exp) = split /;/;
|
|
if ($cat =~ /^L[ul]$/) { $letter{$num} = 1; }
|
|
if ($cat =~ /^Mn$/) { $accent{$num} = 1; }
|
|
}
|
|
close UNI;
|
|
|
|
open (UNI, "unidata/UnicodeData.txt") || die "No Unicode Data File";
|
|
while (<UNI>) {
|
|
chomp;
|
|
($num,$name,$cat,$_,$_,$exp) = split /;/;
|
|
$num =~ /^....$/ || next;
|
|
if ($exp ne "") {
|
|
$exp =~ s/^<.*> *//g;
|
|
$good = 1;
|
|
$e = "";
|
|
foreach $a (split(/\s+/, $exp)) {
|
|
if ($accent{$a}) { }
|
|
elsif ($letter{$a}) {
|
|
if ($e ne "") { $good = 0; }
|
|
else { $e = $a; }
|
|
} else { $good = 0; }
|
|
}
|
|
if ($good && $e ne "") { print "$num\t0x$e\n"; }
|
|
}
|
|
}
|
|
close UNI;
|