/* -------------------------------------------

	Copyright (C) 2024-2025, Amlal El Mahrouss, all rights reserved.

------------------------------------------- */

#include <NewKit/Utils.h>

namespace Kernel
{
	Int32 rt_string_cmp(const Char* src, const Char* cmp, Size size)
	{
		Int32 counter = 0;

		for (Size index = 0; index < size; ++index)
		{
			if (src[index] != cmp[index])
				++counter;
		}

		return counter;
	}

	Void rt_zero_memory(voidPtr pointer, Size len)
	{
		rt_set_memory(pointer, 0, len);
	}

	SizeT rt_string_len(const Char* str, SizeT _len)
	{
		SizeT len{0};

		do
		{
			if (len > _len)
			{
				return _len;
			}

			++len;
		} while (str[len] != '\0');

		return len;
	}

	Size rt_string_len(const Char* ptr)
	{
		SizeT cnt{0};

		while (ptr[cnt] != 0)
			++cnt;

		return cnt;
	}

	voidPtr rt_set_memory(voidPtr src, UInt32 value, Size len)
	{
		UInt32* start = reinterpret_cast<UInt32*>(src);

		while (len)
		{
			*start = value;
			++start;
			--len;
		}

		return (voidPtr)start;
	}

	Int rt_move_memory(const voidPtr src, voidPtr dst, Size len)
	{
		Char* srcChr  = reinterpret_cast<Char*>(src);
		Char* dstChar = reinterpret_cast<Char*>(dst);
		SizeT index	  = 0;

		while (index < len)
		{
			dstChar[index] = srcChr[index];
			srcChr[index]  = 0;

			++index;
		}

		return 0;
	}

	Int rt_copy_memory(const voidPtr src, voidPtr dst, Size len)
	{
		char* srcChr  = reinterpret_cast<char*>(src);
		char* dstChar = reinterpret_cast<char*>(dst);
		Size  index	  = 0;

		while (index < len)
		{
			dstChar[index] = srcChr[index];
			++index;
		}

		dstChar[index] = 0;

		return index;
	}

	const Char* rt_alloc_string(const Char* src)
	{
		const Char* string = new Char[rt_string_len(src) + 1];

		if (!string)
			return nullptr;

		voidPtr v_src = reinterpret_cast<voidPtr>(const_cast<char*>(src));
		voidPtr v_dst = reinterpret_cast<voidPtr>(const_cast<char*>(string));

		rt_copy_memory(v_src, v_dst, rt_string_len(src) + 1);

		return string;
	}

	Int32 rt_to_uppercase(Int32 character)
	{
		if (character >= 'a' && character <= 'z')
			return character - 0x20;

		return character;
	}

	Int32 rt_is_alnum(Int32 character)
	{
		return (character >= 'a' && character <= 'z') || (character >= 'A' && character <= 'Z') || (character >= '0' && character <= '9');
	}

	Int32 rt_to_lower(Int32 character)
	{
		if (character >= 'A' && character <= 'Z')
			return character + 0x20;

		return character;
	}

	Boolean rt_is_space(Char chr)
	{
		return chr == ' ';
	}

	Boolean rt_is_newln(Char chr)
	{
		return chr == '\n';
	}

	VoidPtr rt_string_in_string(const Char* in, const Char* needle)
	{
		for (SizeT i = 0; i < rt_string_len(in); ++i)
		{
			if (rt_string_cmp(in + i, needle, rt_string_len(needle)) == 0)
				return reinterpret_cast<voidPtr>(const_cast<char*>(in + i));
		}

		return nullptr;
	}

	Char rt_to_char(UInt64 base, Int32 limit)
	{
		Char kNumbers[17] = "0123456789ABCDEF";
		return kNumbers[base % limit];
	}

	Bool rt_to_string(Char* str, UInt64 base, Int32 limit)
	{
#ifdef __NE_AMD64__
		auto i = 0;

		auto final_number = base;

		auto mult  = 1;
		auto elems = 0L;

		base /= 10;

		while (base > 0)
		{
			elems++;
			mult *= 10;
			base /= 10;
		}

		while (elems > -1)
		{
			final_number = (final_number % mult) * 10 + final_number / mult;
			str[i]		 = rt_to_char(final_number, limit);

			--elems;
			++i;
		}
#endif

		return YES;
	}

	/// @brief Checks for a string start at the character.

	Char* rt_string_has_char(Char* str, Char chr)
	{
		while (*str != chr)
		{
			++str;

			if (*str == 0)
				return nullptr;
		}

		return str;
	}
} // namespace Kernel

EXTERN_C void* memset(void* dst, int c, long long unsigned int len)
{
	return Kernel::rt_set_memory(dst, c, len);
}

EXTERN_C void* memcpy(void* dst, const void* src, long long unsigned int len)
{
	Kernel::rt_copy_memory(const_cast<void*>(src), dst, len);
	return dst;
}