/* Copyright (C) 2003-2017 LiveCode Ltd.

This file is part of LiveCode.

LiveCode is free software; you can redistribute it and/or modify it under

the terms of the GNU General Public License v3 as published by the Free

Software Foundation.

LiveCode 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 LiveCode. If not see <http://www.gnu.org/licenses/>. */

#include <foundation.h>

#include <foundation-auto.h>

#include "foundation-private.h"

#include "foundation-java-private.h"

static MCJavaType MCJavaMapTypeCodeSubstring(MCStringRef p_type_code, MCRange p_range)

{

for (uindex_t i = 0; i < sizeof(type_map) / sizeof(type_map[0]); i++)

{

if (MCStringSubstringIsEqualToCString(p_type_code,

MCRangeMake(p_range.offset, 1),

type_map[i] . name,

kMCStringOptionCompareExact))

{

return type_map[i] . type;

}

}

return kMCJavaTypeUnknown;

}

MCJavaType MCJavaMapTypeCode(MCStringRef p_type_code)

{

return MCJavaMapTypeCodeSubstring(p_type_code,

MCRangeMake(0, MCStringGetLength(p_type_code)));

}

static bool __GetExpectedTypeCode(MCTypeInfoRef p_type, MCJavaType& r_code)

{

if (p_type == kMCSInt8TypeInfo)

r_code = kMCJavaTypeByte;

else if (p_type == kMCSInt16TypeInfo)

r_code = kMCJavaTypeShort;

else if (p_type == kMCSInt32TypeInfo)

r_code = kMCJavaTypeInt;

else if (p_type == kMCSInt64TypeInfo)

r_code = kMCJavaTypeLong;

else if (p_type == kMCBoolTypeInfo)

r_code = kMCJavaTypeBoolean;

else if (p_type == kMCFloatTypeInfo)

r_code = kMCJavaTypeFloat;

else if (p_type == kMCDoubleTypeInfo)

r_code = kMCJavaTypeDouble;

else if (p_type == kMCNullTypeInfo)

r_code = kMCJavaTypeVoid;

else if (p_type == MCJavaGetObjectTypeInfo())

r_code = kMCJavaTypeObject;

else

{

MCResolvedTypeInfo t_src, t_target;

if (!MCTypeInfoResolve(p_type, t_src))

return false;

if (!MCTypeInfoResolve(MCJavaGetObjectTypeInfo(), t_target))

return false;

if (!MCResolvedTypeInfoConforms(t_src, t_target))

return false;

r_code = kMCJavaTypeObject;

}

return true;

}

static bool __MCTypeInfoConformsToJavaType(MCTypeInfoRef p_type, MCJavaType p_code)

{

MCJavaType t_code;

if (!__GetExpectedTypeCode(p_type, t_code))

return false;

// At the moment we don't have a separate type for arrays.

if (p_code == kMCJavaTypeArray &&

t_code == kMCJavaTypeObject)

return true;

return t_code == p_code;

}

static bool __NextArgument(MCStringRef p_arguments, MCRange& x_range)

{

if (x_range . offset + x_range . length >= MCStringGetLength(p_arguments))

return false;

x_range . offset = x_range . offset + x_range . length;

MCRange t_new_range;

t_new_range . offset = x_range . offset;

t_new_range . length = 1;

uindex_t t_length = 1;

MCJavaType t_next_type;

while ((t_next_type = MCJavaMapTypeCodeSubstring(p_arguments, t_new_range)) == kMCJavaTypeArray)

{

t_new_range . offset++;

t_length++;

}

if (t_next_type == kMCJavaTypeUnknown)

return false;

if (t_next_type == kMCJavaTypeObject)

{

if (!MCStringFirstIndexOfChar(p_arguments, ';', x_range . offset, kMCStringOptionCompareExact, t_length))

return false;

// Consume the ;

t_length++;

// Correct the length for the starting point

t_length -= x_range.offset;

}

x_range . length = t_length;

return true;

}

static bool __MCJavaCallNeedsClassInstance(MCJavaCallType p_type)

{

switch (p_type)

{

case MCJavaCallTypeStatic:

case MCJavaCallTypeConstructor:

case MCJavaCallTypeInterfaceProxy:

case MCJavaCallTypeStaticGetter:

case MCJavaCallTypeStaticSetter:

return false;

case MCJavaCallTypeInstance:

case MCJavaCallTypeNonVirtual:

case MCJavaCallTypeGetter:

case MCJavaCallTypeSetter:

return true;

}

MCUnreachableReturn(false);

}

static bool __RemoveSurroundingParentheses(MCStringRef p_in, MCStringRef& r_out)

{

return MCStringCopySubstring(p_in,

MCRangeMakeMinMax(1, MCStringGetLength(p_in) - 1),

r_out);

}

bool MCJavaPrivateCheckSignature(MCTypeInfoRef p_signature, MCStringRef p_args, MCStringRef p_return, int p_call_type)

{

if (MCHandlerTypeInfoIsVariadic(p_signature))

return false;

MCJavaCallType t_call_type = static_cast<MCJavaCallType>(p_call_type);

if (t_call_type == MCJavaCallTypeInterfaceProxy)

return true;

uindex_t t_param_count = MCHandlerTypeInfoGetParameterCount(p_signature);

uindex_t t_first_param = 0;

if (__MCJavaCallNeedsClassInstance(t_call_type))

{

t_first_param = 1;

}

// Remove brackets from arg string

MCAutoStringRef t_args;

if (!__RemoveSurroundingParentheses(p_args, &t_args))

return false;

MCRange t_range = MCRangeMake(0, 0);

// Check the types of the arguments.

for(uindex_t i = t_first_param; i < t_param_count; i++)

{

MCTypeInfoRef t_type;

t_type = MCHandlerTypeInfoGetParameterType(p_signature, i);

if (!__NextArgument(*t_args, t_range))

return false;

MCJavaType t_jtype;

t_jtype = MCJavaMapTypeCodeSubstring(*t_args, t_range);

if (!__MCTypeInfoConformsToJavaType(t_type, t_jtype))

return false;

}

MCTypeInfoRef t_return_type = MCHandlerTypeInfoGetReturnType(p_signature);

switch (p_call_type)

{

case MCJavaCallTypeConstructor:

case MCJavaCallTypeInterfaceProxy:

return __MCTypeInfoConformsToJavaType(t_return_type, kMCJavaTypeObject);

case MCJavaCallTypeSetter:

case MCJavaCallTypeStaticSetter:

return __MCTypeInfoConformsToJavaType(t_return_type, kMCJavaTypeVoid);

default:

{

auto t_return_code = MCJavaMapTypeCode(p_return);

return __MCTypeInfoConformsToJavaType(t_return_type, t_return_code);

}

}

}

MCTypeInfoRef kMCJavaNativeMethodIdErrorTypeInfo;

MCTypeInfoRef kMCJavaNativeMethodCallErrorTypeInfo;

MCTypeInfoRef kMCJavaBindingStringSignatureErrorTypeInfo;

MCTypeInfoRef kMCJavaCouldNotInitialiseJREErrorTypeInfo;

MCTypeInfoRef kMCJavaJRENotSupportedErrorTypeInfo;

MCTypeInfoRef kMCJavaInterfaceCallbackSignatureErrorTypeInfo;

bool MCJavaPrivateErrorsInitialize()

{

if (!MCNamedErrorTypeInfoCreate(MCNAME("livecode.java.NativeMethodIdError"), MCNAME("java"), MCSTR("JNI exception thrown when getting native method id"), kMCJavaNativeMethodIdErrorTypeInfo))

return false;

if (!MCNamedErrorTypeInfoCreate(MCNAME("livecode.java.NativeMethodCallError"), MCNAME("java"), MCSTR("JNI exception thrown when calling native method"), kMCJavaNativeMethodCallErrorTypeInfo))

return false;

if (!MCNamedErrorTypeInfoCreate(MCNAME("livecode.java.BindingStringSignatureError"), MCNAME("java"), MCSTR("Java binding string does not match foreign handler signature or signature not supported"), kMCJavaBindingStringSignatureErrorTypeInfo))

return false;

if (!MCNamedErrorTypeInfoCreate(MCNAME("livecode.java.CouldNotInitialiseJREError"), MCNAME("java"), MCSTR("Could not initialise Java Runtime Environment"), kMCJavaCouldNotInitialiseJREErrorTypeInfo))

return false;

if (!MCNamedErrorTypeInfoCreate(MCNAME("livecode.java.JRENotSupported"), MCNAME("java"), MCSTR("Java Runtime Environment no supported with current configuration"), kMCJavaJRENotSupportedErrorTypeInfo))

return false;

if (!MCNamedErrorTypeInfoCreate(MCNAME("livecode.java.InterfaceCallbackSignatureError"), MCNAME("java"), MCSTR("Handler for interface callback does not match callback signature"), kMCJavaInterfaceCallbackSignatureErrorTypeInfo))

return false;

return true;

}

void MCJavaPrivateErrorsFinalize()

{

MCValueRelease(kMCJavaNativeMethodIdErrorTypeInfo);

MCValueRelease(kMCJavaNativeMethodCallErrorTypeInfo);

MCValueRelease(kMCJavaBindingStringSignatureErrorTypeInfo);

MCValueRelease(kMCJavaCouldNotInitialiseJREErrorTypeInfo);

MCValueRelease(kMCJavaJRENotSupportedErrorTypeInfo);

MCValueRelease(kMCJavaInterfaceCallbackSignatureErrorTypeInfo);

}

bool MCJavaPrivateErrorThrow(MCTypeInfoRef p_error_type)

{

MCAutoErrorRef t_error;

if (!MCErrorCreate(p_error_type, nil, &t_error))

return false;

return MCErrorThrow(*t_error);

}

#ifdef TARGET_SUPPORTS_JAVA

#include <jni.h>

#ifdef TARGET_SUBPLATFORM_ANDROID

extern JNIEnv *MCJavaGetThreadEnv();

extern JNIEnv *MCJavaAttachCurrentThread();

extern void MCJavaDetachCurrentThread();

#endif

static JNIEnv *s_env;

static JavaVM *s_jvm;

/* The MCJavaAutoLocalRef class should be used to hold a local-ref which is

* transient. */

template<typename T>

class MCJavaAutoLocalRef

{

public:

MCJavaAutoLocalRef(T p_object)

: m_object(p_object)

{

}

~MCJavaAutoLocalRef(void)

{

s_env->DeleteLocalRef(m_object);

}

operator T (void) const

{

return m_object;

}

private:

T m_object;

};

#if defined(TARGET_PLATFORM_LINUX) || defined(TARGET_PLATFORM_MACOS_X)

static bool s_weak_link_jvm = false;

extern "C" int initialise_weak_link_jvm_with_path(const char*);

static bool initialise_weak_link_jvm()

{

if (s_weak_link_jvm)

return true;

MCAutoStringRef t_path;

#if defined(TARGET_PLATFORM_LINUX)

// On linux we require the path to libjvm.so to be in LD_LIBRARY_PATH

// so we can just weak link directly.

if (!MCStringFormat(&t_path, "libjvm.so"))

return false;

#else

const char *t_javahome = getenv("JAVA_HOME");

if (t_javahome == nullptr)

return false;

if (!MCStringFormat(&t_path, "%s/jre/lib/jli/libjli.dylib", t_javahome))

return false;

#endif

MCAutoStringRefAsSysString t_jvm_lib;

if (!t_jvm_lib . Lock(*t_path))

return false;

if (!initialise_weak_link_jvm_with_path(*t_jvm_lib))

return false;

s_weak_link_jvm = true;

return true;

}

#endif

static void init_jvm_args(JavaVMInitArgs *x_args)

{

#if defined(TARGET_PLATFORM_LINUX) || defined(TARGET_PLATFORM_MACOS_X)

JNI_GetDefaultJavaVMInitArgs(x_args);

#endif

}

static bool create_jvm(JavaVMInitArgs *p_args)

{

int ret = 0;

#if defined(TARGET_PLATFORM_LINUX) || defined(TARGET_PLATFORM_MACOS_X)

ret = JNI_CreateJavaVM(&s_jvm, (void **)&s_env, p_args);

#endif

return ret == 0;

}

bool initialise_jvm()

{

#if defined(TARGET_PLATFORM_MACOS_X) || defined(TARGET_PLATFORM_LINUX)

if (!initialise_weak_link_jvm())

return false;

JavaVMInitArgs vm_args;

vm_args.version = JNI_VERSION_1_6;

init_jvm_args(&vm_args);

char t_option[PATH_MAX];

const char *t_option_prefix = "-Djava.class.path=";

strcpy(t_option, t_option_prefix);

const char *t_class_path = getenv("CLASSPATH");

if (t_class_path == nullptr ||

strlen(t_option_prefix) + strlen(t_class_path) >= PATH_MAX)

{

t_class_path = "/usr/lib/java";

}

strcat(t_option, t_class_path);

t_option[strlen(t_option_prefix)+strlen(t_class_path)] = '\0';

JavaVMOption* options = new (nothrow) JavaVMOption[1];

options[0].optionString = t_option;

vm_args.nOptions = 1;

vm_args.options = options;

vm_args.ignoreUnrecognized = false;

return create_jvm(&vm_args);

#endif

return true;

}

void finalise_jvm()

{

#if defined(TARGET_PLATFORM_MACOS_X) || defined(TARGET_PLATFORM_LINUX)

if (s_jvm != nullptr)

{

s_jvm -> DestroyJavaVM();

}

#endif

}

void MCJavaDoAttachCurrentThread()

{

#if defined(TARGET_PLATFORM_MACOS_X) || defined(TARGET_PLATFORM_LINUX)

s_jvm -> AttachCurrentThread((void **)&s_env, nullptr);

#else

s_env = MCJavaAttachCurrentThread();

#endif

}

static bool __MCJavaStringFromJString(jstring p_string, MCStringRef& r_string)

{

MCJavaDoAttachCurrentThread();

const jchar *t_chars = s_env->GetStringChars(p_string, 0);

auto t_unichars = reinterpret_cast<const unichar_t *>(t_chars);

uindex_t t_count = s_env->GetStringLength(p_string);

bool t_success = MCStringCreateWithChars(t_unichars, t_count,

r_string);

s_env->ReleaseStringChars(p_string, t_chars);

return t_success;

}

static bool __MCJavaStringToJString(MCStringRef p_string, jstring& r_string)

{

MCJavaDoAttachCurrentThread();

auto t_chars =

reinterpret_cast<const jchar *>(MCStringGetCharPtr(p_string));

jstring t_result = s_env->NewString(t_chars,

MCStringGetLength(p_string));

if (t_result != nullptr)

{

r_string = t_result;

return true;

}

return false;

}

static bool __MCJavaDataFromJByteArray(jbyteArray p_byte_array, MCDataRef& r_data)

{

MCJavaDoAttachCurrentThread();

jbyte *t_jbytes = nullptr;

if (p_byte_array != nullptr)

t_jbytes = s_env -> GetByteArrayElements(p_byte_array, nullptr);

if (t_jbytes == nullptr)

return false;

jsize t_length = s_env -> GetArrayLength(p_byte_array);

MCAssert(t_length >= 0);

if (size_t(t_length) > size_t(UINDEX_MAX))

return false;

auto t_bytes = reinterpret_cast<const byte_t *>(t_jbytes);

bool t_success = MCDataCreateWithBytes(t_bytes, t_length, r_data);

s_env -> ReleaseByteArrayElements(p_byte_array, t_jbytes, 0);

return t_success;

}

static bool __MCJavaDataToJByteArray(MCDataRef p_data, jbyteArray& r_byte_array)

{

MCJavaDoAttachCurrentThread();

if (p_data == nullptr || MCDataIsEmpty(p_data))

{

r_byte_array = nullptr;

return true;

}

uindex_t t_length = MCDataGetLength(p_data);

jbyteArray t_bytes = s_env -> NewByteArray(t_length);

if (t_bytes == nullptr)

return false;

auto t_data = reinterpret_cast<const jbyte*>(MCDataGetBytePtr(p_data));

s_env->SetByteArrayRegion(t_bytes, 0, t_length, t_data);

r_byte_array = t_bytes;

return true;

}

static bool __MCJavaProperListFromJObjectArray(jobjectArray p_obj_array, MCProperListRef& r_list)

{

MCJavaDoAttachCurrentThread();

if (p_obj_array == nullptr)

{

r_list = MCValueRetain(kMCEmptyProperList);

return true;

}

MCAutoProperListRef t_list;

if (!MCProperListCreateMutable(&t_list))

return false;

uint32_t t_size = s_env -> GetArrayLength(p_obj_array);

for (uint32_t i = 0; i < t_size; i++)

{

MCAutoValueRef t_value;

/* Make sure the fetched jobject (local-ref) is deleted on each iteration */

MCJavaAutoLocalRef<jobject> t_object =

s_env -> GetObjectArrayElement(p_obj_array, i);

MCAutoJavaObjectRef t_obj;

if (!MCJavaObjectCreate(t_object, &t_obj))

return false;

if (!MCProperListPushElementOntoBack(*t_list, *t_obj))

return false;

}

return MCProperListCopy(*t_list, r_list);

}

void* MCJavaPrivateGlobalRef(void *p_object)

{

MCJavaDoAttachCurrentThread();

jobject t_obj = static_cast<jobject>(p_object);

return static_cast<void *>(s_env->NewGlobalRef(t_obj));

}

bool MCJavaObjectCreateNullable(jobject p_object, MCJavaObjectRef &r_object)

{

if (p_object == nullptr)

{

r_object = nullptr;

return true;

}

return MCJavaObjectCreate(p_object, r_object);

}

static jstring MCJavaGetJObjectClassName(jobject p_obj)

{

/* Make sure the fetched class local-refs are deleted on exit */

MCJavaAutoLocalRef<jclass> t_class =

s_env->GetObjectClass(p_obj);

MCJavaAutoLocalRef<jclass> javaClassClass =

s_env->FindClass("java/lang/Class");

jmethodID javaClassNameMethod = s_env->GetMethodID(javaClassClass, "getName", "()Ljava/lang/String;");

return (jstring)s_env->CallObjectMethod(t_class, javaClassNameMethod);;

}

static bool __JavaJNIInstanceMethodResult(jobject p_instance, jmethodID p_method_id, jvalue *p_params, MCJavaType p_return_type, void *r_result)

{

MCJavaDoAttachCurrentThread();

switch (p_return_type)

{

case kMCJavaTypeBoolean:

{

jboolean t_result =

s_env -> CallBooleanMethodA(p_instance, p_method_id, p_params);

*(static_cast<jboolean *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeByte:

{

jbyte t_result =

s_env -> CallByteMethodA(p_instance, p_method_id, p_params);

*(static_cast<jbyte *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeChar:

{

jchar t_result =

s_env -> CallCharMethodA(p_instance, p_method_id, p_params);

*(static_cast<jchar *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeShort:

{

jshort t_result =

s_env -> CallShortMethodA(p_instance, p_method_id, p_params);

*(static_cast<jshort *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeInt:

{

jint t_result =

s_env -> CallIntMethodA(p_instance, p_method_id, p_params);

*(static_cast<jint *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeLong:

{

jlong t_result =

s_env -> CallLongMethodA(p_instance, p_method_id, p_params);

*(static_cast<jlong *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeFloat:

{

jfloat t_result =

s_env -> CallFloatMethodA(p_instance, p_method_id, p_params);

*(static_cast<jfloat *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeDouble:

{

jdouble t_result =

s_env -> CallDoubleMethodA(p_instance, p_method_id, p_params);

*(static_cast<jdouble *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeObject:

case kMCJavaTypeArray:

{

/* Make sure the returned jobject (local-ref) is deleted on exit */

MCJavaAutoLocalRef<jobject> t_result =

s_env -> CallObjectMethodA(p_instance, p_method_id, p_params);

MCJavaObjectRef t_result_value;

if (!MCJavaObjectCreateNullable(t_result, t_result_value))

return false;

*(static_cast<MCJavaObjectRef *>(r_result)) = t_result_value;

return true;

}

case kMCJavaTypeVoid:

s_env -> CallVoidMethodA(p_instance, p_method_id, p_params);

return true;

// Should be unreachable

case kMCJavaTypeUnknown:

break;

}

MCUnreachableReturn(false);

}

static bool __JavaJNIStaticMethodResult(jclass p_class, jmethodID p_method_id, jvalue *p_params, MCJavaType p_return_type, void *r_result)

{

MCJavaDoAttachCurrentThread();

switch (p_return_type) {

case kMCJavaTypeBoolean:

{

jboolean t_result =

s_env -> CallStaticBooleanMethodA(p_class, p_method_id, p_params);

*(static_cast<jboolean *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeByte:

{

jbyte t_result =

s_env -> CallStaticByteMethodA(p_class, p_method_id, p_params);

*(static_cast<jbyte *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeChar:

{

jchar t_result =

s_env -> CallStaticCharMethodA(p_class, p_method_id, p_params);

*(static_cast<jchar *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeShort:

{

jshort t_result =

s_env -> CallStaticShortMethodA(p_class, p_method_id, p_params);

*(static_cast<jshort *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeInt:

{

jint t_result =

s_env -> CallStaticIntMethodA(p_class, p_method_id, p_params);

*(static_cast<jint *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeLong:

{

jlong t_result =

s_env -> CallStaticLongMethodA(p_class, p_method_id, p_params);

*(static_cast<jlong *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeFloat:

{

jfloat t_result =

s_env -> CallStaticFloatMethodA(p_class, p_method_id, p_params);

*(static_cast<jfloat *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeDouble:

{

jdouble t_result =

s_env -> CallStaticDoubleMethodA(p_class, p_method_id, p_params);

*(static_cast<jdouble *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeObject:

case kMCJavaTypeArray:

{

/* Make sure the returned jobject (local-ref) is deleted on exit */

MCJavaAutoLocalRef<jobject> t_result =

s_env -> CallStaticObjectMethodA(p_class, p_method_id, p_params);

MCJavaObjectRef t_result_value;

if (!MCJavaObjectCreateNullable(t_result, t_result_value))

return false;

*(static_cast<MCJavaObjectRef *>(r_result)) = t_result_value;

return true;

}

case kMCJavaTypeVoid:

s_env -> CallStaticVoidMethodA(p_class, p_method_id, p_params);

return true;

// Should be unreachable

case kMCJavaTypeUnknown:

break;

}

MCUnreachableReturn(false);

}

static bool __JavaJNINonVirtualMethodResult(jobject p_instance, jclass p_class, jmethodID p_method_id, jvalue *p_params, MCJavaType p_return_type, void *r_result)

{

MCJavaDoAttachCurrentThread();

switch (p_return_type) {

case kMCJavaTypeBoolean:

{

jboolean t_result =

s_env -> CallNonvirtualBooleanMethodA(p_instance, p_class, p_method_id, p_params);

*(static_cast<jboolean *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeByte:

{

jbyte t_result =

s_env -> CallNonvirtualByteMethodA(p_instance, p_class, p_method_id, p_params);

*(static_cast<jbyte *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeChar:

{

jchar t_result =

s_env -> CallNonvirtualCharMethodA(p_instance, p_class, p_method_id, p_params);

*(static_cast<jchar *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeShort:

{

jshort t_result =

s_env -> CallNonvirtualShortMethodA(p_instance, p_class, p_method_id, p_params);

*(static_cast<jshort *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeInt:

{

jint t_result =

s_env -> CallNonvirtualIntMethodA(p_instance, p_class, p_method_id, p_params);

*(static_cast<jint *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeLong:

{

jlong t_result =

s_env -> CallNonvirtualLongMethodA(p_instance, p_class, p_method_id, p_params);

*(static_cast<jlong *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeFloat:

{

jfloat t_result =

s_env -> CallNonvirtualFloatMethodA(p_instance, p_class, p_method_id, p_params);

*(static_cast<jfloat *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeDouble:

{

jdouble t_result =

s_env -> CallNonvirtualDoubleMethodA(p_instance, p_class, p_method_id, p_params);

*(static_cast<jdouble *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeObject:

case kMCJavaTypeArray:

{

/* Make sure the returned jobject (local-ref) is deleted on exit */

MCJavaAutoLocalRef<jobject> t_result =

s_env -> CallNonvirtualObjectMethodA(p_instance, p_class, p_method_id, p_params);

MCJavaObjectRef t_result_value;

if (!MCJavaObjectCreateNullable(t_result, t_result_value))

return false;

*(static_cast<MCJavaObjectRef *>(r_result)) = t_result_value;

return true;

}

case kMCJavaTypeVoid:

s_env -> CallNonvirtualVoidMethodA(p_instance, p_class, p_method_id, p_params);

return true;

// Should be unreachable

case kMCJavaTypeUnknown:

break;

}

MCUnreachableReturn(false);

}

static bool __JavaJNIGetFieldResult(jobject p_instance, jfieldID p_field_id, MCJavaType p_return_type, void *r_result)

{

MCJavaDoAttachCurrentThread();

switch (p_return_type)

{

case kMCJavaTypeBoolean:

{

jboolean t_result =

s_env -> GetBooleanField(p_instance, p_field_id);

*(static_cast<jboolean *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeByte:

{

jbyte t_result =

s_env -> GetByteField(p_instance, p_field_id);

*(static_cast<jbyte *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeChar:

{

jchar t_result =

s_env -> GetCharField(p_instance, p_field_id);

*(static_cast<jchar *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeShort:

{

jshort t_result =

s_env -> GetShortField(p_instance, p_field_id);

*(static_cast<jshort *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeInt:

{

jint t_result =

s_env -> GetIntField(p_instance, p_field_id);

*(static_cast<jint *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeLong:

{

jlong t_result =

s_env -> GetLongField(p_instance, p_field_id);

*(static_cast<jlong *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeFloat:

{

jfloat t_result =

s_env -> GetFloatField(p_instance, p_field_id);

*(static_cast<jfloat *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeDouble:

{

jdouble t_result =

s_env -> GetDoubleField(p_instance, p_field_id);

*(static_cast<jdouble *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeObject:

case kMCJavaTypeArray:

{

/* Make sure the returned jobject (local-ref) is deleted on exit */

MCJavaAutoLocalRef<jobject> t_result =

s_env -> GetObjectField(p_instance, p_field_id);

MCJavaObjectRef t_result_value;

if (!MCJavaObjectCreateNullable(t_result, t_result_value))

return false;

*(static_cast<MCJavaObjectRef *>(r_result)) = t_result_value;

return true;

}

case kMCJavaTypeVoid:

case kMCJavaTypeUnknown:

break;

}

MCUnreachableReturn(false);

}

static bool __JavaJNIGetStaticFieldResult(jclass p_class, jfieldID p_field_id, MCJavaType p_field_type, void *r_result)

{

MCJavaDoAttachCurrentThread();

switch (p_field_type)

{

case kMCJavaTypeBoolean:

{

jboolean t_result =

s_env -> GetStaticBooleanField(p_class, p_field_id);

*(static_cast<jboolean *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeByte:

{

jbyte t_result =

s_env -> GetStaticByteField(p_class, p_field_id);

*(static_cast<jbyte *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeChar:

{

jchar t_result =

s_env -> GetStaticCharField(p_class, p_field_id);

*(static_cast<jchar *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeShort:

{

jshort t_result =

s_env -> GetStaticShortField(p_class, p_field_id);

*(static_cast<jshort *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeInt:

{

jint t_result =

s_env -> GetStaticIntField(p_class, p_field_id);

*(static_cast<jint *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeLong:

{

jlong t_result =

s_env -> GetStaticLongField(p_class, p_field_id);

*(static_cast<jlong *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeFloat:

{

jfloat t_result =

s_env -> GetStaticFloatField(p_class, p_field_id);

*(static_cast<jfloat *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeDouble:

{

jdouble t_result =

s_env -> GetStaticDoubleField(p_class, p_field_id);

*(static_cast<jdouble *>(r_result)) = t_result;

return true;

}

case kMCJavaTypeObject:

case kMCJavaTypeArray:

{

/* Make sure the returned jobject (local-ref) is deleted on exit */

MCJavaAutoLocalRef<jobject> t_result =

s_env -> GetStaticObjectField(p_class, p_field_id);

MCJavaObjectRef t_result_value;

if (!MCJavaObjectCreateNullable(t_result, t_result_value))

return false;

*(static_cast<MCJavaObjectRef *>(r_result)) = t_result_value;

return true;

}

case kMCJavaTypeVoid:

case kMCJavaTypeUnknown:

break;

}

MCUnreachableReturn(false);

}

static void __JavaJNISetFieldResult(jobject p_instance, jfieldID p_field_id, const void *p_param, MCJavaType p_field_type)

{

MCJavaDoAttachCurrentThread();

switch (p_field_type)

{

case kMCJavaTypeBoolean:

{

s_env -> SetBooleanField(p_instance,

p_field_id,

*(static_cast<const jboolean *>(p_param)));

return;

}

case kMCJavaTypeByte:

{