/* nat/Field.c - java/lang/reflect/Field

   Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
   R. Grafl, A. Krall, C. Kruegel, C. Oates, R. Obermaisser,
   M. Probst, S. Ring, E. Steiner, C. Thalinger, D. Thuernbeck,
   P. Tomsich, J. Wenninger

   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 1537 2004-11-18 12:12:05Z twisti $

*/


#include "jni.h"
#include "builtin.h"
#include "exceptions.h"
#include "loader.h"
#include "native.h"
#include "tables.h"
#include "nat/java_lang_Object.h"
#include "nat/java_lang_Class.h"
#include "nat/java_lang_reflect_Field.h"


/*
 * Class:     java/lang/reflect/Field
 * Method:    get
 * Signature: (Ljava/lang/Object;)Ljava/lang/Object;
 */
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 ((((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)
		        /* 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;
				   
			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)
				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)
				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)
				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);
		}

	*exceptionptr = new_exception(string_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, java_lang_reflect_Field *this, java_lang_Object *obj)
{
	jfieldID fid;

	if (this->declaringClass && obj) {
		/* 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);
	}

	/* raise exception */
	*exceptionptr = new_exception(string_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, java_lang_reflect_Field *this, java_lang_Object *obj)
{
	jfieldID fid;

	if (this->declaringClass && obj) {
		fid = class_findfield_approx((classinfo *) this->declaringClass,
									 javastring_toutf(this->name, false));

		if (fid)
			return (*env)->GetByteField(env, (jobject) obj, fid);
	}

	/* raise exception */
	*exceptionptr = new_exception(string_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, java_lang_reflect_Field *this, java_lang_Object *obj)
{
	jfieldID fid;

	if (this->declaringClass && obj) {
		fid = class_findfield_approx((classinfo *) this->declaringClass,
									 javastring_toutf(this->name, false));

		if (fid)
			return (*env)->GetCharField (env, (jobject) obj, fid);
	}

	/* raise exception */
	*exceptionptr = new_exception(string_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 , java_lang_reflect_Field *this, java_lang_Object *obj)
{
	jfieldID fid;

	if (this->declaringClass && obj) {
		fid = class_findfield_approx((classinfo *) this->declaringClass,
									 javastring_toutf(this->name, false));

		if (fid)
			return (*env)->GetDoubleField(env, (jobject) obj, fid);
	}

	/* raise exception */
	*exceptionptr = new_exception(string_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, java_lang_reflect_Field *this, java_lang_Object *obj)
{
	jfieldID fid;

	if (this->declaringClass && obj) {
		fid = class_findfield_approx((classinfo *) this->declaringClass,
									 javastring_toutf(this->name, false));

		if (fid)
			return (*env)->GetFloatField(env, (jobject) obj, fid);
	}

	/* raise exception */
	*exceptionptr = new_exception(string_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 , java_lang_reflect_Field *this, java_lang_Object *obj)
{
	jfieldID fid;

	if (this->declaringClass && obj) {
		fid = class_findfield_approx((classinfo *) this->declaringClass,
									 javastring_toutf(this->name, false));

		if (fid)
			return (*env)->GetIntField(env, (jobject) obj, fid);
	}

	/* raise exception */
	*exceptionptr = new_exception(string_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, java_lang_reflect_Field *this, java_lang_Object *obj)
{
	jfieldID fid;

	if (this->declaringClass && obj) {
		fid = class_findfield_approx((classinfo *) this->declaringClass,
									 javastring_toutf(this->name, false));

		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, java_lang_reflect_Field *this, java_lang_Object *obj)
{
	jfieldID fid;

	if (this->declaringClass && obj) {
		fid = class_findfield_approx((classinfo *) this->declaringClass,
									 javastring_toutf(this->name, false));

		if (fid)
			return (*env)->GetShortField(env, (jobject) obj, fid);
	}

	/* raise exception */
	*exceptionptr = new_exception(string_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, 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 ((((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)
		        /* 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;
				   
			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)->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)->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)->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, java_lang_reflect_Field *this, java_lang_Object *obj, s4 val)
{
	jfieldID fid;

	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;
		}
	}

	/* 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, java_lang_reflect_Field *this, java_lang_Object *obj, s4 val)
{
	jfieldID fid;

	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;
		}
	}

	/* 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, java_lang_reflect_Field *this, java_lang_Object *obj, s4 val)
{
	jfieldID fid;

	if (this->declaringClass && obj) {
		fid = class_findfield_approx((classinfo *) this->declaringClass,
									 javastring_toutf(this->name, false));

		if (fid) {
			(*env)->SetCharField(env, (jobject) obj, fid, val);
			return;
		}
	}

	/* 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, java_lang_reflect_Field *this, java_lang_Object *obj, double val)
{
	jfieldID fid;

	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;
		} 
	}

	/* 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, java_lang_reflect_Field *this, java_lang_Object *obj, float val)
{
	jfieldID fid;

	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;
		}
	}

	/* 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, java_lang_reflect_Field *this, java_lang_Object *obj, s4 val)
{
	jfieldID fid;

	if (this->declaringClass && obj) {
		fid = class_findfield_approx((classinfo *) this->declaringClass,
									 javastring_toutf(this->name, false));

		if (fid) {
			(*env)->SetIntField(env, (jobject) obj, fid, val);
			return;
		}
	}

	/* 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, java_lang_reflect_Field *this, java_lang_Object *obj, s8 val)
{
	jfieldID fid;

	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;
		}
	}

	/* 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, java_lang_reflect_Field *this, java_lang_Object *obj, s4 val)
{
	jfieldID fid;

	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;
		}
	}

	/* raise exception */
	*exceptionptr = new_exception(string_java_lang_IllegalArgumentException);
}


/*
 * Class:     java_lang_reflect_Field
 * Method:    getType
 * Signature: ()Ljava/lang/Class;
 */
JNIEXPORT java_lang_Class* JNICALL Java_java_lang_reflect_Field_getType(JNIEnv *env, java_lang_reflect_Field *this)
{
	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);
}


/*
 * Class:     java_lang_reflect_Field
 * Method:    getModifiers
 * Signature: ()I
 */
JNIEXPORT s4 JNICALL Java_java_lang_reflect_Field_getModifiers(JNIEnv *env, java_lang_reflect_Field *this)
{
	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:
 */