src/native/vm/java_lang_Runtime.c

   1 /* src/native/vm/java_lang_VMRuntime.c
   2
   3    Copyright (C) 1996-2005, 2006, 2007 R. Grafl, A. Krall, C. Kruegel,
   4    C. Oates, R. Obermaisser, M. Platter, M. Probst, S. Ring,
   5    E. Steiner, C. Thalinger, D. Thuernbeck, P. Tomsich, C. Ullrich,
   6    J. Wenninger, Institut f. Computersprachen - TU Wien
   7
   8    This file is part of CACAO.
   9
  10    This program is free software; you can redistribute it and/or
  11    modify it under the terms of the GNU General Public License as
  12    published by the Free Software Foundation; either version 2, or (at
  13    your option) any later version.
  14
  15    This program is distributed in the hope that it will be useful, but
  16    WITHOUT ANY WARRANTY; without even the implied warranty of
  17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18    General Public License for more details.
  19
  20    You should have received a copy of the GNU General Public License
  21    along with this program; if not, write to the Free Software
  22    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  23    02110-1301, USA.
  24
  25    $Id: java_lang_VMRuntime.c 7246 2007-01-29 18:49:05Z twisti $
  26
  27 */
  28
  29
  30 #include "config.h"
  31
  32 #if defined(ENABLE_LTDL) && defined(HAVE_LTDL_H)
  33 # include <ltdl.h>
  34 #endif
  35
  36 #include "vm/types.h"
  37
  38 #include "mm/gc-common.h"
  39
  40 #include "native/jni.h"
  41 #include "native/native.h"
  42
  43 #include "native/include/java_lang_String.h"
  44
  45 #include "toolbox/logging.h"
  46
  47 #include "vm/exceptions.h"
  48 #include "vm/stringlocal.h"
  49 #include "vm/vm.h"
  50
  51 #include "vmcore/options.h"
  52
  53
  54 /* should we run all finalizers on exit? */
  55 static bool finalizeOnExit = false;
  56
  57
  58 /*
  59  * Class:     java/lang/Runtime
  60  * Method:    exitInternal
  61  * Signature: (I)V
  62  */
  63 void _Jv_java_lang_Runtime_exit(s4 status)
  64 {
  65         if (finalizeOnExit)
  66                 gc_finalize_all();
  67
  68         vm_shutdown(status);
  69 }
  70
  71
  72 /*
  73  * Class:     java/lang/Runtime
  74  * Method:    freeMemory
  75  * Signature: ()J
  76  */
  77 s8 _Jv_java_lang_Runtime_freeMemory(void)
  78 {
  79         return gc_get_free_bytes();
  80 }
  81
  82
  83 /*
  84  * Class:     java/lang/Runtime
  85  * Method:    totalMemory
  86  * Signature: ()J
  87  */
  88 s8 _Jv_java_lang_Runtime_totalMemory(void)
  89 {
  90         return gc_get_heap_size();
  91 }
  92
  93
  94 /*
  95  * Class:     java/lang/Runtime
  96  * Method:    gc
  97  * Signature: ()V
  98  */
  99 void _Jv_java_lang_Runtime_gc(void)
 100 {
 101         gc_call();
 102 }
 103
 104
 105 /*
 106  * Class:     java/lang/Runtime
 107  * Method:    loadLibrary
 108  * Signature: (Ljava/lang/String;Ljava/lang/ClassLoader;)I
 109  */
 110 #if defined(ENABLE_JNI)
 111 s4 _Jv_java_lang_Runtime_loadLibrary(JNIEnv *env, java_lang_String *libname, classloader *cl)
 112 #else
 113 s4 _Jv_java_lang_Runtime_loadLibrary(java_lang_String *libname, classloader *cl)
 114 #endif
 115 {
 116 #if defined(ENABLE_LTDL)
 117         utf               *name;
 118         lt_dlhandle        handle;
 119 # if defined(ENABLE_JNI)
 120         lt_ptr             onload;
 121         s4                 version;
 122 # endif
 123
 124         if (libname == NULL) {
 125                 exceptions_throw_nullpointerexception();
 126                 return 0;
 127         }
 128
 129         name = javastring_toutf((java_handle_t *) libname, false);
 130
 131         /* is the library already loaded? */
 132
 133         if (native_library_find(name, cl) != NULL)
 134                 return 1;
 135
 136         /* open the library */
 137
 138         handle = native_library_open(name);
 139
 140         if (handle == NULL)
 141                 return 0;
 142
 143 # if defined(ENABLE_JNI)
 144         /* resolve JNI_OnLoad function */
 145
 146         onload = lt_dlsym(handle, "JNI_OnLoad");
 147
 148         if (onload != NULL) {
 149                 JNIEXPORT s4 (JNICALL *JNI_OnLoad) (JavaVM *, void *);
 150                 JavaVM *vm;
 151
 152                 JNI_OnLoad = (JNIEXPORT s4 (JNICALL *)(JavaVM *, void *)) (ptrint) onload;
 153
 154                 (*env)->GetJavaVM(env, &vm);
 155
 156                 version = JNI_OnLoad(vm, NULL);
 157
 158                 /* if the version is not 1.2 and not 1.4 the library cannot be loaded */
 159
 160                 if ((version != JNI_VERSION_1_2) && (version != JNI_VERSION_1_4)) {
 161                         lt_dlclose(handle);
 162
 163                         return 0;
 164                 }
 165         }
 166 # endif
 167
 168         /* insert the library name into the library hash */
 169
 170         native_library_add(name, cl, handle);
 171
 172         return 1;
 173 #else
 174         vm_abort("_Jv_java_lang_Runtime_loadLibrary: not available");
 175
 176         /* keep compiler happy */
 177
 178         return 0;
 179 #endif
 180 }
 181
 182
 183 #if defined(ENABLE_JAVASE)
 184
 185 /*
 186  * Class:     java/lang/Runtime
 187  * Method:    runFinalizersOnExit
 188  * Signature: (Z)V
 189  */
 190 void _Jv_java_lang_Runtime_runFinalizersOnExit(s4 value)
 191 {
 192         /* XXX threading */
 193
 194         finalizeOnExit = value;
 195 }
 196
 197 #endif
 198
 199
 200 /*
 201  * These are local overrides for various environment variables in Emacs.
 202  * Please do not remove this and leave it at the end of the file, where
 203  * Emacs will automagically detect them.
 204  * ---------------------------------------------------------------------
 205  * Local variables:
 206  * mode: c
 207  * indent-tabs-mode: t
 208  * c-basic-offset: 4
 209  * tab-width: 4
 210  * End:
 211  * vim:noexpandtab:sw=4:ts=4:
 212  */