Renamed mkuni to add-charnames and changed the path to the UnicodeData file.

diff --git a/charset/misc/add-charnames b/charset/misc/add-charnames
new file mode 100755 (executable)
index 0000000..faf4af5
--- /dev/null
+++ b/charset/misc/add-charnames
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+#
+#  Add Unicode Character Names to a character set table file
+#  (c) 1997 Martin Mares <mj@atrey.karlin.mff.cuni.cz>
+#
+
+open (UNI, "unicode/UnicodeData.txt") || die "No Unicode Data File";
+while (<UNI>) {
+       ($num,$name) = split /;/;
+       $name{$num} = $name;
+}
+close UNI;
+
+while (<>) {
+       ($code,$uni) = split /[ \t\n]+/;
+       $name = $name{$uni};
+       ($name eq "") && ($name = "????");
+       print "$code\t$uni\t$name\n";
+}

diff --git a/charset/misc/mkuni b/charset/misc/mkuni
deleted file mode 100644 (file)
index 59bba64..0000000
--- a/charset/misc/mkuni
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/usr/bin/perl
-#
-#  Add Unicode Character Names to a character set table file
-#  (c) 1997 Martin Mares <mj@atrey.karlin.mff.cuni.cz>
-#
-
-open (UNI, "/tmp/unicode") || die "No Unicode Data File";
-while (<UNI>) {
-       ($num,$name) = split /;/;
-       $name{$num} = $name;
-}
-close UNI;
-
-while (<>) {
-       ($code,$uni) = split /[ \t\n]+/;
-       $name = $name{$uni};
-       ($name eq "") && ($name = "????");
-       print "$code\t$uni\t$name\n";
-}