src/native/vm/cldc1.1/java_lang_System.cpp

   1 /* src/native/vm/cldc1.1/java_lang_System.cpp
   2
   3    Copyright (C) 2006, 2007, 2008
   4    CACAOVM - Verein zur Foerderung der freien virtuellen Maschine CACAO
   5
   6    This file is part of CACAO.
   7
   8    This program is free software; you can redistribute it and/or
   9    modify it under the terms of the GNU General Public License as
  10    published by the Free Software Foundation; either version 2, or (at
  11    your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful, but
  14    WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16    General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program; if not, write to the Free Software
  20    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  21    02110-1301, USA.
  22
  23 */
  24
  25
  26 #include "config.h"
  27
  28 #include <stdint.h>
  29 #include <stdlib.h>
  30
  31 #include "mm/memory.h"
  32
  33 #include "native/jni.hpp"
  34 #include "native/native.h"
  35
  36 #if defined(ENABLE_JNI_HEADERS)
  37 # include "native/include/java_lang_System.h"
  38 #endif
  39
  40 #include "vm/builtin.h"
  41 #include "vm/properties.h"
  42 #include "vm/string.hpp"
  43
  44
  45 // Native functions are exported as C functions.
  46 extern "C" {
  47
  48 /*
  49  * Class:     java/lang/System
  50  * Method:    arraycopy
  51  * Signature: (Ljava/lang/Object;ILjava/lang/Object;II)V
  52  */
  53 JNIEXPORT void JNICALL Java_java_lang_System_arraycopy(JNIEnv *env, jclass clazz, jobject src, jint srcStart, jobject dest, jint destStart, jint len)
  54 {
  55         builtin_arraycopy((java_handle_t *) src, srcStart,
  56                                           (java_handle_t *) dest, destStart, len);
  57 }
  58
  59
  60 /*
  61  * Class:     java/lang/System
  62  * Method:    getProperty0
  63  * Signature: (Ljava/lang/String;)Ljava/lang/String;
  64  */
  65
  66 JNIEXPORT jstring JNICALL Java_java_lang_System_getProperty0(JNIEnv *env, jclass clazz, jstring s)
  67 {
  68         java_handle_t *so;
  69         char*          key;
  70         const char*    value;
  71         java_handle_t *result;
  72
  73         so = (java_handle_t *) s;
  74
  75         /* build an ASCII string out of the java/lang/String passed */
  76
  77         key = javastring_tochar(so);
  78
  79         /* get the property from the internal table */
  80
  81         value = properties_get(key);
  82
  83         /* release the memory allocated in javastring_tochar */
  84
  85         MFREE(key, char, 0);
  86
  87         if (value == NULL)
  88                 return NULL;
  89
  90         result = javastring_new_from_ascii(value);
  91
  92         return (jstring) result;
  93 }
  94
  95 } // extern "C"
  96
  97
  98 /* native methods implemented by this file ************************************/
  99
 100 static JNINativeMethod methods[] = {
 101         { (char*) "arraycopy",    (char*) "(Ljava/lang/Object;ILjava/lang/Object;II)V", (void*) (uintptr_t) &Java_java_lang_System_arraycopy    },
 102         { (char*) "getProperty0", (char*) "(Ljava/lang/String;)Ljava/lang/String;",     (void*) (uintptr_t) &Java_java_lang_System_getProperty0 },
 103 };
 104
 105
 106 /* _Jv_java_lang_System_init ***************************************************
 107
 108    Register native functions.
 109
 110 *******************************************************************************/
 111
 112 // FIXME
 113 extern "C" {
 114 void _Jv_java_lang_System_init(void)
 115 {
 116         utf *u;
 117
 118         u = utf_new_char("java/lang/System");
 119
 120         native_method_register(u, methods, NATIVE_METHODS_COUNT);
 121 }
 122 }
 123
 124
 125 /*
 126  * These are local overrides for various environment variables in Emacs.
 127  * Please do not remove this and leave it at the end of the file, where
 128  * Emacs will automagically detect them.
 129  * ---------------------------------------------------------------------
 130  * Local variables:
 131  * mode: c++
 132  * indent-tabs-mode: t
 133  * c-basic-offset: 4
 134  * tab-width: 4
 135  * End:
 136  */