use strict;
use warnings;
use File::Path;
use File::Copy;
usage() unless (@ARGV >= 3);
my $ICU_ROOT = shift;
my $ICU4J_ROOT = shift;
my $ldVar = shift;
print "\n[Step 1: Run genrb]\n";
my $genrb = "$ICU_ROOT/source/tools/genrb/genrb";
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 = "$ldVar=$ICU_ROOT/source/common:$ICU_ROOT/source/i18n:$ICU_ROOT/source/tools/toolutil:$ICU_ROOT/source/data/out:$ICU_ROOT/source/data: $genrb -s. -d$javaDir -j -p com.ibm.icu.impl.data -b LocaleElements ";
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) {
cmd("$op $_", " $_ ");
++$count;
}
print "\nProcessed $count locale file(s)\n";
print "\n[Step 2: Create LocaleElements_index.java]\n";
chdir("$ICU_ROOT/source/data/out/build");
cmd("$op res_index.txt");
chdir($javaDir);
my $f = "LocaleElements_index.java";
unlink $f if (-e $f);
rename "LocaleElements_res_index.java", $f;
patchIndex("LocaleElements_index.java");
print "\n[Step 3: Scan 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\"/) {
$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";
}
}
print "\n[Step 4: Fix %%ALIAS tags]\n";
my %patched; foreach my $loc (sort keys %aliases) {
my $aliasee = $aliases{$loc};
if (!exists($patched{$aliasee})) {
$patched{$aliasee} = 1;
}
patchAlias($loc, $aliasee);
}
print "\n[Step 5: Patch transliteration resources]\n";
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);
}
print "\n[Step 6: Compile .java files]\n";
my $cmd = "javac -classpath $ICU4J_ROOT/classes:$javaRootDir:%CLASSPATH% $pkg/*.java";
chdir($javaRootDir);
print "Directory: $javaRootDir\n";
cmd($cmd);
print "\n[Step 7: Update .jar file]\n";
my $jarFile = "$ICU4J_ROOT/src/$pkg/ICULocaleData.jar";
my $filesToBePackaged= "$pkg/*.class $pkg/*.col $pkg/*.brk $pkg/*.utf8";
$cmd = "jar uf $jarFile $filesToBePackaged";
print "Directory: $javaRootDir\n";
chdir($javaRootDir);
if(-e "$jarFile"){
if (! -e "$jarFile.orig") {
copy("$jarFile","$jarFile.orig");
}
}else{
$jarFile ="$ICU_ROOT/source/data/locales/java/ICULocaleData.jar";
$cmd = "jar cvf $jarFile $filesToBePackaged";
}
cmd($cmd);
print " $jarFile updated\n";
print "\n[All done]\n";
exit(0);
sub cmd {
my $cmd = shift;
my $prompt = shift;
if ($prompt) {
print $prompt;
} else {
print "{Command: $cmd}..";
}
my_system($cmd);
my $exit_value = $? >> 8;
if ($exit_value == 0) {
print "ok\n" unless ($prompt);
} else {
++$errCount;
print "ERROR ($exit_value)\n";
exit(1);
}
}
sub my_system {
my $pid = fork;
if (! defined $pid) {
return -1;
} elsif ($pid) {
return waitpid($pid, 0);
} else {
exec(@_) or exit $!;
}
}
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>) {
print OUT;
}
close(IN);
close(OUT);
unlink($file);
rename("$file.new", $file);
print " $file patched (aliasee)\n";
}
sub patchAlias {
my $loc = shift;
my $aliasee = shift;
my $file = "LocaleElements_$loc.java";
open(IN, $file) or die;
open(OUT, ">$file.new") or die;
my $var = "static final Object";
while (<IN>) {
if(/$var/){
print OUT " static final Object[][] data = LocaleElements_$aliasee.data;\n";
<IN>;
<IN>;
<IN>;
<IN>;
<IN>;
} else {
print OUT;
}
}
close(IN);
close(OUT);
unlink($file);
rename("$file.new", $file);
print " $file patched (alias)\n";
}
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 patchIndex {
my $file = shift;
open(IN, $file) or die;
open(OUT, ">$file.new") or die;
while (<IN>) {
s/res_(index)/$1/;
print OUT;
}
close(IN);
close(OUT);
unlink($file);
rename("$file.new", $file);
print " $file patched (index)\n";
}
sub usage {
print << "END";
Usage: genrbjar.pl <icu_root_dir> <icu4j_root_dir> <ld_path_variable_name> [<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.
e.g:
i) on MacOSX: ./genrbjar.pl /Users/build/ICU_MACOSX/icu /Users/build/icu4j DYLD_LIBRARY_PATH
ii) on Linux: ./genrbjar.pl /Users/build/ICU_MACOSX/icu /Users/build/icu4j LD_LIBRARY_PATH
END
exit(0);
}
__END__
:endofperl