Undo the renaming of the Unicode data files; the simple

[p5sagit/p5-mst-13.2.git] / lib / unicore / mktables

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index a6c234c..16fc09f 100644 (file)
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -34,7 +34,7 @@ my $LastUnicodeCodepoint = 0x10FFFF; # As of Unicode 3.1.1.
 
 my $HEADER=<<"EOF";
 # !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!! 
-# This file is built by $0 from e.g. Unicode.txt.
+# This file is built by $0 from e.g. UnicodeData.txt.
 # Any changes made here will be lost!
 
 EOF
@@ -533,7 +533,7 @@ my %General;
 my %Cat;
 
 ##
-## Process Unicode.txt (Categories, etc.)
+## Process UnicodeData.txt (Categories, etc.)
 ##
 sub Unicode_Txt()
 {
@@ -556,7 +556,7 @@ sub Unicode_Txt()
                                 Fuzzy => 0);
 
     ## Initialize Perl-generated categories
-    ## (Categories from Unicode.txt are auto-initialized in gencat)
+    ## (Categories from UnicodeData.txt are auto-initialized in gencat)
     $Cat{Alnum}  = Table->New(Is => 'Alnum',  Desc => "[[:Alnum:]]",  Fuzzy => 0);
     $Cat{Alpha}  = Table->New(Is => 'Alpha',  Desc => "[[:Alpha:]]",  Fuzzy => 0);
     $Cat{ASCII}  = Table->New(Is => 'ASCII',  Desc => "[[:ASCII:]]",  Fuzzy => 0);
@@ -651,8 +651,8 @@ sub Unicode_Txt()
     }
 
     ## open ane read file.....
-    if (not open IN, "Unicode.txt") {
-        die "$0: Unicode.txt: $!\n";
+    if (not open IN, "UnicodeData.txt") {
+        die "$0: UnicodeData.txt: $!\n";
     }
 
     ##
@@ -852,12 +852,12 @@ sub Unicode_Txt()
 }
 
 ##
-## Process LineBrk.txt
+## Process LineBreak.txt
 ##
-sub LineBrk_Txt()
+sub LineBreak_Txt()
 {
-    if (not open IN, "LineBrk.txt") {
-        die "$0: LineBrk.txt: $!\n";
+    if (not open IN, "LineBreak.txt") {
+        die "$0: LineBreak.txt: $!\n";
     }
 
     my $Lbrk = Table->New();
@@ -887,12 +887,12 @@ sub LineBrk_Txt()
 }
 
 ##
-## Process ArabShap.txt.
+## Process ArabicShaping.txt.
 ##
-sub ArabShap_txt()
+sub ArabicShaping_txt()
 {
-    if (not open IN, "ArabShap.txt") {
-        die "$0: ArabShap.txt: $!\n";
+    if (not open IN, "ArabicShaping.txt") {
+        die "$0: ArabicShaping.txt: $!\n";
     }
 
     my $ArabLink      = Table->New();
@@ -1041,7 +1041,7 @@ sub Blocks_txt()
 
 ##
 ## Read in the PropList.txt.  It contains extended properties not
-## listed in the Unicode.txt, such as 'Other_Alphabetic':
+## listed in the UnicodeData.txt, such as 'Other_Alphabetic':
 ## alphabetic but not of the general category L; many modifiers
 ## belong to this extended property category: while they are not
 ## alphabets, they are alphabetic in nature.
@@ -1588,7 +1588,7 @@ sub WriteAllMappings()
 }
 
 
-sub SpecCase_txt()
+sub SpecialCasing_txt()
 {
     #
     # Read in the special cases.
@@ -1596,8 +1596,8 @@ sub SpecCase_txt()
 
     my %CaseInfo;
 
-    if (not open IN, "SpecCase.txt") {
-        die "$0: SpecCase.txt: $!\n";
+    if (not open IN, "SpecialCasing.txt") {
+        die "$0: SpecialCasing.txt: $!\n";
     }
     while (<IN>) {
         next unless /^[0-9A-Fa-f]+;/;
@@ -1651,12 +1651,12 @@ sub SpecCase_txt()
 #
 # Read in the case foldings.
 #
-# We will do full case folding, C + F + I (see CaseFold.txt).
+# We will do full case folding, C + F + I (see CaseFolding.txt).
 #
-sub CaseFold_txt()
+sub CaseFolding_txt()
 {
-    if (not open IN, "CaseFold.txt") {
-       die "$0: CaseFold.txt: $!\n";
+    if (not open IN, "CaseFolding.txt") {
+       die "$0: CaseFolding.txt: $!\n";
     }
 
     my $Fold = Table->New();
@@ -1714,11 +1714,11 @@ Blocks_txt();
 
 WriteAllMappings();
 
-LineBrk_Txt();
-ArabShap_txt();
+LineBreak_Txt();
+ArabicShaping_txt();
 Jamo_txt();
-SpecCase_txt();
-CaseFold_txt();
+SpecialCasing_txt();
+CaseFolding_txt();
 
 exit(0);