/***********************************************************/

/*  ntux: native translation und extension                 */

/*  Copyright (C) 2016--2018  Z. Gilboa                    */

/*  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_stat_ret(int fd, struct __ofd * ofd, void * buf, void * sbuf, int ret)

{

	if (fd >= 0)

		__sys_close(fd);

	if (ofd)

		__xfi_ofd_ref_dec(ofd);

	if (buf)

		ntux_free(buf);

	if (sbuf)

		ntux_free(sbuf);

	return ret;

}

int ntux_cmd_stat(const struct ntux_driver_ctx * dctx, const char * dunit)

{

	intptr_t		ret;

	int32_t			status;

	int			fdout;

	int			fdcwd;

	const unsigned char *	unit;

	nt_stat *		nstat;

	struct __stat		st;

	char *			str;

	int			fd      = -1;

	struct __ofd *		ofd     = 0;

	void *			buf     = 0;

	void *			sbuf    = 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);

	/* open */

	if ((ret = __sys_openat(fdcwd,unit,0,0)) < 0)

		if (ntux_errno_set(dctx,ret))

			return ntux_cmd_stat_ret(

				fd,ofd,buf,sbuf,

				NTUX_SYSTEM_ERROR(dctx));

	fd = ret;

	/* ofd */

	if (!(ofd = __xfi_ofd_ref_inc(fd)))

		return ntux_cmd_stat_ret(

			fd,ofd,buf,sbuf,

			NTUX_CUSTOM_ERROR(

				dctx,

				NTUX_ERR_FLOW_ERROR));

	/* fstat */

	if ((ret = __sys_fstat(fd,&st)))

		if (ntux_errno_set(dctx,ret))

			return ntux_cmd_stat_ret(

				fd,ofd,buf,sbuf,

				NTUX_SYSTEM_ERROR(dctx));

	/* buffers */

	if (!(buf = ntux_calloc(1,bufsize)))

		if (ntux_errno_set(dctx,ENOMEM))

			return ntux_cmd_stat_ret(

				fd,ofd,buf,sbuf,

				NTUX_SYSTEM_ERROR(dctx));

	if (!(sbuf = ntux_calloc(1,bufsize)))

		if (ntux_errno_set(dctx,ENOMEM))

			return ntux_cmd_stat_ret(

				fd,ofd,buf,sbuf,

				NTUX_SYSTEM_ERROR(dctx));

	nstat = (nt_stat *)sbuf;

	/* stat */

	if ((status = __xfi_stat(

			ofd->info.hfile,

			nstat,bufsize,

			buf,bufsize,

			NT_STAT_DEV_NAME_COPY)))

		return ntux_cmd_stat_ret(

			fd,ofd,buf,sbuf,

			NTUX_NATIVE_ERROR(dctx,status));

	/* native name */

	str = (char *)buf;

	if ((status = __xfi_strconv_utf16_to_utf8(

			nstat->dev_name,

			str,bufsize,0)))

		return ntux_cmd_stat_ret(

			fd,ofd,buf,sbuf,

			NTUX_NATIVE_ERROR(dctx,status));

	ntux_dprintf(fdout,"fname: %s\n",str);

	/* inode */

	ntux_dprintf(fdout,"inode: 0x%p (%lld)\n",st.st_ino,st.st_ino);

	/* all done */

	return ntux_cmd_stat_ret(fd,ofd,buf,sbuf,0);

}