[libinline-java-perl] 334/398: menage
Jonas Smedegaard
dr at jones.dk
Thu Feb 26 11:43:20 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 deefe333ee43178af342685d76b907c0fa389f4b
Author: patrick_leb <>
Date: Wed Jul 7 01:40:06 2004 +0000
menage
---
bug/Employee.pm | 35 +++++++++++
bug/Foo.java | 36 +++++++++++
bug/PerlObject.java | 44 ++++++++++++++
bug/Person.pm | 41 +++++++++++++
bug/Program.java | 27 +++++++++
bug/StudyTest.pl | 112 +++++++++++++++++++++++++++++++++++
bug/gcj_test.class | Bin 1424 -> 0 bytes
bug/nadim.pl | 54 +++++++++++++++++
bug/natives_hpux.txt | 1 +
bug/p3.pl | 164 +++++++++++++++++++++++++++++++++++++++++++++++++++
bug/roger.pl | 58 ++++++++++++++++++
bug/roger2.pl | 60 +++++++++++++++++++
bug/sg.pl | 11 ++++
bug/test.gaps | 42 +++++++++++++
bug/test.pl | 18 ++++++
bug/toto.java | 14 +++++
bug/toto.pl | 18 ++++++
17 files changed, 735 insertions(+)
diff --git a/bug/Employee.pm b/bug/Employee.pm
new file mode 100644
index 0000000..ef18989
--- /dev/null
+++ b/bug/Employee.pm
@@ -0,0 +1,35 @@
+package Employee;
+use strict;
+
+require Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT_OK = qw();
+
+ use Person;
+ @ISA = ("Person");
+
+ sub new {
+ my $proto = shift;
+ my $class = ref($proto) || $proto;
+ my $self = $class->SUPER::new();
+ $self->{SALARY} = undef;
+ $self->{ID} = undef;
+ $self->{START_DATE} = undef;
+ bless ($self, $class); # reconsecrate
+ return $self;
+ }
+ sub salary {
+ my $self = shift;
+ if (@_) { $self->{SALARY} = shift }
+ return $self->{SALARY};
+ } sub id_number {
+ my $self = shift;
+ if (@_) { $self->{ID} = shift }
+ return $self->{ID};
+ } sub start_date {
+ my $self = shift;
+ if (@_) { $self->{START_DATE} = shift }
+ return $self->{START_DATE};
+ }
+
+1;
\ No newline at end of file
diff --git a/bug/Foo.java b/bug/Foo.java
new file mode 100644
index 0000000..ea99b9c
--- /dev/null
+++ b/bug/Foo.java
@@ -0,0 +1,36 @@
+import javax.xml.parsers.*;
+import org.apache.xerces.jaxp.SAXParserFactoryImpl;
+
+public class Foo {
+
+ // This method works!
+ public void test_a() throws
+ javax.xml.parsers.ParserConfigurationException,
+ org.xml.sax.SAXException
+ {
+ javax.xml.parsers.SAXParserFactory si = org.apache.xerces.jaxp.SAXParserFactoryImpl.newInstance() ;
+ SAXParser y = si.newSAXParser() ;
+ }
+
+public void test_b() throws
+ javax.xml.parsers.ParserConfigurationException,
+ org.xml.sax.SAXException
+ {
+ System.out.println("!!!" + getClass().getClassLoader() + "!!!") ;
+ System.setProperty("javax.xml.parsers.SAXParserFactory",
+ "org.apache.xerces.jaxp.SAXParserFactoryImpl");
+ SAXParser x = javax.xml.parsers.SAXParserFactory.newInstance().newSAXParser();
+ }
+
+ static public void main(String args[]){
+ try {
+ Foo f = new Foo() ;
+ f.test_a() ;
+ f.test_b() ;
+ }
+ catch (java.lang.Exception e){
+ e.printStackTrace() ;
+ }
+ }
+}
+
diff --git a/bug/PerlObject.java b/bug/PerlObject.java
new file mode 100644
index 0000000..7a4dbd6
--- /dev/null
+++ b/bug/PerlObject.java
@@ -0,0 +1,44 @@
+import org.perl.inline.java.*;
+
+// Metodklass som anv�nds av Java!
+public class PerlObject extends InlineJavaPerlCaller {
+ String perlName;
+ // Konstruktor
+ public PerlObject(String perlName) throws InlineJavaException {
+ this.perlName = perlName;
+ }
+ // Metod f�r att kalla p� Perlobjektens egna metoder.
+ public Object method (String methodName) {
+ try {
+ Object ret = CallPerl( "main", "perlMethods", new Object[] {perlName, methodName} );
+ return ret == null ? new Integer(1) : ret;
+ }
+ catch (Exception e) {
+ return new Integer(-1);
+ }
+ }
+ public Object method (String methodName, Object arg) {
+ try {
+ Object ret = CallPerl( "main", "perlMethods", new Object[] {perlName, methodName, arg} );
+ return ret == null ? new Integer(1) : ret;
+ }
+ catch (Exception e) {
+ return new Integer(-1);
+ }
+ }
+ public Object method (String methodName, Object arg[]) {
+ try {
+ Object[] perlArg = new Object [arg.length+2];
+ perlArg[0] = perlName;
+ perlArg[1] = methodName;
+ for (int i = 0; i < arg.length; i++) {
+ perlArg[i+2] = arg[i];
+ }
+ Object ret = CallPerl( "main", "perlMethods", perlArg );
+ return ret == null ? new Integer(1) : ret;
+ }
+ catch (Exception e) {
+ return new Integer(-1);
+ }
+ }
+}
diff --git a/bug/Person.pm b/bug/Person.pm
new file mode 100644
index 0000000..29fb0a6
--- /dev/null
+++ b/bug/Person.pm
@@ -0,0 +1,41 @@
+package Person;
+use strict;
+
+require Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT_OK = qw();
+
+ ##################################################
+ ## the object constructor (simplistic version) ##
+ ##################################################
+ sub new {
+ my $self = {};
+ $self->{NAME} = undef;
+ $self->{AGE} = undef;
+ $self->{PEERS} = [];
+ bless($self); # but see below
+ return $self;
+ }
+ ##############################################
+ ## methods to access per-object data ##
+ ## ##
+ ## With args, they set the value. Without ##
+ ## any, they only retrieve it/them. ##
+ ##############################################
+ sub name {
+ my $self = shift;
+ if (@_) { $self->{NAME} = shift }
+ return $self->{NAME};
+ }
+ sub age {
+ my $self = shift;
+ if (@_) { $self->{AGE} = shift }
+ return $self->{AGE};
+ }
+ sub peers {
+ my $self = shift;
+ if (@_) { @{ $self->{PEERS} } = @_ }
+ return @{ $self->{PEERS} };
+ }
+
+1;
\ No newline at end of file
diff --git a/bug/Program.java b/bug/Program.java
new file mode 100644
index 0000000..f9aba39
--- /dev/null
+++ b/bug/Program.java
@@ -0,0 +1,27 @@
+import org.perl.inline.java.*;
+
+public class Program {
+
+ // Grundv�rden
+ PerlObject him = new PerlObject("$him");
+
+ // Konstruktor
+ public Program() throws InlineJavaException {
+ }
+ // Metod som g�r n�got...
+ public void work () {
+ // H�r skrivs skriptet i Java!
+
+
+ String T = (String)him.method("name");
+ if (T.equals("Nisse") )
+ //him.method("name","Knut-G�ran");
+ him.method("name", new Object[] {"Knut-G�ran" } );
+ else
+ him.method("name","Kurt-Arne");
+ him.method("peers", new Object[] {"Tuve", "Bernt-Arne", "Nyman"} );
+
+
+ // H�r slutar skriptet som skrivits i Java!
+ }
+}
diff --git a/bug/StudyTest.pl b/bug/StudyTest.pl
new file mode 100644
index 0000000..e7350bd
--- /dev/null
+++ b/bug/StudyTest.pl
@@ -0,0 +1,112 @@
+# Detta �r en fil som anv�nder Javaklasser fast med Inline.
+
+use strict;
+use FindBin ;
+use lib $FindBin::Bin ;
+
+use Time::HiRes; #F�r prestandatest!
+my $Tstart = [Time::HiRes::gettimeofday];
+use Inline ( Java => 'DATA',
+ SHARED_JVM => 1, JNI => 0 );
+
+Inline::Java::reconnect_JVM() ;
+
+
+# B�rja programmet!
+use Person;
+my $him = new Person;
+$him->name('Nisse');
+print ($him->name . "\n");
+for(my $i; $i<1000;$i++) {
+ my $javaVariable = new Program; # Skapa "javakontakt"
+ $javaVariable->work; # K�r skriptet
+ # print ($him->name . "\n");
+ # print ("Hans polare �r: ", join(", ", $him->peers), "\n");
+}
+# Programmet slut!
+my $Tend = [Time::HiRes::gettimeofday];
+my $tot = Time::HiRes::tv_interval($Tstart,$Tend);
+print('Detta program tog: ' . $tot . ' sekunder att k�ra.' . "\n");
+
+# Metod som anv�nds av Java!
+sub perlMethods($$@) { # K�r perlmetoder p� uppdrag av Java!
+ my($objectName, $methodName, at inParam) = @_;
+ return eval($objectName)->$methodName(@inParam);
+}
+
+
+__END__
+
+__Java__
+
+import org.perl.inline.java.*;
+
+class Program {
+
+ // Grundv�rden
+ PerlObject him = new PerlObject("$him");
+
+ // Konstruktor
+ public Program() throws InlineJavaException {
+ }
+ // Metod som g�r n�got...
+ public void work () {
+ // H�r skrivs skriptet i Java!
+
+
+ String T = (String)him.method("name");
+ if (T.equals("Nisse") )
+ //him.method("name","Knut-G�ran");
+ him.method("name", new Object[] {"Knut-G�ran" } );
+ else
+ him.method("name","Kurt-Arne");
+ him.method("peers", new Object[] {"Tuve", "Bernt-Arne", "Nyman"} );
+
+
+ // H�r slutar skriptet som skrivits i Java!
+ }
+} ;
+
+// Metodklass som anv�nds av Java!
+class PerlObject extends InlineJavaPerlCaller {
+ String perlName;
+ // Konstruktor
+ public PerlObject(String perlName) throws InlineJavaException {
+ this.perlName = perlName;
+ }
+ // Metod f�r att kalla p� Perlobjektens egna metoder.
+ public Object method (String methodName) {
+ try {
+ Object ret = CallPerl( "main", "perlMethods", new Object[] {perlName, methodName} );
+ return ret == null ? new Integer(1) : ret;
+ }
+ catch (Exception e) {
+ return new Integer(-1);
+ }
+ }
+ public Object method (String methodName, Object arg) {
+ try {
+ Object ret = CallPerl( "main", "perlMethods", new Object[] {perlName, methodName, arg} );
+ return ret == null ? new Integer(1) : ret;
+ }
+ catch (Exception e) {
+ return new Integer(-1);
+ }
+ }
+ public Object method (String methodName, Object arg[]) {
+ try {
+ Object[] perlArg = new Object [arg.length+2];
+ perlArg[0] = perlName;
+ perlArg[1] = methodName;
+ for (int i = 0; i < arg.length; i++) {
+ perlArg[i+2] = arg[i];
+ }
+ Object ret = CallPerl( "main", "perlMethods", perlArg );
+ return ret == null ? new Integer(1) : ret;
+ }
+ catch (Exception e) {
+ return new Integer(-1);
+ }
+ }
+} ;
+
diff --git a/bug/gcj_test.class b/bug/gcj_test.class
deleted file mode 100644
index d3fa658..0000000
Binary files a/bug/gcj_test.class and /dev/null differ
diff --git a/bug/nadim.pl b/bug/nadim.pl
new file mode 100755
index 0000000..197e7a3
--- /dev/null
+++ b/bug/nadim.pl
@@ -0,0 +1,54 @@
+#!/usr/bin/perl
+
+package PBS ;
+use Data::Dumper ;
+
+sub GetConfig {
+ print "do GetConfig(@_)\n" ;
+ return 1 ;
+}
+
+sub AddRule {
+ print "do AddRule( " . Dumper(\@_) . ")\n" ;
+}
+
+
+package PBS::Java ;
+
+my $java_code = <<JC ;
+ if (GetConfig("EXTRA_OBJECT_FILES")){
+ AddRule("extra_object_file", new String [] {"*.lib", "d"}, null);
+ AddRule("d", new String [] {"d"}, "some_command") ;
+ }
+
+ AddRule("dep1", new String [] {"a", "a.dep"}, "a_second_command") ;
+ AddRule("dep2", new String [] {"b", "a.dep"}, "another_command") ;
+JC
+
+use Inline ;
+Inline->bind(
+ Java => <<JAVA,
+import org.perl.inline.java.* ;
+
+class PBS_Java_12345 extends InlineJavaPerlCaller {
+ public PBS_Java_12345() throws InlineJavaException {
+ }
+
+ private boolean GetConfig(String k) throws InlineJavaException, InlineJavaPerlException {
+ Boolean b = (Boolean)CallPerlSub("PBS::GetConfig", new Object [] {k}, Boolean.class) ;
+ return b.booleanValue() ;
+ }
+
+ private void AddRule(String d, String r[], String cmd) throws InlineJavaException, InlineJavaPerlException {
+ CallPerlSub("PBS::AddRule", new Object [] {d, r, cmd}) ;
+ }
+
+ public void run() throws InlineJavaException, InlineJavaPerlException {
+ $java_code ;
+ }
+}
+JAVA
+) ;
+
+my $o = new PBS::Java::PBS_Java_12345() ;
+$o->run() ;
diff --git a/bug/natives_hpux.txt b/bug/natives_hpux.txt
new file mode 100644
index 0000000..a2e0a73
--- /dev/null
+++ b/bug/natives_hpux.txt
@@ -0,0 +1 @@
+
####### Individual t/12_2 test as asked by Mr. LeBoutillier
####### WITH JNI active
# export PERL_INLINE_JAVA_JNI=1
# export PERL_INLINE_JAVA_DEBUG=4
# perl -Mblib t/12_2_perl_natives.t
Using /opt/Inline-Java-0.45/blib
Note: PerlNatives is still experimental and errors here can safely
be ignored if you don't plan on using this feature. However, the
author would appreciate if errors encountered here were reported
to the mailing list (inline at perl.org) along with your hardware/OS
detail. Thank you.
[perl][1] validate done.
[perl][1] Starting load.
[perl][4] portable: ENV_VAR_PATH_SEP_CP for hpux is default ':'
[perl][4] portable: SUB_FIX_CLASSPATH => /opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaServer.jar for hpux is default '/opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaServer.jar'
[perl][2] classpath: /opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaServer.jar
[perl][1] starting JVM...
[perl][1] JNI mode
[perl][2] classpath:
[perl][4] portable: SUB_FIX_CLASSPATH => /opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaUser.jar for hpux is default '/opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaUser.jar'
[perl][2] adding to classpath: '/opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaUser.jar'
[perl][3] packet sent is add_classpath 47.111.112.116.47.73.110.108.105.110.101.45.74.97.118.97.45.48.46.52.53.47.98.108.105.98.47.108.105.98.47.73.110.108.105.110.101.47.74.97.118.97.47.73.110.108.105.110.101.74.97.118.97.85.115.101.114.46.106.97.114
[java][3] packet recv is add_classpath 47.111.112.116.47.73.110.108.105.110.101.45.74.97.118.97.45.48.46.52.53.47.98.108.105.98.47.108.105.98.47.73.110.108.105.110.101.47.74.97.118.97.47.73.110.108.105.110.101.74.97.118.97.85.115.101.114.46.106.97.114
[java][2] added file:/opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaUser.jar to classpath
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][3] getting server type
[perl][3] packet sent is server_type
[java][3] packet recv is server_type
[java][4] class java.lang.String is primitive string
[java][3] packet sent is ok scalar:112.114.105.118.97.116.101
[perl][3] packet recv is ok scalar:112.114.105.118.97.116.101
[perl][4] destroying Inline::Java::Protocol
[perl][4] portable: ENV_VAR_PATH_SEP_CP for hpux is default ':'
[perl][2] classpath candidate '' scraped
[perl][4] portable: SUB_FIX_CLASSPATH => /opt/Inline-Java-0.45/_Inline_test/lib/auto/_12_2_perl_natives_t_9e54 for hpux is default '/opt/Inline-Java-0.45/_Inline_test/lib/auto/_12_2_perl_natives_t_9e54'
[perl][2] adding to classpath: '/opt/Inline-Java-0.45/_Inline_test/lib/auto/_12_2_perl_natives_t_9e54'
[perl][3] packet sent is add_classpath 47.111.112.116.47.73.110.108.105.110.101.45.74.97.118.97.45.48.46.52.53.47.95.73.110.108.105.110.101.95.116.101.115.116.47.108.105.98.47.97.117.116.111.47.95.49.50.95.50.95.112.101.114.108.95.110.97.116.105.118.101.115.95.116.95.57.101.53.52
[java][3] packet recv is add_classpath 47.111.112.116.47.73.110.108.105.110.101.45.74.97.118.97.45.48.46.52.53.47.95.73.110.108.105.110.101.95.116.101.115.116.47.108.105.98.47.97.117.116.111.47.95.49.50.95.50.95.112.101.114.108.95.110.97.116.105.118.101.115.95.116.95.57.101.53.52
[java][2] added file:/opt/Inline-Java-0.45/_Inline_test/lib/auto/_12_2_perl_natives_t_9e54/ to classpath
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][3] Inline::Java object id is 0
[perl][1] using jdat cache
[perl][3] perl doesn't know about 't121' ('main::t121')
[perl][2] creating object in java (main::t121):
[perl][3] perl doesn't know about 't1212' ('main::t1212')
[perl][2] creating object in java (main::t1212):
[perl][1] load done.
[perl][4] destroying Inline::Java::Protocol
[perl][3] matching arguments to init()
[perl][3] match successful: score is 0
[perl][3] perfect match found, aborting search
[perl][3] calling object(0).init()
[perl][3] packet sent is call_method 0 t121 init ()
[java][3] packet recv is call_method 0 t121 init ()
[java][4] class t121 is reference
[java][3] found a init method
[java][3] () = ()?
[java][3] has matching signature ()
[java][1] loading InlineJavaUserClassLink via InlineJavaUserClassLoader
[java][2] loading shared library /opt/Inline-Java-0.45/blib/arch/auto/Inline/Java/Natives/Natives.sl
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
1..5
[perl][3] matching arguments to init()
[perl][3] match successful: score is 0
[perl][3] perfect match found, aborting search
[perl][3] calling object(0).init()
[perl][3] packet sent is call_method 0 t121 init ()
[java][3] packet recv is call_method 0 t121 init ()
[java][4] class t121 is reference
[java][3] method was cached
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][3] matching arguments to new()
[perl][3] match successful: score is 0
[perl][3] perfect match found, aborting search
[perl][3] creating object new t121()
[perl][3] packet sent is create_object t121 ()
[java][3] packet recv is create_object t121 ()
[java][4] class t121 is reference
[java][3] found a t121 constructor
[java][3] () = ()?
[java][3] has matching signature ()
[java][3] registering natives for class t121
[java][3] registering native method array for class t121
[java][3] signature is ([I[Ljava/lang/String;)Ljava/lang/String;
[java][3] format is LLL
[java][3] registering native method types for class t121
[java][3] signature is (BSIJFDZCLjava/lang/String;)Ljava/lang/String;
[java][3] format is LBSIJFDZCL
[java][3] registering native method callback for class t121
[java][3] signature is ()Ljava/lang/String;
[java][3] format is L
[java][3] packet sent is ok object:0:1:t121
[perl][3] packet recv is ok object:0:1:t121
[perl][3] matching arguments to types_stub(byte, short, int, long, float, double, boolean, char, java.lang.String)
[perl][4] min = -128, max = 127, val = 1
[perl][4] min = -32768, max = 32767, val = 2
[perl][4] min = -2147483648, max = 2147483647, val = 3
[perl][4] min = -2147483648, max = 2147483647, val = 4
[perl][4] min = -3.4028235e+38, max = 3.4028235e+38, val = 5
[perl][4] min = -3.4028235e+38, max = 3.4028235e+38, val = 6
[perl][3] match successful: score is 41
[perl][3] calling object(1).types_stub(1, 2, 3, 4, 5, 6, 1, 2, 1000)
[perl][3] packet sent is call_method 1 t121 types_stub (byte,short,int,long,float,double,boolean,char,java.lang.String) scalar:49 scalar:50 scalar:51 scalar:52 scalar:53 scalar:54 scalar:49 scalar:50 scalar:49.48.48.48
[java][3] packet recv is call_method 1 t121 types_stub (byte,short,int,long,float,double,boolean,char,java.lang.String) scalar:49 scalar:50 scalar:51 scalar:52 scalar:53 scalar:54 scalar:49 scalar:50 scalar:49.48.48.48
[java][4] class t121 is reference
[java][3] found a types_stub method
[java][3] (byte,short,int,long,float,double,boolean,char,java.lang.String) = (byte,short,int,long,float,double,boolean,char,java.lang.String)?
[java][3] has matching signature (byte,short,int,long,float,double,boolean,char,java.lang.String)
[java][4] arg 0 of signature is byte
[java][4] class byte is primitive numeric
[java][4] args is scalar -> forcing to byte
[java][4] result is 1
[java][4] arg 1 of signature is short
[java][4] class short is primitive numeric
[java][4] args is scalar -> forcing to short
[java][4] result is 2
[java][4] arg 2 of signature is int
[java][4] class int is primitive numeric
[java][4] args is scalar -> forcing to int
[java][4] result is 3
[java][4] arg 3 of signature is long
[java][4] class long is primitive numeric
[java][4] args is scalar -> forcing to long
[java][4] result is 4
[java][4] arg 4 of signature is float
[java][4] class float is primitive numeric
[java][4] args is scalar -> forcing to float
[java][4] result is 5.0
[java][4] arg 5 of signature is double
[java][4] class double is primitive numeric
[java][4] args is scalar -> forcing to double
[java][4] result is 6.0
[java][4] arg 6 of signature is boolean
[java][4] class boolean is primitive bool
[java][4] args is scalar -> forcing to bool
[java][4] result is true
[java][4] arg 7 of signature is char
[java][4] class char is primitive char
[java][4] args is scalar -> forcing to char
[java][4] result is 2
[java][4] arg 8 of signature is java.lang.String
[java][4] class java.lang.String is primitive string
[java][4] args is scalar -> forcing to java.lang.String
[java][4] result is 1000
[java][3] entering LookupMethod
[java][3] entering GetNativeCaller
[java][3] exiting GetNativeCaller
[java][3] exiting LookupMethod
[java][3] entering InvokePerlMethod
[java][3] entering GetNativeCaller
[java][3] exiting GetNativeCaller
[java][3] InvokePerlMethod argument 0 = t121 at b162d5
[java][3] InvokePerlMethod argument 1 = 0
[java][3] InvokePerlMethod argument 2 = 0
[java][3] InvokePerlMethod argument 3 = 3
[java][3] InvokePerlMethod argument 4 = 4
[java][3] InvokePerlMethod argument 5 = 5.0
[java][3] InvokePerlMethod argument 6 = 6.0
[java][3] InvokePerlMethod argument 7 = false
[java][3] InvokePerlMethod argument 8 =
[java][3] InvokePerlMethod argument 9 = 1000
[java][3] exiting InvokePerlMethod
[java][4] class java.lang.Byte is primitive numeric
[java][4] class java.lang.Short is primitive numeric
[java][4] class java.lang.Integer is primitive numeric
[java][4] class java.lang.Long is primitive numeric
[java][4] class java.lang.Float is primitive numeric
[java][4] class java.lang.Double is primitive numeric
[java][4] class java.lang.Boolean is primitive bool
[java][4] class java.lang.Character is primitive char
[java][4] class java.lang.String is primitive string
[java][2] callback command: callback ::t121 types null object:0:2:t121 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48
[java][3] packet sent (callback) is callback ::t121 types null object:0:2:t121 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48
[perl][3] checking if stub is array...
[perl][3] perl knows about 't121' ('main::t121')
[perl][2] creating object in java (main::t121):
[perl][3] returning stub...
[perl][2] processing callback main::t121::types(t121=HASH(0x40681674), 0, 0, 3, 4, 5.0, 6.0, 0, , 1000)
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (main::t121):
[perl][3] deleting object t121=HASH(0x408b6574) 2 (t121)
[perl][3] packet sent is delete_object 2
[java][3] packet recv is delete_object 2
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Protocol
[java][3] packet recv (callback) is callback false scalar:49.48.49.56
[java][4] class java.lang.Object is reference
[java][4] class java.lang.String is primitive string
[java][3] packet sent is ok scalar:49.48.49.56
[perl][3] packet recv is ok scalar:49.48.49.56
not ok 1
# Test 1 got: '1018' (t/12_2_perl_natives.t at line 44)
# Expected: '1024'
[perl][3] matching arguments to array_stub([I, [Ljava.lang.String;)
[perl][4] min = -2147483648, max = 2147483647, val = 34
[perl][4] min = -2147483648, max = 2147483647, val = 56
[perl][4] array is [2]
[perl][4] array has 2 declared cells
[perl][4] array should have 2 declared cells
[perl][3] creating object new [I(34, 56)
[perl][3] packet sent is create_object [I (2) scalar:51.52 scalar:53.54
[java][3] packet recv is create_object [I (2) scalar:51.52 scalar:53.54
[java][4] class [I is reference
[java][4] class [I is array
[java][4] array elements: int
[java][4] array dimension: 2
[java][4] class int is primitive numeric
[java][4] args is scalar -> forcing to int
[java][4] result is 34
[java][4] setting array element 0 to 34
[java][4] class int is primitive numeric
[java][4] args is scalar -> forcing to int
[java][4] result is 56
[java][4] setting array element 1 to 56
[java][3] packet sent is ok object:0:3:[I
[perl][3] packet recv is ok object:0:3:[I
[perl][3] checking if [I is a [I
[perl][3] packet sent is isa [I [I
[java][3] packet recv is isa [I [I
[java][4] checking if [I extends [I
[java][4] class java.lang.Integer is primitive numeric
[java][3] packet sent is ok scalar:48
[perl][3] packet recv is ok scalar:48
[perl][3] Inline::Java::Array=ARRAY(0x402b4c84) is a [I
[perl][4] array is [2]
[perl][4] array has 2 declared cells
[perl][4] array should have 2 declared cells
[perl][3] creating object new [Ljava.lang.String;(toto, 789)
[perl][3] packet sent is create_object [Ljava.lang.String; (2) scalar:116.111.116.111 scalar:55.56.57
[java][3] packet recv is create_object [Ljava.lang.String; (2) scalar:116.111.116.111 scalar:55.56.57
[java][4] class [Ljava.lang.String; is reference
[java][4] class [Ljava.lang.String; is array
[java][4] array elements: java.lang.String
[java][4] array dimension: 2
[java][4] class java.lang.String is primitive string
[java][4] args is scalar -> forcing to java.lang.String
[java][4] result is toto
[java][4] setting array element 0 to toto
[java][4] class java.lang.String is primitive string
[java][4] args is scalar -> forcing to java.lang.String
[java][4] result is 789
[java][4] setting array element 1 to 789
[java][3] packet sent is ok object:0:4:[Ljava.lang.String;
[perl][3] packet recv is ok object:0:4:[Ljava.lang.String;
[perl][3] checking if [Ljava.lang.String; is a [Ljava.lang.String;
[perl][3] packet sent is isa [Ljava.lang.String; [Ljava.lang.String;
[java][3] packet recv is isa [Ljava.lang.String; [Ljava.lang.String;
[java][4] checking if [Ljava.lang.String; extends [Ljava.lang.String;
[java][4] class java.lang.Integer is primitive numeric
[java][3] packet sent is ok scalar:48
[perl][3] packet recv is ok scalar:48
[perl][3] Inline::Java::Array=ARRAY(0x406fa728) is a [Ljava.lang.String;
[perl][3] match successful: score is 15
[perl][3] calling object(1).array_stub(Inline::Java::Array=ARRAY(0x402b4c84), Inline::Java::Array=ARRAY(0x406fa728))
[perl][3] packet sent is call_method 1 t121 array_stub ([I,[Ljava.lang.String;) object:[I:3 object:[Ljava.lang.String;:4
[java][3] packet recv is call_method 1 t121 array_stub ([I,[Ljava.lang.String;) object:[I:3 object:[Ljava.lang.String;:4
[java][4] class t121 is reference
[java][3] found a array_stub method
[java][3] ([I,[Ljava.lang.String;) = ([I,[Ljava.lang.String;)?
[java][3] has matching signature ([I,[Ljava.lang.String;)
[java][4] arg 0 of signature is [I
[java][4] class [I is reference
[java][4] class [I is reference
[java][4] checking if [I extends [I
[java][4] [I is a kind of [I
[java][4] arg 1 of signature is [Ljava.lang.String;
[java][4] class [Ljava.lang.String; is reference
[java][4] class [Ljava.lang.String; is reference
[java][4] checking if [Ljava.lang.String; extends [Ljava.lang.String;
[java][4] [Ljava.lang.String; is a kind of [Ljava.lang.String;
[java][3] entering LookupMethod
[java][3] entering GetNativeCaller
[java][3] exiting GetNativeCaller
[java][3] exiting LookupMethod
[java][3] entering InvokePerlMethod
[java][3] entering GetNativeCaller
[java][3] exiting GetNativeCaller
[java][3] InvokePerlMethod argument 0 = t121 at b162d5
[java][3] InvokePerlMethod argument 1 = [I at 186d4c1
[java][3] InvokePerlMethod argument 2 = [Ljava.lang.String;@f9f9d8
[java][3] exiting InvokePerlMethod
[java][2] callback command: callback ::t121 array null object:0:5:t121 object:0:6:[I object:0:7:[Ljava.lang.String;
[java][3] packet sent (callback) is callback ::t121 array null object:0:5:t121 object:0:6:[I object:0:7:[Ljava.lang.String;
[perl][3] checking if stub is array...
[perl][3] perl knows about 't121' ('main::t121')
[perl][2] creating object in java (main::t121):
[perl][3] returning stub...
[perl][3] checking if stub is array...
[perl][3] creating array object...
[perl][2] creating object in java (Inline::Java::Object):
[perl][3] array object created...
[perl][3] returning stub...
[perl][3] checking if stub is array...
[perl][3] creating array object...
[perl][2] creating object in java (Inline::Java::Object):
[perl][3] array object created...
[perl][3] returning stub...
[perl][2] processing callback main::t121::array(t121=HASH(0x406fa80c), Inline::Java::Array=ARRAY(0x406fa83c), Inline::Java::Array=ARRAY(0x406f9bf4))
[perl][3] calling object(6).getLength()
[perl][3] packet sent is call_method 6 [I getLength ()
[java][3] packet recv is call_method 6 [I getLength ()
[java][4] class [I is reference
[java][4] class [I is array
[java][4] class java.lang.Integer is primitive numeric
[java][3] packet sent is ok scalar:50
[perl][3] packet recv is ok scalar:50
[perl][3] getting object(6)->{0}
[perl][3] packet sent is get_member 6 [I 0 java.lang.Object undef:
[java][3] packet recv is get_member 6 [I 0 java.lang.Object undef:
[java][4] class [I is reference
[java][4] class [I is array
[java][4] class java.lang.Integer is primitive numeric
[java][3] packet sent is ok scalar:51.52
[perl][3] packet recv is ok scalar:51.52
[perl][3] calling object(7).getLength()
[perl][3] packet sent is call_method 7 [Ljava.lang.String; getLength ()
[java][3] packet recv is call_method 7 [Ljava.lang.String; getLength ()
[java][4] class [Ljava.lang.String; is reference
[java][4] class [Ljava.lang.String; is array
[java][4] class java.lang.Integer is primitive numeric
[java][3] packet sent is ok scalar:50
[perl][3] packet recv is ok scalar:50
[perl][3] getting object(7)->{1}
[perl][3] packet sent is get_member 7 [Ljava.lang.String; 1 java.lang.Object undef:
[java][3] packet recv is get_member 7 [Ljava.lang.String; 1 java.lang.Object undef:
[java][4] class [Ljava.lang.String; is reference
[java][4] class [Ljava.lang.String; is array
[java][4] class java.lang.String is primitive string
[java][3] packet sent is ok scalar:55.56.57
[perl][3] packet recv is ok scalar:55.56.57
[perl][4] destroying Inline::Java::Array
[perl][4] destroying Inline::Java::Array
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (main::t121):
[perl][3] deleting object t121=HASH(0x406f6e94) 5 (t121)
[perl][3] packet sent is delete_object 5
[java][3] packet recv is delete_object 5
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Array::Tie
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (Inline::Java::Object):
[perl][3] deleting object Inline::Java::Object=HASH(0x406f9bb8) 7 ([Ljava.lang.String;)
[perl][3] packet sent is delete_object 7
[java][3] packet recv is delete_object 7
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Array::Tie
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (Inline::Java::Object):
[perl][3] deleting object Inline::Java::Object=HASH(0x406f9c6c) 6 ([I)
[perl][3] packet sent is delete_object 6
[java][3] packet recv is delete_object 6
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Protocol
[java][3] packet recv (callback) is callback false scalar:56.50.51
[java][4] class java.lang.Object is reference
[java][4] class java.lang.String is primitive string
[java][3] packet sent is ok scalar:56.50.51
[perl][3] packet recv is ok scalar:56.50.51
ok 2
[perl][4] destroying Inline::Java::Array
[perl][4] destroying Inline::Java::Array::Tie
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (Inline::Java::Object):
[perl][3] deleting object Inline::Java::Object=HASH(0x406fab4c) 4 ([Ljava.lang.String;)
[perl][3] packet sent is delete_object 4
[java][3] packet recv is delete_object 4
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Array
[perl][4] destroying Inline::Java::Array::Tie
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (Inline::Java::Object):
[perl][3] deleting object Inline::Java::Object=HASH(0x408b65ec) 3 ([I)
[perl][3] packet sent is delete_object 3
[java][3] packet recv is delete_object 3
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Protocol
[perl][3] matching arguments to new()
[perl][3] match successful: score is 0
[perl][3] perfect match found, aborting search
[perl][3] creating object new t1212()
[perl][3] packet sent is create_object t1212 ()
[java][3] packet recv is create_object t1212 ()
[java][4] class t1212 is reference
[java][3] found a t1212 constructor
[java][3] () = ()?
[java][3] has matching signature ()
[java][3] registering natives for class t1212
[java][3] packet sent is ok object:0:8:t1212
[perl][3] packet recv is ok object:0:8:t1212
[perl][3] matching arguments to types_stub(byte, short, int, long, float, double, boolean, char, java.lang.String)
[perl][4] min = -128, max = 127, val = 1
[perl][4] min = -32768, max = 32767, val = 2
[perl][4] min = -2147483648, max = 2147483647, val = 3
[perl][4] min = -2147483648, max = 2147483647, val = 4
[perl][4] min = -3.4028235e+38, max = 3.4028235e+38, val = 5
[perl][4] min = -3.4028235e+38, max = 3.4028235e+38, val = 6
[perl][3] match successful: score is 41
[perl][3] calling object(8).types_stub(1, 2, 3, 4, 5, 6, 1, 2, 1000)
[perl][3] packet sent is call_method 8 t1212 types_stub (byte,short,int,long,float,double,boolean,char,java.lang.String) scalar:49 scalar:50 scalar:51 scalar:52 scalar:53 scalar:54 scalar:49 scalar:50 scalar:49.48.48.48
[java][3] packet recv is call_method 8 t1212 types_stub (byte,short,int,long,float,double,boolean,char,java.lang.String) scalar:49 scalar:50 scalar:51 scalar:52 scalar:53 scalar:54 scalar:49 scalar:50 scalar:49.48.48.48
[java][4] class t1212 is reference
[java][3] found a types_stub method
[java][3] (byte,short,int,long,float,double,boolean,char,java.lang.String) = (byte,short,int,long,float,double,boolean,char,java.lang.String)?
[java][3] has matching signature (byte,short,int,long,float,double,boolean,char,java.lang.String)
[java][4] arg 0 of signature is byte
[java][4] class byte is primitive numeric
[java][4] args is scalar -> forcing to byte
[java][4] result is 1
[java][4] arg 1 of signature is short
[java][4] class short is primitive numeric
[java][4] args is scalar -> forcing to short
[java][4] result is 2
[java][4] arg 2 of signature is int
[java][4] class int is primitive numeric
[java][4] args is scalar -> forcing to int
[java][4] result is 3
[java][4] arg 3 of signature is long
[java][4] class long is primitive numeric
[java][4] args is scalar -> forcing to long
[java][4] result is 4
[java][4] arg 4 of signature is float
[java][4] class float is primitive numeric
[java][4] args is scalar -> forcing to float
[java][4] result is 5.0
[java][4] arg 5 of signature is double
[java][4] class double is primitive numeric
[java][4] args is scalar -> forcing to double
[java][4] result is 6.0
[java][4] arg 6 of signature is boolean
[java][4] class boolean is primitive bool
[java][4] args is scalar -> forcing to bool
[java][4] result is true
[java][4] arg 7 of signature is char
[java][4] class char is primitive char
[java][4] args is scalar -> forcing to char
[java][4] result is 2
[java][4] arg 8 of signature is java.lang.String
[java][4] class java.lang.String is primitive string
[java][4] args is scalar -> forcing to java.lang.String
[java][4] result is 1000
[java][3] entering LookupMethod
[java][3] entering GetNativeCaller
[java][3] exiting GetNativeCaller
[java][3] exiting LookupMethod
[java][3] entering InvokePerlMethod
[java][3] entering GetNativeCaller
[java][3] exiting GetNativeCaller
[java][3] InvokePerlMethod argument 0 = t1212 at 7ffe01
[java][3] InvokePerlMethod argument 1 = 0
[java][3] InvokePerlMethod argument 2 = 0
[java][3] InvokePerlMethod argument 3 = 3
[java][3] InvokePerlMethod argument 4 = 4
[java][3] InvokePerlMethod argument 5 = 5.0
[java][3] InvokePerlMethod argument 6 = 6.0
[java][3] InvokePerlMethod argument 7 = false
[java][3] InvokePerlMethod argument 8 =
[java][3] InvokePerlMethod argument 9 = 1000
[java][3] exiting InvokePerlMethod
[java][4] class java.lang.Byte is primitive numeric
[java][4] class java.lang.Short is primitive numeric
[java][4] class java.lang.Integer is primitive numeric
[java][4] class java.lang.Long is primitive numeric
[java][4] class java.lang.Float is primitive numeric
[java][4] class java.lang.Double is primitive numeric
[java][4] class java.lang.Boolean is primitive bool
[java][4] class java.lang.Character is primitive char
[java][4] class java.lang.String is primitive string
[java][2] callback command: callback ::t121 types null object:0:9:t1212 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48
[java][3] packet sent (callback) is callback ::t121 types null object:0:9:t1212 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48
[perl][3] checking if stub is array...
[perl][3] perl knows about 't1212' ('main::t1212')
[perl][2] creating object in java (main::t1212):
[perl][3] returning stub...
[perl][2] processing callback main::t121::types(main::t1212=HASH(0x406fa728), 0, 0, 3, 4, 5.0, 6.0, 0, , 1000)
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (main::t1212):
[perl][3] deleting object main::t1212=HASH(0x406fa7ac) 9 (t1212)
[perl][3] packet sent is delete_object 9
[java][3] packet recv is delete_object 9
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Protocol
[java][3] packet recv (callback) is callback false scalar:49.48.49.56
[java][4] class java.lang.Object is reference
[java][4] class java.lang.String is primitive string
[java][3] packet sent is ok scalar:49.48.49.56
[perl][3] packet recv is ok scalar:49.48.49.56
not ok 3
# Test 3 got: '1018' (t/12_2_perl_natives.t at line 48)
# Expected: '1024'
[perl][3] matching arguments to callback_stub()
[perl][3] match successful: score is 0
[perl][3] perfect match found, aborting search
[perl][3] calling object(1).callback_stub()
[perl][3] packet sent is call_method 1 t121 callback_stub ()
[java][3] packet recv is call_method 1 t121 callback_stub ()
[java][4] class t121 is reference
[java][3] found a callback_stub method
[java][3] () = ()?
[java][3] has matching signature ()
[java][3] entering LookupMethod
[java][3] entering GetNativeCaller
[java][3] exiting GetNativeCaller
[java][3] exiting LookupMethod
[java][3] entering InvokePerlMethod
[java][3] entering GetNativeCaller
[java][3] exiting GetNativeCaller
[java][3] InvokePerlMethod argument 0 = t121 at b162d5
[java][3] exiting InvokePerlMethod
[java][2] callback command: callback ::t121 callback null object:0:10:t121
[java][3] packet sent (callback) is callback ::t121 callback null object:0:10:t121
[perl][3] checking if stub is array...
[perl][3] perl knows about 't121' ('main::t121')
[perl][2] creating object in java (main::t121):
[perl][3] returning stub...
[perl][2] processing callback main::t121::callback(t121=HASH(0x406f9ae0))
[perl][3] matching arguments to get_name()
[perl][3] match successful: score is 0
[perl][3] perfect match found, aborting search
[perl][3] calling object(10).get_name()
[perl][3] packet sent is call_method 10 t121 get_name ()
[java][3] packet recv is call_method 10 t121 get_name ()
[java][4] class t121 is reference
[java][3] found a get_name method
[java][3] () = ()?
[java][3] has matching signature ()
[java][4] class java.lang.String is primitive string
[java][3] packet sent is ok scalar:116.111.116.111
[perl][3] packet recv is ok scalar:116.111.116.111
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (main::t121):
[perl][3] deleting object t121=HASH(0x406f9b58) 10 (t121)
[perl][3] packet sent is delete_object 10
[java][3] packet recv is delete_object 10
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Protocol
[java][3] packet recv (callback) is callback false scalar:116.111.116.111
[java][4] class java.lang.Object is reference
[java][4] class java.lang.String is primitive string
[java][3] packet sent is ok scalar:116.111.116.111
[perl][3] packet recv is ok scalar:116.111.116.111
ok 4
[perl][3] getting object count
[perl][3] packet sent is obj_cnt
[java][3] packet recv is obj_cnt
[java][4] class java.lang.Integer is primitive numeric
[java][3] packet sent is ok scalar:50
[perl][3] packet recv is ok scalar:50
ok 5
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (main::t121):
[perl][3] deleting object t121=HASH(0x40678628) 1 (t121)
[perl][3] packet sent is delete_object 1
[java][3] packet recv is delete_object 1
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (main::t1212):
[perl][3] deleting object main::t1212=HASH(0x40681608) 8 (t1212)
[perl][3] packet sent is delete_object 8
[java][3] packet recv is delete_object 8
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Object::Private
[perl][1] killed by natural death.
[perl][1] JVM owner exiting...
[perl][1] exiting with 0
[perl][4] destroying Inline::Java::Object::Tie
[perl][4] script marked as DONE, object destruction not propagated to Java
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Object::Tie
[perl][4] script marked as DONE, object destruction not propagated to Java
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Object::Tie
[perl][4] script marked as DONE, object destruction not propagated to Java
[perl][4] destroying Inline::Java::Object::Tie
[perl][4] script marked as DONE, object destruction not propagated to Java
###### Now make test without JNI active
# unset PERL_INLINE_JAVA_DEBUG
# unset PERL_INLINE_JAVA_JNI
# unset LD_PRELOAD
# make test
PERL_DL_NONLAZY=1 /usr/local/bin/perl -Iblib/arch -Iblib/lib -I/opt/perl/lib/5.6.1/PA-RISC1.1-thread-multi -I/opt/perl/lib/5.6.1 -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t
t/01_init...........Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning.
Error:
Perl version is 5.006001
Inline version is 0.44
Inline::Java version is 0.45
J2SDK version is 1.4.2.01, from /opt/java1.4
CLASSPATH is <empty>
t/01_init...........ok 1/1
t/01_init...........ok
t/02_primitives.....Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning.
Error:
t/02_primitives.....ok 1/99
t/02_primitives.....ok 2/99
t/02_primitives.....ok 3/99
t/02_primitives.....ok 4/99
t/02_primitives.....ok 5/99
t/02_primitives.....ok 6/99
t/02_primitives.....ok 7/99
t/02_primitives.....ok 8/99
t/02_primitives.....ok 9/99
t/02_primitives.....ok 10/99
t/02_primitives.....ok 11/99
t/02_primitives.....ok 12/99
t/02_primitives.....ok 13/99
t/02_primitives.....ok 14/99
t/02_primitives.....ok 15/99
t/02_primitives.....ok 16/99
t/02_primitives.....ok 17/99
t/02_primitives.....ok 18/99
t/02_primitives.....ok 19/99
t/02_primitives.....ok 20/99
t/02_primitives.....ok 21/99
t/02_primitives.....ok 22/99
t/02_primitives.....ok 23/99
t/02_primitives.....ok 24/99
t/02_primitives.....ok 25/99
t/02_primitives.....ok 26/99
t/02_primitives.....ok 27/99
t/02_primitives.....ok 28/99
t/02_primitives.....ok 29/99
t/02_primitives.....ok 30/99
t/02_primitives.....ok 31/99
t/02_primitives.....ok 32/99
t/02_primitives.....ok 33/99
t/02_primitives.....ok 34/99
t/02_primitives.....ok 35/99
t/02_primitives.....ok 36/99
t/02_primitives.....ok 37/99
t/02_primitives.....ok 38/99
t/02_primitives.....ok 39/99
t/02_primitives.....ok 40/99
t/02_primitives.....ok 41/99
t/02_primitives.....ok 42/99
t/02_primitives.....ok 43/99
t/02_primitives.....ok 44/99
t/02_primitives.....ok 45/99
t/02_primitives.....ok 46/99
t/02_primitives.....ok 47/99
t/02_primitives.....ok 48/99
t/02_primitives.....ok 49/99
t/02_primitives.....ok 50/99
t/02_primitives.....ok 51/99
t/02_primitives.....ok 52/99
t/02_primitives.....ok 53/99
t/02_primitives.....ok 54/99
t/02_primitives.....ok 55/99
t/02_primitives.....ok 56/99
t/02_primitives.....ok 57/99
t/02_primitives.....ok 58/99
t/02_primitives.....ok 59/99
t/02_primitives.....ok 60/99
t/02_primitives.....ok 61/99
t/02_primitives.....ok 62/99
t/02_primitives.....ok 63/99
t/02_primitives.....ok 64/99
t/02_primitives.....ok 65/99
t/02_primitives.....ok 66/99
t/02_primitives.....ok 67/99
t/02_primitives.....ok 68/99
t/02_primitives.....ok 69/99
t/02_primitives.....ok 70/99
t/02_primitives.....ok 71/99
t/02_primitives.....ok 72/99
t/02_primitives.....ok 73/99
t/02_primitives.....ok 74/99
t/02_primitives.....ok 75/99
t/02_primitives.....ok 76/99
t/02_primitives.....ok 77/99
t/02_primitives.....ok 78/99
t/02_primitives.....ok 79/99
t/02_primitives.....ok 80/99
t/02_primitives.....ok 81/99
t/02_primitives.....ok 82/99
t/02_primitives.....ok 83/99
t/02_primitives.....ok 84/99
t/02_primitives.....ok 85/99
t/02_primitives.....ok 86/99
t/02_primitives.....ok 87/99
t/02_primitives.....ok 88/99
t/02_primitives.....ok 89/99
t/02_primitives.....ok 90/99
t/02_primitives.....ok 91/99
t/02_primitives.....ok 92/99
t/02_primitives.....ok 93/99
t/02_primitives.....ok 94/99
t/02_primitives.....ok 95/99
t/02_primitives.....ok 96/99
t/02_primitives.....ok 97/99
t/02_primitives.....ok 98/99
t/02_primitives.....ok 99/99
t/02_primitives.....ok
t/03_objects........Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning.
Error:
t/03_objects........ok 1/16
t/03_objects........ok 2/16
t/03_objects........ok 3/16
t/03_objects........ok 4/16
t/03_objects........ok 5/16
t/03_objects........ok 6/16
t/03_objects........ok 7/16
t/03_objects........ok 8/16
t/03_objects........ok 9/16
t/03_objects........ok 10/16
t/03_objects........ok 11/16
t/03_objects........ok 12/16
t/03_objects........ok 13/16
t/03_objects........ok 14/16
t/03_objects........ok 15/16
t/03_objects........ok 16/16
t/03_objects........ok
t/04_members........Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning.
Error:
t/04_members........ok 1/28
t/04_members........ok 2/28
t/04_members........ok 3/28
t/04_members........ok 4/28
t/04_members........ok 5/28
t/04_members........ok 6/28
t/04_members........ok 7/28
t/04_members........ok 8/28
t/04_members........ok 9/28
t/04_members........ok 10/28
t/04_members........ok 11/28
t/04_members........ok 12/28
t/04_members........ok 13/28
t/04_members........ok 14/28
t/04_members........ok 15/28
t/04_members........ok 16/28
t/04_members........ok 17/28
t/04_members........ok 18/28
t/04_members........ok 19/28
t/04_members........ok 20/28
t/04_members........ok 21/28
t/04_members........ok 22/28
t/04_members........ok 23/28
t/04_members........ok 24/28
t/04_members........ok 25/28
t/04_members........ok 26/28
t/04_members........ok 27/28
t/04_members........ok 28/28
t/04_members........ok
t/05_arrays.........Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning.
Error:
t/05_arrays.........ok 1/55
t/05_arrays.........ok 2/55
t/05_arrays.........ok 3/55
t/05_arrays.........ok 4/55
t/05_arrays.........ok 5/55
t/05_arrays.........ok 6/55
t/05_arrays.........ok 7/55
t/05_arrays.........ok 8/55
t/05_arrays.........ok 9/55
t/05_arrays.........ok 10/55
t/05_arrays.........ok 11/55
t/05_arrays.........ok 12/55
t/05_arrays.........ok 13/55
t/05_arrays.........ok 14/55
t/05_arrays.........ok 15/55
t/05_arrays.........ok 16/55
t/05_arrays.........ok 17/55
t/05_arrays.........ok 18/55
t/05_arrays.........ok 19/55
t/05_arrays.........ok 20/55
t/05_arrays.........ok 21/55
t/05_arrays.........ok 22/55
t/05_arrays.........ok 23/55
t/05_arrays.........ok 24/55
t/05_arrays.........ok 25/55
t/05_arrays.........ok 26/55
t/05_arrays.........ok 27/55
t/05_arrays.........ok 28/55
t/05_arrays.........ok 29/55
t/05_arrays.........ok 30/55
t/05_arrays.........ok 31/55
t/05_arrays.........ok 32/55
t/05_arrays.........ok 33/55
t/05_arrays.........ok 34/55
t/05_arrays.........ok 35/55
t/05_arrays.........ok 36/55
t/05_arrays.........ok 37/55
t/05_arrays.........ok 38/55
t/05_arrays.........ok 39/55
t/05_arrays.........ok 40/55
t/05_arrays.........ok 41/55
t/05_arrays.........ok 42/55
t/05_arrays.........ok 43/55
t/05_arrays.........ok 44/55
t/05_arrays.........ok 45/55
t/05_arrays.........ok 46/55
t/05_arrays.........ok 47/55
t/05_arrays.........ok 48/55
t/05_arrays.........ok 49/55
t/05_arrays.........ok 50/55
t/05_arrays.........ok 51/55
t/05_arrays.........ok 52/55
t/05_arrays.........ok 53/55
t/05_arrays.........ok 54/55
t/05_arrays.........ok 55/55
t/05_arrays.........ok
t/06_static.........Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning.
Error:
t/06_static.........ok 1/10
t/06_static.........ok 2/10
t/06_static.........ok 3/10
t/06_static.........ok 4/10
t/06_static.........ok 5/10
t/06_static.........ok 6/10
t/06_static.........ok 7/10
t/06_static.........ok 8/10
t/06_static.........ok 9/10
t/06_static.........ok 10/10
t/06_static.........ok
t/07_polymorph......Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning.
Error:
t/07_polymorph......ok 1/22
t/07_polymorph......ok 2/22
t/07_polymorph......ok 3/22
t/07_polymorph......ok 4/22
t/07_polymorph......ok 5/22
t/07_polymorph......ok 6/22
t/07_polymorph......ok 7/22
t/07_polymorph......ok 8/22
t/07_polymorph......ok 9/22
t/07_polymorph......ok 10/22
t/07_polymorph......ok 11/22
t/07_polymorph......ok 12/22
t/07_polymorph......ok 13/22
t/07_polymorph......ok 14/22
t/07_polymorph......ok 15/22
t/07_polymorph......ok 16/22
t/07_polymorph......ok 17/22
t/07_polymorph......ok 18/22
t/07_polymorph......ok 19/22
t/07_polymorph......ok 20/22
t/07_polymorph......ok 21/22
t/07_polymorph......ok 22/22
t/07_polymorph......ok
t/08_study..........Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning.
Error:
t/08_study..........ok 1/9
t/08_study..........ok 2/9
t/08_study..........ok 3/9
t/08_study..........ok 4/9
t/08_study..........ok 5/9
t/08_study..........ok 6/9
t/08_study..........ok 7/9
t/08_study..........ok 8/9
t/08_study..........ok 9/9
t/08_study..........ok
t/09_usages.........Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning.
Error:
t/09_usages.........ok 1/4
t/09_usages.........ok 2/4
t/09_usages.........ok 3/4
t/09_usages.........ok 4/4
t/09_usages.........ok
t/10_1_shared_alone.
t/10_1_shared_alone.ok 1/4
t/10_1_shared_alone.ok 2/4
t/10_1_shared_alone.ok 3/4
t/10_1_shared_alone.ok 4/4
t/10_1_shared_alone.ok
t/10_2_shared_start.
t/10_2_shared_start.ok 1/3
t/10_2_shared_start.ok 2/3
t/10_2_shared_start.ok 3/3
t/10_2_shared_start.ok
t/10_3_shared_use...
t/10_3_shared_use...ok 1/3
t/10_3_shared_use...ok 2/3
t/10_3_shared_use...ok 3/3
t/10_3_shared_use...ok
t/10_4_shared_stop..
t/10_4_shared_stop..ok 1/4
t/10_4_shared_stop..ok 2/4
t/10_4_shared_stop..ok 3/4
t/10_4_shared_stop..ok 4/4
t/10_4_shared_stop..ok
t/10_5_shared_fork..
t/10_5_shared_fork..ok 1/8
t/10_5_shared_fork..ok 2/8
t/10_5_shared_fork..ok 3/8
t/10_5_shared_fork..ok 4/8
t/10_5_shared_fork..ok 5/8
t/10_5_shared_fork..ok 6/8
t/10_5_shared_fork..ok 7/8
t/10_5_shared_fork..ok 8/8
t/10_5_shared_fork..ok
t/10_6_shared_sim...
t/10_6_shared_sim...ok 1/7
t/10_6_shared_sim...ok 2/7
t/10_6_shared_sim...ok 3/7
t/10_6_shared_sim...ok 4/7
t/10_6_shared_sim...ok 5/7
t/10_6_shared_sim...ok 6/7
t/10_6_shared_sim...ok 7/7
t/10_6_shared_sim...ok
t/11_exceptions.....Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning.
Error:
t/11_exceptions.....ok 1/8
t/11_exceptions.....ok 2/8
t/11_exceptions.....ok 3/8
t/11_exceptions.....ok 4/8
t/11_exceptions.....ok 5/8
t/11_exceptions.....ok 6/8
t/11_exceptions.....ok 7/8
t/11_exceptions.....ok 8/8
t/11_exceptions.....ok
t/12_1_callbacks....
t/12_1_callbacks....ok 1/23
t/12_1_callbacks....ok 2/23
t/12_1_callbacks....ok 3/23
t/12_1_callbacks....ok 4/23
t/12_1_callbacks....ok 5/23
t/12_1_callbacks....ok 6/23
t/12_1_callbacks....ok 7/23
t/12_1_callbacks....ok 8/23
t/12_1_callbacks....ok 9/23
t/12_1_callbacks....ok 10/23
t/12_1_callbacks....ok 11/23
t/12_1_callbacks....ok 12/23
t/12_1_callbacks....ok 13/23
t/12_1_callbacks....ok 14/23
t/12_1_callbacks....ok 15/23
t/12_1_callbacks....ok 16/23
t/12_1_callbacks....ok 17/23
t/12_1_callbacks....ok 18/23
t/12_1_callbacks....ok 19/23
t/12_1_callbacks....ok 20/23
t/12_1_callbacks....ok 21/23
t/12_1_callbacks....ok 22/23
t/12_1_callbacks....ok 23/23
t/12_1_callbacks....ok
t/12_2_perl_natives.
Note: PerlNatives is still experimental and errors here can safely
be ignored if you don't plan on using this feature. However, the
author would appreciate if errors encountered here were reported
to the mailing list (inline at perl.org) along with your hardware/OS
detail. Thank you.
Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning.
Error:
Argument "" isn't numeric in addition (+) at t/12_2_perl_natives.t line 71, <GEN80> line 7.
t/12_2_perl_natives.NOK 1
t/12_2_perl_natives.ok 2/5
Argument "" isn't numeric in addition (+) at t/12_2_perl_natives.t line 71, <GEN80> line 26.
t/12_2_perl_natives.NOK 3
t/12_2_perl_natives.ok 4/5
t/12_2_perl_natives.ok 5/5
t/12_2_perl_natives.FAILED tests 1, 3
Failed 2/5 tests, 60.00% okay
t/13_end............Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning.
Error:
t/13_end............ok 1/1
t/13_end............ok
Failed Test Status Wstat Total Fail Failed List of Failed
--------------------------------------------------------------------------------
t/12_2_perl_natives.t 5 2 40.00% 1, 3
Failed 1/19 test scripts, 94.74% okay. 2/310 subtests failed, 99.35% okay.
*** Error exit code 255
Stop.
####### Individual t/12_2 test as asked by Mr. LeBoutillier
####### WITHOUT JNI active
# export PERL_INLINE_JAVA_DEBUG=4
# perl -Mblib t/12_2_perl_natives.t
Using /opt/Inline-Java-0.45/blib
Note: PerlNatives is still experimental and errors here can safely
be ignored if you don't plan on using this feature. However, the
author would appreciate if errors encountered here were reported
to the mailing list (inline at perl.org) along with your hardware/OS
detail. Thank you.
[perl][1] validate done.
[perl][1] Starting load.
[perl][4] portable: ENV_VAR_PATH_SEP_CP for hpux is default ':'
[perl][4] portable: SUB_FIX_CLASSPATH => /opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaServer.jar for hpux is default '/opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaServer.jar'
[perl][2] classpath: /opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaServer.jar
[perl][1] starting JVM...
[perl][1] client/server mode
[perl][4] portable: GOT_NEXT_FREE_PORT for hpux is default '1'
Could not get next available port number, using port 7890 instead. Use the PORT configuration option to suppress this warning.
Error:
[perl][4] portable: EXE_EXTENSION for hpux is default ''
[perl][4] portable: SUB_FIX_CMD_QUOTES => "/opt/java1.4/bin/java" org.perl.inline.java.InlineJavaServer 4 7890 false false for hpux is default '"/opt/java1.4/bin/java" org.perl.inline.java.InlineJavaServer 4 7890 false false'
[perl][2] "/opt/java1.4/bin/java" org.perl.inline.java.InlineJavaServer 4 7890 false false
[perl][4] portable: DEV_NULL for hpux is default '/dev/null'
[perl][4] portable: GOT_ALARM for hpux is default 'define'
[perl][2] classpath:
[perl][4] portable: SUB_FIX_CLASSPATH => /opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaUser.jar for hpux is default '/opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaUser.jar'
[perl][2] adding to classpath: '/opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaUser.jar'
[perl][3] packet sent is add_classpath 47.111.112.116.47.73.110.108.105.110.101.45.74.97.118.97.45.48.46.52.53.47.98.108.105.98.47.108.105.98.47.73.110.108.105.110.101.47.74.97.118.97.47.73.110.108.105.110.101.74.97.118.97.85.115.101.114.46.106.97.114
[java][3] packet recv is add_classpath 47.111.112.116.47.73.110.108.105.110.101.45.74.97.118.97.45.48.46.52.53.47.98.108.105.98.47.108.105.98.47.73.110.108.105.110.101.47.74.97.118.97.47.73.110.108.105.110.101.74.97.118.97.85.115.101.114.46.106.97.114
[java][2] added file:/opt/Inline-Java-0.45/blib/lib/Inline/Java/InlineJavaUser.jar to classpath
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][3] getting server type
[perl][3] packet sent is server_type
[java][3] packet recv is server_type
[java][4] class java.lang.String is primitive string
[java][3] packet sent is ok scalar:112.114.105.118.97.116.101
[perl][3] packet recv is ok scalar:112.114.105.118.97.116.101
[perl][4] destroying Inline::Java::Protocol
[perl][4] portable: ENV_VAR_PATH_SEP_CP for hpux is default ':'
[perl][2] classpath candidate '' scraped
[perl][4] portable: SUB_FIX_CLASSPATH => /opt/Inline-Java-0.45/_Inline_test/lib/auto/_12_2_perl_natives_t_9e54 for hpux is default '/opt/Inline-Java-0.45/_Inline_test/lib/auto/_12_2_perl_natives_t_9e54'
[perl][2] adding to classpath: '/opt/Inline-Java-0.45/_Inline_test/lib/auto/_12_2_perl_natives_t_9e54'
[perl][3] packet sent is add_classpath 47.111.112.116.47.73.110.108.105.110.101.45.74.97.118.97.45.48.46.52.53.47.95.73.110.108.105.110.101.95.116.101.115.116.47.108.105.98.47.97.117.116.111.47.95.49.50.95.50.95.112.101.114.108.95.110.97.116.105.118.101.115.95.116.95.57.101.53.52
[java][3] packet recv is add_classpath 47.111.112.116.47.73.110.108.105.110.101.45.74.97.118.97.45.48.46.52.53.47.95.73.110.108.105.110.101.95.116.101.115.116.47.108.105.98.47.97.117.116.111.47.95.49.50.95.50.95.112.101.114.108.95.110.97.116.105.118.101.115.95.116.95.57.101.53.52
[java][2] added file:/opt/Inline-Java-0.45/_Inline_test/lib/auto/_12_2_perl_natives_t_9e54/ to classpath
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][3] Inline::Java object id is 0
[perl][1] using jdat cache
[perl][3] perl doesn't know about 't121' ('main::t121')
[perl][2] creating object in java (main::t121):
[perl][3] perl doesn't know about 't1212' ('main::t1212')
[perl][2] creating object in java (main::t1212):
[perl][1] load done.
[perl][4] destroying Inline::Java::Protocol
[perl][3] matching arguments to init()
[perl][3] match successful: score is 0
[perl][3] perfect match found, aborting search
[perl][3] calling object(0).init()
[perl][3] packet sent is call_method 0 t121 init ()
[java][3] packet recv is call_method 0 t121 init ()
[java][4] class t121 is reference
[java][3] found a init method
[java][3] () = ()?
[java][3] has matching signature ()
[java][1] loading InlineJavaUserClassLink via InlineJavaUserClassLoader
[java][2] loading shared library /opt/Inline-Java-0.45/blib/arch/auto/Inline/Java/Natives/Natives.sl
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
1..5
[perl][3] matching arguments to init()
[perl][3] match successful: score is 0
[perl][3] perfect match found, aborting search
[perl][3] calling object(0).init()
[perl][3] packet sent is call_method 0 t121 init ()
[java][3] packet recv is call_method 0 t121 init ()
[java][4] class t121 is reference
[java][3] method was cached
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][3] matching arguments to new()
[perl][3] match successful: score is 0
[perl][3] perfect match found, aborting search
[perl][3] creating object new t121()
[perl][3] packet sent is create_object t121 ()
[java][3] packet recv is create_object t121 ()
[java][4] class t121 is reference
[java][3] found a t121 constructor
[java][3] () = ()?
[java][3] has matching signature ()
[java][3] registering natives for class t121
[java][3] registering native method array for class t121
[java][3] signature is ([I[Ljava/lang/String;)Ljava/lang/String;
[java][3] format is LLL
[java][3] registering native method types for class t121
[java][3] signature is (BSIJFDZCLjava/lang/String;)Ljava/lang/String;
[java][3] format is LBSIJFDZCL
[java][3] registering native method callback for class t121
[java][3] signature is ()Ljava/lang/String;
[java][3] format is L
[java][3] packet sent is ok object:0:1:t121
[perl][3] packet recv is ok object:0:1:t121
[perl][3] matching arguments to types_stub(byte, short, int, long, float, double, boolean, char, java.lang.String)
[perl][4] min = -128, max = 127, val = 1
[perl][4] min = -32768, max = 32767, val = 2
[perl][4] min = -2147483648, max = 2147483647, val = 3
[perl][4] min = -2147483648, max = 2147483647, val = 4
[perl][4] min = -3.4028235e+38, max = 3.4028235e+38, val = 5
[perl][4] min = -3.4028235e+38, max = 3.4028235e+38, val = 6
[perl][3] match successful: score is 41
[perl][3] calling object(1).types_stub(1, 2, 3, 4, 5, 6, 1, 2, 1000)
[perl][3] packet sent is call_method 1 t121 types_stub (byte,short,int,long,float,double,boolean,char,java.lang.String) scalar:49 scalar:50 scalar:51 scalar:52 scalar:53 scalar:54 scalar:49 scalar:50 scalar:49.48.48.48
[java][3] packet recv is call_method 1 t121 types_stub (byte,short,int,long,float,double,boolean,char,java.lang.String) scalar:49 scalar:50 scalar:51 scalar:52 scalar:53 scalar:54 scalar:49 scalar:50 scalar:49.48.48.48
[java][4] class t121 is reference
[java][3] found a types_stub method
[java][3] (byte,short,int,long,float,double,boolean,char,java.lang.String) = (byte,short,int,long,float,double,boolean,char,java.lang.String)?
[java][3] has matching signature (byte,short,int,long,float,double,boolean,char,java.lang.String)
[java][4] arg 0 of signature is byte
[java][4] class byte is primitive numeric
[java][4] args is scalar -> forcing to byte
[java][4] result is 1
[java][4] arg 1 of signature is short
[java][4] class short is primitive numeric
[java][4] args is scalar -> forcing to short
[java][4] result is 2
[java][4] arg 2 of signature is int
[java][4] class int is primitive numeric
[java][4] args is scalar -> forcing to int
[java][4] result is 3
[java][4] arg 3 of signature is long
[java][4] class long is primitive numeric
[java][4] args is scalar -> forcing to long
[java][4] result is 4
[java][4] arg 4 of signature is float
[java][4] class float is primitive numeric
[java][4] args is scalar -> forcing to float
[java][4] result is 5.0
[java][4] arg 5 of signature is double
[java][4] class double is primitive numeric
[java][4] args is scalar -> forcing to double
[java][4] result is 6.0
[java][4] arg 6 of signature is boolean
[java][4] class boolean is primitive bool
[java][4] args is scalar -> forcing to bool
[java][4] result is true
[java][4] arg 7 of signature is char
[java][4] class char is primitive char
[java][4] args is scalar -> forcing to char
[java][4] result is 2
[java][4] arg 8 of signature is java.lang.String
[java][4] class java.lang.String is primitive string
[java][4] args is scalar -> forcing to java.lang.String
[java][4] result is 1000
[java][3] entering LookupMethod
[java][3] entering GetNativeCaller
[java][3] exiting GetNativeCaller
[java][3] exiting LookupMethod
[java][3] entering InvokePerlMethod
[java][3] entering GetNativeCaller
[java][3] exiting GetNativeCaller
[java][3] InvokePerlMethod argument 0 = t121 at 117a8bd
[java][3] InvokePerlMethod argument 1 = 0
[java][3] InvokePerlMethod argument 2 = 0
[java][3] InvokePerlMethod argument 3 = 3
[java][3] InvokePerlMethod argument 4 = 4
[java][3] InvokePerlMethod argument 5 = 5.0
[java][3] InvokePerlMethod argument 6 = 6.0
[java][3] InvokePerlMethod argument 7 = false
[java][3] InvokePerlMethod argument 8 =
[java][3] InvokePerlMethod argument 9 = 1000
[java][3] exiting InvokePerlMethod
[java][4] class java.lang.Byte is primitive numeric
[java][4] class java.lang.Short is primitive numeric
[java][4] class java.lang.Integer is primitive numeric
[java][4] class java.lang.Long is primitive numeric
[java][4] class java.lang.Float is primitive numeric
[java][4] class java.lang.Double is primitive numeric
[java][4] class java.lang.Boolean is primitive bool
[java][4] class java.lang.Character is primitive char
[java][4] class java.lang.String is primitive string
[java][2] callback command: callback ::t121 types null object:0:2:t121 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48
[java][3] packet sent (callback) is callback ::t121 types null object:0:2:t121 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48
[perl][3] packet recv is callback ::t121 types null object:0:2:t121 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48
[perl][3] checking if stub is array...
[perl][3] perl knows about 't121' ('main::t121')
[perl][2] creating object in java (main::t121):
[perl][3] returning stub...
[perl][2] processing callback main::t121::types(t121=HASH(0x4053f8e0), 0, 0, 3, 4, 5.0, 6.0, 0, , 1000)
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (main::t121):
[perl][3] deleting object t121=HASH(0x4056abf8) 2 (t121)
[perl][3] packet sent is delete_object 2
[java][3] packet recv (callback) is delete_object 2
[java][3] packet is not callback response: delete_object 2
[java][3] packet recv is delete_object 2
[java][3] packet sent is ok undef:
[java][3] packet sent (callback) is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Protocol
[perl][3] packet sent is callback false scalar:49.48.49.56
[java][3] packet recv (callback) is callback false scalar:49.48.49.56
[java][4] class java.lang.Object is reference
[java][4] class java.lang.String is primitive string
[java][3] packet sent is ok scalar:49.48.49.56
[perl][3] packet recv is ok scalar:49.48.49.56
not ok 1
# Test 1 got: '1018' (t/12_2_perl_natives.t at line 44)
# Expected: '1024'
[perl][3] matching arguments to array_stub([I, [Ljava.lang.String;)
[perl][4] min = -2147483648, max = 2147483647, val = 34
[perl][4] min = -2147483648, max = 2147483647, val = 56
[perl][4] array is [2]
[perl][4] array has 2 declared cells
[perl][4] array should have 2 declared cells
[perl][3] creating object new [I(34, 56)
[perl][3] packet sent is create_object [I (2) scalar:51.52 scalar:53.54
[java][3] packet recv is create_object [I (2) scalar:51.52 scalar:53.54
[java][4] class [I is reference
[java][4] class [I is array
[java][4] array elements: int
[java][4] array dimension: 2
[java][4] class int is primitive numeric
[java][4] args is scalar -> forcing to int
[java][4] result is 34
[java][4] setting array element 0 to 34
[java][4] class int is primitive numeric
[java][4] args is scalar -> forcing to int
[java][4] result is 56
[java][4] setting array element 1 to 56
[java][3] packet sent is ok object:0:3:[I
[perl][3] packet recv is ok object:0:3:[I
[perl][3] checking if [I is a [I
[perl][3] packet sent is isa [I [I
[java][3] packet recv is isa [I [I
[java][4] checking if [I extends [I
[java][4] class java.lang.Integer is primitive numeric
[java][3] packet sent is ok scalar:48
[perl][3] packet recv is ok scalar:48
[perl][3] Inline::Java::Array=ARRAY(0x40147504) is a [I
[perl][4] array is [2]
[perl][4] array has 2 declared cells
[perl][4] array should have 2 declared cells
[perl][3] creating object new [Ljava.lang.String;(toto, 789)
[perl][3] packet sent is create_object [Ljava.lang.String; (2) scalar:116.111.116.111 scalar:55.56.57
[java][3] packet recv is create_object [Ljava.lang.String; (2) scalar:116.111.116.111 scalar:55.56.57
[java][4] class [Ljava.lang.String; is reference
[java][4] class [Ljava.lang.String; is array
[java][4] array elements: java.lang.String
[java][4] array dimension: 2
[java][4] class java.lang.String is primitive string
[java][4] args is scalar -> forcing to java.lang.String
[java][4] result is toto
[java][4] setting array element 0 to toto
[java][4] class java.lang.String is primitive string
[java][4] args is scalar -> forcing to java.lang.String
[java][4] result is 789
[java][4] setting array element 1 to 789
[java][3] packet sent is ok object:0:4:[Ljava.lang.String;
[perl][3] packet recv is ok object:0:4:[Ljava.lang.String;
[perl][3] checking if [Ljava.lang.String; is a [Ljava.lang.String;
[perl][3] packet sent is isa [Ljava.lang.String; [Ljava.lang.String;
[java][3] packet recv is isa [Ljava.lang.String; [Ljava.lang.String;
[java][4] checking if [Ljava.lang.String; extends [Ljava.lang.String;
[java][4] class java.lang.Integer is primitive numeric
[java][3] packet sent is ok scalar:48
[perl][3] packet recv is ok scalar:48
[perl][3] Inline::Java::Array=ARRAY(0x405b203c) is a [Ljava.lang.String;
[perl][3] match successful: score is 15
[perl][3] calling object(1).array_stub(Inline::Java::Array=ARRAY(0x40147504), Inline::Java::Array=ARRAY(0x405b203c))
[perl][3] packet sent is call_method 1 t121 array_stub ([I,[Ljava.lang.String;) object:[I:3 object:[Ljava.lang.String;:4
[java][3] packet recv is call_method 1 t121 array_stub ([I,[Ljava.lang.String;) object:[I:3 object:[Ljava.lang.String;:4
[java][4] class t121 is reference
[java][3] found a array_stub method
[java][3] ([I,[Ljava.lang.String;) = ([I,[Ljava.lang.String;)?
[java][3] has matching signature ([I,[Ljava.lang.String;)
[java][4] arg 0 of signature is [I
[java][4] class [I is reference
[java][4] class [I is reference
[java][4] checking if [I extends [I
[java][4] [I is a kind of [I
[java][4] arg 1 of signature is [Ljava.lang.String;
[java][4] class [Ljava.lang.String; is reference
[java][4] class [Ljava.lang.String; is reference
[java][4] checking if [Ljava.lang.String; extends [Ljava.lang.String;
[java][4] [Ljava.lang.String; is a kind of [Ljava.lang.String;
[java][3] entering LookupMethod
[java][3] entering GetNativeCaller
[java][3] exiting GetNativeCaller
[java][3] exiting LookupMethod
[java][3] entering InvokePerlMethod
[java][3] entering GetNativeCaller
[java][3] exiting GetNativeCaller
[java][3] InvokePerlMethod argument 0 = t121 at 117a8bd
[java][3] InvokePerlMethod argument 1 = [I at 10ef90c
[java][3] InvokePerlMethod argument 2 = [Ljava.lang.String;@a32b
[java][3] exiting InvokePerlMethod
[java][2] callback command: callback ::t121 array null object:0:5:t121 object:0:6:[I object:0:7:[Ljava.lang.String;
[java][3] packet sent (callback) is callback ::t121 array null object:0:5:t121 object:0:6:[I object:0:7:[Ljava.lang.String;
[perl][3] packet recv is callback ::t121 array null object:0:5:t121 object:0:6:[I object:0:7:[Ljava.lang.String;
[perl][3] checking if stub is array...
[perl][3] perl knows about 't121' ('main::t121')
[perl][2] creating object in java (main::t121):
[perl][3] returning stub...
[perl][3] checking if stub is array...
[perl][3] creating array object...
[perl][2] creating object in java (Inline::Java::Object):
[perl][3] array object created...
[perl][3] returning stub...
[perl][3] checking if stub is array...
[perl][3] creating array object...
[perl][2] creating object in java (Inline::Java::Object):
[perl][3] array object created...
[perl][3] returning stub...
[perl][2] processing callback main::t121::array(t121=HASH(0x405b2120), Inline::Java::Array=ARRAY(0x405b2150), Inline::Java::Array=ARRAY(0x4056b554))
[perl][3] calling object(6).getLength()
[perl][3] packet sent is call_method 6 [I getLength ()
[java][3] packet recv (callback) is call_method 6 [I getLength ()
[java][3] packet is not callback response: call_method 6 [I getLength ()
[java][3] packet recv is call_method 6 [I getLength ()
[java][4] class [I is reference
[java][4] class [I is array
[java][4] class java.lang.Integer is primitive numeric
[java][3] packet sent is ok scalar:50
[java][3] packet sent (callback) is ok scalar:50
[perl][3] packet recv is ok scalar:50
[perl][3] getting object(6)->{0}
[perl][3] packet sent is get_member 6 [I 0 java.lang.Object undef:
[java][3] packet recv (callback) is get_member 6 [I 0 java.lang.Object undef:
[java][3] packet is not callback response: get_member 6 [I 0 java.lang.Object undef:
[java][3] packet recv is get_member 6 [I 0 java.lang.Object undef:
[java][4] class [I is reference
[java][4] class [I is array
[java][4] class java.lang.Integer is primitive numeric
[java][3] packet sent is ok scalar:51.52
[java][3] packet sent (callback) is ok scalar:51.52
[perl][3] packet recv is ok scalar:51.52
[perl][3] calling object(7).getLength()
[perl][3] packet sent is call_method 7 [Ljava.lang.String; getLength ()
[java][3] packet recv (callback) is call_method 7 [Ljava.lang.String; getLength ()
[java][3] packet is not callback response: call_method 7 [Ljava.lang.String; getLength ()
[java][3] packet recv is call_method 7 [Ljava.lang.String; getLength ()
[java][4] class [Ljava.lang.String; is reference
[java][4] class [Ljava.lang.String; is array
[java][4] class java.lang.Integer is primitive numeric
[java][3] packet sent is ok scalar:50
[java][3] packet sent (callback) is ok scalar:50
[perl][3] packet recv is ok scalar:50
[perl][3] getting object(7)->{1}
[perl][3] packet sent is get_member 7 [Ljava.lang.String; 1 java.lang.Object undef:
[java][3] packet recv (callback) is get_member 7 [Ljava.lang.String; 1 java.lang.Object undef:
[java][3] packet is not callback response: get_member 7 [Ljava.lang.String; 1 java.lang.Object undef:
[java][3] packet recv is get_member 7 [Ljava.lang.String; 1 java.lang.Object undef:
[java][4] class [Ljava.lang.String; is reference
[java][4] class [Ljava.lang.String; is array
[java][4] class java.lang.String is primitive string
[java][3] packet sent is ok scalar:55.56.57
[java][3] packet sent (callback) is ok scalar:55.56.57
[perl][3] packet recv is ok scalar:55.56.57
[perl][4] destroying Inline::Java::Array
[perl][4] destroying Inline::Java::Array
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (main::t121):
[perl][3] deleting object t121=HASH(0x405b2ca0) 5 (t121)
[perl][3] packet sent is delete_object 5
[java][3] packet recv (callback) is delete_object 5
[java][3] packet is not callback response: delete_object 5
[java][3] packet recv is delete_object 5
[java][3] packet sent is ok undef:
[java][3] packet sent (callback) is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Array::Tie
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (Inline::Java::Object):
[perl][3] deleting object Inline::Java::Object=HASH(0x4056b518) 7 ([Ljava.lang.String;)
[perl][3] packet sent is delete_object 7
[java][3] packet recv (callback) is delete_object 7
[java][3] packet is not callback response: delete_object 7
[java][3] packet recv is delete_object 7
[java][3] packet sent is ok undef:
[java][3] packet sent (callback) is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Array::Tie
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (Inline::Java::Object):
[perl][3] deleting object Inline::Java::Object=HASH(0x4056b5cc) 6 ([I)
[perl][3] packet sent is delete_object 6
[java][3] packet recv (callback) is delete_object 6
[java][3] packet is not callback response: delete_object 6
[java][3] packet recv is delete_object 6
[java][3] packet sent is ok undef:
[java][3] packet sent (callback) is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Protocol
[perl][3] packet sent is callback false scalar:56.50.51
[java][3] packet recv (callback) is callback false scalar:56.50.51
[java][4] class java.lang.Object is reference
[java][4] class java.lang.String is primitive string
[java][3] packet sent is ok scalar:56.50.51
[perl][3] packet recv is ok scalar:56.50.51
ok 2
[perl][4] destroying Inline::Java::Array
[perl][4] destroying Inline::Java::Array::Tie
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (Inline::Java::Object):
[perl][3] deleting object Inline::Java::Object=HASH(0x405b2da8) 4 ([Ljava.lang.String;)
[perl][3] packet sent is delete_object 4
[java][3] packet recv is delete_object 4
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Array
[perl][4] destroying Inline::Java::Array::Tie
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (Inline::Java::Object):
[perl][3] deleting object Inline::Java::Object=HASH(0x405ab600) 3 ([I)
[perl][3] packet sent is delete_object 3
[java][3] packet recv is delete_object 3
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Protocol
[perl][3] matching arguments to new()
[perl][3] match successful: score is 0
[perl][3] perfect match found, aborting search
[perl][3] creating object new t1212()
[perl][3] packet sent is create_object t1212 ()
[java][3] packet recv is create_object t1212 ()
[java][4] class t1212 is reference
[java][3] found a t1212 constructor
[java][3] () = ()?
[java][3] has matching signature ()
[java][3] registering natives for class t1212
[java][3] packet sent is ok object:0:8:t1212
[perl][3] packet recv is ok object:0:8:t1212
[perl][3] matching arguments to types_stub(byte, short, int, long, float, double, boolean, char, java.lang.String)
[perl][4] min = -128, max = 127, val = 1
[perl][4] min = -32768, max = 32767, val = 2
[perl][4] min = -2147483648, max = 2147483647, val = 3
[perl][4] min = -2147483648, max = 2147483647, val = 4
[perl][4] min = -3.4028235e+38, max = 3.4028235e+38, val = 5
[perl][4] min = -3.4028235e+38, max = 3.4028235e+38, val = 6
[perl][3] match successful: score is 41
[perl][3] calling object(8).types_stub(1, 2, 3, 4, 5, 6, 1, 2, 1000)
[perl][3] packet sent is call_method 8 t1212 types_stub (byte,short,int,long,float,double,boolean,char,java.lang.String) scalar:49 scalar:50 scalar:51 scalar:52 scalar:53 scalar:54 scalar:49 scalar:50 scalar:49.48.48.48
[java][3] packet recv is call_method 8 t1212 types_stub (byte,short,int,long,float,double,boolean,char,java.lang.String) scalar:49 scalar:50 scalar:51 scalar:52 scalar:53 scalar:54 scalar:49 scalar:50 scalar:49.48.48.48
[java][4] class t1212 is reference
[java][3] found a types_stub method
[java][3] (byte,short,int,long,float,double,boolean,char,java.lang.String) = (byte,short,int,long,float,double,boolean,char,java.lang.String)?
[java][3] has matching signature (byte,short,int,long,float,double,boolean,char,java.lang.String)
[java][4] arg 0 of signature is byte
[java][4] class byte is primitive numeric
[java][4] args is scalar -> forcing to byte
[java][4] result is 1
[java][4] arg 1 of signature is short
[java][4] class short is primitive numeric
[java][4] args is scalar -> forcing to short
[java][4] result is 2
[java][4] arg 2 of signature is int
[java][4] class int is primitive numeric
[java][4] args is scalar -> forcing to int
[java][4] result is 3
[java][4] arg 3 of signature is long
[java][4] class long is primitive numeric
[java][4] args is scalar -> forcing to long
[java][4] result is 4
[java][4] arg 4 of signature is float
[java][4] class float is primitive numeric
[java][4] args is scalar -> forcing to float
[java][4] result is 5.0
[java][4] arg 5 of signature is double
[java][4] class double is primitive numeric
[java][4] args is scalar -> forcing to double
[java][4] result is 6.0
[java][4] arg 6 of signature is boolean
[java][4] class boolean is primitive bool
[java][4] args is scalar -> forcing to bool
[java][4] result is true
[java][4] arg 7 of signature is char
[java][4] class char is primitive char
[java][4] args is scalar -> forcing to char
[java][4] result is 2
[java][4] arg 8 of signature is java.lang.String
[java][4] class java.lang.String is primitive string
[java][4] args is scalar -> forcing to java.lang.String
[java][4] result is 1000
[java][3] entering LookupMethod
[java][3] entering GetNativeCaller
[java][3] exiting GetNativeCaller
[java][3] exiting LookupMethod
[java][3] entering InvokePerlMethod
[java][3] entering GetNativeCaller
[java][3] exiting GetNativeCaller
[java][3] InvokePerlMethod argument 0 = t1212 at 12152e6
[java][3] InvokePerlMethod argument 1 = 0
[java][3] InvokePerlMethod argument 2 = 0
[java][3] InvokePerlMethod argument 3 = 3
[java][3] InvokePerlMethod argument 4 = 4
[java][3] InvokePerlMethod argument 5 = 5.0
[java][3] InvokePerlMethod argument 6 = 6.0
[java][3] InvokePerlMethod argument 7 = false
[java][3] InvokePerlMethod argument 8 =
[java][3] InvokePerlMethod argument 9 = 1000
[java][3] exiting InvokePerlMethod
[java][4] class java.lang.Byte is primitive numeric
[java][4] class java.lang.Short is primitive numeric
[java][4] class java.lang.Integer is primitive numeric
[java][4] class java.lang.Long is primitive numeric
[java][4] class java.lang.Float is primitive numeric
[java][4] class java.lang.Double is primitive numeric
[java][4] class java.lang.Boolean is primitive bool
[java][4] class java.lang.Character is primitive char
[java][4] class java.lang.String is primitive string
[java][2] callback command: callback ::t121 types null object:0:9:t1212 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48
[java][3] packet sent (callback) is callback ::t121 types null object:0:9:t1212 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48
[perl][3] packet recv is callback ::t121 types null object:0:9:t1212 scalar:48 scalar:48 scalar:51 scalar:52 scalar:53.46.48 scalar:54.46.48 scalar:48 scalar:0 scalar:49.48.48.48
[perl][3] checking if stub is array...
[perl][3] perl knows about 't1212' ('main::t1212')
[perl][2] creating object in java (main::t1212):
[perl][3] returning stub...
[perl][2] processing callback main::t121::types(main::t1212=HASH(0x405b203c), 0, 0, 3, 4, 5.0, 6.0, 0, , 1000)
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (main::t1212):
[perl][3] deleting object main::t1212=HASH(0x40541d68) 9 (t1212)
[perl][3] packet sent is delete_object 9
[java][3] packet recv (callback) is delete_object 9
[java][3] packet is not callback response: delete_object 9
[java][3] packet recv is delete_object 9
[java][3] packet sent is ok undef:
[java][3] packet sent (callback) is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Protocol
[perl][3] packet sent is callback false scalar:49.48.49.56
[java][3] packet recv (callback) is callback false scalar:49.48.49.56
[java][4] class java.lang.Object is reference
[java][4] class java.lang.String is primitive string
[java][3] packet sent is ok scalar:49.48.49.56
[perl][3] packet recv is ok scalar:49.48.49.56
not ok 3
# Test 3 got: '1018' (t/12_2_perl_natives.t at line 48)
# Expected: '1024'
[perl][3] matching arguments to callback_stub()
[perl][3] match successful: score is 0
[perl][3] perfect match found, aborting search
[perl][3] calling object(1).callback_stub()
[perl][3] packet sent is call_method 1 t121 callback_stub ()
[java][3] packet recv is call_method 1 t121 callback_stub ()
[java][4] class t121 is reference
[java][3] found a callback_stub method
[java][3] () = ()?
[java][3] has matching signature ()
[java][3] entering LookupMethod
[java][3] entering GetNativeCaller
[java][3] exiting GetNativeCaller
[java][3] exiting LookupMethod
[java][3] entering InvokePerlMethod
[java][3] entering GetNativeCaller
[java][3] exiting GetNativeCaller
[java][3] InvokePerlMethod argument 0 = t121 at 117a8bd
[java][3] exiting InvokePerlMethod
[java][2] callback command: callback ::t121 callback null object:0:10:t121
[java][3] packet sent (callback) is callback ::t121 callback null object:0:10:t121
[perl][3] packet recv is callback ::t121 callback null object:0:10:t121
[perl][3] checking if stub is array...
[perl][3] perl knows about 't121' ('main::t121')
[perl][2] creating object in java (main::t121):
[perl][3] returning stub...
[perl][2] processing callback main::t121::callback(t121=HASH(0x4056b434))
[perl][3] matching arguments to get_name()
[perl][3] match successful: score is 0
[perl][3] perfect match found, aborting search
[perl][3] calling object(10).get_name()
[perl][3] packet sent is call_method 10 t121 get_name ()
[java][3] packet recv (callback) is call_method 10 t121 get_name ()
[java][3] packet is not callback response: call_method 10 t121 get_name ()
[java][3] packet recv is call_method 10 t121 get_name ()
[java][4] class t121 is reference
[java][3] found a get_name method
[java][3] () = ()?
[java][3] has matching signature ()
[java][4] class java.lang.String is primitive string
[java][3] packet sent is ok scalar:116.111.116.111
[java][3] packet sent (callback) is ok scalar:116.111.116.111
[perl][3] packet recv is ok scalar:116.111.116.111
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (main::t121):
[perl][3] deleting object t121=HASH(0x4056b548) 10 (t121)
[perl][3] packet sent is delete_object 10
[java][3] packet recv (callback) is delete_object 10
[java][3] packet is not callback response: delete_object 10
[java][3] packet recv is delete_object 10
[java][3] packet sent is ok undef:
[java][3] packet sent (callback) is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Protocol
[perl][3] packet sent is callback false scalar:116.111.116.111
[java][3] packet recv (callback) is callback false scalar:116.111.116.111
[java][4] class java.lang.Object is reference
[java][4] class java.lang.String is primitive string
[java][3] packet sent is ok scalar:116.111.116.111
[perl][3] packet recv is ok scalar:116.111.116.111
ok 4
[perl][3] getting object count
[perl][3] packet sent is obj_cnt
[java][3] packet recv is obj_cnt
[java][4] class java.lang.Integer is primitive numeric
[java][3] packet sent is ok scalar:50
[perl][3] packet recv is ok scalar:50
ok 5
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (main::t121):
[perl][3] deleting object t121=HASH(0x4053f964) 1 (t121)
[perl][3] packet sent is delete_object 1
[java][3] packet recv is delete_object 1
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Object
[perl][4] destroying Inline::Java::Object::Tie
[perl][2] destroying object in java (main::t1212):
[perl][3] deleting object main::t1212=HASH(0x4055a518) 8 (t1212)
[perl][3] packet sent is delete_object 8
[java][3] packet recv is delete_object 8
[java][3] packet sent is ok undef:
[perl][3] packet recv is ok undef:
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Object::Private
[perl][1] killed by natural death.
[perl][1] JVM owner exiting...
[perl][1] Sending 'die' message to JVM...
[perl][4] portable: GOT_SAFE_SIGNALS for hpux is default '1'
[perl][1] Sending 15 signal to JVM...
[perl][1] Sending 9 signal to JVM...
[perl][1] exiting with 0
[perl][4] destroying Inline::Java::Object::Tie
[perl][4] script marked as DONE, object destruction not propagated to Java
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Object::Tie
[perl][4] script marked as DONE, object destruction not propagated to Java
[perl][4] destroying Inline::Java::Protocol
[perl][4] destroying Inline::Java::Object::Private
[perl][4] destroying Inline::Java::Object::Tie
[perl][4] script marked as DONE, object destruction not propagated to Java
[perl][4] destroying Inline::Java::Object::Tie
[perl][4] script marked as DONE, object destruction not propagated to Java
# [java][3] packet recv is die
[java][1] received a request to die...
#
#
\ No newline at end of file
diff --git a/bug/p3.pl b/bug/p3.pl
new file mode 100755
index 0000000..47572b1
--- /dev/null
+++ b/bug/p3.pl
@@ -0,0 +1,164 @@
+use blib ;
+use vars qw($JARS);
+BEGIN {
+ $JARS = '/home/patrickl/perl/dev/Inline-Java/bug/piccolo-1.0/build' ;
+}
+use Inline Java => Config =>
+ CLASSPATH => "$JARS/piccolo.jar:$JARS/piccolox.jar:$JARS/examples.jar";
+use Inline::Java qw(study_classes) ;
+study_classes(['java.awt.Color',
+ 'edu.umd.cs.piccolo.nodes.PPath',
+ 'edu.umd.cs.piccolo.nodes.PText',
+ 'edu.umd.cs.piccolo.PCanvas',
+ 'edu.umd.cs.piccolo.PLayer',
+ 'java.awt.BasicStroke',
+ ]);
+use Inline Java => 'DATA';
+
+use Getopt::Long;
+my %OPTIONS;
+my $rc = GetOptions(\%OPTIONS,
+ 'input=s',
+ 'help',
+ );
+
+my $USAGE = <<"EOU";
+usage: $0 [required params] [options]
+ require params:
+ --input=file : gaps file to process
+
+ options:
+ --help : this message
+EOU
+
+die "Bad option\n$USAGE" unless $rc;
+die "$USAGE" if exists $OPTIONS{help};
+
+die "Must specify --input\n$USAGE"
+ unless exists $OPTIONS{input};
+
+# create the Java connection
+my $t = new Test();
+
+# set up some useful constants
+my $UNIT = 10;
+my $STROKE = java::awt::BasicStroke->new($UNIT);
+
+# read in the file data
+open(IN,$OPTIONS{input})
+ or die "Couldn't open $OPTIONS{input} for reading";
+while (<IN>) {
+ my ($ref_pos,$query_pos,$length) = m/^\s+(\d+)\s+(\d+)\s+(\d+)\s+/;
+ push(@gaps,[$ref_pos,$query_pos,$length]);
+}
+my $max_ref = $gaps[-1]->[0] + $gaps[-1]->[2];
+my $max_query = $gaps[-1]->[1] + $gaps[-1]->[2];
+
+# get access to some picolo internal objects
+my $c = $t->getCanvas();
+my $layer = $c->getLayer();
+
+# create rectangles for the landmarks
+for (my $i=0;$i<$max_ref;$i+=10_000) {
+ print "$i\n" ;
+ my $r = edu::umd::cs::piccolo::nodes::PPath->createRectangle($i-$UNIT,
+ $i-$UNIT,
+ 2*$UNIT,
+ 2*$UNIT);
+ $r->setPaint($java::awt::Color::RED);
+ $layer->addChild($r);
+
+# FIXME - this line causes the following error:
+# Method createPolyline for class edu.umd.cs.piccolo.nodes.PPath with signature ([F,[F) not found at (eval 10) line 1159
+my $text = edu::umd::cs::piccolo::nodes::PText->new("$i");
+$text->setOffset($i,$i);
+$layer->addChild($text);
+
+# FIXME - this line causes the following error:
+# Method createPolyline for class edu.umd.cs.piccolo.nodes.PPath with signature ([F,[F) not found at (eval 10) line 1159
+#
+# unless you comment out the foreach loop for drawing lines
+ my $text = $t->getText("$i");
+ $text->setOffset($i,$i);
+ $layer->addChild($text);
+}
+
+my $tag = 0;
+my $i = 0 ;
+foreach my $gap (@gaps) {
+ print "$i\n" ; $i++ ;
+
+ my $l = edu::umd::cs::piccolo::nodes::PPath->createPolyline([$gap->[0],$gap->[0]+$gap->[2]],
+ [$gap->[1],$gap->[1]+$gap->[2]],
+ );
+ $l->setStroke($STROKE);
+ if ($tag) {
+ $l->setStrokePaint($java::awt::Color::BLUE);
+ $tag = 0;
+ } else {
+ $l->setStrokePaint($java::awt::Color::GREEN);
+ $tag = 1;
+ }
+# FIXME - this line causes the following error:
+# Method createPolyline for class edu.umd.cs.piccolo.nodes.PPath with signature ([F,[F) not found at (eval 10) line 1159
+ $layer->addChild($l);
+
+# so instead I've created a bogus wrapper method to do the work
+# $t->addChild($l);
+
+}
+
+while (1) {
+ sleep 5;
+}
+print "Finished\n";
+
+__DATA__
+
+__Java__
+
+import java.awt.BasicStroke;
+import java.awt.Paint;
+// import java.awt.Color;
+// import java.awt.Graphics2D;
+// import edu.umd.cs.piccolo.activities.PActivity;
+// import edu.umd.cs.piccolo.util.PPaintContext;
+import edu.umd.cs.piccolo.PLayer;
+import edu.umd.cs.piccolo.PCanvas;
+import edu.umd.cs.piccolo.PNode;
+import edu.umd.cs.piccolox.PFrame;
+import edu.umd.cs.piccolo.nodes.PPath;
+import edu.umd.cs.piccolo.nodes.PText;
+
+class Test extends PFrame {
+
+ public Test() {
+ super();
+ }
+ public void addChild(PNode aNode) {
+ PLayer layer = getCanvas().getLayer();
+ layer.addChild(aNode);
+ }
+ public PText getText(String s) {
+ return new PText(s);
+ }
+ public void initialize() {
+ long currentTime = System.currentTimeMillis();
+ }
+}
+/*
+public class SemanticPath extends PPath {
+ public void paint(PPaintContext aPaintContext) {
+ double s = aPaintContext.getScale();
+ Graphics2D g2 = aPaintContext.getGraphics();
+
+ if (s < 1) {
+ g2.setPaint(Color.blue);
+ } else {
+ g2.setPaint(Color.orange);
+ }
+
+ g2.fill(getBoundsReference());
+ }
+}
+*/
diff --git a/bug/roger.pl b/bug/roger.pl
new file mode 100644
index 0000000..37fc338
--- /dev/null
+++ b/bug/roger.pl
@@ -0,0 +1,58 @@
+use warnings;
+
+use Inline (
+ Java => 'DATA',
+ DEBUG => 0,
+) ;
+
+package UPPER_MODULE::LOWER_MODULE;
+
+use Exporter;
+
+ at ISA = ('Exporter');
+ at EXPORT_OK = ();
+
+use strict;
+
+sub new{
+ my $proto = shift;
+ my $class = ref($proto) || $proto;
+ my $self = {};
+ bless($self,$class);
+ return($self);
+};
+
+package main ;
+
+
+my $obj = JavaTestClass->new();
+
+$obj->test();
+
+
+__DATA__
+
+__Java__
+
+
+import org.perl.inline.java.* ;
+
+class JavaTestClass extends InlineJavaPerlCaller {
+
+ public JavaTestClass() throws InlineJavaException
+ { System.out.println("JavaTestClass::Constructor");
+ try
+ {
+ // require("UPPER_MODULE::LOWER_MODULE");
+ InlineJavaPerlObject po = new InlineJavaPerlObject("UPPER_MODULE::LOWER_MODULE", new Object [] {} );
+ System.out.println("created InlineJavaPerlObject");
+ }
+ catch (InlineJavaPerlException pe) { pe.printStackTrace();}
+ catch (InlineJavaException e) { e.printStackTrace(); }
+ }
+
+ public void test() throws InlineJavaPerlException
+ {
+ System.out.println("JavaTestClass::test");
+ }
+}
diff --git a/bug/roger2.pl b/bug/roger2.pl
new file mode 100644
index 0000000..05ed4e1
--- /dev/null
+++ b/bug/roger2.pl
@@ -0,0 +1,60 @@
+#!/usr/bin/perl -w
+
+use warnings;
+
+use Inline (
+ Java => 'DATA',
+ DEBUG => 0,
+) ;
+
+my $obj = JavaTestClass->new();
+
+$obj->test();
+
+#------------------------------------------------------------------------
+
+package MODULE;
+
+use Exporter;
+
+ at ISA = ('Exporter');
+ at EXPORT_OK = ();
+
+use strict;
+
+sub new{
+ my $proto = shift;
+ my $class = ref($proto) || $proto;
+ my $self = {};
+ bless($self,$class);
+ return($self);
+};
+
+1;
+
+package main ;
+__DATA__
+
+__Java__
+
+
+import org.perl.inline.java.* ;
+
+class JavaTestClass extends InlineJavaPerlCaller {
+
+ public JavaTestClass() throws InlineJavaException
+ { System.out.println("JavaTestClass::Constructor"); }
+
+ public void test() throws InlineJavaPerlException
+ {
+ System.out.println("JavaTestClass::test");
+ try
+ {
+ // require("MODULE");
+ InlineJavaPerlObject po = new InlineJavaPerlObject("MODULE", null );
+ System.out.println("created InlineJavaPerlObject");
+ } catch (InlineJavaException e) { e.printStackTrace(); }
+
+ }
+}
+
diff --git a/bug/sg.pl b/bug/sg.pl
new file mode 100644
index 0000000..9b6f373
--- /dev/null
+++ b/bug/sg.pl
@@ -0,0 +1,11 @@
+use Inline Java => 'bug/Foo.java' ;
+
+eval{
+ Foo->new->test_a();
+ Foo->new->test_b();
+} ;
+if (Inline::Java::caught("javax.xml.parsers.FactoryConfigurationError")){
+ my $msg = $@->getMessage() ;
+ die($msg) ;
+}
+
diff --git a/bug/test.gaps b/bug/test.gaps
new file mode 100755
index 0000000..943ef4a
--- /dev/null
+++ b/bug/test.gaps
@@ -0,0 +1,42 @@
+ 1 1 466 none - -
+ 468 468 589 none 1 1
+ 1058 1058 919 none 1 1
+ 1978 1978 369 none 1 1
+ 2348 2348 184 none 1 1
+ 2533 2533 1218 none 1 1
+ 3752 3752 261 none 1 1
+ 4014 4014 466 none 1 1
+ 4481 4481 1271 none 1 1
+ 5753 5753 653 none 1 1
+ 6407 6407 39 none 1 1
+ 6447 6447 915 none 1 1
+ 7363 7363 222 none 1 1
+ 7586 7586 699 none 1 1
+ 8286 8286 455 none 1 1
+ 8742 8742 401 none 1 1
+ 9144 9144 73 none 1 1
+ 9218 9218 86 none 1 1
+ 9305 9305 1422 none 1 1
+ 10728 10728 1151 none 1 1
+ 11880 11880 1317 none 1 1
+ 13198 13198 36 none 1 1
+ 13234 13235 225 -5 0 1
+ 13460 13461 940 none 1 1
+ 14401 14402 383 none 1 1
+ 14785 14786 331 none 1 1
+ 15117 15118 2739 none 1 1
+ 17857 17858 3937 none 1 1
+ 21795 21796 23 none 1 1
+ 21819 21820 444 none 1 1
+ 22264 22265 909 none 1 1
+ 23174 23175 539 none 1 1
+ 23714 23715 579 none 1 1
+ 24294 24295 239 none 1 1
+ 24534 24535 144 none 1 1
+ 24679 24680 41 none 1 1
+ 24720 24739 41 -22 0 18
+ 24762 24781 525 none 1 1
+ 25288 25307 746 none 1 1
+ 26035 26054 905 none 1 1
+ 26941 26960 509 none 1 1
+ 27451 27470 1467 none 1 1
diff --git a/bug/test.pl b/bug/test.pl
new file mode 100644
index 0000000..1d9d673
--- /dev/null
+++ b/bug/test.pl
@@ -0,0 +1,18 @@
+BEGIN {
+ $main::CNOTE_HOME = "/bla/bla/bla"
+}
+
+use Inline (Java => 'DATA',
+ PORT => 4500,
+ EXTRA_JAVA_ARGS => "-Xmx196m -DCNOTE_HOME=$main::CNOTE_HOME"
+);
+
+print test->get_prop("CNOTE_HOME"), "\n" ;
+
+__END__
+__Java__
+class test {
+ public static String get_prop(String p){
+ return System.getProperty(p) ;
+ }
+}
diff --git a/bug/toto.java b/bug/toto.java
new file mode 100644
index 0000000..1621310
--- /dev/null
+++ b/bug/toto.java
@@ -0,0 +1,14 @@
+import java.util.* ;
+
+class toto {
+ static public void main(String args[]){
+ HashMap h = new HashMap() ;
+
+ h.put("key", "value") ;
+ Object valArr[] = h.entrySet().toArray() ;
+
+ for (int i = 0 ; i < valArr.length ; i++){
+ System.out.println(valArr[i]) ;
+ }
+ }
+}
diff --git a/bug/toto.pl b/bug/toto.pl
new file mode 100755
index 0000000..106e375
--- /dev/null
+++ b/bug/toto.pl
@@ -0,0 +1,18 @@
+use Inline (
+ Java => 'DATA',
+ STUDY => ['java.util.HashMap'],
+ AUTOSTUDY => 1,
+) ;
+
+my $o = test->f() ;
+print $o->[0] ;
+
+
+__END__
+__Java__
+
+class test {
+ static public Object f(){
+ return new String [] {"allo"} ;
+ }
+}
--
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