#ifndef	lint
static char sccsid[] = "@(#)unixtraps.c	4.3 84/05/05";
#endif

/* From Lou Salkind: compat/RCS/unixtraps.c,v 1.2 84/01/31 13:34:34 */

/*
 * Function to execute version 6 and version 7 UNIX system calls from
 * compatability mode on UNIX-32V.
 *	Art Wetzel	August 1979
 */

#include <stdio.h>
#include <signal.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/ioctl.h>
#include <sys/time.h>
#include <sys/dir.h>
#ifdef V6UNIX
#ifdef TRACE
#define	RTSNAME	"/../../../../usr/local/v6trc"
#else
#define	RTSNAME	"/../../../../usr/local/v6run"
#endif
#include "unix6sys.h"
#ifdef TRACE
#include "unix6sysn.h"
#endif
#endif
#ifdef V7UNIX
#ifdef TRACE
#define	RTSNAME	"/../../../../usr/local/v7trc"
#else
#define	RTSNAME	"/../../../../usr/local/v7run"
#endif
#include "unix7sys.h"
#ifdef TRACE
#include "unix7sysn.h"
#endif
#endif
#include "defs.h"
#define	CARRY	1
#define	MAXSARGS	100
#ifdef V6UNIX
#define	ARGVLEN	512
#define	ENVLEN	0
#endif
#ifdef V7UNIX
#define	ARGVLEN	5120
#define	ENVLEN	1000
#endif
char	argvs[ARGVLEN+ENVLEN];
int	args[MAXSARGS];

/* 32v type stat structure */
extern struct	stat	stat32v;

/* place for times data so we can reverse the longs */
struct timebuf {
	long	t1;
	long	t2;
	long	t3;
	long	t4;
} timebuf;

/* place for pipe file descriptors */
int	pipes[2];

/* wait status */
int	wstatus;

#ifdef	V6UNIX
/* version 6 style stat structure */
struct v6nod {
	dev_t	majmin;
	ino_t	inumber;
	unsigned short	flags;
	unsigned char	nlinks;
	unsigned char	uid;
	unsigned char	gid;
	unsigned char	size0;
	unsigned short	size1;
	unsigned short	addr[8];
	long	actime;
	long	modtime;
} *v6stat;
#endif

#ifdef	V7UNIX
/* version 7 style stat structure */
struct	v7stat {
	dev_t	v7st_dev;
	u_short	v7st_ino;
	u_short v7st_mode;
	short  	v7st_nlink;
	short  	v7st_uid;
	short  	v7st_gid;
	dev_t	v7st_rdev;
	int	v7st_size;
	int	v7st_atime;
	int	v7st_mtime;
	int	v7st_ctime;
} statv7;

struct timeb {
	time_t	time;
	u_short	millitm;
	short	timezone;
	short	dstflag;
} timeb;
#endif

#define	NFILES	20
#define	ODSIZE	16

off_t	olseek();

struct odirect {
	u_short	od_ino;
	char	od_name[14];
};

struct fdflags {
	DIR	*fd_dirp;
	struct odirect	fd_od;
	off_t	fd_offset;
} fdflags[NFILES];

/* do the trap stuff for the trap with code */
dotrap(code)
	int code;
{
	register unsigned short *argp, *savp, *savep;
	register int i, j, indirflg;
	register char *avp, *oavp;
	extern sigcatch();
	extern errno;
	extern int sigtrapped;
	DIR *dp;

	sigtrapped = 0;
	/* clear out condition codes of psl */
	psl &= ~017;
	/* special case of indirect sys call */
	if (code == 0) {
		/* remember this was indirect */
		indirflg = 1;
		/* point to args */
		argp = (unsigned short *)*(pc++);
		/* code for indirect sys call */
		code = *argp++;
		/* is it legit */
		if (code>>8 != TRAPS) {
			fprintf(stderr,"Bad indirect sys call at 0x%x\n",pc-2);
			pc++;
			/* set carry flag */
			psl |= CARRY;
			regs[0] = -1;
			return(-1);
		}
		code &= 0377;
	} else {
		/* remember this was not indirect */
		indirflg = 0;
		/* point to args */
		argp = pc;
	}
	/* check if code too high or bad sys code */
	if (code >= NSYSTRAPS || sysargs[code][0] == ILLSYS) {
		fprintf(stderr,"Unimplimented trap %d at 0x%x\n",code,argp);
		/* set carry bit */
		psl |= CARRY;
		regs[0] = -1;
		return(-1);
	}
	/* copy args to known locations */
	i=0;
	for (j=0; j<sysargs[code][0]; j++)
		args[i++] = regs[j];
	for (j=0; j<(sysargs[code][1]); j++)
		args[i++] = *argp++;
#ifdef TRACE
	fprintf(stderr,"pid %d ",getpid());
	if (indirflg)
		fprintf(stderr,"indirect ");
	fprintf(stderr, "%s (%d) from 0%o with %d args",
	    sysnames[code], code, pc-1, i);
	for (j=0; j<i; j++)
		fprintf(stderr," 0%o",args[j]);
	if (code==OPEN || code==STAT || code==CREAT || code==EXEC || 
	    code==UNLNK || code==LINK || code==CHDIR || code==MKNOD)
		fprintf(stderr," (%s)",args[0]);
#ifdef V7UNIX
	if (code==EXECE)
		fprintf(stderr," (%s)",args[0]);
#endif
	if (code==LINK)
		fprintf(stderr," (%s)",args[1]);
#endif
	/* go do whatever sys call it is */
	switch (code) {
	case FORK:
		/* indirect forks return pids on both sides - must do here */
		/* this is possibly a bug in 32V */
		i = fork();
		break;

	case WAIT:
		i = wait(&wstatus);
		args[0] = i;
		args[1] = wstatus;
		break;

	case EXEC:
#ifdef V7UNIX
	case EXECE:
#endif
		/*
		 *  have to do a lot of junk here to fix up an argv
		 *  for execute since (1) the pdp-11 argv consists of 16
		 *  bit pointers and (2) the argv itself is in the
		 *  pdp-11 program space where it would get clobbered
		 *  when a new program is read in and before its
		 *  argv is set up.
		 */
		avp = &argvs[0];
		savp = (unsigned short *)args[1];
#ifdef	V6UNIX
		for (i=1; args[i] = *savp++; i++)
			if (args[i] == 0177777)
				break;
#ifdef	TRACE
			else
				fprintf(stderr,"argv[%d]%s ",i-1,args[i]);
#endif
#endif
#ifdef	V7UNIX
		savep = (unsigned short *)args[2];
		for (i=1; args[i] = *savp++; i++)
#ifdef	TRACE
			fprintf(stderr,"argv[%d]%s ",i-1,args[i]);
#else
			;
#endif
#endif
		if (stat(args[0], &stat32v)) {
			/* return error here if file does not exist */
#ifdef	TRACE
			fprintf(stderr," does not exist\n");
#endif
			i = -1;
			break;
		}
		/* must have execute permission */
		if (stat32v.st_mode & (S_IEXEC>>6))
			goto experm;
		if (stat32v.st_mode & (S_IEXEC>>3)) {
			if (stat32v.st_gid == getegid())
				goto experm;
			if (geteuid() == 0)
				goto experm;
		}
		if (stat32v.st_mode & S_IEXEC) {
			if (stat32v.st_uid == geteuid())
				goto experm;
			if (geteuid() == 0)
				goto experm;
		}
		/* return failure if no exec permision allowed */
		i = -1;
experm:
		/* can't exec a directory */
		if ((stat32v.st_mode&S_IFMT) == S_IFDIR)
			i = -1;
		if (i == -1)
			break;
		args[i] = 0;
		for (j=1; j<i; j++) {
			oavp = (char *)args[j];
			args[j] = (int)avp;
			while (*avp++ = *oavp++)
				;
		}
#ifdef V7UNIX
		if (code == EXECE) {
			for (j = ++i; args[j] = *savep++; j++)
				;
			for (j = i; oavp = (char *)args[j]; j++) {
				args[j] = (int)avp;
				while (*avp++ = *oavp++)
					;
			}
		}
#endif
		/* SETUID and SETGID files must be started with a fresh RTS */
		if (stat32v.st_mode & S_ISGID || stat32v.st_mode & S_ISUID) {
			/* should add a check here for good magic # in header */
			args[1] = args[0];
			args[0] = (int)RTSNAME;
#ifdef TRACE
			fprintf(stderr," SETUID-GID");
#endif
			if (args[i])
				i = execve(args[0], &args[0], &args[i]);
			else
				i = execv(args[0], &args[0]);
			fprintf(stderr,"can't exec %s\n",RTSNAME);
			break;
		}
		i = execute(args[0], &args[1], &args[i]);
		/* shouldn't get here if exec works */
		break;

	case SEEK:
#ifdef	V6UNIX
		/* fix up negative offsets */
		if (args[2] != 0 && args[2] != 3)
			if (args[1] >= 32768)
				args[1] -= 65536;
		if (args[2] <= 2)
			i = olseek(args[0], args[1], args[2]);
		else
			i = olseek(args[0], args[1]*512, args[2]-3);
		if (i != -1)
			i = 0;
#endif
#ifdef	V7UNIX
		i = olseek(args[0], (args[1]<<16)|(args[2]&0177777), args[3]);
#endif
		break;

	case MKNOD:
		if ((args[1] & S_IFMT) == S_IFDIR)
			i = mkdir(args[0], args[1] & 0777);
		else {
#ifdef	V6UNIX
			/*
			 * version 6 uses allocated bit which
			 * means regular file here
			 */
			if (args[1] & S_IFBLK)
				args[1] &= ~S_IFREG;
#endif	
			i = mknod(args[0], args[1], args[2]);
		}
		break;

	case PIPE:
		i = pipe(pipes);
		args[0] = pipes[0];
		args[1] = pipes[1];
		break;

#ifdef	V6UNIX
	case TELL:
		i = lseek(args[0], 0L, 1);
		break;

	case STTY:
		i = stty(args[0], args[1]);
		break;

	case GTTY:
		i = gtty(args[0], args[1]);
		break;
#endif

	/* HAVE TO FAKE THE SIZE OF DIRECTORIES */

	case STAT:
		i = stat(args[0], &stat32v);
		goto allstat;

	case FSTAT:
		/* do the syscall to a local stat buffer */
		i = fstat(args[0], &stat32v);

	allstat:
		/* reverse the longs */
		stat32v.st_size = longrev(stat32v.st_size);
		stat32v.st_atime = longrev(stat32v.st_atime);
		stat32v.st_mtime = longrev(stat32v.st_mtime);
		stat32v.st_ctime = longrev(stat32v.st_ctime);
#ifdef V7UNIX
		statv7.v7st_dev = stat32v.st_dev;
		statv7.v7st_ino = stat32v.st_ino;
		statv7.v7st_mode = stat32v.st_mode;
		statv7.v7st_nlink = stat32v.st_nlink;
		statv7.v7st_uid = stat32v.st_uid;
		statv7.v7st_gid = stat32v.st_gid;
		statv7.v7st_rdev = stat32v.st_rdev;
		statv7.v7st_size = stat32v.st_size;
		statv7.v7st_atime = stat32v.st_atime;
		statv7.v7st_mtime = stat32v.st_mtime;
		statv7.v7st_ctime = stat32v.st_ctime;
		/* copy out otherwise unchanged stat buffer */
		/* in two pieces with st_size as the breaking point */
		/* note that st_rdev is a short but due to alingnmemt */
		/* problems the rest of the structure is out of sync */
		j = (int)((char *)(&statv7.v7st_size) -
		    (char *)(&statv7.v7st_dev));
		bcopy(&statv7, args[1], j);
		bcopy(&statv7.v7st_size, args[1]+j-2, sizeof(struct v7stat)-j);
#endif
#ifdef	V6UNIX
		/* point to user area as v6stat structure */
		v6stat = (struct v6nod *)args[1];
		/* copy out piece by piece */
		v6stat->majmin = stat32v.st_dev;
		v6stat->inumber = stat32v.st_ino;
		v6stat->flags = stat32v.st_mode;
		v6stat->nlinks = (unsigned char)stat32v.st_nlink;
		v6stat->uid = (unsigned char)stat32v.st_uid;
		v6stat->gid = (unsigned char)stat32v.st_gid;
		/* note size already reversed */
		v6stat->size0 = (unsigned char)(stat32v.st_size & 0377);
		v6stat->size1 = (unsigned short)(stat32v.st_size>>16);
		v6stat->actime = stat32v.st_atime;
		v6stat->modtime = stat32v.st_mtime;
		/* patch up flags */
		/* for now just set 100000 bit if not a plain file */
		if (v6stat->flags & 060000)
			v6stat->flags |= 0100000;
#endif
		break;

	case TIMES:
		i = times(&timebuf);
		timebuf.t2 = longrev(timebuf.t2) + timebuf.t1;
		timebuf.t3 = longrev(timebuf.t3);
		timebuf.t4 = longrev(timebuf.t4);
		bcopy(&timebuf.t2,args[0],sizeof(struct timebuf)-sizeof(long));
		break;

#ifdef	V6UNIX
	case SLEEP:
		/* do a sleep function - what about pwb which has alarm? */
		sleep(args[0]);
		break;
#endif

	case GETUID:
		args[0] = getuid();
		args[1] = geteuid();
#ifdef V6UNIX
		i = args[1]<<8 | (args[0] & 0377);
#endif
		break;

	case GETGID:
		args[0] = getgid();
		args[1] = getegid();
#ifdef V6UNIX
		i = args[1]<<8 | (args[0] & 0377);
#endif
		break;

		/* uids and gids are 8 bits in version 6 */
	case SETUID:
	case SETGID:
#ifdef V6UNIX
		args[0] &= 0377;
#endif
		if (code == SETUID)
			i = setuid(args[0]);
		else
			i = setgid(args[0]);
		break;

	case SIG:
		/* if it is a good signal code */
		if (args[0] <= NSIG) {
			/* get the current signal value */
			i = sigvals[args[0]];
			/* reset the signal to the new value */
			sigvals[args[0]] = args[1];
			/* actually do signal except don't reset SIGILL */
			if (args[0] != SIGILL) {
				if (args[1] == (int)SIG_DFL ||
				    args[1] & (int)SIG_IGN) {
					if ((int)signal(args[0],args[1]) == -1)
						i = -1;
				} else {
					if ((int)signal(args[0],sigcatch) == -1)
						i = -1;
				}
			}
		} else
			i = -1;
		break;

	case BRK:
		/* brk is successful unless we run over the stack */
		/* NB: this assumes register usage which need not be used */
		i = 0;
		if (args[0] >= regs[6])
			i = -1;
		break;

	/*
	 * the next bunch are to cope with sys calls removed from 4.2
	 */
	case TIME:
		i = time(0);
		break;

	case STIME: {
		struct timeval tv;

		tv.tv_usec = 0;
		tv.tv_sec = (args[0] & 0xffff) | ((args[1] & 0xffff) << 16);
		i = settimeofday(&tv);
		break;
	}

	case NICE:
		i = nice(args[0]);
		break;

#ifdef V7UNIX
	case ALARM:
		i = alarm(args[0]);
		break;

	case PAUSE:
		i = pause();
		break;

	case UTIME:
		i = utime(args[0], args[1]);
		break;

	case FTIME:
		i = ftime(&timeb);
		timeb.time = longrev(timeb.time);
		bcopy(&timeb, args[0], sizeof timeb - 2);
		break;

	case IOCTL:
		args[1] = mapioctl(args[1]);
		if (args[1] == 0)
			i = -1;
		else
			i = ioctl(args[0], args[1], args[2]);
		break;
#endif

#ifdef	V6UNIX
	case PWBSYS:
		/* ignore pwbsys for now */
		switch (args[2]) {
		case UNAME:
#ifdef	TRACE
			fprintf(stderr,"UNAME with %d %d\n",args[0],args[1]);
#endif
			strcpy(args[0],"pwbname");
			i = 0;
			break;

		case UDATA:
#ifdef	TRACE
			fprintf(stderr,"UDATA with %d %d\n",args[0],args[1]);
#endif
			i = 0;
			break;

		case USTAT:
fprintf(stderr,"USTAT with %d %d\n",args[0],args[1]);
			i = 0;
			break;

		case UTIME:
fprintf(stderr,"UTIME with %d %d\n",args[0],args[1]);
			i = 0;
			break;
		default:
fprintf(stderr,"bad PWBSYS %d\n",args[3]);
			i = -1;
			break;
		}
		break;
#endif

	default:
		/*
		 *	Many sys calls are easily done here since most
		 *	system call codes are the same on version 6 and 7 UNIX
		 *	as they are here.
		 */
		i = syscall(code,args[0],args[1],args[2],args[3],args[4]);
#ifdef V6UNIX
		/* allow read write access to created files for (IDIS v6 mod) */
		if (code==CREAT) {
			/* get actual file mode after create */
			fstat(i, &stat32v);
			close(i);
			/* ensure read/write access to owner */
			chmod(args[0], 0644);
			i = open(args[0], 2);
			/* change mode back the way it was */
			chmod(args[0], stat32v.st_mode);
		}
#endif
		break;
	case OPEN:
		/*
		 * check if we are opening a directory
		 */
		if (stat(args[0], &stat32v) >= 0  &&
		    ((stat32v.st_mode & S_IFMT) == S_IFDIR) &&
		    ((dp = opendir(args[0])) != NULL)) {
#ifdef DTRACE
			fprintf(stderr,"open directory fd %d\n", i);
#endif
			i = dp->dd_fd;
			fdflags[i].fd_dirp = dp;
			fdflags[i].fd_offset = 0;
		} else
			i = open(args[0], args[1]);
		break;
	case CLOSE:
		i = close(args[0]);
		if (i >= 0 && fdflags[args[0]].fd_dirp) {
			closedir(fdflags[args[0]].fd_dirp);
			fdflags[args[0]].fd_dirp = 0;
		}
		break;
	case READ:
		if ((unsigned)args[0] < NFILES && fdflags[args[0]].fd_dirp)
			i = oread(args[0], args[1], args[2]);
		else
			i = read(args[0], args[1], args[2]);
		break;
	}
#ifdef TRACE
	fprintf(stderr," sys val -> 0%o\n",i);
#endif
	/* set carry bit if sys error */
	if (i == -1)
		psl |= CARRY;
	/* if not an indirect sys call, adjust the pc */
	if (!indirflg && !sigtrapped)
		pc = argp;
	/* do alternate return on one side of fork */
	if (code == FORK && i != 0)
		pc++;
	/* do the various return value formats */
	switch (sysargs[code][2]) {
	case NORMRET:
		/* normal case only one return value in r0 */
		regs[0] = i;
		break;
	case LONGRET:
		/* return a long in r0 - r1 as in time */
		regs[1] = i;
		regs[0] = i >> 16;
		break;
	case TWORET:
		/* return two ints in r0 - r1 as in pipe */
		if (i == -1)
			regs[0] = i;
		else {
			regs[1] = args[1];
			regs[0] = args[0];
		}
		break;
	}
	if (i== -1)
		regs[0] = errno;
}

long
longrev(l)
	long l;
{
	/* function to reverse the halves of a long */
	union {
		long	lng;
		short	s[2];
	} u;
	register short t;
	u.lng = l;
	t = u.s[0];
	u.s[0] = u.s[1];
	u.s[1] = t;
	return(u.lng);
}

/*
 * Note: these tables are sorted by
 * ioctl "code" (in ascending order).
 */
int fctls[] = { FIOCLEX, FIONCLEX, FIOASYNC, FIONBIO, FIONREAD, 0 };
int tctls[] = {
	TIOCGETD, TIOCSETD, TIOCHPCL, TIOCMODG, TIOCMODS,
	TIOCGETP, TIOCSETP, TIOCSETN, TIOCEXCL, TIOCNXCL,
	TIOCFLUSH,TIOCSETC, TIOCGETC, TIOCREMOTE,TIOCMGET,
	TIOCMBIC, TIOCMBIS, TIOCMSET, TIOCSTART,TIOCSTOP,
	TIOCPKT,  TIOCNOTTY,TIOCSTI,  TIOCOUTQ, TIOCGLTC,
	TIOCSLTC, TIOCSPGRP,TIOCGPGRP,TIOCCDTR, TIOCSDTR,
	TIOCCBRK, TIOCSBRK, TIOCLGET, TIOCLSET, TIOCLBIC,
	TIOCLBIS, 0
};

/*
 * Map an old style ioctl command to new.
 */
mapioctl(cmd)
	int cmd;
{
	register int *map, c;

	switch ((cmd >> 8) & 0xff) {

	case 'f':
		map = fctls;
		break;

	case 't':
		map = tctls;
		break;

	default:
		return (0);
	}
	while ((c = *map) && (c&0xff) < (cmd&0xff))
		map++;
	if (c && (c&0xff) == (cmd&0xff))
		return (c);
	return (0);
}

/*
 * emulate a read of n bytes on an old style directory
 */
oread(fd, buf, count)
int fd, count;
char *buf;
{
	struct fdflags *fp;
	struct direct *dp;
	DIR *dirp;
	struct odirect *odp;
	register int nleft = count;
	int dir_off;
	int i;

	fp = &fdflags[fd];
	dirp = fp->fd_dirp;
	odp = &fp->fd_od;
	if (dirp == NULL)
		return(-1);
	dir_off = fp->fd_offset % ODSIZE;
	if (dir_off) {
		i = ODSIZE - dir_off;
		if (nleft < i)
			i = nleft;
		bcopy((caddr_t)odp + dir_off, buf, i);
		fp->fd_offset += i;
		if (i == nleft)
			return(i);
		buf += i;
		nleft -= i;
	}
	while (nleft >= ODSIZE) {
		if ((dp = readdir(dirp)) == NULL)
			return(count - nleft);
		odp->od_ino = dp->d_ino;
		strncpy(odp->od_name, dp->d_name, 14);
		bcopy((caddr_t)odp, buf, ODSIZE);
		fp->fd_offset += ODSIZE;
		buf += ODSIZE;
		nleft -= ODSIZE;
	}
	if (nleft > 0) {
		if ((dp = readdir(dirp)) == NULL)
			return(count - nleft);
		odp->od_ino = dp->d_ino;
		strncpy(odp->od_name, dp->d_name, 14);
		bcopy((caddr_t)odp, buf, nleft);
		fp->fd_offset += nleft;
		/* nleft = 0; */
	}
	return(count);
}

/*
 * emulate the lseek system call
 */
off_t
olseek(fd, n, whence)
int fd, whence;
off_t n;
{
	struct fdflags *fp;
	char buf[512];
	off_t newpos;
	int i, j;

	if ((unsigned)fd >= NFILES)
		return(-1);
	fp = &fdflags[fd];
	/*
	 * the system can handle everything
	 * except directory files
	 */
	if (fp->fd_dirp == NULL)
		return(lseek(fd, n, whence));
	switch (whence) {
	case 0:
		newpos = n;
		break;
	case 1:
		newpos = fp->fd_offset + n;
		break;
	case 2:		/* not yet implemented */
	default:
		return(-1);
	}
	if (newpos < 0)
		return(-1);
	if (newpos < fp->fd_offset) {
		rewinddir(fdflags[fd].fd_dirp);
		fp->fd_offset = 0;
	}
	i = newpos - fp->fd_offset;
	while (i > 0) {
		j = i < 512 ? i : 512;
		if (oread(fd, buf, j) != j)
			break;
		i -= j;
	}
	return(fp->fd_offset);
}