/*                                                                     -*-c++-*-
 Copyright (C) 2015 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>

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

MCTypeInfoRef kMCNativeCStringTypeInfo;
MCTypeInfoRef kMCWStringTypeInfo;
MCTypeInfoRef kMCUTF8StringTypeInfo;

extern "C" MC_DLLEXPORT_DEF MCTypeInfoRef MCNativeCStringTypeInfo(void) { return kMCNativeCStringTypeInfo; }
extern "C" MC_DLLEXPORT_DEF MCTypeInfoRef MCWStringTypeInfo(void) { return kMCWStringTypeInfo; }
extern "C" MC_DLLEXPORT_DEF MCTypeInfoRef MCUTF8StringTypeInfo(void) { return kMCUTF8StringTypeInfo; }

MCTypeInfoRef kMCForeignZStringNullErrorTypeInfo;

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

/* Reject strings that contain nul characters; we can't convert
 * them to nul-terminated wide character strings without data
 * loss. */
static bool
MCForeignEvalStringNonNull (MCStringRef t_string)
{
	/* Reject strings that contain nul characters; we can't convert
	 * them to nul-terminated wide character strings without data
	 * loss. */
	uindex_t t_ignored;
	if (MCStringFirstIndexOfChar (t_string, 0, 0,
	                              kMCStringOptionCompareExact, t_ignored))
	{
		MCErrorCreateAndThrow (kMCForeignZStringNullErrorTypeInfo, nil);
		return false;
	}
	return true;
}

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

static bool __cbuffer_initialize(void *contents)
{
    *(void **)contents = nil;
    return true;
}

static void __cbuffer_finalize(void *contents)
{
    free(*(void **)contents);
}

static bool __cbuffer_defined(void *contents)
{
    return *(void **)contents != nil;
}

static bool __cbuffer_move(const MCForeignTypeDescriptor*, void *from, void *to)
{
    *(void **)to = *(void **)from;
    return true;
}

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

static bool __cstring_copy(const MCForeignTypeDescriptor*, void *from, void *to)
{
    if (*(void **)from == nil)
    {
        *(void **)to = nil;
        return true;
    }

    const char *t_old_string = *(char **) from;
    
    size_t t_length;
    t_length = strlen(t_old_string) + 1;
    
    char *t_new_string;
    if (!MCMemoryNewArray(t_length, t_new_string))
        return false;
    
    MCMemoryCopy(t_new_string, t_old_string, t_length);
    
    *(char **)to = t_new_string;
    
    return true;
}

static bool __cstring_equal(const MCForeignTypeDescriptor*, void *left, void *right, bool& r_equal)
{
    if (*(void **)left == nil || *(void **)right == nil)
		r_equal = (left == right);
	else
		r_equal = strcmp(*(char **)left, *(char **)right) == 0;
	return true;
}

static bool __cstring_hash(const MCForeignTypeDescriptor*, void *value, hash_t& r_hash)
{
    if (*(void **)value == nil)
    {
        r_hash = 0;
        return true;
    }
    
    r_hash = MCHashBytes(value, strlen(*(char **)value));
    
    return true;
}

static bool __nativecstring_import(const MCForeignTypeDescriptor*, void *contents, bool release, MCValueRef& r_value)
{
    if (release)
        return MCStringCreateWithCStringAndRelease(*(char **)contents, (MCStringRef&)r_value);
    
    return MCStringCreateWithCString(*(const char **)contents, (MCStringRef&)r_value);
}

static bool __nativecstring_export(const MCForeignTypeDescriptor*, MCValueRef value, bool release, void *contents)
{
	if (!MCForeignEvalStringNonNull ((MCStringRef) value))
		return false;

    char *t_cstring_value;
    if (!MCStringConvertToCString((MCStringRef)value, t_cstring_value))
        return false;
    
    if (release)
        MCValueRelease(value);
    
    *(char **)contents = t_cstring_value;
    
    return true;
}

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

/* Compute length excluding trailing nul */
static size_t
__wstring_len (const unichar_t *value)
{
	uindex_t len;
	for (len = 0; value[len] != 0; ++len);
	return len;
}

static bool
__wstring_copy (const MCForeignTypeDescriptor*,
                void *from,
                void *to)
{
	if (nil == *(void **) from)
	{
		*(void **)to = nil;
		return true;
	}

	const unichar_t *t_old_string = *(unichar_t **) from;

	/* Allocate enough space for string + trailing nul */
	size_t t_length;
	t_length = sizeof (unichar_t) * (1 + __wstring_len (t_old_string));

	unichar_t *t_new_string;
	if (!MCMemoryNewArray (t_length, t_new_string))
		return false;

	MCMemoryCopy (t_new_string, t_old_string, t_length);

	*(unichar_t **)to = t_new_string;

	return true;
}

static bool
__wstring_equal (const MCForeignTypeDescriptor*,
                 void *left,
                 void *right,
                 bool & r_equal)
{
	if (nil == *(void **) left || nil == *(void **) right)
		return left == right;

	const unichar_t *t_left = *(unichar_t **) left;
	const unichar_t *t_right = *(unichar_t **) right;

	size_t i = 0;
	while (true)
	{
		if (0 == t_left[i] && 0 == t_right[i])
			break;
		if (t_left[i] != t_right[i])
			return false;
		++i;
	}
	return true;
}

static bool
__wstring_hash (const MCForeignTypeDescriptor*,
                void *value,
                hash_t & r_hash)
{
	if (nil == *(void **)value)
	{
		r_hash = 0;
		return true;
	}

	const unichar_t *t_value = *(unichar_t **) value;
	r_hash = MCHashBytes (t_value, __wstring_len (t_value) * sizeof(unichar_t));
	return true;
}

static bool
__wstring_import (const MCForeignTypeDescriptor*,
                  void *contents,
                  bool release,
                  MCValueRef & r_value)
{
	if (release)
		return MCStringCreateWithWStringAndRelease (*(unichar_t **) contents,
		                                            (MCStringRef &) r_value);
	else
		return MCStringCreateWithWString(*(const unichar_t **) contents,
		                                 (MCStringRef &) r_value);
}

static bool
__wstring_export (const MCForeignTypeDescriptor*,
                  MCValueRef value,
                  bool release,
                  void *contents)
{
	if (!MCForeignEvalStringNonNull ((MCStringRef) value))
		return false;

	unichar_t *t_wstring_value;
	if (!MCStringConvertToWString ((MCStringRef) value, t_wstring_value))
		return false;

	if (release)
		MCValueRelease (value);

	*(unichar_t **)contents = t_wstring_value;

	return true;
}

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

static bool
__utf8string_import (const MCForeignTypeDescriptor*,
                     void *contents,
                     bool release,
                     MCValueRef & r_value)
{
	char *t_utf8string;
	t_utf8string = *(char **) contents;

	if (release)
		return MCStringCreateWithBytesAndRelease((byte_t*)t_utf8string, t_utf8string?strlen(t_utf8string):0, kMCStringEncodingUTF8, false, (MCStringRef&)r_value);
	else
		return MCStringCreateWithBytes((byte_t*)t_utf8string, t_utf8string?strlen(t_utf8string):0, kMCStringEncodingUTF8, false, (MCStringRef&)r_value);
}

static bool
__utf8string_export (const MCForeignTypeDescriptor*,
                     MCValueRef value,
                     bool release,
                     void *contents)
{
	if (!MCForeignEvalStringNonNull ((MCStringRef) value))
		return false;
	
	char *t_utf8string_value;
	if (!MCStringConvertToUTF8String((MCStringRef)value, t_utf8string_value))
		return false;
	
	if (release)
		MCValueRelease (value);
	
	*(char **)contents = t_utf8string_value;
	
	return true;
}

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

static bool __build_typeinfo(const char *p_name, MCForeignTypeDescriptor *p_desc, MCTypeInfoRef& r_typeinfo)
{
    MCAutoStringRef t_name_string;
    if (!MCStringCreateWithCString(p_name, &t_name_string))
        return false;
    MCNewAutoNameRef t_name_name;
    if (!MCNameCreate(*t_name_string, &t_name_name))
        return false;
	
	if (!MCNamedForeignTypeInfoCreate(*t_name_name, p_desc, r_typeinfo))
		return false;
    
    return true;
}

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

extern "C" bool com_livecode_foreign_Initialize(void)
{
    MCForeignPrimitiveType p;
    MCForeignTypeDescriptor d;
    d . size = sizeof(char *);
    d . basetype = kMCNullTypeInfo;
    d . bridgetype = kMCStringTypeInfo;
    p = kMCForeignPrimitiveTypePointer;
    d . layout = &p;
    d . layout_size = 1;
    d . initialize = __cbuffer_initialize;
    d . finalize = __cbuffer_finalize;
    d . defined = __cbuffer_defined;
    d . move = __cbuffer_move;
    d . copy = __cstring_copy;
    d . equal = __cstring_equal;
    d . hash = __cstring_hash;
    d . doimport = __nativecstring_import;
    d . doexport = __nativecstring_export;
    d . describe = nullptr;
    d . promotedtype = kMCNullTypeInfo;
    d . promote = nullptr;
    if (!__build_typeinfo("com.livecode.foreign.NativeCString", &d, kMCNativeCStringTypeInfo))
        return false;

	d . size = sizeof(unichar_t *);
	d . basetype = kMCNullTypeInfo;
	d . bridgetype = kMCStringTypeInfo;
	p = kMCForeignPrimitiveTypePointer;
	d . layout = &p;
	d . layout_size = 1;
	d . initialize = __cbuffer_initialize;
	d . finalize = __cbuffer_finalize;
	d . defined = __cbuffer_defined;
	d . move = __cbuffer_move;
	d . copy = __wstring_copy;
	d . equal = __wstring_equal;
	d . hash = __wstring_hash;
	d . doimport = __wstring_import;
	d . doexport = __wstring_export;
    d . describe = nullptr;
    d . promotedtype = kMCNullTypeInfo;
    d . promote = nullptr;
	if (!__build_typeinfo("com.livecode.foreign.WString", &d, kMCWStringTypeInfo))
		return false;

	d . size = sizeof(char *);
	d . basetype = kMCNullTypeInfo;
	d . bridgetype = kMCStringTypeInfo;
	p = kMCForeignPrimitiveTypePointer;
	d . layout = &p;
	d . layout_size = 1;
	d . initialize = __cbuffer_initialize;
	d . finalize = __cbuffer_finalize;
	d . defined = __cbuffer_defined;
	d . move = __cbuffer_move;
	d . copy = __cstring_copy;
	d . equal = __cstring_equal;
	d . hash = __cstring_hash;
	d . doimport = __utf8string_import;
	d . doexport = __utf8string_export;
    d . describe = nullptr;
    d . promotedtype = kMCNullTypeInfo;
    d . promote = nullptr;
	if (!__build_typeinfo("com.livecode.foreign.UTF8String", &d, kMCUTF8StringTypeInfo))
		return false;
	
	/* ---------- */

	if (!MCNamedErrorTypeInfoCreate (MCNAME("com.livecode.foreign.NullInZStringError"), MCNAME("foreign"), MCSTR("cannot export char U+0000 in nul-terminated string buffer"), kMCForeignZStringNullErrorTypeInfo))
		return false;

    return true;
}

extern "C" void com_livecode_foreign_Finalize(void)
{
    MCValueRelease(kMCNativeCStringTypeInfo);
	MCValueRelease(kMCWStringTypeInfo);

	MCValueRelease(kMCForeignZStringNullErrorTypeInfo);
}

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