/* src/native/vm/gnuclasspath/java_lang_VMThrowable.cpp

   Copyright (C) 1996-2005, 2006, 2007, 2008
   CACAOVM - Verein zur Foerderung der freien virtuellen Maschine CACAO

   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., 51 Franklin Street, Fifth Floor, Boston, MA
   02110-1301, USA.

*/


#include "config.h"

#include <stdint.h>
#include <assert.h>

#include "vm/types.h"

#include "native/jni.h"
#include "native/llni.h"
#include "native/native.h"

#include "native/include/java_lang_Object.h"
#include "native/include/java_lang_Class.h"
#include "native/include/java_lang_String.h"
#include "native/include/java_lang_StackTraceElement.h"
#include "native/include/java_lang_Throwable.h"

// FIXME
extern "C" {
#include "native/include/java_lang_VMThrowable.h"
}

#include "vm/array.h"
#include "vm/builtin.h"
#include "vm/exceptions.h"
#include "vm/stringlocal.h"

#include "vm/jit/code.h"
#include "vm/jit/linenumbertable.h"
#include "vm/jit/stacktrace.h"

#include "vmcore/class.h"
#include "vmcore/loader.h"


/* native methods implemented by this file ************************************/

static JNINativeMethod methods[] = {
	{ (char*) "fillInStackTrace", (char*) "(Ljava/lang/Throwable;)Ljava/lang/VMThrowable;",        (void*) (uintptr_t) &Java_java_lang_VMThrowable_fillInStackTrace },
	{ (char*) "getStackTrace",    (char*) "(Ljava/lang/Throwable;)[Ljava/lang/StackTraceElement;", (void*) (uintptr_t) &Java_java_lang_VMThrowable_getStackTrace    },
};


/* _Jv_java_lang_VMThrowable_init **********************************************

   Register native functions.

*******************************************************************************/

extern "C" {
void _Jv_java_lang_VMThrowable_init(void)
{
	utf *u;

	u = utf_new_char("java/lang/VMThrowable");

	native_method_register(u, methods, NATIVE_METHODS_COUNT);
}
}


// Native functions are exported as C functions.
extern "C" {

/*
 * Class:     java/lang/VMThrowable
 * Method:    fillInStackTrace
 * Signature: (Ljava/lang/Throwable;)Ljava/lang/VMThrowable;
 */
JNIEXPORT java_lang_VMThrowable* JNICALL Java_java_lang_VMThrowable_fillInStackTrace(JNIEnv *env, jclass clazz, java_lang_Throwable *t)
{
	java_lang_VMThrowable   *vmto;
	java_handle_bytearray_t *ba;
	java_lang_Object        *o;

	vmto = (java_lang_VMThrowable *)
		native_new_and_init(class_java_lang_VMThrowable);

	if (vmto == NULL)
		return NULL;

	ba = stacktrace_get_current();

	if (ba == NULL)
		return NULL;

	o = (java_lang_Object *) ba;

	LLNI_field_set_ref(vmto, vmdata, o);

	return vmto;
}


/*
 * Class:     java/lang/VMThrowable
 * Method:    getStackTrace
 * Signature: (Ljava/lang/Throwable;)[Ljava/lang/StackTraceElement;
 */
JNIEXPORT java_handle_objectarray_t* JNICALL Java_java_lang_VMThrowable_getStackTrace(JNIEnv *env, java_lang_VMThrowable *_this, java_lang_Throwable *t)
{
	java_lang_Object            *o;
	java_handle_bytearray_t     *ba;
	stacktrace_t                *st;
	stacktrace_entry_t          *ste;
	java_handle_objectarray_t   *oa;
	java_lang_StackTraceElement *steo;
	codeinfo                    *code;
	methodinfo                  *m;
	java_lang_String            *filename;
	s4                           linenumber;
	java_handle_t               *declaringclass;
	int                          i;

	/* Get the stacktrace from the VMThrowable object. */

	LLNI_field_get_ref(_this, vmdata, o);

	ba = (java_handle_bytearray_t *) o;

	st = (stacktrace_t *) LLNI_array_data(ba);

	assert(st != NULL);

	ste = st->entries;

	/* Create the stacktrace element array. */

	oa = builtin_anewarray(st->length, class_java_lang_StackTraceElement);

	if (oa == NULL)
		return NULL;

	for (i = 0; i < st->length; i++, ste++) {
		/* allocate a new stacktrace element */

		steo = (java_lang_StackTraceElement *)
			builtin_new(class_java_lang_StackTraceElement);

		if (steo == NULL)
			return NULL;

		/* Get the codeinfo and methodinfo. */

		code = ste->code;
		m    = code->m;

		/* Get filename. */

		if (!(m->flags & ACC_NATIVE)) {
			if (m->clazz->sourcefile)
				filename = (java_lang_String *) javastring_new(m->clazz->sourcefile);
			else
				filename = NULL;
		}
		else
			filename = NULL;

		/* get line number */

		if (m->flags & ACC_NATIVE) {
			linenumber = -1;
		}
		else {
			/* FIXME The linenumbertable_linenumber_for_pc could
			   change the methodinfo pointer when hitting an inlined
			   method. */

			linenumber = linenumbertable_linenumber_for_pc(&m, code, ste->pc);
			linenumber = (linenumber == 0) ? -1 : linenumber;
		}

		/* get declaring class name */

		declaringclass = class_get_classname(m->clazz);

		/* Fill the java.lang.StackTraceElement object. */

		LLNI_field_set_ref(steo, fileName      , filename);
		LLNI_field_set_val(steo, lineNumber    , linenumber);
		LLNI_field_set_ref(steo, declaringClass, (java_lang_String*) declaringclass);
		LLNI_field_set_ref(steo, methodName    , (java_lang_String *) javastring_new(m->name));
		LLNI_field_set_val(steo, isNative      , (m->flags & ACC_NATIVE) ? 1 : 0);

		array_objectarray_element_set(oa, i, (java_handle_t *) steo);
	}

	return oa;
}

} // extern "C"


/*
 * 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:
 */