diff options
author | John MacFarlane <jgm@berkeley.edu> | 2014-07-21 22:29:16 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2014-08-13 22:56:32 -0700 |
commit | 870e63be7360b5a0097a27656048e853bc720464 (patch) | |
tree | e8f19ee2d62e529115cb71dcda5f3298cca7d389 /mkcasefold.pl | |
parent | 650ad87f35f4405a2ca8270d2b2835daa442e5f1 (diff) |
Initial commit
Diffstat (limited to 'mkcasefold.pl')
-rw-r--r-- | mkcasefold.pl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/mkcasefold.pl b/mkcasefold.pl new file mode 100644 index 0000000..4c08634 --- /dev/null +++ b/mkcasefold.pl @@ -0,0 +1,21 @@ +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"); + |