diff options
author | John MacFarlane <jgm@berkeley.edu> | 2015-01-12 20:34:47 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2015-01-12 20:34:47 -0800 |
commit | 6740322cc41a4f65c1dba81bb4dfe9b8621dc430 (patch) | |
tree | 4a5ebf607eca7e28b12476f9fdf4368580bb2409 /mkcasefold.pl | |
parent | cf32b93b72453c4b280fd0863c5c231054dfc263 (diff) |
Moved mkcasefold.pl to tools/.
Diffstat (limited to 'mkcasefold.pl')
-rw-r--r-- | mkcasefold.pl | 22 |
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"); - |