#include <unistd.h>
#include <stdint.h>
#include "psxglue.h"
#include "peldso.h"

const int __crtopt_ldso = __PSXOPT_LDSO;

/* framework (rtdata) abi */
static const struct __guid  __ldsoabi  = NT_PROCESS_GUID_RTDATA;

/* loader root-relative name */
static const unsigned short __rrldso[] = {'l','i','b','\\',
				          'l','i','b','p','s','x','s','c','l',
				          '.','s','o',0};

/* loader root-relative name */
static const unsigned short __rrlibc[] = {'l','i','b','\\',
				          'l','i','b','c',
				          '.','s','o',0};


static unsigned long	__attribute__((section(".dsodata")))
			__dsodata[65536/sizeof(unsigned long)];

void __libc_loader_init(void * __main, int flags)
{
	int		status;
	void *		hroot;
	void *		hdsodir;
	void *		ldsobase;
	void *		libcbase;
	int  		(*__psx_init)(int *,char ***,char ***,void *);
	void		(*__libc_entry_routine)(void *,void *,int);

	if ((status = __ldso_load_framework_loader_ex(
			&ldsobase,&hroot,&hdsodir,
			&__ldsoabi,
			0,__rrldso,__main,
			__dsodata,sizeof(__dsodata),
			PE_LDSO_DEFAULT_EXECUTABLE,
			&(unsigned int){0})))
		__ldso_terminate_current_process(status);

	if ((status = __ldso_load_framework_library(
			&libcbase,hroot,__rrlibc,
			__dsodata,sizeof(__dsodata),
			&(unsigned int){0})))
		__ldso_terminate_current_process(status);

	if (!(__psx_init = __ldso_get_procedure_address(
			ldsobase,"__psx_init")))
		__ldso_terminate_current_process(NT_STATUS_NOINTERFACE);

	if (!(__libc_entry_routine = __ldso_get_procedure_address(
			libcbase,"__libc_entry_routine")))
		__ldso_terminate_current_process(NT_STATUS_NOINTERFACE);

	__libc_entry_routine(__main,__psx_init,flags);
}