| /* jcl.c |
| Copyright (C) 1998, 2005 Free Software Foundation, Inc. |
| |
| This file is part of GNU Classpath. |
| |
| GNU Classpath is free software; you can redistribute it and/or modify |
| it under the terms of the GNU General Public License as published by |
| the Free Software Foundation; either version 2, or (at your option) |
| any later version. |
| |
| GNU Classpath is distributed in the hope that it will be useful, but |
| WITHOUT ANY WARRANTY; without even the implied warranty of |
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| General Public License for more details. |
| |
| You should have received a copy of the GNU General Public License |
| along with GNU Classpath; see the file COPYING. If not, write to the |
| Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA |
| 02110-1301 USA. |
| |
| Linking this library statically or dynamically with other modules is |
| making a combined work based on this library. Thus, the terms and |
| conditions of the GNU General Public License cover the whole |
| combination. |
| |
| As a special exception, the copyright holders of this library give you |
| permission to link this library with independent modules to produce an |
| executable, regardless of the license terms of these independent |
| modules, and to copy and distribute the resulting executable under |
| terms of your choice, provided that you also meet, for each linked |
| independent module, the terms and conditions of the license of that |
| module. An independent module is a module which is not derived from |
| or based on this library. If you modify this library, you may extend |
| this exception to your version of the library, but you are not |
| obligated to do so. If you do not wish to do so, delete this |
| exception statement from your version. */ |
| |
| /* do not move; needed here because of some macro definitions */ |
| #include "config.h" |
| |
| #include <stdlib.h> |
| #include <stdio.h> |
| #include <jcl.h> |
| |
| #ifndef __GNUC__ |
| #ifndef __attribute__ |
| #define __attribute__(x) /* nothing */ |
| #endif |
| #endif |
| |
| JNIEXPORT void JNICALL |
| JCL_ThrowException (JNIEnv * env, const char *className, const char *errMsg) |
| { |
| jclass excClass; |
| if ((*env)->ExceptionOccurred (env)) |
| { |
| (*env)->ExceptionClear (env); |
| } |
| excClass = (*env)->FindClass (env, className); |
| if (excClass == NULL) |
| { |
| jclass errExcClass; |
| errExcClass = |
| (*env)->FindClass (env, "java/lang/ClassNotFoundException"); |
| if (errExcClass == NULL) |
| { |
| errExcClass = (*env)->FindClass (env, "java/lang/InternalError"); |
| if (errExcClass == NULL) |
| { |
| fprintf (stderr, "JCL: Utterly failed to throw exeption "); |
| fprintf (stderr, "%s", className); |
| fprintf (stderr, " with message "); |
| fprintf (stderr, "%s", errMsg); |
| return; |
| } |
| } |
| /* Removed this (more comprehensive) error string to avoid the need for |
| * a static variable or allocation of a buffer for this message in this |
| * (unlikely) error case. --Fridi. |
| * |
| * sprintf(errstr,"JCL: Failed to throw exception %s with message %s: could not find exception class.", className, errMsg); |
| */ |
| (*env)->ThrowNew (env, errExcClass, className); |
| } |
| (*env)->ThrowNew (env, excClass, errMsg); |
| } |
| |
| JNIEXPORT void *JNICALL |
| JCL_malloc (JNIEnv * env, size_t size) |
| { |
| void *mem = malloc (size); |
| if (mem == NULL) |
| { |
| JCL_ThrowException (env, "java/lang/OutOfMemoryError", |
| "malloc() failed."); |
| return NULL; |
| } |
| return mem; |
| } |
| |
| JNIEXPORT void *JNICALL |
| JCL_realloc (JNIEnv * env, void *ptr, size_t size) |
| { |
| ptr = realloc (ptr, size); |
| if (ptr == 0) |
| { |
| JCL_ThrowException (env, "java/lang/OutOfMemoryError", |
| "malloc() failed."); |
| return NULL; |
| } |
| return (ptr); |
| } |
| |
| JNIEXPORT void JNICALL |
| JCL_free (JNIEnv * env __attribute__ ((unused)), void *p) |
| { |
| if (p != NULL) |
| { |
| free (p); |
| } |
| } |
| |
| JNIEXPORT const char *JNICALL |
| JCL_jstring_to_cstring (JNIEnv * env, jstring s) |
| { |
| const char *cstr; |
| if (s == NULL) |
| { |
| JCL_ThrowException (env, "java/lang/NullPointerException", |
| "Null string"); |
| return NULL; |
| } |
| cstr = (const char *) (*env)->GetStringUTFChars (env, s, NULL); |
| if (cstr == NULL) |
| { |
| JCL_ThrowException (env, "java/lang/InternalError", |
| "GetStringUTFChars() failed."); |
| return NULL; |
| } |
| return cstr; |
| } |
| |
| JNIEXPORT void JNICALL |
| JCL_free_cstring (JNIEnv * env, jstring s, const char *cstr) |
| { |
| (*env)->ReleaseStringUTFChars (env, s, cstr); |
| } |
| |
| JNIEXPORT jint JNICALL |
| JCL_MonitorEnter (JNIEnv * env, jobject o) |
| { |
| jint retval = (*env)->MonitorEnter (env, o); |
| if (retval != 0) |
| { |
| JCL_ThrowException (env, "java/lang/InternalError", |
| "MonitorEnter() failed."); |
| } |
| return retval; |
| } |
| |
| JNIEXPORT jint JNICALL |
| JCL_MonitorExit (JNIEnv * env, jobject o) |
| { |
| jint retval = (*env)->MonitorExit (env, o); |
| if (retval != 0) |
| { |
| JCL_ThrowException (env, "java/lang/InternalError", |
| "MonitorExit() failed."); |
| } |
| return retval; |
| } |
| |
| JNIEXPORT jclass JNICALL |
| JCL_FindClass (JNIEnv * env, const char *className) |
| { |
| jclass retval = (*env)->FindClass (env, className); |
| if (retval == NULL) |
| { |
| JCL_ThrowException (env, "java/lang/ClassNotFoundException", className); |
| } |
| return retval; |
| } |
| |
| |
| /* |
| * Build a Pointer object. The function caches the class type |
| */ |
| |
| static jclass rawDataClass; |
| static jfieldID rawData_fid; |
| static jmethodID rawData_mid; |
| |
| JNIEXPORT jobject JNICALL |
| JCL_NewRawDataObject (JNIEnv * env, void *data) |
| { |
| if (rawDataClass == NULL) |
| { |
| jclass tmp; |
| #if SIZEOF_VOID_P == 8 |
| rawDataClass = (*env)->FindClass (env, "gnu/classpath/Pointer64"); |
| if (rawDataClass == NULL) |
| { |
| JCL_ThrowException (env, "java/lang/InternalError", |
| "unable to find internal class"); |
| return NULL; |
| } |
| |
| rawData_mid = (*env)->GetMethodID (env, rawDataClass, "<init>", "(J)V"); |
| if (rawData_mid == NULL) |
| { |
| JCL_ThrowException (env, "java/lang/InternalError", |
| "unable to find internal constructor"); |
| return NULL; |
| } |
| |
| rawData_fid = (*env)->GetFieldID (env, rawDataClass, "data", "J"); |
| if (rawData_fid == NULL) |
| { |
| JCL_ThrowException (env, "java/lang/InternalError", |
| "unable to find internal field"); |
| return NULL; |
| } |
| #else |
| rawDataClass = (*env)->FindClass (env, "gnu/classpath/Pointer32"); |
| if (rawDataClass == NULL) |
| { |
| JCL_ThrowException (env, "java/lang/InternalError", |
| "unable to find internal class"); |
| return NULL; |
| } |
| |
| rawData_mid = (*env)->GetMethodID (env, rawDataClass, "<init>", "(I)V"); |
| if (rawData_mid == NULL) |
| { |
| JCL_ThrowException (env, "java/lang/InternalError", |
| "unable to find internal constructor"); |
| return NULL; |
| } |
| |
| rawData_fid = (*env)->GetFieldID (env, rawDataClass, "data", "I"); |
| if (rawData_fid == NULL) |
| { |
| JCL_ThrowException (env, "java/lang/InternalError", |
| "unable to find internal field"); |
| return NULL; |
| } |
| |
| #endif |
| tmp = (*env)->NewGlobalRef (env, rawDataClass); |
| if (tmp == NULL) |
| { |
| JCL_ThrowException (env, "java/lang/InternalError", |
| "unable to create an internal global ref"); |
| return NULL; |
| } |
| (*env)->DeleteLocalRef(env, rawDataClass); |
| rawDataClass = tmp; |
| } |
| |
| #if SIZEOF_VOID_P == 8 |
| return (*env)->NewObject (env, rawDataClass, rawData_mid, (jlong) data); |
| #else |
| return (*env)->NewObject (env, rawDataClass, rawData_mid, (jint) data); |
| #endif |
| } |
| |
| JNIEXPORT void * JNICALL |
| JCL_GetRawData (JNIEnv * env, jobject rawdata) |
| { |
| #if SIZEOF_VOID_P == 8 |
| return (void *) (*env)->GetLongField (env, rawdata, rawData_fid); |
| #else |
| return (void *) (*env)->GetIntField (env, rawdata, rawData_fid); |
| #endif |
| } |