[sword-svn] r164 - in trunk/source/data/translit/crosswire: . cldr

[chrislit at crosswire.org]

Author: chrislit
Date: 2009-02-07 15:10:14 -0700 (Sat, 07 Feb 2009)
New Revision: 164

Modified:
   trunk/source/data/translit/crosswire/cldr/cldr2icu.pl
   trunk/source/data/translit/crosswire/icu2cldr.pl
Log:
Unicode hex can go up to U+10FFFF, so we need 1-6 chars here instead of 1-4

Modified: trunk/source/data/translit/crosswire/cldr/cldr2icu.pl
===================================================================
--- trunk/source/data/translit/crosswire/cldr/cldr2icu.pl	2009-02-07 10:34:20 UTC (rev 163)
+++ trunk/source/data/translit/crosswire/cldr/cldr2icu.pl	2009-02-07 22:10:14 UTC (rev 164)
@@ -43,7 +43,7 @@
 	    $line =~ s/>/>/g;
 	    $line =~ s/&/&/g;
 
-	    $line =~ s/\\u([0-9A-Fa-f]{1,4})/chr(hex($1))/eg;
+	    $line =~ s/\\u([0-9A-Fa-f]{1,6})/chr(hex($1))/eg;
 
 	    print OUTF "$line\n";
 	}

Modified: trunk/source/data/translit/crosswire/icu2cldr.pl
===================================================================
--- trunk/source/data/translit/crosswire/icu2cldr.pl	2009-02-07 10:34:20 UTC (rev 163)
+++ trunk/source/data/translit/crosswire/icu2cldr.pl	2009-02-07 22:10:14 UTC (rev 164)
@@ -47,7 +47,7 @@
 		print OUTF "<comment>$line<\/comment>\n";
 	    }
 	    else {
-		$line =~ s/\\u([0-9A-Fa-f]{1,4})/chr(hex($1))/eg;
+		$line =~ s/\\u([0-9A-Fa-f]{1,6})/chr(hex($1))/eg;
 		print OUTF "<tRule>$line<\/tRule>\n";
 	    }
 	}