277 lines
7.3 KiB
Batchfile
Executable File
277 lines
7.3 KiB
Batchfile
Executable File
@rem = '--*-Perl-*--
|
|
@echo off
|
|
if "%OS%" == "Windows_NT" goto WinNT
|
|
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
|
|
goto endofperl
|
|
:WinNT
|
|
perl -x -S "%0" %*
|
|
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
|
|
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
|
|
goto endofperl
|
|
@rem ';
|
|
#!perl
|
|
#line 14
|
|
|
|
# Script to generate the ICULocaleData.jar file. This file is
|
|
# part of icu4j. It is checked into CVS. It is generated from
|
|
# locale data in the icu4c project. See usage() notes (below)
|
|
# for more information.
|
|
|
|
# This script requires perl. For Win32, I recommend www.activestate.com.
|
|
|
|
# Alan Liu
|
|
|
|
use File::Path;
|
|
|
|
usage() unless (@ARGV >= 2);
|
|
my $ICU_ROOT = shift;
|
|
my $ICU4J_ROOT = shift;
|
|
|
|
# Step 1. Run genrb.
|
|
my $genrb = "$ICU_ROOT\\source\\tools\\genrb\\Debug\\genrb.exe";
|
|
my $dataDir = "$ICU_ROOT\\source\\data\\locales";
|
|
my $javaRootDir = "$dataDir\\java";
|
|
my $pkg = "com\\ibm\\icu\\impl\\data";
|
|
my $javaDir = "$javaRootDir\\$pkg";
|
|
chdir($dataDir);
|
|
mkpath($javaDir);
|
|
my $op = "$genrb -s. -d$javaDir -j ";
|
|
print "Command: $op*.txt\n";
|
|
print "Directory: $dataDir\n";
|
|
my @list;
|
|
if (@ARGV) {
|
|
@list = @ARGV;
|
|
foreach (@list) { $_ .= ".txt" unless (/\.txt$/i); }
|
|
} else {
|
|
@list = glob("*.txt");
|
|
}
|
|
my $count = 0;
|
|
my $errCount = 0;
|
|
foreach (sort @list) {
|
|
my $cmd = "$op $_";
|
|
print " $_...";
|
|
system($cmd);
|
|
my $exit_value = $? >> 8;
|
|
#my $signal_num = $? & 127;
|
|
#my $dumped_core = $? & 128;
|
|
if ($exit_value == 0) {
|
|
print "ok\n";
|
|
} else {
|
|
++$errCount;
|
|
print "ERROR $exit_value\n";
|
|
}
|
|
++$count;
|
|
}
|
|
|
|
print "Processed $count files, $errCount errors\n";
|
|
if ($errCount) {
|
|
print "Please correct errors and retry.\n";
|
|
exit(1);
|
|
}
|
|
|
|
# Step 2. Find %%ALIAS tags.
|
|
# Assume that it looks like this:
|
|
# public LocaleElements_no_NO_NY () {
|
|
# contents = new Object[][] {
|
|
# {
|
|
# "%%ALIAS",
|
|
# "nn_NO",
|
|
# },
|
|
# };
|
|
# }
|
|
print "Scanning for %%ALIAS tags\n";
|
|
print "Directory: $javaDir\n";
|
|
chdir($javaDir);
|
|
@list = glob("LocaleElements*.java");
|
|
my %aliases;
|
|
foreach my $file (sort @list) {
|
|
my $aliasOf = '';
|
|
open(IN, $file) or die;
|
|
while (<IN>) {
|
|
if (/^\s*\"\%\%ALIAS\"/) {
|
|
# This is an alias of the locale on the next line
|
|
$aliasOf = <IN>;
|
|
die "Can't parse $aliasOf" unless
|
|
($aliasOf =~ s/^\s*\"(.+?)\",\s*$/$1/);
|
|
last;
|
|
}
|
|
}
|
|
close(IN);
|
|
|
|
if ($aliasOf) {
|
|
my $me = $file;
|
|
$me =~ s/^LocaleElements_(.+)\.java$/$1/i;
|
|
$aliases{$me} = $aliasOf;
|
|
print " $me is an alias of $aliasOf\n";
|
|
}
|
|
}
|
|
|
|
# Step 3. Fix %%ALIAS tags.
|
|
my %patched; # Record any locales that we patch
|
|
foreach my $loc (sort keys %aliases) {
|
|
# $loc is an alias of $aliases{$loc}
|
|
# Make $loc point to package private static _contents of $aliases{$loc}
|
|
my $aliasee = $aliases{$loc};
|
|
if (!exists($patched{$alias})) {
|
|
# Patch the alias
|
|
patchAliasee($aliasee);
|
|
$patched{$aliasee} = 1;
|
|
}
|
|
patchAlias($loc, $aliasee);
|
|
}
|
|
|
|
# Step 4. Patch transliteration resources.
|
|
foreach my $file (sort @list) {
|
|
my $hasTrans = 0;
|
|
open(IN, $file) or die;
|
|
while (<IN>) {
|
|
if (/^\s*\"Transliterate.+\"/) {
|
|
$hasTrans = 1;
|
|
last;
|
|
}
|
|
}
|
|
close(IN);
|
|
|
|
patchTrans($file) if ($hasTrans);
|
|
}
|
|
|
|
# Step 5. Compile .java files
|
|
my $cmd = "javac -classpath $ICU4J_ROOT\\classes;$javaRootDir;%CLASSPATH% $pkg\\*.java";
|
|
chdir($javaRootDir);
|
|
print "Command: $cmd\n";
|
|
print "Directory: $javaRootDir\n";
|
|
print "Compiling .java files..";
|
|
system($cmd);
|
|
my $exit_value = $? >> 8;
|
|
#my $signal_num = $? & 127;
|
|
#my $dumped_core = $? & 128;
|
|
if ($exit_value == 0) {
|
|
print "ok\n";
|
|
} else {
|
|
++$errCount;
|
|
print "ERROR $exit_value\n";
|
|
print "Please correct problem and retry.\n";
|
|
exit(1);
|
|
}
|
|
|
|
# Step 6. Create .jar file. Since we don't yet generate correct
|
|
# CollationElement_*.res files, leave those as they are.
|
|
my $jarFile = "$ICU4J_ROOT\\src\\$pkg\\ICULocaleData.jar";
|
|
my $cmd = "jar cvf $jarFile $pkg\\*.class $pkg\\*.ucs";
|
|
# Do jar command
|
|
print "Command: $cmd\n";
|
|
print "Directory: $javaRootDir\n";
|
|
chdir($javaRootDir);
|
|
if (! -e "$jarFile.orig") {
|
|
system('copy', $jarFile, "$jarFile.orig");
|
|
}
|
|
system($cmd);
|
|
|
|
# Done!
|
|
print "All done.\n";
|
|
exit(0);
|
|
|
|
#-----------------------------------------------------------------------
|
|
# Patch the file that an %%ALIAS tag points to
|
|
sub patchAliasee {
|
|
my $loc = shift;
|
|
my $file = "LocaleElements_$loc.java";
|
|
my $omitNextBrace = 0;
|
|
open(IN, $file) or die;
|
|
open(OUT, ">$file.new") or die;
|
|
while (<IN>) {
|
|
if (/^\s*contents\s*=\s*new\s+Object/) {
|
|
print OUT " contents = _contents;\n";
|
|
print OUT " };\n";
|
|
print OUT ' static final Object[][] _contents =', "\n";
|
|
s/^\s*contents\s*=\s*/ /;
|
|
print OUT;
|
|
} elsif (/^\s*\}\s*;/) {
|
|
# Omit the "}" after this
|
|
print OUT;
|
|
$omitNextBrace = 1;
|
|
} elsif ($omitNextBrace && /^\s*\}\s*$/) {
|
|
# Omit it
|
|
$omitNextBrace = 0;
|
|
} else {
|
|
print OUT;
|
|
}
|
|
}
|
|
close(IN);
|
|
close(OUT);
|
|
unlink($file);
|
|
rename("$file.new", $file);
|
|
print " $file patched (aliasee)\n";
|
|
}
|
|
|
|
#-----------------------------------------------------------------------
|
|
# Patch the file that contains the %%ALIAS tag
|
|
sub patchAlias {
|
|
my $loc = shift;
|
|
my $aliasee = shift;
|
|
my $file = "LocaleElements_$loc.java";
|
|
open(IN, $file) or die;
|
|
open(OUT, ">$file.new") or die;
|
|
while (<IN>) {
|
|
if (/^\s*contents\s*=\s*new\s+Object/) {
|
|
# Consume the next 5 lines
|
|
<IN>;
|
|
<IN>;
|
|
<IN>;
|
|
<IN>;
|
|
<IN>;
|
|
# Output our new data
|
|
print OUT " contents = LocaleElements_$aliasee._contents;\n";
|
|
} else {
|
|
print OUT;
|
|
}
|
|
}
|
|
close(IN);
|
|
close(OUT);
|
|
unlink($file);
|
|
rename("$file.new", $file);
|
|
print " $file patched (alias)\n";
|
|
}
|
|
|
|
#-----------------------------------------------------------------------
|
|
# Patch a file with a transliteration resource.
|
|
sub patchTrans {
|
|
my $file = shift;
|
|
open(IN, $file) or die;
|
|
open(OUT, ">$file.new") or die;
|
|
while (<IN>) {
|
|
s/^(\s*\"Transliterate)(.+?\")/$1_$2/;
|
|
print OUT;
|
|
}
|
|
close(IN);
|
|
close(OUT);
|
|
unlink($file);
|
|
rename("$file.new", $file);
|
|
print " $file patched (trans)\n";
|
|
}
|
|
|
|
#-----------------------------------------------------------------------
|
|
sub usage {
|
|
print << "END";
|
|
Usage: genrbjar <icu_root_dir> <icu4j_root_dir> [<locale>+]
|
|
|
|
genrbjar creates the ICULocaleData.jar file in the icu4j project. It
|
|
uses locale data files in the icu4c directory and processes them with
|
|
genrb to generate Java source. It makes necessary edits to the Java
|
|
source, then compiles the Java to .class files, then creates a .jar
|
|
file. The ICULocaleData.jar file is created in its correct location
|
|
within the icu4j directory structure.
|
|
|
|
Optionally, one or more locales may be specified on the command line.
|
|
If this is done, only those locales will be processed. If no locales
|
|
are listed, all locales are processed.
|
|
|
|
Before running this tool, a JDK must be installed and the javac and
|
|
jar binaries for that JDK must be on the system path.
|
|
END
|
|
exit(0);
|
|
}
|
|
|
|
__END__
|
|
:endofperl
|