// MIT License, Copyright (c) 2020 Marvin Borner

#include <def.h>
#include <mem.h>
#include <sys.h>

// Taken from jgraef at osdev
void *memcpy(void *dest, const void *src, u32 n)
{
	u32 num_dwords = n / 4;
	u32 num_bytes = n % 4;
	u32 *dest32 = (u32 *)dest;
	u32 *src32 = (u32 *)src;
	u8 *dest8 = ((u8 *)dest) + num_dwords * 4;
	u8 *src8 = ((u8 *)src) + num_dwords * 4;
	u32 i;

	for (i = 0; i < num_dwords; i++) {
		dest32[i] = src32[i];
	}
	for (i = 0; i < num_bytes; i++) {
		dest8[i] = src8[i];
	}
	return dest;
}

void *memset(void *dest, int val, u32 n)
{
	u32 num_dwords = n / 4;
	u32 num_bytes = n % 4;
	u32 *dest32 = (u32 *)dest;
	u8 *dest8 = ((u8 *)dest) + num_dwords * 4;
	u8 val8 = (u8)val;
	u32 val32 = val | (val << 8) | (val << 16) | (val << 24);
	u32 i;

	for (i = 0; i < num_dwords; i++) {
		dest32[i] = val32;
	}
	for (i = 0; i < num_bytes; i++) {
		dest8[i] = val8;
	}
	return dest;
}

int memcmp(const void *s1, const void *s2, u32 n)
{
	const u8 *a = (const u8 *)s1;
	const u8 *b = (const u8 *)s2;
	for (u32 i = 0; i < n; i++) {
		if (a[i] < b[i])
			return -1;
		else if (b[i] < a[i])
			return 1;
	}
	return 0;
}

#ifdef kernel

/* #define ALIGNMENT 1ul */
/* #define ALIGN_TYPE char */
/* #define ALIGN_INFO sizeof(ALIGN_TYPE) * 16 */

/* #define ALIGN(ptr)                                                                                 \ */
/* 	if (ALIGNMENT > 1) {                                                                       \ */
/* 		u32 diff;                                                                          \ */
/* 		ptr = (void *)((u32)ptr + ALIGN_INFO);                                             \ */
/* 		diff = (u32)ptr & (ALIGNMENT - 1);                                                 \ */
/* 		if (diff != 0) {                                                                   \ */
/* 			diff = ALIGNMENT - diff;                                                   \ */
/* 			ptr = (void *)((u32)ptr + diff);                                           \ */
/* 		}                                                                                  \ */
/* 		*((ALIGN_TYPE *)((u32)ptr - ALIGN_INFO)) = diff + ALIGN_INFO;                      \ */
/* 	} */

/* #define UNALIGN(ptr)                                                                               \ */
/* 	if (ALIGNMENT > 1) {                                                                       \ */
/* 		u32 diff = *((ALIGN_TYPE *)((u32)ptr - ALIGN_INFO));                               \ */
/* 		if (diff < (ALIGNMENT + ALIGN_INFO)) {                                             \ */
/* 			ptr = (void *)((u32)ptr - diff);                                           \ */
/* 		}                                                                                  \ */
/* 	} */

static u32 *heap;
static u32 index;

void heap_init(u32 start)
{
	heap = (u32 *)start;
	for (int i = 0; i < HEAP_SIZE; i++)
		heap[i] = 0;
	heap[0] = HEAP_MAGIC;
	index = 1;
}

int count()
{
	int i = 0;
	u32 *iterator = heap + 1;
	do {
		iterator += iterator[0] + 1;
		i++;
	} while (iterator[0] != 0);
	return i;
}

void *malloc(u32 size)
{
	if (size < 1)
		return NULL;

	/* size = size + ALIGNMENT + ALIGN_INFO; */

	heap[index] = size;
	index += size + 1;

	void *p = (void *)(heap + index - size);
	/* ALIGN(p); */

	return p;
}

// TODO: Implement free, realloc and find_smallest_hole
void free(void *ptr)
{
	(void)ptr;
	/* UNALIGN(ptr); */
}

void *realloc(void *ptr, u32 size)
{
	(void)size;
	return ptr;
}

#endif