/* 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 modifyit under the terms of the GNU General Public License as published bythe 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, butWITHOUT ANY WARRANTY; without even the implied warranty ofMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNUGeneral Public License for more details.You should have received a copy of the GNU General Public Licensealong with GNU Classpath; see the file COPYING.  If not, write to theFree Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA02110-1301 USA.Linking this library statically or dynamically with other modules ismaking a combined work based on this library.  Thus, the terms andconditions of the GNU General Public License cover the wholecombination.As a special exception, the copyright holders of this library give youpermission to link this library with independent modules to produce anexecutable, regardless of the license terms of these independentmodules, and to copy and distribute the resulting executable underterms of your choice, provided that you also meet, for each linkedindependent module, the terms and conditions of the license of thatmodule.  An independent module is a module which is not derived fromor based on this library.  If you modify this library, you may extendthis exception to your version of the library, but you are notobligated to do so.  If you do not wish to do so, delete thisexception 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#endifJNIEXPORT void JNICALLJCL_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, className);	      fprintf (stderr, " with message ");	      fprintf (stderr, 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 *JNICALLJCL_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 *JNICALLJCL_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 JNICALLJCL_free (JNIEnv * env __attribute__ ((unused)), void *p){  if (p != NULL)    {      free (p);    }}JNIEXPORT const char *JNICALLJCL_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 JNICALLJCL_free_cstring (JNIEnv * env, jstring s, const char *cstr){  (*env)->ReleaseStringUTFChars (env, s, cstr);}JNIEXPORT jint JNICALLJCL_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 JNICALLJCL_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 JNICALLJCL_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 JNICALLJCL_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 * JNICALLJCL_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  }