Kaydet (Commit) cd4102b0 authored tarafından Vladimir Glazunov's avatar Vladimir Glazunov

#i10000# changes from OOO330 m14

...@@ -5,6 +5,7 @@ ...@@ -5,6 +5,7 @@
# #
use IO::File; use IO::File;
use File::Basename;
$main::hostname= $ARGV[0]; $main::hostname= $ARGV[0];
$main::sdkpath= $ARGV[1]; $main::sdkpath= $ARGV[1];
...@@ -35,7 +36,7 @@ if ( $main::operatingSystem =~ m/darwin/ ) ...@@ -35,7 +36,7 @@ if ( $main::operatingSystem =~ m/darwin/ )
{ {
# $main::OO_SDK_URE_HOME = `cd $main::sdkpath/../ure-link && pwd`; # $main::OO_SDK_URE_HOME = `cd $main::sdkpath/../ure-link && pwd`;
} else { } else {
$main::OO_SDK_URE_HOME = `cd $main::sdkpath/../../ure && pwd`; $main::OO_SDK_URE_HOME = `cd $main::sdkpath/../ure-link && pwd`;
} }
chomp($main::OO_SDK_URE_HOME); chomp($main::OO_SDK_URE_HOME);
...@@ -554,15 +555,26 @@ sub resolveLink ...@@ -554,15 +555,26 @@ sub resolveLink
{ {
my $base= shift; my $base= shift;
my $link= shift; my $link= shift;
my $linktarget = readlink "$base/$link";
my $resolvedpath = "$base/$link";
my $linktarget = readlink "$resolvedpath";
my $resolvedlink = ""; my $resolvedlink = "";
while ( $linktarget ne "") { while ( $linktarget ne "") {
$link = $linktarget;
$linktarget = readlink "$base/$link"; if ( $linktarget =~ m/^\/.*/ )
{
$resolvedpath = "$linktarget";
} else {
$resolvedpath = `cd $base/$linktarget; pwd`;
chop $resolvedpath;
} }
$base = dirname("$resolvedpath");
$resolvedlink = `cd $base/$link; pwd`; $linktarget = readlink "$resolvedpath";
}
$resolvedlink = `cd $resolvedpath; pwd`;
chop $resolvedlink; chop $resolvedlink;
return $resolvedlink; return $resolvedlink;
} }
...@@ -578,6 +590,7 @@ sub searchprog ...@@ -578,6 +590,7 @@ sub searchprog
{ {
if ( $main::operatingSystem =~ m/darwin/ ) { if ( $main::operatingSystem =~ m/darwin/ ) {
$progDir = resolveLink("/System/Library/Frameworks/JavaVM.Framework/Versions", "CurrentJDK"); $progDir = resolveLink("/System/Library/Frameworks/JavaVM.Framework/Versions", "CurrentJDK");
if ( -e "$progDir/$main::OO_SDK_JAVA_BIN_DIR/javac" ) if ( -e "$progDir/$main::OO_SDK_JAVA_BIN_DIR/javac" )
{ {
return "$progDir/$main::OO_SDK_JAVA_BIN_DIR"; return "$progDir/$main::OO_SDK_JAVA_BIN_DIR";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment