ICU-7259 remove obsolete gendtjar.pl
X-SVN-Rev: 26950
This commit is contained in:
Markus Scherer
parent
2f8822e8b3
commit
9a9fcc0fac
@ -50,75 +50,3 @@ After the ICU4C-side steps above, build the core-data and core-test-data targets
|
||||
|
||||
cd $icu4j_root
|
||||
ant core-data core-test-data
|
||||
|
||||
* Alternative instructions *****************************************************
|
||||
|
||||
Procedures for building ICU4J data from ICU4C data on a Unix system:
|
||||
|
||||
1. Download and build ICU4C. For more instructions on downloading and building
|
||||
ICU4C, see the ICU4C readme at:
|
||||
http://source.icu-project.org/repos/icu/icu/trunk/readme.html#HowToBuild
|
||||
|
||||
2. In your shell, navigate to $icu4c_root/source/tools/genrb. $icu4c_root is
|
||||
the root directory of ICU4C source package.
|
||||
|
||||
3. Create a new file named "Makefile.local" in this directory. In this file
|
||||
set the ICU4J_HOME variable to be the root path of ICU4J.
|
||||
Ex: ICU4J_HOME=/home/srl/icu4j
|
||||
|
||||
4. If there are spaces in your Java bin directory path (which is especially
|
||||
common using cygwin)
|
||||
(EX: /cygdrive/c/Program Files/Java/jdk1.5.0_15/bin), you may need to
|
||||
set GENDTJAR_JARHOME in Makefile.local. On a standard Unix based system,
|
||||
with the Java bin directory in your PATH, this step is not required.
|
||||
|
||||
You can set GENDTJAR_JARHOME by hard coding the path to the Java
|
||||
bin directory.
|
||||
|
||||
For example, on Cygwinc (notice the backslash used for the space):
|
||||
GENDTJAR_JARHOME=/cygdrive/c/Program\ Files/Java/jdk1.5.0_15/bin
|
||||
|
||||
5. In this same directory $icu4c_root/source/tools/genrb,
|
||||
run the command 'make build-icu4j'
|
||||
|
||||
6. Build the resources target of the ICU4J ant build to unpack the jar files
|
||||
with the following commands:
|
||||
cd $icu4j_root
|
||||
ant resources
|
||||
|
||||
********************************************************************************
|
||||
|
||||
If the above procedure fails to work, you may attempt to use the
|
||||
old procedure which uses less automation & path "guessing":
|
||||
|
||||
1. Download and build ICU4C. For more instructions on downloading and building
|
||||
ICU4C, see the ICU4C readme at:
|
||||
http://source.icu-project.org/repos/icu/icu/tags/release-3-8/readme.html#HowToBuild
|
||||
|
||||
2. Change directory to $icu4c_root/source/tools/genrb. $icu4c_root is the root
|
||||
directory of ICU4C source package.
|
||||
|
||||
3. Run gendtjar.pl from that directory itself with the command:
|
||||
./gendtjar.pl --icu-root=$icu4c_root --jar=$jdk_home/bin
|
||||
--icu4j-root=$icu4j_root
|
||||
|
||||
e.g.
|
||||
./gendtjar.pl --icu-root=$HOME/icu4c --jar=/usr/local/bin/java/bin/ --icu4j-root=$HOME/icu4j
|
||||
|
||||
Execution of gendtjar.pl script will create the required jar files in
|
||||
$icu4c_root/source/tools/genrb/temp and then copy them to their
|
||||
final locations in the ICU4J structure:
|
||||
$icu4j_root/src/com/ibm/icu/impl/data
|
||||
and
|
||||
$icu4j_root/src/com/ibm/icu/dev/data.
|
||||
|
||||
4. Build resources target of ant to unpack the jar files
|
||||
with the following commands:
|
||||
|
||||
cd $icu4j_root
|
||||
ant resources
|
||||
|
||||
Note: if gendtjar.pl does not work, the --verbose option can help in
|
||||
debugging why it went wrong.
|
||||
|
||||
********************************************************************************
|
||||
@ -1,15 +1,8 @@
|
||||
#################################################################################
|
||||
## Makefile.in for ICU - tools/genrb #
|
||||
## Copyright (c) 1999-2009, International Business Machines Corporation and #
|
||||
## others. All Rights Reserved. #
|
||||
## Makefile.in for ICU - tools/genrb #
|
||||
## Copyright (c) 1999-2009, International Business Machines Corporation and #
|
||||
## others. All Rights Reserved. #
|
||||
#################################################################################
|
||||
#
|
||||
#
|
||||
# For Help with this Makefile and the procedures for generating ICU4J data, please see
|
||||
# "icu4j-readme.txt" in $icu4c_root/source/data
|
||||
#
|
||||
#
|
||||
|
||||
|
||||
## Source directory information
|
||||
srcdir = @srcdir@
|
||||
@ -50,39 +43,11 @@ DERB_OBJ = derb.o
|
||||
DEPS = $(OBJECTS:.o=.d)
|
||||
DERB_DEPS = $(DERB_OBJ:.o=.d)
|
||||
|
||||
# build-icu4j variables
|
||||
GENDTJAR_ICUHOME=$(shell pwd)/../../..
|
||||
GENDTJAR_OPTS=--icu-root="$(GENDTJAR_ICUHOME)" --jar="$(GENDTJAR_JARHOME)" --icu4j-root="$(ICU4J_HOME)" --verbose
|
||||
GENDTJAR_TEMP=./temp/
|
||||
GENDTJAR=$(srcdir)/gendtjar.pl
|
||||
|
||||
-include Makefile.local
|
||||
|
||||
ifeq (,$(ICU4J_HOME))
|
||||
ICU4J_HOME=$(shell pwd)/icu4j
|
||||
endif
|
||||
|
||||
##Added by Brian Rower 6/25/08
|
||||
##if JAVA_HOME was not set, try to set it by finding jar
|
||||
ifeq (,$(JAVA_HOME))
|
||||
JAVA_HOME=$(shell dirname `which jar`)/..
|
||||
ifeq (,$(GENDTJAR_JARHOME))
|
||||
GENDTJAR_JARHOME=$(shell dirname `which jar`)
|
||||
endif
|
||||
endif
|
||||
|
||||
##if GENDTJAR_JARHOME (the directory that "jar" lives in) is not set
|
||||
##set it equal to $JAVA_HOME/bin
|
||||
ifeq (,$(GENDTJAR_JARHOME))
|
||||
GENDTJAR_JARHOME=""$(JAVA_HOME)"/bin"
|
||||
endif
|
||||
|
||||
|
||||
|
||||
## List of phony targets
|
||||
.PHONY : all all-local install install-local clean clean-local \
|
||||
distclean distclean-local dist dist-local check check-local install-man \
|
||||
build-icu4j
|
||||
distclean distclean-local dist dist-local check check-local install-man
|
||||
|
||||
## Clear suffix list
|
||||
.SUFFIXES :
|
||||
@ -110,7 +75,7 @@ dist-local:
|
||||
|
||||
clean-local:
|
||||
test -z "$(CLEANFILES)" || $(RMV) $(CLEANFILES)
|
||||
$(RMV) $(TARGET) $(DERB) $(OBJECTS) $(DERB_OBJ) $(GENDTJAR_TEMP)
|
||||
$(RMV) $(TARGET) $(DERB) $(OBJECTS) $(DERB_OBJ)
|
||||
|
||||
distclean-local: clean-local
|
||||
$(RMV) Makefile
|
||||
@ -129,23 +94,6 @@ $(DERB) : $(DERB_OBJ)
|
||||
$(LINK.cc) $(OUTOPT)$@ $^ $(LIBS)
|
||||
$(POST_BUILD_STEP)
|
||||
|
||||
#$(GENDTJAR_JARHOME)/jar:
|
||||
# @echo $@ not found - make sure GENDTJAR_JARHOME is set. See Makefile.in
|
||||
# exit 1
|
||||
|
||||
$(ICU4J_HOME)/build.xml:
|
||||
@echo warning: $@ not found - make sure ICU4J_HOME is set.
|
||||
|
||||
|
||||
#Removed GENDTJAR_JARHOME dependancy. If the file path happens to contain a space in it,
|
||||
#having it as a target will cause it to error out when it thinks that there are TWO targets. - Brian Rower 6/25/08
|
||||
build-icu4j: $(GENDTJAR) $(ICU4J_HOME)/build.xml #$(GENDTJAR_JARHOME)/jar
|
||||
# clean up old temp files
|
||||
-$(RMV) $(GENDTJAR_TEMP)
|
||||
perl $(GENDTJAR) $(GENDTJAR_OPTS)
|
||||
@echo Finished building to $(ICU4J_HOME)
|
||||
|
||||
|
||||
# This line is needed to serialize builds when the gmake -j option is used.
|
||||
$(TARGET_STUB_NAME).$(SECTION): $(DERB_STUB_NAME).$(SECTION)
|
||||
|
||||
@ -162,4 +110,3 @@ ifneq ($(patsubst %clean,,$(MAKECMDGOALS)),)
|
||||
-include $(DEPS)
|
||||
endif
|
||||
endif
|
||||
|
||||
|
||||
@ -1,391 +0,0 @@
|
||||
#!/usr/bin/perl
|
||||
# ********************************************************************
|
||||
# * COPYRIGHT:
|
||||
# * Copyright (c) 2002-2009, International Business Machines Corporation and
|
||||
# * others. All Rights Reserved.
|
||||
# ********************************************************************
|
||||
|
||||
# Script to generate the icudata.jar and testdata.jar files. 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.
|
||||
|
||||
# Ram Viswanadha
|
||||
# copied heavily from genrbjar.pl
|
||||
#
|
||||
# 6/25/08 - Modified to better handle cygwin paths - Brian Rower
|
||||
#
|
||||
use File::Find;
|
||||
use File::Basename;
|
||||
use IO::File;
|
||||
use Cwd;
|
||||
use File::Copy;
|
||||
use Getopt::Long;
|
||||
use File::Path;
|
||||
use File::Copy;
|
||||
use Cwd;
|
||||
use Cwd 'abs_path';
|
||||
|
||||
main();
|
||||
|
||||
#------------------------------------------------------------------
|
||||
sub main(){
|
||||
|
||||
GetOptions(
|
||||
"--icu-root=s" => \$icuRootDir,
|
||||
"--jar=s" => \$jarDir,
|
||||
"--icu4j-root=s" => \$icu4jDir,
|
||||
"--version=s" => \$version,
|
||||
"--verbose" => \$verbose,
|
||||
"--help" => \$help
|
||||
);
|
||||
$cwd = abs_path(getcwd);
|
||||
|
||||
if($help){
|
||||
usage();
|
||||
}
|
||||
unless (defined $icuRootDir){
|
||||
$icuRootDir =abs_path($cwd."/../../..");
|
||||
}
|
||||
unless (defined $icu4jDir){
|
||||
$icu4jDir =abs_path($icuRootDir."/../icu4j");
|
||||
}
|
||||
unless (defined $jarDir){
|
||||
if(defined $ENV{'JAVA_HOME'}){
|
||||
$jarDir=$ENV{'JAVA_HOME'}."/bin";
|
||||
}else{
|
||||
print("ERROR: JAVA_HOME enviroment variable undefined and --jar argument not specifed.\n");
|
||||
usage();
|
||||
}
|
||||
}
|
||||
|
||||
$platform = getPlatform();
|
||||
$icuBinDir = $icuRootDir;
|
||||
|
||||
$path=$ENV{'PATH'};
|
||||
|
||||
if(($platform eq "cygwin") || ($platform eq "linux")){
|
||||
$icuBinDir .= "/source/bin";
|
||||
$icuLibDir = abs_path($icuBinDir."/../lib");
|
||||
$path .=":$icuBinDir:$icuLibDir";
|
||||
|
||||
$libpath = $ENV{'LD_LIBRARY_PATH'}.":$icuLibDir";
|
||||
$ENV{'LD_LIBRARY_PATH'} = $libpath;
|
||||
|
||||
#print ("##### LD_LIBRARY_PATH = $ENV{'LD_LIBRARY_PATH'}\n");
|
||||
|
||||
}elsif($platform eq "aix"){
|
||||
|
||||
$icuBinDir .= "/source/bin";
|
||||
$icuLibDir = abs_path($icuBinDir."/../lib");
|
||||
$path .=":$icuBinDir:$icuLibDir";
|
||||
|
||||
$libpath = $ENV{'LIBPATH'}.":$icuLibDir";
|
||||
$ENV{'LIBPATH'} = $libpath;
|
||||
#print ("##### LIBPATH = $ENV{'LIBPATH'}\n");
|
||||
}elsif($platform eq "darwin"){
|
||||
$icuBinDir .= "/source/bin";
|
||||
$icuLibDir = abs_path($icuBinDir."/../lib");
|
||||
$path .=":$icuBinDir:$icuLibDir";
|
||||
|
||||
$libpath = $ENV{'DYLD_LIBRARY_PATH'}.":$icuLibDir";
|
||||
$ENV{'DYLD_LIBRARY_PATH'} = $libpath;
|
||||
|
||||
}elsif($platform eq "MSWin32"){
|
||||
$icuBinDir =$icuRootDir."/bin";
|
||||
$path .=$icuBinDir;
|
||||
|
||||
}
|
||||
$ENV{'PATH'} = $path;
|
||||
#print ("##### PATH = $ENV{'PATH'}\n");
|
||||
# TODO add more platforms and test on Linux and Unix
|
||||
|
||||
$icuBuildDir =$icuRootDir."/source/data/out/build";
|
||||
$icuTestDataSrcDir =$icuRootDir."/source/test/testdata/";
|
||||
$icuTestDataDir =$icuRootDir."/source/test/testdata/out/build/";
|
||||
|
||||
# now build ICU
|
||||
buildICU($platform, $icuRootDir, $icuTestDataDir, $verbose);
|
||||
|
||||
#figure out the version and endianess
|
||||
unless (defined $version){
|
||||
($version, $endian) = getVersion();
|
||||
#print "#################### $version, $endian ######\n";
|
||||
}
|
||||
|
||||
$icupkg = $icuBinDir."/icupkg -tb";
|
||||
$tempDir = $cwd."/temp";
|
||||
$version =~ s/\.//;
|
||||
$icu4jImpl = "com/ibm/icu/impl/data/";
|
||||
$icu4jDataDir = $icu4jImpl."icudt".$version."b";
|
||||
$icu4jDevDataDir = "com/ibm/icu/dev/data/";
|
||||
$icu4jTestDataDir = "$icu4jDevDataDir/testdata";
|
||||
$icu4jMainDataDir = "main/shared/data";
|
||||
|
||||
$icuDataDir =$icuBuildDir."/icudt".$version.checkPlatformEndianess();
|
||||
|
||||
#remove the stale directories
|
||||
unlink($tempDir);
|
||||
|
||||
convertData($icuDataDir, $icupkg, $tempDir, $icu4jDataDir, $verbose);
|
||||
#convertData($icuDataDir."/coll/", $icupkg, $tempDir, $icu4jDataDir."/coll");
|
||||
createJar("\"$jarDir/jar\"", "icudata.jar", $tempDir, $icu4jDataDir, $verbose);
|
||||
|
||||
convertTestData($icuTestDataDir, $icupkg, $tempDir, $icu4jTestDataDir, $verbose);
|
||||
createJar("\"$jarDir/jar\"", "testdata.jar", $tempDir, $icu4jTestDataDir, $verbose);
|
||||
copyData($icu4jDir, $icu4jMainDataDir, $tempDir, $verbose);
|
||||
}
|
||||
|
||||
#-----------------------------------------------------------------------
|
||||
sub buildICU{
|
||||
local($platform, $icuRootDir, $icuTestDataDir, $verbose) = @_;
|
||||
$icuSrcDir = $icuRootDir."/source";
|
||||
$icuSrcDataDir = $icuSrcDir."/data";
|
||||
|
||||
chdir($icuSrcDir);
|
||||
# clean the data directories
|
||||
unlink($icuBuildDir."../");
|
||||
unlink($icuTestDataDir."../");
|
||||
|
||||
if(($platform eq "cygwin")||($platform eq "darwin")||($platform eq "linux")){
|
||||
|
||||
# make all in ICU
|
||||
cmd("make all", $verbose);
|
||||
chdir($icuSrcDataDir);
|
||||
cmd("make uni-core-data", $verbose);
|
||||
if(chdir($icuTestDataSrcDir)){
|
||||
print("Invoking make in directory $icuTestDataSrcDir\n");
|
||||
cmd("make JAVA_OUT_DIR=\"$icu4jDir/main/tests/core/src/com/ibm/icu/dev/test/util/\" all java-output", $verbose);
|
||||
}else{
|
||||
die "Could not cd to $icuTestDataSrcDir\n";
|
||||
}
|
||||
}elsif($platform eq "aix"){
|
||||
# make all in ICU
|
||||
cmd("gmake all", $verbose);
|
||||
chdir($icuSrcDataDir);
|
||||
cmd("gmake uni-core-data", $verbose);
|
||||
chdir($icuTestDataDir."../../");
|
||||
cmd("gmake JAVA_OUT_DIR=\"$icu4jDir/main/tests/core/src/com/ibm/icu/dev/test/util/\" all java-output", $verbose);
|
||||
}elsif($platform eq "MSWin32"){
|
||||
#devenv.com $projectFileName \/build $configurationName > \"$cLogFile\" 2>&1
|
||||
cmd("devenv.com allinone/allinone.sln /useenv /build Debug", $verbose);
|
||||
# build required data. this is required coz building icu will not build all the data
|
||||
chdir($icuSrcDataDir);
|
||||
cmd("NMAKE /f makedata.mak ICUMAKE=\"$icuSrcDataDir\" CFG=debug uni-core-data", $verbose);
|
||||
print "WARNING: Don't know how to build java-output on $platform. \n";
|
||||
}else{
|
||||
print "ERROR: Could not build ICU unknown platform $platform. \n";
|
||||
exit(-1);
|
||||
}
|
||||
|
||||
chdir($cwd);
|
||||
}
|
||||
#-----------------------------------------------------------------------
|
||||
sub getVersion{
|
||||
my @list;
|
||||
opendir(DIR,$icuBuildDir);
|
||||
|
||||
@list = readdir(DIR);
|
||||
closedir(DIR);
|
||||
|
||||
if(scalar(@list)>3){
|
||||
print("ERROR: More than 1 directory in build. Can't decide the version");
|
||||
exit(-1);
|
||||
}
|
||||
foreach $item (@list){
|
||||
next if($item eq "." || $item eq "..");
|
||||
my ($ver, $end) =$item =~ m/icudt(.*)(l|b|e)$/;
|
||||
return $ver,$end;
|
||||
}
|
||||
}
|
||||
|
||||
#-----------------------------------------------------------------------
|
||||
sub getPlatform{
|
||||
$platform = $^O;
|
||||
return $platform;
|
||||
}
|
||||
#-----------------------------------------------------------------------
|
||||
sub createJar{
|
||||
local($jar, $jarFile, $tempDir, $dirToJar, $verbose) = @_;
|
||||
chdir($tempDir);
|
||||
$command="";
|
||||
print "INFO: Creating $jarFile\n";
|
||||
if($platform eq "cygwin") {
|
||||
#make sure the given path is a cygwin path not a windows path
|
||||
$jar = `cygpath -au $jar`;
|
||||
chop($jar);
|
||||
|
||||
#added by Brian Rower 6/25/08
|
||||
#The following code deals with spaces in the path
|
||||
if(index($jar, "/ ") > 0)
|
||||
{
|
||||
$jar =~ s/[\/]\s/\\ /g;
|
||||
}
|
||||
elsif(index($jar, " ") > 0)
|
||||
{
|
||||
$jar =~ s/\s/\\ /g;
|
||||
}
|
||||
$tempDir = `cygpath -aw $tempDir`;
|
||||
chop($tempDir);
|
||||
$tempDir =~ s/\\/\\\\/g;
|
||||
}
|
||||
if(defined $verbose){
|
||||
$command = "$jar cvf $jarFile -C $tempDir $dirToJar";
|
||||
}else{
|
||||
$command = "$jar cf $jarFile -C $tempDir $dirToJar";
|
||||
}
|
||||
cmd($command, $verbose);
|
||||
}
|
||||
#-----------------------------------------------------------------------
|
||||
sub checkPlatformEndianess {
|
||||
my $is_big_endian = unpack("h*", pack("s", 1)) =~ /01/;
|
||||
if ($is_big_endian) {
|
||||
return "b";
|
||||
}else{
|
||||
return "l";
|
||||
}
|
||||
}
|
||||
#-----------------------------------------------------------------------
|
||||
sub copyData{
|
||||
local($icu4jDir, $icu4jMainDataDir, $tempDir) =@_;
|
||||
print("INFO: Copying $tempDir/icudata.jar to $icu4jDir/$icu4jMainDataDir\n");
|
||||
mkpath("$icu4jDir/$icu4jMainDataDir");
|
||||
copy("$tempDir/icudata.jar", "$icu4jDir/$icu4jMainDataDir");
|
||||
print("INFO: Copying $tempDir/testdata.jar $icu4jDir/$icu4jMainDataDir\n");
|
||||
copy("$tempDir/testdata.jar","$icu4jDir/$icu4jMainDataDir");
|
||||
}
|
||||
#-----------------------------------------------------------------------
|
||||
sub convertData{
|
||||
local($icuDataDir, $icupkg, $tempDir, $icu4jDataDir) =@_;
|
||||
my $dir = $tempDir."/".$icu4jDataDir;
|
||||
# create the temp directory
|
||||
mkpath($dir) ;
|
||||
# cd to the temp directory
|
||||
chdir($tempDir);
|
||||
my $endian = checkPlatformEndianess();
|
||||
my @list;
|
||||
opendir(DIR,$icuDataDir);
|
||||
#print $icuDataDir;
|
||||
@list = readdir(DIR);
|
||||
closedir(DIR);
|
||||
my $op = $icupkg;
|
||||
#print "####### $endian ############\n";
|
||||
if($endian eq "l"){
|
||||
print "INFO: {Command: $op $icuDataDir/*.*}\n";
|
||||
}else{
|
||||
print "INFO: {Command: copy($icuDataDir/*.*, $tempDir/$icu4jDataDir/*)}\n";
|
||||
}
|
||||
|
||||
$i=0;
|
||||
# now convert
|
||||
foreach $item (@list){
|
||||
next if($item eq "." || $item eq "..");
|
||||
# next if($item =~ /^t_.*$\.res/ ||$item =~ /^translit_.*$\.res/ ||
|
||||
# $item=~/$\.crs/ || $item=~ /$\.txt/ ||
|
||||
# $item=~/icudata\.res/ || $item=~/$\.exp/ || $item=~/$\.lib/ ||
|
||||
# $item=~/$\.obj/ || $item=~/$\.lst/);
|
||||
next if($item =~ /^t_.*$\.res/ ||$item =~ /^translit_.*$\.res/ ||
|
||||
$item=~/$\.crs/ || $item=~ /$\.txt/ ||
|
||||
$item=~/icudata\.res/ || $item=~/$\.exp/ || $item=~/$\.lib/ || $item=~/$\.obj/ ||
|
||||
$item=~/$\.lst/);
|
||||
if(-d "$icuDataDir/$item"){
|
||||
convertData("$icuDataDir/$item/", $icupkg, $tempDir, "$icu4jDataDir/$item/");
|
||||
next;
|
||||
}
|
||||
if($endian eq "l"){
|
||||
$command = $icupkg." $icuDataDir/$item $tempDir/$icu4jDataDir/$item";
|
||||
cmd($command, $verbose);
|
||||
}else{
|
||||
$rc = copy("$icuDataDir/$item", "$tempDir/$icu4jDataDir/$item");
|
||||
if($rc==1){
|
||||
#die "ERROR: Could not copy $icuDataDir/$item to $tempDir/$icu4jDataDir/$item, $!";
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
chdir("..");
|
||||
print "INFO: DONE\n";
|
||||
}
|
||||
#-----------------------------------------------------------------------
|
||||
sub convertTestData{
|
||||
local($icuDataDir, $icupkg, $tempDir, $icu4jDataDir) =@_;
|
||||
my $dir = $tempDir."/".$icu4jDataDir;
|
||||
# create the temp directory
|
||||
mkpath($dir);
|
||||
# cd to the temp directory
|
||||
chdir($tempDir);
|
||||
my $op = $icupkg;
|
||||
print "INFO: {Command: $op $icuDataDir/*.*}\n";
|
||||
my @list;
|
||||
opendir(DIR,$icuDataDir) or die "ERROR: Could not open the $icuDataDir directory for reading $!";
|
||||
#print $icuDataDir;
|
||||
@list = readdir(DIR);
|
||||
closedir(DIR);
|
||||
my $endian = checkPlatformEndianess();
|
||||
$i=0;
|
||||
# now convert
|
||||
foreach $item (@list){
|
||||
next if($item eq "." || $item eq "..");
|
||||
next if( item=~/$\.crs/ || $item=~ /$\.txt/ ||
|
||||
$item=~/$\.exp/ || $item=~/$\.lib/ || $item=~/$\.obj/ ||
|
||||
$item=~/$\.mak/ || $item=~/test\.icu/ || $item=~/$\.lst/);
|
||||
$file = $item;
|
||||
$file =~ s/testdata_//g;
|
||||
if($endian eq "l"){
|
||||
$command = "$icupkg $icuDataDir/$item $tempDir/$icu4jDataDir/$file";
|
||||
cmd($command, $verbose);
|
||||
}else{
|
||||
#print("Copying $icuDataDir/$item $tempDir/$icu4jDataDir/$file\n");
|
||||
copy("$icuDataDir/$item", "$tempDir/$icu4jDataDir/$file");
|
||||
}
|
||||
|
||||
|
||||
}
|
||||
chdir("..");
|
||||
print "INFO: DONE\n";
|
||||
}
|
||||
#------------------------------------------------------------------------------------------------
|
||||
sub cmd {
|
||||
my $cmd = shift;
|
||||
my $verbose = shift;
|
||||
my $prompt = shift;
|
||||
|
||||
$prompt = "Command: $cmd.." unless ($prompt);
|
||||
if(defined $verbose){
|
||||
print $prompt."\n";
|
||||
}
|
||||
system($cmd);
|
||||
my $exit_value = $? >> 8;
|
||||
#my $signal_num = $? & 127;
|
||||
#my $dumped_core = $? & 128;
|
||||
if ($exit_value == 0) {
|
||||
if(defined $verbose){
|
||||
print "ok\n";
|
||||
}
|
||||
} else {
|
||||
++$errCount;
|
||||
print "ERROR: Execution of $prompt returned ($exit_value)\n";
|
||||
exit(1);
|
||||
}
|
||||
}
|
||||
#-----------------------------------------------------------------------
|
||||
sub usage {
|
||||
print << "END";
|
||||
Usage:
|
||||
gendtjar.pl
|
||||
Options:
|
||||
--icu-root=<directory where icu4c lives>
|
||||
--jar=<directory where jar.exe lives>
|
||||
--icu4j-root=<directory>
|
||||
--version=<ICU4C version>
|
||||
--verbose
|
||||
--help
|
||||
e.g:
|
||||
gendtjar.pl --icu-root=\\work\\icu --jar=\\jdk1.4.1\\bin --icu4j-root=\\work\\icu4j --version=3.0
|
||||
END
|
||||
exit(0);
|
||||
}
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user