diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-08 19:57:17 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-08 19:57:17 +0000 |
commit | 35ef589f8a1ef7477ab32439f10c2e24fb7e16c2 (patch) | |
tree | 09b5a8deeea5c8de7ac9aa9c685edb883363acd7 /jpl/JNI/JNI.pm | |
parent | 3b131e016eab048d0a2e73bbf3cf4d44f4aa7945 (diff) | |
download | perl-35ef589f8a1ef7477ab32439f10c2e24fb7e16c2.tar.gz |
Integrate change #9638 from maintperl into mainline:
update to latest JPL from the anoncvs repository
p4raw-link: @9638 on //depot/maint-5.6/perl: 938d38c3258f3c3cfcda1601950a894c23717286
p4raw-id: //depot/perl@9642
p4raw-branched: from //depot/maint-5.6/perl@9641 'branch in'
jpl/ChangeLog jpl/README.JUST-JNI jpl/docs/Tutorial.pod
p4raw-integrated: from //depot/maint-5.6/perl@9641 'copy in'
jpl/JNI/JNI.xs jpl/PerlInterpreter/PerlInterpreter.h (@5902..)
jpl/README (@7887..) jpl/JNI/Makefile.PL (@9312..) 'merge in'
jpl/JNI/JNI.pm (@5902..) MANIFEST (@9587..)
Diffstat (limited to 'jpl/JNI/JNI.pm')
-rw-r--r-- | jpl/JNI/JNI.pm | 63 |
1 files changed, 56 insertions, 7 deletions
diff --git a/jpl/JNI/JNI.pm b/jpl/JNI/JNI.pm index cee17791cc..c91ae9c998 100644 --- a/jpl/JNI/JNI.pm +++ b/jpl/JNI/JNI.pm @@ -187,7 +187,7 @@ require AutoLoader; GetJavaVM ); -$VERSION = '0.01'; +$VERSION = '0.1'; sub AUTOLOAD { # This AUTOLOAD is used to 'autoload' constants from the constant() @@ -213,28 +213,77 @@ sub AUTOLOAD { bootstrap JNI $VERSION; if (not $JPL::_env_) { + # Note that only Kaffe support only cares about what JNI::Config says + use JNI::Config qw($KAFFE $LD_LIBRARY_PATH $CLASS_HOME $LIB_HOME $JAVA_LIB); + + # Win32 and Sun JDK pay attention to $ENV{JAVA_HOME}; Kaffe doesn't $ENV{JAVA_HOME} ||= "/usr/local/java"; my ($arch, @CLASSPATH); - if ($^O eq 'MSWin32') { + if ($^O eq 'MSWin32' and (! $JNI::Config::KAFFE) ) { $arch = 'MSWin32' unless -d "$ENV{JAVA_HOME}/lib/$arch"; @CLASSPATH = split(/;/, $ENV{CLASSPATH}); @CLASSPATH = "." unless @CLASSPATH; push @CLASSPATH, "$ENV{JAVA_HOME}\\classes", - "$ENV{JAVA_HOME}\\lib\\classes.zip"; + "$ENV{JAVA_HOME}\\lib\\classes.zip", + # MSR - added for JDK 1.3 + "$ENV{JAVA_HOME}\\jre\\lib\\rt.jar", + # MSR - added to find Closer.class + '.'; $ENV{CLASSPATH} = join(';', @CLASSPATH); $ENV{THREADS_TYPE} ||= "green_threads"; - $JAVALIB = "$ENV{JAVA_HOME}/lib/$arch/$ENV{THREADS_TYPE}"; + #$JAVALIB = "$ENV{JAVA_HOME}/lib/$arch/$ENV{THREADS_TYPE}"; + # MSR - changed above for JDK 1.3 + $JAVALIB = "$ENV{JAVA_HOME}/lib/"; + $ENV{LD_LIBRARY_PATH} .= ":$JAVALIB"; push @JVM_ARGS, "classpath", $ENV{CLASSPATH}; - print "JVM_ARGS=@JVM_ARGS!\n"; + print "JVM_ARGS=@JVM_ARGS!\n" if $JPL::DEBUG; $JVM = GetJavaVM("$JAVALIB/javai.dll",@JVM_ARGS); - + } elsif ($^O eq 'MSWin32' and $JNI::Config::KAFFE) { + croak "Kaffe is not yet supported on MSWin32 platform!"; + } elsif ($JNI::Config::KAFFE) { + # The following code has to build a classpath for us. It would be + # better if we could have *both* a classpath and a classhome, and + # not have to "guess" at the classpath like this. We should be able + # to send in, say, a classpath of ".", and classhome of + # ".../share/kaffe", and have it build the right classpath. That + # doesn't work. The function initClasspath() in findInJar.c in the + # Kaffe source says: "Oh, you have a classpath, well forget + # classhome!" This seems brain-dead to me. But, anyway, that's why + # I don't use the classhome option on GetJavaVM. I have to build + # the classpath by hand. *sigh* + # -- bkuhn + + my $classpath = $ENV{CLASSPATH} || "."; + my %classCheck; + @classCheck{split(/\s*:\s*/, $classpath)} = 1; + foreach my $jarFile (qw(Klasses.jar comm.jar pjava.jar + tools.jar microsoft.jar rmi.jar)) { + $classpath .= ":$JNI::Config::CLASS_HOME/$jarFile" + unless defined $classCheck{"$JNI::Config::CLASS_HOME/$jarFile"}; + # Assume that if someone else already put these here, they knew + # what they were doing and have the order right. + } + $classpath = ".:$classpath" unless defined $classCheck{"."}; + + $ENV{CLASSPATH} = $classpath; # Not needed for GetJavaVM(), since + # we pass it in as a JVM option, but + # something else might expect it. + # (also see comment above) + print STDERR "bkuhn: JNI classpath=$classpath\n"; + unshift(@JVM_ARGS, "classpath", $classpath, + "libraryhome", $JNI::Config::LIB_HOME); + + # The following line is useless; see comment above. + # "classhome", $JNI::Config::CLASS_HOME); + + $JVM = GetJavaVM($JNI::Config::JAVA_LIB, @JVM_ARGS); } else { chop($arch = `uname -p`); chop($arch = `uname -m`) unless -d "$ENV{JAVA_HOME}/lib/$arch"; @@ -251,7 +300,7 @@ if (not $JPL::_env_) { $JAVALIB = "$ENV{JAVA_HOME}/lib/$arch/$ENV{THREADS_TYPE}"; $ENV{LD_LIBRARY_PATH} .= ":$JAVALIB"; push @JVM_ARGS, "classpath", $ENV{CLASSPATH}; - print "JVM_ARGS=@JVM_ARGS!\n"; + print "JVM_ARGS=@JVM_ARGS!\n" if $JPL::DEBUG; $JVM = GetJavaVM("$JAVALIB/libjava.so",@JVM_ARGS); } } |