/* Japhar implementation of VMI.   Copyright (C) 1998 Free Software Foundation, Inc.This file is part of GNU Classpath.GNU Classpath is free software; you can redistribute it and/or modifyit under the terms of the GNU General Public License as published bythe Free Software Foundation; either version 2, or (at your option)any later version. GNU Classpath is distributed in the hope that it will be useful, butWITHOUT ANY WARRANTY; without even the implied warranty ofMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNUGeneral Public License for more details.You should have received a copy of the GNU General Public Licensealong with GNU Classpath; see the file COPYING.  If not, write to theFree Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA02110-1301 USA.Linking this library statically or dynamically with other modules ismaking a combined work based on this library.  Thus, the terms andconditions of the GNU General Public License cover the wholecombination.As a special exception, the copyright holders of this library give youpermission to link this library with independent modules to produce anexecutable, regardless of the license terms of these independentmodules, and to copy and distribute the resulting executable underterms of your choice, provided that you also meet, for each linkedindependent module, the terms and conditions of the license of thatmodule.  An independent module is a module which is not derived fromor based on this library.  If you modify this library, you may extendthis exception to your version of the library, but you are notobligated to do so.  If you do not wish to do so, delete thisexception statement from your version. */#include <jcl.h>#include <vmi.h>#include <jvmdi.h>#include <interp.h>#include <native-threads.h>JNIEXPORT vmiError JNICALLVMI_GetFrameClass(JNIEnv *env,		      jframeID frame,		      jclass *clazz) {		return VMI_ERROR_NONE;}JNIEXPORT vmiError JNICALLVMI_GetFrameObject(JNIEnv *env,		      jframeID frame,		      jobject *obj) {  StackFrame *sframe = (StackFrame*)frame;  if(env == NULL || obj == NULL)    return VMI_ERROR_NULL_POINTER;  if(frame == NULL)    return VMI_ERROR_INVALID_FRAMEID;  *obj = THISPTR(sframe);  return VMI_ERROR_NONE;}JNIEXPORT vmiError JNICALLVMI_GetThisFrame(JNIEnv *env, jframeID *frame) {  JThreadInfo *thread_info;  if(env == NULL || frame == NULL)    return VMI_ERROR_NULL_POINTER;  thread_info = THREAD_getJavaInfo();  *frame = (jframeID)TOPFRAME(thread_info);  return VMI_ERROR_NONE;}JNIEXPORT vmiError JNICALLVMI_GetThisThreadObject(JNIEnv* env, jthread *thread) {  JThreadInfo *thread_info;  if(env == NULL || thread == NULL)    return VMI_ERROR_NULL_POINTER;  thread_info = THREAD_getJavaInfo();  *thread = (jthread)thread_info->java_thread;  return VMI_ERROR_NONE;}JNIEXPORT void JNICALLVMI_ThrowAppropriateException(JNIEnv *env, vmiError err) {	switch(err) {	case VMI_ERROR_NONE:		JCL_ThrowException(env, "java/lang/InternalError", "ERROR_NONE passed to VMI exception thrower.");		break;	case VMI_ERROR_NULL_POINTER:		JCL_ThrowException(env, "java/lang/NullPointerException", "null pointer in VMI detected.");		break;	case VMI_ERROR_OUT_OF_MEMORY:		JCL_ThrowException(env, "java/lang/OutOfMemoryError", "Out of memory! (in VMI).");		break;	case VMI_ERROR_INVALID_METHODID:		JCL_ThrowException(env, "java/lang/InternalError", "VMI error: INVALID_METHODID");		break;	case VMI_ERROR_INVALID_CLASS:		JCL_ThrowException(env, "java/lang/InternalError", "VMI error: INVALID_CLASS");		break;	case VMI_ERROR_INVALID_BCI:		JCL_ThrowException(env, "java/lang/InternalError", "VMI error: INVALID_BCI");		break;	case VMI_ERROR_NO_SUCH_BREAKPOINT:		JCL_ThrowException(env, "java/lang/InternalError", "VMI error: NO_SUCH_BREAKPOINT");		break;	case VMI_ERROR_VM_DEAD:		JCL_ThrowException(env, "java/lang/InternalError", "VMI error: VM Dead!  Kinda makes ya wonder how this exception got thrown, huh?");		break;	case VMI_ERROR_INVALID_FRAMEID:		JCL_ThrowException(env, "java/lang/IllegalThreadStateException", "NULL Frame ID detected in VMI.");		break;	case VMI_ERROR_INVALID_SLOT:		JCL_ThrowException(env, "java/lang/InternalError", "VMI error: INVALID_SLOT");		break;	case VMI_ERROR_TYPE_MISMATCH:		JCL_ThrowException(env, "java/lang/InternalError", "VMI error: INVALID_SLOT");		break;	case VMI_ERROR_NATIVE_FRAME:		JCL_ThrowException(env, "java/lang/InternalError", "VMI error: NATIVE_FRAME");		break;	case VMI_ERROR_NO_MORE_FRAMES:		JCL_ThrowException(env, "java/lang/InternalError", "VMI error: NO_MORE_FRAMES");		break;	case VMI_ERROR_INVALID_THREAD:		JCL_ThrowException(env, "java/lang/IllegalThreadStateException", "Invalid thread in VMI.");		break;	case VMI_ERROR_THREAD_NOT_SUSPENDED:		JCL_ThrowException(env, "java/lang/IllegalThreadStateException", "Attempt to introspect unsuspended thread in VMI.");		break;	default:		JCL_ThrowException(env, "java/lang/UnknownError", "VMI returned erroneous error value ...");		break;	}}