Line data Source code
1 : /* src/native/vm/gnuclasspath/java_lang_VMString.cpp - java/lang/VMString
2 :
3 : Copyright (C) 1996-2013
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 "native/jni.hpp"
32 : #include "native/native.hpp"
33 :
34 : #if defined(ENABLE_JNI_HEADERS)
35 : # include "native/vm/include/java_lang_VMString.h"
36 : #endif
37 :
38 : #include "vm/string.hpp"
39 : #include "vm/vm.hpp"
40 :
41 :
42 : // Native functions are exported as C functions.
43 : extern "C" {
44 :
45 : /*
46 : * Class: java/lang/VMString
47 : * Method: intern
48 : * Signature: (Ljava/lang/String;)Ljava/lang/String;
49 : */
50 14786 : JNIEXPORT jstring JNICALL Java_java_lang_VMString_intern(JNIEnv *env, jclass clazz, jstring str)
51 : {
52 14786 : if (str == NULL)
53 0 : return NULL;
54 :
55 14786 : return (jstring) JavaString((java_handle_t*) str).intern();
56 : }
57 :
58 : } // extern "C"
59 :
60 :
61 : /* native methods implemented by this file ************************************/
62 :
63 : static JNINativeMethod methods[] = {
64 : { (char*) "intern", (char*) "(Ljava/lang/String;)Ljava/lang/String;", (void*) (uintptr_t) &Java_java_lang_VMString_intern },
65 : };
66 :
67 :
68 : /* _Jv_java_lang_VMString_init *************************************************
69 :
70 : Register native functions.
71 :
72 : *******************************************************************************/
73 :
74 163 : void _Jv_java_lang_VMString_init(void)
75 : {
76 163 : Utf8String u = Utf8String::from_utf8("java/lang/VMString");
77 :
78 163 : NativeMethods& nm = VM::get_current()->get_nativemethods();
79 163 : nm.register_methods(u, methods, NATIVE_METHODS_COUNT);
80 163 : }
81 :
82 :
83 : /*
84 : * These are local overrides for various environment variables in Emacs.
85 : * Please do not remove this and leave it at the end of the file, where
86 : * Emacs will automagically detect them.
87 : * ---------------------------------------------------------------------
88 : * Local variables:
89 : * mode: c++
90 : * indent-tabs-mode: t
91 : * c-basic-offset: 4
92 : * tab-width: 4
93 : * End:
94 : */
|