[libinline-java-perl] 279/398: 0.46
Jonas Smedegaard
dr at jones.dk
Thu Feb 26 11:43:14 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 9710e499f143eda73fff534039e35da3d6aecb52
Author: patrick_leb <>
Date: Fri Feb 6 20:33:32 2004 +0000
0.46
---
CHANGES | 3 +++
Java.pm | 2 +-
Java/Array.pm | 2 +-
Java/Callback.pm | 2 +-
Java/Class.pm | 2 +-
Java/JNI.pm | 2 +-
Java/JNI.xs | 1 -
Java/JVM.pm | 2 +-
Java/Natives/Natives.pm | 2 +-
Java/Natives/Natives.xs | 33 ++++++++++++++++++++++++++++++---
Java/Object.pm | 2 +-
Java/Portable.pm | 2 +-
Java/Protocol.pm | 2 +-
MANIFEST | 1 +
README | 3 +++
15 files changed, 47 insertions(+), 14 deletions(-)
diff --git a/CHANGES b/CHANGES
index 46664bb..36a9b93 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,5 +1,8 @@
Revision history for Perl extension Inline::Java
------------------------------------------------
+0.46 Web Feb 04 20:00:00 EST 2004
+ - Fixed Natives.xs to work with ExtUtils::ParseXS
+
0.45 Fri Jan 30 20:00:00 EST 2004
- Fixed Makefile.PL arguments that were getting lost
- Fixed deprecated require call
diff --git a/Java.pm b/Java.pm
index c64667c..9606037 100644
--- a/Java.pm
+++ b/Java.pm
@@ -8,7 +8,7 @@ package Inline::Java ;
use strict ;
require 5.006 ;
-$Inline::Java::VERSION = '0.45' ;
+$Inline::Java::VERSION = '0.46' ;
# DEBUG is set via the DEBUG config
diff --git a/Java/Array.pm b/Java/Array.pm
index cdb840d..1a206d3 100644
--- a/Java/Array.pm
+++ b/Java/Array.pm
@@ -4,7 +4,7 @@ package Inline::Java::Array ;
use strict ;
use Carp ;
-$Inline::Java::Array::VERSION = '0.44' ;
+$Inline::Java::Array::VERSION = '0.46' ;
# Here we store as keys the knots and as values our blessed objects
my $OBJECTS = {} ;
diff --git a/Java/Callback.pm b/Java/Callback.pm
index a0fa57f..a1cf3c7 100644
--- a/Java/Callback.pm
+++ b/Java/Callback.pm
@@ -3,7 +3,7 @@ package Inline::Java::Callback ;
use strict ;
use Carp ;
-$Inline::Java::Callback::VERSION = '0.44' ;
+$Inline::Java::Callback::VERSION = '0.46' ;
$Inline::Java::Callback::OBJECT_HOOK = undef ;
diff --git a/Java/Class.pm b/Java/Class.pm
index 82e936d..29013ce 100644
--- a/Java/Class.pm
+++ b/Java/Class.pm
@@ -3,7 +3,7 @@ package Inline::Java::Class ;
use strict ;
use Carp ;
-$Inline::Java::Class::VERSION = '0.44' ;
+$Inline::Java::Class::VERSION = '0.46' ;
$Inline::Java::Class::MAX_SCORE = 10 ;
diff --git a/Java/JNI.pm b/Java/JNI.pm
index 76477a0..d240cc6 100644
--- a/Java/JNI.pm
+++ b/Java/JNI.pm
@@ -4,7 +4,7 @@ package Inline::Java::JNI ;
use strict ;
-$Inline::Java::JNI::VERSION = '0.44' ;
+$Inline::Java::JNI::VERSION = '0.46' ;
use DynaLoader ;
use Carp ;
diff --git a/Java/JNI.xs b/Java/JNI.xs
index fbeee2d..d72d15d 100644
--- a/Java/JNI.xs
+++ b/Java/JNI.xs
@@ -1,7 +1,6 @@
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
-#include "stdarg.h"
/* Include the JNI header file */
diff --git a/Java/JVM.pm b/Java/JVM.pm
index bb23e9b..e176507 100644
--- a/Java/JVM.pm
+++ b/Java/JVM.pm
@@ -7,7 +7,7 @@ use IPC::Open3 ;
use IO::File ;
use IO::Socket ;
-$Inline::Java::JVM::VERSION = '0.44' ;
+$Inline::Java::JVM::VERSION = '0.46' ;
my %SIGS = () ;
diff --git a/Java/Natives/Natives.pm b/Java/Natives/Natives.pm
index 8430c0b..4f94325 100644
--- a/Java/Natives/Natives.pm
+++ b/Java/Natives/Natives.pm
@@ -2,6 +2,6 @@ package Inline::Java::Natives ;
use strict ;
-$Inline::Java::Natives::VERSION = '0.45' ;
+$Inline::Java::Natives::VERSION = '0.46' ;
1 ;
diff --git a/Java/Natives/Natives.xs b/Java/Natives/Natives.xs
index a4c119b..f759687 100644
--- a/Java/Natives/Natives.xs
+++ b/Java/Natives/Natives.xs
@@ -4,6 +4,7 @@
#include "stdarg.h"
+
/* Include the JNI header file */
#include "jni.h"
@@ -69,8 +70,6 @@ jobject create_primitive_object(JNIEnv *env, char f, char *cls_name, jvalue val)
jobject extract_va_arg(JNIEnv *env, va_list *list, char f){
jobject ret = NULL ;
jvalue val ;
- int fi ;
- jfloat *ff ;
/*
A bit of voodoo going on for J and F, but the rest I think is pretty
@@ -219,9 +218,37 @@ JNIEXPORT void JNICALL Java_org_perl_inline_java_InlineJavaPerlNatives_RegisterM
/*****************************************************************************/
+/*
+XS(boot_Inline__Java__Natives);
+XS(boot_Inline__Java__Natives)
+{
+ dXSARGS;
+
+ XS_VERSION_BOOTCHECK ;
+
+ XSRETURN_YES;
+}
+*/
+/*
+ xsubpp doesn't like it when we don't specify a MODULE=... PACKAGE=...
+ line. But doing this results in calling function from libperl and we
+ don't want that or else we will need to laod that to. So we simply let
+ xsubpp do it's substitutions and define macros the cancel out the effect.
+ Anyways that code will NEVER be called.
+*/
-void boot_Inline__Java__Natives(){
+void noop(){
}
+#define XS(n) void n()
+#define dXSARGS noop()
+#define XS_VERSION_BOOTCHECK noop()
+#define XSRETURN_YES noop()
+
+#define PERL_UNUSED_VAR(var) noop()
+
+MODULE = Inline::Java::Natives PACKAGE = Inline::Java::Natives
+
+PROTOTYPES: DISABLE
diff --git a/Java/Object.pm b/Java/Object.pm
index a42f008..f889267 100644
--- a/Java/Object.pm
+++ b/Java/Object.pm
@@ -5,7 +5,7 @@ use strict ;
use Inline::Java::Protocol ;
use Carp ;
-$Inline::Java::Object::VERSION = '0.44' ;
+$Inline::Java::Object::VERSION = '0.46' ;
# Here we store as keys the knots and as values our blessed private objects
my $PRIVATES = {} ;
diff --git a/Java/Portable.pm b/Java/Portable.pm
index 89cf4b9..e4520b3 100644
--- a/Java/Portable.pm
+++ b/Java/Portable.pm
@@ -10,7 +10,7 @@ use Config ;
use File::Find ;
use File::Spec ;
-$Inline::Java::Portable::VERSION = '0.44' ;
+$Inline::Java::Portable::VERSION = '0.46' ;
# Here is some code to figure out if we are running on command.com
# shell under Windows.
diff --git a/Java/Protocol.pm b/Java/Protocol.pm
index 2317858..8f94f3b 100644
--- a/Java/Protocol.pm
+++ b/Java/Protocol.pm
@@ -5,7 +5,7 @@ use Inline::Java::Object ;
use Inline::Java::Array ;
use Carp ;
-$Inline::Java::Protocol::VERSION = '0.44' ;
+$Inline::Java::Protocol::VERSION = '0.46' ;
my %CLASSPATH_ENTRIES = () ;
diff --git a/MANIFEST b/MANIFEST
index e456382..cdc7a12 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -61,3 +61,4 @@ t/types.class
t/no_const.java
t/no_const.class
t/shared.java
+META.yml Module meta-data (added by MakeMaker)
diff --git a/README b/README
index 0dbbc71..fa6fd80 100644
--- a/README
+++ b/README
@@ -66,6 +66,9 @@ second time you test loading of an already built module.
-------------------------------------------------------------------------------
FEATURES:
+Inline::Java version 0.46 is a minor upgrade that includes:
++ Fixed Natives.xs to work with ExtUtils::ParseXS
+
Inline::Java version 0.45 is a major upgrade that includes:
+ Fixed Makefile.PL arguments that were getting lost
+ Fixed deprecated require call
--
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