]> mj.ucw.cz Git - libucw.git/commitdiff
Expect the unicode data directory to be linked to by "unidata".
authorMartin Mares <mj@ucw.cz>
Sat, 11 Oct 2003 09:05:47 +0000 (09:05 +0000)
committerMartin Mares <mj@ucw.cz>
Sat, 11 Oct 2003 09:05:47 +0000 (09:05 +0000)
charset/misc/add-charnames
charset/misc/gen-basic
charset/misc/gen-charconv
charset/misc/gen-unacc

index faf4af538837d7105a3a16633b00c11bfbf8f043..5057d5f2d60f6b2474ea7a38f373d02dc79d6eef 100755 (executable)
@@ -4,7 +4,7 @@
 #  (c) 1997 Martin Mares <mj@atrey.karlin.mff.cuni.cz>
 #
 
-open (UNI, "unicode/UnicodeData.txt") || die "No Unicode Data File";
+open (UNI, "unidata/UnicodeData.txt") || die "No Unicode Data File";
 while (<UNI>) {
        ($num,$name) = split /;/;
        $name{$num} = $name;
index 3c90637cede3c518552314cf19c5328603eb8262..6c3b8fd89efb0f42c570508e5985139bb9b4398a 100755 (executable)
@@ -4,7 +4,7 @@
 #  (c) 1997--2001 Martin Mares <mj@atrey.karlin.mff.cuni.cz>
 #
 
-open(I, "unicode/UnicodeData.txt") || die "Unable to open UniCode data file";
+open(I, "unidata/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";
index 28660d1d3f23cd0576d53d6c475f1198421e4279..bc28a8fd9c7db66c128b007cb46155a2e913ae9d 100755 (executable)
@@ -93,7 +93,7 @@ for($i=0; $i<256; $i++) {
 print "};\n\n";
 
 print STDERR "UniData file...\n";
-open (U, "unicode/UnicodeData.txt") || die "No UnicodeData file";
+open (U, "unidata/UnicodeData.txt") || die "No UnicodeData file";
 while (<U>) {
        chomp;
        ($num,$name,$_,$_,$_,$exp) = split /;/;
index 8853b7e57abc4ed16d042e3a610d9611c6bb4219..9513fa282d09aa89c3e67e299f89fc99c3655090 100755 (executable)
@@ -4,7 +4,7 @@
 #  (c) 1997 Martin Mares <mj@atrey.karlin.mff.cuni.cz>
 #
 
-open (UNI, "unicode/UnicodeData.txt") || die "No Unicode Data File";
+open (UNI, "unidata/UnicodeData.txt") || die "No Unicode Data File";
 while (<UNI>) {
     chomp;
     ($num,$name,$cat,$_,$_,$exp) = split /;/;
@@ -13,7 +13,7 @@ while (<UNI>) {
 }
 close UNI;
 
-open (UNI, "unicode/UnicodeData.txt") || die "No Unicode Data File";
+open (UNI, "unidata/UnicodeData.txt") || die "No Unicode Data File";
 while (<UNI>) {
     chomp;
     ($num,$name,$cat,$_,$_,$exp) = split /;/;