From: Martin Mares <mj@ucw.cz>
Date: Sat, 11 Oct 2003 09:00:20 +0000 (+0000)
Subject: Renamed unisplit to gen-basic.
X-Git-Tag: holmes-import~1197
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=32b5eab461503f00e25263206ab098c1ec145cc5;p=libucw.git

Renamed unisplit to gen-basic.
---

diff --git a/charset/misc/gen-basic b/charset/misc/gen-basic
new file mode 100755
index 00000000..3c90637c
--- /dev/null
+++ b/charset/misc/gen-basic
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+#
+#  Split Unicode Data File
+#  (c) 1997--2001 Martin Mares <mj@atrey.karlin.mff.cuni.cz>
+#
+
+open(I, "unicode/UnicodeData.txt") || die "Unable to open UniCode data file";
+open(C, ">misc/u-cat") || die "cat file open";
+open(U, ">misc/u-upper") || die "upper file open";
+open(L, ">misc/u-lower") || die "lower file open";
+while (<I>) {
+	chomp;
+	(/^$/ || /^#/) && next;
+	($code,$name,$cat,$comb,$bidir,$decomp,$d0,$d1,$n0,$mirr,$cmt1,$cmt2,$upper,$lower,$title) = split /;/;
+	$code =~ /^....$/ || next;
+	if ($cat =~ /^C/) { $ccat = "_C_CTRL"; }
+	elsif ($cat =~ /^Z/) { $ccat = "_C_BLANK"; }
+	elsif ($cat =~ /^Ll/) { $ccat = "_C_LOWER"; }
+	elsif ($cat =~ /^Lu/) { $ccat = "_C_UPPER"; }
+	elsif ($code ge "0030" && $code le "0039") { $ccat = "_C_DIGIT|_C_XDIGIT"; }
+	elsif ($code eq "005F") { $ccat = "_C_INNER"; }
+	else { $ccat = ""; }
+	if ($code ge "0041" && $code le "0046" || $code ge "0061" && $code le "0066") { $ccat = $ccat . "|_C_XDIGIT"; }
+	if ($ccat ne "") { print C "$code\t$ccat\n"; }
+	if ($upper ne "") { print U "$code\t0x$upper\n"; }
+	if ($lower ne "") { print L "$code\t0x$lower\n"; }
+}
+close I;
+close C;
+close U;
+close L;
diff --git a/charset/misc/unisplit b/charset/misc/unisplit
deleted file mode 100644
index 3c90637c..00000000
--- a/charset/misc/unisplit
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/usr/bin/perl
-#
-#  Split Unicode Data File
-#  (c) 1997--2001 Martin Mares <mj@atrey.karlin.mff.cuni.cz>
-#
-
-open(I, "unicode/UnicodeData.txt") || die "Unable to open UniCode data file";
-open(C, ">misc/u-cat") || die "cat file open";
-open(U, ">misc/u-upper") || die "upper file open";
-open(L, ">misc/u-lower") || die "lower file open";
-while (<I>) {
-	chomp;
-	(/^$/ || /^#/) && next;
-	($code,$name,$cat,$comb,$bidir,$decomp,$d0,$d1,$n0,$mirr,$cmt1,$cmt2,$upper,$lower,$title) = split /;/;
-	$code =~ /^....$/ || next;
-	if ($cat =~ /^C/) { $ccat = "_C_CTRL"; }
-	elsif ($cat =~ /^Z/) { $ccat = "_C_BLANK"; }
-	elsif ($cat =~ /^Ll/) { $ccat = "_C_LOWER"; }
-	elsif ($cat =~ /^Lu/) { $ccat = "_C_UPPER"; }
-	elsif ($code ge "0030" && $code le "0039") { $ccat = "_C_DIGIT|_C_XDIGIT"; }
-	elsif ($code eq "005F") { $ccat = "_C_INNER"; }
-	else { $ccat = ""; }
-	if ($code ge "0041" && $code le "0046" || $code ge "0061" && $code le "0066") { $ccat = $ccat . "|_C_XDIGIT"; }
-	if ($ccat ne "") { print C "$code\t$ccat\n"; }
-	if ($upper ne "") { print U "$code\t0x$upper\n"; }
-	if ($lower ne "") { print L "$code\t0x$lower\n"; }
-}
-close I;
-close C;
-close U;
-close L;