#include "heapapi.h"
#include "heap.h"

#include "common.h"
#include "context.h"
#include "errors.h"
#include "handles.h"
#include "internal.h"

#include <algorithm>
#include <cstring>
#include <mimalloc.h>
#include <mutex>
#include <sys/mman.h>

using kernel32::HeapObject;

namespace {

std::once_flag g_processHeapInitFlag;
HANDLE g_processHeapHandle = nullptr;
HeapObject *g_processHeapRecord = nullptr;

void ensureProcessHeapInitialized() {
	std::call_once(g_processHeapInitFlag, []() {
		auto record = make_pin<HeapObject>(nullptr);
		if (!record) {
			return;
		}
		record->isProcessHeap = true;
		g_processHeapRecord = record.get();
		g_processHeapHandle = wibo::handles().alloc(std::move(record), 0, 0);
	});
}

bool isExecutableHeap(const HeapObject *record) {
	return record && ((record->createFlags & HEAP_CREATE_ENABLE_EXECUTE) != 0);
}

LPVOID heapAllocFromRecord(HeapObject *record, DWORD dwFlags, SIZE_T dwBytes) {
	if (!record) {
		return nullptr;
	}
	auto *heap = record->heap;
	if (!heap && record->isProcessHeap) {
		heap = wibo::heap::getGuestHeap();
	}
	if ((record->createFlags | dwFlags) & HEAP_GENERATE_EXCEPTIONS) {
		DEBUG_LOG("HeapAlloc: HEAP_GENERATE_EXCEPTIONS not supported\n");
		kernel32::setLastError(ERROR_INVALID_PARAMETER);
		return nullptr;
	}
	const bool zeroMemory = (dwFlags & HEAP_ZERO_MEMORY) != 0;
	const SIZE_T requestSize = std::max<SIZE_T>(1, dwBytes);
	void *mem = zeroMemory ? mi_heap_zalloc(heap, requestSize) : mi_heap_malloc(heap, requestSize);
	if (!mem) {
		kernel32::setLastError(ERROR_NOT_ENOUGH_MEMORY);
		return nullptr;
	}
	if (isExecutableHeap(record)) {
		kernel32::tryMarkExecutable(mem);
	}
	return mem;
}

} // namespace

HeapObject::~HeapObject() {
	if (heap) {
		mi_heap_destroy(heap);
		heap = nullptr;
	}
	if (isProcessHeap) {
		g_processHeapHandle = nullptr;
		g_processHeapRecord = nullptr;
	}
}

namespace kernel32 {

HANDLE WINAPI HeapCreate(DWORD flOptions, SIZE_T dwInitialSize, SIZE_T dwMaximumSize) {
	HOST_CONTEXT_GUARD();
	DEBUG_LOG("HeapCreate(%u, %zu, %zu)\n", flOptions, dwInitialSize, dwMaximumSize);
	if (dwMaximumSize != 0 && dwInitialSize > dwMaximumSize) {
		setLastError(ERROR_INVALID_PARAMETER);
		return nullptr;
	}

	mi_heap_t *heap = wibo::heap::createGuestHeap();
	if (!heap) {
		setLastError(ERROR_NOT_ENOUGH_MEMORY);
		return nullptr;
	}

	auto record = make_pin<HeapObject>(heap);
	record->createFlags = flOptions;
	record->initialSize = dwInitialSize;
	record->maximumSize = dwMaximumSize;
	return wibo::handles().alloc(std::move(record), 0, 0);
}

BOOL WINAPI HeapDestroy(HANDLE hHeap) {
	HOST_CONTEXT_GUARD();
	DEBUG_LOG("HeapDestroy(%p)\n", hHeap);
	auto record = wibo::handles().getAs<HeapObject>(hHeap);
	if (!record || !record->isOwner() || record->isProcessHeap) {
		setLastError(ERROR_INVALID_HANDLE);
		return FALSE;
	}
	mi_heap_destroy(record->heap);
	record->heap = nullptr;
	wibo::handles().release(hHeap);
	return TRUE;
}

HANDLE WINAPI GetProcessHeap() {
	HOST_CONTEXT_GUARD();
	ensureProcessHeapInitialized();
	DEBUG_LOG("GetProcessHeap() -> %p\n", g_processHeapHandle);
	return g_processHeapHandle;
}

BOOL WINAPI HeapSetInformation(HANDLE HeapHandle, HEAP_INFORMATION_CLASS HeapInformationClass, PVOID HeapInformation,
							   SIZE_T HeapInformationLength) {
	HOST_CONTEXT_GUARD();
	DEBUG_LOG("HeapSetInformation(%p, %d, %p, %zu)\n", HeapHandle, static_cast<int>(HeapInformationClass),
			  HeapInformation, HeapInformationLength);
	auto record = wibo::handles().getAs<HeapObject>(HeapHandle);
	if (!record || !record->canAccess()) {
		setLastError(ERROR_INVALID_HANDLE);
		return FALSE;
	}
	switch (HeapInformationClass) {
	case HeapCompatibilityInformation: {
		if (!HeapInformation || HeapInformationLength < sizeof(ULONG)) {
			setLastError(ERROR_INVALID_PARAMETER);
			return FALSE;
		}
		record->compatibility = *static_cast<ULONG *>(HeapInformation);
		return TRUE;
	}
	case HeapEnableTerminationOnCorruption:
		return TRUE;
	case HeapOptimizeResources:
		setLastError(ERROR_CALL_NOT_IMPLEMENTED);
		return FALSE;
	default:
		setLastError(ERROR_INVALID_PARAMETER);
		return FALSE;
	}
}

LPVOID WINAPI HeapAlloc(HANDLE hHeap, DWORD dwFlags, SIZE_T dwBytes) {
	HOST_CONTEXT_GUARD();
	VERBOSE_LOG("HeapAlloc(%p, 0x%x, %zu) ", hHeap, dwFlags, dwBytes);
	auto record = wibo::handles().getAs<HeapObject>(hHeap);
	if (!record || !record->canAccess()) {
		VERBOSE_LOG("-> NULL\n");
		setLastError(ERROR_INVALID_HANDLE);
		return nullptr;
	}
	void *mem = heapAllocFromRecord(record.get(), dwFlags, dwBytes);
	VERBOSE_LOG("-> %p\n", mem);
	return mem;
}

LPVOID WINAPI HeapReAlloc(HANDLE hHeap, DWORD dwFlags, LPVOID lpMem, SIZE_T dwBytes) {
	HOST_CONTEXT_GUARD();
	VERBOSE_LOG("HeapReAlloc(%p, 0x%x, %p, %zu) ", hHeap, dwFlags, lpMem, dwBytes);
	auto record = wibo::handles().getAs<HeapObject>(hHeap);
	if (!record || !record->canAccess()) {
		VERBOSE_LOG("-> NULL\n");
		setLastError(ERROR_INVALID_HANDLE);
		return nullptr;
	}
	if (lpMem == nullptr) {
		void *alloc = heapAllocFromRecord(record.get(), dwFlags, dwBytes);
		VERBOSE_LOG("-> %p (alloc)\n", alloc);
		return alloc;
	}
	if (!mi_is_in_heap_region(lpMem)) {
		VERBOSE_LOG("-> NULL (not owned)\n");
		setLastError(ERROR_INVALID_PARAMETER);
		return nullptr;
	}
	if ((record->createFlags | dwFlags) & HEAP_GENERATE_EXCEPTIONS) {
		VERBOSE_LOG("-> NULL (exceptions unsupported)\n");
		setLastError(ERROR_NOT_SUPPORTED);
		return nullptr;
	}
	const bool inplaceOnly = (dwFlags & HEAP_REALLOC_IN_PLACE_ONLY) != 0;
	const bool zeroMemory = (dwFlags & HEAP_ZERO_MEMORY) != 0;
	if (dwBytes == 0) {
		if (!inplaceOnly) {
			mi_free(lpMem);
			VERBOSE_LOG("-> NULL (freed)\n");
			return nullptr;
		}
		VERBOSE_LOG("-> NULL (zero size with in-place flag)\n");
		setLastError(ERROR_NOT_ENOUGH_MEMORY);
		return nullptr;
	}

	const SIZE_T requestSize = std::max<SIZE_T>(1, dwBytes);
	const SIZE_T oldSize = mi_usable_size(lpMem);
	if (inplaceOnly || requestSize <= oldSize) {
		if (requestSize > oldSize) {
			VERBOSE_LOG("-> NULL (cannot grow in place)\n");
			setLastError(ERROR_NOT_ENOUGH_MEMORY);
			return nullptr;
		}
		VERBOSE_LOG("-> %p (in-place)\n", lpMem);
		return lpMem;
	}

	auto *heap = record->heap;
	if (!heap && record->isProcessHeap) {
		heap = wibo::heap::getGuestHeap();
	}
	void *ret = mi_heap_realloc(heap, lpMem, requestSize);
	if (!ret) {
		setLastError(ERROR_NOT_ENOUGH_MEMORY);
		return nullptr;
	}
	if (zeroMemory && requestSize > oldSize) {
		size_t newUsable = mi_usable_size(ret);
		if (newUsable > oldSize) {
			size_t zeroLen = std::min<SIZE_T>(newUsable, requestSize) - oldSize;
			std::memset(static_cast<char *>(ret) + oldSize, 0, zeroLen);
		}
	}
	if (isExecutableHeap(record.get())) {
		tryMarkExecutable(ret);
	}
	VERBOSE_LOG("-> %p\n", ret);
	return ret;
}

SIZE_T WINAPI HeapSize(HANDLE hHeap, DWORD dwFlags, LPCVOID lpMem) {
	HOST_CONTEXT_GUARD();
	VERBOSE_LOG("HeapSize(%p, 0x%x, %p)\n", hHeap, dwFlags, lpMem);
	(void)dwFlags;
	auto record = wibo::handles().getAs<HeapObject>(hHeap);
	if (!record || !record->canAccess()) {
		VERBOSE_LOG("-> ERROR_INVALID_HANDLE\n");
		setLastError(ERROR_INVALID_HANDLE);
		return static_cast<SIZE_T>(-1);
	}
	if (!lpMem) {
		VERBOSE_LOG("-> ERROR_INVALID_PARAMETER\n");
		setLastError(ERROR_INVALID_PARAMETER);
		return static_cast<SIZE_T>(-1);
	}
	if (!mi_is_in_heap_region(lpMem)) {
		VERBOSE_LOG("-> ERROR_INVALID_PARAMETER (not owned)\n");
		setLastError(ERROR_INVALID_PARAMETER);
		return static_cast<SIZE_T>(-1);
	}
	size_t size = mi_usable_size(lpMem);
	return static_cast<SIZE_T>(size);
}

BOOL WINAPI HeapFree(HANDLE hHeap, DWORD dwFlags, LPVOID lpMem) {
	HOST_CONTEXT_GUARD();
	VERBOSE_LOG("HeapFree(%p, 0x%x, %p)\n", hHeap, dwFlags, lpMem);
	(void)dwFlags;
	if (lpMem == nullptr) {
		return TRUE;
	}
	auto record = wibo::handles().getAs<HeapObject>(hHeap);
	if (!record || !record->canAccess()) {
		VERBOSE_LOG("-> ERROR_INVALID_HANDLE\n");
		setLastError(ERROR_INVALID_HANDLE);
		return FALSE;
	}
	if (!mi_is_in_heap_region(lpMem)) {
		VERBOSE_LOG("-> ERROR_INVALID_PARAMETER (not owned)\n");
		setLastError(ERROR_INVALID_PARAMETER);
		return FALSE;
	}
	mi_free(lpMem);
	VERBOSE_LOG("-> SUCCESS\n");
	return TRUE;
}

} // namespace kernel32