libjava/jni/classpath/jcl.c

   1 /* jcl.c
   2    Copyright (C) 1998, 2004 Free Software Foundation, Inc.
   3
   4 This file is part of GNU Classpath.
   5
   6 GNU Classpath is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 2, or (at your option)
   9 any later version.
  10
  11 GNU Classpath is distributed in the hope that it will be useful, but
  12 WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14 General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GNU Classpath; see the file COPYING.  If not, write to the
  18 Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  19 02111-1307 USA.
  20
  21 Linking this library statically or dynamically with other modules is
  22 making a combined work based on this library.  Thus, the terms and
  23 conditions of the GNU General Public License cover the whole
  24 combination.
  25
  26 As a special exception, the copyright holders of this library give you
  27 permission to link this library with independent modules to produce an
  28 executable, regardless of the license terms of these independent
  29 modules, and to copy and distribute the resulting executable under
  30 terms of your choice, provided that you also meet, for each linked
  31 independent module, the terms and conditions of the license of that
  32 module.  An independent module is a module which is not derived from
  33 or based on this library.  If you modify this library, you may extend
  34 this exception to your version of the library, but you are not
  35 obligated to do so.  If you do not wish to do so, delete this
  36 exception statement from your version. */
  37
  38 #include <stdio.h>
  39 #include <jcl.h>
  40 #include <stdlib.h>
  41
  42 #ifndef __GNUC__
  43 #define __attribute__(x) /* nothing */
  44 #endif
  45
  46 /*
  47  * This way the memory is pre-allocated, so that we do not have to worry
  48  * if we are out of memory.
  49  */
  50 static char errstr[4098];
  51
  52 JNIEXPORT void JNICALL JCL_ThrowException(JNIEnv * env, char * className, char * errMsg) {
  53         jclass excClass;
  54         if((*env)->ExceptionOccurred(env)) {
  55                 (*env)->ExceptionClear(env);
  56         }
  57         excClass = (*env)->FindClass(env, className);
  58         if(excClass == NULL) {
  59                 jclass errExcClass;
  60                 errExcClass = (*env)->FindClass(env, "java/lang/ClassNotFoundException");
  61                 if(errExcClass == NULL) {
  62                         errExcClass = (*env)->FindClass(env, "java/lang/InternalError");
  63                         if(errExcClass == NULL) {
  64                                 sprintf(errstr,"JCL: Utterly failed to throw exeption %s with message %s.",className,errMsg);
  65                                 fprintf(stderr, errstr);
  66                                 return;
  67                         }
  68                 }
  69                 sprintf(errstr,"JCL: Failed to throw exception %s with message %s: could not find exception class.", className, errMsg);
  70                 (*env)->ThrowNew(env, errExcClass, errstr);
  71         }
  72         (*env)->ThrowNew(env, excClass, errMsg);
  73 }
  74
  75 JNIEXPORT void * JNICALL JCL_malloc(JNIEnv * env, size_t size) {
  76         void * mem = malloc(size);
  77         if(mem == NULL) {
  78                 JCL_ThrowException(env, "java/lang/OutOfMemoryError", "malloc() failed.");
  79                 return NULL;
  80         }
  81         return mem;
  82 }
  83
  84 JNIEXPORT void * JNICALL JCL_realloc(JNIEnv *env, void *ptr, size_t size)
  85 {
  86   ptr = realloc(ptr, size);
  87   if (ptr == 0)
  88     {
  89       JCL_ThrowException(env, "java/lang/OutOfMemoryError",
  90                              "malloc() failed.");
  91       return NULL;
  92     }
  93   return(ptr);
  94 }
  95
  96 JNIEXPORT void JNICALL JCL_free(JNIEnv * env __attribute__((unused)),
  97                                 void * p)
  98 {
  99         if(p != NULL) {
 100                 free(p);
 101         }
 102 }
 103
 104 JNIEXPORT char * JNICALL JCL_jstring_to_cstring(JNIEnv * env, jstring s) {
 105         char* cstr;
 106         if(s == NULL) {
 107                 JCL_ThrowException(env, "java/lang/NullPointerException","Null string");
 108                 return NULL;
 109         }
 110         cstr = (char*)(*env)->GetStringUTFChars(env, s, NULL);
 111         if(cstr == NULL) {
 112                 JCL_ThrowException(env, "java/lang/InternalError", "GetStringUTFChars() failed.");
 113                 return NULL;
 114         }
 115         return cstr;
 116 }
 117
 118 JNIEXPORT void JNICALL JCL_free_cstring(JNIEnv * env, jstring s, char * cstr) {
 119         (*env)->ReleaseStringUTFChars(env, s, cstr);
 120 }
 121
 122 JNIEXPORT jint JNICALL JCL_MonitorEnter(JNIEnv * env, jobject o) {
 123         jint retval = (*env)->MonitorEnter(env,o);
 124         if(retval != 0) {
 125                 JCL_ThrowException(env, "java/lang/InternalError", "MonitorEnter() failed.");
 126         }
 127         return retval;
 128 }
 129
 130 JNIEXPORT jint JNICALL JCL_MonitorExit(JNIEnv * env, jobject o) {
 131         jint retval = (*env)->MonitorExit(env,o);
 132         if(retval != 0) {
 133                 JCL_ThrowException(env, "java/lang/InternalError", "MonitorExit() failed.");
 134         }
 135         return retval;
 136 }
 137
 138 JNIEXPORT jclass JNICALL JCL_FindClass(JNIEnv * env, char * className) {
 139         jclass retval = (*env)->FindClass(env,className);
 140         if(retval == NULL) {
 141                 JCL_ThrowException(env, "java/lang/ClassNotFoundException", className);
 142         }
 143         return retval;
 144 }