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(WITH_STATIC_CLASSPATH)
  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, java_objectheader *cl)
 112 #else
 113 s4 _Jv_java_lang_Runtime_loadLibrary(java_lang_String *libname, java_objectheader *cl)
 114 #endif
 115 {
 116 #if !defined(WITH_STATIC_CLASSPATH)
 117         utf               *name;
 118         lt_dlhandle        handle;
 119 # if defined(ENABLE_JNI)
 120         lt_ptr             onload;
 121         s4                 version;
 122 # endif
 123 #endif
 124
 125         if (libname == NULL) {
 126                 exceptions_throw_nullpointerexception();
 127                 return 0;
 128         }
 129
 130 #if defined(WITH_STATIC_CLASSPATH)
 131         return 1;
 132 #else /* defined(WITH_STATIC_CLASSPATH) */
 133         name = javastring_toutf((java_objectheader *) libname, false);
 134
 135         /* is the library already loaded? */
 136
 137         if (native_library_find(name, cl) != NULL)
 138                 return 1;
 139
 140         /* open the library */
 141
 142         handle = native_library_open(name);
 143
 144         if (handle == NULL)
 145                 return 0;
 146
 147 # if defined(ENABLE_JNI)
 148         /* resolve JNI_OnLoad function */
 149
 150         onload = lt_dlsym(handle, "JNI_OnLoad");
 151
 152         if (onload != NULL) {
 153                 JNIEXPORT s4 (JNICALL *JNI_OnLoad) (JavaVM *, void *);
 154                 JavaVM *vm;
 155
 156                 JNI_OnLoad = (JNIEXPORT s4 (JNICALL *)(JavaVM *, void *)) (ptrint) onload;
 157
 158                 (*env)->GetJavaVM(env, &vm);
 159
 160                 version = JNI_OnLoad(vm, NULL);
 161
 162                 /* if the version is not 1.2 and not 1.4 the library cannot be loaded */
 163
 164                 if ((version != JNI_VERSION_1_2) && (version != JNI_VERSION_1_4)) {
 165                         lt_dlclose(handle);
 166
 167                         return 0;
 168                 }
 169         }
 170 # endif
 171
 172         /* insert the library name into the library hash */
 173
 174         native_library_add(name, cl, handle);
 175
 176         return 1;
 177 #endif /* defined(WITH_STATIC_CLASSPATH) */
 178 }
 179
 180
 181 #if defined(ENABLE_JAVASE)
 182
 183 /*
 184  * Class:     java/lang/Runtime
 185  * Method:    runFinalizersOnExit
 186  * Signature: (Z)V
 187  */
 188 void _Jv_java_lang_Runtime_runFinalizersOnExit(s4 value)
 189 {
 190         /* XXX threading */
 191
 192         finalizeOnExit = value;
 193 }
 194
 195 #endif
 196
 197
 198 /*
 199  * These are local overrides for various environment variables in Emacs.
 200  * Please do not remove this and leave it at the end of the file, where
 201  * Emacs will automagically detect them.
 202  * ---------------------------------------------------------------------
 203  * Local variables:
 204  * mode: c
 205  * indent-tabs-mode: t
 206  * c-basic-offset: 4
 207  * tab-width: 4
 208  * End:
 209  * vim:noexpandtab:sw=4:ts=4:
 210  */