summaryrefslogtreecommitdiff
path: root/mkcasefold.pl
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2015-01-12 20:34:47 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2015-01-12 20:34:47 -0800
commit6740322cc41a4f65c1dba81bb4dfe9b8621dc430 (patch)
tree4a5ebf607eca7e28b12476f9fdf4368580bb2409 /mkcasefold.pl
parentcf32b93b72453c4b280fd0863c5c231054dfc263 (diff)
Moved mkcasefold.pl to tools/.
Diffstat (limited to 'mkcasefold.pl')
-rw-r--r--mkcasefold.pl22
1 files changed, 0 insertions, 22 deletions
diff --git a/mkcasefold.pl b/mkcasefold.pl
deleted file mode 100644
index 740ce77..0000000
--- a/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");
-