-/* class: java/lang/reflect/Field */
+/* native/vm/Field.c - java/lang/reflect/Field
+
+ Copyright (C) 1996-2005 R. Grafl, A. Krall, C. Kruegel, C. Oates,
+ R. Obermaisser, M. Platter, M. Probst, S. Ring, E. Steiner,
+ C. Thalinger, D. Thuernbeck, P. Tomsich, C. Ullrich, J. Wenninger,
+ Institut f. Computersprachen - TU Wien
+
+ This file is part of CACAO.
+
+ This program is free software; you can redistribute it and/or
+ modify it under the terms of the GNU General Public License as
+ published by the Free Software Foundation; either version 2, or (at
+ your option) any later version.
+
+ This program is distributed in the hope that it will be useful, but
+ WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+ 02111-1307, USA.
+
+ Contact: cacao@complang.tuwien.ac.at
+
+ Authors: Roman Obermaiser
+
+ Changes: Joseph Wenninger
+
+ $Id: Field.c 1735 2004-12-07 14:33:27Z twisti $
+
+*/
+
+
+#include "native/jni.h"
+#include "native/native.h"
+#include "native/include/java_lang_Object.h"
+#include "native/include/java_lang_Class.h"
+#include "native/include/java_lang_reflect_Field.h"
+#include "vm/builtin.h"
+#include "vm/exceptions.h"
+#include "vm/loader.h"
+#include "vm/tables.h"
/*
* Method: get
* Signature: (Ljava/lang/Object;)Ljava/lang/Object;
*/
-JNIEXPORT struct java_lang_Object* JNICALL Java_java_lang_reflect_Field_get ( JNIEnv *env , struct java_lang_reflect_Field* this, struct java_lang_Object* obj)
+JNIEXPORT java_lang_Object* JNICALL Java_java_lang_reflect_Field_get(JNIEnv *env, java_lang_reflect_Field *this, java_lang_Object *obj)
{
- jfieldID target_fid; /* the JNI-fieldid of the wrapping object */
- jfieldID fid; /* the JNI-fieldid of the field containing the value */
- jobject o; /* the object for wrapping the primitive type */
- classinfo *c = (classinfo *) this->declaringClass;
- int st = (this->flag & ACC_STATIC); /* true if field is static */
-
- /* get the fieldid of the field represented by this Field-object */
- fid = class_findfield_approx((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
-
- /* The fieldid is used to retrieve the value, for primitive types a new
- object for wrapping the primitive type is created. */
- if (st || obj)
- switch ((((struct classinfo*)this->declaringClass)->fields[this->slot]).descriptor->text[0]) {
- case 'I' : {
- /* create wrapping class */
- c = class_java_lang_Integer;
- o = builtin_new(c);
- /* get fieldid to store the value */
- target_fid = (*env)->GetFieldID(env,c,"value","I");
- if (!target_fid) break;
+ jfieldID target_fid; /* the JNI-fieldid of the wrapping object */
+ jfieldID fid; /* the JNI-fieldid of the field containing the value */
+ jobject o; /* the object for wrapping the primitive type */
+ classinfo *c = (classinfo *) this->declaringClass;
+ int st = (this->flag & ACC_STATIC); /* true if field is static */
+
+ /* get the fieldid of the field represented by this Field-object */
+ fid = class_findfield_approx((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
+
+ /* The fieldid is used to retrieve the value, for primitive types a new
+ object for wrapping the primitive type is created. */
+ if (st || obj)
+ switch ((((classinfo *) this->declaringClass)->fields[this->slot]).descriptor->text[0]) {
+ case 'I':
+ /* create wrapping class */
+ c = class_java_lang_Integer;
+ o = builtin_new(c);
+ /* get fieldid to store the value */
+ target_fid = (*env)->GetFieldID(env, c, "value", "I");
+ if (!target_fid)
+ break;
- if (st)
+ if (st)
/* static field */
- SetIntField(env,o,target_fid, (*env)->GetStaticIntField(env, c, fid));
- else
- /* instance field */
- SetIntField(env,o,target_fid, (*env)->GetIntField(env,(jobject) obj, fid));
-
- /* return the wrapped object */
- return (java_lang_Object*) o;
- }
- case 'J' : {
- c = class_java_lang_Long;
- o = builtin_new(c);
- target_fid = (*env)->GetFieldID(env,c,"value","J");
- if (!target_fid) break;
+ SetIntField(env,o,target_fid, (*env)->GetStaticIntField(env, c, fid));
+ else
+ /* instance field */
+ SetIntField(env,o,target_fid, (*env)->GetIntField(env,(jobject) obj, fid));
+
+ /* return the wrapped object */
+ return (java_lang_Object *) o;
+
+ case 'J':
+ c = class_java_lang_Long;
+ o = builtin_new(c);
+ target_fid = (*env)->GetFieldID(env, c, "value", "J");
+ if (!target_fid)
+ break;
- if (st)
- SetLongField(env,o,target_fid, (*env)->GetStaticLongField(env, c, fid));
- else
- SetLongField(env,o,target_fid, (*env)->GetLongField(env,(jobject) obj, fid));
-
- return (java_lang_Object*) o;
- }
- case 'F' : {
- c = class_java_lang_Float;
- o = builtin_new(c);
- target_fid = (*env)->GetFieldID(env,c,"value","F");
- if (!target_fid) break;
+ if (st)
+ SetLongField(env,o,target_fid, (*env)->GetStaticLongField(env, c, fid));
+ else
+ SetLongField(env,o,target_fid, (*env)->GetLongField(env,(jobject) obj, fid));
+
+ return (java_lang_Object *) o;
+
+ case 'F':
+ c = class_java_lang_Float;
+ o = builtin_new(c);
+ target_fid = (*env)->GetFieldID(env, c, "value", "F");
+ if (!target_fid)
+ break;
- if (st)
- SetFloatField(env,o,target_fid, (*env)->GetStaticFloatField(env, c, fid));
- else
- SetFloatField(env,o,target_fid, (*env)->GetFloatField(env, (jobject) obj, fid));
-
- return (java_lang_Object*) o;
- }
- case 'D' : {
- c = class_java_lang_Double;
- o = builtin_new(c);
- target_fid = (*env)->GetFieldID(env,c,"value","D");
- if (!target_fid) break;
+ if (st)
+ SetFloatField(env,o,target_fid, (*env)->GetStaticFloatField(env, c, fid));
+ else
+ SetFloatField(env,o,target_fid, (*env)->GetFloatField(env, (jobject) obj, fid));
+
+ return (java_lang_Object *) o;
+
+ case 'D':
+ c = class_java_lang_Double;
+ o = builtin_new(c);
+ target_fid = (*env)->GetFieldID(env, c, "value", "D");
+ if (!target_fid)
+ break;
- if (st)
- SetDoubleField(env,o,target_fid, (*env)->GetStaticDoubleField(env, c, fid));
- else
- SetDoubleField(env,o,target_fid, (*env)->GetDoubleField(env, (jobject) obj, fid));
-
- return (java_lang_Object*) o;
- }
- case 'B' : {
- c = class_java_lang_Byte;
- o = builtin_new(c);
- target_fid = (*env)->GetFieldID(env,c,"value","B");
- if (!target_fid) break;
+ if (st)
+ SetDoubleField(env,o,target_fid, (*env)->GetStaticDoubleField(env, c, fid));
+ else
+ SetDoubleField(env,o,target_fid, (*env)->GetDoubleField(env, (jobject) obj, fid));
+
+ return (java_lang_Object *) o;
+
+ case 'B':
+ c = class_java_lang_Byte;
+ o = builtin_new(c);
+ target_fid = (*env)->GetFieldID(env, c, "value", "B");
+ if (!target_fid)
+ break;
- if (st)
- SetByteField(env,o,target_fid, (*env)->GetStaticByteField(env, c, fid));
- else
- SetByteField(env,o,target_fid, (*env)->GetByteField(env, (jobject) obj, fid));
-
- return (java_lang_Object*) o;
- }
- case 'C' : {
- c = class_java_lang_Character;
- o = builtin_new(c);
- target_fid = (*env)->GetFieldID(env,c,"value","C");
- if (!target_fid) break;
+ if (st)
+ SetByteField(env,o,target_fid, (*env)->GetStaticByteField(env, c, fid));
+ else
+ SetByteField(env,o,target_fid, (*env)->GetByteField(env, (jobject) obj, fid));
+
+ return (java_lang_Object *) o;
+
+ case 'C':
+ c = class_java_lang_Character;
+ o = builtin_new(c);
+ target_fid = (*env)->GetFieldID(env, c, "value", "C");
+ if (!target_fid)
+ break;
- if (st)
- SetCharField(env,o,target_fid, (*env)->GetStaticCharField(env, c, fid));
- else
- SetCharField(env,o,target_fid, (*env)->GetCharField(env, (jobject) obj, fid));
-
- return (java_lang_Object*) o;
- }
- case 'S' : {
- c = class_java_lang_Short;
- o = builtin_new(c);
- target_fid = (*env)->GetFieldID(env,c,"value","S");
- if (!target_fid) break;
+ if (st)
+ SetCharField(env,o,target_fid, (*env)->GetStaticCharField(env, c, fid));
+ else
+ SetCharField(env,o,target_fid, (*env)->GetCharField(env, (jobject) obj, fid));
+
+ return (java_lang_Object *) o;
+
+ case 'S':
+ c = class_java_lang_Short;
+ o = builtin_new(c);
+ target_fid = (*env)->GetFieldID(env, c, "value", "S");
+ if (!target_fid)
+ break;
- if (st)
- SetShortField(env,o,target_fid, (*env)->GetStaticShortField(env, c, fid));
- else
- SetShortField(env,o,target_fid, (*env)->GetShortField(env, (jobject) obj, fid));
-
- return (java_lang_Object*) o;
- }
- case 'Z' : {
- c = class_java_lang_Boolean;
- o = builtin_new(c);
- target_fid = (*env)->GetFieldID(env,c,"value","Z");
- if (!target_fid) break;
+ if (st)
+ SetShortField(env,o,target_fid, (*env)->GetStaticShortField(env, c, fid));
+ else
+ SetShortField(env,o,target_fid, (*env)->GetShortField(env, (jobject) obj, fid));
+
+ return (java_lang_Object *) o;
+
+ case 'Z':
+ c = class_java_lang_Boolean;
+ o = builtin_new(c);
+ target_fid = (*env)->GetFieldID(env, c, "value", "Z");
+ if (!target_fid)
+ break;
- if (st)
- SetBooleanField(env,o,target_fid, (*env)->GetStaticBooleanField(env, c, fid));
- else
- SetBooleanField(env,o,target_fid, (*env)->GetBooleanField(env, (jobject) obj, fid));
-
- return (java_lang_Object*) o;
- }
- case '[' :
- case 'L' : {
- if (st)
+ if (st)
+ SetBooleanField(env,o,target_fid, (*env)->GetStaticBooleanField(env, c, fid));
+ else
+ SetBooleanField(env,o,target_fid, (*env)->GetBooleanField(env, (jobject) obj, fid));
+
+ return (java_lang_Object *) o;
+
+ case '[':
+ case 'L':
+ if (st)
/* static field */
- return (java_lang_Object*) (*env)->GetStaticObjectField(env, c, fid);
- else
- /* instance field */
- return (java_lang_Object*) (*env)->GetObjectField(env, (jobject) obj, fid);
+ return (java_lang_Object*) (*env)->GetStaticObjectField(env, c, fid);
+ else
+ /* instance field */
+ return (java_lang_Object*) (*env)->GetObjectField(env, (jobject) obj, fid);
+ }
- }
- }
+ *exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
- exceptionptr = native_new_and_init(class_java_lang_IllegalArgumentException);
+ return NULL;
}
+
/*
* Class: java/lang/reflect/Field
* Method: getBoolean
* Signature: (Ljava/lang/Object;)Z
*/
-JNIEXPORT s4 JNICALL Java_java_lang_reflect_Field_getBoolean ( JNIEnv *env , struct java_lang_reflect_Field* this, struct java_lang_Object* obj)
+JNIEXPORT s4 JNICALL Java_java_lang_reflect_Field_getBoolean(JNIEnv *env, java_lang_reflect_Field *this, java_lang_Object *obj)
{
- jfieldID fid;
+ jfieldID fid;
- if (this->declaringClass && obj) {
+ if (this->declaringClass && obj) {
+ /* get the fieldid represented by the field-object */
+ fid = class_findfield_approx((classinfo *) this->declaringClass,
+ javastring_toutf(this->name, false));
- /* get the fieldid represented by the field-object */
- fid = class_findfield_approx ((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
+ if (fid)
+ /* call the JNI-function to retrieve the field */
+ return (*env)->GetBooleanField(env, (jobject) obj, fid);
+ }
- if (fid)
- /* call the JNI-function to retrieve the field */
- return (*env)->GetBooleanField (env, (jobject) obj, fid);
- }
+ /* raise exception */
+ *exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
- /* raise exception */
- exceptionptr = native_new_and_init(class_java_lang_IllegalArgumentException);
+ return 0;
}
+
/*
* Class: java/lang/reflect/Field
* Method: getByte
* Signature: (Ljava/lang/Object;)B
*/
-JNIEXPORT s4 JNICALL Java_java_lang_reflect_Field_getByte ( JNIEnv *env , struct java_lang_reflect_Field* this, struct java_lang_Object* obj)
+JNIEXPORT s4 JNICALL Java_java_lang_reflect_Field_getByte(JNIEnv *env, java_lang_reflect_Field *this, java_lang_Object *obj)
{
- jfieldID fid;
+ jfieldID fid;
- if (this->declaringClass && obj) {
+ if (this->declaringClass && obj) {
+ fid = class_findfield_approx((classinfo *) this->declaringClass,
+ javastring_toutf(this->name, false));
- fid = class_findfield_approx ((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
+ if (fid)
+ return (*env)->GetByteField(env, (jobject) obj, fid);
+ }
- if (fid)
- return (*env)->GetByteField (env, (jobject) obj, fid);
- }
+ /* raise exception */
+ *exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
- exceptionptr = native_new_and_init(class_java_lang_IllegalArgumentException);
+ return 0;
}
+
/*
* Class: java/lang/reflect/Field
* Method: getChar
* Signature: (Ljava/lang/Object;)C
*/
-JNIEXPORT s4 JNICALL Java_java_lang_reflect_Field_getChar ( JNIEnv *env , struct java_lang_reflect_Field* this, struct java_lang_Object* obj)
+JNIEXPORT s4 JNICALL Java_java_lang_reflect_Field_getChar(JNIEnv *env, java_lang_reflect_Field *this, java_lang_Object *obj)
{
- jfieldID fid;
+ jfieldID fid;
- if (this->declaringClass && obj) {
+ if (this->declaringClass && obj) {
+ fid = class_findfield_approx((classinfo *) this->declaringClass,
+ javastring_toutf(this->name, false));
- fid = class_findfield_approx ((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
+ if (fid)
+ return (*env)->GetCharField (env, (jobject) obj, fid);
+ }
- if (fid)
- return (*env)->GetCharField (env, (jobject) obj, fid);
- }
+ /* raise exception */
+ *exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
- exceptionptr = native_new_and_init(class_java_lang_IllegalArgumentException);
+ return 0;
}
+
/*
* Class: java/lang/reflect/Field
* Method: getDouble
* Signature: (Ljava/lang/Object;)D
*/
-JNIEXPORT double JNICALL Java_java_lang_reflect_Field_getDouble ( JNIEnv *env , struct java_lang_reflect_Field* this, struct java_lang_Object* obj)
+JNIEXPORT double JNICALL Java_java_lang_reflect_Field_getDouble(JNIEnv *env , java_lang_reflect_Field *this, java_lang_Object *obj)
{
- jfieldID fid;
+ jfieldID fid;
- if (this->declaringClass && obj) {
+ if (this->declaringClass && obj) {
+ fid = class_findfield_approx((classinfo *) this->declaringClass,
+ javastring_toutf(this->name, false));
- fid = class_findfield_approx ((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
+ if (fid)
+ return (*env)->GetDoubleField(env, (jobject) obj, fid);
+ }
- if (fid)
- return (*env)->GetDoubleField (env, (jobject) obj, fid);
- }
+ /* raise exception */
+ *exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
- exceptionptr = native_new_and_init(class_java_lang_IllegalArgumentException);
+ return 0;
}
+
/*
* Class: java/lang/reflect/Field
* Method: getFloat
* Signature: (Ljava/lang/Object;)F
*/
-JNIEXPORT float JNICALL Java_java_lang_reflect_Field_getFloat ( JNIEnv *env , struct java_lang_reflect_Field* this, struct java_lang_Object* obj)
+JNIEXPORT float JNICALL Java_java_lang_reflect_Field_getFloat(JNIEnv *env, java_lang_reflect_Field *this, java_lang_Object *obj)
{
- jfieldID fid;
+ jfieldID fid;
- if (this->declaringClass && obj) {
+ if (this->declaringClass && obj) {
+ fid = class_findfield_approx((classinfo *) this->declaringClass,
+ javastring_toutf(this->name, false));
- fid = class_findfield_approx ((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
+ if (fid)
+ return (*env)->GetFloatField(env, (jobject) obj, fid);
+ }
- if (fid)
- return (*env)->GetFloatField (env, (jobject) obj, fid);
- }
+ /* raise exception */
+ *exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
- exceptionptr = native_new_and_init(class_java_lang_IllegalArgumentException);
+ return 0;
}
+
/*
* Class: java/lang/reflect/Field
* Method: getInt
* Signature: (Ljava/lang/Object;)I
*/
-JNIEXPORT s4 JNICALL Java_java_lang_reflect_Field_getInt ( JNIEnv *env , struct java_lang_reflect_Field* this, struct java_lang_Object* obj)
+JNIEXPORT s4 JNICALL Java_java_lang_reflect_Field_getInt(JNIEnv *env , java_lang_reflect_Field *this, java_lang_Object *obj)
{
- jfieldID fid;
+ jfieldID fid;
- if (this->declaringClass && obj) {
+ if (this->declaringClass && obj) {
+ fid = class_findfield_approx((classinfo *) this->declaringClass,
+ javastring_toutf(this->name, false));
- fid = class_findfield_approx ((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
+ if (fid)
+ return (*env)->GetIntField(env, (jobject) obj, fid);
+ }
- if (fid)
- return (*env)->GetIntField (env, (jobject) obj, fid);
- }
+ /* raise exception */
+ *exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
- exceptionptr = native_new_and_init(class_java_lang_IllegalArgumentException);
+ return 0;
}
+
/*
* Class: java/lang/reflect/Field
* Method: getLong
* Signature: (Ljava/lang/Object;)J
*/
-JNIEXPORT s8 JNICALL Java_java_lang_reflect_Field_getLong ( JNIEnv *env , struct java_lang_reflect_Field* this, struct java_lang_Object* obj)
+JNIEXPORT s8 JNICALL Java_java_lang_reflect_Field_getLong(JNIEnv *env, java_lang_reflect_Field *this, java_lang_Object *obj)
{
- jfieldID fid;
+ jfieldID fid;
- if (this->declaringClass && obj) {
+ if (this->declaringClass && obj) {
+ fid = class_findfield_approx((classinfo *) this->declaringClass,
+ javastring_toutf(this->name, false));
- fid = class_findfield_approx ((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
+ if (fid)
+ return (*env)->GetLongField(env, (jobject) obj, fid);
+ }
- if (fid)
- return (*env)->GetLongField (env, (jobject) obj, fid);
- }
+ /* raise exception */
+ *exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
+
+ return 0;
}
+
/*
* Class: java/lang/reflect/Field
* Method: getShort
* Signature: (Ljava/lang/Object;)S
*/
-JNIEXPORT s4 JNICALL Java_java_lang_reflect_Field_getShort ( JNIEnv *env , struct java_lang_reflect_Field* this, struct java_lang_Object* obj)
+JNIEXPORT s4 JNICALL Java_java_lang_reflect_Field_getShort(JNIEnv *env, java_lang_reflect_Field *this, java_lang_Object *obj)
{
- jfieldID fid;
+ jfieldID fid;
- if (this->declaringClass && obj) {
+ if (this->declaringClass && obj) {
+ fid = class_findfield_approx((classinfo *) this->declaringClass,
+ javastring_toutf(this->name, false));
- fid = class_findfield_approx ((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
+ if (fid)
+ return (*env)->GetShortField(env, (jobject) obj, fid);
+ }
- if (fid)
- return (*env)->GetShortField (env, (jobject) obj, fid);
- }
+ /* raise exception */
+ *exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
- exceptionptr = native_new_and_init(class_java_lang_IllegalArgumentException);
+ return 0;
}
+
/*
* Class: java/lang/reflect/Field
* Method: set
* Signature: (Ljava/lang/Object;Ljava/lang/Object;)V
*/
-JNIEXPORT void JNICALL Java_java_lang_reflect_Field_set ( JNIEnv *env , struct java_lang_reflect_Field* this, struct java_lang_Object* obj, struct java_lang_Object* val)
+JNIEXPORT void JNICALL Java_java_lang_reflect_Field_set(JNIEnv *env, java_lang_reflect_Field *this, java_lang_Object *obj, java_lang_Object *val)
{
- jfieldID source_fid; /* the field containing the value to be written */
- jfieldID fid; /* the field to be written */
- classinfo *c;
- int st = (this->flag & ACC_STATIC); /* true if the field is static */
-
- fid = class_findfield_approx((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
-
- if (val && (st || obj)) {
-
- c = val->header.vftbl -> class;
-
- /* The fieldid is used to set the new value, for primitive types the value
- has to be retrieved from the wrapping object */
- switch ((((struct classinfo*)this->declaringClass)->fields[this->slot]).descriptor->text[0]) {
- case 'I' : {
- /* illegal argument specified */
- if (c != class_java_lang_Integer) break;
- /* determine the field to read the value */
- source_fid = (*env)->GetFieldID(env,c,"value","I");
- if (!source_fid) break;
+ jfieldID source_fid; /* the field containing the value to be written */
+ jfieldID fid; /* the field to be written */
+ classinfo *c;
+ int st = (this->flag & ACC_STATIC); /* true if the field is static */
+
+ fid = class_findfield_approx((classinfo *) this->declaringClass,
+ javastring_toutf(this->name, false));
+
+ if (val && (st || obj)) {
+
+ c = val->header.vftbl->class;
+
+ /* The fieldid is used to set the new value, for primitive types the value
+ has to be retrieved from the wrapping object */
+ switch ((((classinfo *) this->declaringClass)->fields[this->slot]).descriptor->text[0]) {
+ case 'I':
+ /* illegal argument specified */
+ if (c != class_java_lang_Integer)
+ break;
+ /* determine the field to read the value */
+ source_fid = (*env)->GetFieldID(env, c, "value", "I");
+ if (!source_fid)
+ break;
- /* set the new value */
- if (st)
+ /* set the new value */
+ if (st)
/* static field */
- (*env)->SetStaticIntField(env, c, fid, GetIntField(env,(jobject) val,source_fid));
- else
- /* instance field */
- (*env)->SetIntField(env, (jobject) obj, fid, GetIntField(env,(jobject) val,source_fid));
-
- return;
- }
- case 'J' : {
- if (c != class_java_lang_Long) break;
- source_fid = (*env)->GetFieldID(env,c,"value","J");
- if (!source_fid) break;
+ (*env)->SetStaticIntField(env, c, fid, GetIntField(env, (jobject) val, source_fid));
+ else
+ /* instance field */
+ (*env)->SetIntField(env, (jobject) obj, fid, GetIntField(env, (jobject) val, source_fid));
+
+ return;
+
+ case 'J':
+ if (c != class_java_lang_Long)
+ break;
+ source_fid = (*env)->GetFieldID(env, c, "value", "J");
+ if (!source_fid)
+ break;
- if (st)
- (*env)->SetStaticLongField(env, c, fid, GetLongField(env,(jobject) val,source_fid));
- else
- (*env)->SetLongField(env, (jobject) obj, fid, GetLongField(env,(jobject) val,source_fid));
-
- return;
- }
- case 'F' : {
- if (c != class_java_lang_Float) break;
- source_fid = (*env)->GetFieldID(env,c,"value","F");
- if (!source_fid) break;
+ if (st)
+ (*env)->SetStaticLongField(env, c, fid, GetLongField(env, (jobject) val, source_fid));
+ else
+ (*env)->SetLongField(env, (jobject) obj, fid, GetLongField(env, (jobject) val, source_fid));
+
+ return;
+
+ case 'F':
+ if (c != class_java_lang_Float)
+ break;
+ source_fid = (*env)->GetFieldID(env, c, "value", "F");
+ if (!source_fid)
+ break;
- if (st)
- (*env)->SetStaticFloatField(env, c, fid, GetFloatField(env,(jobject) val,source_fid));
- else
- (*env)->SetFloatField(env, (jobject) obj, fid, GetFloatField(env,(jobject) val,source_fid));
-
- return;
- }
- case 'D' : {
- if (c != class_java_lang_Double) break;
- source_fid = (*env)->GetFieldID(env,c,"value","D");
- if (!source_fid) break;
+ if (st)
+ (*env)->SetStaticFloatField(env, c, fid, GetFloatField(env, (jobject) val, source_fid));
+ else
+ (*env)->SetFloatField(env, (jobject) obj, fid, GetFloatField(env, (jobject) val, source_fid));
+
+ return;
+
+ case 'D':
+ if (c != class_java_lang_Double)
+ break;
+ source_fid = (*env)->GetFieldID(env, c, "value", "D");
+ if (!source_fid) break;
- if (st)
- (*env)->SetStaticDoubleField(env, c, fid, GetDoubleField(env,(jobject) val,source_fid));
- else
- (*env)->SetDoubleField(env, (jobject) obj, fid, GetDoubleField(env,(jobject) val,source_fid));
-
- return;
- }
- case 'B' : {
- if (c != class_java_lang_Byte) break;
- source_fid = (*env)->GetFieldID(env,c,"value","B");
- if (!source_fid) break;
+ if (st)
+ (*env)->SetStaticDoubleField(env, c, fid, GetDoubleField(env,(jobject) val,source_fid));
+ else
+ (*env)->SetDoubleField(env, (jobject) obj, fid, GetDoubleField(env,(jobject) val,source_fid));
+
+ return;
+
+ case 'B':
+ if (c != class_java_lang_Byte)
+ break;
+ source_fid = (*env)->GetFieldID(env, c, "value", "B");
+ if (!source_fid)
+ break;
- if (st)
- (*env)->SetStaticByteField(env, c, fid, GetByteField(env,(jobject) val,source_fid));
- else
- (*env)->SetByteField(env, (jobject) obj, fid, GetByteField(env,(jobject) val,source_fid));
-
- return;
- }
- case 'C' : {
- if (c != class_java_lang_Character) break;
- source_fid = (*env)->GetFieldID(env,c,"value","C");
- if (!source_fid) break;
+ if (st)
+ (*env)->SetStaticByteField(env, c, fid, GetByteField(env, (jobject) val, source_fid));
+ else
+ (*env)->SetByteField(env, (jobject) obj, fid, GetByteField(env, (jobject) val, source_fid));
+
+ return;
+
+ case 'C':
+ if (c != class_java_lang_Character)
+ break;
+ source_fid = (*env)->GetFieldID(env, c, "value", "C");
+ if (!source_fid)
+ break;
- if (st)
- (*env)->SetStaticCharField(env, c, fid, GetCharField(env,(jobject) val,source_fid));
- else
- (*env)->SetCharField(env, (jobject) obj, fid, GetCharField(env,(jobject) val,source_fid));
-
- return;
- }
- case 'S' : {
- if (c != class_java_lang_Short) break;
- source_fid = (*env)->GetFieldID(env,c,"value","S");
- if (!source_fid) break;
+ if (st)
+ (*env)->SetStaticCharField(env, c, fid, GetCharField(env, (jobject) val, source_fid));
+ else
+ (*env)->SetCharField(env, (jobject) obj, fid, GetCharField(env, (jobject) val, source_fid));
+
+ return;
+
+ case 'S':
+ if (c != class_java_lang_Short)
+ break;
+ source_fid = (*env)->GetFieldID(env, c, "value", "S");
+ if (!source_fid)
+ break;
- if (st)
- (*env)->SetStaticShortField(env, c, fid, GetShortField(env,(jobject) val,source_fid));
- else
- (*env)->SetShortField(env, (jobject) obj, fid, GetShortField(env,(jobject) val,source_fid));
-
- return;
- }
- case 'Z' : {
- if (c != class_java_lang_Boolean) break;
- source_fid = (*env)->GetFieldID(env,c,"value","Z");
- if (!source_fid) break;
+ if (st)
+ (*env)->SetStaticShortField(env, c, fid, GetShortField(env, (jobject) val, source_fid));
+ else
+ (*env)->SetShortField(env, (jobject) obj, fid, GetShortField(env, (jobject) val, source_fid));
+
+ return;
+
+ case 'Z':
+ if (c != class_java_lang_Boolean)
+ break;
+ source_fid = (*env)->GetFieldID(env, c, "value", "Z");
+ if (!source_fid)
+ break;
- if (st)
- (*env)->SetStaticBooleanField(env, c, fid, GetBooleanField(env,(jobject) val,source_fid));
- else
- (*env)->SetBooleanField(env, (jobject) obj, fid, GetBooleanField(env,(jobject) val,source_fid));
-
- return;
- }
- case '[' :
- case 'L' : {
- if (st)
- (*env)->SetStaticObjectField(env, c, fid, (jobject) val);
- else
- (*env)->SetObjectField(env, (jobject) obj, fid, (jobject) val);
-
- return;
- }
- }
- }
-
- exceptionptr = native_new_and_init(class_java_lang_IllegalArgumentException);
+ if (st)
+ (*env)->SetStaticBooleanField(env, c, fid, GetBooleanField(env, (jobject) val, source_fid));
+ else
+ (*env)->SetBooleanField(env, (jobject) obj, fid, GetBooleanField(env, (jobject) val, source_fid));
+
+ return;
+
+ case '[':
+ case 'L':
+ if (st)
+ (*env)->SetStaticObjectField(env, c, fid, (jobject) val);
+ else
+ (*env)->SetObjectField(env, (jobject) obj, fid, (jobject) val);
+
+ return;
+ }
+ }
+
+ /* raise exception */
+ *exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
}
+
/*
* Class: java/lang/reflect/Field
* Method: setBoolean
* Signature: (Ljava/lang/Object;Z)V
*/
-JNIEXPORT void JNICALL Java_java_lang_reflect_Field_setBoolean ( JNIEnv *env , struct java_lang_reflect_Field* this, struct java_lang_Object* obj, s4 val)
+JNIEXPORT void JNICALL Java_java_lang_reflect_Field_setBoolean(JNIEnv *env, java_lang_reflect_Field *this, java_lang_Object *obj, s4 val)
{
- jfieldID fid;
-
- if (this->declaringClass && obj) {
+ jfieldID fid;
- fid = class_findfield_approx ((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
+ if (this->declaringClass && obj) {
+ fid = class_findfield_approx((classinfo *) this->declaringClass,
+ javastring_toutf(this->name, false));
- if (fid) {
- (*env)->SetBooleanField (env, (jobject) obj, fid, val);
- return;
- }
- }
+ if (fid) {
+ (*env)->SetBooleanField(env, (jobject) obj, fid, val);
+ return;
+ }
+ }
- exceptionptr = native_new_and_init(class_java_lang_IllegalArgumentException);
+ /* raise exception */
+ *exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
}
+
/*
* Class: java/lang/reflect/Field
* Method: setByte
* Signature: (Ljava/lang/Object;B)V
*/
-JNIEXPORT void JNICALL Java_java_lang_reflect_Field_setByte ( JNIEnv *env , struct java_lang_reflect_Field* this, struct java_lang_Object* obj, s4 val)
+JNIEXPORT void JNICALL Java_java_lang_reflect_Field_setByte(JNIEnv *env, java_lang_reflect_Field *this, java_lang_Object *obj, s4 val)
{
- jfieldID fid;
-
- if (this->declaringClass && obj) {
+ jfieldID fid;
- fid = class_findfield_approx ((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
+ if (this->declaringClass && obj) {
+ fid = class_findfield_approx((classinfo *) this->declaringClass,
+ javastring_toutf(this->name, false));
- if (fid) {
- (*env)->SetByteField (env, (jobject) obj, fid, val);
- return;
- }
- }
+ if (fid) {
+ (*env)->SetByteField(env, (jobject) obj, fid, val);
+ return;
+ }
+ }
- exceptionptr = native_new_and_init(class_java_lang_IllegalArgumentException);
+ /* raise exception */
+ *exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
}
+
/*
* Class: java/lang/reflect/Field
* Method: setChar
* Signature: (Ljava/lang/Object;C)V
*/
-JNIEXPORT void JNICALL Java_java_lang_reflect_Field_setChar ( JNIEnv *env , struct java_lang_reflect_Field* this, struct java_lang_Object* obj, s4 val)
+JNIEXPORT void JNICALL Java_java_lang_reflect_Field_setChar(JNIEnv *env, java_lang_reflect_Field *this, java_lang_Object *obj, s4 val)
{
- jfieldID fid;
+ jfieldID fid;
- if (this->declaringClass && obj) {
+ if (this->declaringClass && obj) {
+ fid = class_findfield_approx((classinfo *) this->declaringClass,
+ javastring_toutf(this->name, false));
- fid = class_findfield_approx ((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
+ if (fid) {
+ (*env)->SetCharField(env, (jobject) obj, fid, val);
+ return;
+ }
+ }
- if (fid) {
- (*env)->SetCharField (env, (jobject) obj, fid, val);
- return;
- }
- }
-
- exceptionptr = native_new_and_init(class_java_lang_IllegalArgumentException);
+ /* raise exception */
+ *exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
}
+
/*
* Class: java/lang/reflect/Field
* Method: setDouble
* Signature: (Ljava/lang/Object;D)V
*/
-JNIEXPORT void JNICALL Java_java_lang_reflect_Field_setDouble ( JNIEnv *env , struct java_lang_reflect_Field* this, struct java_lang_Object* obj, double val)
+JNIEXPORT void JNICALL Java_java_lang_reflect_Field_setDouble(JNIEnv *env, java_lang_reflect_Field *this, java_lang_Object *obj, double val)
{
- jfieldID fid;
-
- if (this->declaringClass && obj) {
+ jfieldID fid;
- fid = class_findfield_approx ((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
+ if (this->declaringClass && obj) {
+ fid = class_findfield_approx((classinfo *) this->declaringClass,
+ javastring_toutf(this->name, false));
- if (fid) {
- (*env)->SetDoubleField (env, (jobject) obj, fid, val);
- return;
- }
- }
+ if (fid) {
+ (*env)->SetDoubleField(env, (jobject) obj, fid, val);
+ return;
+ }
+ }
- exceptionptr = native_new_and_init(class_java_lang_IllegalArgumentException);
+ /* raise exception */
+ *exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
}
+
/*
* Class: java/lang/reflect/Field
* Method: setFloat
* Signature: (Ljava/lang/Object;F)V
*/
-JNIEXPORT void JNICALL Java_java_lang_reflect_Field_setFloat ( JNIEnv *env , struct java_lang_reflect_Field* this, struct java_lang_Object* obj, float val)
+JNIEXPORT void JNICALL Java_java_lang_reflect_Field_setFloat(JNIEnv *env, java_lang_reflect_Field *this, java_lang_Object *obj, float val)
{
- jfieldID fid;
-
- if (this->declaringClass && obj) {
+ jfieldID fid;
- fid = class_findfield_approx ((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
+ if (this->declaringClass && obj) {
+ fid = class_findfield_approx((classinfo *) this->declaringClass,
+ javastring_toutf(this->name, false));
- if (fid) {
- (*env)->SetFloatField (env, (jobject) obj, fid, val);
- return;
- }
- }
+ if (fid) {
+ (*env)->SetFloatField(env, (jobject) obj, fid, val);
+ return;
+ }
+ }
- exceptionptr = native_new_and_init(class_java_lang_IllegalArgumentException);
+ /* raise exception */
+ *exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
}
+
/*
* Class: java/lang/reflect/Field
* Method: setInt
* Signature: (Ljava/lang/Object;I)V
*/
-JNIEXPORT void JNICALL Java_java_lang_reflect_Field_setInt ( JNIEnv *env , struct java_lang_reflect_Field* this, struct java_lang_Object* obj, s4 val)
+JNIEXPORT void JNICALL Java_java_lang_reflect_Field_setInt(JNIEnv *env, java_lang_reflect_Field *this, java_lang_Object *obj, s4 val)
{
- jfieldID fid;
+ jfieldID fid;
- if (this->declaringClass && obj) {
+ if (this->declaringClass && obj) {
+ fid = class_findfield_approx((classinfo *) this->declaringClass,
+ javastring_toutf(this->name, false));
- fid = class_findfield_approx ((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
+ if (fid) {
+ (*env)->SetIntField(env, (jobject) obj, fid, val);
+ return;
+ }
+ }
- if (fid) {
- (*env)->SetIntField (env, (jobject) obj, fid, val);
- return;
- }
- }
-
- exceptionptr = native_new_and_init(class_java_lang_IllegalArgumentException);
+ /* raise exception */
+ *exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
}
+
/*
* Class: java/lang/reflect/Field
* Method: setLong
* Signature: (Ljava/lang/Object;J)V
*/
-JNIEXPORT void JNICALL Java_java_lang_reflect_Field_setLong ( JNIEnv *env , struct java_lang_reflect_Field* this, struct java_lang_Object* obj, s8 val)
+JNIEXPORT void JNICALL Java_java_lang_reflect_Field_setLong(JNIEnv *env, java_lang_reflect_Field *this, java_lang_Object *obj, s8 val)
{
- jfieldID fid;
-
- if (this->declaringClass && obj) {
+ jfieldID fid;
- fid = class_findfield_approx ((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
+ if (this->declaringClass && obj) {
+ fid = class_findfield_approx((classinfo *) this->declaringClass,
+ javastring_toutf(this->name, false));
- if (fid) {
- (*env)->SetLongField (env, (jobject) obj, fid, val);
- return;
- }
- }
+ if (fid) {
+ (*env)->SetLongField(env, (jobject) obj, fid, val);
+ return;
+ }
+ }
- exceptionptr = native_new_and_init(class_java_lang_IllegalArgumentException);
+ /* raise exception */
+ *exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
}
+
/*
* Class: java/lang/reflect/Field
* Method: setShort
* Signature: (Ljava/lang/Object;S)V
*/
-JNIEXPORT void JNICALL Java_java_lang_reflect_Field_setShort ( JNIEnv *env , struct java_lang_reflect_Field* this, struct java_lang_Object* obj, s4 val)
+JNIEXPORT void JNICALL Java_java_lang_reflect_Field_setShort(JNIEnv *env, java_lang_reflect_Field *this, java_lang_Object *obj, s4 val)
{
- jfieldID fid;
-
- if (this->declaringClass && obj) {
+ jfieldID fid;
- fid = class_findfield_approx ((classinfo *) this->declaringClass,javastring_toutf(this->name, false));
+ if (this->declaringClass && obj) {
+ fid = class_findfield_approx((classinfo *) this->declaringClass,
+ javastring_toutf(this->name, false));
- if (fid) {
- (*env)->SetShortField (env, (jobject) obj, fid, val);
- return;
- }
- }
+ if (fid) {
+ (*env)->SetShortField(env, (jobject) obj, fid, val);
+ return;
+ }
+ }
- exceptionptr = native_new_and_init(class_java_lang_IllegalArgumentException);
+ /* raise exception */
+ *exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
}
* Method: getType
* Signature: ()Ljava/lang/Class;
*/
-JNIEXPORT struct java_lang_Class* JNICALL Java_java_lang_reflect_Field_getType (JNIEnv *env , struct java_lang_reflect_Field* this )
+JNIEXPORT java_lang_Class* JNICALL Java_java_lang_reflect_Field_getType(JNIEnv *env, java_lang_reflect_Field *this)
{
-/* log_text("Java_java_lang_reflect_Field_getType");*/
- utf *desc=(((struct classinfo*)this->declaringClass)->fields[this->slot]).descriptor;
- if (!desc) return NULL;
- return class_from_descriptor(desc->text,utf_end(desc),NULL,true);
+ utf *desc = (((classinfo *) this->declaringClass)->fields[this->slot]).descriptor;
+
+ if (!desc)
+ return NULL;
+
+ return (java_lang_Class *) class_from_descriptor(desc->text, utf_end(desc), NULL, CLASSLOAD_LOAD);
}
* Method: getModifiers
* Signature: ()I
*/
-JNIEXPORT s4 JNICALL Java_java_lang_reflect_Field_getModifiers (JNIEnv *env , struct java_lang_reflect_Field* this )
+JNIEXPORT s4 JNICALL Java_java_lang_reflect_Field_getModifiers(JNIEnv *env, java_lang_reflect_Field *this)
{
-/* log_text("Java_java_lang_reflect_Field_getType");*/
- return (((struct classinfo*)this->declaringClass)->fields[this->slot]).flags;
+ return (((classinfo *) this->declaringClass)->fields[this->slot]).flags;
}
+
+
+/*
+ * These are local overrides for various environment variables in Emacs.
+ * Please do not remove this and leave it at the end of the file, where
+ * Emacs will automagically detect them.
+ * ---------------------------------------------------------------------
+ * Local variables:
+ * mode: c
+ * indent-tabs-mode: t
+ * c-basic-offset: 4
+ * tab-width: 4
+ * End:
+ */
projects / cacao.git / blobdiff