/* Copyright (C) 2003-2016 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"

bool __MCJavaInitialize()

{

return MCJavaPrivateErrorsInitialize();

}

void __MCJavaFinalize()

{

MCJavaPrivateErrorsFinalize();

}

static bool s_java_initialised = false;

MC_DLLEXPORT_DEF

bool MCJavaVMInitialize()

{

if (s_java_initialised)

return true;

s_java_initialised = initialise_jvm();

if (!s_java_initialised)

return MCJavaPrivateErrorThrow(kMCJavaCouldNotInitialiseJREErrorTypeInfo);

return s_java_initialised;

}

MC_DLLEXPORT_DEF

void MCJavaVMFinalize()

{

finalise_jvm();

}

MC_DLLEXPORT_DEF MCTypeInfoRef kMCJavaObjectTypeInfo;

MC_DLLEXPORT_DEF MCTypeInfoRef MCJavaGetObjectTypeInfo() { return kMCJavaObjectTypeInfo; }

struct __MCJavaObjectImpl

{

void *object;

};

__MCJavaObjectImpl *MCJavaObjectGet(MCJavaObjectRef p_obj)

{

return static_cast<__MCJavaObjectImpl *>(MCValueGetExtraBytesPtr(p_obj));

}

static inline __MCJavaObjectImpl MCJavaObjectImplMake(void* p_obj)

{

__MCJavaObjectImpl t_obj;

t_obj.object = p_obj;

return t_obj;

}

static void __MCJavaObjectDestroy(MCValueRef p_value)

{

MCJavaObjectRef t_obj = static_cast<MCJavaObjectRef>(p_value);

MCJavaPrivateDestroyObject(t_obj);

}

static bool __MCJavaObjectCopy(MCValueRef p_value, bool p_release, MCValueRef &r_copy)

{

if (p_release)

r_copy = p_value;

else

r_copy = MCValueRetain(p_value);

return true;

}

static bool __MCJavaObjectEqual(MCValueRef p_left, MCValueRef p_right)

{

if (p_left == p_right)

return true;

return MCMemoryCompare(MCValueGetExtraBytesPtr(p_left), MCValueGetExtraBytesPtr(p_right), sizeof(__MCJavaObjectImpl)) == 0;

}

static hash_t __MCJavaObjectHash(MCValueRef p_value)

{

return MCHashBytes(MCValueGetExtraBytesPtr(p_value), sizeof(__MCJavaObjectImpl));

}

bool __MCJavaObjectDescribe(MCValueRef p_value, MCStringRef &r_desc)

{

if (!s_java_initialised)

return false;

return MCJavaPrivateObjectDescribe(p_value, r_desc);

}

static MCValueCustomCallbacks kMCJavaObjectCustomValueCallbacks =

{

false,

__MCJavaObjectDestroy,

__MCJavaObjectCopy,

__MCJavaObjectEqual,

__MCJavaObjectHash,

__MCJavaObjectDescribe,

nullptr,

nullptr,

};

MC_DLLEXPORT_DEF bool MCJavaObjectCreate(void *p_object, MCJavaObjectRef &r_object)

{

MCJavaObjectRef t_obj;

if (!MCValueCreateCustom(kMCJavaObjectTypeInfo,

sizeof(__MCJavaObjectImpl), t_obj))

return false;

void *t_global_ref = nullptr;

if (p_object != nullptr)

t_global_ref = MCJavaPrivateGlobalRef(p_object);

*MCJavaObjectGet(t_obj) = MCJavaObjectImplMake(t_global_ref);

r_object = t_obj;

return true;

}

bool MCJavaCreateJavaObjectTypeInfo()

{

return MCNamedCustomTypeInfoCreate(MCNAME("com.livecode.java.JavaObject"), kMCNullTypeInfo, &kMCJavaObjectCustomValueCallbacks, kMCJavaObjectTypeInfo);

}

MC_DLLEXPORT_DEF void *MCJavaObjectGetObject(const MCJavaObjectRef p_obj)

{

__MCJavaObjectImpl *t_impl = MCJavaObjectGet(p_obj);

return t_impl -> object;

}

////////////////////////////////////////////////////////////////////////////////

MC_DLLEXPORT_DEF

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

{

if (!MCJavaPrivateCheckSignature(p_signature, p_args, p_return, p_call_type))

return MCJavaPrivateErrorThrow(kMCJavaBindingStringSignatureErrorTypeInfo);

return true;

}

MC_DLLEXPORT_DEF

bool MCJavaCallJNIMethod(MCNameRef p_class_name, void *p_method_id, int p_call_type, MCTypeInfoRef p_signature, void *r_return, void **p_args, uindex_t p_arg_count)

{

if (!s_java_initialised)

return MCJavaPrivateErrorThrow(kMCJavaJRENotSupportedErrorTypeInfo);

return MCJavaPrivateCallJNIMethod(p_class_name, p_method_id, p_call_type, p_signature, r_return, p_args, p_arg_count);

}

MC_DLLEXPORT_DEF bool MCJavaConvertJStringToStringRef(MCJavaObjectRef p_object, MCStringRef &r_string)

{

if (!s_java_initialised)

return MCJavaPrivateErrorThrow(kMCJavaJRENotSupportedErrorTypeInfo);

return MCJavaPrivateConvertJStringToStringRef(p_object, r_string);

}

MC_DLLEXPORT_DEF bool MCJavaConvertStringRefToJString(MCStringRef p_string, MCJavaObjectRef &r_object)

{

if (!s_java_initialised)

return MCJavaPrivateErrorThrow(kMCJavaJRENotSupportedErrorTypeInfo);

return MCJavaPrivateConvertStringRefToJString(p_string, r_object);

}

MC_DLLEXPORT_DEF bool MCJavaConvertJByteArrayToDataRef(MCJavaObjectRef p_object, MCDataRef &r_data)

{

if (!s_java_initialised)

return MCJavaPrivateErrorThrow(kMCJavaJRENotSupportedErrorTypeInfo);

return MCJavaPrivateConvertJByteArrayToDataRef(p_object, r_data);

}

MC_DLLEXPORT_DEF bool MCJavaConvertDataRefToJByteArray(MCDataRef p_data, MCJavaObjectRef &r_object)

{

if (!s_java_initialised)

return MCJavaPrivateErrorThrow(kMCJavaJRENotSupportedErrorTypeInfo);

return MCJavaPrivateConvertDataRefToJByteArray(p_data, r_object);

}

MC_DLLEXPORT_DEF void *MCJavaGetMethodId(MCNameRef p_class_name, MCStringRef p_method_name, MCStringRef p_arguments, MCStringRef p_return, int p_call_type)

{

if (!s_java_initialised)

{

MCJavaPrivateErrorThrow(kMCJavaJRENotSupportedErrorTypeInfo);

return nullptr;

}

return MCJavaPrivateGetMethodId(p_class_name, p_method_name, p_arguments, p_return, p_call_type);

}

MC_DLLEXPORT bool MCJavaGetJObjectClassName(MCJavaObjectRef p_object, MCStringRef &r_name)

{

if (!s_java_initialised)

return MCJavaPrivateErrorThrow(kMCJavaJRENotSupportedErrorTypeInfo);

return MCJavaPrivateGetJObjectClassName(p_object, r_name);

}