diff options
Diffstat (limited to 'tools')
-rwxr-xr-x | tools/mkcasefold.pl | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/tools/mkcasefold.pl b/tools/mkcasefold.pl deleted file mode 100755 index 740ce77..0000000 --- a/tools/mkcasefold.pl +++ /dev/null @@ -1,22 +0,0 @@ -binmode STDOUT; -print(" switch (c) {\n"); -my $lastchar = ""; -while (<STDIN>) { - if (/^[A-F0-9]/ and / [CF]; /) { - my ($char, $type, $subst) = m/([A-F0-9]+); ([CF]); ([^;]+)/; - if ($char eq $lastchar) { - break; - } - my @subst = $subst =~ m/(\w+)/g; - printf(" case 0x%s:\n", $char); - foreach (@subst) { - printf(" bufpush(0x%s);\n", $_); - } - printf(" break;\n"); - $lastchar = $char; - } -} -printf(" default:\n"); -printf(" bufpush(c);\n"); -print(" }\n"); - |