From 870e63be7360b5a0097a27656048e853bc720464 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 21 Jul 2014 22:29:16 -0700
Subject: Initial commit

---
 mkcasefold.pl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 mkcasefold.pl

(limited to 'mkcasefold.pl')

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");
+
-- 
cgit v1.2.3