[libinline-java-perl] 210/398: Doc changes to 0.34
Jonas Smedegaard
dr at jones.dk
Thu Feb 26 11:43:04 UTC 2015
This is an automated email from the git hooks/post-receive script.
js pushed a commit to tag 0.55
in repository libinline-java-perl.
commit d9763fcfb5a6a6d4aec5dbd9c8cf28d27a6f1502
Author: patrick_leb <>
Date: Tue Jan 21 01:33:18 2003 +0000
Doc changes to 0.34
---
CHANGES | 5 +++++
Java.pm | 24 ++++--------------------
Java.pod | 26 +++++++++++++++++---------
Java/Makefile.PL | 19 ++++++++-----------
README | 9 +++++----
README.JNI | 21 ++++++++++++---------
TODO | 2 --
7 files changed, 51 insertions(+), 55 deletions(-)
diff --git a/CHANGES b/CHANGES
index 89fbd59..dccdbfa 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,6 +1,11 @@
Revision history for Perl extension Inline::Java
------------------------------------------------
+0.34
+ - Patch by Doug MacEachern to allow running under servlet engines
+ - Other minor bug fixes and documentation corrections
+ - Moved to Beta status
+
0.33 Mon Jun 17 13:50:14 EDT 2002
- Improved and more flexible debug output
- Auto loading of thread libraries under Solaris
diff --git a/Java.pm b/Java.pm
index 1f951fd..34caa0e 100644
--- a/Java.pm
+++ b/Java.pm
@@ -107,18 +107,10 @@ sub register {
}
-sub validate {
- my $o = shift ;
-
- return $o->_validate(0, @_) ;
-}
-
-
# Here validate is overridden because some of the config options are needed
# at load as well.
-sub _validate {
+sub validate {
my $o = shift ;
- my $ignore_other_configs = shift ;
if (! exists($o->{ILSM}->{PORT})){
$o->{ILSM}->{PORT} = 7890 ;
@@ -189,11 +181,6 @@ sub _validate {
$key, $value,
"Java class names") ;
}
- else{
- if (! $ignore_other_configs){
- croak "'$key' is not a valid config option for Inline::Java";
- }
- }
}
if (defined($ENV{PERL_INLINE_JAVA_DEBUG})){
@@ -590,7 +577,7 @@ sub load {
my $install = File::Spec->catdir($install_lib, "auto", $modpname) ;
# Make sure the default options are set.
- $o->_validate(1, $o->get_config()) ;
+ # $o->_validate(1, $o->get_config()) ;
# If the JVM is not running, we need to start it here.
if (! $JVM){
@@ -1042,12 +1029,9 @@ sub get_fields {
# Return a small report about the Java code.
sub info {
- my $o = shift;
-
- # Make sure the default options are set.
- $o->_validate(1, $o->get_config()) ;
+ my $o = shift ;
- if ((! $o->get_api('mod_exists'))&&(! $o->{ILSM}->{built})){
+ if (! $o->{INLINE}->{object_ready})&&(! $o->{ILSM}->{built})){
$o->build ;
}
diff --git a/Java.pod b/Java.pod
index 24b9b49..f27ca01 100644
--- a/Java.pod
+++ b/Java.pod
@@ -27,14 +27,6 @@ Inline::Java - Write Perl classes in Java.
=for comment
-=head1 WARNING
-
-THIS IS ALPHA SOFTWARE. It is incomplete and possibly unreliable.
-It is also possible that some elements of the interface (API) will
-change in future releases.
- Z<>
-
-
=head1 DESCRIPTION
The C<Inline::Java> module allows you to put Java source code
@@ -143,6 +135,19 @@ behavior of C<Inline::Java>:
'use Inline Java' call inside a Perl script, since all other calls
make use of the same JVM.
+ EMBEDDED_JNI:
+ Same as JNI, except C<Inline::Java> expects the JVM to already be
+ loaded and to have loaded the Perl interpreter that is running the
+ script. This is an advanced feature that should only be need in
+ very specific circumstances.
+ Ex: EMBEDDED_JNI => 1
+ Note: This can also be set globally by setting the
+ PERL_INLINE_JAVA_EMBEDDED_JNI environment variable to 1.
+ Note: The EMBEDDED_JNI option sets the JNI option.
+ Note: This configuration option only has an effect on the first
+ 'use Inline Java' call inside a Perl script, since all other calls
+ make use of the same JVM.
+
SHARED_JVM:
This mode enables mutiple processes to share the same JVM. It was
created mainly in order to be able to use C<Inline::Java> under
@@ -187,6 +192,9 @@ behavior of C<Inline::Java>:
PERL_INLINE_JAVA_JNI:
Same as the JNI option.
+ PERL_INLINE_JAVA_EMBEDDED_JNI:
+ Same as the EMBEDDED_JNI option.
+
PERL_INLINE_SHARED_JVM:
Same as the SHARED_JVM option.
@@ -989,7 +997,7 @@ Brian Ingerson <ingy at cpan.org> is the author of Inline.
=head1 COPYRIGHT
-Copyright (c) 2001-2002, Patrick LeBoutillier.
+Copyright (c) 2001-2003, Patrick LeBoutillier.
All Rights Reserved. This module is free software. It may be used,
redistributed and/or modified under the terms of the Perl Artistic
diff --git a/Java/Makefile.PL b/Java/Makefile.PL
index d335fd4..3162386 100644
--- a/Java/Makefile.PL
+++ b/Java/Makefile.PL
@@ -51,13 +51,13 @@ print
"allows Inline::Java to run the JVM in the default (separate process)\n" .
"fashion. Note: You need a C compiler to build the extension.\n\n" ;
-if (($build_jni || AskYN("Do you wish to build the JNI extension?"))){
+if (($build_jni || AskYN("Do you wish to build the JNI extension", 'n'))){
print "\nBuilding JNI extension.\n\n" ;
rename("JNI.xs_", "JNI.xs") ;
$jdk_dir = ($jdk_dir || AskSub("Enter the path to your Java 2 SDK installation",
- sub {((-d $_[0]) ? 1 : (print("Directory '$_[0]' does not exist.\n") && 0))})) ;
+ sub {((($_[0]) && (-d $_[0])) ? 1 : (print("Directory '$_[0]' does not exist.\n") && 0))})) ;
print "\n" ;
my $type = FindDefaultVMType() ;
@@ -238,10 +238,11 @@ sub Ask {
# Gets yes/no from stdin
sub AskYN {
my $ques = shift ;
+ my $def = shift ;
- $ques .= " [yn]" ;
+ $ques .= " [yn]?" ;
- my $ans = AskSub($ques, sub {$_[0] =~ /^(y|n)$/i}) ;
+ my $ans = AskSub($ques, sub {((! $_[0])||($_[0] =~ /^(y|n)$/i))}) ;
return (($ans eq "y") ? 1 : 0) ;
}
@@ -251,19 +252,15 @@ sub AskSub {
my $ques = shift ;
my $sub = shift ;
- my $str = $ques . ": " ;
- print $str ;
+ my $str = $ques . ":" ;
- while (<STDIN>){
- my $ans = $_ ;
- chomp($ans) ;
+ while (1){
+ my $ans = prompt($str) ;
if (! $sub){
return $ans ;
}
elsif ($sub->($ans)){
return $ans ;
}
-
- print $str ;
}
}
diff --git a/README b/README
index 85d7c91..10216b6 100644
--- a/README
+++ b/README
@@ -68,9 +68,10 @@ second time you test loading of an already built module.
-------------------------------------------------------------------------------
FEATURES:
-WARNING: THIS IS ALPHA SOFTWARE. It is incomplete and possibly unreliable.
- It is also possible that some elements of the interface (API) will
- change in future releases.
+Inline::Java version 0.34 is a minor upgrade that includes:
++ Patch by Doug MacEachern to allow running under servlet engines
++ Other minor bug fixes and documentation corrections
++ Moved to Beta status
Inline::Java version 0.33 is a minor upgrade that includes:
+ Improved and more flexible debug output
@@ -140,4 +141,4 @@ Inline::Java's home page is http://inline.perl.org/java/.
Please send questions and comments to Patrick LeBoutillier <patl at cpan.org>.
-Copyright (c) 2001-2002, Patrick LeBoutillier. All Rights Reserved.
+Copyright (c) 2001-2003, Patrick LeBoutillier. All Rights Reserved.
diff --git a/README.JNI b/README.JNI
index 020f469..9ba334d 100644
--- a/README.JNI
+++ b/README.JNI
@@ -30,15 +30,15 @@ objects cannot be located at runtime.
OVERVIEW
--------
- +----------+----------+
- | JDK1.2.2 | JDK1.3.1 |
-+-------------+----------+----------+
-| Win32 | ok | ok |
-+-------------+----------+----------+
-| Linux RH7.1 | not ok* | ok* |
-+-------------+----------+----------+
-| Soloris 2.8 | ok* | ok* |
-+-------------+----------+----------+
+ +----------+----------+----------+
+ | JDK1.2.2 | JDK1.3.1 | JDK1.4.0 |
++-------------+----------+----------+----------+
+| Win32 | ok | ok | ? |
++-------------+----------+----------+----------+
+| Linux RH7.1 | not ok* | ok* | ok* |
++-------------+----------+----------+----------+
+| Soloris 2.8 | ok* | ok* | ? |
++-------------+----------+----------+----------+
*: Read below
@@ -78,6 +78,9 @@ Also, make sure you use do not use 'classic' VM. This one should only
be used with 'green threads', which don't seem to work with JNI. Use either
the 'client' or the 'server' VMs.
+Java 2 SDK 1.4.0:
+ The same as Java 2 SDK 1.3.1 applies.
+
SOLARIS
-------
diff --git a/TODO b/TODO
index 0390c62..0c8dd4b 100644
--- a/TODO
+++ b/TODO
@@ -1,6 +1,4 @@
CODE:
-- Check INFO flag vs. PRINT_INFO (shortcuts not working?)
-- MAkefile.PL: ExtUtils::MakeMaker::prompt
TEST:
- Alpha
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libinline-java-perl.git
More information about the Pkg-perl-cvs-commits
mailing list