/*

 * Copyright (c) 2003, 2018, Oracle and/or its affiliates. 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.

 *

 * 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 Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

 * or visit www.oracle.com if you need additional information or have any

 * questions.

 */

#include <stdio.h>

#include <string.h>

#include "jni_tools.h"

#include "agent_common.h"

#include "jvmti_tools.h"

extern "C" {

#define CAPABILITY can_tag_objects

#define CAPABILITY_STR "can_tag_objects"

/* The test checks capability can_tag_objects

 * and correspondent functions:

 *     SetTag

 *     GetTag

 *     GetObjectsWithTags

 *     IterateOverHeap

 *     IterateOverInstancesOfClass

 *     IterateOverObjectsReachableFromObject

 *     IterateOverReachableObjects

 *

 * Testcases:

 *   1. Check if GetPotentialCapabilities returns the capability

 *   2. Add the capability during Onload phase

 *   3. Check if GetCapabilities returns the capability

 *   4. Relinquish the capability during Onload phase

 *   5. Check if GetCapabilities does not return the capability

 *   6. Add back the capability and check with GetCapabilities

 *   7. Check that only correspondent function work and functions of

 *      other capabilities return JVMTI_ERROR_MUST_POSSESS_CAPABILITY

 *   8. Check if VM exits well with the capability has not been relinquished

 */

/* ========================================================================== */

/* scaffold objects */

static JNIEnv* jni = NULL;

static jvmtiEnv *jvmti = NULL;

static jlong timeout = 0;

/* test objects */

static jthread thread = NULL;

static jclass klass = NULL;

static jmethodID method = NULL;

static jfieldID field = NULL;

/* ========================================================================== */

static int prepare() {

    const char* THREAD_NAME = "Debuggee Thread";

    jvmtiThreadInfo info;

    jthread *threads = NULL;

    jint threads_count = 0;

    int i;

    NSK_DISPLAY0("Prepare: find tested thread\n");

    /* get all live threads */

        return NSK_FALSE;

    if (!NSK_VERIFY(threads_count > 0 && threads != NULL))

        return NSK_FALSE;

    /* find tested thread */

    for (i = 0; i < threads_count; i++) {

        if (!NSK_VERIFY(threads[i] != NULL))

            return NSK_FALSE;

        /* get thread information */

            return NSK_FALSE;

        NSK_DISPLAY3("    thread #%d (%s): %p\n", i, info.name, threads[i]);

        /* find by name */

        if (info.name != NULL && (strcmp(info.name, THREAD_NAME) == 0)) {

            thread = threads[i];

        }

    }

    /* deallocate threads list */

        return NSK_FALSE;

    /* get tested thread class */

        return NSK_FALSE;

    /* get tested thread method 'run' */

        return NSK_FALSE;

    /* get tested thread field 'waitingMonitor' */

    if (!NSK_JNI_VERIFY(jni, (field =

        return NSK_FALSE;

    return NSK_TRUE;

}

/* ========================================================================== */

/* Check "can_suspend" functions

 */

static int checkSuspend() {

    jvmtiError err;

    NSK_DISPLAY0("Checking negative: SuspendThread\n");

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: ResumeThread\n");

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: SuspendThreadList\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: ResumeThreadList\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    return NSK_TRUE;

}

/* Check "can_signal_thread" functions

 */

static int checkSignalThread() {

    const char* THREAD_DEATH_CLASS_NAME = "java/lang/ThreadDeath";

    const char* THREAD_DEATH_CTOR_NAME = "<init>";

    const char* THREAD_DEATH_CTOR_SIGNATURE = "()V";

    jclass cls = NULL;

    jmethodID ctor = NULL;

    jobject exception = NULL;

        return NSK_FALSE;

    if (!NSK_JNI_VERIFY(jni, (ctor =

        return NSK_FALSE;

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: StopThread\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: InterruptThread\n");

        return NSK_FALSE;

    return NSK_TRUE;

}

/* Check "can_get_owned_monitor_info" function

 */

static int checkGetOwnedMonitorInfo() {

    jint count;

    jobject *monitors = NULL;

    NSK_DISPLAY0("Checking negative: GetOwnedMonitorInfo\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    return NSK_TRUE;

}

/* Check "can_get_current_contended_monitor" function

 */

static int checkGetCurrentContendedMonitor() {

    jobject monitor = NULL;

    NSK_DISPLAY0("Checking negative: GetCurrentContendedMonitor\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    return NSK_TRUE;

}

/* Check "can_pop_frame" function

 */

static int checkPopFrame() {

    NSK_DISPLAY0("Checking negative: PopFrame\n");

        return NSK_FALSE;

    return NSK_TRUE;

}

/* Check "can_tag_objects" functions

 */

static jvmtiIterationControl JNICALL

HeapObject(jlong class_tag, jlong size, jlong *tag_ptr, void *user_data) {

    return JVMTI_ITERATION_ABORT;

}

static jvmtiIterationControl JNICALL

HeapRoot(jvmtiHeapRootKind root_kind, jlong class_tag, jlong size,

        jlong *tag_ptr, void *user_data) {

    return JVMTI_ITERATION_ABORT;

}

static jvmtiIterationControl JNICALL

StackReference(jvmtiHeapRootKind root_kind, jlong class_tag, jlong size,

        jlong *tag_ptr, jlong thread_tag, jint depth, jmethodID method,

        jint slot, void *user_data) {

    return JVMTI_ITERATION_ABORT;

}

static jvmtiIterationControl JNICALL

ObjectReference(jvmtiObjectReferenceKind reference_kind, jlong class_tag,

        jlong size, jlong *tag_ptr, jlong referrer_tag,

        jint referrer_index, void *user_data) {

    return JVMTI_ITERATION_ABORT;

}

static int checkHeapFunctions() {

    const jlong TAG_VALUE = (123456789L);

    jlong tag;

    jint count;

    jobject *res_objects = NULL;

    jlong *res_tags = NULL;

    jint dummy_user_data = 0;

    NSK_DISPLAY0("Checking positive: SetTag\n");

        return NSK_FALSE;

    NSK_DISPLAY0("Checking positive: GetTag\n");

        return NSK_FALSE;

    NSK_DISPLAY0("Checking positive: GetObjectsWithTags\n");

    tag = TAG_VALUE;

        return NSK_FALSE;

    NSK_DISPLAY0("Checking positive: IterateOverHeap\n");

    if (!NSK_JVMTI_VERIFY(

        return NSK_FALSE;

    NSK_DISPLAY0("Checking positive: IterateOverInstancesOfClass\n");

        return NSK_FALSE;

    NSK_DISPLAY0("Checking positive: IterateOverObjectsReachableFromObject\n");

        return NSK_FALSE;

    NSK_DISPLAY0("Checking positive: IterateOverReachableObjects\n");

        return NSK_FALSE;

    return NSK_TRUE;

}

/* Check "can_access_local_variables" functions

 */

static int checkLocalVariableFunctions() {

    jint count;

    jvmtiLocalVariableEntry *local_variable_table = NULL;

    jobject object_value;

    jint int_value;

    jlong long_value;

    jfloat float_value;

    jdouble double_value;

    NSK_DISPLAY0("Checking negative: GetLocalVariableTable\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: GetLocalObject\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: GetLocalInt\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: GetLocalLong\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: GetLocalFloat\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: GetLocalDouble\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: SetLocalObject\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: SetLocalInt\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: SetLocalLong\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: SetLocalFloat\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: SetLocalDouble\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    return NSK_TRUE;

}

/* Check "can_get_source_info" functions

 */

static int checkSourceInfoFunctions() {

    char *name;

    jint count;

    jvmtiLineNumberEntry *line_number_table = NULL;

    NSK_DISPLAY0("Checking negative: GetSourceFileName\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: GetSourceDebugExtension\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: GetLineNumberTable\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    return NSK_TRUE;

}

/* Check "can_redefine_classes" functions

 */

static int checkRedefineClasses() {

    jvmtiClassDefinition class_def;

    NSK_DISPLAY0("Checking negative: RedefineClasses\n");

    class_def.klass = klass;

    class_def.class_byte_count = 0;

    class_def.class_bytes = NULL;

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    return NSK_TRUE;

}

/* Check "can_get_monitor_info" function

 */

static int checkGetObjectMonitorUsage() {

    jvmtiMonitorUsage monitor_info;

    NSK_DISPLAY0("Checking negative: GetObjectMonitorUsage\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    return NSK_TRUE;

}

/* Check "can_get_synthetic_attribute" functions

 */

static int checkIsSyntheticFunctions() {

    jboolean is_synthetic;

    NSK_DISPLAY0("Checking negative: IsFieldSynthetic\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: IsMethodSynthetic\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    return NSK_TRUE;

}

/* Check "can_get_bytecodes" function

 */

static int checkGetBytecodes() {

    jint count;

    unsigned char *bytecodes;

    NSK_DISPLAY0("Checking negative: GetBytecodes\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    return NSK_TRUE;

}

/* Check "can_get_current_thread_cpu_time" function

 */

static int checkGetCurrentThreadCpuTime() {

    jvmtiTimerInfo info;

    jlong nanos;

    NSK_DISPLAY0("Checking negative: GetCurrentThreadCpuTimerInfo\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: GetCurrentThreadCpuTime\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    return NSK_TRUE;

}

/* Check "can_get_thread_cpu_time" function

 */

static int checkGetThreadCpuTime() {

    jvmtiTimerInfo info;

    jlong nanos;

    NSK_DISPLAY0("Checking negative: GetThreadCpuTimerInfo\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    NSK_DISPLAY0("Checking negative: GetThreadCpuTime\n");

    if (!NSK_JVMTI_VERIFY_CODE(JVMTI_ERROR_MUST_POSSESS_CAPABILITY,

        return NSK_FALSE;

    return NSK_TRUE;

}

/* ========================================================================== */

/* agent algorithm */

static void JNICALL

agentProc(jvmtiEnv* jvmti, JNIEnv* agentJNI, void* arg) {

    jni = agentJNI;

    /* wait for initial sync */

    if (!nsk_jvmti_waitForSync(timeout))

        return;

    if (!prepare()) {

        nsk_jvmti_setFailStatus();

        return;

    }

    /* testcase #7: check that only correspondent function work */

    NSK_DISPLAY0("Testcase #7: check that only correspondent function work but not others\n");

    if (!checkSuspend())

        nsk_jvmti_setFailStatus();

    if (!checkSignalThread())

        nsk_jvmti_setFailStatus();

    if (!checkGetOwnedMonitorInfo())

        nsk_jvmti_setFailStatus();

    if (!checkGetCurrentContendedMonitor())

        nsk_jvmti_setFailStatus();

    if (!checkPopFrame())

        nsk_jvmti_setFailStatus();

    if (!checkHeapFunctions())

        nsk_jvmti_setFailStatus();

    if (!checkLocalVariableFunctions())

        nsk_jvmti_setFailStatus();

    if (!checkSourceInfoFunctions())