@@ -1,10 +1,5 @@
Revision history for Perl extension Inline::Java
------------------------------------------------
-0.54
- - Added AUTOSTUDY to PerlInterpreter
- - Applied patch by Max Vohlen to fix JNI bug
- - Applied patch by Charles Brabec to allow wildcards in CLASSPATH
-
0.53 Sun Jan 9 08:15:06 EST 2011
- Removed PerlNatives extension from the build because it is unmaintained and broken.
It can still be enabled manually using the BUILD_PERL_NATIVES build configuration
@@ -4,7 +4,7 @@ package Inline::Java::Array ;
use strict ;
use Carp ;
-$Inline::Java::Array::VERSION = '0.53_90' ;
+$Inline::Java::Array::VERSION = '0.53' ;
# Here we store as keys the knots and as values our blessed objects
my $OBJECTS = {} ;
@@ -149,7 +149,7 @@ sub DESTROY {
if (! $knot){
Inline::Java::debug(4, "destroying Inline::Java::Array::Tie") ;
- delete $OBJECTS->{$this} ;
+ $OBJECTS->{$this} = undef ;
}
else{
Inline::Java::debug(4, "destroying Inline::Java::Array") ;
@@ -3,7 +3,7 @@ package Inline::Java::Callback ;
use strict ;
use Carp ;
-$Inline::Java::Callback::VERSION = '0.53_90' ;
+$Inline::Java::Callback::VERSION = '0.53' ;
$Inline::Java::Callback::OBJECT_HOOK = undef ;
@@ -3,7 +3,7 @@ package Inline::Java::Class ;
use strict ;
use Carp ;
-$Inline::Java::Class::VERSION = '0.53_90' ;
+$Inline::Java::Class::VERSION = '0.53' ;
$Inline::Java::Class::MAX_SCORE = 10 ;
@@ -5,7 +5,7 @@ use strict ;
use Symbol ;
use Carp ;
-$Inline::Java::Handle::VERSION = '0.53_90' ;
+$Inline::Java::Handle::VERSION = '0.53' ;
# Here we store as keys the knots and as values our blessed objects
@@ -157,7 +157,7 @@ sub DESTROY {
$this->__close() ;
}
- delete $OBJECTS->{$this} ;
+ $OBJECTS->{$this} = undef ;
}
else {
Inline::Java::debug(4, "destroying Inline::Java::Handle") ;
@@ -4,7 +4,7 @@ package Inline::Java::JNI ;
use strict ;
-$Inline::Java::JNI::VERSION = '0.53_90' ;
+$Inline::Java::JNI::VERSION = '0.53' ;
use DynaLoader ;
use Carp ;
@@ -307,5 +307,5 @@ process_command(this, data)
RETVAL
CLEANUP:
- (*(env))->ReleaseStringUTFChars(env, resp, RETVAL) ;
(*(env))->DeleteLocalRef(env, resp) ;
+ (*(env))->ReleaseStringUTFChars(env, resp, RETVAL) ;
@@ -9,7 +9,7 @@ use IO::Socket ;
use Text::ParseWords ;
use Inline::Java::Portable ;
-$Inline::Java::JVM::VERSION = '0.53_90' ;
+$Inline::Java::JVM::VERSION = '0.53' ;
my %SIGS = () ;
@@ -5,7 +5,7 @@ use strict ;
use Inline::Java::Protocol ;
use Carp ;
-$Inline::Java::Object::VERSION = '0.53_90' ;
+$Inline::Java::Object::VERSION = '0.53' ;
# Here we store as keys the knots and as values our blessed private objects
my $PRIVATES = {} ;
@@ -369,7 +369,7 @@ sub DESTROY {
my $proto = $priv->{proto} ;
$priv->{proto} = undef ;
$proto->{obj_priv} = undef ;
- delete $PRIVATES->{$this} ;
+ $PRIVATES->{$this} = undef ;
}
else{
Inline::Java::debug(4, "script marked as DONE, object destruction not propagated to Java") ;
@@ -8,9 +8,8 @@ $Inline::Java::PerlInterpreter::VERSION = '0.52' ;
use Inline (
Java => 'STUDY',
- STUDY => [],
- AUTOSTUDY => 1,
EMBEDDED_JNI => 1,
+ STUDY => [],
NAME => 'Inline::Java::PerlInterpreter',
) ;
@@ -11,7 +11,7 @@ BEGIN {
exit ;
}
- plan(tests => 13) ;
+ plan(tests => 12) ;
}
@@ -68,8 +68,6 @@ __END__
__Java__
package org.perl.inline.java ;
-import java.util.* ;
-
class InlineJavaPerlInterpreterTests implements Runnable {
private static int cnt = 2 ;
private static InlineJavaPerlInterpreter pi = null ;
@@ -136,13 +134,6 @@ class InlineJavaPerlInterpreterTests implements Runnable {
pi.StartCallbackLoop();
- ArrayList a = new ArrayList() ;
- for (int i = 0 ; i < 100 ; i++){
- a.add(new Integer(i * 2)) ;
- }
- sum = (Integer)pi.CallPerlSub("sum_array_list", new Object [] {a}, Integer.class) ;
- ok(sum, new Integer(9900)) ;
-
pi.destroy() ;
ok("1", "1") ;
}
@@ -5,16 +5,4 @@ sub whats_your_name {
return "perl" ;
}
-
-sub sum_array_list {
- my $a = shift ;
-
- my $sum = 0 ;
- for (my $i = 0 ; $i < $a->size() ; $i++){
- $sum += $a->get($i) ;
- }
-
- return $sum ;
-}
-
1 ;
@@ -0,0 +1,10 @@
+use strict ;
+use Test ;
+
+BEGIN {
+ plan(tests => 1) ;
+ mkdir('./_Inline_test', 0777) unless -e './_Inline_test' ;
+}
+
+
+ok(1) ;
@@ -0,0 +1,118 @@
+use strict ;
+use Test ;
+
+
+BEGIN {
+ plan(tests => 5) ;
+}
+
+
+use Inline Config =>
+ DIRECTORY => './_Inline_test' ;
+
+use Inline::Java qw(caught) ;
+
+use Inline (
+ Java => 'DATA',
+) ;
+
+
+eval {
+ t121->init() ;
+ my $t = new t121() ;
+ ok($t->types_stub(1, 2, 3, 4, 5, 6, 1, 2, "1000"), 1024) ;
+ ok($t->array_stub([34, 56], ["toto", "789"]), 789 + 34) ;
+
+ my $t2 = new t1212() ;
+ ok($t2->types_stub(1, 2, 3, 4, 5, 6, 1, 2, "1000"), 1024) ;
+
+ ok($t->callback_stub(), "toto") ;
+ ok($t->__get_private()->{proto}->ObjectCount(), 2) ;
+} ;
+if ($@){
+ if (caught("java.lang.Throwable")){
+ $@->printStackTrace() ;
+ die("Caught Java Exception") ;
+ }
+ else{
+ die $@ ;
+ }
+}
+
+
+##################################
+
+package t121 ;
+sub types {
+ my $this = shift ;
+
+ my $sum = 0 ;
+ map {$sum += $_} @_ ;
+ return $sum ;
+}
+
+
+sub array {
+ my $this = shift ;
+ my $i = shift ;
+ my $str = shift ;
+
+ return $i->[0] + $str->[1] ;
+}
+
+
+sub callback {
+ my $this = shift ;
+
+ return $this->get_name() ;
+}
+
+
+package main ;
+__DATA__
+
+__Java__
+
+
+import java.io.* ;
+import org.perl.inline.java.* ;
+
+class t121 extends InlineJavaPerlNatives {
+ static public boolean got14(){
+ return System.getProperty("java.version").startsWith("1.4") ;
+ }
+
+ public t121() throws InlineJavaException {
+ }
+
+ static public void init() throws InlineJavaException {
+ init("test") ;
+ }
+
+ public String types_stub(byte b, short s, int i, long j, float f, double d,
+ boolean x, char c, String str){
+ return types(b, s, i, j, f, d, x, c, str) ;
+ }
+ public native String types(byte b, short s, int i, long j, float f, double d,
+ boolean x, char c, String str) ;
+
+ public String array_stub(int i[], String str[]){
+ return array(i, str) ;
+ }
+ private native String array(int i[], String str[]) ;
+
+ public String callback_stub(){
+ return callback() ;
+ }
+ public native String callback() ;
+
+ public String get_name(){
+ return "toto" ;
+ }
+} ;
+
+
+class t1212 extends t121 {
+ public t1212() throws InlineJavaException {
+ }
+} ;
@@ -9,7 +9,7 @@ use Config ;
use File::Find ;
use File::Spec ;
-$Inline::Java::Portable::VERSION = '0.53_90' ;
+$Inline::Java::Portable::VERSION = '0.53' ;
# Here is some code to figure out if we are running on command.com
# shell under Windows.
@@ -58,23 +58,15 @@ sub make_classpath {
my @fcp = () ;
my %cp = map {$_ => 1} @cp ;
foreach my $p (@cp){
- if ($cp{$p}){
- if ($p =~ /^(.*)\/\*$/){
- my $d = $1 ;
- if (($d)&&(-d $d)){
- Inline::Java::debug(2, "keeping wildcard classpath as '$p'") ;
- my $fp = File::Spec->rel2abs($d) . '/*' ;
- push @fcp, Inline::Java::Portable::portable("SUB_FIX_JAVA_PATH", $fp) ;
- }
- }
- elsif (($p)&&(-e $p)){
+ if (($p)&&(-e $p)){
+ if ($cp{$p}){
my $fp = File::Spec->rel2abs($p) ;
push @fcp, Inline::Java::Portable::portable("SUB_FIX_JAVA_PATH", $fp) ;
+ delete $cp{$p} ;
}
- else{
- Inline::Java::debug(2, "classpath candidate '$p' scraped") ;
- }
- delete $cp{$p} ;
+ }
+ else{
+ Inline::Java::debug(2, "classpath candidate '$p' scraped") ;
}
}
@@ -230,7 +222,7 @@ my $map = {
PRE_WHOLE_ARCHIVE => '-Wl',
POST_WHOLE_ARCHIVE => '-Wl',
GOT_SYMLINK => 1,
- J2SDK_BIN => 'Commands',
+ J2SDK_BIN => 'Commands',
DEFAULT_J2SDK_DIR => '/System/Library/Frameworks/JavaVM.framework/Versions/CurrentJDK',
# Tim Bunce:
OTHERLDFLAGS => '-framework JavaVM',
@@ -10,7 +10,7 @@ BEGIN {
}
-$Inline::Java::Protocol::VERSION = '0.53_90' ;
+$Inline::Java::Protocol::VERSION = '0.53' ;
my %CLASSPATH_ENTRIES = () ;
@@ -13,7 +13,7 @@ require Inline::Java ;
use File::Spec ;
-$Inline::Java::Server::VERSION = '0.53_90' ;
+$Inline::Java::Server::VERSION = '0.53' ;
# Create a dummy Inline::Java object in order to
@@ -0,0 +1,4 @@
+EXPORTS
+JNI_CreateJavaVM@12
+JNI_GetDefaultJavaVMInitArgs@4
+JNI_GetCreatedJavaVMs@12
diff --git a/var/tmp/source/ETJ/Inline-Java-0.540/Inline-Java-0.540/Java/typemap b/var/tmp/source/PATL/Inline-Java-0.53/Inline-Java-0.53/Java/typemap
old mode 100644
new mode 100755
@@ -8,7 +8,7 @@ package Inline::Java ;
use strict ;
require 5.006 ;
-$Inline::Java::VERSION = '0.540' ;
+$Inline::Java::VERSION = '0.53' ;
# DEBUG is set via the DEBUG config
@@ -80,13 +80,13 @@ of the following techniques:
=over 4
-=item 1
+=item 1
Set the J2SDK configuration option to the correct directory
-=item 2
+=item 2
-Set the PERL_INLINE_JAVA_J2SDK environment variable to the
+Set the PERL_INLINE_JAVA_J2SDK environment variable to the
correct directory
=back
@@ -123,148 +123,148 @@ behavior of C<Inline::Java>:
=over 4
-=item j2sdk
+=item J2SDK
Specifies the path to your Java 2 SDK.
- Ex: j2sdk => '/my/java/2/sdk/path'
+ Ex: J2SDK => '/my/java/2/sdk/path'
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.
-=item port
+=item PORT
Specifies the port number for the server. Default is -1 (next
available port number), default for SHARED_JVM mode is 7891.
- Ex: port => 4567
+ Ex: PORT => 4567
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.
-=item host
+=item HOST
Specifies the host on which the JVM server is running. This option
really only makes sense in SHARED_JVM mode when START_JVM is disabled.
- Ex: host => 'jvm.server.com'
+ Ex: HOST => 'jvm.server.com'
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.
-=item bind
+=item BIND
-Specifies the IP address on which the JVM server will be listening. By
+Specifies the IP address on which the JVM server will be listening. By
default the JVM server listens for connections on 'localhost' only.
- Ex: bind => '192.168.1.1'
- Ex: bind => '0.0.0.0'
+ Ex: BIND => '192.168.1.1'
+ Ex: BIND => '0.0.0.0'
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.
-=item startup_delay
+=item STARTUP_DELAY
Specifies the maximum number of seconds that the Perl script
will try to connect to the Java server. In other this is the
-delay that Perl gives to the Java server to start. Default
+delay that Perl gives to the Java server to start. Default
is 15 seconds.
- Ex: startup_delay => 20
+ Ex: STARTUP_DELAY => 20
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.
-=item classpath
+=item CLASSPATH
Adds the specified CLASSPATH. This CLASSPATH will only be available
through the user classloader. To set the CLASSPATH globally (which is
-most probably what you want to do anyways), use the CLASSPATH
+most probably what you want to do anyways), use the CLASSPATH
environment variable.
- Ex: classpath => '/my/other/java/classses'
+ Ex: CLASSPATH => '/my/other/java/classses'
-=item jni
+=item JNI
Toggles the execution mode. The default is to use the client/server
-mode. To use the JNI extension (you must have built it at install
+mode. To use the JNI extension (you must have built it at install
time though. See README and README.JNI for more information), set
-JNI to 1.
+JNI to 1.
- Ex: jni => 1
+ Ex: JNI => 1
Note: This configuration option only has an effect on the first
-'use Inline Java' call inside a Perl script, since all other calls
+'use Inline Java' call inside a Perl script, since all other calls
make use of the same JVM.
-=item extra_java_args, extra_javac_args
+=item EXTRA_JAVA_ARGS, EXTRA_JAVAC_ARGS
-Specify extra command line parameters to be passed to, respectively,
-the JVM and the Java compiler. Use with caution as some options may
+Specify extra command line parameters to be passed to, respectively,
+the JVM and the Java compiler. Use with caution as some options may
alter normal C<Inline::Java> behavior.
- Ex: extra_java_args => '-Xmx96m'
+ Ex: EXTRA_JAVA_ARGS => '-Xmx96m'
-Note: extra_java_args only has an effect on the first
-'use Inline Java' call inside a Perl script, since all other calls
+Note: EXTRA_JAVA_ARGS 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.
-=item embedded_jni
+=item EMBEDDED_JNI
-Same as jni, except C<Inline::Java> expects the JVM to already be
+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
+ Ex: EMBEDDED_JNI => 1
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. Also, the embedded_jni option automatically
+'use Inline Java' call inside a Perl script, since all other calls
+make use of the same JVM. Also, the EMBEDDED_JNI option automatically
sets the JNI option.
-=item shared_jvm
+=item 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
-mod_perl.
+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
+mod_perl.
- Ex: shared_jvm => 1
+ Ex: SHARED_JVM => 1
Note: This configuration option only has an effect on the first
-'use Inline Java' call inside a Perl script, since all other calls
+'use Inline Java' call inside a Perl script, since all other calls
make use of the same JVM.
-=item start_jvm
+=item START_JVM
-When used with shared_jvm, tells C<Inline::Java> that the JVM should
+When used with SHARED_JVM, tells C<Inline::Java> that the JVM should
already be running and that it should not attempt to start a new
one. This option is useful in combination with command line interface
described in the BUGS AND DEFICIENCIES section. Default is 1.
- Ex: start_jvm => 0
+ Ex: START_JVM => 0
Note: This configuration option only has an effect on the first
-'use Inline Java' call inside a Perl script, since all other calls
+'use Inline Java' call inside a Perl script, since all other calls
make use of the same JVM.
-=item private
+=item PRIVATE
-In shared_jvm mode, makes every connection to the JVM use a different
+In SHARED_JVM mode, makes every connection to the JVM use a different
classloader so that each connection is isolated from the others.
- Ex: private => 1
+ Ex: PRIVATE => 1
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.
-=item debug
+=item DEBUG
Enables debugging info. Debugging now uses levels (1 through 5)
that (loosely) follow these definitions:
@@ -275,78 +275,78 @@ that (loosely) follow these definitions:
4 = Everything else
5 = Data structure dumps
- Ex: debug => 2
+ Ex: DEBUG => 2
-=item debugger
+=item DEBUGGER
Starts jdb, (the Java debugger) instead of the regular Java JVM.
This option will also cause the Java code to be compiled using the
'-g' switch for extra debugging information. EXTRA_JAVA_ARGS can
be used use to pass extra options to the debugger.
- Ex: debugger => 1
+ Ex: DEBUGGER => 1
-=item warn_method_select
+=item WARN_METHOD_SELECT
-Throws a warning when C<Inline::Java> has to 'choose' between
-different method signatures. The warning states the possible
+Throws a warning when C<Inline::Java> has to 'choose' between
+different method signatures. The warning states the possible
choices and the signature chosen.
- Ex: warn_method_select => 1
+ Ex: WARN_METHOD_SELECT => 1
-=item study
+=item STUDY
-Takes an array of Java classes that you wish to have
+Takes an array of Java classes that you wish to have
C<Inline::Java> learn about so that you can use them inside Perl.
- Ex: study => ['java.lang.HashMap', 'my.class']
+ Ex: STUDY => ['java.lang.HashMap', 'my.class']
-=item autostudy
+=item AUTOSTUDY
Makes C<Inline::Java> automatically study unknown classes it
encounters them.
- Ex: autostudy => 1
+ Ex: AUTOSTUDY => 1
-=item package
+=item PACKAGE
Forces C<Inline::Java> to bind the Java code under the specified
package instead of under the current (caller) package.
- Ex: package => 'main'
+ Ex: PACKAGE => 'main'
-=item native_doubles
+=item NATIVE_DOUBLES
-Normally, C<Inline::Java> stringifies floating point numbers when passing
+Normally, C<Inline::Java> stringifies floating point numbers when passing
them between Perl and Java. In certain cases, this can lead to loss of
-precision. When native_doubles is set, C<Inline::Java> will send the actual
-double bytes in order to preserve precision.
+precision. When NATIVE_DOUBLES is set, C<Inline::Java> will send the actual
+double bytes in order to preserve precision.
Note: This applies only to doubles, not floats.
Note: This option may not be portable and may not work properly on some
platforms.
- Ex: native_doubles => 1
+ Ex: NATIVE_DOUBLES => 1
-=back
+=back
=head1 ENVIRONMENT VARIABLES
Every configuration option listed above, with the exception of STUDY,
-can be specified using an environment variable named using the
+can be specified using an environment variable named using the
following convention:
PERL_INLINE_JAVA_<option name>
-For example, you can specify the JNI option using the
-PERL_INLINE_JAVA_JNI environment variable.
+For example, your can specified the JNI option usng the
+PERL_INLINE_JAVA_JNI environment variable.
Note that environment variables take precedence over options specified
in the script itself.
-Under Win32, you can also use set the PERL_INLINE_JAVA_COMMAND_COM
-environment variable to a true value to indicate that you are using
-the command.com shell. However, C<Inline::Java> should normally be
+Under Win32, you can also use set the PERL_INLINE_JAVA_COMMAND_COM
+environment variable to a true value to indicate that you are using
+the command.com shell. However, C<Inline::Java> should normally be
able to determine this on its own.
@@ -355,7 +355,7 @@ able to determine this on its own.
Because Java is object oriented, any interface between Perl and Java
needs to support Java classes adequately.
-Example:
+Example:
=for comment
@@ -391,7 +391,7 @@ Example:
=for comment
-C<Inline::Java> created a new namespace called C<main::Pod_1> and
+C<Inline::Java> created a new namespace called C<main::Pod_1> and
created the following functions:
sub main::Pod_::new { ... }
@@ -401,7 +401,7 @@ created the following functions:
sub main::Pod_::set_data { ... }
sub main::Pod_::DESTROY { ... }
-Note that only the public methods are exported to Perl.
+Note that only the public methods are exported to Perl.
Inner classes are also supported, you simply need to supply a reference
to an outer class object as the first parameter of the constructor:
@@ -436,7 +436,7 @@ call static methods in the following manner:
print Pod_1->get_sdata() . "\n" ; # prints static data
# or
my $obj = new Pod_1() ;
- print $obj->get_sdata() . "\n" ; # prints static data
+ print $obj->get_sdata() . "\n" ; # prints static data
You can pass any kind of Perl scalar or any Java object to a method. It
will be automatically converted to the correct type:
@@ -494,7 +494,7 @@ are not known to C<Inline::Java>. This is also true for return types:
=for comment
-Objects of types unknown to Perl can exist in the Perl space, you just
+Objects of types unknown to Perl can exist in the Perl space, you just
can't call any of their methods. See the STUDYING section for more
information on how to tell C<Inline::Java> to learn about these classes.
Z<>
@@ -524,7 +524,7 @@ be known to Perl:
$obj->{i} = 2 ;
print($obj->{i} . "\n") ; # prints 2
my $hm1 = $obj->{hm} ; # instance way
- my $hm2 = $Pod_5::hm ; # static way
+ my $hm2 = $Pod_4::hm ; # static way
=for comment
@@ -575,7 +575,7 @@ using Perl lists:
=head1 EXCEPTIONS
-You can now (as of 0.31) catch exceptions as objects when they are thrown
+You can now (as of 0.31) catch exceptions as objects when they are thrown
from Java. To do this you use the regular Perl exception tools: eval and
$@. A helper function named 'caught' is provided to help determine the
type of the exception. Here is a example of a typical use:
@@ -617,11 +617,11 @@ to the Throwable object that was thrown by Java. The getMessage() function
is really a method of the java.lang.Exception class. So if Java is throwing
a custom exception you have in your code, you will have access to that
exception object's public methods just like any other Java object in
-C<Inline::Java>.
+C<Inline::Java>.
Note: C<Inline::Java> uses eval under the hood, so it recommended that you
store any exception in a temporary variable before processing it, especially
-f you will be calling other C<Inline::Java> functions. It is also probably
-a good idea to undef $@ once you have treated a Java exception, or else
+f you will be calling other C<Inline::Java> functions. It is also probably
+a good idea to undef $@ once you have treated a Java exception, or else
the object still has a reference until $@ is reset by the next eval.
Z<>
@@ -680,8 +680,8 @@ script anymore. Here's how to use the 'studying' function:
=for comment
use Inline (
- Java => 'study',
- study => ['java.util.HashMap'],
+ Java => 'STUDY',
+ STUDY => ['java.util.HashMap'],
) ;
my $hm = new java::util::HashMap() ;
@@ -692,14 +692,14 @@ script anymore. Here's how to use the 'studying' function:
=for comment
If you do not wish to put any Java code inside you Perl script, you must
-use the string 'study' as your code. This will skip the build section.
+use the string 'STUDY' as your code. This will skip the build section.
-You can also use the autostudy option to tell C<Inline::Java> that you wish
+You can also use the AUTOSTUDY option to tell C<Inline::Java> that you wish
to study all classes that it comes across:
=for comment
- use Inline Java => <<'END', autostudy => 1 ;
+ use Inline Java => <<'END', AUTOSTUDY => 1 ;
import java.util.* ;
class Pod_10 {
@@ -722,18 +722,18 @@ to study all classes that it comes across:
=for comment
In this case C<Inline::Java> intercepts the return value of the get_hm()
-method, sees that it's of a type that it doesn't know about
-(java.lang.HashMap), and immediately studies the class. After that call
+method, sees that it's of a type that it doesn't know about
+(java.lang.HashMap), and immediately studies the class. After that call
the java::lang::HashMap class is available to use through Perl.
-In some cases you may not know which classes to study until runtime. In
+In some cases you may not know which classes to study until runtime. In
these cases you can use the study_classes() function:
=for comment
use Inline (
- Java => 'study',
- study => [],
+ Java => 'STUDY',
+ STUDY => [],
) ;
use Inline::Java qw(study_classes) ;
@@ -746,11 +746,11 @@ these cases you can use the study_classes() function:
=for comment
The study_classes() function takes 2 arguments, a reference to an array of
-class names (like the STUDY configuration option) and the name of the
-package in which to bind those classes. If the name of the package is
+class names (like the STUDY configuration option) and the name of the
+package in which to bind those classes. If the name of the package is
undefined, the classes will be bound to the current (caller) package.
-Note: You can only specify the names of packages in which you have
+Note: You can only specify the names of packages in which you have
previously "used" C<Inline::Java>.
Z<>
@@ -758,15 +758,15 @@ previously "used" C<Inline::Java>.
=head1 TYPE CASTING
Sometimes you need to manipulate a Java object using a specific
-subtype. That's when type casting is necessary. Here's an
+subtype. That's when type casting is necessary. Here's an
example of this:
=for comment
use Inline (
- Java => 'study',
- study => ['java.util.HashMap'],
- autostudy => 1,
+ Java => 'STUDY',
+ STUDY => ['java.util.HashMap'],
+ AUTOSTUDY => 1,
) ;
use Inline::Java qw(cast) ;
@@ -784,7 +784,7 @@ example of this:
In this case, C<Inline::Java> knows that $e is of type java.util.HashMap$Entry.
The problem is that this type is not public, and therefore we can't access
the object through that type. We must cast it to a java.util.Map$Entry, which
-is a public interface and will allow us to access the getKey() method.
+is a public interface and will allow us to access the getKey() method.
You can also use type casting to force the selection of a specific method
signature for methods that have multiple signatures. See examples similar
@@ -793,9 +793,9 @@ to this in the "TYPE COERCING" section below.
=head1 TYPE COERCING
-Type coercing is the equivalent of casting for primitives types
+Type coercing is the equivalent of casting for primitives types
and arrays. It is used to force the selection if a specific method
-signature when C<Inline::Java> has multiple choices. The coerce
+signature when C<Inline::Java> has multiple choices. The coerce
function returns a special object that can only be used when calling
Java methods or assigning Java members. Here is an example:
@@ -822,7 +822,7 @@ Java methods or assigning Java members. Here is an example:
=for comment
In this case, C<Inline::Java> will call f(int i), because '5' is an integer.
-But '5' is a valid char as well. So to force the call of f(char c), do the
+But '5' is a valid char as well. So to force the call of f(char c), do the
following:
use Inline::Java qw(coerce) ;
@@ -853,15 +853,15 @@ as a java.lang.Object:
The reason why this will not work is simple. When C<Inline::Java> sees an
array, it checks the Java type you are trying to match it against to validate
the construction of your Perl list. But in this case, it can't validate
-the array because you're assigning it to an Object. You must use the 3
+the array because you're assigning it to an Object. You must use the 3
parameter version of the coerce function to do this:
$obj->{o} = Inline::Java::coerce(
- "java.lang.Object",
+ "java.lang.Object",
[1, 2, 3],
"[Ljava.lang.String;") ;
-This tells C<Inline::Java> to validate your Perl list as a String [], and
+This tells C<Inline::Java> to validate your Perl list as a String [], and
then coerce it as an Object.
Here is how to construct the array type representations:
@@ -871,7 +871,7 @@ Here is how to construct the array type representations:
...
where <type> is one of:
- B byte S short I int J long
+ B byte S short I int J long
F float D double C char Z boolean
L<class>; array of <class> objects
@@ -887,8 +887,8 @@ Java array reference obtained from elsewhere, you don't even need to coerce:
=head1 JNI vs CLIENT/SERVER MODES
-Starting in version 0.20, it is possible to use the JNI (Java Native
-Interface) extension. This enables C<Inline::Java> to load the Java virtual
+Starting in version 0.20, it is possible to use the JNI (Java Native
+Interface) extension. This enables C<Inline::Java> to load the Java virtual
machine as a shared object instead of running it as a stand-alone server.
This brings an improvement in performance.
@@ -897,11 +897,11 @@ one of the following:
=over 4
-=item 1
+=item 1
Set the JNI configuration option to 1
-=item 2
+=item 2
Set the PERL_INLINE_JAVA_JNI environment variable to 1
@@ -919,10 +919,10 @@ See README.JNI for more information about the JNI extension.
=head1 SHARED_JVM
Starting with version 0.30, the C<Inline::Java> JVM can now be shared between
-multiple processes. The first process to start creates the JVM but does not
-shut it down on exit. All other processes can then connect as needed to the JVM.
-If any of these other processes where created by forking the parent process,
-the Inline::Java->reconnect_JVM() function must be called in the child to get
+multiple processes. The first process to start creates the JVM but does not
+shut it down on exit. All other processes can then connect as needed to the JVM.
+If any of these other processes where created by forking the parent process,
+the Inline::Java->reconnect_JVM() function must be called in the child to get
a fresh connection to the JVM. Ex:
=for comment
@@ -936,7 +936,7 @@ a fresh connection to the JVM. Ex:
}
}
END
- shared_jvm => 1,
+ SHARED_JVM => 1,
) ;
my $nb = 5 ;
@@ -954,8 +954,8 @@ a fresh connection to the JVM. Ex:
=for comment
-Once this code was run, each of the 6 processes will have created a different
-instance of the 't' class. Data can be shared between the processes by using
+Once this code was run, each of the 6 processes will have created a different
+instance of the 't' class. Data can be shared between the processes by using
static members in the Java code.
Note: The Java System.out stream is closed in SHARED_JVM mode.
@@ -978,28 +978,28 @@ If you want to use C<Inline::Java> in a CGI script, do the following:
}
}
END
- shared_jvm => 1,
- directory => '/somewhere/your/web/server/can/write',
+ SHARED_JVM => 1,
+ DIRECTORY => '/somewhere/your/web/server/can/write',
) ;
my $c = new Pod_counter() ;
my $q = new CGI() ;
- print
- $q->start_html() .
+ print
+ $q->start_html() .
"This page has been accessed " . $c->{cnt} . " times." .
$q->end_html() ;
=for comment
In this scenario, the first CGI to execute will start the JVM, but does
-not shut it down on exit. Subsequent CGI, since they have the shared_jvm
+not shut it down on exit. Subsequent CGI, since they have the SHARED_JVM
option enabled, will try to connect to the already existing JVM before
trying to start a new one. Therefore if the JVM happens to crash or is
killed, the next CGI that runs will start a new one. The JVM will be
killed when Apache is shut down.
-See the BUGS AND DEFICIENCIES section if you have problems starting
-the shared_jvm server in a CGI.
+See the BUGS AND DEFICIENCIES section if you have problems starting
+the SHARED_JVM server in a CGI.
Z<>
@@ -1017,8 +1017,8 @@ Here is an example of how to use C<Inline::Java> under mod_perl:
}
}
END
- shared_jvm => 1,
- directory => '/somewhere/your/web/server/can/write',
+ SHARED_JVM => 1,
+ DIRECTORY => '/somewhere/your/web/server/can/write',
) ;
my $c = new Pod_counter() ;
@@ -1042,18 +1042,18 @@ configuration option to specifiy the package in which C<Inline::Java>
should bind the Java code, since L<ModPerl::Registry> will place your
code in a package with a unpredictable name.
-See the BUGS AND DEFICIENCIES section if you have problems starting
-the shared_jvm server under MOD_PERL.
+See the BUGS AND DEFICIENCIES section if you have problems starting
+the SHARED_JVM server under MOD_PERL.
=head2 Preloading and PerlChildInitHandler
-If you are loading C<Inline::Java> during your server startup (common practice to
-increase shared memory and reduce run time) and you are using C<shared_jvm>, then
+If you are loading C<Inline::Java> during your server startup (common practice to
+increase shared memory and reduce run time) and you are using C<SHARED_JVM>, then
your Apache processes will all share the same socktd connection to that JVM.
This will result in garbled communication and strange errors (like "Can't receive packet from JVM", "Broken pipe", etc).
To fix this you need to tell Apache that after each child process has forked they
-each need to create their own connections to the JVM. This is done during the
+each need to create their own connections to the JVM. This is done during the
C<ChildInit> stage.
For Apache 1.3.x this could look like:
@@ -1090,7 +1090,7 @@ represent the primitive types.
=item 2
If you upgrade C<Inline::Java> from a previous version, be sure to delete
-your _Inline directory so that C<Inline::Java>'s own Java classes get
+your _Inline directory so that C<Inline::Java>'s own Java classes get
rebuilt to match the Perl code.
=item 3
@@ -1101,15 +1101,15 @@ In these cases, you may wish to control the JVM (in shared mode) manually
using the following commands:
% perl -MInline::Java::Server=status
- % perl -MInline::Java::Server=start
- % perl -MInline::Java::Server=stop
- % perl -MInline::Java::Server=restart
-
+ % perl -MInline::Java::Server=start
+ % perl -MInline::Java::Server=stop
+ % perl -MInline::Java::Server=restart
+
You can specify C<Inline::Java> options by setting the proper
environment variables, and you can also set the _Inline directory by using
-the PERL_INLINE_JAVA_DIRECTORY environment variable.
+the PERL_INLINE_JAVA_DIRECTORY environment variable.
-In addition, you may also wish to set the start_jvm option to 0 in your scripts
+In addition, you may also wish to set the START_JVM option to 0 in your scripts
to prevent them from trying to start their own JVM if they can't find one,
thereby causing problems.
@@ -1121,7 +1121,7 @@ installation directory as well as the path for J2SDK and CLASSPATH elements.
=item 5
-Even though it is run through a profiler regularly, C<Inline::Java> is relatively
+Even though it in run through a profiler regularly, C<Inline::Java> is relatively
slow compared to native Perl or Java.
@@ -1130,7 +1130,7 @@ slow compared to native Perl or Java.
=head1 SEE ALSO
-L<Inline::Java::Callback>, L<Inline::Java::PerlNatives>,
+L<Inline::Java::Callback>, L<Inline::Java::PerlNatives>,
L<Inline::Java::PerlInterpreter>.
For information about using C<Inline>, see L<Inline>.
@@ -79,4 +79,3 @@ t/types.class
t/no_const.java
t/no_const.class
t/shared.java
-META.json Module JSON meta-data (added by MakeMaker)
@@ -1,52 +0,0 @@
-{
- "abstract" : "Write Perl classes in Java.",
- "author" : [
- "Patrick LeBoutillier <patl@cpan.org>"
- ],
- "dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 6.9908, CPAN::Meta::Converter version 2.140640",
- "license" : [
- "unknown"
- ],
- "meta-spec" : {
- "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
- "version" : "2"
- },
- "name" : "Inline-Java",
- "no_index" : {
- "directory" : [
- "t",
- "inc"
- ]
- },
- "prereqs" : {
- "build" : {
- "requires" : {
- "ExtUtils::MakeMaker" : "0"
- }
- },
- "configure" : {
- "requires" : {
- "ExtUtils::MakeMaker" : "0"
- }
- },
- "runtime" : {
- "requires" : {
- "Inline" : "0.68",
- "Inline::C" : "0.62",
- "MIME::Base64" : "0",
- "Test" : "1.13",
- "perl" : "5.008"
- }
- }
- },
- "release_status" : "stable",
- "resources" : {
- "repository" : {
- "type" : "git",
- "url" : "https://github.com/ingydotnet/Inline-Java",
- "web" : "https://github.com/ingydotnet/Inline-Java"
- }
- },
- "version" : "0.540"
-}
@@ -1,28 +1,16 @@
----
-abstract: 'Write Perl classes in Java.'
-author:
- - 'Patrick LeBoutillier <patl@cpan.org>'
-build_requires:
- ExtUtils::MakeMaker: '0'
-configure_requires:
- ExtUtils::MakeMaker: '0'
-dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.9908, CPAN::Meta::Converter version 2.140640'
-license: unknown
+--- #YAML:1.0
+name: Inline-Java
+version: 0.53
+abstract: Write Perl classes in Java.
+license: ~
+author:
+ - Patrick LeBoutillier <patl@cpan.org>
+generated_by: ExtUtils::MakeMaker version 6.42
+distribution_type: module
+requires:
+ Inline: 0.44
+ MIME::Base64: 0
+ Test: 1.13
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: '1.4'
-name: Inline-Java
-no_index:
- directory:
- - t
- - inc
-requires:
- Inline: '0.68'
- Inline::C: '0.62'
- MIME::Base64: '0'
- Test: '1.13'
- perl: '5.008'
-resources:
- repository: https://github.com/ingydotnet/Inline-Java
-version: '0.540'
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
@@ -197,11 +197,9 @@ my $perlinterp_test = File::Spec->catdir('Java', 'PerlInterpreter', '_Inline_tes
WriteMakefile(
NAME => 'Inline::Java',
VERSION_FROM => 'Java.pm',
- MIN_PERL_VERSION => '5.008',
DIR => ['Java'],
PREREQ_PM => {
- Inline => 0.68,
- 'Inline::C' => 0.62,
+ Inline => 0.44,
Test => 1.13,
'MIME::Base64' => 0,
},
@@ -212,18 +210,9 @@ WriteMakefile(
$user_arch => File::Spec->catfile('$(INST_LIBDIR)', $user_arch),
},
clean => {FILES => "$def_jdk _Inline_test $natives_test $perlinterp_test $obj_dir $server_arch $user_arch java.ts"},
- ABSTRACT_FROM => 'Java.pod', # retrieve abstract from module
- AUTHOR => 'Patrick LeBoutillier <patl@cpan.org>',
- META_MERGE => {
- "meta-spec" => { version => 2 },
- resources => {
- repository => {
- type => 'git',
- url => 'https://github.com/ingydotnet/Inline-Java',
- web => 'https://github.com/ingydotnet/Inline-Java',
- },
- },
- },
+ ($] >= 5.005 ? ## Add these new keywords supported since 5.005
+ (ABSTRACT_FROM => 'Java.pod', # retrieve abstract from module
+ AUTHOR => 'Patrick LeBoutillier <patl@cpan.org>') : ()),
) ;
diff --git a/var/tmp/source/ETJ/Inline-Java-0.540/Inline-Java-0.540/t/02_primitives.t b/var/tmp/source/PATL/Inline-Java-0.53/Inline-Java-0.53/t/02_primitives.t
old mode 100644
new mode 100755
@@ -59,6 +59,7 @@ my $t = new types3() ;
ok($t->__get_private()->{proto}->ObjectCount(), 1) ;
+
__END__
__Java__
diff --git a/var/tmp/source/ETJ/Inline-Java-0.540/Inline-Java-0.540/t/04_members.t b/var/tmp/source/PATL/Inline-Java-0.53/Inline-Java-0.53/t/04_members.t
old mode 100644
new mode 100755
diff --git a/var/tmp/source/ETJ/Inline-Java-0.540/Inline-Java-0.540/t/05_arrays.t b/var/tmp/source/PATL/Inline-Java-0.53/Inline-Java-0.53/t/05_arrays.t
old mode 100644
new mode 100755
diff --git a/var/tmp/source/ETJ/Inline-Java-0.540/Inline-Java-0.540/t/06_static.t b/var/tmp/source/PATL/Inline-Java-0.53/Inline-Java-0.53/t/06_static.t
old mode 100644
new mode 100755
@@ -46,7 +46,7 @@ if ($t->__get_private()->{proto}->ObjectCount() != 1){
warn "\nWARNING: Your Perl version ($]) seems to leak tied filehandles. Using\n" .
"Inline::Java::Handle objects will result in memory leaks both in Perl\n" .
"and in Java\n" ;
-}
+}
__END__
diff --git a/var/tmp/source/ETJ/Inline-Java-0.540/Inline-Java-0.540/t/no_const.java b/var/tmp/source/PATL/Inline-Java-0.53/Inline-Java-0.53/t/no_const.java
old mode 100644
new mode 100755
diff --git a/var/tmp/source/ETJ/Inline-Java-0.540/Inline-Java-0.540/t/shared.java b/var/tmp/source/PATL/Inline-Java-0.53/Inline-Java-0.53/t/shared.java
old mode 100644
new mode 100755
diff --git a/var/tmp/source/ETJ/Inline-Java-0.540/Inline-Java-0.540/t/types.java b/var/tmp/source/PATL/Inline-Java-0.53/Inline-Java-0.53/t/types.java
old mode 100644
new mode 100755