/***********************************************************/
/*  ntux: native translation und extension                 */
/*  Copyright (C) 2016--2022  SysDeer Technologies, LLC    */
/*  Released under GPLv2 and GPLv3; see COPYING.NTUX.      */
/***********************************************************/

#include <psxabi/sys_sysapi.h>
#include <psxabi/sys_stat.h>
#include <psxabi/sys_errno.h>

#include <psxxfi/xfi_ofd.h>
#include <psxxfi/xfi_stat.h>
#include <psxxfi/xfi_unicode.h>

#include <ntux/ntux.h>
#include "ntux_driver_impl.h"
#include "ntux_nolibc_impl.h"
#include "ntux_errinfo_impl.h"

static int ntux_cmd_fspath_ret(void * buf, int ret)
{
	if (buf)
		ntux_free(buf);

	return ret;
}

int ntux_cmd_fspath(const struct ntux_driver_ctx * dctx, const char * dunit)
{
	intptr_t		ret;
	int			fdout;
	int			fdcwd;
	const unsigned char *	unit;
	char *			str;
	void *			buf     = 0;
	const size_t		bufsize = 0x10000;

	/* init */
	ntux_driver_set_ectx(
		dctx,0,dunit);

	unit = (const unsigned char *)dunit;

	/* fdctx */
	fdout = ntux_driver_fdout(dctx);
	fdcwd = ntux_driver_fdcwd(dctx);

	/* buffer */
	if (!(buf = ntux_calloc(1,bufsize)))
		if (ntux_errno_set(dctx,ENOMEM))
			return ntux_cmd_fspath_ret(
				buf,
				NTUX_SYSTEM_ERROR(dctx));

	str = (char *)buf;

	/* root-relative notation? */
	if (dctx->cctx->drvflags & NTUX_DRIVER_RPATH) {
		if ((ret = __sys_fs_rpath(
				fdcwd,
				(const char *)unit,
				0,buf,bufsize)) < 0)
			if (ntux_errno_set(dctx,ret))
				return ntux_cmd_fspath_ret(
					buf,
					NTUX_SYSTEM_ERROR(dctx));

	/* posix absolute notation? */
	} else if (dctx->cctx->drvflags & NTUX_DRIVER_APATH) {
		if ((ret = __sys_fs_apath(
				fdcwd,
				(const char *)unit,
				0,buf,bufsize)) < 0)
			if (ntux_errno_set(dctx,ret))
				return ntux_cmd_fspath_ret(
					buf,
					NTUX_SYSTEM_ERROR(dctx));

	/* native tool notation? */
	} else if (dctx->cctx->drvflags & NTUX_DRIVER_NPATH) {
		if ((ret = __sys_fs_npath(
				fdcwd,
				(const char *)unit,
				0,buf,bufsize)) < 0)
			if (ntux_errno_set(dctx,ret))
				return ntux_cmd_fspath_ret(
					buf,
					NTUX_SYSTEM_ERROR(dctx));

	/* native driver notation? */
	} else if (dctx->cctx->drvflags & NTUX_DRIVER_DPATH) {
		if ((ret = __sys_fs_dpath(
				fdcwd,
				(const char *)unit,
				0,buf,bufsize)) < 0)
			if (ntux_errno_set(dctx,ret))
				return ntux_cmd_fspath_ret(
					buf,
					NTUX_SYSTEM_ERROR(dctx));

	/* [default] posix absolute notation */
	} else {
		if ((ret = __sys_fs_apath(
				fdcwd,
				(const char *)unit,
				0,buf,bufsize)) < 0)
			if (ntux_errno_set(dctx,ret))
				return ntux_cmd_fspath_ret(
					buf,
					NTUX_SYSTEM_ERROR(dctx));
	}

	/* outupt */
	ntux_dprintf(fdout,"%s\n",str);

	/* all done */
	return ntux_cmd_fspath_ret(buf,0);
}