Emulator KLD for SysVR4 executables grabbed from NetBSD.

See http://www.freebsd.org/~newton/freebsd-svr4 for limitations,
capabilities, history and TO-DO list.

1 files changed, 245 insertions, 0 deletions

diff --git a/sys/compat/svr4/svr4_filio.c b/sys/compat/svr4/svr4_filio.c
new file mode 100644
index 000000000000..c82b09bace1e
--- /dev/null
+++ b/sys/compat/svr4/svr4_filio.c
@@ -0,0 +1,245 @@
+/*
+ * 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.
+ */
+
+#include <sys/param.h>
+#include <sys/proc.h>
+#include <sys/systm.h>
+#include <sys/file.h>
+#include <sys/filio.h>
+#include <sys/fcntl.h>
+#include <sys/signal.h>
+#include <sys/unistd.h>
+#include <sys/filedesc.h>
+#include <sys/termios.h>
+#include <sys/tty.h>
+#include <sys/poll.h>
+#include <sys/socket.h>
+#include <sys/socketvar.h>
+#include <sys/mount.h>
+#include <net/if.h>
+#include <sys/malloc.h>
+
+#include <sys/sysproto.h>
+
+#include <svr4/svr4.h>
+#include <svr4/svr4_types.h>
+#include <svr4/svr4_util.h>
+#include <svr4/svr4_signal.h>
+#include <svr4/svr4_proto.h>
+#include <svr4/svr4_ioctl.h>
+#include <svr4/svr4_filio.h>
+
+/*#define GROTTY_READ_HACK*/
+
+int
+svr4_sys_poll(p, uap)
+     struct proc *p;
+     struct svr4_sys_poll_args *uap;
+{
+     int error;
+     struct poll_args pa;
+     struct pollfd *pfd;
+     int idx = 0, cerr;
+     u_long siz;
+
+     SCARG(&pa, fds) = SCARG(uap, fds);
+     SCARG(&pa, nfds) = SCARG(uap, nfds);
+     SCARG(&pa, timeout) = SCARG(uap, timeout);
+
+     siz = SCARG(uap, nfds) * sizeof(struct pollfd);
+     pfd = (struct pollfd *)malloc(siz, M_TEMP, M_WAITOK);
+
+     error = poll(p, (struct poll_args *)uap);
+
+     if ((cerr = copyin(SCARG(uap, fds), pfd, siz)) != 0) {
+       error = cerr;
+       goto done;
+     }
+
+     for (idx = 0; idx < SCARG(uap, nfds); idx++) {
+       /* POLLWRNORM already equals POLLOUT, so we don't worry about that */
+       if (pfd[idx].revents & (POLLIN | POLLRDNORM | POLLRDBAND | POLLPRI)) 
+	    pfd[idx].revents |= (POLLIN | POLLRDBAND | POLLRDNORM | POLLPRI);
+       if (pfd[idx].revents & (POLLOUT | POLLWRNORM | POLLWRBAND))
+	    pfd[idx].revents |= (POLLOUT | POLLWRNORM | POLLWRBAND);
+       pfd[idx].revents &= POLLSTANDARD; /* don't want to surprise SysV */
+
+       DPRINTF(("pollfd[%d]->fd = %d\n", idx, pfd[idx].fd));
+       DPRINTF(("pollfd[%d]->events = %x\n", idx, pfd[idx].events));
+       DPRINTF(("pollfd[%d]->revents = %x\n", idx, pfd[idx].revents));
+     }
+     DPRINTF(("poll(%x, %x, %d) = %d\n", SCARG(uap, fds), SCARG(uap, nfds),
+	      SCARG(uap, timeout), p->p_retval[0]));
+     if ((cerr = copyout(pfd, SCARG(uap, fds), siz)) != 0) {
+       error = cerr;
+       goto done;   /* yeah, I know it's the next line, but this way I won't
+		       forget to update it if I add more code */
+     }
+done:
+     free(pfd, M_TEMP);
+     return error;
+}
+
+#if defined(READ_TEST)
+int
+svr4_sys_read(p, uap)
+     struct proc *p;
+     struct svr4_sys_read_args *uap;
+{
+     struct read_args ra;
+     struct filedesc *fdp = p->p_fd;
+     struct file *fp;
+     struct socket *so = NULL;
+     int so_state;
+     sigset_t sigmask;
+     int rv;
+
+     SCARG(&ra, fd) = SCARG(uap, fd);
+     SCARG(&ra, buf) = SCARG(uap, buf);
+     SCARG(&ra, nbyte) = SCARG(uap, nbyte);
+
+     if ((fp = fdp->fd_ofiles[SCARG(uap, fd)]) == NULL) {
+       DPRINTF(("Something fishy with the user-supplied file descriptor...\n"));
+       return EBADF;
+     }
+
+     if (fp->f_type == DTYPE_SOCKET) {
+       so = (struct socket *)fp->f_data;
+       DPRINTF(("fd %d is a socket\n", SCARG(uap, fd)));
+       if (so->so_state & SS_ASYNC) {
+	 DPRINTF(("fd %d is an ASYNC socket!\n", SCARG(uap, fd)));
+       }
+       DPRINTF(("Here are its flags: 0x%x\n", so->so_state));
+#if defined(GROTTY_READ_HACK)
+       so_state = so->so_state;
+       so->so_state &= ~SS_NBIO;
+#endif
+     }
+
+     rv = read(p, &ra);
+
+     DPRINTF(("svr4_read(%d, 0x%0x, %d) = %d\n", 
+	     SCARG(uap, fd), SCARG(uap, buf), SCARG(uap, nbyte), rv));
+     if (rv == EAGAIN) {
+       DPRINTF(("sigmask = 0x%x\n", p->p_sigmask));
+       DPRINTF(("sigignore = 0x%x\n", p->p_sigignore));
+       DPRINTF(("sigcaught = 0x%x\n", p->p_sigcatch));
+       DPRINTF(("siglist = 0x%x\n", p->p_siglist));
+     }
+
+#if defined(GROTTY_READ_HACK)
+     if (so) {  /* We've already checked to see if this is a socket */
+       so->so_state = so_state;
+     }
+#endif
+
+     return(rv);
+}
+#endif /* READ_TEST */
+
+#if defined(BOGUS)
+int
+svr4_sys_write(p, uap)
+     struct proc *p;
+     struct svr4_sys_write_args *uap;
+{
+     struct write_args wa;
+     struct filedesc *fdp;
+     struct file *fp;
+     int rv;
+
+     SCARG(&wa, fd) = SCARG(uap, fd);
+     SCARG(&wa, buf) = SCARG(uap, buf);
+     SCARG(&wa, nbyte) = SCARG(uap, nbyte);
+
+     rv = write(p, &wa);
+
+     DPRINTF(("svr4_write(%d, 0x%0x, %d) = %d\n", 
+	     SCARG(uap, fd), SCARG(uap, buf), SCARG(uap, nbyte), rv));
+
+     return(rv);
+}
+#endif /* BOGUS */
+
+int
+svr4_fil_ioctl(fp, p, retval, fd, cmd, data)
+	struct file *fp;
+	struct proc *p;
+	register_t *retval;
+	int fd;
+	u_long cmd;
+	caddr_t data;
+{
+	int error;
+	int num;
+	struct filedesc *fdp = p->p_fd;
+	int (*ctl) __P((struct file *, u_long,  caddr_t, struct proc *)) =
+			fp->f_ops->fo_ioctl;
+
+	*retval = 0;
+
+	switch (cmd) {
+	case SVR4_FIOCLEX:
+		fdp->fd_ofileflags[fd] |= UF_EXCLOSE;
+		return 0;
+
+	case SVR4_FIONCLEX:
+		fdp->fd_ofileflags[fd] &= ~UF_EXCLOSE;
+		return 0;
+
+	case SVR4_FIOGETOWN:
+	case SVR4_FIOSETOWN:
+	case SVR4_FIOASYNC:
+	case SVR4_FIONBIO:
+	case SVR4_FIONREAD:
+		if ((error = copyin(data, &num, sizeof(num))) != 0)
+			return error;
+
+		switch (cmd) {
+		case SVR4_FIOGETOWN:	cmd = FIOGETOWN; break;
+		case SVR4_FIOSETOWN:	cmd = FIOSETOWN; break;
+		case SVR4_FIOASYNC:	cmd = FIOASYNC;  break;
+		case SVR4_FIONBIO:	cmd = FIONBIO;   break;
+		case SVR4_FIONREAD:	cmd = FIONREAD;  break;
+		}
+
+#ifdef SVR4_DEBUG
+		if (cmd == FIOASYNC) DPRINTF(("FIOASYNC\n"));
+#endif
+		error = (*ctl)(fp, cmd, (caddr_t) &num, p);
+
+		if (error)
+			return error;
+
+		return copyout(&num, data, sizeof(num));
+
+	default:
+		DPRINTF(("Unknown svr4 filio %lx\n", cmd));
+		return 0;	/* ENOSYS really */
+	}
+}