/*
 * Copyright (c) 1998 Mark Newton
 * Copyright (c) 1994 Christos Zoulas
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. The name of the author may not be used to endorse or promote products
 *    derived from this software without specific prior written permission
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 * 
 * $FreeBSD$
 */

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/proc.h>
#include <sys/stat.h>
#include <sys/filedesc.h>
#include <sys/jail.h>
#include <sys/kernel.h>
#include <sys/unistd.h>
#include <sys/time.h>
#include <sys/sysctl.h>
#include <sys/sysproto.h>

#include <vm/vm.h>

#include <netinet/in.h>

#include <compat/svr4/svr4.h>
#include <compat/svr4/svr4_types.h>
#include <compat/svr4/svr4_signal.h>
#include <compat/svr4/svr4_proto.h>
#include <compat/svr4/svr4_util.h>
#include <compat/svr4/svr4_stat.h>
#include <compat/svr4/svr4_ustat.h>
#include <compat/svr4/svr4_utsname.h>
#include <compat/svr4/svr4_systeminfo.h>
#include <compat/svr4/svr4_socket.h>
#include <compat/svr4/svr4_time.h>
#if defined(NOTYET)
#include "svr4_fuser.h"
#endif

#ifdef sparc
/* 
 * Solaris-2.4 on the sparc has the old stat call using the new
 * stat data structure...
 */
# define SVR4_NO_OSTAT
#endif

struct svr4_ustat_args {
	svr4_dev_t		dev;
	struct svr4_ustat * name;
};

static void bsd_to_svr4_xstat(struct stat *, struct svr4_xstat *);
static void bsd_to_svr4_stat64(struct stat *, struct svr4_stat64 *);
int svr4_ustat(struct thread *, struct svr4_ustat_args *);
static int svr4_to_bsd_pathconf(int);

/*
 * SVR4 uses named pipes as named sockets, so we tell programs
 * that sockets are named pipes with mode 0
 */
#define BSD_TO_SVR4_MODE(mode) (S_ISSOCK(mode) ? S_IFIFO : (mode))


#ifndef SVR4_NO_OSTAT
static void bsd_to_svr4_stat(struct stat *, struct svr4_stat *);

static void
bsd_to_svr4_stat(st, st4)
	struct stat		*st;
	struct svr4_stat 	*st4;
{
	memset(st4, 0, sizeof(*st4));
	st4->st_dev = bsd_to_svr4_odev_t(st->st_dev);
	st4->st_ino = st->st_ino;
	st4->st_mode = BSD_TO_SVR4_MODE(st->st_mode);
	st4->st_nlink = st->st_nlink;
	st4->st_uid = st->st_uid;
	st4->st_gid = st->st_gid;
	st4->st_rdev = bsd_to_svr4_odev_t(st->st_rdev);
	st4->st_size = st->st_size;
	st4->st_atim = st->st_atimespec.tv_sec;
	st4->st_mtim = st->st_mtimespec.tv_sec;
	st4->st_ctim = st->st_ctimespec.tv_sec;
}
#endif


static void
bsd_to_svr4_xstat(st, st4)
	struct stat		*st;
	struct svr4_xstat	*st4;
{
	memset(st4, 0, sizeof(*st4));
	st4->st_dev = bsd_to_svr4_dev_t(st->st_dev);
	st4->st_ino = st->st_ino;
	st4->st_mode = BSD_TO_SVR4_MODE(st->st_mode);
	st4->st_nlink = st->st_nlink;
	st4->st_uid = st->st_uid;
	st4->st_gid = st->st_gid;
	st4->st_rdev = bsd_to_svr4_dev_t(st->st_rdev);
	st4->st_size = st->st_size;
	st4->st_atim = st->st_atimespec;
	st4->st_mtim = st->st_mtimespec;
	st4->st_ctim = st->st_ctimespec;
	st4->st_blksize = st->st_blksize;
	st4->st_blocks = st->st_blocks;
	strcpy(st4->st_fstype, "unknown");
}


static void
bsd_to_svr4_stat64(st, st4)
	struct stat		*st;
	struct svr4_stat64	*st4;
{
	memset(st4, 0, sizeof(*st4));
	st4->st_dev = bsd_to_svr4_dev_t(st->st_dev);
	st4->st_ino = st->st_ino;
	st4->st_mode = BSD_TO_SVR4_MODE(st->st_mode);
	st4->st_nlink = st->st_nlink;
	st4->st_uid = st->st_uid;
	st4->st_gid = st->st_gid;
	st4->st_rdev = bsd_to_svr4_dev_t(st->st_rdev);
	st4->st_size = st->st_size;
	st4->st_atim = st->st_atimespec;
	st4->st_mtim = st->st_mtimespec;
	st4->st_ctim = st->st_ctimespec;
	st4->st_blksize = st->st_blksize;
	st4->st_blocks = st->st_blocks;
	strcpy(st4->st_fstype, "unknown");
}

int
svr4_sys_stat(td, uap)
	struct thread *td;
	struct svr4_sys_stat_args *uap;
{
	struct stat		st;
	struct svr4_stat	svr4_st;
	struct stat_args	cup;
	int			error;
	caddr_t sg = stackgap_init();

	CHECKALTEXIST(td, &sg, uap->path);

	cup.path = uap->path;
	cup.ub = stackgap_alloc(&sg, sizeof(struct stat));


	if ((error = stat(td, &cup)) != 0)
		return error;

	if ((error = copyin(cup.ub, &st, sizeof st)) != 0)
		return error;

	bsd_to_svr4_stat(&st, &svr4_st);

	if (S_ISSOCK(st.st_mode))
		(void) svr4_add_socket(td, uap->path, &st);

	if ((error = copyout(&svr4_st, uap->ub, sizeof svr4_st)) != 0)
		return error;

	return 0;
}


int
svr4_sys_lstat(td, uap)
	register struct thread *td;
	struct svr4_sys_lstat_args *uap;
{
	struct stat		st;
	struct svr4_stat	svr4_st;
	struct lstat_args	cup;
	int			error;
	caddr_t			sg = stackgap_init();

	CHECKALTEXIST(td, &sg, uap->path);

	cup.path = uap->path;
	cup.ub = stackgap_alloc(&sg, sizeof(struct stat));

	if ((error = lstat(td, &cup)) != 0)
		return error;

	if ((error = copyin(cup.ub, &st, sizeof st)) != 0)
		return error;

	bsd_to_svr4_stat(&st, &svr4_st);

	if (S_ISSOCK(st.st_mode))
		(void) svr4_add_socket(td, uap->path, &st);

	if ((error = copyout(&svr4_st, uap->ub, sizeof svr4_st)) != 0)
		return error;

	return 0;
}


int
svr4_sys_fstat(td, uap)
	register struct thread *td;
	struct svr4_sys_fstat_args *uap;
{
	struct stat		st;
	struct svr4_stat	svr4_st;
	struct fstat_args	cup;
	int			error;
	caddr_t			sg = stackgap_init();

	cup.fd = uap->fd;
	cup.sb = stackgap_alloc(&sg, sizeof(struct stat));

	if ((error = fstat(td, &cup)) != 0)
		return error;

	if ((error = copyin(cup.sb, &st, sizeof st)) != 0)
		return error;

	bsd_to_svr4_stat(&st, &svr4_st);

	if ((error = copyout(&svr4_st, uap->sb, sizeof svr4_st)) != 0)
		return error;

	return 0;
}


int
svr4_sys_xstat(td, uap)
	register struct thread *td;
	struct svr4_sys_xstat_args *uap;
{
	struct stat		st;
	struct svr4_xstat	svr4_st;
	struct stat_args	cup;
	int			error;

	caddr_t sg = stackgap_init();
	CHECKALTEXIST(td, &sg, uap->path);

	cup.path = uap->path;
	cup.ub = stackgap_alloc(&sg, sizeof(struct stat));

	if ((error = stat(td, &cup)) != 0)
		return error;

	if ((error = copyin(cup.ub, &st, sizeof st)) != 0)
		return error;

	bsd_to_svr4_xstat(&st, &svr4_st);

#if defined(SOCKET_NOTYET)
	if (S_ISSOCK(st.st_mode))
		(void) svr4_add_socket(td, uap->path, &st);
#endif

	if ((error = copyout(&svr4_st, uap->ub, sizeof svr4_st)) != 0)
		return error;

	return 0;
}

int
svr4_sys_lxstat(td, uap)
	register struct thread *td;
	struct svr4_sys_lxstat_args *uap;
{
	struct stat		st;
	struct svr4_xstat	svr4_st;
	struct lstat_args	cup;
	int			error;
	caddr_t sg = stackgap_init();
	CHECKALTEXIST(td, &sg, uap->path);

	cup.path = uap->path;
	cup.ub = stackgap_alloc(&sg, sizeof(struct stat));

	if ((error = lstat(td, &cup)) != 0)
		return error;

	if ((error = copyin(cup.ub, &st, sizeof st)) != 0)
		return error;

	bsd_to_svr4_xstat(&st, &svr4_st);

#if defined(SOCKET_NOTYET)
	if (S_ISSOCK(st.st_mode))
		(void) svr4_add_socket(td, uap->path, &st);
#endif
	if ((error = copyout(&svr4_st, uap->ub, sizeof svr4_st)) != 0)
		return error;

	return 0;
}


int
svr4_sys_fxstat(td, uap)
	register struct thread *td;
	struct svr4_sys_fxstat_args *uap;
{
	struct stat		st;
	struct svr4_xstat	svr4_st;
	struct fstat_args	cup;
	int			error;

	caddr_t sg = stackgap_init();

	cup.fd = uap->fd;
	cup.sb = stackgap_alloc(&sg, sizeof(struct stat));

	if ((error = fstat(td, &cup)) != 0)
		return error;

	if ((error = copyin(cup.sb, &st, sizeof st)) != 0)
		return error;

	bsd_to_svr4_xstat(&st, &svr4_st);

	if ((error = copyout(&svr4_st, uap->sb, sizeof svr4_st)) != 0)
		return error;

	return 0;
}

int
svr4_sys_stat64(td, uap)
	register struct thread *td;
	struct svr4_sys_stat64_args *uap;
{
	struct stat		st;
	struct svr4_stat64	svr4_st;
	struct stat_args	cup;
	int			error;
	caddr_t			sg = stackgap_init();

	CHECKALTEXIST(td, &sg, uap->path);

	cup.path = uap->path;
	cup.ub = stackgap_alloc(&sg, sizeof(struct stat));

	if ((error = stat(td, &cup)) != 0)
		return error;

	if ((error = copyin(cup.ub, &st, sizeof st)) != 0)
		return error;

	bsd_to_svr4_stat64(&st, &svr4_st);

	if (S_ISSOCK(st.st_mode))
		(void) svr4_add_socket(td, uap->path, &st);

	if ((error = copyout(&svr4_st, uap->sb, sizeof svr4_st)) != 0)
		return error;

	return 0;
}


int
svr4_sys_lstat64(td, uap)
	register struct thread *td;
	struct svr4_sys_lstat64_args *uap;
{
	struct stat		st;
	struct svr4_stat64	svr4_st;
	struct stat_args	cup;
	int			error;
	caddr_t			sg = stackgap_init();

	CHECKALTEXIST(td, &sg, (char *) uap->path);

	cup.path = uap->path;
	cup.ub = stackgap_alloc(&sg, sizeof(struct stat));

	if ((error = lstat(td, (struct lstat_args *)&cup)) != 0)
		return error;

	if ((error = copyin(cup.ub, &st, sizeof st)) != 0)
		return error;

	bsd_to_svr4_stat64(&st, &svr4_st);

	if (S_ISSOCK(st.st_mode))
		(void) svr4_add_socket(td, uap->path, &st);

	if ((error = copyout(&svr4_st, uap->sb, sizeof svr4_st)) != 0)
		return error;

	return 0;
}


int
svr4_sys_fstat64(td, uap)
	register struct thread *td;
	struct svr4_sys_fstat64_args *uap;
{
	struct stat		st;
	struct svr4_stat64	svr4_st;
	struct fstat_args	cup;
	int			error;
	caddr_t sg = stackgap_init();

	cup.fd = uap->fd;
	cup.sb = stackgap_alloc(&sg, sizeof(struct stat));

	if ((error = fstat(td, &cup)) != 0)
		return error;

	if ((error = copyin(cup.sb, &st, sizeof st)) != 0)
		return error;

	bsd_to_svr4_stat64(&st, &svr4_st);

	if ((error = copyout(&svr4_st, uap->sb, sizeof svr4_st)) != 0)
		return error;

	return 0;
}


int
svr4_ustat(td, uap)
	register struct thread *td;
	struct svr4_ustat_args *uap;
{
	struct svr4_ustat	us;
	int			error;

	memset(&us, 0, sizeof us);

	/*
         * XXX: should set f_tfree and f_tinode at least
         * How do we translate dev -> fstat? (and then to svr4_ustat)
         */
	if ((error = copyout(&us, uap->name, sizeof us)) != 0)
		return (error);

	return 0;
}

/*extern char ostype[], hostname[], osrelease[], version[], machine[];*/

int
svr4_sys_uname(td, uap)
	register struct thread *td;
	struct svr4_sys_uname_args *uap;
{
	struct svr4_utsname	sut;
	
	memset(&sut, 0, sizeof(sut));

	strlcpy(sut.sysname, ostype, sizeof(sut.sysname));
	getcredhostname(td->td_ucred, sut.nodename, sizeof(sut.nodename));
	strlcpy(sut.release, osrelease, sizeof(sut.release));
	strlcpy(sut.version, version, sizeof(sut.version));
	strlcpy(sut.machine, machine, sizeof(sut.machine));

	return copyout((caddr_t) &sut, (caddr_t) uap->name,
		       sizeof(struct svr4_utsname));
}

int
svr4_sys_systeminfo(td, uap)
	struct thread *td;
	struct svr4_sys_systeminfo_args *uap;
{
	char		*str = NULL;
	int		error = 0;
	register_t	*retval = td->td_retval;
	size_t		len = 0;
	char		buf[1];   /* XXX NetBSD uses 256, but that seems
				     like awfully excessive kstack usage
				     for an empty string... */
	u_int		rlen = uap->len;

	switch (uap->what) {
	case SVR4_SI_SYSNAME:
		str = ostype;
		break;

	case SVR4_SI_HOSTNAME:
		str = hostname;
		break;

	case SVR4_SI_RELEASE:
		str = osrelease;
		break;

	case SVR4_SI_VERSION:
		str = version;
		break;

	case SVR4_SI_MACHINE:
		str = machine;
		break;

	case SVR4_SI_ARCHITECTURE:
		str = machine;
		break;

	case SVR4_SI_HW_SERIAL:
		str = "0";
		break;

	case SVR4_SI_HW_PROVIDER:
		str = ostype;
		break;

	case SVR4_SI_SRPC_DOMAIN:
		str = domainname;
		break;

	case SVR4_SI_PLATFORM:
#ifdef __i386__
		str = "i86pc";
#else
		str = "unknown";
#endif
		break;

	case SVR4_SI_KERB_REALM:
		str = "unsupported";
		break;
#if defined(WHY_DOES_AN_EMULATOR_WANT_TO_SET_HOSTNAMES)
	case SVR4_SI_SET_HOSTNAME:
		if ((error = suser(td)) != 0)
			return error;
		name = KERN_HOSTNAME;
		return kern_sysctl(&name, 1, 0, 0, uap->buf, rlen, td);

	case SVR4_SI_SET_SRPC_DOMAIN:
		if ((error = suser(td)) != 0)
			return error;
		name = KERN_NISDOMAINNAME;
		return kern_sysctl(&name, 1, 0, 0, uap->buf, rlen, td);
#else
	case SVR4_SI_SET_HOSTNAME:
        case SVR4_SI_SET_SRPC_DOMAIN:
		/* FALLTHROUGH */
#endif
	case SVR4_SI_SET_KERB_REALM:
		return 0;

	default:
		DPRINTF(("Bad systeminfo command %d\n", uap->what));
		return ENOSYS;
	}

	if (str) {
		len = strlen(str) + 1;
		if (len > rlen)
			len = rlen;

		if (uap->buf) {
			error = copyout(str, uap->buf, len);
			if (error)
				return error;
			/* make sure we are NULL terminated */
			buf[0] = '\0';
			error = copyout(buf, &(uap->buf[len - 1]), 1);
		}
		else
			error = 0;
	}
	/* XXX NetBSD has hostname setting stuff here.  Why would an emulator
	   want to do that? */

	*retval = len;
	return error;
}

int
svr4_sys_utssys(td, uap)
	register struct thread *td;
	struct svr4_sys_utssys_args *uap;
{
	switch (uap->sel) {
	case 0:		/* uname(2)  */
		{
			struct svr4_sys_uname_args ua;
			ua.name = uap->a1;
			return svr4_sys_uname(td, &ua);
		}

	case 2:		/* ustat(2)  */
		{
			struct svr4_ustat_args ua;
			ua.dev = (svr4_dev_t) uap->a2;
			ua.name = uap->a1;
			return svr4_ustat(td, &ua);
		}

	case 3:		/* fusers(2) */
		return ENOSYS;

	default:
		return ENOSYS;
	}
	return ENOSYS;
}


int
svr4_sys_utime(td, uap)
	register struct thread *td;
	struct svr4_sys_utime_args *uap;
{
	struct svr4_utimbuf ub;
	struct timeval tbuf[2];
	struct utimes_args ap;
	int error;
	caddr_t sg = stackgap_init();
	void *ttp;

	CHECKALTEXIST(td, &sg, uap->path);
	ap.path = uap->path;
	if (uap->ubuf != NULL) {
		if ((error = copyin(uap->ubuf, &ub, sizeof(ub))) != 0)
			return error;
		tbuf[0].tv_sec = ub.actime;
		tbuf[0].tv_usec = 0;
		tbuf[1].tv_sec = ub.modtime;
		tbuf[1].tv_usec = 0;
		ttp = stackgap_alloc(&sg, sizeof(tbuf));
		error = copyout(tbuf, ttp, sizeof(tbuf));
		if (error)
			return error;
		ap.tptr = ttp;
	}
	else
		ap.tptr = NULL;
	return utimes(td, &ap);
}


int
svr4_sys_utimes(td, uap)
	register struct thread *td;
	struct svr4_sys_utimes_args *uap;
{
	caddr_t sg = stackgap_init();
	CHECKALTEXIST(td, &sg, uap->path);
	return utimes(td, (struct utimes_args *)uap);
}

static int
svr4_to_bsd_pathconf(name)
	int name;
{
	switch (name) {
	case SVR4_PC_LINK_MAX:
	    	return _PC_LINK_MAX;

	case SVR4_PC_MAX_CANON:
		return _PC_MAX_CANON;

	case SVR4_PC_MAX_INPUT:
		return _PC_MAX_INPUT;

	case SVR4_PC_NAME_MAX:
		return _PC_NAME_MAX;

	case SVR4_PC_PATH_MAX:
		return _PC_PATH_MAX;

	case SVR4_PC_PIPE_BUF:
		return _PC_PIPE_BUF;

	case SVR4_PC_NO_TRUNC:
		return _PC_NO_TRUNC;

	case SVR4_PC_VDISABLE:
		return _PC_VDISABLE;

	case SVR4_PC_CHOWN_RESTRICTED:
		return _PC_CHOWN_RESTRICTED;
	case SVR4_PC_SYNC_IO:
#if defined(_PC_SYNC_IO)
		return _PC_SYNC_IO;
#else
		return 0;
#endif
	case SVR4_PC_ASYNC_IO:
	case SVR4_PC_PRIO_IO:
		/* Not supported */
		return 0;

	default:
		/* Invalid */
		return -1;
	}
}


int
svr4_sys_pathconf(td, uap)
	register struct thread *td;
	struct svr4_sys_pathconf_args *uap;
{
	caddr_t		sg = stackgap_init();
	register_t	*retval = td->td_retval;

	CHECKALTEXIST(td, &sg, uap->path);

	uap->name = svr4_to_bsd_pathconf(uap->name);

	switch (uap->name) {
	case -1:
		*retval = -1;
		return EINVAL;
	case 0:
		*retval = 0;
		return 0;
	default:
		return pathconf(td, (struct pathconf_args *)uap);
	}
}


int
svr4_sys_fpathconf(td, uap)
	register struct thread *td;
	struct svr4_sys_fpathconf_args *uap;
{
        register_t	*retval = td->td_retval;

	uap->name = svr4_to_bsd_pathconf(uap->name);

	switch (uap->name) {
	case -1:
		*retval = -1;
		return EINVAL;
	case 0:
		*retval = 0;
		return 0;
	default:
		return fpathconf(td, (struct fpathconf_args *)uap);
	}
}