From: Martin Mares <mj@ucw.cz>
Date: Sat, 11 Oct 2003 08:53:40 +0000 (+0000)
Subject: Renamed mkuni to add-charnames and changed the path to the UnicodeData file.
X-Git-Tag: holmes-import~1201
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=d9482b44a8a90db441ddbda836b49675a7224d98;p=libucw.git

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
index 00000000..faf4af53
--- /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
index 59bba649..00000000
--- 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";
-}