Renamed mkunacc to gen-unacc.

diff --git a/charset/misc/gen-unacc b/charset/misc/gen-unacc
new file mode 100755 (executable)
index 0000000..8853b7e
--- /dev/null
+++ b/charset/misc/gen-unacc
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+#
+#  Create Unicode Unaccenting Table
+#  (c) 1997 Martin Mares <mj@atrey.karlin.mff.cuni.cz>
+#
+
+open (UNI, "unicode/UnicodeData.txt") || die "No Unicode Data File";
+while (<UNI>) {
+    chomp;
+    ($num,$name,$cat,$_,$_,$exp) = split /;/;
+    if ($cat =~ /^L[ul]$/) { $letter{$num} = 1; }
+    if ($cat =~ /^Mn$/) { $accent{$num} = 1; }
+}
+close UNI;
+
+open (UNI, "unicode/UnicodeData.txt") || die "No Unicode Data File";
+while (<UNI>) {
+    chomp;
+    ($num,$name,$cat,$_,$_,$exp) = split /;/;
+    $num =~ /^....$/ || next;
+    if ($exp ne "") {
+       $exp =~ s/^<.*> *//g;
+       $good = 1;
+       $e = "";
+       foreach $a (split(/\s+/, $exp)) {
+           if ($accent{$a}) { }
+           elsif ($letter{$a}) {
+               if ($e ne "") { $good = 0; }
+               else { $e = $a; }
+           } else { $good = 0; }
+       }
+       if ($good && $e ne "") { print "$num\t0x$e\n"; }
+    }
+}
+close UNI;

diff --git a/charset/misc/mkunacc b/charset/misc/mkunacc
deleted file mode 100644 (file)
index 8853b7e..0000000
--- a/charset/misc/mkunacc
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/usr/bin/perl
-#
-#  Create Unicode Unaccenting Table
-#  (c) 1997 Martin Mares <mj@atrey.karlin.mff.cuni.cz>
-#
-
-open (UNI, "unicode/UnicodeData.txt") || die "No Unicode Data File";
-while (<UNI>) {
-    chomp;
-    ($num,$name,$cat,$_,$_,$exp) = split /;/;
-    if ($cat =~ /^L[ul]$/) { $letter{$num} = 1; }
-    if ($cat =~ /^Mn$/) { $accent{$num} = 1; }
-}
-close UNI;
-
-open (UNI, "unicode/UnicodeData.txt") || die "No Unicode Data File";
-while (<UNI>) {
-    chomp;
-    ($num,$name,$cat,$_,$_,$exp) = split /;/;
-    $num =~ /^....$/ || next;
-    if ($exp ne "") {
-       $exp =~ s/^<.*> *//g;
-       $good = 1;
-       $e = "";
-       foreach $a (split(/\s+/, $exp)) {
-           if ($accent{$a}) { }
-           elsif ($letter{$a}) {
-               if ($e ne "") { $good = 0; }
-               else { $e = $a; }
-           } else { $good = 0; }
-       }
-       if ($good && $e ne "") { print "$num\t0x$e\n"; }
-    }
-}
-close UNI;