The latest JPL from the anoncvs.

p4raw-id: //depot/perl@11015

3 files changed, 3551 insertions, 3553 deletions

diff --git a/jpl/JNI/JNI.pm b/jpl/JNI/JNI.pm
index c91ae9c998..6ef65e275a 100644
--- a/jpl/JNI/JNI.pm
+++ b/jpl/JNI/JNI.pm
@@ -198,7 +198,7 @@ sub AUTOLOAD {
     ($constname = $AUTOLOAD) =~ s/.*:://;
     my $val = constant($constname, @_ ? $_[0] : 0);
     if ($! != 0) {
-	if ($! =~ /Invalid/ || $!{EINVAL}) {
+	if ($! =~ /Invalid/) {
 	    $AutoLoader::AUTOLOAD = $AUTOLOAD;
 	    goto &AutoLoader::AUTOLOAD;
 	}
@@ -318,8 +318,6 @@ JNI - Perl encapsulation of the Java Native Interface
 
 =head1 DESCRIPTION
 
-This module provides an encapsulation in Perl of the Java Native Interface.
-
 =head1 Exported constants
 
   JNI_ABORT
diff --git a/jpl/JNI/JNI.xs b/jpl/JNI/JNI.xs
index f4826954e7..ea67a2e4b5 100644
--- a/jpl/JNI/JNI.xs
+++ b/jpl/JNI/JNI.xs
@@ -1,3253 +1,3253 @@
-/*
- * Copyright 1997, O'Reilly & Associate, Inc.
- *
- * This package may be copied under the same terms as Perl itself.
- */
-
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-
-#include <stdio.h>
-#include <jni.h>
-
-#ifndef PERL_VERSION
-#  include <patchlevel.h>
-#  define PERL_REVISION		5
-#  define PERL_VERSION		PATCHLEVEL
-#  define PERL_SUBVERSION	SUBVERSION
-#endif
-
-#if PERL_REVISION == 5 && (PERL_VERSION < 4 || (PERL_VERSION == 4 && PERL_SUBVERSION <= 75))
-#  define PL_na		na
-#  define PL_sv_no	sv_no
-#  define PL_sv_undef	sv_undef
-#  define PL_dowarn	dowarn
-#endif
-
-#ifndef newSVpvn
-#  define newSVpvn(a,b)	newSVpv(a,b)
-#endif
-
-#ifndef pTHX
-#  define pTHX		void
-#  define pTHX_
-#  define aTHX
-#  define aTHX_
-#  define dTHX		extern int JNI___notused
-#endif
-
-#ifndef WIN32
-#  include <dlfcn.h>
-#endif
-
-#ifdef EMBEDDEDPERL
-extern JNIEnv* jplcurenv;
-extern int jpldebug;
-#else
-JNIEnv* jplcurenv;
-int jpldebug = 1;
-#endif
-
-#define SysRet jint
-
-#ifdef WIN32
-static void JNICALL call_my_exit(jint status)
-{
-    my_exit(status);
-}
-#else
-static void call_my_exit(jint status)
-{
-    my_exit(status);
-}
-#endif
-
-jvalue*
-makeargs(char *sig, SV** svp, int items)
-{
-    jvalue* jv = (jvalue*)safemalloc(sizeof(jvalue) * items);
-    int ix = 0;
-    char *s = sig;
-    JNIEnv* env = jplcurenv;
-    char *start;
-    STRLEN n_a;
-
-    if (jpldebug)
-	fprintf(stderr, "sig = %s, items = %d\n", sig, items);
-    if (*s++ != '(')
-	goto cleanup;
-
-    while (items--) {
-	SV *sv = *svp++;
-	start = s;
-	switch (*s++) {
-	case 'Z':
-	    jv[ix++].z = (jboolean)(SvIV(sv) != 0);
-	    break;
-	case 'B':
-	    jv[ix++].b = (jbyte)SvIV(sv);
-	    break;
-	case 'C':
-	    jv[ix++].c = (jchar)SvIV(sv);
-	    break;
-	case 'S':
-	    jv[ix++].s = (jshort)SvIV(sv);
-	    break;
-	case 'I':
-	    jv[ix++].i = (jint)SvIV(sv);
-	    break;
-	case 'J':
-	    jv[ix++].j = (jlong)SvNV(sv);
-	    break;
-	case 'F':
-	    jv[ix++].f = (jfloat)SvNV(sv);
-	    break;
-	case 'D':
-	    jv[ix++].d = (jdouble)SvNV(sv);
-	    break;
-	case '[':
-	    switch (*s++) {
-	    case 'Z':
-		if (SvROK(sv)) {
-		    SV* rv = (SV*)SvRV(sv);
-		    if (SvOBJECT(rv))
-			jv[ix++].l = (jobject)(void*)SvIV(rv);
-		    else if (SvTYPE(rv) == SVt_PVAV) {
-			jsize len = av_len((AV*)rv) + 1;
-			jboolean* buf = (jboolean*)malloc(len * sizeof(jboolean));
-			int i;
-			SV** esv;
-
-			jbooleanArray ja = (*env)->NewBooleanArray(env, len);
-			for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++)
-			    buf[i] = (jboolean)SvIV(*esv);
-			(*env)->SetBooleanArrayRegion(env, ja, 0, len, buf);
-			free((void*)buf);
-			jv[ix++].l = (jobject)ja;
-		    }
-		    else
-			jv[ix++].l = (jobject)(void*)0;
-		}
-		else if (SvPOK(sv)) {
-		    jsize len = sv_len(sv) / sizeof(jboolean);
-
-		    jbooleanArray ja = (*env)->NewBooleanArray(env, len);
-		    (*env)->SetBooleanArrayRegion(env, ja, 0, len, (jboolean*)SvPV(sv,n_a));
-		    jv[ix++].l = (jobject)ja;
-		}
-		else
-		    jv[ix++].l = (jobject)(void*)0;
-		break;
-	    case 'B':
-		if (SvROK(sv)) {
-		    SV* rv = (SV*)SvRV(sv);
-		    if (SvOBJECT(rv))
-			jv[ix++].l = (jobject)(void*)SvIV(rv);
-		    else if (SvTYPE(rv) == SVt_PVAV) {
-			jsize len = av_len((AV*)rv) + 1;
-			jbyte* buf = (jbyte*)malloc(len * sizeof(jbyte));
-			int i;
-			SV** esv;
-
-			jbyteArray ja = (*env)->NewByteArray(env, len);
-			for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++)
-			    buf[i] = (jbyte)SvIV(*esv);
-			(*env)->SetByteArrayRegion(env, ja, 0, len, buf);
-			free((void*)buf);
-			jv[ix++].l = (jobject)ja;
-		    }
-		    else
-			jv[ix++].l = (jobject)(void*)0;
-		}
-		else if (SvPOK(sv)) {
-		    jsize len = sv_len(sv) / sizeof(jbyte);
-
-		    jbyteArray ja = (*env)->NewByteArray(env, len);
-		    (*env)->SetByteArrayRegion(env, ja, 0, len, (jbyte*)SvPV(sv,n_a));
-		    jv[ix++].l = (jobject)ja;
-		}
-		else
-		    jv[ix++].l = (jobject)(void*)0;
-		break;
-	    case 'C':
-		if (SvROK(sv)) {
-		    SV* rv = (SV*)SvRV(sv);
-		    if (SvOBJECT(rv))
-			jv[ix++].l = (jobject)(void*)SvIV(rv);
-		    else if (SvTYPE(rv) == SVt_PVAV) {
-			jsize len = av_len((AV*)rv) + 1;
-			jchar* buf = (jchar*)malloc(len * sizeof(jchar));
-			int i;
-			SV** esv;
-
-			jcharArray ja = (*env)->NewCharArray(env, len);
-			for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++)
-			    buf[i] = (jchar)SvIV(*esv);
-			(*env)->SetCharArrayRegion(env, ja, 0, len, buf);
-			free((void*)buf);
-			jv[ix++].l = (jobject)ja;
-		    }
-		    else
-			jv[ix++].l = (jobject)(void*)0;
-		}
-		else if (SvPOK(sv)) {
-		    jsize len = sv_len(sv) / sizeof(jchar);
-
-		    jcharArray ja = (*env)->NewCharArray(env, len);
-		    (*env)->SetCharArrayRegion(env, ja, 0, len, (jchar*)SvPV(sv,n_a));
-		    jv[ix++].l = (jobject)ja;
-		}
-		else
-		    jv[ix++].l = (jobject)(void*)0;
-		break;
-	    case 'S':
-		if (SvROK(sv)) {
-		    SV* rv = (SV*)SvRV(sv);
-		    if (SvOBJECT(rv))
-			jv[ix++].l = (jobject)(void*)SvIV(rv);
-		    else if (SvTYPE(rv) == SVt_PVAV) {
-			jsize len = av_len((AV*)rv) + 1;
-			jshort* buf = (jshort*)malloc(len * sizeof(jshort));
-			int i;
-			SV** esv;
-
-			jshortArray ja = (*env)->NewShortArray(env, len);
-			for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++)
-			    buf[i] = (jshort)SvIV(*esv);
-			(*env)->SetShortArrayRegion(env, ja, 0, len, buf);
-			free((void*)buf);
-			jv[ix++].l = (jobject)ja;
-		    }
-		    else
-			jv[ix++].l = (jobject)(void*)0;
-		}
-		else if (SvPOK(sv)) {
-		    jsize len = sv_len(sv) / sizeof(jshort);
-
-		    jshortArray ja = (*env)->NewShortArray(env, len);
-		    (*env)->SetShortArrayRegion(env, ja, 0, len, (jshort*)SvPV(sv,n_a));
-		    jv[ix++].l = (jobject)ja;
-		}
-		else
-		    jv[ix++].l = (jobject)(void*)0;
-		break;
-	    case 'I':
-		if (SvROK(sv)) {
-		    SV* rv = (SV*)SvRV(sv);
-		    if (SvOBJECT(rv))
-			jv[ix++].l = (jobject)(void*)SvIV(rv);
-		    else if (SvTYPE(rv) == SVt_PVAV) {
-			jsize len = av_len((AV*)rv) + 1;
-			jint* buf = (jint*)malloc(len * sizeof(jint));
-			int i;
-			SV** esv;
-
-			jintArray ja = (*env)->NewIntArray(env, len);
-			for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++)
-			    buf[i] = (jint)SvIV(*esv);
-			(*env)->SetIntArrayRegion(env, ja, 0, len, buf);
-			free((void*)buf);
-			jv[ix++].l = (jobject)ja;
-		    }
-		    else
-			jv[ix++].l = (jobject)(void*)0;
-		}
-		else if (SvPOK(sv)) {
-		    jsize len = sv_len(sv) / sizeof(jint);
-
-		    jintArray ja = (*env)->NewIntArray(env, len);
-		    (*env)->SetIntArrayRegion(env, ja, 0, len, (jint*)SvPV(sv,n_a));
-		    jv[ix++].l = (jobject)ja;
-		}
-		else
-		    jv[ix++].l = (jobject)(void*)0;
-		break;
-	    case 'J':
-		if (SvROK(sv)) {
-		    SV* rv = (SV*)SvRV(sv);
-		    if (SvOBJECT(rv))
-			jv[ix++].l = (jobject)(void*)SvIV(rv);
-		    else if (SvTYPE(rv) == SVt_PVAV) {
-			jsize len = av_len((AV*)rv) + 1;
-			jlong* buf = (jlong*)malloc(len * sizeof(jlong));
-			int i;
-			SV** esv;
-
-			jlongArray ja = (*env)->NewLongArray(env, len);
-			for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++)
-			    buf[i] = (jlong)SvNV(*esv);
-			(*env)->SetLongArrayRegion(env, ja, 0, len, buf);
-			free((void*)buf);
-			jv[ix++].l = (jobject)ja;
-		    }
-		    else
-			jv[ix++].l = (jobject)(void*)0;
-		}
-		else if (SvPOK(sv)) {
-		    jsize len = sv_len(sv) / sizeof(jlong);
-
-		    jlongArray ja = (*env)->NewLongArray(env, len);
-		    (*env)->SetLongArrayRegion(env, ja, 0, len, (jlong*)SvPV(sv,n_a));
-		    jv[ix++].l = (jobject)ja;
-		}
-		else
-		    jv[ix++].l = (jobject)(void*)0;
-		break;
-	    case 'F':
-		if (SvROK(sv)) {
-		    SV* rv = (SV*)SvRV(sv);
-		    if (SvOBJECT(rv))
-			jv[ix++].l = (jobject)(void*)SvIV(rv);
-		    else if (SvTYPE(rv) == SVt_PVAV) {
-			jsize len = av_len((AV*)rv) + 1;
-			jfloat* buf = (jfloat*)malloc(len * sizeof(jfloat));
-			int i;
-			SV** esv;
-
-			jfloatArray ja = (*env)->NewFloatArray(env, len);
-			for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++)
-			    buf[i] = (jfloat)SvNV(*esv);
-			(*env)->SetFloatArrayRegion(env, ja, 0, len, buf);
-			free((void*)buf);
-			jv[ix++].l = (jobject)ja;
-		    }
-		    else
-			jv[ix++].l = (jobject)(void*)0;
-		}
-		else if (SvPOK(sv)) {
-		    jsize len = sv_len(sv) / sizeof(jfloat);
-
-		    jfloatArray ja = (*env)->NewFloatArray(env, len);
-		    (*env)->SetFloatArrayRegion(env, ja, 0, len, (jfloat*)SvPV(sv,n_a));
-		    jv[ix++].l = (jobject)ja;
-		}
-		else
-		    jv[ix++].l = (jobject)(void*)0;
-		break;
-	    case 'D':
-		if (SvROK(sv)) {
-		    SV* rv = (SV*)SvRV(sv);
-		    if (SvOBJECT(rv))
-			jv[ix++].l = (jobject)(void*)SvIV(rv);
-		    else if (SvTYPE(rv) == SVt_PVAV) {
-			jsize len = av_len((AV*)rv) + 1;
-			jdouble* buf = (jdouble*)malloc(len * sizeof(jdouble));
-			int i;
-			SV** esv;
-
-			jdoubleArray ja = (*env)->NewDoubleArray(env, len);
-			for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++)
-			    buf[i] = (jdouble)SvNV(*esv);
-			(*env)->SetDoubleArrayRegion(env, ja, 0, len, buf);
-			free((void*)buf);
-			jv[ix++].l = (jobject)ja;
-		    }
-		    else
-			jv[ix++].l = (jobject)(void*)0;
-		}
-		else if (SvPOK(sv)) {
-		    jsize len = sv_len(sv) / sizeof(jdouble);
-
-		    jdoubleArray ja = (*env)->NewDoubleArray(env, len);
-		    (*env)->SetDoubleArrayRegion(env, ja, 0, len, (jdouble*)SvPV(sv,n_a));
-		    jv[ix++].l = (jobject)ja;
-		}
-		else
-		    jv[ix++].l = (jobject)(void*)0;
-		break;
-	    case 'L':
-		while (*s != ';') s++;
-		s++;
-		if (strnEQ(start, "[Ljava/lang/String;", 19)) {
-		    if (SvROK(sv)) {
-			SV* rv = (SV*)SvRV(sv);
-			if (SvOBJECT(rv))
-			    jv[ix++].l = (jobject)(void*)SvIV(rv);
-			else if (SvTYPE(rv) == SVt_PVAV) {
-			    jsize len = av_len((AV*)rv) + 1;
-			    int i;
-			    SV** esv;
-			    static jclass jcl = 0;
-			    jobjectArray ja;
-
-			    if (!jcl)
-				jcl = (*env)->FindClass(env, "java/lang/String");
-			    ja = (*env)->NewObjectArray(env, len, jcl, 0);
-			    for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++) {
-				jobject str = (jobject)(*env)->NewStringUTF(env, SvPV(*esv,n_a));
-				(*env)->SetObjectArrayElement(env, ja, i, str);
-			    }
-			    jv[ix++].l = (jobject)ja;
-			}
-			else
-			    jv[ix++].l = (jobject)(void*)0;
-		    }
-		    else
-			jv[ix++].l = (jobject)(void*)0;
-		    break;
-		}
-		/* FALL THROUGH */
-	    default:
-		if (SvROK(sv)) {
-		    SV* rv = (SV*)SvRV(sv);
-		    if (SvOBJECT(rv))
-			jv[ix++].l = (jobject)(void*)SvIV(rv);
-		    else if (SvTYPE(rv) == SVt_PVAV) {
-			jsize len = av_len((AV*)rv) + 1;
-			int i;
-			SV** esv;
-		       static jclass jcl = 0;
-			jobjectArray ja;
-
-			if (!jcl)
-			    jcl = (*env)->FindClass(env, "java/lang/Object");
-			ja = (*env)->NewObjectArray(env, len, jcl, 0);
-			for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++) {
-			    if (SvROK(*esv) && (rv = SvRV(*esv)) && SvOBJECT(rv)) {
-				(*env)->SetObjectArrayElement(env, ja, i, (jobject)(void*)SvIV(rv));
-			    }
-			    else {
-				jobject str = (jobject)(*env)->NewStringUTF(env, SvPV(*esv,n_a));
-				(*env)->SetObjectArrayElement(env, ja, i, str);
-			    }
-			}
-			jv[ix++].l = (jobject)ja;
-		    }
-		    else
-			jv[ix++].l = (jobject)(void*)0;
-		}
-		else
-		    jv[ix++].l = (jobject)(void*)0;
-		break;
-	    }
-	    break;
-	case 'L':
-	    if (!SvROK(sv) || strnEQ(s, "java/lang/String;", 17)) {
-		s += 17;
-		jv[ix++].l = (jobject)(*env)->NewStringUTF(env, (char*) SvPV(sv,n_a));
-		break;
-	    }
-	    while (*s != ';') s++;
-	    s++;
-	    if (SvROK(sv)) {
-		SV* rv = SvRV(sv);
-		jv[ix++].l = (jobject)(void*)SvIV(rv);
-	    }
-	    break;
-	case ')':
-	    croak("too many arguments, signature: %s", sig);
-	    goto cleanup;
-	default:
-	    croak("panic: malformed signature: %s", s-1);
-	    goto cleanup;
-	}
-
-    }
-    if (*s != ')') {
-	croak("not enough arguments, signature: %s", sig);
-	goto cleanup;
-    }
-    return jv;
-
-cleanup:
-    safefree((char*)jv);
-    return 0;
-}
-
-static int
-not_here(char *s)
-{
-    croak("%s not implemented on this architecture", s);
-    return -1;
-}
-
-static double
-constant(char *name, int arg)
-{
-    errno = 0;
-    switch (*name) {
-    case 'A':
-	break;
-    case 'B':
-	break;
-    case 'C':
-	break;
-    case 'D':
-	break;
-    case 'E':
-	break;
-    case 'F':
-	break;
-    case 'G':
-	break;
-    case 'H':
-	break;
-    case 'I':
-	break;
-    case 'J':
-	if (strEQ(name, "JNI_ABORT"))
-#ifdef JNI_ABORT
-	    return JNI_ABORT;
-#else
-	    goto not_there;
-#endif
-	if (strEQ(name, "JNI_COMMIT"))
-#ifdef JNI_COMMIT
-	    return JNI_COMMIT;
-#else
-	    goto not_there;
-#endif
-	if (strEQ(name, "JNI_ERR"))
-#ifdef JNI_ERR
-	    return JNI_ERR;
-#else
-	    goto not_there;
-#endif
-	if (strEQ(name, "JNI_FALSE"))
-#ifdef JNI_FALSE
-	    return JNI_FALSE;
-#else
-	    goto not_there;
-#endif
-	if (strEQ(name, "JNI_H"))
-#ifdef JNI_H
-#ifdef WIN32
-	    return 1;
-#else
-	    return JNI_H;
-#endif
-#else
-	    goto not_there;
-#endif
-	if (strEQ(name, "JNI_OK"))
-#ifdef JNI_OK
-	    return JNI_OK;
-#else
-	    goto not_there;
-#endif
-	if (strEQ(name, "JNI_TRUE"))
-#ifdef JNI_TRUE
-	    return JNI_TRUE;
-#else
-	    goto not_there;
-#endif
-	break;
-    case 'K':
-	break;
-    case 'L':
-	break;
-    case 'M':
-	break;
-    case 'N':
-	break;
-    case 'O':
-	break;
-    case 'P':
-	break;
-    case 'Q':
-	break;
-    case 'R':
-	break;
-    case 'S':
-	break;
-    case 'T':
-	break;
-    case 'U':
-	break;
-    case 'V':
-	break;
-    case 'W':
-	break;
-    case 'X':
-	break;
-    case 'Y':
-	break;
-    case 'Z':
-	break;
-    }
-    errno = EINVAL;
-    return 0;
-
-not_there:
-    errno = ENOENT;
-    return 0;
-}
-
-#define FETCHENV jplcurenv
-#define RESTOREENV jplcurenv = env
-
-MODULE = JNI		PACKAGE = JNI		
-
-PROTOTYPES: ENABLE
-
-double
-constant(name,arg)
-	char *		name
-	int		arg
-
-jint
-GetVersion()
-	JNIEnv *		env = FETCHENV;
-    CODE:
-	{
-	    RETVAL = (*env)->GetVersion(env);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jclass
-DefineClass(name, loader, buf)
-	JNIEnv *		env = FETCHENV;
-	STRLEN			tmplen = NO_INIT;
-	jsize			buf_len_ = NO_INIT;
-	const char *		name
-	jobject			loader
-	const jbyte *		buf
-    CODE:
-	{
-#ifdef KAFFE
-	    RETVAL = (*env)->DefineClass(env,  loader, buf, (jsize)buf_len_);
-#else
-	    RETVAL = (*env)->DefineClass(env,  name, loader, buf, (jsize)buf_len_); 
-#endif
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jclass
-FindClass(name)
-	JNIEnv *		env = FETCHENV;
-	const char *		name
-    CODE:
-	{
-	    RETVAL = (*env)->FindClass(env,  name);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jclass
-GetSuperclass(sub)
-	JNIEnv *		env = FETCHENV;
-	jclass			sub
-    CODE:
-	{
-	    RETVAL = (*env)->GetSuperclass(env,  sub);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jboolean
-IsAssignableFrom(sub, sup)
-	JNIEnv *		env = FETCHENV;
-	jclass			sub
-	jclass			sup
-    CODE:
-	{
-	    RETVAL = (*env)->IsAssignableFrom(env,  sub, sup);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-SysRet
-Throw(obj)
-	JNIEnv *		env = FETCHENV;
-	jthrowable		obj
-    CODE:
-	{
-	    RETVAL = (*env)->Throw(env,  obj);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL    
-
-SysRet
-ThrowNew(clazz, msg)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	const char *		msg
-    CODE:
-	{
-	    RETVAL = (*env)->ThrowNew(env,  clazz, msg);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jthrowable
-ExceptionOccurred()
-	JNIEnv *		env = FETCHENV;
-    CODE:
-	{
-	    RETVAL = (*env)->ExceptionOccurred(env);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-void
-ExceptionDescribe()
-	JNIEnv *		env = FETCHENV;
-    CODE:
-	{
-	    (*env)->ExceptionDescribe(env);
-	    RESTOREENV;
-	}
-
-void
-ExceptionClear()
-	JNIEnv *		env = FETCHENV;
-    CODE:
-	{
-	    (*env)->ExceptionClear(env);
-	    RESTOREENV;
-	}
-
-void
-FatalError(msg)
-	JNIEnv *		env = FETCHENV;
-	const char *		msg
-    CODE:
-	{
-	    (*env)->FatalError(env,  msg);
-	    RESTOREENV;
-	}
-
-jobject
-NewGlobalRef(lobj)
-	JNIEnv *		env = FETCHENV;
-	jobject			lobj
-    CODE:
-	{
-	    RETVAL = (*env)->NewGlobalRef(env, lobj);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-void
-DeleteGlobalRef(gref)
-	JNIEnv *		env = FETCHENV;
-	jobject			gref
-    CODE:
-	{
-	    (*env)->DeleteGlobalRef(env, gref);
-	    RESTOREENV;
-	}
-
-void
-DeleteLocalRef(obj)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-    CODE:
-	{
-	    (*env)->DeleteLocalRef(env,  obj);
-	    RESTOREENV;
-	}
-
-jboolean
-IsSameObject(obj1,obj2)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj1
-	jobject			obj2
-    CODE:
-	{
-	    RETVAL = (*env)->IsSameObject(env, obj1,obj2);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jobject
-AllocObject(clazz)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-    CODE:
-	{
-	    RETVAL = (*env)->AllocObject(env, clazz);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jobject
-NewObject(clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->NewObjectA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jobject
-NewObjectA(clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->NewObjectA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jclass
-GetObjectClass(obj)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-    CODE:
-	{
-	    RETVAL = (*env)->GetObjectClass(env, obj);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jboolean
-IsInstanceOf(obj,clazz)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-    CODE:
-	{
-	    RETVAL = (*env)->IsInstanceOf(env, obj,clazz);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jmethodID
-GetMethodID(clazz,name,sig)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	const char *		name
-	const char *		sig
-    CODE:
-	{
-	    RETVAL = (*env)->GetMethodID(env, clazz,name,sig);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jobject
-CallObjectMethod(obj,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallObjectMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jobject
-CallObjectMethodA(obj,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallObjectMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jboolean
-CallBooleanMethod(obj,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallBooleanMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jboolean
-CallBooleanMethodA(obj,methodID, args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallBooleanMethodA(env, obj,methodID, args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jbyte
-CallByteMethod(obj,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallByteMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jbyte
-CallByteMethodA(obj,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallByteMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jchar
-CallCharMethod(obj,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallCharMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jchar
-CallCharMethodA(obj,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallCharMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jshort
-CallShortMethod(obj,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallShortMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jshort
-CallShortMethodA(obj,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallShortMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jint
-CallIntMethod(obj,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallIntMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jint
-CallIntMethodA(obj,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallIntMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jlong
-CallLongMethod(obj,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallLongMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jlong
-CallLongMethodA(obj,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallLongMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jfloat
-CallFloatMethod(obj,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallFloatMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jfloat
-CallFloatMethodA(obj,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallFloatMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jdouble
-CallDoubleMethod(obj,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallDoubleMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jdouble
-CallDoubleMethodA(obj,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallDoubleMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-void
-CallVoidMethod(obj,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    (*env)->CallVoidMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-
-void
-CallVoidMethodA(obj,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    (*env)->CallVoidMethodA(env, obj,methodID,args);
-	    RESTOREENV;
-	}
-
-jobject
-CallNonvirtualObjectMethod(obj,clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallNonvirtualObjectMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jobject
-CallNonvirtualObjectMethodA(obj,clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallNonvirtualObjectMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jboolean
-CallNonvirtualBooleanMethod(obj,clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallNonvirtualBooleanMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jboolean
-CallNonvirtualBooleanMethodA(obj,clazz,methodID, args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallNonvirtualBooleanMethodA(env, obj,clazz,methodID, args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jbyte
-CallNonvirtualByteMethod(obj,clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallNonvirtualByteMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jbyte
-CallNonvirtualByteMethodA(obj,clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallNonvirtualByteMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jchar
-CallNonvirtualCharMethod(obj,clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallNonvirtualCharMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jchar
-CallNonvirtualCharMethodA(obj,clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallNonvirtualCharMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jshort
-CallNonvirtualShortMethod(obj,clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallNonvirtualShortMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jshort
-CallNonvirtualShortMethodA(obj,clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallNonvirtualShortMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jint
-CallNonvirtualIntMethod(obj,clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallNonvirtualIntMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jint
-CallNonvirtualIntMethodA(obj,clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallNonvirtualIntMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jlong
-CallNonvirtualLongMethod(obj,clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallNonvirtualLongMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jlong
-CallNonvirtualLongMethodA(obj,clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallNonvirtualLongMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jfloat
-CallNonvirtualFloatMethod(obj,clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallNonvirtualFloatMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jfloat
-CallNonvirtualFloatMethodA(obj,clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallNonvirtualFloatMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jdouble
-CallNonvirtualDoubleMethod(obj,clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallNonvirtualDoubleMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jdouble
-CallNonvirtualDoubleMethodA(obj,clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallNonvirtualDoubleMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-void
-CallNonvirtualVoidMethod(obj,clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    (*env)->CallNonvirtualVoidMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-
-void
-CallNonvirtualVoidMethodA(obj,clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    (*env)->CallNonvirtualVoidMethodA(env, obj,clazz,methodID,args);
-	    RESTOREENV;
-	}
-
-jfieldID
-GetFieldID(clazz,name,sig)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	const char *		name
-	const char *		sig
-    CODE:
-	{
-	    RETVAL = (*env)->GetFieldID(env, clazz,name,sig);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jobject
-GetObjectField(obj,fieldID)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jfieldID		fieldID
-	char *			sig = 0;
-    CODE:
-	{
-	    RETVAL = (*env)->GetObjectField(env, obj,fieldID);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jboolean
-GetBooleanField(obj,fieldID)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jfieldID		fieldID
-	char *			sig = 0;
-    CODE:
-	{
-	    RETVAL = (*env)->GetBooleanField(env, obj,fieldID);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jbyte
-GetByteField(obj,fieldID)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jfieldID		fieldID
-	char *			sig = 0;
-    CODE:
-	{
-	    RETVAL = (*env)->GetByteField(env, obj,fieldID);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jchar
-GetCharField(obj,fieldID)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jfieldID		fieldID
-	char *			sig = 0;
-    CODE:
-	{
-	    RETVAL = (*env)->GetCharField(env, obj,fieldID);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jshort
-GetShortField(obj,fieldID)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jfieldID		fieldID
-	char *			sig = 0;
-    CODE:
-	{
-	    RETVAL = (*env)->GetShortField(env, obj,fieldID);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jint
-GetIntField(obj,fieldID)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jfieldID		fieldID
-	char *			sig = 0;
-    CODE:
-	{
-	    RETVAL = (*env)->GetIntField(env, obj,fieldID);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jlong
-GetLongField(obj,fieldID)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jfieldID		fieldID
-	char *			sig = 0;
-    CODE:
-	{
-	    RETVAL = (*env)->GetLongField(env, obj,fieldID);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jfloat
-GetFloatField(obj,fieldID)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jfieldID		fieldID
-	char *			sig = 0;
-    CODE:
-	{
-	    RETVAL = (*env)->GetFloatField(env, obj,fieldID);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jdouble
-GetDoubleField(obj,fieldID)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jfieldID		fieldID
-	char *			sig = 0;
-    CODE:
-	{
-	    RETVAL = (*env)->GetDoubleField(env, obj,fieldID);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-void
-SetObjectField(obj,fieldID,val)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jfieldID		fieldID
-	char *			sig = 0;
-	jobject			val
-    CODE:
-	{
-	    (*env)->SetObjectField(env, obj,fieldID,val);
-	    RESTOREENV;
-	}
-
-void
-SetBooleanField(obj,fieldID,val)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jfieldID		fieldID
-	char *			sig = 0;
-	jboolean		val
-    CODE:
-	{
-	    (*env)->SetBooleanField(env, obj,fieldID,val);
-	    RESTOREENV;
-	}
-
-void
-SetByteField(obj,fieldID,val)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jfieldID		fieldID
-	char *			sig = 0;
-	jbyte			val
-    CODE:
-	{
-	    (*env)->SetByteField(env, obj,fieldID,val);
-	    RESTOREENV;
-	}
-
-void
-SetCharField(obj,fieldID,val)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jfieldID		fieldID
-	char *			sig = 0;
-	jchar			val
-    CODE:
-	{
-	    (*env)->SetCharField(env, obj,fieldID,val);
-	    RESTOREENV;
-	}
-
-void
-SetShortField(obj,fieldID,val)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jfieldID		fieldID
-	char *			sig = 0;
-	jshort			val
-    CODE:
-	{
-	    (*env)->SetShortField(env, obj,fieldID,val);
-	    RESTOREENV;
-	}
-
-void
-SetIntField(obj,fieldID,val)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jfieldID		fieldID
-	char *			sig = 0;
-	jint			val
-    CODE:
-	{
-	    (*env)->SetIntField(env, obj,fieldID,val);
-	    RESTOREENV;
-	}
-
-void
-SetLongField(obj,fieldID,val)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jfieldID		fieldID
-	char *			sig = 0;
-	jlong			val
-    CODE:
-	{
-	    (*env)->SetLongField(env, obj,fieldID,val);
-	    RESTOREENV;
-	}
-
-void
-SetFloatField(obj,fieldID,val)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jfieldID		fieldID
-	char *			sig = 0;
-	jfloat			val
-    CODE:
-	{
-	    (*env)->SetFloatField(env, obj,fieldID,val);
-	    RESTOREENV;
-	}
-
-void
-SetDoubleField(obj,fieldID,val)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-	jfieldID		fieldID
-	char *			sig = 0;
-	jdouble			val
-    CODE:
-	{
-	    (*env)->SetDoubleField(env, obj,fieldID,val);
-	    RESTOREENV;
-	}
-
-jmethodID
-GetStaticMethodID(clazz,name,sig)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	const char *		name
-	const char *		sig
-    CODE:
-	{
-	    RETVAL = (*env)->GetStaticMethodID(env, clazz,name,sig);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jobject
-CallStaticObjectMethod(clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallStaticObjectMethodA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jobject
-CallStaticObjectMethodA(clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallStaticObjectMethodA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jboolean
-CallStaticBooleanMethod(clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallStaticBooleanMethodA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jboolean
-CallStaticBooleanMethodA(clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallStaticBooleanMethodA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jbyte
-CallStaticByteMethod(clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallStaticByteMethodA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jbyte
-CallStaticByteMethodA(clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallStaticByteMethodA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jchar
-CallStaticCharMethod(clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallStaticCharMethodA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jchar
-CallStaticCharMethodA(clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallStaticCharMethodA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jshort
-CallStaticShortMethod(clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallStaticShortMethodA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jshort
-CallStaticShortMethodA(clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallStaticShortMethodA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jint
-CallStaticIntMethod(clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallStaticIntMethodA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jint
-CallStaticIntMethodA(clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallStaticIntMethodA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jlong
-CallStaticLongMethod(clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallStaticLongMethodA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jlong
-CallStaticLongMethodA(clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallStaticLongMethodA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jfloat
-CallStaticFloatMethod(clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallStaticFloatMethodA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jfloat
-CallStaticFloatMethodA(clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallStaticFloatMethodA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jdouble
-CallStaticDoubleMethod(clazz,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    RETVAL = (*env)->CallStaticDoubleMethodA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jdouble
-CallStaticDoubleMethodA(clazz,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    RETVAL = (*env)->CallStaticDoubleMethodA(env, clazz,methodID,args);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-void
-CallStaticVoidMethod(cls,methodID,...)
-	JNIEnv *		env = FETCHENV;
-	jclass			cls
-	jmethodID		methodID
-	char *			sig = 0;
-	int			argoff = $min_args;
-    CODE:
-	{
-	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
-	    (*env)->CallStaticVoidMethodA(env, cls,methodID,args);
-	    RESTOREENV;
-	}
-
-void
-CallStaticVoidMethodA(cls,methodID,args)
-	JNIEnv *		env = FETCHENV;
-	jclass			cls
-	jmethodID		methodID
-	char *			sig = 0;
-	jvalue *		args
-    CODE:
-	{
-	    (*env)->CallStaticVoidMethodA(env, cls,methodID,args);
-	    RESTOREENV;
-	}
-
-jfieldID
-GetStaticFieldID(clazz,name,sig)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	const char *		name
-	const char *		sig
-    CODE:
-	{
-	    RETVAL = (*env)->GetStaticFieldID(env, clazz,name,sig);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jobject
-GetStaticObjectField(clazz,fieldID)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jfieldID		fieldID
-	char *			sig = 0;
-    CODE:
-	{
-	    RETVAL = (*env)->GetStaticObjectField(env, clazz,fieldID);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jboolean
-GetStaticBooleanField(clazz,fieldID)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jfieldID		fieldID
-	char *			sig = 0;
-    CODE:
-	{
-	    RETVAL = (*env)->GetStaticBooleanField(env, clazz,fieldID);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jbyte
-GetStaticByteField(clazz,fieldID)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jfieldID		fieldID
-	char *			sig = 0;
-    CODE:
-	{
-	    RETVAL = (*env)->GetStaticByteField(env, clazz,fieldID);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jchar
-GetStaticCharField(clazz,fieldID)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jfieldID		fieldID
-	char *			sig = 0;
-    CODE:
-	{
-	    RETVAL = (*env)->GetStaticCharField(env, clazz,fieldID);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jshort
-GetStaticShortField(clazz,fieldID)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jfieldID		fieldID
-	char *			sig = 0;
-    CODE:
-	{
-	    RETVAL = (*env)->GetStaticShortField(env, clazz,fieldID);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jint
-GetStaticIntField(clazz,fieldID)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jfieldID		fieldID
-	char *			sig = 0;
-    CODE:
-	{
-	    RETVAL = (*env)->GetStaticIntField(env, clazz,fieldID);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jlong
-GetStaticLongField(clazz,fieldID)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jfieldID		fieldID
-	char *			sig = 0;
-    CODE:
-	{
-	    RETVAL = (*env)->GetStaticLongField(env, clazz,fieldID);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jfloat
-GetStaticFloatField(clazz,fieldID)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jfieldID		fieldID
-	char *			sig = 0;
-    CODE:
-	{
-	    RETVAL = (*env)->GetStaticFloatField(env, clazz,fieldID);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jdouble
-GetStaticDoubleField(clazz,fieldID)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jfieldID		fieldID
-	char *			sig = 0;
-    CODE:
-	{
-	    RETVAL = (*env)->GetStaticDoubleField(env, clazz,fieldID);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-void
-SetStaticObjectField(clazz,fieldID,value)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jfieldID		fieldID
-	char *			sig = 0;
-	jobject			value
-    CODE:
-	{
-	  (*env)->SetStaticObjectField(env, clazz,fieldID,value);
-	    RESTOREENV;
-	}
-
-void
-SetStaticBooleanField(clazz,fieldID,value)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jfieldID		fieldID
-	char *			sig = 0;
-	jboolean		value
-    CODE:
-	{
-	  (*env)->SetStaticBooleanField(env, clazz,fieldID,value);
-	    RESTOREENV;
-	}
-
-void
-SetStaticByteField(clazz,fieldID,value)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jfieldID		fieldID
-	char *			sig = 0;
-	jbyte			value
-    CODE:
-	{
-	  (*env)->SetStaticByteField(env, clazz,fieldID,value);
-	    RESTOREENV;
-	}
-
-void
-SetStaticCharField(clazz,fieldID,value)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jfieldID		fieldID
-	char *			sig = 0;
-	jchar			value
-    CODE:
-	{
-	  (*env)->SetStaticCharField(env, clazz,fieldID,value);
-	    RESTOREENV;
-	}
-
-void
-SetStaticShortField(clazz,fieldID,value)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jfieldID		fieldID
-	char *			sig = 0;
-	jshort			value
-    CODE:
-	{
-	  (*env)->SetStaticShortField(env, clazz,fieldID,value);
-	    RESTOREENV;
-	}
-
-void
-SetStaticIntField(clazz,fieldID,value)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jfieldID		fieldID
-	char *			sig = 0;
-	jint			value
-    CODE:
-	{
-	  (*env)->SetStaticIntField(env, clazz,fieldID,value);
-	    RESTOREENV;
-	}
-
-void
-SetStaticLongField(clazz,fieldID,value)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jfieldID		fieldID
-	char *			sig = 0;
-	jlong			value
-    CODE:
-	{
-	  (*env)->SetStaticLongField(env, clazz,fieldID,value);
-	    RESTOREENV;
-	}
-
-void
-SetStaticFloatField(clazz,fieldID,value)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jfieldID		fieldID
-	char *			sig = 0;
-	jfloat			value
-    CODE:
-	{
-	  (*env)->SetStaticFloatField(env, clazz,fieldID,value);
-	    RESTOREENV;
-	}
-
-void
-SetStaticDoubleField(clazz,fieldID,value)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	jfieldID		fieldID
-	char *			sig = 0;
-	jdouble			value
-    CODE:
-	{
-	  (*env)->SetStaticDoubleField(env, clazz,fieldID,value);
-	    RESTOREENV;
-	}
-
-jstring
-NewString(unicode)
-	JNIEnv *		env = FETCHENV;
-	STRLEN			tmplen = NO_INIT;
-	jsize			unicode_len_ = NO_INIT;
-	const jchar *		unicode
-    CODE:
-	{
-	    RETVAL = (*env)->NewString(env, unicode, unicode_len_);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jsize
-GetStringLength(str)
-	JNIEnv *		env = FETCHENV;
-	jstring			str
-    CODE:
-	{
-	    RETVAL = (*env)->GetStringLength(env, str);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-const jchar *
-GetStringChars(str)
-	JNIEnv *		env = FETCHENV;
-	jstring			str
-	jboolean		isCopy = NO_INIT;
-	jsize 			RETVAL_len_ = NO_INIT;
-    CODE:
-	{
-	    RETVAL = (*env)->GetStringChars(env, str,&isCopy);
-	    RETVAL_len_ = (*env)->GetStringLength(env, str);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-    CLEANUP:
-	    (*env)->ReleaseStringChars(env, str,RETVAL);
-
-jstring
-NewStringUTF(utf)
-	JNIEnv *		env = FETCHENV;
-	const char *		utf
-    CODE:
-	{
-	    RETVAL = (*env)->NewStringUTF(env, utf);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jsize
-GetStringUTFLength(str)
-	JNIEnv *		env = FETCHENV;
-	jstring			str
-    CODE:
-	{
-	    RETVAL = (*env)->GetStringUTFLength(env, str);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-const char *
-GetStringUTFChars(str)
-	JNIEnv *		env = FETCHENV;
-	jstring			str
-	jboolean		isCopy = NO_INIT;
-    CODE:
-	{
-	    RETVAL = (*env)->GetStringUTFChars(env, str,&isCopy);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-    CLEANUP:
-	(*env)->ReleaseStringUTFChars(env, str, RETVAL);
-
-
-jsize
-GetArrayLength(array)
-	JNIEnv *		env = FETCHENV;
-	jarray			array
-    CODE:
-	{
-	    RETVAL = (*env)->GetArrayLength(env, array);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jobjectArray
-NewObjectArray(len,clazz,init)
-	JNIEnv *		env = FETCHENV;
-	jsize			len
-	jclass			clazz
-	jobject			init
-    CODE:
-	{
-	    RETVAL = (*env)->NewObjectArray(env, len,clazz,init);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jobject
-GetObjectArrayElement(array,index)
-	JNIEnv *		env = FETCHENV;
-	jobjectArray		array
-	jsize			index
-    CODE:
-	{
-	    RETVAL = (*env)->GetObjectArrayElement(env, array,index);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-void
-SetObjectArrayElement(array,index,val)
-	JNIEnv *		env = FETCHENV;
-	jobjectArray		array
-	jsize			index
-	jobject			val
-    CODE:
-	{
-	    (*env)->SetObjectArrayElement(env, array,index,val);
-	    RESTOREENV;
-	}
-
-jbooleanArray
-NewBooleanArray(len)
-	JNIEnv *		env = FETCHENV;
-	jsize			len
-    CODE:
-	{
-	    RETVAL = (*env)->NewBooleanArray(env, len);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jbyteArray
-NewByteArray(len)
-	JNIEnv *		env = FETCHENV;
-	jsize			len
-    CODE:
-	{
-	    RETVAL = (*env)->NewByteArray(env, len);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jcharArray
-NewCharArray(len)
-	JNIEnv *		env = FETCHENV;
-	jsize			len
-    CODE:
-	{
-	    RETVAL = (*env)->NewCharArray(env, len);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jshortArray
-NewShortArray(len)
-	JNIEnv *		env = FETCHENV;
-	jsize			len
-    CODE:
-	{
-	    RETVAL = (*env)->NewShortArray(env, len);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jintArray
-NewIntArray(len)
-	JNIEnv *		env = FETCHENV;
-	jsize			len
-    CODE:
-	{
-	    RETVAL = (*env)->NewIntArray(env, len);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jlongArray
-NewLongArray(len)
-	JNIEnv *		env = FETCHENV;
-	jsize			len
-    CODE:
-	{
-	    RETVAL = (*env)->NewLongArray(env, len);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jfloatArray
-NewFloatArray(len)
-	JNIEnv *		env = FETCHENV;
-	jsize			len
-    CODE:
-	{
-	    RETVAL = (*env)->NewFloatArray(env, len);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jdoubleArray
-NewDoubleArray(len)
-	JNIEnv *		env = FETCHENV;
-	jsize			len
-    CODE:
-	{
-	    RETVAL = (*env)->NewDoubleArray(env, len);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-jboolean *
-GetBooleanArrayElements(array)
-	JNIEnv *		env = FETCHENV;
-	jsize			RETVAL_len_ = NO_INIT;
-	jbooleanArray		array
-	jboolean		isCopy = NO_INIT;
-    PPCODE:
-	{
-	    RETVAL = (*env)->GetBooleanArrayElements(env, array,&isCopy);
-	    RETVAL_len_ = (*env)->GetArrayLength(env, array);
-	    if (GIMME == G_ARRAY) {
-		int i;
-		jboolean* r = RETVAL;
-		EXTEND(sp, RETVAL_len_);
-		for (i = RETVAL_len_; i; --i) {
-		    PUSHs(sv_2mortal(newSViv(*r++)));
-		}
-	    }
-	    else {
-		if (RETVAL_len_) {
-		    PUSHs(sv_2mortal(newSVpvn((char*)RETVAL,
-			(STRLEN)RETVAL_len_ * sizeof(jboolean))));
-		}
-		else
-		    PUSHs(&PL_sv_no);
-	    }
-	    (*env)->ReleaseBooleanArrayElements(env, array,RETVAL,JNI_ABORT);
-	    RESTOREENV;
-	}
-
-jbyte *
-GetByteArrayElements(array)
-	JNIEnv *		env = FETCHENV;
-	jsize			RETVAL_len_ = NO_INIT;
-	jbyteArray		array
-	jboolean		isCopy = NO_INIT;
-    PPCODE:
-	{
-	    RETVAL = (*env)->GetByteArrayElements(env, array,&isCopy);
-	    RETVAL_len_ = (*env)->GetArrayLength(env, array);
-	    if (GIMME == G_ARRAY) {
-		int i;
-		jbyte* r = RETVAL;
-		EXTEND(sp, RETVAL_len_);
-		for (i = RETVAL_len_; i; --i) {
-		    PUSHs(sv_2mortal(newSViv(*r++)));
-		}
-	    }
-	    else {
-		if (RETVAL_len_) {
-		    PUSHs(sv_2mortal(newSVpvn((char*)RETVAL,
-			(STRLEN)RETVAL_len_ * sizeof(jbyte))));
-		}
-		else
-		    PUSHs(&PL_sv_no);
-	    }
-	    (*env)->ReleaseByteArrayElements(env, array,RETVAL,JNI_ABORT);
-	    RESTOREENV;
-	}
-
-jchar *
-GetCharArrayElements(array)
-	JNIEnv *		env = FETCHENV;
-	jsize			RETVAL_len_ = NO_INIT;
-	jcharArray		array
-	jboolean		isCopy = NO_INIT;
-    PPCODE:
-	{
-	    RETVAL = (*env)->GetCharArrayElements(env, array,&isCopy);
-	    RETVAL_len_ = (*env)->GetArrayLength(env, array);
-	    if (GIMME == G_ARRAY) {
-		int i;
-		jchar* r = RETVAL;
-		EXTEND(sp, RETVAL_len_);
-		for (i = RETVAL_len_; i; --i) {
-		    PUSHs(sv_2mortal(newSViv(*r++)));
-		}
-	    }
-	    else {
-		if (RETVAL_len_) {
-		    PUSHs(sv_2mortal(newSVpvn((char*)RETVAL,
-			(STRLEN)RETVAL_len_ * sizeof(jchar))));
-		}
-		else
-		    PUSHs(&PL_sv_no);
-	    }
-	    (*env)->ReleaseCharArrayElements(env, array,RETVAL,JNI_ABORT);
-	    RESTOREENV;
-	}
-
-jshort *
-GetShortArrayElements(array)
-	JNIEnv *		env = FETCHENV;
-	jsize			RETVAL_len_ = NO_INIT;
-	jshortArray		array
-	jboolean		isCopy = NO_INIT;
-    PPCODE:
-	{
-	    RETVAL = (*env)->GetShortArrayElements(env, array,&isCopy);
-	    RETVAL_len_ = (*env)->GetArrayLength(env, array);
-	    if (GIMME == G_ARRAY) {
-		int i;
-		jshort* r = RETVAL;
-		EXTEND(sp, RETVAL_len_);
-		for (i = RETVAL_len_; i; --i) {
-		    PUSHs(sv_2mortal(newSViv(*r++)));
-		}
-	    }
-	    else {
-		if (RETVAL_len_) {
-		    PUSHs(sv_2mortal(newSVpvn((char*)RETVAL,
-			(STRLEN)RETVAL_len_ * sizeof(jshort))));
-		}
-		else
-		    PUSHs(&PL_sv_no);
-	    }
-	    (*env)->ReleaseShortArrayElements(env, array,RETVAL,JNI_ABORT);
-	    RESTOREENV;
-	}
-
-jint *
-GetIntArrayElements(array)
-	JNIEnv *		env = FETCHENV;
-	jsize			RETVAL_len_ = NO_INIT;
-	jintArray		array
-	jboolean		isCopy = NO_INIT;
-    PPCODE:
-	{
-	    RETVAL = (*env)->GetIntArrayElements(env, array,&isCopy);
-	    RETVAL_len_ = (*env)->GetArrayLength(env, array);
-	    if (GIMME == G_ARRAY) {
-		int i;
-		jint* r = RETVAL;
-		EXTEND(sp, RETVAL_len_);
-		for (i = RETVAL_len_; i; --i) {
-		    PUSHs(sv_2mortal(newSViv(*r++)));
-		}
-	    }
-	    else {
-		if (RETVAL_len_) {
-		    PUSHs(sv_2mortal(newSVpvn((char*)RETVAL,
-			(STRLEN)RETVAL_len_ * sizeof(jint))));
-		}
-		else
-		    PUSHs(&PL_sv_no);
-	    }
-	    (*env)->ReleaseIntArrayElements(env, array,RETVAL,JNI_ABORT);
-	    RESTOREENV;
-	}
-
-jlong *
-GetLongArrayElements(array)
-	JNIEnv *		env = FETCHENV;
-	jsize			RETVAL_len_ = NO_INIT;
-	jlongArray		array
-	jboolean		isCopy = NO_INIT;
-    PPCODE:
-	{
-	    RETVAL = (*env)->GetLongArrayElements(env, array,&isCopy);
-	    RETVAL_len_ = (*env)->GetArrayLength(env, array);
-	    if (GIMME == G_ARRAY) {
-		int i;
-		jlong* r = RETVAL;
-		EXTEND(sp, RETVAL_len_);
-		for (i = RETVAL_len_; i; --i) {
-		    PUSHs(sv_2mortal(newSViv(*r++)));
-		}
-	    }
-	    else {
-		if (RETVAL_len_) {
-		    PUSHs(sv_2mortal(newSVpvn((char*)RETVAL,
-			(STRLEN)RETVAL_len_ * sizeof(jlong))));
-		}
-		else
-		    PUSHs(&PL_sv_no);
-	    }
-	    (*env)->ReleaseLongArrayElements(env, array,RETVAL,JNI_ABORT);
-	    RESTOREENV;
-	}
-
-jfloat *
-GetFloatArrayElements(array)
-	JNIEnv *		env = FETCHENV;
-	jsize			RETVAL_len_ = NO_INIT;
-	jfloatArray		array
-	jboolean		isCopy = NO_INIT;
-    PPCODE:
-	{
-	    RETVAL = (*env)->GetFloatArrayElements(env, array,&isCopy);
-	    RETVAL_len_ = (*env)->GetArrayLength(env, array);
-	    if (GIMME == G_ARRAY) {
-		int i;
-		jfloat* r = RETVAL;
-		EXTEND(sp, RETVAL_len_);
-		for (i = RETVAL_len_; i; --i) {
-		    PUSHs(sv_2mortal(newSVnv(*r++)));
-		}
-	    }
-	    else {
-		if (RETVAL_len_) {
-		    PUSHs(sv_2mortal(newSVpvn((char*)RETVAL,
-			(STRLEN)RETVAL_len_ * sizeof(jfloat))));
-		}
-		else
-		    PUSHs(&PL_sv_no);
-	    }
-	    (*env)->ReleaseFloatArrayElements(env, array,RETVAL,JNI_ABORT);
-	    RESTOREENV;
-	}
-
-jdouble *
-GetDoubleArrayElements(array)
-	JNIEnv *		env = FETCHENV;
-	jsize			RETVAL_len_ = NO_INIT;
-	jdoubleArray		array
-	jboolean		isCopy = NO_INIT;
-    PPCODE:
-	{
-	    RETVAL = (*env)->GetDoubleArrayElements(env, array,&isCopy);
-	    RETVAL_len_ = (*env)->GetArrayLength(env, array);
-	    if (GIMME == G_ARRAY) {
-		int i;
-		jdouble* r = RETVAL;
-		EXTEND(sp, RETVAL_len_);
-		for (i = RETVAL_len_; i; --i) {
-		    PUSHs(sv_2mortal(newSVnv(*r++)));
-		}
-	    }
-	    else {
-		if (RETVAL_len_) {
-		    PUSHs(sv_2mortal(newSVpvn((char*)RETVAL,
-			(STRLEN)RETVAL_len_ * sizeof(jdouble))));
-		}
-		else
-		    PUSHs(&PL_sv_no);
-	    }
-	    (*env)->ReleaseDoubleArrayElements(env, array,RETVAL,JNI_ABORT);
-	    RESTOREENV;
-	}
-
-void
-GetBooleanArrayRegion(array,start,len,buf)
-	JNIEnv *		env = FETCHENV;
-	jbooleanArray		array
-	jsize			start
-	jsize			len
-	STRLEN			tmplen = len * sizeof(jboolean) + 1;
-	char *			tmpbuf = (char*)sv_pvn_force(ST(3), &tmplen);
-	jboolean *		buf = (jboolean*)sv_grow(ST(3),len * sizeof(jboolean)+1);
-    CODE:
-	{
-	    (*env)->GetBooleanArrayRegion(env, array,start,len,buf);
-	    SvCUR_set(ST(3), len * sizeof(jboolean));
-	    *SvEND(ST(3)) = '\0';
-	    RESTOREENV;
-	}
-
-void
-GetByteArrayRegion(array,start,len,buf)
-	JNIEnv *		env = FETCHENV;
-	jbyteArray		array
-	jsize			start
-	jsize			len
-	STRLEN			tmplen = len * sizeof(jboolean) + 1;
-	char *			tmpbuf = (char*)sv_pvn_force(ST(3), &tmplen);
-	jbyte *			buf = (jbyte*)sv_grow(ST(3),len * sizeof(jbyte)+1);
-    CODE:
-	{
-	    (*env)->GetByteArrayRegion(env, array,start,len,buf);
-	    SvCUR_set(ST(3), len * sizeof(jbyte));
-	    *SvEND(ST(3)) = '\0';
-	    RESTOREENV;
-	}
-
-void
-GetCharArrayRegion(array,start,len,buf)
-	JNIEnv *		env = FETCHENV;
-	jcharArray		array
-	jsize			start
-	jsize			len
-	STRLEN			tmplen = len * sizeof(jboolean) + 1;
-	char *			tmpbuf = (char*)sv_pvn_force(ST(3), &tmplen);
-	jchar *			buf = (jchar*)sv_grow(ST(3),len * sizeof(jchar)+1);
-    CODE:
-	{
-	    (*env)->GetCharArrayRegion(env, array,start,len,buf);
-	    SvCUR_set(ST(3), len * sizeof(jchar));
-	    *SvEND(ST(3)) = '\0';
-	    RESTOREENV;
-	}
-
-void
-GetShortArrayRegion(array,start,len,buf)
-	JNIEnv *		env = FETCHENV;
-	jshortArray		array
-	jsize			start
-	jsize			len
-	STRLEN			tmplen = len * sizeof(jboolean) + 1;
-	char *			tmpbuf = (char*)sv_pvn_force(ST(3), &tmplen);
-	jshort *		buf = (jshort*)sv_grow(ST(3),len * sizeof(jshort)+1);
-    CODE:
-	{
-	    (*env)->GetShortArrayRegion(env, array,start,len,buf);
-	    SvCUR_set(ST(3), len * sizeof(jshort));
-	    *SvEND(ST(3)) = '\0';
-	    RESTOREENV;
-	}
-
-void
-GetIntArrayRegion(array,start,len,buf)
-	JNIEnv *		env = FETCHENV;
-	jintArray		array
-	jsize			start
-	jsize			len
-	STRLEN			tmplen = len * sizeof(jboolean) + 1;
-	char *			tmpbuf = (char*)sv_pvn_force(ST(3), &tmplen);
-	jint *			buf = (jint*)sv_grow(ST(3),len * sizeof(jint)+1);
-    CODE:
-	{
-	    (*env)->GetIntArrayRegion(env, array,start,len,buf);
-	    SvCUR_set(ST(3), len * sizeof(jint));
-	    *SvEND(ST(3)) = '\0';
-	    RESTOREENV;
-	}
-
-void
-GetLongArrayRegion(array,start,len,buf)
-	JNIEnv *		env = FETCHENV;
-	jlongArray		array
-	jsize			start
-	jsize			len
-	STRLEN			tmplen = len * sizeof(jboolean) + 1;
-	char *			tmpbuf = (char*)sv_pvn_force(ST(3), &tmplen);
-	jlong *			buf = (jlong*)sv_grow(ST(3),len * sizeof(jlong)+1);
-    CODE:
-	{
-	    (*env)->GetLongArrayRegion(env, array,start,len,buf);
-	    SvCUR_set(ST(3), len * sizeof(jlong));
-	    *SvEND(ST(3)) = '\0';
-	    RESTOREENV;
-	}
-
-void
-GetFloatArrayRegion(array,start,len,buf)
-	JNIEnv *		env = FETCHENV;
-	jfloatArray		array
-	jsize			start
-	jsize			len
-	STRLEN			tmplen = len * sizeof(jboolean) + 1;
-	char *			tmpbuf = (char*)sv_pvn_force(ST(3), &tmplen);
-	jfloat *		buf = (jfloat*)sv_grow(ST(3),len * sizeof(jfloat)+1);
-    CODE:
-	{
-	    (*env)->GetFloatArrayRegion(env, array,start,len,buf);
-	    SvCUR_set(ST(3), len * sizeof(jfloat));
-	    *SvEND(ST(3)) = '\0';
-	    RESTOREENV;
-	}
-
-void
-GetDoubleArrayRegion(array,start,len,buf)
-	JNIEnv *		env = FETCHENV;
-	jdoubleArray		array
-	jsize			start
-	jsize			len
-	STRLEN			tmplen = len * sizeof(jboolean) + 1;
-	char *			tmpbuf = (char*)sv_pvn_force(ST(3), &tmplen);
-	jdouble *		buf = (jdouble*)sv_grow(ST(3),len * sizeof(jdouble)+1);
-    CODE:
-	{
-	    (*env)->GetDoubleArrayRegion(env, array,start,len,buf);
-	    SvCUR_set(ST(3), len * sizeof(jdouble));
-	    *SvEND(ST(3)) = '\0';
-	    RESTOREENV;
-	}
-
-void
-SetBooleanArrayRegion(array,start,len,buf)
-	JNIEnv *		env = FETCHENV;
-	STRLEN			tmplen = NO_INIT;
-	jbooleanArray		array
-	jsize			start
-	jsize			len
-	jsize			buf_len_ = NO_INIT;
-	jboolean *		buf
-    CODE:
-	{
-	    if (buf_len_ < len)
-		croak("string is too short");
-	    else if (buf_len_ > len && PL_dowarn)
-		warn("string is too long");
-	    (*env)->SetBooleanArrayRegion(env, array,start,len,buf);
-	    RESTOREENV;
-	}
-
-void
-SetByteArrayRegion(array,start,len,buf)
-	JNIEnv *		env = FETCHENV;
-	STRLEN			tmplen = NO_INIT;
-	jbyteArray		array
-	jsize			start
-	jsize			len
-	jsize			buf_len_ = NO_INIT;
-	jbyte *			buf
-    CODE:
-	{
-	    if (buf_len_ < len)
-		croak("string is too short");
-	    else if (buf_len_ > len && PL_dowarn)
-		warn("string is too long");
-	    (*env)->SetByteArrayRegion(env, array,start,len,buf);
-	    RESTOREENV;
-	}
-
-void
-SetCharArrayRegion(array,start,len,buf)
-	JNIEnv *		env = FETCHENV;
-	STRLEN			tmplen = NO_INIT;
-	jcharArray		array
-	jsize			start
-	jsize			len
-	jsize			buf_len_ = NO_INIT;
-	jchar *			buf
-    CODE:
-	{
-	    if (buf_len_ < len)
-		croak("string is too short");
-	    else if (buf_len_ > len && PL_dowarn)
-		warn("string is too long");
-	    (*env)->SetCharArrayRegion(env, array,start,len,buf);
-	    RESTOREENV;
-	}
-
-void
-SetShortArrayRegion(array,start,len,buf)
-	JNIEnv *		env = FETCHENV;
-	STRLEN			tmplen = NO_INIT;
-	jshortArray		array
-	jsize			start
-	jsize			len
-	jsize			buf_len_ = NO_INIT;
-	jshort *		buf
-    CODE:
-	{
-	    if (buf_len_ < len)
-		croak("string is too short");
-	    else if (buf_len_ > len && PL_dowarn)
-		warn("string is too long");
-	    (*env)->SetShortArrayRegion(env, array,start,len,buf);
-	    RESTOREENV;
-	}
-
-void
-SetIntArrayRegion(array,start,len,buf)
-	JNIEnv *		env = FETCHENV;
-	STRLEN			tmplen = NO_INIT;
-	jintArray		array
-	jsize			start
-	jsize			len
-	jsize			buf_len_ = NO_INIT;
-	jint *			buf
-    CODE:
-	{
-	    if (buf_len_ < len)
-		croak("string is too short");
-	    else if (buf_len_ > len && PL_dowarn)
-		warn("string is too long");
-	    (*env)->SetIntArrayRegion(env, array,start,len,buf);
-	    RESTOREENV;
-	}
-
-void
-SetLongArrayRegion(array,start,len,buf)
-	JNIEnv *		env = FETCHENV;
-	STRLEN			tmplen = NO_INIT;
-	jlongArray		array
-	jsize			start
-	jsize			len
-	jsize			buf_len_ = NO_INIT;
-	jlong *			buf
-    CODE:
-	{
-	    if (buf_len_ < len)
-		croak("string is too short");
-	    else if (buf_len_ > len && PL_dowarn)
-		warn("string is too long");
-	    (*env)->SetLongArrayRegion(env, array,start,len,buf);
-	    RESTOREENV;
-	}
-
-void
-SetFloatArrayRegion(array,start,len,buf)
-	JNIEnv *		env = FETCHENV;
-	STRLEN			tmplen = NO_INIT;
-	jfloatArray		array
-	jsize			start
-	jsize			len
-	jsize			buf_len_ = NO_INIT;
-	jfloat *		buf
-    CODE:
-	{
-	    if (buf_len_ < len)
-		croak("string is too short");
-	    else if (buf_len_ > len && PL_dowarn)
-		warn("string is too long");
-	    (*env)->SetFloatArrayRegion(env, array,start,len,buf);
-	    RESTOREENV;
-	}
-
-void
-SetDoubleArrayRegion(array,start,len,buf)
-	JNIEnv *		env = FETCHENV;
-	STRLEN			tmplen = NO_INIT;
-	jdoubleArray		array
-	jsize			start
-	jsize			len
-	jsize			buf_len_ = NO_INIT;
-	jdouble *		buf
-    CODE:
-	{
-	    if (buf_len_ < len)
-		croak("string is too short");
-	    else if (buf_len_ > len && PL_dowarn)
-		warn("string is too long");
-	    (*env)->SetDoubleArrayRegion(env, array,start,len,buf);
-	    RESTOREENV;
-	}
-
-SysRet
-RegisterNatives(clazz,methods,nMethods)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-	JNINativeMethod *	methods
-	jint			nMethods
-    CODE:
-	{
-	    RETVAL = (*env)->RegisterNatives(env, clazz,methods,nMethods);
-	}
-
-SysRet
-UnregisterNatives(clazz)
-	JNIEnv *		env = FETCHENV;
-	jclass			clazz
-    CODE:
-	{
-	    RETVAL = (*env)->UnregisterNatives(env, clazz);
-	}
-    OUTPUT:
-	RETVAL  
-   
-SysRet
-MonitorEnter(obj)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-    CODE:
-	{
-	    RETVAL = (*env)->MonitorEnter(env, obj);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-SysRet
-MonitorExit(obj)
-	JNIEnv *		env = FETCHENV;
-	jobject			obj
-    CODE:
-	{
-	    RETVAL = (*env)->MonitorExit(env, obj);
-	    RESTOREENV;
-	}
-    OUTPUT:
-	RETVAL
-
-JavaVM *
-GetJavaVM(...)
-	JNIEnv *		env = FETCHENV;
-    CODE:
-	{
-#ifdef JPL_DEBUG
-	    jpldebug = 1;
-#else
-	    jpldebug = 0;
-#endif
-	    if (env) {	/* We're embedded. */
-		if ((*env)->GetJavaVM(env, &RETVAL) < 0)
-		    RETVAL = 0;
-	    }
-	    else {	/* We're embedding. */
-#ifdef KAFFE
-                JavaVMInitArgs vm_args;
-#else
-                JDK1_1InitArgs vm_args;
-#endif
-		char *lib;
-		if (jpldebug) {
-		    fprintf(stderr, "We're embedding Java in Perl.\n");
-		}
-
-		if (items--) {
-  		    ++mark;
-		    lib = SvPV(*mark, PL_na);
-		}
-		else
-		    lib = 0;
-		if (jpldebug) {
-		    fprintf(stderr, "lib is %s.\n", lib);
-		}
-#ifdef WIN32
-        if (LoadLibrary("jvm.dll")) {
-            if (!LoadLibrary("javai.dll")) {
-                warn("Can't load javai.dll");
-            }
-        } else {
-            if (lib && !LoadLibrary(lib))
-                croak("Can't load javai.dll"); 
-        }
-#else
-		if (jpldebug) {
-		    fprintf(stderr, "Opening Java shared library.\n");
-                }
-#ifdef KAFFE
-		if (!dlopen("libkaffevm.so", RTLD_LAZY|RTLD_GLOBAL)) {
-#else
-		if (!dlopen("libjava.so", RTLD_LAZY|RTLD_GLOBAL)) {
-#endif
-		    if (lib && !dlopen(lib, RTLD_LAZY|RTLD_GLOBAL))
-			croak("Can't load Java shared library.");
-		}
-#endif
-               /* Kaffe seems to get very upset if vm_args.version isn't set */
-#ifdef KAFFE
-		vm_args.version = JNI_VERSION_1_1;
-#endif
-		JNI_GetDefaultJavaVMInitArgs(&vm_args);
-		vm_args.exit = &call_my_exit;
-		if (jpldebug) {
-            fprintf(stderr, "items = %d\n", items);
-            fprintf(stderr, "mark = %s\n", SvPV(*mark, PL_na));
-        }
-		while (items > 1) {
-		  char *s;
-		    ++mark;
-		    s = SvPV(*mark,PL_na);
-		    ++mark;
-		    if (jpldebug) {
-                fprintf(stderr, "*s = %s\n", s);
-                fprintf(stderr, "val = %s\n", SvPV(*mark, PL_na));
-            }
-		    items -= 2;
-		    if (strEQ(s, "checkSource"))
-			vm_args.checkSource = (jint)SvIV(*mark);
-		    else if (strEQ(s, "nativeStackSize"))
-			vm_args.nativeStackSize = (jint)SvIV(*mark);
-		    else if (strEQ(s, "javaStackSize"))
-			vm_args.javaStackSize = (jint)SvIV(*mark);
-		    else if (strEQ(s, "minHeapSize"))
-			vm_args.minHeapSize = (jint)SvIV(*mark);
-		    else if (strEQ(s, "maxHeapSize"))
-			vm_args.maxHeapSize = (jint)SvIV(*mark);
-		    else if (strEQ(s, "verifyMode"))
-			vm_args.verifyMode = (jint)SvIV(*mark);
-		    else if (strEQ(s, "classpath"))
-			vm_args.classpath = savepv(SvPV(*mark,PL_na));
-		    else if (strEQ(s, "enableClassGC"))
-			vm_args.enableClassGC = (jint)SvIV(*mark);
-		    else if (strEQ(s, "enableVerboseGC"))
-			vm_args.enableVerboseGC = (jint)SvIV(*mark);
-		    else if (strEQ(s, "disableAsyncGC"))
-			vm_args.disableAsyncGC = (jint)SvIV(*mark);
-#ifdef KAFFE
-		    else if (strEQ(s, "libraryhome"))
-			vm_args.libraryhome = savepv(SvPV(*mark,PL_na));
-		    else if (strEQ(s, "classhome"))
-			vm_args.classhome = savepv(SvPV(*mark,PL_na));
-		    else if (strEQ(s, "enableVerboseJIT"))
-			vm_args.enableVerboseJIT = (jint)SvIV(*mark); 
-		    else if (strEQ(s, "enableVerboseClassloading"))
-			vm_args.enableVerboseClassloading = (jint)SvIV(*mark); 
-		    else if (strEQ(s, "enableVerboseCall"))
-			vm_args.enableVerboseCall = (jint)SvIV(*mark); 
-		    else if (strEQ(s, "allocHeapSize"))
-			vm_args.allocHeapSize = (jint)SvIV(*mark); 
-#else
-		    else if (strEQ(s, "verbose"))
-			vm_args.verbose = (jint)SvIV(*mark); 
-		    else if (strEQ(s, "debugging"))
-			vm_args.debugging = (jboolean)SvIV(*mark);
-		    else if (strEQ(s, "debugPort"))
-			vm_args.debugPort = (jint)SvIV(*mark); 
-#endif
-		    else
-			croak("unrecognized option: %s", s);
-		}
-
-		if (jpldebug) {
-		    fprintf(stderr, "Creating Java VM...\n");
-		    fprintf(stderr, "Working CLASSPATH: %s\n", 
-			vm_args.classpath);
-		}
-		if (JNI_CreateJavaVM(&RETVAL, &jplcurenv, &vm_args) < 0) {
-                  croak("Unable to create instance of JVM");
-                }
-		if (jpldebug) {
-		    fprintf(stderr, "Created Java VM.\n");
-		}
-
-	    }
-	}
-
+/*

+ * Copyright 1997, O'Reilly & Associate, Inc.

+ *

+ * This package may be copied under the same terms as Perl itself.

+ */

+

+#include "EXTERN.h"

+#include "perl.h"

+#include "XSUB.h"

+

+#include <stdio.h>

+#include <jni.h>

+

+#ifndef PERL_VERSION

+#  include <patchlevel.h>

+#  define PERL_REVISION		5

+#  define PERL_VERSION		PATCHLEVEL

+#  define PERL_SUBVERSION	SUBVERSION

+#endif

+

+#if PERL_REVISION == 5 && (PERL_VERSION < 4 || (PERL_VERSION == 4 && PERL_SUBVERSION <= 75))

+#  define PL_na		na

+#  define PL_sv_no	sv_no

+#  define PL_sv_undef	sv_undef

+#  define PL_dowarn	dowarn

+#endif

+

+#ifndef newSVpvn

+#  define newSVpvn(a,b)	newSVpv(a,b)

+#endif

+

+#ifndef pTHX

+#  define pTHX		void

+#  define pTHX_

+#  define aTHX

+#  define aTHX_

+#  define dTHX		extern int JNI___notused

+#endif

+

+#ifndef WIN32

+#  include <dlfcn.h>

+#endif

+

+#ifdef EMBEDDEDPERL

+extern JNIEnv* jplcurenv;

+extern int jpldebug;

+#else

+JNIEnv* jplcurenv;

+int jpldebug = 1;

+#endif

+

+#define SysRet jint

+

+#ifdef WIN32

+static void JNICALL call_my_exit(jint status)

+{

+    my_exit(status);

+}

+#else

+static void call_my_exit(jint status)

+{

+    my_exit(status);

+}

+#endif

+

+jvalue*

+makeargs(char *sig, SV** svp, int items)

+{

+    jvalue* jv = (jvalue*)safemalloc(sizeof(jvalue) * items);

+    int ix = 0;

+    char *s = sig;

+    JNIEnv* env = jplcurenv;

+    char *start;

+    STRLEN n_a;

+

+    if (jpldebug)

+	fprintf(stderr, "sig = %s, items = %d\n", sig, items);

+    if (*s++ != '(')

+	goto cleanup;

+

+    while (items--) {

+	SV *sv = *svp++;

+	start = s;

+	switch (*s++) {

+	case 'Z':

+	    jv[ix++].z = (jboolean)(SvIV(sv) != 0);

+	    break;

+	case 'B':

+	    jv[ix++].b = (jbyte)SvIV(sv);

+	    break;

+	case 'C':

+	    jv[ix++].c = (jchar)SvIV(sv);

+	    break;

+	case 'S':

+	    jv[ix++].s = (jshort)SvIV(sv);

+	    break;

+	case 'I':

+	    jv[ix++].i = (jint)SvIV(sv);

+	    break;

+	case 'J':

+	    jv[ix++].j = (jlong)SvNV(sv);

+	    break;

+	case 'F':

+	    jv[ix++].f = (jfloat)SvNV(sv);

+	    break;

+	case 'D':

+	    jv[ix++].d = (jdouble)SvNV(sv);

+	    break;

+	case '[':

+	    switch (*s++) {

+	    case 'Z':

+		if (SvROK(sv)) {

+		    SV* rv = (SV*)SvRV(sv);

+		    if (SvOBJECT(rv))

+			jv[ix++].l = (jobject)(void*)SvIV(rv);

+		    else if (SvTYPE(rv) == SVt_PVAV) {

+			jsize len = av_len((AV*)rv) + 1;

+			jboolean* buf = (jboolean*)malloc(len * sizeof(jboolean));

+			int i;

+			SV** esv;

+

+			jbooleanArray ja = (*env)->NewBooleanArray(env, len);

+			for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++)

+			    buf[i] = (jboolean)SvIV(*esv);

+			(*env)->SetBooleanArrayRegion(env, ja, 0, len, buf);

+			free((void*)buf);

+			jv[ix++].l = (jobject)ja;

+		    }

+		    else

+			jv[ix++].l = (jobject)(void*)0;

+		}

+		else if (SvPOK(sv)) {

+		    jsize len = sv_len(sv) / sizeof(jboolean);

+

+		    jbooleanArray ja = (*env)->NewBooleanArray(env, len);

+		    (*env)->SetBooleanArrayRegion(env, ja, 0, len, (jboolean*)SvPV(sv,n_a));

+		    jv[ix++].l = (jobject)ja;

+		}

+		else

+		    jv[ix++].l = (jobject)(void*)0;

+		break;

+	    case 'B':

+		if (SvROK(sv)) {

+		    SV* rv = (SV*)SvRV(sv);

+		    if (SvOBJECT(rv))

+			jv[ix++].l = (jobject)(void*)SvIV(rv);

+		    else if (SvTYPE(rv) == SVt_PVAV) {

+			jsize len = av_len((AV*)rv) + 1;

+			jbyte* buf = (jbyte*)malloc(len * sizeof(jbyte));

+			int i;

+			SV** esv;

+

+			jbyteArray ja = (*env)->NewByteArray(env, len);

+			for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++)

+			    buf[i] = (jbyte)SvIV(*esv);

+			(*env)->SetByteArrayRegion(env, ja, 0, len, buf);

+			free((void*)buf);

+			jv[ix++].l = (jobject)ja;

+		    }

+		    else

+			jv[ix++].l = (jobject)(void*)0;

+		}

+		else if (SvPOK(sv)) {

+		    jsize len = sv_len(sv) / sizeof(jbyte);

+

+		    jbyteArray ja = (*env)->NewByteArray(env, len);

+		    (*env)->SetByteArrayRegion(env, ja, 0, len, (jbyte*)SvPV(sv,n_a));

+		    jv[ix++].l = (jobject)ja;

+		}

+		else

+		    jv[ix++].l = (jobject)(void*)0;

+		break;

+	    case 'C':

+		if (SvROK(sv)) {

+		    SV* rv = (SV*)SvRV(sv);

+		    if (SvOBJECT(rv))

+			jv[ix++].l = (jobject)(void*)SvIV(rv);

+		    else if (SvTYPE(rv) == SVt_PVAV) {

+			jsize len = av_len((AV*)rv) + 1;

+			jchar* buf = (jchar*)malloc(len * sizeof(jchar));

+			int i;

+			SV** esv;

+

+			jcharArray ja = (*env)->NewCharArray(env, len);

+			for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++)

+			    buf[i] = (jchar)SvIV(*esv);

+			(*env)->SetCharArrayRegion(env, ja, 0, len, buf);

+			free((void*)buf);

+			jv[ix++].l = (jobject)ja;

+		    }

+		    else

+			jv[ix++].l = (jobject)(void*)0;

+		}

+		else if (SvPOK(sv)) {

+		    jsize len = sv_len(sv) / sizeof(jchar);

+

+		    jcharArray ja = (*env)->NewCharArray(env, len);

+		    (*env)->SetCharArrayRegion(env, ja, 0, len, (jchar*)SvPV(sv,n_a));

+		    jv[ix++].l = (jobject)ja;

+		}

+		else

+		    jv[ix++].l = (jobject)(void*)0;

+		break;

+	    case 'S':

+		if (SvROK(sv)) {

+		    SV* rv = (SV*)SvRV(sv);

+		    if (SvOBJECT(rv))

+			jv[ix++].l = (jobject)(void*)SvIV(rv);

+		    else if (SvTYPE(rv) == SVt_PVAV) {

+			jsize len = av_len((AV*)rv) + 1;

+			jshort* buf = (jshort*)malloc(len * sizeof(jshort));

+			int i;

+			SV** esv;

+

+			jshortArray ja = (*env)->NewShortArray(env, len);

+			for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++)

+			    buf[i] = (jshort)SvIV(*esv);

+			(*env)->SetShortArrayRegion(env, ja, 0, len, buf);

+			free((void*)buf);

+			jv[ix++].l = (jobject)ja;

+		    }

+		    else

+			jv[ix++].l = (jobject)(void*)0;

+		}

+		else if (SvPOK(sv)) {

+		    jsize len = sv_len(sv) / sizeof(jshort);

+

+		    jshortArray ja = (*env)->NewShortArray(env, len);

+		    (*env)->SetShortArrayRegion(env, ja, 0, len, (jshort*)SvPV(sv,n_a));

+		    jv[ix++].l = (jobject)ja;

+		}

+		else

+		    jv[ix++].l = (jobject)(void*)0;

+		break;

+	    case 'I':

+		if (SvROK(sv)) {

+		    SV* rv = (SV*)SvRV(sv);

+		    if (SvOBJECT(rv))

+			jv[ix++].l = (jobject)(void*)SvIV(rv);

+		    else if (SvTYPE(rv) == SVt_PVAV) {

+			jsize len = av_len((AV*)rv) + 1;

+			jint* buf = (jint*)malloc(len * sizeof(jint));

+			int i;

+			SV** esv;

+

+			jintArray ja = (*env)->NewIntArray(env, len);

+			for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++)

+			    buf[i] = (jint)SvIV(*esv);

+			(*env)->SetIntArrayRegion(env, ja, 0, len, buf);

+			free((void*)buf);

+			jv[ix++].l = (jobject)ja;

+		    }

+		    else

+			jv[ix++].l = (jobject)(void*)0;

+		}

+		else if (SvPOK(sv)) {

+		    jsize len = sv_len(sv) / sizeof(jint);

+

+		    jintArray ja = (*env)->NewIntArray(env, len);

+		    (*env)->SetIntArrayRegion(env, ja, 0, len, (jint*)SvPV(sv,n_a));

+		    jv[ix++].l = (jobject)ja;

+		}

+		else

+		    jv[ix++].l = (jobject)(void*)0;

+		break;

+	    case 'J':

+		if (SvROK(sv)) {

+		    SV* rv = (SV*)SvRV(sv);

+		    if (SvOBJECT(rv))

+			jv[ix++].l = (jobject)(void*)SvIV(rv);

+		    else if (SvTYPE(rv) == SVt_PVAV) {

+			jsize len = av_len((AV*)rv) + 1;

+			jlong* buf = (jlong*)malloc(len * sizeof(jlong));

+			int i;

+			SV** esv;

+

+			jlongArray ja = (*env)->NewLongArray(env, len);

+			for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++)

+			    buf[i] = (jlong)SvNV(*esv);

+			(*env)->SetLongArrayRegion(env, ja, 0, len, buf);

+			free((void*)buf);

+			jv[ix++].l = (jobject)ja;

+		    }

+		    else

+			jv[ix++].l = (jobject)(void*)0;

+		}

+		else if (SvPOK(sv)) {

+		    jsize len = sv_len(sv) / sizeof(jlong);

+

+		    jlongArray ja = (*env)->NewLongArray(env, len);

+		    (*env)->SetLongArrayRegion(env, ja, 0, len, (jlong*)SvPV(sv,n_a));

+		    jv[ix++].l = (jobject)ja;

+		}

+		else

+		    jv[ix++].l = (jobject)(void*)0;

+		break;

+	    case 'F':

+		if (SvROK(sv)) {

+		    SV* rv = (SV*)SvRV(sv);

+		    if (SvOBJECT(rv))

+			jv[ix++].l = (jobject)(void*)SvIV(rv);

+		    else if (SvTYPE(rv) == SVt_PVAV) {

+			jsize len = av_len((AV*)rv) + 1;

+			jfloat* buf = (jfloat*)malloc(len * sizeof(jfloat));

+			int i;

+			SV** esv;

+

+			jfloatArray ja = (*env)->NewFloatArray(env, len);

+			for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++)

+			    buf[i] = (jfloat)SvNV(*esv);

+			(*env)->SetFloatArrayRegion(env, ja, 0, len, buf);

+			free((void*)buf);

+			jv[ix++].l = (jobject)ja;

+		    }

+		    else

+			jv[ix++].l = (jobject)(void*)0;

+		}

+		else if (SvPOK(sv)) {

+		    jsize len = sv_len(sv) / sizeof(jfloat);

+

+		    jfloatArray ja = (*env)->NewFloatArray(env, len);

+		    (*env)->SetFloatArrayRegion(env, ja, 0, len, (jfloat*)SvPV(sv,n_a));

+		    jv[ix++].l = (jobject)ja;

+		}

+		else

+		    jv[ix++].l = (jobject)(void*)0;

+		break;

+	    case 'D':

+		if (SvROK(sv)) {

+		    SV* rv = (SV*)SvRV(sv);

+		    if (SvOBJECT(rv))

+			jv[ix++].l = (jobject)(void*)SvIV(rv);

+		    else if (SvTYPE(rv) == SVt_PVAV) {

+			jsize len = av_len((AV*)rv) + 1;

+			jdouble* buf = (jdouble*)malloc(len * sizeof(jdouble));

+			int i;

+			SV** esv;

+

+			jdoubleArray ja = (*env)->NewDoubleArray(env, len);

+			for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++)

+			    buf[i] = (jdouble)SvNV(*esv);

+			(*env)->SetDoubleArrayRegion(env, ja, 0, len, buf);

+			free((void*)buf);

+			jv[ix++].l = (jobject)ja;

+		    }

+		    else

+			jv[ix++].l = (jobject)(void*)0;

+		}

+		else if (SvPOK(sv)) {

+		    jsize len = sv_len(sv) / sizeof(jdouble);

+

+		    jdoubleArray ja = (*env)->NewDoubleArray(env, len);

+		    (*env)->SetDoubleArrayRegion(env, ja, 0, len, (jdouble*)SvPV(sv,n_a));

+		    jv[ix++].l = (jobject)ja;

+		}

+		else

+		    jv[ix++].l = (jobject)(void*)0;

+		break;

+	    case 'L':

+		while (*s != ';') s++;

+		s++;

+		if (strnEQ(start, "[Ljava/lang/String;", 19)) {

+		    if (SvROK(sv)) {

+			SV* rv = (SV*)SvRV(sv);

+			if (SvOBJECT(rv))

+			    jv[ix++].l = (jobject)(void*)SvIV(rv);

+			else if (SvTYPE(rv) == SVt_PVAV) {

+			    jsize len = av_len((AV*)rv) + 1;

+			    int i;

+			    SV** esv;

+			    static jclass jcl = 0;

+			    jobjectArray ja;

+

+			    if (!jcl)

+				jcl = (*env)->FindClass(env, "java/lang/String");

+			    ja = (*env)->NewObjectArray(env, len, jcl, 0);

+			    for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++) {

+				jobject str = (jobject)(*env)->NewStringUTF(env, SvPV(*esv,n_a));

+				(*env)->SetObjectArrayElement(env, ja, i, str);

+			    }

+			    jv[ix++].l = (jobject)ja;

+			}

+			else

+			    jv[ix++].l = (jobject)(void*)0;

+		    }

+		    else

+			jv[ix++].l = (jobject)(void*)0;

+		    break;

+		}

+		/* FALL THROUGH */

+	    default:

+		if (SvROK(sv)) {

+		    SV* rv = (SV*)SvRV(sv);

+		    if (SvOBJECT(rv))

+			jv[ix++].l = (jobject)(void*)SvIV(rv);

+		    else if (SvTYPE(rv) == SVt_PVAV) {

+			jsize len = av_len((AV*)rv) + 1;

+			int i;

+			SV** esv;

+		       static jclass jcl = 0;

+			jobjectArray ja;

+

+			if (!jcl)

+			    jcl = (*env)->FindClass(env, "java/lang/Object");

+			ja = (*env)->NewObjectArray(env, len, jcl, 0);

+			for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++) {

+			    if (SvROK(*esv) && (rv = SvRV(*esv)) && SvOBJECT(rv)) {

+				(*env)->SetObjectArrayElement(env, ja, i, (jobject)(void*)SvIV(rv));

+			    }

+			    else {

+				jobject str = (jobject)(*env)->NewStringUTF(env, SvPV(*esv,n_a));

+				(*env)->SetObjectArrayElement(env, ja, i, str);

+			    }

+			}

+			jv[ix++].l = (jobject)ja;

+		    }

+		    else

+			jv[ix++].l = (jobject)(void*)0;

+		}

+		else

+		    jv[ix++].l = (jobject)(void*)0;

+		break;

+	    }

+	    break;

+	case 'L':

+	    if (!SvROK(sv) || strnEQ(s, "java/lang/String;", 17)) {

+		s += 17;

+		jv[ix++].l = (jobject)(*env)->NewStringUTF(env, (char*) SvPV(sv,n_a));

+		break;

+	    }

+	    while (*s != ';') s++;

+	    s++;

+	    if (SvROK(sv)) {

+		SV* rv = SvRV(sv);

+		jv[ix++].l = (jobject)(void*)SvIV(rv);

+	    }

+	    break;

+	case ')':

+	    croak("too many arguments, signature: %s", sig);

+	    goto cleanup;

+	default:

+	    croak("panic: malformed signature: %s", s-1);

+	    goto cleanup;

+	}

+

+    }

+    if (*s != ')') {

+	croak("not enough arguments, signature: %s", sig);

+	goto cleanup;

+    }

+    return jv;

+

+cleanup:

+    safefree((char*)jv);

+    return 0;

+}

+

+static int

+not_here(char *s)

+{

+    croak("%s not implemented on this architecture", s);

+    return -1;

+}

+

+static double

+constant(char *name, int arg)

+{

+    errno = 0;

+    switch (*name) {

+    case 'A':

+	break;

+    case 'B':

+	break;

+    case 'C':

+	break;

+    case 'D':

+	break;

+    case 'E':

+	break;

+    case 'F':

+	break;

+    case 'G':

+	break;

+    case 'H':

+	break;

+    case 'I':

+	break;

+    case 'J':

+	if (strEQ(name, "JNI_ABORT"))

+#ifdef JNI_ABORT

+	    return JNI_ABORT;

+#else

+	    goto not_there;

+#endif

+	if (strEQ(name, "JNI_COMMIT"))

+#ifdef JNI_COMMIT

+	    return JNI_COMMIT;

+#else

+	    goto not_there;

+#endif

+	if (strEQ(name, "JNI_ERR"))

+#ifdef JNI_ERR

+	    return JNI_ERR;

+#else

+	    goto not_there;

+#endif

+	if (strEQ(name, "JNI_FALSE"))

+#ifdef JNI_FALSE

+	    return JNI_FALSE;

+#else

+	    goto not_there;

+#endif

+	if (strEQ(name, "JNI_H"))

+#ifdef JNI_H

+#ifdef WIN32

+	    return 1;

+#else

+	    return JNI_H;

+#endif

+#else

+	    goto not_there;

+#endif

+	if (strEQ(name, "JNI_OK"))

+#ifdef JNI_OK

+	    return JNI_OK;

+#else

+	    goto not_there;

+#endif

+	if (strEQ(name, "JNI_TRUE"))

+#ifdef JNI_TRUE

+	    return JNI_TRUE;

+#else

+	    goto not_there;

+#endif

+	break;

+    case 'K':

+	break;

+    case 'L':

+	break;

+    case 'M':

+	break;

+    case 'N':

+	break;

+    case 'O':

+	break;

+    case 'P':

+	break;

+    case 'Q':

+	break;

+    case 'R':

+	break;

+    case 'S':

+	break;

+    case 'T':

+	break;

+    case 'U':

+	break;

+    case 'V':

+	break;

+    case 'W':

+	break;

+    case 'X':

+	break;

+    case 'Y':

+	break;

+    case 'Z':

+	break;

+    }

+    errno = EINVAL;

+    return 0;

+

+not_there:

+    errno = ENOENT;

+    return 0;

+}

+

+#define FETCHENV jplcurenv

+#define RESTOREENV jplcurenv = env

+

+MODULE = JNI		PACKAGE = JNI		

+

+PROTOTYPES: ENABLE

+

+double

+constant(name,arg)

+	char *		name

+	int		arg

+

+jint

+GetVersion()

+	JNIEnv *		env = FETCHENV;

+    CODE:

+	{

+	    RETVAL = (*env)->GetVersion(env);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jclass

+DefineClass(name, loader, buf)

+	JNIEnv *		env = FETCHENV;

+	STRLEN			tmplen = NO_INIT;

+	jsize			buf_len_ = NO_INIT;

+	const char *		name

+	jobject			loader

+	const jbyte *		buf

+    CODE:

+	{

+#ifdef KAFFE

+	    RETVAL = (*env)->DefineClass(env,  loader, buf, (jsize)buf_len_);

+#else

+	    RETVAL = (*env)->DefineClass(env,  name, loader, buf, (jsize)buf_len_); 

+#endif

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jclass

+FindClass(name)

+	JNIEnv *		env = FETCHENV;

+	const char *		name

+    CODE:

+	{

+	    RETVAL = (*env)->FindClass(env,  name);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jclass

+GetSuperclass(sub)

+	JNIEnv *		env = FETCHENV;

+	jclass			sub

+    CODE:

+	{

+	    RETVAL = (*env)->GetSuperclass(env,  sub);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jboolean

+IsAssignableFrom(sub, sup)

+	JNIEnv *		env = FETCHENV;

+	jclass			sub

+	jclass			sup

+    CODE:

+	{

+	    RETVAL = (*env)->IsAssignableFrom(env,  sub, sup);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+SysRet

+Throw(obj)

+	JNIEnv *		env = FETCHENV;

+	jthrowable		obj

+    CODE:

+	{

+	    RETVAL = (*env)->Throw(env,  obj);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL    

+

+SysRet

+ThrowNew(clazz, msg)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	const char *		msg

+    CODE:

+	{

+	    RETVAL = (*env)->ThrowNew(env,  clazz, msg);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jthrowable

+ExceptionOccurred()

+	JNIEnv *		env = FETCHENV;

+    CODE:

+	{

+	    RETVAL = (*env)->ExceptionOccurred(env);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+void

+ExceptionDescribe()

+	JNIEnv *		env = FETCHENV;

+    CODE:

+	{

+	    (*env)->ExceptionDescribe(env);

+	    RESTOREENV;

+	}

+

+void

+ExceptionClear()

+	JNIEnv *		env = FETCHENV;

+    CODE:

+	{

+	    (*env)->ExceptionClear(env);

+	    RESTOREENV;

+	}

+

+void

+FatalError(msg)

+	JNIEnv *		env = FETCHENV;

+	const char *		msg

+    CODE:

+	{

+	    (*env)->FatalError(env,  msg);

+	    RESTOREENV;

+	}

+

+jobject

+NewGlobalRef(lobj)

+	JNIEnv *		env = FETCHENV;

+	jobject			lobj

+    CODE:

+	{

+	    RETVAL = (*env)->NewGlobalRef(env, lobj);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+void

+DeleteGlobalRef(gref)

+	JNIEnv *		env = FETCHENV;

+	jobject			gref

+    CODE:

+	{

+	    (*env)->DeleteGlobalRef(env, gref);

+	    RESTOREENV;

+	}

+

+void

+DeleteLocalRef(obj)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+    CODE:

+	{

+	    (*env)->DeleteLocalRef(env,  obj);

+	    RESTOREENV;

+	}

+

+jboolean

+IsSameObject(obj1,obj2)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj1

+	jobject			obj2

+    CODE:

+	{

+	    RETVAL = (*env)->IsSameObject(env, obj1,obj2);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jobject

+AllocObject(clazz)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+    CODE:

+	{

+	    RETVAL = (*env)->AllocObject(env, clazz);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jobject

+NewObject(clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->NewObjectA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jobject

+NewObjectA(clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->NewObjectA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jclass

+GetObjectClass(obj)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+    CODE:

+	{

+	    RETVAL = (*env)->GetObjectClass(env, obj);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jboolean

+IsInstanceOf(obj,clazz)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+    CODE:

+	{

+	    RETVAL = (*env)->IsInstanceOf(env, obj,clazz);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jmethodID

+GetMethodID(clazz,name,sig)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	const char *		name

+	const char *		sig

+    CODE:

+	{

+	    RETVAL = (*env)->GetMethodID(env, clazz,name,sig);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jobject

+CallObjectMethod(obj,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallObjectMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jobject

+CallObjectMethodA(obj,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallObjectMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jboolean

+CallBooleanMethod(obj,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallBooleanMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jboolean

+CallBooleanMethodA(obj,methodID, args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallBooleanMethodA(env, obj,methodID, args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jbyte

+CallByteMethod(obj,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallByteMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jbyte

+CallByteMethodA(obj,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallByteMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jchar

+CallCharMethod(obj,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallCharMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jchar

+CallCharMethodA(obj,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallCharMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jshort

+CallShortMethod(obj,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallShortMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jshort

+CallShortMethodA(obj,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallShortMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jint

+CallIntMethod(obj,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallIntMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jint

+CallIntMethodA(obj,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallIntMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jlong

+CallLongMethod(obj,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallLongMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jlong

+CallLongMethodA(obj,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallLongMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jfloat

+CallFloatMethod(obj,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallFloatMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jfloat

+CallFloatMethodA(obj,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallFloatMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jdouble

+CallDoubleMethod(obj,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallDoubleMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jdouble

+CallDoubleMethodA(obj,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallDoubleMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+void

+CallVoidMethod(obj,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    (*env)->CallVoidMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+

+void

+CallVoidMethodA(obj,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    (*env)->CallVoidMethodA(env, obj,methodID,args);

+	    RESTOREENV;

+	}

+

+jobject

+CallNonvirtualObjectMethod(obj,clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallNonvirtualObjectMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jobject

+CallNonvirtualObjectMethodA(obj,clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallNonvirtualObjectMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jboolean

+CallNonvirtualBooleanMethod(obj,clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallNonvirtualBooleanMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jboolean

+CallNonvirtualBooleanMethodA(obj,clazz,methodID, args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallNonvirtualBooleanMethodA(env, obj,clazz,methodID, args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jbyte

+CallNonvirtualByteMethod(obj,clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallNonvirtualByteMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jbyte

+CallNonvirtualByteMethodA(obj,clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallNonvirtualByteMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jchar

+CallNonvirtualCharMethod(obj,clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallNonvirtualCharMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jchar

+CallNonvirtualCharMethodA(obj,clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallNonvirtualCharMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jshort

+CallNonvirtualShortMethod(obj,clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallNonvirtualShortMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jshort

+CallNonvirtualShortMethodA(obj,clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallNonvirtualShortMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jint

+CallNonvirtualIntMethod(obj,clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallNonvirtualIntMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jint

+CallNonvirtualIntMethodA(obj,clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallNonvirtualIntMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jlong

+CallNonvirtualLongMethod(obj,clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallNonvirtualLongMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jlong

+CallNonvirtualLongMethodA(obj,clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallNonvirtualLongMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jfloat

+CallNonvirtualFloatMethod(obj,clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallNonvirtualFloatMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jfloat

+CallNonvirtualFloatMethodA(obj,clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallNonvirtualFloatMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jdouble

+CallNonvirtualDoubleMethod(obj,clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallNonvirtualDoubleMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jdouble

+CallNonvirtualDoubleMethodA(obj,clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallNonvirtualDoubleMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+void

+CallNonvirtualVoidMethod(obj,clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    (*env)->CallNonvirtualVoidMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+

+void

+CallNonvirtualVoidMethodA(obj,clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    (*env)->CallNonvirtualVoidMethodA(env, obj,clazz,methodID,args);

+	    RESTOREENV;

+	}

+

+jfieldID

+GetFieldID(clazz,name,sig)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	const char *		name

+	const char *		sig

+    CODE:

+	{

+	    RETVAL = (*env)->GetFieldID(env, clazz,name,sig);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jobject

+GetObjectField(obj,fieldID)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jfieldID		fieldID

+	char *			sig = 0;

+    CODE:

+	{

+	    RETVAL = (*env)->GetObjectField(env, obj,fieldID);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jboolean

+GetBooleanField(obj,fieldID)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jfieldID		fieldID

+	char *			sig = 0;

+    CODE:

+	{

+	    RETVAL = (*env)->GetBooleanField(env, obj,fieldID);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jbyte

+GetByteField(obj,fieldID)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jfieldID		fieldID

+	char *			sig = 0;

+    CODE:

+	{

+	    RETVAL = (*env)->GetByteField(env, obj,fieldID);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jchar

+GetCharField(obj,fieldID)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jfieldID		fieldID

+	char *			sig = 0;

+    CODE:

+	{

+	    RETVAL = (*env)->GetCharField(env, obj,fieldID);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jshort

+GetShortField(obj,fieldID)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jfieldID		fieldID

+	char *			sig = 0;

+    CODE:

+	{

+	    RETVAL = (*env)->GetShortField(env, obj,fieldID);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jint

+GetIntField(obj,fieldID)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jfieldID		fieldID

+	char *			sig = 0;

+    CODE:

+	{

+	    RETVAL = (*env)->GetIntField(env, obj,fieldID);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jlong

+GetLongField(obj,fieldID)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jfieldID		fieldID

+	char *			sig = 0;

+    CODE:

+	{

+	    RETVAL = (*env)->GetLongField(env, obj,fieldID);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jfloat

+GetFloatField(obj,fieldID)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jfieldID		fieldID

+	char *			sig = 0;

+    CODE:

+	{

+	    RETVAL = (*env)->GetFloatField(env, obj,fieldID);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jdouble

+GetDoubleField(obj,fieldID)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jfieldID		fieldID

+	char *			sig = 0;

+    CODE:

+	{

+	    RETVAL = (*env)->GetDoubleField(env, obj,fieldID);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+void

+SetObjectField(obj,fieldID,val)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jfieldID		fieldID

+	char *			sig = 0;

+	jobject			val

+    CODE:

+	{

+	    (*env)->SetObjectField(env, obj,fieldID,val);

+	    RESTOREENV;

+	}

+

+void

+SetBooleanField(obj,fieldID,val)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jfieldID		fieldID

+	char *			sig = 0;

+	jboolean		val

+    CODE:

+	{

+	    (*env)->SetBooleanField(env, obj,fieldID,val);

+	    RESTOREENV;

+	}

+

+void

+SetByteField(obj,fieldID,val)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jfieldID		fieldID

+	char *			sig = 0;

+	jbyte			val

+    CODE:

+	{

+	    (*env)->SetByteField(env, obj,fieldID,val);

+	    RESTOREENV;

+	}

+

+void

+SetCharField(obj,fieldID,val)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jfieldID		fieldID

+	char *			sig = 0;

+	jchar			val

+    CODE:

+	{

+	    (*env)->SetCharField(env, obj,fieldID,val);

+	    RESTOREENV;

+	}

+

+void

+SetShortField(obj,fieldID,val)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jfieldID		fieldID

+	char *			sig = 0;

+	jshort			val

+    CODE:

+	{

+	    (*env)->SetShortField(env, obj,fieldID,val);

+	    RESTOREENV;

+	}

+

+void

+SetIntField(obj,fieldID,val)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jfieldID		fieldID

+	char *			sig = 0;

+	jint			val

+    CODE:

+	{

+	    (*env)->SetIntField(env, obj,fieldID,val);

+	    RESTOREENV;

+	}

+

+void

+SetLongField(obj,fieldID,val)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jfieldID		fieldID

+	char *			sig = 0;

+	jlong			val

+    CODE:

+	{

+	    (*env)->SetLongField(env, obj,fieldID,val);

+	    RESTOREENV;

+	}

+

+void

+SetFloatField(obj,fieldID,val)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jfieldID		fieldID

+	char *			sig = 0;

+	jfloat			val

+    CODE:

+	{

+	    (*env)->SetFloatField(env, obj,fieldID,val);

+	    RESTOREENV;

+	}

+

+void

+SetDoubleField(obj,fieldID,val)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+	jfieldID		fieldID

+	char *			sig = 0;

+	jdouble			val

+    CODE:

+	{

+	    (*env)->SetDoubleField(env, obj,fieldID,val);

+	    RESTOREENV;

+	}

+

+jmethodID

+GetStaticMethodID(clazz,name,sig)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	const char *		name

+	const char *		sig

+    CODE:

+	{

+	    RETVAL = (*env)->GetStaticMethodID(env, clazz,name,sig);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jobject

+CallStaticObjectMethod(clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallStaticObjectMethodA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jobject

+CallStaticObjectMethodA(clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallStaticObjectMethodA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jboolean

+CallStaticBooleanMethod(clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallStaticBooleanMethodA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jboolean

+CallStaticBooleanMethodA(clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallStaticBooleanMethodA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jbyte

+CallStaticByteMethod(clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallStaticByteMethodA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jbyte

+CallStaticByteMethodA(clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallStaticByteMethodA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jchar

+CallStaticCharMethod(clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallStaticCharMethodA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jchar

+CallStaticCharMethodA(clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallStaticCharMethodA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jshort

+CallStaticShortMethod(clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallStaticShortMethodA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jshort

+CallStaticShortMethodA(clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallStaticShortMethodA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jint

+CallStaticIntMethod(clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallStaticIntMethodA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jint

+CallStaticIntMethodA(clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallStaticIntMethodA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jlong

+CallStaticLongMethod(clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallStaticLongMethodA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jlong

+CallStaticLongMethodA(clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallStaticLongMethodA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jfloat

+CallStaticFloatMethod(clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallStaticFloatMethodA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jfloat

+CallStaticFloatMethodA(clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallStaticFloatMethodA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jdouble

+CallStaticDoubleMethod(clazz,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    RETVAL = (*env)->CallStaticDoubleMethodA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jdouble

+CallStaticDoubleMethodA(clazz,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    RETVAL = (*env)->CallStaticDoubleMethodA(env, clazz,methodID,args);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+void

+CallStaticVoidMethod(cls,methodID,...)

+	JNIEnv *		env = FETCHENV;

+	jclass			cls

+	jmethodID		methodID

+	char *			sig = 0;

+	int			argoff = $min_args;

+    CODE:

+	{

+	    jvalue * args = makeargs(sig, &ST(argoff), items - argoff);

+	    (*env)->CallStaticVoidMethodA(env, cls,methodID,args);

+	    RESTOREENV;

+	}

+

+void

+CallStaticVoidMethodA(cls,methodID,args)

+	JNIEnv *		env = FETCHENV;

+	jclass			cls

+	jmethodID		methodID

+	char *			sig = 0;

+	jvalue *		args

+    CODE:

+	{

+	    (*env)->CallStaticVoidMethodA(env, cls,methodID,args);

+	    RESTOREENV;

+	}

+

+jfieldID

+GetStaticFieldID(clazz,name,sig)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	const char *		name

+	const char *		sig

+    CODE:

+	{

+	    RETVAL = (*env)->GetStaticFieldID(env, clazz,name,sig);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jobject

+GetStaticObjectField(clazz,fieldID)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jfieldID		fieldID

+	char *			sig = 0;

+    CODE:

+	{

+	    RETVAL = (*env)->GetStaticObjectField(env, clazz,fieldID);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jboolean

+GetStaticBooleanField(clazz,fieldID)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jfieldID		fieldID

+	char *			sig = 0;

+    CODE:

+	{

+	    RETVAL = (*env)->GetStaticBooleanField(env, clazz,fieldID);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jbyte

+GetStaticByteField(clazz,fieldID)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jfieldID		fieldID

+	char *			sig = 0;

+    CODE:

+	{

+	    RETVAL = (*env)->GetStaticByteField(env, clazz,fieldID);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jchar

+GetStaticCharField(clazz,fieldID)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jfieldID		fieldID

+	char *			sig = 0;

+    CODE:

+	{

+	    RETVAL = (*env)->GetStaticCharField(env, clazz,fieldID);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jshort

+GetStaticShortField(clazz,fieldID)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jfieldID		fieldID

+	char *			sig = 0;

+    CODE:

+	{

+	    RETVAL = (*env)->GetStaticShortField(env, clazz,fieldID);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jint

+GetStaticIntField(clazz,fieldID)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jfieldID		fieldID

+	char *			sig = 0;

+    CODE:

+	{

+	    RETVAL = (*env)->GetStaticIntField(env, clazz,fieldID);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jlong

+GetStaticLongField(clazz,fieldID)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jfieldID		fieldID

+	char *			sig = 0;

+    CODE:

+	{

+	    RETVAL = (*env)->GetStaticLongField(env, clazz,fieldID);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jfloat

+GetStaticFloatField(clazz,fieldID)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jfieldID		fieldID

+	char *			sig = 0;

+    CODE:

+	{

+	    RETVAL = (*env)->GetStaticFloatField(env, clazz,fieldID);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jdouble

+GetStaticDoubleField(clazz,fieldID)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jfieldID		fieldID

+	char *			sig = 0;

+    CODE:

+	{

+	    RETVAL = (*env)->GetStaticDoubleField(env, clazz,fieldID);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+void

+SetStaticObjectField(clazz,fieldID,value)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jfieldID		fieldID

+	char *			sig = 0;

+	jobject			value

+    CODE:

+	{

+	  (*env)->SetStaticObjectField(env, clazz,fieldID,value);

+	    RESTOREENV;

+	}

+

+void

+SetStaticBooleanField(clazz,fieldID,value)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jfieldID		fieldID

+	char *			sig = 0;

+	jboolean		value

+    CODE:

+	{

+	  (*env)->SetStaticBooleanField(env, clazz,fieldID,value);

+	    RESTOREENV;

+	}

+

+void

+SetStaticByteField(clazz,fieldID,value)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jfieldID		fieldID

+	char *			sig = 0;

+	jbyte			value

+    CODE:

+	{

+	  (*env)->SetStaticByteField(env, clazz,fieldID,value);

+	    RESTOREENV;

+	}

+

+void

+SetStaticCharField(clazz,fieldID,value)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jfieldID		fieldID

+	char *			sig = 0;

+	jchar			value

+    CODE:

+	{

+	  (*env)->SetStaticCharField(env, clazz,fieldID,value);

+	    RESTOREENV;

+	}

+

+void

+SetStaticShortField(clazz,fieldID,value)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jfieldID		fieldID

+	char *			sig = 0;

+	jshort			value

+    CODE:

+	{

+	  (*env)->SetStaticShortField(env, clazz,fieldID,value);

+	    RESTOREENV;

+	}

+

+void

+SetStaticIntField(clazz,fieldID,value)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jfieldID		fieldID

+	char *			sig = 0;

+	jint			value

+    CODE:

+	{

+	  (*env)->SetStaticIntField(env, clazz,fieldID,value);

+	    RESTOREENV;

+	}

+

+void

+SetStaticLongField(clazz,fieldID,value)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jfieldID		fieldID

+	char *			sig = 0;

+	jlong			value

+    CODE:

+	{

+	  (*env)->SetStaticLongField(env, clazz,fieldID,value);

+	    RESTOREENV;

+	}

+

+void

+SetStaticFloatField(clazz,fieldID,value)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jfieldID		fieldID

+	char *			sig = 0;

+	jfloat			value

+    CODE:

+	{

+	  (*env)->SetStaticFloatField(env, clazz,fieldID,value);

+	    RESTOREENV;

+	}

+

+void

+SetStaticDoubleField(clazz,fieldID,value)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	jfieldID		fieldID

+	char *			sig = 0;

+	jdouble			value

+    CODE:

+	{

+	  (*env)->SetStaticDoubleField(env, clazz,fieldID,value);

+	    RESTOREENV;

+	}

+

+jstring

+NewString(unicode)

+	JNIEnv *		env = FETCHENV;

+	STRLEN			tmplen = NO_INIT;

+	jsize			unicode_len_ = NO_INIT;

+	const jchar *		unicode

+    CODE:

+	{

+	    RETVAL = (*env)->NewString(env, unicode, unicode_len_);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jsize

+GetStringLength(str)

+	JNIEnv *		env = FETCHENV;

+	jstring			str

+    CODE:

+	{

+	    RETVAL = (*env)->GetStringLength(env, str);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+const jchar *

+GetStringChars(str)

+	JNIEnv *		env = FETCHENV;

+	jstring			str

+	jboolean		isCopy = NO_INIT;

+	jsize 			RETVAL_len_ = NO_INIT;

+    CODE:

+	{

+	    RETVAL = (*env)->GetStringChars(env, str,&isCopy);

+	    RETVAL_len_ = (*env)->GetStringLength(env, str);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+    CLEANUP:

+	    (*env)->ReleaseStringChars(env, str,RETVAL);

+

+jstring

+NewStringUTF(utf)

+	JNIEnv *		env = FETCHENV;

+	const char *		utf

+    CODE:

+	{

+	    RETVAL = (*env)->NewStringUTF(env, utf);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jsize

+GetStringUTFLength(str)

+	JNIEnv *		env = FETCHENV;

+	jstring			str

+    CODE:

+	{

+	    RETVAL = (*env)->GetStringUTFLength(env, str);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+const char *

+GetStringUTFChars(str)

+	JNIEnv *		env = FETCHENV;

+	jstring			str

+	jboolean		isCopy = NO_INIT;

+    CODE:

+	{

+	    RETVAL = (*env)->GetStringUTFChars(env, str,&isCopy);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+    CLEANUP:

+	(*env)->ReleaseStringUTFChars(env, str, RETVAL);

+

+

+jsize

+GetArrayLength(array)

+	JNIEnv *		env = FETCHENV;

+	jarray			array

+    CODE:

+	{

+	    RETVAL = (*env)->GetArrayLength(env, array);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jobjectArray

+NewObjectArray(len,clazz,init)

+	JNIEnv *		env = FETCHENV;

+	jsize			len

+	jclass			clazz

+	jobject			init

+    CODE:

+	{

+	    RETVAL = (*env)->NewObjectArray(env, len,clazz,init);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jobject

+GetObjectArrayElement(array,index)

+	JNIEnv *		env = FETCHENV;

+	jobjectArray		array

+	jsize			index

+    CODE:

+	{

+	    RETVAL = (*env)->GetObjectArrayElement(env, array,index);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+void

+SetObjectArrayElement(array,index,val)

+	JNIEnv *		env = FETCHENV;

+	jobjectArray		array

+	jsize			index

+	jobject			val

+    CODE:

+	{

+	    (*env)->SetObjectArrayElement(env, array,index,val);

+	    RESTOREENV;

+	}

+

+jbooleanArray

+NewBooleanArray(len)

+	JNIEnv *		env = FETCHENV;

+	jsize			len

+    CODE:

+	{

+	    RETVAL = (*env)->NewBooleanArray(env, len);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jbyteArray

+NewByteArray(len)

+	JNIEnv *		env = FETCHENV;

+	jsize			len

+    CODE:

+	{

+	    RETVAL = (*env)->NewByteArray(env, len);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jcharArray

+NewCharArray(len)

+	JNIEnv *		env = FETCHENV;

+	jsize			len

+    CODE:

+	{

+	    RETVAL = (*env)->NewCharArray(env, len);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jshortArray

+NewShortArray(len)

+	JNIEnv *		env = FETCHENV;

+	jsize			len

+    CODE:

+	{

+	    RETVAL = (*env)->NewShortArray(env, len);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jintArray

+NewIntArray(len)

+	JNIEnv *		env = FETCHENV;

+	jsize			len

+    CODE:

+	{

+	    RETVAL = (*env)->NewIntArray(env, len);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jlongArray

+NewLongArray(len)

+	JNIEnv *		env = FETCHENV;

+	jsize			len

+    CODE:

+	{

+	    RETVAL = (*env)->NewLongArray(env, len);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jfloatArray

+NewFloatArray(len)

+	JNIEnv *		env = FETCHENV;

+	jsize			len

+    CODE:

+	{

+	    RETVAL = (*env)->NewFloatArray(env, len);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jdoubleArray

+NewDoubleArray(len)

+	JNIEnv *		env = FETCHENV;

+	jsize			len

+    CODE:

+	{

+	    RETVAL = (*env)->NewDoubleArray(env, len);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+jboolean *

+GetBooleanArrayElements(array)

+	JNIEnv *		env = FETCHENV;

+	jsize			RETVAL_len_ = NO_INIT;

+	jbooleanArray		array

+	jboolean		isCopy = NO_INIT;

+    PPCODE:

+	{

+	    RETVAL = (*env)->GetBooleanArrayElements(env, array,&isCopy);

+	    RETVAL_len_ = (*env)->GetArrayLength(env, array);

+	    if (GIMME == G_ARRAY) {

+		int i;

+		jboolean* r = RETVAL;

+		EXTEND(sp, RETVAL_len_);

+		for (i = RETVAL_len_; i; --i) {

+		    PUSHs(sv_2mortal(newSViv(*r++)));

+		}

+	    }

+	    else {

+		if (RETVAL_len_) {

+		    PUSHs(sv_2mortal(newSVpvn((char*)RETVAL,

+			(STRLEN)RETVAL_len_ * sizeof(jboolean))));

+		}

+		else

+		    PUSHs(&PL_sv_no);

+	    }

+	    (*env)->ReleaseBooleanArrayElements(env, array,RETVAL,JNI_ABORT);

+	    RESTOREENV;

+	}

+

+jbyte *

+GetByteArrayElements(array)

+	JNIEnv *		env = FETCHENV;

+	jsize			RETVAL_len_ = NO_INIT;

+	jbyteArray		array

+	jboolean		isCopy = NO_INIT;

+    PPCODE:

+	{

+	    RETVAL = (*env)->GetByteArrayElements(env, array,&isCopy);

+	    RETVAL_len_ = (*env)->GetArrayLength(env, array);

+	    if (GIMME == G_ARRAY) {

+		int i;

+		jbyte* r = RETVAL;

+		EXTEND(sp, RETVAL_len_);

+		for (i = RETVAL_len_; i; --i) {

+		    PUSHs(sv_2mortal(newSViv(*r++)));

+		}

+	    }

+	    else {

+		if (RETVAL_len_) {

+		    PUSHs(sv_2mortal(newSVpvn((char*)RETVAL,

+			(STRLEN)RETVAL_len_ * sizeof(jbyte))));

+		}

+		else

+		    PUSHs(&PL_sv_no);

+	    }

+	    (*env)->ReleaseByteArrayElements(env, array,RETVAL,JNI_ABORT);

+	    RESTOREENV;

+	}

+

+jchar *

+GetCharArrayElements(array)

+	JNIEnv *		env = FETCHENV;

+	jsize			RETVAL_len_ = NO_INIT;

+	jcharArray		array

+	jboolean		isCopy = NO_INIT;

+    PPCODE:

+	{

+	    RETVAL = (*env)->GetCharArrayElements(env, array,&isCopy);

+	    RETVAL_len_ = (*env)->GetArrayLength(env, array);

+	    if (GIMME == G_ARRAY) {

+		int i;

+		jchar* r = RETVAL;

+		EXTEND(sp, RETVAL_len_);

+		for (i = RETVAL_len_; i; --i) {

+		    PUSHs(sv_2mortal(newSViv(*r++)));

+		}

+	    }

+	    else {

+		if (RETVAL_len_) {

+		    PUSHs(sv_2mortal(newSVpvn((char*)RETVAL,

+			(STRLEN)RETVAL_len_ * sizeof(jchar))));

+		}

+		else

+		    PUSHs(&PL_sv_no);

+	    }

+	    (*env)->ReleaseCharArrayElements(env, array,RETVAL,JNI_ABORT);

+	    RESTOREENV;

+	}

+

+jshort *

+GetShortArrayElements(array)

+	JNIEnv *		env = FETCHENV;

+	jsize			RETVAL_len_ = NO_INIT;

+	jshortArray		array

+	jboolean		isCopy = NO_INIT;

+    PPCODE:

+	{

+	    RETVAL = (*env)->GetShortArrayElements(env, array,&isCopy);

+	    RETVAL_len_ = (*env)->GetArrayLength(env, array);

+	    if (GIMME == G_ARRAY) {

+		int i;

+		jshort* r = RETVAL;

+		EXTEND(sp, RETVAL_len_);

+		for (i = RETVAL_len_; i; --i) {

+		    PUSHs(sv_2mortal(newSViv(*r++)));

+		}

+	    }

+	    else {

+		if (RETVAL_len_) {

+		    PUSHs(sv_2mortal(newSVpvn((char*)RETVAL,

+			(STRLEN)RETVAL_len_ * sizeof(jshort))));

+		}

+		else

+		    PUSHs(&PL_sv_no);

+	    }

+	    (*env)->ReleaseShortArrayElements(env, array,RETVAL,JNI_ABORT);

+	    RESTOREENV;

+	}

+

+jint *

+GetIntArrayElements(array)

+	JNIEnv *		env = FETCHENV;

+	jsize			RETVAL_len_ = NO_INIT;

+	jintArray		array

+	jboolean		isCopy = NO_INIT;

+    PPCODE:

+	{

+	    RETVAL = (*env)->GetIntArrayElements(env, array,&isCopy);

+	    RETVAL_len_ = (*env)->GetArrayLength(env, array);

+	    if (GIMME == G_ARRAY) {

+		int i;

+		jint* r = RETVAL;

+		EXTEND(sp, RETVAL_len_);

+		for (i = RETVAL_len_; i; --i) {

+		    PUSHs(sv_2mortal(newSViv(*r++)));

+		}

+	    }

+	    else {

+		if (RETVAL_len_) {

+		    PUSHs(sv_2mortal(newSVpvn((char*)RETVAL,

+			(STRLEN)RETVAL_len_ * sizeof(jint))));

+		}

+		else

+		    PUSHs(&PL_sv_no);

+	    }

+	    (*env)->ReleaseIntArrayElements(env, array,RETVAL,JNI_ABORT);

+	    RESTOREENV;

+	}

+

+jlong *

+GetLongArrayElements(array)

+	JNIEnv *		env = FETCHENV;

+	jsize			RETVAL_len_ = NO_INIT;

+	jlongArray		array

+	jboolean		isCopy = NO_INIT;

+    PPCODE:

+	{

+	    RETVAL = (*env)->GetLongArrayElements(env, array,&isCopy);

+	    RETVAL_len_ = (*env)->GetArrayLength(env, array);

+	    if (GIMME == G_ARRAY) {

+		int i;

+		jlong* r = RETVAL;

+		EXTEND(sp, RETVAL_len_);

+		for (i = RETVAL_len_; i; --i) {

+		    PUSHs(sv_2mortal(newSViv(*r++)));

+		}

+	    }

+	    else {

+		if (RETVAL_len_) {

+		    PUSHs(sv_2mortal(newSVpvn((char*)RETVAL,

+			(STRLEN)RETVAL_len_ * sizeof(jlong))));

+		}

+		else

+		    PUSHs(&PL_sv_no);

+	    }

+	    (*env)->ReleaseLongArrayElements(env, array,RETVAL,JNI_ABORT);

+	    RESTOREENV;

+	}

+

+jfloat *

+GetFloatArrayElements(array)

+	JNIEnv *		env = FETCHENV;

+	jsize			RETVAL_len_ = NO_INIT;

+	jfloatArray		array

+	jboolean		isCopy = NO_INIT;

+    PPCODE:

+	{

+	    RETVAL = (*env)->GetFloatArrayElements(env, array,&isCopy);

+	    RETVAL_len_ = (*env)->GetArrayLength(env, array);

+	    if (GIMME == G_ARRAY) {

+		int i;

+		jfloat* r = RETVAL;

+		EXTEND(sp, RETVAL_len_);

+		for (i = RETVAL_len_; i; --i) {

+		    PUSHs(sv_2mortal(newSVnv(*r++)));

+		}

+	    }

+	    else {

+		if (RETVAL_len_) {

+		    PUSHs(sv_2mortal(newSVpvn((char*)RETVAL,

+			(STRLEN)RETVAL_len_ * sizeof(jfloat))));

+		}

+		else

+		    PUSHs(&PL_sv_no);

+	    }

+	    (*env)->ReleaseFloatArrayElements(env, array,RETVAL,JNI_ABORT);

+	    RESTOREENV;

+	}

+

+jdouble *

+GetDoubleArrayElements(array)

+	JNIEnv *		env = FETCHENV;

+	jsize			RETVAL_len_ = NO_INIT;

+	jdoubleArray		array

+	jboolean		isCopy = NO_INIT;

+    PPCODE:

+	{

+	    RETVAL = (*env)->GetDoubleArrayElements(env, array,&isCopy);

+	    RETVAL_len_ = (*env)->GetArrayLength(env, array);

+	    if (GIMME == G_ARRAY) {

+		int i;

+		jdouble* r = RETVAL;

+		EXTEND(sp, RETVAL_len_);

+		for (i = RETVAL_len_; i; --i) {

+		    PUSHs(sv_2mortal(newSVnv(*r++)));

+		}

+	    }

+	    else {

+		if (RETVAL_len_) {

+		    PUSHs(sv_2mortal(newSVpvn((char*)RETVAL,

+			(STRLEN)RETVAL_len_ * sizeof(jdouble))));

+		}

+		else

+		    PUSHs(&PL_sv_no);

+	    }

+	    (*env)->ReleaseDoubleArrayElements(env, array,RETVAL,JNI_ABORT);

+	    RESTOREENV;

+	}

+

+void

+GetBooleanArrayRegion(array,start,len,buf)

+	JNIEnv *		env = FETCHENV;

+	jbooleanArray		array

+	jsize			start

+	jsize			len

+	STRLEN			tmplen = len * sizeof(jboolean) + 1;

+	char *			tmpbuf = (char*)sv_pvn_force(ST(3), &tmplen);

+	jboolean *		buf = (jboolean*)sv_grow(ST(3),len * sizeof(jboolean)+1);

+    CODE:

+	{

+	    (*env)->GetBooleanArrayRegion(env, array,start,len,buf);

+	    SvCUR_set(ST(3), len * sizeof(jboolean));

+	    *SvEND(ST(3)) = '\0';

+	    RESTOREENV;

+	}

+

+void

+GetByteArrayRegion(array,start,len,buf)

+	JNIEnv *		env = FETCHENV;

+	jbyteArray		array

+	jsize			start

+	jsize			len

+	STRLEN			tmplen = len * sizeof(jboolean) + 1;

+	char *			tmpbuf = (char*)sv_pvn_force(ST(3), &tmplen);

+	jbyte *			buf = (jbyte*)sv_grow(ST(3),len * sizeof(jbyte)+1);

+    CODE:

+	{

+	    (*env)->GetByteArrayRegion(env, array,start,len,buf);

+	    SvCUR_set(ST(3), len * sizeof(jbyte));

+	    *SvEND(ST(3)) = '\0';

+	    RESTOREENV;

+	}

+

+void

+GetCharArrayRegion(array,start,len,buf)

+	JNIEnv *		env = FETCHENV;

+	jcharArray		array

+	jsize			start

+	jsize			len

+	STRLEN			tmplen = len * sizeof(jboolean) + 1;

+	char *			tmpbuf = (char*)sv_pvn_force(ST(3), &tmplen);

+	jchar *			buf = (jchar*)sv_grow(ST(3),len * sizeof(jchar)+1);

+    CODE:

+	{

+	    (*env)->GetCharArrayRegion(env, array,start,len,buf);

+	    SvCUR_set(ST(3), len * sizeof(jchar));

+	    *SvEND(ST(3)) = '\0';

+	    RESTOREENV;

+	}

+

+void

+GetShortArrayRegion(array,start,len,buf)

+	JNIEnv *		env = FETCHENV;

+	jshortArray		array

+	jsize			start

+	jsize			len

+	STRLEN			tmplen = len * sizeof(jboolean) + 1;

+	char *			tmpbuf = (char*)sv_pvn_force(ST(3), &tmplen);

+	jshort *		buf = (jshort*)sv_grow(ST(3),len * sizeof(jshort)+1);

+    CODE:

+	{

+	    (*env)->GetShortArrayRegion(env, array,start,len,buf);

+	    SvCUR_set(ST(3), len * sizeof(jshort));

+	    *SvEND(ST(3)) = '\0';

+	    RESTOREENV;

+	}

+

+void

+GetIntArrayRegion(array,start,len,buf)

+	JNIEnv *		env = FETCHENV;

+	jintArray		array

+	jsize			start

+	jsize			len

+	STRLEN			tmplen = len * sizeof(jboolean) + 1;

+	char *			tmpbuf = (char*)sv_pvn_force(ST(3), &tmplen);

+	jint *			buf = (jint*)sv_grow(ST(3),len * sizeof(jint)+1);

+    CODE:

+	{

+	    (*env)->GetIntArrayRegion(env, array,start,len,buf);

+	    SvCUR_set(ST(3), len * sizeof(jint));

+	    *SvEND(ST(3)) = '\0';

+	    RESTOREENV;

+	}

+

+void

+GetLongArrayRegion(array,start,len,buf)

+	JNIEnv *		env = FETCHENV;

+	jlongArray		array

+	jsize			start

+	jsize			len

+	STRLEN			tmplen = len * sizeof(jboolean) + 1;

+	char *			tmpbuf = (char*)sv_pvn_force(ST(3), &tmplen);

+	jlong *			buf = (jlong*)sv_grow(ST(3),len * sizeof(jlong)+1);

+    CODE:

+	{

+	    (*env)->GetLongArrayRegion(env, array,start,len,buf);

+	    SvCUR_set(ST(3), len * sizeof(jlong));

+	    *SvEND(ST(3)) = '\0';

+	    RESTOREENV;

+	}

+

+void

+GetFloatArrayRegion(array,start,len,buf)

+	JNIEnv *		env = FETCHENV;

+	jfloatArray		array

+	jsize			start

+	jsize			len

+	STRLEN			tmplen = len * sizeof(jboolean) + 1;

+	char *			tmpbuf = (char*)sv_pvn_force(ST(3), &tmplen);

+	jfloat *		buf = (jfloat*)sv_grow(ST(3),len * sizeof(jfloat)+1);

+    CODE:

+	{

+	    (*env)->GetFloatArrayRegion(env, array,start,len,buf);

+	    SvCUR_set(ST(3), len * sizeof(jfloat));

+	    *SvEND(ST(3)) = '\0';

+	    RESTOREENV;

+	}

+

+void

+GetDoubleArrayRegion(array,start,len,buf)

+	JNIEnv *		env = FETCHENV;

+	jdoubleArray		array

+	jsize			start

+	jsize			len

+	STRLEN			tmplen = len * sizeof(jboolean) + 1;

+	char *			tmpbuf = (char*)sv_pvn_force(ST(3), &tmplen);

+	jdouble *		buf = (jdouble*)sv_grow(ST(3),len * sizeof(jdouble)+1);

+    CODE:

+	{

+	    (*env)->GetDoubleArrayRegion(env, array,start,len,buf);

+	    SvCUR_set(ST(3), len * sizeof(jdouble));

+	    *SvEND(ST(3)) = '\0';

+	    RESTOREENV;

+	}

+

+void

+SetBooleanArrayRegion(array,start,len,buf)

+	JNIEnv *		env = FETCHENV;

+	STRLEN			tmplen = NO_INIT;

+	jbooleanArray		array

+	jsize			start

+	jsize			len

+	jsize			buf_len_ = NO_INIT;

+	jboolean *		buf

+    CODE:

+	{

+	    if (buf_len_ < len)

+		croak("string is too short");

+	    else if (buf_len_ > len && PL_dowarn)

+		warn("string is too long");

+	    (*env)->SetBooleanArrayRegion(env, array,start,len,buf);

+	    RESTOREENV;

+	}

+

+void

+SetByteArrayRegion(array,start,len,buf)

+	JNIEnv *		env = FETCHENV;

+	STRLEN			tmplen = NO_INIT;

+	jbyteArray		array

+	jsize			start

+	jsize			len

+	jsize			buf_len_ = NO_INIT;

+	jbyte *			buf

+    CODE:

+	{

+	    if (buf_len_ < len)

+		croak("string is too short");

+	    else if (buf_len_ > len && PL_dowarn)

+		warn("string is too long");

+	    (*env)->SetByteArrayRegion(env, array,start,len,buf);

+	    RESTOREENV;

+	}

+

+void

+SetCharArrayRegion(array,start,len,buf)

+	JNIEnv *		env = FETCHENV;

+	STRLEN			tmplen = NO_INIT;

+	jcharArray		array

+	jsize			start

+	jsize			len

+	jsize			buf_len_ = NO_INIT;

+	jchar *			buf

+    CODE:

+	{

+	    if (buf_len_ < len)

+		croak("string is too short");

+	    else if (buf_len_ > len && PL_dowarn)

+		warn("string is too long");

+	    (*env)->SetCharArrayRegion(env, array,start,len,buf);

+	    RESTOREENV;

+	}

+

+void

+SetShortArrayRegion(array,start,len,buf)

+	JNIEnv *		env = FETCHENV;

+	STRLEN			tmplen = NO_INIT;

+	jshortArray		array

+	jsize			start

+	jsize			len

+	jsize			buf_len_ = NO_INIT;

+	jshort *		buf

+    CODE:

+	{

+	    if (buf_len_ < len)

+		croak("string is too short");

+	    else if (buf_len_ > len && PL_dowarn)

+		warn("string is too long");

+	    (*env)->SetShortArrayRegion(env, array,start,len,buf);

+	    RESTOREENV;

+	}

+

+void

+SetIntArrayRegion(array,start,len,buf)

+	JNIEnv *		env = FETCHENV;

+	STRLEN			tmplen = NO_INIT;

+	jintArray		array

+	jsize			start

+	jsize			len

+	jsize			buf_len_ = NO_INIT;

+	jint *			buf

+    CODE:

+	{

+	    if (buf_len_ < len)

+		croak("string is too short");

+	    else if (buf_len_ > len && PL_dowarn)

+		warn("string is too long");

+	    (*env)->SetIntArrayRegion(env, array,start,len,buf);

+	    RESTOREENV;

+	}

+

+void

+SetLongArrayRegion(array,start,len,buf)

+	JNIEnv *		env = FETCHENV;

+	STRLEN			tmplen = NO_INIT;

+	jlongArray		array

+	jsize			start

+	jsize			len

+	jsize			buf_len_ = NO_INIT;

+	jlong *			buf

+    CODE:

+	{

+	    if (buf_len_ < len)

+		croak("string is too short");

+	    else if (buf_len_ > len && PL_dowarn)

+		warn("string is too long");

+	    (*env)->SetLongArrayRegion(env, array,start,len,buf);

+	    RESTOREENV;

+	}

+

+void

+SetFloatArrayRegion(array,start,len,buf)

+	JNIEnv *		env = FETCHENV;

+	STRLEN			tmplen = NO_INIT;

+	jfloatArray		array

+	jsize			start

+	jsize			len

+	jsize			buf_len_ = NO_INIT;

+	jfloat *		buf

+    CODE:

+	{

+	    if (buf_len_ < len)

+		croak("string is too short");

+	    else if (buf_len_ > len && PL_dowarn)

+		warn("string is too long");

+	    (*env)->SetFloatArrayRegion(env, array,start,len,buf);

+	    RESTOREENV;

+	}

+

+void

+SetDoubleArrayRegion(array,start,len,buf)

+	JNIEnv *		env = FETCHENV;

+	STRLEN			tmplen = NO_INIT;

+	jdoubleArray		array

+	jsize			start

+	jsize			len

+	jsize			buf_len_ = NO_INIT;

+	jdouble *		buf

+    CODE:

+	{

+	    if (buf_len_ < len)

+		croak("string is too short");

+	    else if (buf_len_ > len && PL_dowarn)

+		warn("string is too long");

+	    (*env)->SetDoubleArrayRegion(env, array,start,len,buf);

+	    RESTOREENV;

+	}

+

+SysRet

+RegisterNatives(clazz,methods,nMethods)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+	JNINativeMethod *	methods

+	jint			nMethods

+    CODE:

+	{

+	    RETVAL = (*env)->RegisterNatives(env, clazz,methods,nMethods);

+	}

+

+SysRet

+UnregisterNatives(clazz)

+	JNIEnv *		env = FETCHENV;

+	jclass			clazz

+    CODE:

+	{

+	    RETVAL = (*env)->UnregisterNatives(env, clazz);

+	}

+    OUTPUT:

+	RETVAL  

+   

+SysRet

+MonitorEnter(obj)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+    CODE:

+	{

+	    RETVAL = (*env)->MonitorEnter(env, obj);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+SysRet

+MonitorExit(obj)

+	JNIEnv *		env = FETCHENV;

+	jobject			obj

+    CODE:

+	{

+	    RETVAL = (*env)->MonitorExit(env, obj);

+	    RESTOREENV;

+	}

+    OUTPUT:

+	RETVAL

+

+JavaVM *

+GetJavaVM(...)

+	JNIEnv *		env = FETCHENV;

+    CODE:

+	{

+#ifdef JPL_DEBUG

+	    jpldebug = 1;

+#else

+	    jpldebug = 0;

+#endif

+	    if (env) {	/* We're embedded. */

+		if ((*env)->GetJavaVM(env, &RETVAL) < 0)

+		    RETVAL = 0;

+	    }

+	    else {	/* We're embedding. */

+#ifdef KAFFE

+                JavaVMInitArgs vm_args;

+#else

+                JDK1_1InitArgs vm_args;

+#endif

+		char *lib;

+		if (jpldebug) {

+		    fprintf(stderr, "We're embedding Java in Perl.\n");

+		}

+

+		if (items--) {

+  		    ++mark;

+		    lib = SvPV(*mark, PL_na);

+		}

+		else

+		    lib = 0;

+		if (jpldebug) {

+		    fprintf(stderr, "lib is %s.\n", lib);

+		}

+#ifdef WIN32

+        if (LoadLibrary("jvm.dll")) {

+            if (!LoadLibrary("javai.dll")) {

+                warn("Can't load javai.dll");

+            }

+        } else {

+            if (lib && !LoadLibrary(lib))

+                croak("Can't load javai.dll"); 

+        }

+#else

+		if (jpldebug) {

+		    fprintf(stderr, "Opening Java shared library.\n");

+                }

+#ifdef KAFFE

+		if (!dlopen("libkaffevm.so", RTLD_LAZY|RTLD_GLOBAL)) {

+#else

+		if (!dlopen("libjava.so", RTLD_LAZY|RTLD_GLOBAL)) {

+#endif

+		    if (lib && !dlopen(lib, RTLD_LAZY|RTLD_GLOBAL))

+			croak("Can't load Java shared library.");

+		}

+#endif

+               /* Kaffe seems to get very upset if vm_args.version isn't set */

+#ifdef KAFFE

+		vm_args.version = JNI_VERSION_1_1;

+#endif

+		JNI_GetDefaultJavaVMInitArgs(&vm_args);

+		vm_args.exit = &call_my_exit;

+		if (jpldebug) {

+            fprintf(stderr, "items = %d\n", items);

+            fprintf(stderr, "mark = %s\n", SvPV(*mark, PL_na));

+        }

+		while (items > 1) {

+		  char *s;

+		    ++mark;

+		    s = SvPV(*mark,PL_na);

+		    ++mark;

+		    if (jpldebug) {

+                fprintf(stderr, "*s = %s\n", s);

+                fprintf(stderr, "val = %s\n", SvPV(*mark, PL_na));

+            }

+		    items -= 2;

+		    if (strEQ(s, "checkSource"))

+			vm_args.checkSource = (jint)SvIV(*mark);

+		    else if (strEQ(s, "nativeStackSize"))

+			vm_args.nativeStackSize = (jint)SvIV(*mark);

+		    else if (strEQ(s, "javaStackSize"))

+			vm_args.javaStackSize = (jint)SvIV(*mark);

+		    else if (strEQ(s, "minHeapSize"))

+			vm_args.minHeapSize = (jint)SvIV(*mark);

+		    else if (strEQ(s, "maxHeapSize"))

+			vm_args.maxHeapSize = (jint)SvIV(*mark);

+		    else if (strEQ(s, "verifyMode"))

+			vm_args.verifyMode = (jint)SvIV(*mark);

+		    else if (strEQ(s, "classpath"))

+			vm_args.classpath = savepv(SvPV(*mark,PL_na));

+		    else if (strEQ(s, "enableClassGC"))

+			vm_args.enableClassGC = (jint)SvIV(*mark);

+		    else if (strEQ(s, "enableVerboseGC"))

+			vm_args.enableVerboseGC = (jint)SvIV(*mark);

+		    else if (strEQ(s, "disableAsyncGC"))

+			vm_args.disableAsyncGC = (jint)SvIV(*mark);

+#ifdef KAFFE

+		    else if (strEQ(s, "libraryhome"))

+			vm_args.libraryhome = savepv(SvPV(*mark,PL_na));

+		    else if (strEQ(s, "classhome"))

+			vm_args.classhome = savepv(SvPV(*mark,PL_na));

+		    else if (strEQ(s, "enableVerboseJIT"))

+			vm_args.enableVerboseJIT = (jint)SvIV(*mark); 

+		    else if (strEQ(s, "enableVerboseClassloading"))

+			vm_args.enableVerboseClassloading = (jint)SvIV(*mark); 

+		    else if (strEQ(s, "enableVerboseCall"))

+			vm_args.enableVerboseCall = (jint)SvIV(*mark); 

+		    else if (strEQ(s, "allocHeapSize"))

+			vm_args.allocHeapSize = (jint)SvIV(*mark); 

+#else

+		    else if (strEQ(s, "verbose"))

+			vm_args.verbose = (jint)SvIV(*mark); 

+		    else if (strEQ(s, "debugging"))

+			vm_args.debugging = (jboolean)SvIV(*mark);

+		    else if (strEQ(s, "debugPort"))

+			vm_args.debugPort = (jint)SvIV(*mark); 

+#endif

+		    else

+			croak("unrecognized option: %s", s);

+		}

+

+		if (jpldebug) {

+		    fprintf(stderr, "Creating Java VM...\n");

+		    fprintf(stderr, "Working CLASSPATH: %s\n", 

+			vm_args.classpath);

+		}

+		if (JNI_CreateJavaVM(&RETVAL, &jplcurenv, &vm_args) < 0) {

+                  croak("Unable to create instance of JVM");

+                }

+		if (jpldebug) {

+		    fprintf(stderr, "Created Java VM.\n");

+		}

+

+	    }

+	}

+

diff --git a/jpl/JNI/Makefile.PL b/jpl/JNI/Makefile.PL
index a4865b5503..146e3d079f 100644
--- a/jpl/JNI/Makefile.PL
+++ b/jpl/JNI/Makefile.PL
@@ -1,297 +1,297 @@
-#!/usr/bin/perl
-use ExtUtils::MakeMaker;
-use Getopt::Std;
-use Config;
-$ARCHNAME = $Config{archname};
-use File::Basename;
-
-getopts('e'); # embedding?
-
-$CCFLAGS .= $ENV{CCFLAGS} if defined $ENV{CCFLAGS};
-
-# $USE_KAFFE is a boolean that tells us whether or not we should use Kaffe.
-# Set by find_includes (it seemed as good a place as any).
-
-# Note that we don't check to see the version of Kaffe is one we support.
-#  Currently, the only one we support is the one from CVS.
-
-my $USE_KAFFE = 0;
-
-#require "JNIConfig";
-
-if ($^O eq 'solaris') {
-    $LIBPATH = " -R$Config{archlib}/CORE -L$Config{archlib}/CORE";
-} elsif ($^O eq 'MSWin32') {
-    $LIBPATH = " -L$Config{archlib}\\CORE";
-    # MSR - added MS VC++ default library path
-    # bjepson - fixed to support path names w/spaces in them.
-    push(@WINLIBS, (split"\;",$ENV{LIB}));
-    grep s/\\$//, @WINLIBS; # eliminate trailing \
-    grep s/\/$//, @WINLIBS; # eliminate trailing /
-    $LIBPATH .= join(" ", "", map { qq["-L$_" ] } @WINLIBS);
-} else {
-    $LIBPATH = " -L$Config{archlib}/CORE";
-}
-#$LIBS = " -lperl";
-
-# Figure out where Java might live
-#
-# MSR - added JDK 1.3
-#
-
-my @JAVA_HOME_GUESSES = qw(/usr/local/java /usr/java /usr/local/jdk117_v3
-                         C:\\JDK1.1.8 C:\\JDK1.2.1 C:\\JDK1.2.2 C:\\JDK1.3 );
-
-my @KAFFE_PREFIX_GUESSES = qw(/usr/local /usr);
-
-if (! defined $ENV{JAVA_HOME}) {
-        print "You didn't define JAVA_HOME, so I'm trying a few guesses.\n";
-        print "If this fails, you might want to try setting JAVA_HOME and\n";
-        print "running me again.\n";
-} else {
-        @JAVA_HOME_GUESSES = ( $ENV{JAVA_HOME} );
-}
-
-if (! defined $ENV{KAFFE_PREFIX}) {
-        print "\nYou didn't define KAFFE_PREFIX, so I'm trying a few guesses.",
-          "\nIf this fails, and you are using Kaffe, you might want to try\n",
-          "setting KAFFE_PREFIX and running me again.\n",
-          "If you want to ignore any possible Kaffe installation, set the\n",
-          "KAFFE_PREFIX to and empty string.\n\n";
-} else {
-        @KAFFE_PREFIX_GUESSES = ($ENV{KAFFE_PREFIX} eq "") ? () :
-                                                       ( $ENV{KAFFE_PREFIX} );
-}
-
-my(@KAFFE_INCLUDE_GUESSES, @KAFFE_LIB_GUESSES);
-foreach my $kaffePrefix (@KAFFE_PREFIX_GUESSES) {
-     push(@KAFFE_INCLUDE_GUESSES, "$kaffePrefix/include/kaffe");
-     push(@KAFFE_LIB_GUESSES, "$kaffePrefix/lib");
-     push(@KAFFE_LIB_GUESSES, "$kaffePrefix/lib/kaffe");
-}
-    $guess .= "/include/kaffe";
-
-# Let's find out where jni.h lives
-#
-my @INCLUDE = find_includes();
-
-if ($^O eq 'MSWin32') {
-  # MSR - added MS VC++ default include path
-  push(@INCLUDE,(split"\;",$ENV{INCLUDE}));
-  grep s/\\$//, @INCLUDE; # remove trailing \
-  grep s/\/$//, @INCLUDE; # remove trailing \
-  $INC = join("", map { qq["-I$_" ] } @INCLUDE);
-
-} else {
-  $INC = join(" -I", ("", @INCLUDE));
-}
-
-# Let's find out the name of the Java shared library
-#
-my @JAVALIBS = find_libs();
-
-# Find out some defines based on the library we are linking to
-#
-foreach (@JAVALIBS) {
-    if ( $^O eq 'MSWin32') { # We're on Win32
-        $INC =~ s#/#\\#g;
-        $INC =~ s#\\$##;
-	  print $INC, "\n";
-        $CCFLAGS .= " -DWIN32 -Z7 -D_DEBUG";
-        $MYEXTLIB = "$libjava";
-      }
-}
-
-$CCFLAGS .= " -DKAFFE" if ($USE_KAFFE);
-
-# Let's find out the path of the library we need to link against.
-#
-foreach (@JAVALIBS) {
-    if ($^O eq 'MSWin32') { # We're on Win32
-        $_ =~ s#/#\\\\#g;
-    }
-    my ($libname, $libpath, $libsuffix) = fileparse($_, ("\.so", "\.lib"));
-    $libname =~ s/^lib//;
-    if ($^O eq 'solaris') {
-        $LIBPATH .= " -R$libpath -L$libpath"
-    } else {
-        $LIBPATH .= " -L$libpath"
-    }
-    $LIBS .= " -l$libname";
-}
-
-# Do we need -D_REENTRANT?
-if ($LIBPATH =~ /native/) {
-    print "Looks like native threads...\n";
-    $CCFLAGS .= " -D_REENTRANT";
-}
-
-if ($opt_e) {
-    print "We're embedding Perl in Java via libPerlInterpreter.so.\n";
-    eval `../setvars -perl`;
-    $CCFLAGS .= " -DEMBEDDEDPERL";
-    $LIBPATH .= " -R$ENV{JPL_HOME}/lib/$ARCHNAME -L$ENV{JPL_HOME}/lib/$ARCHNAME";
-    $LIBS    .= " -lPerlInterpreter";
-}
-
-# Needed for JNI.
-if ($^O eq 'solaris') {
-    $LIBS = " -lthread -lc $LIBS"; #-lthread must be first!!!
-    $CCFLAGS .= " -D_REENTRANT";
-}
-
-# MSR - clean up LIBS
-$LIBS =~ s/-l$//;
-
-#
-# Next, build JNI/Config.pm.  This is a superfluous thing for the SUN and
-# Microsoft JDKs, but absolutely necessary for Kaffe.  I think at some
-# point, the Microsoft and SUN implementations should use JNI::Config, too.
-#
-
-if (! -d "JNI") {
-    mkdir("JNI", 0755) || die "Unable to make JNI directory: $!";
-}
-open(JNICONFIG, ">JNI/Config.pm") || die "Unable to open JNI/Config.pm: $!";
-
-print JNICONFIG "# DO NOT EDIT!   Autogenerated by JNI/Makefile.PL\n\n",
-                "package JNI::Config;\nuse strict;\nuse Carp;\n",
-                "\nuse vars qw(\$KAFFE \$LIB_JAVA \$CLASS_HOME ",
-                "\$LIB_HOME);\n\n",
-                "\$KAFFE = $USE_KAFFE;\n\$LIB_JAVA = \"$JAVALIBS[0]\";\n";
-if ($USE_KAFFE) {
-  my $path = $JAVALIBS[0];
-  $path =~ s%/(kaffe/)?libkaffevm.so$%%;
-
-  print JNICONFIG "\$LIB_HOME = \"$path/kaffe\";\n";
-  $path =~ s%/lib%%;
-  print JNICONFIG "\$CLASS_HOME = \"$path/share/kaffe\";\n";
-}
-print JNICONFIG "\n\n1;\n";
-close JNICONFIG;
-
-
-my %Makefile = (
-    NAME        => 'JNI',
-    VERSION_FROM => 'JNI.pm',
-    DEFINE        => '',
-    LINKTYPE => 'dynamic',
-    INC        => $INC,
-    CCFLAGS => "$Config{ccflags} $CCFLAGS", 
-    ($Config{archname} =~ /mswin32.*-object/i ? ('CAPI' => 'TRUE') : ()),
-
-    clean => {FILES => "JNI/* JNI"}
-);
-
-$Makefile{LIBS} = ["$LIBPATH $LIBS"];
-if ($MYEXTLIB) {
-    $Makefile{MYEXTLIB} = $MYEXTLIB;
-}
-
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
-#
-WriteMakefile(%Makefile);
-
-if ($USE_KAFFE) {
-  my $path = $JAVALIBS[0];
-  $path =~ s%/libkaffevm.so$%%;
-  print "\n\n***NOTE: be sure to have:\n",
-            "              LD_LIBRARY_PATH=$path\n",
-            "         in your enviornment (or installed as a system dynamic\n",
-            "         library location) when you compile and run this.\n";
-}
-
-# subroutine to find a library
-#
-sub find_stuff {
-
-    my ($candidates, $locations) = @_;
-    my $lib;
-    $wanted = sub {
-        foreach my $name (@$candidates) {
-            if (/$name$/ and ! /green_threads/ and !/include-old/) {
-                    $lib = $File::Find::name;
-            }
-        }
-    };
-    
-    use File::Find;
-    foreach my $guess (@$locations) {
-        next unless -d $guess;
-        find (\&$wanted, $guess);
-    }
-    if (! $lib) {
-        print "Could not find @$candidates\n";
-    } else {
-        print "Found @$candidates as $lib\n\n";
-    }
-    return $lib;
-}
-
-# Extra lib for Java 1.2
-#
-#  if we want KAFFE, check for it, otherwise search for Java
-
-sub find_libs {
-  my($libjava, $libawt, $libjvm);
-
-  if ($USE_KAFFE) {
-    $libjava = find_stuff(['libkaffevm.so'], \@KAFFE_LIB_GUESSES);
-    $libawt = find_stuff(['libawt.so'], \@KAFFE_LIB_GUESSES);
-  } else {
-    $libjava = find_stuff(['libjava.so', 'javai.lib', 'jvm.lib'],
-                             \@JAVA_HOME_GUESSES);
-    $libjvm  = find_stuff(['libjvm.so'],  \@JAVA_HOME_GUESSES);
-    $libawt  = find_stuff(['libawt.so'], \@JAVA_HOME_GUESSES);
-    if (defined $libjvm) { # JDK 1.2
-      my $libhpi  = find_stuff(['libhpi.so'], \@JAVA_HOME_GUESSES);
-      return($libjava, $libjvm, $libhpi, $libawt);
-    }
-  }
-  return($libjava, $libawt);
-}
-
-# We need to find jni.h and jni_md.h
-#
-
-# Always do find_includes as the first operation, as it has the side effect
-# of deciding whether or not we are looking for Kaffe.  --bkuhn
-
-sub find_includes {
-
-  my @CANDIDATES = qw(jni.h jni_md.h);
-  my @includes;
-
-  sub find_inc {
-    foreach my $name (@CANDIDATES) {
-      if (/$name$/) {
-	my ($hname, $hpath, $hsuffix) = 
-	  fileparse($File::Find::name, ("\.h", "\.H"));
-	unless ($hpath =~ /include-old/) {
-	  print "Found $hname$hsuffix in $hpath\n";
-	  push @includes, $hpath;
-	} 
-      }
-    }
-  }
-    
-  use File::Find;
-  foreach my $guess (@KAFFE_INCLUDE_GUESSES) {
-    next unless -d $guess;
-    find (\&find_inc, $guess);
-  }
-  # If we have found includes, then we are using Kaffe.
-  if (@includes > 0) {
-    $USE_KAFFE = 1;
-  } else {
-    foreach my $guess (@JAVA_HOME_GUESSES) {
-      next unless -d $guess;
-      find (\&find_inc, $guess);
-    }
-  }
-  die "Could not find Java includes!" unless (@includes);
-
-  return @includes;
-}
-
+#!/usr/bin/perl

+use ExtUtils::MakeMaker;

+use Getopt::Std;

+use Config;

+$ARCHNAME = $Config{archname};

+use File::Basename;

+

+getopts('e'); # embedding?

+

+$CCFLAGS .= $ENV{CCFLAGS} if defined $ENV{CCFLAGS};

+

+# $USE_KAFFE is a boolean that tells us whether or not we should use Kaffe.

+# Set by find_includes (it seemed as good a place as any).

+

+# Note that we don't check to see the version of Kaffe is one we support.

+#  Currently, the only one we support is the one from CVS.

+

+my $USE_KAFFE = 0;

+

+#require "JNIConfig";

+

+if ($^O eq 'solaris') {

+    $LIBPATH = " -R$Config{archlib}/CORE -L$Config{archlib}/CORE";

+} elsif ($^O eq 'MSWin32') {

+    $LIBPATH = " -L$Config{archlib}\\CORE";

+    # MSR - added MS VC++ default library path

+    # bjepson - fixed to support path names w/spaces in them.

+    push(@WINLIBS, (split"\;",$ENV{LIB}));

+    grep s/\\$//, @WINLIBS; # eliminate trailing \

+    grep s/\/$//, @WINLIBS; # eliminate trailing /

+    $LIBPATH .= join(" ", "", map { qq["-L$_" ] } @WINLIBS);

+} else {

+    $LIBPATH = " -L$Config{archlib}/CORE";

+}

+#$LIBS = " -lperl";

+

+# Figure out where Java might live

+#

+# MSR - added JDK 1.3

+#

+

+my @JAVA_HOME_GUESSES = qw(/usr/local/java /usr/java /usr/local/jdk117_v3

+                         C:\\JDK1.1.8 C:\\JDK1.2.1 C:\\JDK1.2.2 C:\\JDK1.3 );

+

+my @KAFFE_PREFIX_GUESSES = qw(/usr/local /usr);

+

+if (! defined $ENV{JAVA_HOME}) {

+        print "You didn't define JAVA_HOME, so I'm trying a few guesses.\n";

+        print "If this fails, you might want to try setting JAVA_HOME and\n";

+        print "running me again.\n";

+} else {

+        @JAVA_HOME_GUESSES = ( $ENV{JAVA_HOME} );

+}

+

+if (! defined $ENV{KAFFE_PREFIX}) {

+        print "\nYou didn't define KAFFE_PREFIX, so I'm trying a few guesses.",

+          "\nIf this fails, and you are using Kaffe, you might want to try\n",

+          "setting KAFFE_PREFIX and running me again.\n",

+          "If you want to ignore any possible Kaffe installation, set the\n",

+          "KAFFE_PREFIX to and empty string.\n\n";

+} else {

+        @KAFFE_PREFIX_GUESSES = ($ENV{KAFFE_PREFIX} eq "") ? () :

+                                                       ( $ENV{KAFFE_PREFIX} );

+}

+

+my(@KAFFE_INCLUDE_GUESSES, @KAFFE_LIB_GUESSES);

+foreach my $kaffePrefix (@KAFFE_PREFIX_GUESSES) {

+     push(@KAFFE_INCLUDE_GUESSES, "$kaffePrefix/include/kaffe");

+     push(@KAFFE_LIB_GUESSES, "$kaffePrefix/lib");

+     push(@KAFFE_LIB_GUESSES, "$kaffePrefix/lib/kaffe");

+}

+    $guess .= "/include/kaffe";

+

+# Let's find out where jni.h lives

+#

+my @INCLUDE = find_includes();

+

+if ($^O eq 'MSWin32') {

+  # MSR - added MS VC++ default include path

+  push(@INCLUDE,(split"\;",$ENV{INCLUDE}));

+  grep s/\\$//, @INCLUDE; # remove trailing \

+  grep s/\/$//, @INCLUDE; # remove trailing \

+  $INC = join("", map { qq["-I$_" ] } @INCLUDE);

+

+} else {

+  $INC = join(" -I", ("", @INCLUDE));

+}

+

+# Let's find out the name of the Java shared library

+#

+my @JAVALIBS = find_libs();

+

+# Find out some defines based on the library we are linking to

+#

+foreach (@JAVALIBS) {

+    if ( $^O eq 'MSWin32') { # We're on Win32

+        $INC =~ s#/#\\#g;

+        $INC =~ s#\\$##;

+	  print $INC, "\n";

+        $CCFLAGS .= " -DWIN32 -Z7 -D_DEBUG";

+        $MYEXTLIB = "$libjava";

+      }

+}

+

+$CCFLAGS .= " -DKAFFE" if ($USE_KAFFE);

+

+# Let's find out the path of the library we need to link against.

+#

+foreach (@JAVALIBS) {

+    if ($^O eq 'MSWin32') { # We're on Win32

+        $_ =~ s#/#\\\\#g;

+    }

+    my ($libname, $libpath, $libsuffix) = fileparse($_, ("\.so", "\.lib"));

+    $libname =~ s/^lib//;

+    if ($^O eq 'solaris') {

+        $LIBPATH .= " -R$libpath -L$libpath"

+    } else {

+        $LIBPATH .= " -L$libpath"

+    }

+    $LIBS .= " -l$libname";

+}

+

+# Do we need -D_REENTRANT?

+if ($LIBPATH =~ /native/) {

+    print "Looks like native threads...\n";

+    $CCFLAGS .= " -D_REENTRANT";

+}

+

+if ($opt_e) {

+    print "We're embedding Perl in Java via libPerlInterpreter.so.\n";

+    eval `../setvars -perl`;

+    $CCFLAGS .= " -DEMBEDDEDPERL";

+    $LIBPATH .= " -R$ENV{JPL_HOME}/lib/$ARCHNAME -L$ENV{JPL_HOME}/lib/$ARCHNAME";

+    $LIBS    .= " -lPerlInterpreter";

+}

+

+# Needed for JNI.

+if ($^O eq 'solaris') {

+    $LIBS = " -lthread -lc $LIBS"; #-lthread must be first!!!

+    $CCFLAGS .= " -D_REENTRANT";

+}

+

+# MSR - clean up LIBS

+$LIBS =~ s/-l$//;

+

+#

+# Next, build JNI/Config.pm.  This is a superfluous thing for the SUN and

+# Microsoft JDKs, but absolutely necessary for Kaffe.  I think at some

+# point, the Microsoft and SUN implementations should use JNI::Config, too.

+#

+

+if (! -d "JNI") {

+    mkdir("JNI", 0755) || die "Unable to make JNI directory: $!";

+}

+open(JNICONFIG, ">JNI/Config.pm") || die "Unable to open JNI/Config.pm: $!";

+

+print JNICONFIG "# DO NOT EDIT!   Autogenerated by JNI/Makefile.PL\n\n",

+                "package JNI::Config;\nuse strict;\nuse Carp;\n",

+                "\nuse vars qw(\$KAFFE \$LIB_JAVA \$CLASS_HOME ",

+                "\$LIB_HOME);\n\n",

+                "\$KAFFE = $USE_KAFFE;\n\$LIB_JAVA = \"$JAVALIBS[0]\";\n";

+if ($USE_KAFFE) {

+  my $path = $JAVALIBS[0];

+  $path =~ s%/(kaffe/)?libkaffevm.so$%%;

+

+  print JNICONFIG "\$LIB_HOME = \"$path/kaffe\";\n";

+  $path =~ s%/lib%%;

+  print JNICONFIG "\$CLASS_HOME = \"$path/share/kaffe\";\n";

+}

+print JNICONFIG "\n\n1;\n";

+close JNICONFIG;

+

+

+my %Makefile = (

+    NAME        => 'JNI',

+    VERSION_FROM => 'JNI.pm',

+    DEFINE        => '',

+    LINKTYPE => 'dynamic',

+    INC        => $INC,

+    CCFLAGS => "$Config{ccflags} $CCFLAGS", 

+    ($Config{archname} =~ /mswin32.*-object/i ? ('CAPI' => 'TRUE') : ()),

+

+    clean => {FILES => "JNI/* JNI"}

+);

+

+$Makefile{LIBS} = ["$LIBPATH $LIBS"];

+if ($MYEXTLIB) {

+    $Makefile{MYEXTLIB} = $MYEXTLIB;

+}

+

+# See lib/ExtUtils/MakeMaker.pm for details of how to influence

+# the contents of the Makefile that is written.

+#

+WriteMakefile(%Makefile);

+

+if ($USE_KAFFE) {

+  my $path = $JAVALIBS[0];

+  $path =~ s%/libkaffevm.so$%%;

+  print "\n\n***NOTE: be sure to have:\n",

+            "              LD_LIBRARY_PATH=$path\n",

+            "         in your enviornment (or installed as a system dynamic\n",

+            "         library location) when you compile and run this.\n";

+}

+

+# subroutine to find a library

+#

+sub find_stuff {

+

+    my ($candidates, $locations) = @_;

+    my $lib;

+    $wanted = sub {

+        foreach my $name (@$candidates) {

+            if (/$name$/ and ! /green_threads/ and !/include-old/) {

+                    $lib = $File::Find::name;

+            }

+        }

+    };

+    

+    use File::Find;

+    foreach my $guess (@$locations) {

+        next unless -d $guess;

+        find (\&$wanted, $guess);

+    }

+    if (! $lib) {

+        print "Could not find @$candidates\n";

+    } else {

+        print "Found @$candidates as $lib\n\n";

+    }

+    return $lib;

+}

+

+# Extra lib for Java 1.2

+#

+#  if we want KAFFE, check for it, otherwise search for Java

+

+sub find_libs {

+  my($libjava, $libawt, $libjvm);

+

+  if ($USE_KAFFE) {

+    $libjava = find_stuff(['libkaffevm.so'], \@KAFFE_LIB_GUESSES);

+    $libawt = find_stuff(['libawt.so'], \@KAFFE_LIB_GUESSES);

+  } else {

+    $libjava = find_stuff(['libjava.so', 'javai.lib', 'jvm.lib'],

+                             \@JAVA_HOME_GUESSES);

+    $libjvm  = find_stuff(['libjvm.so'],  \@JAVA_HOME_GUESSES);

+    $libawt  = find_stuff(['libawt.so'], \@JAVA_HOME_GUESSES);

+    if (defined $libjvm) { # JDK 1.2

+      my $libhpi  = find_stuff(['libhpi.so'], \@JAVA_HOME_GUESSES);

+      return($libjava, $libjvm, $libhpi, $libawt);

+    }

+  }

+  return($libjava, $libawt);

+}

+

+# We need to find jni.h and jni_md.h

+#

+

+# Always do find_includes as the first operation, as it has the side effect

+# of deciding whether or not we are looking for Kaffe.  --bkuhn

+

+sub find_includes {

+

+  my @CANDIDATES = qw(jni.h jni_md.h);

+  my @includes;

+

+  sub find_inc {

+    foreach my $name (@CANDIDATES) {

+      if (/$name$/) {

+	my ($hname, $hpath, $hsuffix) = 

+	  fileparse($File::Find::name, ("\.h", "\.H"));

+	unless ($hpath =~ /include-old/) {

+	  print "Found $hname$hsuffix in $hpath\n";

+	  push @includes, $hpath;

+	} 

+      }

+    }

+  }

+    

+  use File::Find;

+  foreach my $guess (@KAFFE_INCLUDE_GUESSES) {

+    next unless -d $guess;

+    find (\&find_inc, $guess);

+  }

+  # If we have found includes, then we are using Kaffe.

+  if (@includes > 0) {

+    $USE_KAFFE = 1;

+  } else {

+    foreach my $guess (@JAVA_HOME_GUESSES) {

+      next unless -d $guess;

+      find (\&find_inc, $guess);

+    }

+  }

+  die "Could not find Java includes!" unless (@includes);

+

+  return @includes;

+}

+