From 6740322cc41a4f65c1dba81bb4dfe9b8621dc430 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 12 Jan 2015 20:34:47 -0800
Subject: Moved mkcasefold.pl to tools/.

---
 Makefile            |  2 +-
 mkcasefold.pl       | 22 ----------------------
 tools/mkcasefold.pl | 22 ++++++++++++++++++++++
 3 files changed, 23 insertions(+), 23 deletions(-)
 delete mode 100644 mkcasefold.pl
 create mode 100644 tools/mkcasefold.pl

diff --git a/Makefile b/Makefile
index 88f72ed..7004169 100644
--- a/Makefile
+++ b/Makefile
@@ -71,7 +71,7 @@ $(SRCDIR)/html_unescape.h: $(SRCDIR)/html_unescape.gperf
 # We include case_fold_switch.inc in the repository, so this shouldn't
 # normally need to be generated.
 $(SRCDIR)/case_fold_switch.inc: $(DATADIR)/CaseFolding-3.2.0.txt
-	perl mkcasefold.pl < $< > $@
+	perl tools/mkcasefold.pl < $< > $@
 
 # We include scanners.c in the repository, so this shouldn't
 # normally need to be generated.
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");
-
diff --git a/tools/mkcasefold.pl b/tools/mkcasefold.pl
new file mode 100644
index 0000000..740ce77
--- /dev/null
+++ b/tools/mkcasefold.pl
@@ -0,0 +1,22 @@
+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");
+
-- 
cgit v1.2.3