/*

 * Copyright 1998-2005 Sun Microsystems, Inc.  All Rights Reserved.

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

 * This code is free software; you can redistribute it and/or modify it

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.  Sun designates this

 * particular file as subject to the "Classpath" exception as provided

 * by Sun in the LICENSE file that accompanied this code.

 *

 * This code 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

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

 * You should have received a copy of the GNU General Public License version

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,

 * CA 95054 USA or visit www.sun.com if you need additional information or

 * have any questions.

 */

#include "util.h"

#include "StackFrameImpl.h"

#include "inStream.h"

#include "outStream.h"

#include "threadControl.h"

#include "FrameID.h"

static jdwpError

validateThreadFrame(jthread thread, FrameID frame)

{

    jvmtiError error;

    jdwpError  serror;

    jint count;

    error = threadControl_suspendCount(thread, &count);

    if ( error == JVMTI_ERROR_NONE ) {

        if ( count > 0 ) {

            serror = validateFrameID(thread, frame);

        } else {

            serror = JDWP_ERROR(THREAD_NOT_SUSPENDED);

        }

    } else {

        serror =  map2jdwpError(error);

    }

    return serror;

}

static jdwpError

writeVariableValue(JNIEnv *env, PacketOutputStream *out, jthread thread,

                   FrameNumber fnum, jint slot, jbyte typeKey)

{

    jvmtiError error;

    jvalue value;

    if (isObjectTag(typeKey)) {

        WITH_LOCAL_REFS(env, 1) {

            error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalObject)

                        (gdata->jvmti, thread, fnum, slot, &value.l);

            if (error != JVMTI_ERROR_NONE) {

                outStream_setError(out, map2jdwpError(error));

            } else {

                (void)outStream_writeByte(out, specificTypeKey(env, value.l));

                (void)outStream_writeObjectRef(env, out, value.l);

            }

        } END_WITH_LOCAL_REFS(env);

    } else {

        /*

         * For primitive types, the type key is bounced back as is.

         */

        (void)outStream_writeByte(out, typeKey);

        switch (typeKey) {

            case JDWP_TAG(BYTE): {

                    jint intValue;

                    error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalInt)

                                (gdata->jvmti, thread, fnum, slot, &intValue);

                    (void)outStream_writeByte(out, (jbyte)intValue);

                    break;

                }

            case JDWP_TAG(CHAR): {

                    jint intValue;

                    error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalInt)

                                (gdata->jvmti, thread, fnum, slot, &intValue);

                    (void)outStream_writeChar(out, (jchar)intValue);

                    break;

                }

            case JDWP_TAG(FLOAT):

                error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalFloat)

                                (gdata->jvmti, thread, fnum, slot, &value.f);

                (void)outStream_writeFloat(out, value.f);

                break;

            case JDWP_TAG(DOUBLE):

                error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalDouble)

                                (gdata->jvmti, thread, fnum, slot, &value.d);

                (void)outStream_writeDouble(out, value.d);

                break;

            case JDWP_TAG(INT):

                error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalInt)

                                (gdata->jvmti, thread, fnum, slot, &value.i);

                (void)outStream_writeInt(out, value.i);

                break;

            case JDWP_TAG(LONG):

                error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalLong)

                                (gdata->jvmti, thread, fnum, slot, &value.j);

                (void)outStream_writeLong(out, value.j);

                break;

            case JDWP_TAG(SHORT): {

                jint intValue;

                error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalInt)

                                (gdata->jvmti, thread, fnum, slot, &intValue);

                (void)outStream_writeShort(out, (jshort)intValue);

                break;

            }

            case JDWP_TAG(BOOLEAN):{

                jint intValue;

                error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalInt)

                                (gdata->jvmti, thread, fnum, slot, &intValue);

                (void)outStream_writeBoolean(out, (jboolean)intValue);

                break;

            }

            default:

                return JDWP_ERROR(INVALID_TAG);

        }

    }

    return map2jdwpError(error);

}

static jdwpError

readVariableValue(JNIEnv *env, PacketInputStream *in, jthread thread,

                  FrameNumber fnum, jint slot, jbyte typeKey)

{

    jvmtiError error;

    jvalue value;

    if (isObjectTag(typeKey)) {

        value.l = inStream_readObjectRef(env, in);

        error = JVMTI_FUNC_PTR(gdata->jvmti,SetLocalObject)

                        (gdata->jvmti, thread, fnum, slot, value.l);

    } else {

        switch (typeKey) {

            case JDWP_TAG(BYTE):

                value.b = inStream_readByte(in);

                error = JVMTI_FUNC_PTR(gdata->jvmti,SetLocalInt)

                                (gdata->jvmti, thread, fnum, slot, value.b);

                break;

            case JDWP_TAG(CHAR):

                value.c = inStream_readChar(in);

                error = JVMTI_FUNC_PTR(gdata->jvmti,SetLocalInt)

                                (gdata->jvmti, thread, fnum, slot, value.c);

                break;

            case JDWP_TAG(FLOAT):

                value.f = inStream_readFloat(in);

                error = JVMTI_FUNC_PTR(gdata->jvmti,SetLocalFloat)

                                (gdata->jvmti, thread, fnum, slot, value.f);

                break;

            case JDWP_TAG(DOUBLE):

                value.d = inStream_readDouble(in);

                error = JVMTI_FUNC_PTR(gdata->jvmti,SetLocalDouble)

                                (gdata->jvmti, thread, fnum, slot, value.d);

                break;

            case JDWP_TAG(INT):

                value.i = inStream_readInt(in);

                error = JVMTI_FUNC_PTR(gdata->jvmti,SetLocalInt)

                                (gdata->jvmti, thread, fnum, slot, value.i);

                break;

            case JDWP_TAG(LONG):

                value.j = inStream_readLong(in);

                error = JVMTI_FUNC_PTR(gdata->jvmti,SetLocalLong)

                                (gdata->jvmti, thread, fnum, slot, value.j);

                break;

            case JDWP_TAG(SHORT):

                value.s = inStream_readShort(in);

                error = JVMTI_FUNC_PTR(gdata->jvmti,SetLocalInt)

                                (gdata->jvmti, thread, fnum, slot, value.s);

                break;

            case JDWP_TAG(BOOLEAN):

                value.z = inStream_readBoolean(in);

                error = JVMTI_FUNC_PTR(gdata->jvmti,SetLocalInt)

                                (gdata->jvmti, thread, fnum, slot, value.z);

                break;

            default:

                return JDWP_ERROR(INVALID_TAG);

        }

    }

    return map2jdwpError(error);

}

static jboolean

getValues(PacketInputStream *in, PacketOutputStream *out)

{

    JNIEnv *env;

    int i;

    jdwpError serror;

    jthread thread;

    FrameID frame;

    jint variableCount;

    env = getEnv();

    thread = inStream_readThreadRef(env, in);

    if (inStream_error(in)) {

        return JNI_TRUE;

    }

    frame = inStream_readFrameID(in);

    if (inStream_error(in)) {

        return JNI_TRUE;

    }

    variableCount = inStream_readInt(in);

    if (inStream_error(in)) {

        return JNI_TRUE;

    }

    /*

     * Validate the frame id

     */

    serror = validateThreadFrame(thread, frame);

    if (serror != JDWP_ERROR(NONE)) {

        outStream_setError(out, serror);

        return JNI_TRUE;

    }

    (void)outStream_writeInt(out, variableCount);

    for (i = 0; (i < variableCount) && !outStream_error(out); i++) {

        jint slot;

        jbyte typeKey;

        FrameNumber fnum;

        slot = inStream_readInt(in);

        if (inStream_error(in))

            break;

        typeKey = inStream_readByte(in);

        if (inStream_error(in))

            break;

        fnum = getFrameNumber(frame);

        serror = writeVariableValue(env, out, thread, fnum, slot, typeKey);

        if (serror != JDWP_ERROR(NONE)) {

            outStream_setError(out, serror);

            break;

        }

    }

    return JNI_TRUE;

}

static jboolean

setValues(PacketInputStream *in, PacketOutputStream *out)

{

    JNIEnv *env;

    jint i;

    jdwpError serror;

    jthread thread;

    FrameID frame;

    jint variableCount;

    env = getEnv();

    thread = inStream_readThreadRef(env, in);

    if (inStream_error(in)) {

        return JNI_TRUE;

    }

    frame = inStream_readFrameID(in);

    if (inStream_error(in)) {

        return JNI_TRUE;

    }

    variableCount = inStream_readInt(in);

    if (inStream_error(in)) {

        return JNI_TRUE;

    }

    /*

     * Validate the frame id

     */

    serror = validateThreadFrame(thread, frame);

    if (serror != JDWP_ERROR(NONE)) {

        outStream_setError(out, serror);

        return JNI_TRUE;

    }

    for (i = 0; (i < variableCount) && !inStream_error(in); i++) {

        jint slot;

        jbyte typeKey;

        FrameNumber fnum;

        slot = inStream_readInt(in);

        if (inStream_error(in)) {

            return JNI_TRUE;

        }

        typeKey = inStream_readByte(in);

        if (inStream_error(in)) {

            return JNI_TRUE;

        }

        fnum = getFrameNumber(frame);

        serror = readVariableValue(env, in, thread, fnum, slot, typeKey);

        if (serror != JDWP_ERROR(NONE))

            break;

    }

    if (serror != JDWP_ERROR(NONE)) {

        outStream_setError(out, serror);

    }

    return JNI_TRUE;

}

static jboolean

thisObject(PacketInputStream *in, PacketOutputStream *out)

{

    JNIEnv *env;

    jdwpError serror;

    jthread thread;

    FrameID frame;

    env = getEnv();

    thread = inStream_readThreadRef(env, in);

    if (inStream_error(in)) {

        return JNI_TRUE;

    }

    frame = inStream_readFrameID(in);

    if (inStream_error(in)) {

        return JNI_TRUE;

    }

    /*

     * Validate the frame id

     */

    serror = validateThreadFrame(thread, frame);

    if (serror != JDWP_ERROR(NONE)) {

        outStream_setError(out, serror);

        return JNI_TRUE;

    }

    WITH_LOCAL_REFS(env, 2) {

        jvmtiError error;

        jmethodID method;

        jlocation location;

        FrameNumber fnum;

        /*

         * Find out if the given frame is for a static or native method.

         */

        fnum = getFrameNumber(frame);

        error = JVMTI_FUNC_PTR(gdata->jvmti,GetFrameLocation)

                (gdata->jvmti, thread, fnum, &method, &location);

        if (error == JVMTI_ERROR_NONE) {

            jint modifiers;

            error = methodModifiers(method, &modifiers);

            if (error == JVMTI_ERROR_NONE) {

                jobject this_object;

                /*

                 * Return null for static or native methods; otherwise, the JVM

                 * spec guarantees that "this" is in slot 0

                 */

                if (modifiers & (MOD_STATIC | MOD_NATIVE)) {

                    this_object = NULL;

                    (void)outStream_writeByte(out, specificTypeKey(env, this_object));

                    (void)outStream_writeObjectRef(env, out, this_object);

                } else {

                    error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalObject)

                                (gdata->jvmti, thread, fnum, 0, &this_object);

                    if (error == JVMTI_ERROR_NONE) {

                        (void)outStream_writeByte(out, specificTypeKey(env, this_object));

                        (void)outStream_writeObjectRef(env, out, this_object);

                    }

                }

            }

        }

        serror = map2jdwpError(error);

    } END_WITH_LOCAL_REFS(env);

    if (serror != JDWP_ERROR(NONE))

        outStream_setError(out, serror);

    return JNI_TRUE;

}

static jboolean

popFrames(PacketInputStream *in, PacketOutputStream *out)

{

    jvmtiError error;

    jdwpError serror;

    jthread thread;

    FrameID frame;

    FrameNumber fnum;

    thread = inStream_readThreadRef(getEnv(), in);

    if (inStream_error(in)) {

        return JNI_TRUE;

    }

    frame = inStream_readFrameID(in);

    if (inStream_error(in)) {

        return JNI_TRUE;

    }

    /*

     * Validate the frame id

     */

    serror = validateThreadFrame(thread, frame);

    if (serror != JDWP_ERROR(NONE)) {

        outStream_setError(out, serror);

        return JNI_TRUE;

    }

    if (threadControl_isDebugThread(thread)) {

        outStream_setError(out, JDWP_ERROR(INVALID_THREAD));

        return JNI_TRUE;

    }

    fnum = getFrameNumber(frame);

    error = threadControl_popFrames(thread, fnum);

    if (error != JVMTI_ERROR_NONE) {

        serror = map2jdwpError(error);

        outStream_setError(out, serror);

    }

    return JNI_TRUE;

}

void *StackFrame_Cmds[] = { (void *)0x4

    ,(void *)getValues

    ,(void *)setValues

    ,(void *)thisObject

    ,(void *)popFrames

};