mirror of
https://github.com/netsurf-browser/netsurf
synced 2025-02-09 19:14:30 +03:00
4fcbc23c1c
Transliterate Unicode to Latin1 using Markus Kuhn's transtab. svn path=/import/netsurf/; revision=465
52 lines
717 B
Perl
Executable File
52 lines
717 B
Perl
Executable File
#!/usr/bin/perl -W
|
|
|
|
print <<END;
|
|
void unicode_transliterate(unsigned int c, char **r)
|
|
{
|
|
char *s = *r;
|
|
switch (c) {
|
|
|
|
END
|
|
|
|
LINE: while (<>) {
|
|
chomp;
|
|
next if m/^%/;
|
|
next if m/^ *$/;
|
|
|
|
m/^<U([0-9A-F]{4})> /g or die "invalid line '$_'";
|
|
$z = $1;
|
|
next if (hex($z) < 256);
|
|
|
|
SUBST: while (m/\G"?((<U([0-9A-F]{4})>)*)"?;?/g) {
|
|
next if $& eq '';
|
|
$m = $1;
|
|
if ($m eq '') {
|
|
print "case 0x$z: break;\n";
|
|
next;
|
|
}
|
|
chop $m;
|
|
@s = split /></, substr $m, 1;
|
|
foreach $s (@s) {
|
|
$s = substr $s, 1;
|
|
next SUBST if 255 < hex($s);
|
|
}
|
|
|
|
print "case 0x$z: ";
|
|
foreach $s (@s) {
|
|
print "*s++ = 0x$s; ";
|
|
}
|
|
print "break;\n";
|
|
next LINE;
|
|
}
|
|
}
|
|
|
|
print <<END;
|
|
|
|
default: *s++ = '?'; break;
|
|
}
|
|
|
|
*r = s;
|
|
}
|
|
END
|
|
|