src/native/vm/gnu/java_lang_reflect_Method.c

   1 /* src/native/vm/gnu/java_lang_reflect_Method.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_reflect_Method.c 7719 2007-04-16 15:29:29Z twisti $
  26
  27 */
  28
  29
  30 #include "config.h"
  31
  32 #include <assert.h>
  33
  34 #include "vm/types.h"
  35
  36 #include "native/jni.h"
  37 #include "native/native.h"
  38 #include "native/include/java_lang_Object.h"
  39 #include "native/include/java_lang_Class.h"
  40 #include "native/include/java_lang_String.h"
  41 #include "native/include/java_lang_reflect_Method.h"
  42
  43 #include "vm/access.h"
  44 #include "vm/global.h"
  45 #include "vm/builtin.h"
  46 #include "vm/exceptions.h"
  47 #include "vm/initialize.h"
  48 #include "vm/resolve.h"
  49 #include "vm/stringlocal.h"
  50
  51
  52 /*
  53  * Class:     java/lang/reflect/Method
  54  * Method:    getModifiersInternal
  55  * Signature: ()I
  56  */
  57 JNIEXPORT s4 JNICALL Java_java_lang_reflect_Method_getModifiersInternal(JNIEnv *env, java_lang_reflect_Method *this)
  58 {
  59         classinfo  *c;
  60         methodinfo *m;
  61
  62         c = (classinfo *) this->declaringClass;
  63         m = &(c->methods[this->slot]);
  64
  65         return m->flags;
  66 }
  67
  68
  69 /*
  70  * Class:     java/lang/reflect/Method
  71  * Method:    getReturnType
  72  * Signature: ()Ljava/lang/Class;
  73  */
  74 JNIEXPORT java_lang_Class* JNICALL Java_java_lang_reflect_Method_getReturnType(JNIEnv *env, java_lang_reflect_Method *this)
  75 {
  76         classinfo  *c;
  77         methodinfo *m;
  78         typedesc   *td;
  79
  80         c = (classinfo *) this->declaringClass;
  81         m = &(c->methods[this->slot]);
  82
  83         td = &(m->parseddesc->returntype);
  84
  85         if (!resolve_class_from_typedesc(td, true, false, &c))
  86                 return NULL;
  87
  88         return (java_lang_Class *) c;
  89 }
  90
  91
  92 /*
  93  * Class:     java/lang/reflect/Method
  94  * Method:    getParameterTypes
  95  * Signature: ()[Ljava/lang/Class;
  96  */
  97 JNIEXPORT java_objectarray* JNICALL Java_java_lang_reflect_Method_getParameterTypes(JNIEnv *env, java_lang_reflect_Method *this)
  98 {
  99         classinfo  *c;
 100         methodinfo *m;
 101
 102         c = (classinfo *) this->declaringClass;
 103         m = &(c->methods[this->slot]);
 104
 105         return method_get_parametertypearray(m);
 106 }
 107
 108
 109 /*
 110  * Class:     java/lang/reflect/Method
 111  * Method:    getExceptionTypes
 112  * Signature: ()[Ljava/lang/Class;
 113  */
 114 JNIEXPORT java_objectarray* JNICALL Java_java_lang_reflect_Method_getExceptionTypes(JNIEnv *env, java_lang_reflect_Method *this)
 115 {
 116         classinfo  *c;
 117         methodinfo *m;
 118
 119         c = (classinfo *) this->declaringClass;
 120         m = &(c->methods[this->slot]);
 121
 122         return method_get_exceptionarray(m);
 123 }
 124
 125
 126 /*
 127  * Class:     java/lang/reflect/Method
 128  * Method:    invokeNative
 129  * Signature: (Ljava/lang/Object;[Ljava/lang/Object;Ljava/lang/Class;I)Ljava/lang/Object;
 130  */
 131 JNIEXPORT java_lang_Object* JNICALL Java_java_lang_reflect_Method_invokeNative(JNIEnv *env, java_lang_reflect_Method *this, java_lang_Object *o, java_objectarray *args, java_lang_Class *declaringClass, s4 slot)
 132 {
 133         classinfo        *c;
 134         methodinfo       *m;
 135
 136         c = (classinfo *) declaringClass;
 137         m = &(c->methods[slot]);
 138
 139         /* check method access */
 140
 141         /* check if we should bypass security checks (AccessibleObject) */
 142
 143         if (this->flag == false) {
 144                 if (!access_check_member(c, m->flags, 1))
 145                         return NULL;
 146         }
 147
 148         /* check if method class is initialized */
 149
 150         if (!(c->state & CLASS_INITIALIZED))
 151                 if (!initialize_class(c))
 152                         return NULL;
 153
 154         /* call the Java method via a helper function */
 155
 156         return (java_lang_Object *) _Jv_jni_invokeNative(m, (jobject) o, args);
 157 }
 158
 159
 160 /*
 161  * Class:     java/lang/reflect/Method
 162  * Method:    getSignature
 163  * Signature: ()Ljava/lang/String;
 164  */
 165 JNIEXPORT java_lang_String* JNICALL Java_java_lang_reflect_Method_getSignature(JNIEnv *env, java_lang_reflect_Method* this)
 166 {
 167         classinfo         *c;
 168         methodinfo        *m;
 169         java_objectheader *o;
 170
 171         c = (classinfo *) this->declaringClass;
 172         m = &(c->methods[this->slot]);
 173
 174         if (m->signature == NULL)
 175                 return NULL;
 176
 177         o = javastring_new(m->signature);
 178
 179         /* in error case o is NULL */
 180
 181         return (java_lang_String *) o;
 182 }
 183
 184
 185 /*
 186  * These are local overrides for various environment variables in Emacs.
 187  * Please do not remove this and leave it at the end of the file, where
 188  * Emacs will automagically detect them.
 189  * ---------------------------------------------------------------------
 190  * Local variables:
 191  * mode: c
 192  * indent-tabs-mode: t
 193  * c-basic-offset: 4
 194  * tab-width: 4
 195  * End:
 196  */