/*
 * ========================================================
 *
 * Kernel
 * Copyright ZKA Technologies, all rights reserved.
 *
 *  ========================================================
 */

#include <KernelKit/DebugOutput.hpp>
#include <KernelKit/PEF.hxx>
#include <KernelKit/PEFSharedObject.hxx>
#include <KernelKit/ProcessScheduler.hxx>
#include <KernelKit/ThreadLocalStorage.hxx>
#include <NewKit/Defines.hpp>

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

 Revision History:

	 01/02/24: Rework shared sharedObj ABI, except a rt_library_init and
 rt_library_fini (amlel) 15/02/24: Breaking changes, changed the name of the
 routines. (amlel)

	07/28/24: Replace rt_library_free with rt_library_fini

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

using namespace Kernel;

/***********************************************************************************/
/// @file PEFSharedObjectRT.cxx
/// @brief PEF's shared object runtime.
/***********************************************************************************/

/***********************************************************************************/
/** @brief Library initializer. */
/***********************************************************************************/

EXTERN_C SharedObjectPtr rt_library_init(void)
{
	SharedObjectPtr sharedObj = tls_new_class<SharedObject>();

	if (!sharedObj)
	{
		ProcessScheduler::The().Leak().TheCurrent().Leak().Crash();

		return nullptr;
	}

	sharedObj->Mount(tls_new_class<SharedObject::SharedObjectTrait>());

	if (!sharedObj->Get())
	{
		ProcessScheduler::The().Leak().TheCurrent().Leak().Crash();

		return nullptr;
	}

	sharedObj->Get()->fImageObject =
		ProcessScheduler::The().Leak().TheCurrent().Leak().Image;

	if (!sharedObj->Get()->fImageObject)
	{
		ProcessScheduler::The().Leak().TheCurrent().Leak().Crash();

		return nullptr;
	}

	sharedObj->Get()->fImageEntrypointOffset =
		sharedObj->Load<VoidPtr>(kPefStart, rt_string_len(kPefStart, 0), kPefCode);

	return sharedObj;
}

/***********************************************************************************/
/** @brief Frees the sharedObj. */
/** @note Please check if the lib got freed! */
/** @param lib The sharedObj to free. */
/** @param successful Reports if successful or not. */
/***********************************************************************************/

EXTERN_C Void rt_library_fini(SharedObjectPtr lib, bool* successful)
{
	MUST_PASS(successful);

	// sanity check (will also trigger a bug check if this fails)
	if (lib == nullptr)
	{
		*successful = false;
		ProcessScheduler::The().Leak().TheCurrent().Leak().Crash();
	}

	delete lib->Get();
	delete lib;

	lib = nullptr;

	*successful = true;
}

/***********************************************************************************/
/// @brief Unimplemented function (crashes by default)
/// @param
/***********************************************************************************/

EXTERN_C void __mh_purecall(void)
{
	kcout << "newoskrnl: unimplemented symbol!\r";
}