NetBSD/sys/compat/hpux/hpux_compat.c

2163 lines
48 KiB
C

/* $NetBSD: hpux_compat.c,v 1.14 1994/10/30 21:44:51 cgd Exp $ */
/*
* Copyright (c) 1988 University of Utah.
* Copyright (c) 1990, 1993
* The Regents of the University of California. All rights reserved.
*
* This code is derived from software contributed to Berkeley by
* the Systems Programming Group of the University of Utah Computer
* Science Department.
*
* 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. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``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 REGENTS OR CONTRIBUTORS 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.
*
* from: Utah $Hdr: hpux_compat.c 1.64 93/08/05$
*
* @(#)hpux_compat.c 8.4 (Berkeley) 2/13/94
*/
/*
* Various HP-UX compatibility routines
*/
#ifndef COMPAT_43
#define COMPAT_43
#endif
#include <sys/param.h>
#include <sys/systm.h>
#include <sys/signalvar.h>
#include <sys/kernel.h>
#include <sys/filedesc.h>
#include <sys/proc.h>
#include <sys/buf.h>
#include <sys/wait.h>
#include <sys/file.h>
#include <sys/namei.h>
#include <sys/vnode.h>
#include <sys/ioctl.h>
#include <sys/ptrace.h>
#include <sys/stat.h>
#include <sys/syslog.h>
#include <sys/malloc.h>
#include <sys/mount.h>
#include <sys/ipc.h>
#include <sys/user.h>
#include <sys/mman.h>
#include <machine/cpu.h>
#include <machine/reg.h>
#include <machine/psl.h>
#include <machine/vmparam.h>
#include <hp300/hpux/hpux.h>
#include <hp300/hpux/hpux_termio.h>
#ifdef DEBUG
int unimpresponse = 0;
#endif
/* SYS5 style UTSNAME info */
struct hpux_utsname proto_utsname = {
"NetBSD", "", "0.9", "B", "9000/3?0", ""
};
/* 6.0 and later style context */
#if defined(HP380)
char hpux_040context[] =
"standalone HP-MC68040 HP-MC68881 HP-MC68020 HP-MC68010 localroot default";
#endif
#ifdef FPCOPROC
char hpux_context[] =
"standalone HP-MC68881 HP-MC68020 HP-MC68010 localroot default";
#else
char hpux_context[] =
"standalone HP-MC68020 HP-MC68010 localroot default";
#endif
#define NERR 83
#define BERR 1000
/* indexed by BSD errno */
short bsdtohpuxerrnomap[NERR] = {
/*00*/ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,
/*10*/ 10, 45, 12, 13, 14, 15, 16, 17, 18, 19,
/*20*/ 20, 21, 22, 23, 24, 25, 26, 27, 28, 29,
/*30*/ 30, 31, 32, 33, 34, 246, 245, 244, 216, 217,
/*40*/ 218, 219, 220, 221, 222, 223, 224, 225, 226, 227,
/*50*/ 228, 229, 230, 231, 232, 233, 234, 235, 236, 237,
/*60*/ 238, 239, 249, 248, 241, 242, 247,BERR,BERR,BERR,
/*70*/ 70, 71,BERR,BERR,BERR,BERR,BERR, 46, 251,BERR,
/*80*/ BERR,BERR, 11
};
notimp(p, uap, retval, code, nargs, argsize)
struct proc *p;
void *uap;
register_t *retval;
int code, nargs, argsize;
{
int error = 0;
#ifdef DEBUG
register register_t *argp = uap;
extern char *hpux_syscallnames[];
printf("HP-UX %s(", hpux_syscallnames[code]);
if (argsize)
while (argsize) {
argsize -= sizeof *uap;
printf("%x%c", *argp++, argsize ? ',' : ')');
}
else
printf(")");
printf("\n");
switch (unimpresponse) {
case 0:
error = nosys(p, uap, retval);
break;
case 1:
error = EINVAL;
break;
}
#else
error = nosys(p, uap, retval);
#endif
uprintf("HP-UX system call %d not implemented\n", code);
return (error);
}
/*
* HP-UX fork and vfork need to map the EAGAIN return value appropriately.
*/
hpux_fork(p, uap, retval)
struct proc *p;
struct hpux_wait3_args *uap;
register_t *retval;
{
int error;
error = fork(p, uap, retval);
if (error == EAGAIN)
error = OEAGAIN;
return (error);
}
hpux_vfork(p, uap, retval)
struct proc *p;
struct hpux_wait3_args *uap;
register_t *retval;
{
int error;
error = vfork(p, uap, retval);
if (error == EAGAIN)
error = OEAGAIN;
return (error);
}
struct hpux_execv_args {
char *fname;
char **argp;
char **envp;
};
hpux_execv(p, uap, retval)
struct proc *p;
struct hpux_execv_args *uap;
register_t *retval;
{
extern int execve();
SCARG(uap, envp) = NULL;
return (execve(p, uap, retval));
}
/*
* HP-UX versions of wait and wait3 actually pass the parameters
* (status pointer, options, rusage) into the kernel rather than
* handling it in the C library stub. We also need to map any
* termination signal from BSD to HP-UX.
*/
struct hpux_wait3_args {
int *status;
int options;
int rusage;
};
hpux_wait3(p, uap, retval)
struct proc *p;
struct hpux_wait3_args *uap;
register_t *retval;
{
/* rusage pointer must be zero */
if (SCARG(uap, rusage))
return (EINVAL);
p->p_md.md_regs[PS] = PSL_ALLCC;
p->p_md.md_regs[R0] = SCARG(uap, options);
p->p_md.md_regs[R1] = SCARG(uap, rusage);
return (hpux_wait(p, uap, retval));
}
struct hpux_wait_args {
int *status;
};
hpux_wait(p, uap, retval)
struct proc *p;
struct hpux_wait_args *uap;
register_t *retval;
{
int sig, *statp, error;
statp = SCARG(uap, status); /* owait clobbers first arg */
error = owait(p, uap, retval);
/*
* HP-UX wait always returns EINTR when interrupted by a signal
* (well, unless its emulating a BSD process, but we don't bother...)
*/
if (error == ERESTART)
error = EINTR;
if (error)
return (error);
sig = retval[1] & 0xFF;
if (sig == WSTOPPED) {
sig = (retval[1] >> 8) & 0xFF;
retval[1] = (bsdtohpuxsig(sig) << 8) | WSTOPPED;
} else if (sig)
retval[1] = (retval[1] & 0xFF00) |
bsdtohpuxsig(sig & 0x7F) | (sig & 0x80);
if (statp)
if (suword((caddr_t)statp, retval[1]))
error = EFAULT;
return (error);
}
struct hpux_waitpid_args {
int pid;
int *status;
int options;
struct rusage *rusage; /* wait4 arg */
};
hpux_waitpid(p, uap, retval)
struct proc *p;
struct hpux_waitpid_args *uap;
register_t *retval;
{
int rv, sig, xstat, error;
SCARG(uap, rusage) = 0;
error = wait4(p, uap, retval);
/*
* HP-UX wait always returns EINTR when interrupted by a signal
* (well, unless its emulating a BSD process, but we don't bother...)
*/
if (error == ERESTART)
error = EINTR;
if (error)
return (error);
if (SCARG(uap, status)) {
/*
* Wait4 already wrote the status out to user space,
* pull it back, change the signal portion, and write
* it back out.
*/
rv = fuword((caddr_t)SCARG(uap, status));
if (WIFSTOPPED(rv)) {
sig = WSTOPSIG(rv);
rv = W_STOPCODE(bsdtohpuxsig(sig));
} else if (WIFSIGNALED(rv)) {
sig = WTERMSIG(rv);
xstat = WEXITSTATUS(rv);
rv = W_EXITCODE(xstat, bsdtohpuxsig(sig)) |
WCOREDUMP(rv);
}
(void)suword((caddr_t)SCARG(uap, status), rv);
}
return (error);
}
/*
* Old creat system call.
*/
struct hpux_creat_args {
char *fname;
int fmode;
};
hpux_creat(p, uap, retval)
struct proc *p;
register struct hpux_creat_args *uap;
register_t *retval;
{
struct nargs {
char *fname;
int mode;
int crtmode;
} openuap;
openuap.fname = SCARG(uap, fname);
openuap.crtmode = SCARG(uap, fmode);
openuap.mode = O_WRONLY | O_CREAT | O_TRUNC;
return (open(p, &openuap, retval));
}
/*
* XXX extensions to the fd_ofileflags flags.
* Hate to put this there, but they do need to be per-file.
*/
#define UF_NONBLOCK_ON 0x10
#define UF_FNDELAY_ON 0x20
#define UF_FIONBIO_ON 0x40
/*
* Must remap some bits in the mode mask.
* O_CREAT, O_TRUNC, and O_EXCL must be remapped,
* O_NONBLOCK is remapped and remembered,
* O_FNDELAY is remembered,
* O_SYNCIO is removed entirely.
*/
struct hpux_open_args {
char *fname;
int mode;
int crtmode;
};
hpux_open(p, uap, retval)
struct proc *p;
register struct hpux_open_args *uap;
register_t *retval;
{
int mode, error;
mode = SCARG(uap, mode);
SCARG(uap, mode) &=
~(HPUXNONBLOCK|HPUXFSYNCIO|HPUXFEXCL|HPUXFTRUNC|HPUXFCREAT);
if (mode & HPUXFCREAT) {
/*
* simulate the pre-NFS behavior that opening a
* file for READ+CREATE ignores the CREATE (unless
* EXCL is set in which case we will return the
* proper error).
*/
if ((mode & HPUXFEXCL) || (FFLAGS(mode) & FWRITE))
SCARG(uap, mode) |= O_CREAT;
}
if (mode & HPUXFTRUNC)
SCARG(uap, mode) |= O_TRUNC;
if (mode & HPUXFEXCL)
SCARG(uap, mode) |= O_EXCL;
if (mode & HPUXNONBLOCK)
SCARG(uap, mode) |= O_NDELAY;
error = open(p, uap, retval);
/*
* Record non-blocking mode for fcntl, read, write, etc.
*/
if (error == 0 && (SCARG(uap, mode) & O_NDELAY))
p->p_fd->fd_ofileflags[*retval] |=
(mode & HPUXNONBLOCK) ? UF_NONBLOCK_ON : UF_FNDELAY_ON;
return (error);
}
struct hpux_fcntl_args {
int fdes;
int cmd;
int arg;
};
hpux_fcntl(p, uap, retval)
struct proc *p;
register struct hpux_fcntl_args *uap;
register_t *retval;
{
int mode, error, flg = F_POSIX;
struct file *fp;
char *pop;
struct hpux_flock hfl;
struct flock fl;
struct vnode *vp;
if ((unsigned)SCARG(uap, fdes) >= p->p_fd->fd_nfiles ||
(fp = p->p_fd->fd_ofiles[SCARG(uap, fdes)]) == NULL)
return (EBADF);
pop = &p->p_fd->fd_ofileflags[SCARG(uap, fdes)];
switch (SCARG(uap, cmd)) {
case F_SETFL:
if (SCARG(uap, arg) & HPUXNONBLOCK)
*pop |= UF_NONBLOCK_ON;
else
*pop &= ~UF_NONBLOCK_ON;
if (SCARG(uap, arg) & HPUXNDELAY)
*pop |= UF_FNDELAY_ON;
else
*pop &= ~UF_FNDELAY_ON;
if (*pop & (UF_NONBLOCK_ON|UF_FNDELAY_ON|UF_FIONBIO_ON))
SCARG(uap, arg) |= FNONBLOCK;
else
SCARG(uap, arg) &= ~FNONBLOCK;
SCARG(uap, arg) &= ~(HPUXNONBLOCK|HPUXFSYNCIO|HPUXFREMOTE);
break;
case F_GETFL:
case F_DUPFD:
case F_GETFD:
case F_SETFD:
break;
case HPUXF_SETLKW:
flg |= F_WAIT;
/* Fall into F_SETLK */
case HPUXF_SETLK:
if (fp->f_type != DTYPE_VNODE)
return (EBADF);
vp = (struct vnode *)fp->f_data;
/* Copy in the lock structure */
error = copyin((caddr_t)SCARG(uap, arg), (caddr_t)&hfl,
sizeof (hfl));
if (error)
return (error);
fl.l_start = hfl.hl_start;
fl.l_len = hfl.hl_len;
fl.l_pid = hfl.hl_pid;
fl.l_type = hfl.hl_type;
fl.l_whence = hfl.hl_whence;
if (fl.l_whence == SEEK_CUR)
fl.l_start += fp->f_offset;
switch (fl.l_type) {
case F_RDLCK:
if ((fp->f_flag & FREAD) == 0)
return (EBADF);
p->p_flag |= P_ADVLOCK;
return (VOP_ADVLOCK(vp, (caddr_t)p, F_SETLK, &fl, flg));
case F_WRLCK:
if ((fp->f_flag & FWRITE) == 0)
return (EBADF);
p->p_flag |= P_ADVLOCK;
return (VOP_ADVLOCK(vp, (caddr_t)p, F_SETLK, &fl, flg));
case F_UNLCK:
return (VOP_ADVLOCK(vp, (caddr_t)p, F_UNLCK, &fl,
F_POSIX));
default:
return (EINVAL);
}
case F_GETLK:
if (fp->f_type != DTYPE_VNODE)
return (EBADF);
vp = (struct vnode *)fp->f_data;
/* Copy in the lock structure */
error = copyin((caddr_t)SCARG(uap, arg), (caddr_t)&hfl,
sizeof (hfl));
if (error)
return (error);
fl.l_start = hfl.hl_start;
fl.l_len = hfl.hl_len;
fl.l_pid = hfl.hl_pid;
fl.l_type = hfl.hl_type;
fl.l_whence = hfl.hl_whence;
if (fl.l_whence == SEEK_CUR)
fl.l_start += fp->f_offset;
if (error = VOP_ADVLOCK(vp, (caddr_t)p, F_GETLK, &fl, F_POSIX))
return (error);
hfl.hl_start = fl.l_start;
hfl.hl_len = fl.l_len;
hfl.hl_pid = fl.l_pid;
hfl.hl_type = fl.l_type;
hfl.hl_whence = fl.l_whence;
return (copyout((caddr_t)&hfl, (caddr_t)SCARG(uap, arg),
sizeof (hfl)));
default:
return (EINVAL);
}
error = fcntl(p, uap, retval);
if (error == 0 && SCARG(uap, cmd) == F_GETFL) {
mode = *retval;
*retval &= ~(O_CREAT|O_TRUNC|O_EXCL);
if (mode & FNONBLOCK) {
if (*pop & UF_NONBLOCK_ON)
*retval |= HPUXNONBLOCK;
if ((*pop & UF_FNDELAY_ON) == 0)
*retval &= ~HPUXNDELAY;
}
if (mode & O_CREAT)
*retval |= HPUXFCREAT;
if (mode & O_TRUNC)
*retval |= HPUXFTRUNC;
if (mode & O_EXCL)
*retval |= HPUXFEXCL;
}
return (error);
}
/*
* Read and write calls. Same as BSD except for non-blocking behavior.
* There are three types of non-blocking reads/writes in HP-UX checked
* in the following order:
*
* O_NONBLOCK: return -1 and errno == EAGAIN
* O_NDELAY: return 0
* FIOSNBIO: return -1 and errno == EWOULDBLOCK
*/
struct hpux_rw_args {
int fd;
};
hpux_read(p, uap, retval)
struct proc *p;
struct hpux_rw_args *uap;
register_t *retval;
{
int error;
error = read(p, uap, retval);
if (error == EWOULDBLOCK) {
char *fp = &p->p_fd->fd_ofileflags[SCARG(uap, fd)];
if (*fp & UF_NONBLOCK_ON) {
*retval = -1;
error = OEAGAIN;
} else if (*fp & UF_FNDELAY_ON) {
*retval = 0;
error = 0;
}
}
return (error);
}
hpux_write(p, uap, retval)
struct proc *p;
struct hpux_rw_args *uap;
register_t *retval;
{
int error;
error = write(p, uap, retval);
if (error == EWOULDBLOCK) {
char *fp = &p->p_fd->fd_ofileflags[SCARG(uap, fd)];
if (*fp & UF_NONBLOCK_ON) {
*retval = -1;
error = OEAGAIN;
} else if (*fp & UF_FNDELAY_ON) {
*retval = 0;
error = 0;
}
}
return (error);
}
hpux_readv(p, uap, retval)
struct proc *p;
struct hpux_rw_args *uap;
register_t *retval;
{
int error;
error = readv(p, uap, retval);
if (error == EWOULDBLOCK) {
char *fp = &p->p_fd->fd_ofileflags[SCARG(uap, fd)];
if (*fp & UF_NONBLOCK_ON) {
*retval = -1;
error = OEAGAIN;
} else if (*fp & UF_FNDELAY_ON) {
*retval = 0;
error = 0;
}
}
return (error);
}
hpux_writev(p, uap, retval)
struct proc *p;
struct hpux_rw_args *uap;
register_t *retval;
{
int error;
error = writev(p, uap, retval);
if (error == EWOULDBLOCK) {
char *fp = &p->p_fd->fd_ofileflags[SCARG(uap, fd)];
if (*fp & UF_NONBLOCK_ON) {
*retval = -1;
error = OEAGAIN;
} else if (*fp & UF_FNDELAY_ON) {
*retval = 0;
error = 0;
}
}
return (error);
}
/*
* 4.3bsd dup allows dup2 to come in on the same syscall entry
* and hence allows two arguments. HP-UX dup has only one arg.
*/
struct hpux_dup_args {
int i;
};
hpux_dup(p, uap, retval)
struct proc *p;
register struct hpux_dup_args *uap;
register_t *retval;
{
register struct filedesc *fdp = p->p_fd;
struct file *fp;
int fd, error;
if (((unsigned)SCARG(uap, i)) >= fdp->fd_nfiles ||
(fp = fdp->fd_ofiles[SCARG(uap, i)]) == NULL)
return (EBADF);
if (error = fdalloc(p, 0, &fd))
return (error);
fdp->fd_ofiles[fd] = fp;
fdp->fd_ofileflags[fd] =
fdp->fd_ofileflags[SCARG(uap, i)] &~ UF_EXCLOSE;
fp->f_count++;
if (fd > fdp->fd_lastfile)
fdp->fd_lastfile = fd;
*retval = fd;
return (0);
}
struct hpux_utssys_args {
struct hpux_utsname *uts;
int dev;
int request;
};
hpux_utssys(p, uap, retval)
struct proc *p;
register struct hpux_utssys_args *uap;
register_t *retval;
{
register int i;
int error;
switch (SCARG(uap, request)) {
/* uname */
case 0:
/* fill in machine type */
switch (machineid) {
case HP_320:
proto_utsname.machine[6] = '2';
break;
/* includes 318 and 319 */
case HP_330:
proto_utsname.machine[6] = '3';
break;
case HP_340:
proto_utsname.machine[6] = '4';
break;
case HP_350:
proto_utsname.machine[6] = '5';
break;
case HP_360:
proto_utsname.machine[6] = '6';
break;
case HP_370:
proto_utsname.machine[6] = '7';
break;
/* includes 345 */
case HP_375:
proto_utsname.machine[6] = '7';
proto_utsname.machine[7] = '5';
break;
/* includes 425 */
case HP_380:
proto_utsname.machine[6] = '8';
break;
case HP_433:
proto_utsname.machine[5] = '4';
proto_utsname.machine[6] = '3';
proto_utsname.machine[7] = '3';
break;
}
/* copy hostname (sans domain) to nodename */
for (i = 0; i < 8 && hostname[i] != '.'; i++)
proto_utsname.nodename[i] = hostname[i];
proto_utsname.nodename[i] = '\0';
error = copyout((caddr_t)&proto_utsname,
(caddr_t)SCARG(uap, uts), sizeof(struct hpux_utsname));
break;
/* gethostname */
case 5:
/* SCARG(uap, dev) is length */
if (SCARG(uap, dev) > hostnamelen + 1)
SCARG(uap, dev) = hostnamelen + 1;
error = copyout((caddr_t)hostname, (caddr_t)SCARG(uap, uts),
SCARG(uap, dev));
break;
case 1: /* ?? */
case 2: /* ustat */
case 3: /* ?? */
case 4: /* sethostname */
default:
error = EINVAL;
break;
}
return (error);
}
struct hpux_sysconf_args {
int name;
};
hpux_sysconf(p, uap, retval)
struct proc *p;
struct hpux_sysconf_args *uap;
register_t *retval;
{
switch (SCARG(uap, name)) {
/* clock ticks per second */
case HPUX_SYSCONF_CLKTICK:
*retval = hz;
break;
/* open files */
case HPUX_SYSCONF_OPENMAX:
*retval = NOFILE;
break;
/* architecture */
case HPUX_SYSCONF_CPUTYPE:
switch (machineid) {
case HP_320:
case HP_330:
case HP_350:
*retval = HPUX_SYSCONF_CPUM020;
break;
case HP_340:
case HP_360:
case HP_370:
case HP_375:
*retval = HPUX_SYSCONF_CPUM030;
break;
case HP_380:
case HP_433:
*retval = HPUX_SYSCONF_CPUM040;
break;
}
break;
default:
uprintf("HP-UX sysconf(%d) not implemented\n",
SCARG(uap, name));
return (EINVAL);
}
return (0);
}
struct hpux_stat_args {
char *fname;
struct hpux_stat *hsb;
};
hpux_stat(p, uap, retval)
struct proc *p;
struct hpux_stat_args *uap;
register_t *retval;
{
return (hpux_stat1(SCARG(uap, fname), SCARG(uap, hsb), FOLLOW, p));
}
struct hpux_lstat_args {
char *fname;
struct hpux_stat *hsb;
};
hpux_lstat(p, uap, retval)
struct proc *p;
struct hpux_lstat_args *uap;
register_t *retval;
{
return (hpux_stat1(SCARG(uap, fname), SCARG(uap, hsb), NOFOLLOW, p));
}
struct hpux_fstat_args {
int fdes;
struct hpux_stat *hsb;
};
hpux_fstat(p, uap, retval)
struct proc *p;
register struct hpux_fstat_args *uap;
register_t *retval;
{
register struct filedesc *fdp = p->p_fd;
register struct file *fp;
struct stat sb;
int error;
if (((unsigned)SCARG(uap, fdes)) >= fdp->fd_nfiles ||
(fp = fdp->fd_ofiles[SCARG(uap, fdes)]) == NULL)
return (EBADF);
switch (fp->f_type) {
case DTYPE_VNODE:
error = vn_stat((struct vnode *)fp->f_data, &sb, p);
break;
case DTYPE_SOCKET:
error = soo_stat((struct socket *)fp->f_data, &sb, p);
break;
default:
panic("fstat");
/*NOTREACHED*/
}
/* is this right for sockets?? */
if (error == 0)
error = bsdtohpuxstat(&sb, SCARG(uap, hsb));
return (error);
}
struct hpux_ulimit_args {
int cmd;
long newlimit;
};
hpux_ulimit(p, uap, retval)
struct proc *p;
register struct hpux_ulimit_args *uap;
register_t *retval;
{
struct rlimit *limp;
int error = 0;
limp = &p->p_rlimit[RLIMIT_FSIZE];
switch (SCARG(uap, cmd)) {
case 2:
SCARG(uap, newlimit) *= 512;
if (SCARG(uap, newlimit) > limp->rlim_max &&
(error = suser(p->p_ucred, &p->p_acflag)))
break;
limp->rlim_cur = limp->rlim_max = SCARG(uap, newlimit);
/* else fall into... */
case 1:
*retval = limp->rlim_max / 512;
break;
case 3:
limp = &p->p_rlimit[RLIMIT_DATA];
*retval = ctob(p->p_vmspace->vm_tsize) + limp->rlim_max;
break;
default:
error = EINVAL;
break;
}
return (error);
}
/*
* Map "real time" priorities 0 (high) thru 127 (low) into nice
* values -16 (high) thru -1 (low).
*/
struct hpux_rtprio_args {
int pid;
int prio;
};
hpux_rtprio(cp, uap, retval)
struct proc *cp;
register struct hpux_rtprio_args *uap;
register_t *retval;
{
struct proc *p;
int nice, error;
if (SCARG(uap, prio) < RTPRIO_MIN && SCARG(uap, prio) > RTPRIO_MAX &&
SCARG(uap, prio) != RTPRIO_NOCHG &&
SCARG(uap, prio) != RTPRIO_RTOFF)
return (EINVAL);
if (SCARG(uap, pid) == 0)
p = cp;
else if ((p = pfind(SCARG(uap, pid))) == 0)
return (ESRCH);
nice = p->p_nice;
if (nice < NZERO)
*retval = (nice + 16) << 3;
else
*retval = RTPRIO_RTOFF;
switch (SCARG(uap, prio)) {
case RTPRIO_NOCHG:
return (0);
case RTPRIO_RTOFF:
if (nice >= NZERO)
return (0);
nice = NZERO;
break;
default:
nice = (SCARG(uap, prio) >> 3) - 16;
break;
}
error = donice(cp, p, nice);
if (error == EACCES)
error = EPERM;
return (error);
}
struct hpux_advise_args {
int arg;
};
hpux_advise(p, uap, retval)
struct proc *p;
struct hpux_advise_args *uap;
register_t *retval;
{
int error = 0;
switch (SCARG(uap, arg)) {
case 0:
p->p_md.md_flags |= MDP_HPUXMMAP;
break;
case 1:
ICIA();
break;
case 2:
DCIA();
break;
default:
error = EINVAL;
break;
}
return (error);
}
struct hpux_ptrace_args {
int req;
int pid;
int *addr;
int data;
};
hpux_ptrace(p, uap, retval)
struct proc *p;
struct hpux_ptrace_args *uap;
register_t *retval;
{
int error, isps = 0;
struct proc *cp;
switch (SCARG(uap, req)) {
/* map signal */
case PT_STEP:
case PT_CONTINUE:
if (SCARG(uap, data)) {
SCARG(uap, data) = hpuxtobsdsig(SCARG(uap, data));
if (SCARG(uap, data) == 0)
SCARG(uap, data) = NSIG;
}
break;
/* map u-area offset */
case PT_READ_U:
case PT_WRITE_U:
/*
* Big, cheezy hack: hpuxtobsduoff is really intended
* to be called in the child context (procxmt) but we
* do it here in the parent context to avoid hacks in
* the MI sys_process.c file. This works only because
* we can access the child's md_regs pointer and it
* has the correct value (the child has already trapped
* into the kernel).
*/
if ((cp = pfind(SCARG(uap, pid))) == 0)
return (ESRCH);
SCARG(uap, addr) =
(int *)hpuxtobsduoff(SCARG(uap, addr), &isps, cp);
/*
* Since HP-UX PS is only 16-bits in ar0, requests
* to write PS actually contain the PS in the high word
* and the high half of the PC (the following register)
* in the low word. Move the PS value to where BSD
* expects it.
*/
if (isps && SCARG(uap, req) == PT_WRITE_U)
SCARG(uap, data) >>= 16;
break;
}
error = ptrace(p, uap, retval);
/*
* Align PS as HP-UX expects it (see WRITE_U comment above).
* Note that we do not return the high part of PC like HP-UX
* would, but the HP-UX debuggers don't require it.
*/
if (isps && error == 0 && SCARG(uap, req) == PT_READ_U)
*retval <<= 16;
return (error);
}
#ifdef SYSVSHM
#include <sys/shm.h>
hpux_shmctl(p, uap, retval)
struct proc *p;
int *uap, *retval;
{
return (hpux_shmctl1(p, uap, retval, 0));
}
hpux_nshmctl(p, uap, retval)
struct proc *p;
int *uap, *retval;
{
return (hpux_shmctl1(p, uap, retval, 1));
}
/*
* Handle HP-UX specific commands.
*/
struct hpux_shmctl_args {
int shmid;
int cmd;
caddr_t buf;
};
hpux_shmctl1(p, uap, retval, isnew)
struct proc *p;
struct hpux_shmctl_args *uap;
register_t *retval;
int isnew;
{
register struct shmid_ds *shp;
register struct ucred *cred = p->p_ucred;
struct hpux_shmid_ds sbuf;
int error;
if (error = shmvalid(SCARG(uap, shmid)))
return (error);
shp = &shmsegs[SCARG(uap, shmid) % SHMMMNI];
switch (SCARG(uap, cmd)) {
case SHM_LOCK:
case SHM_UNLOCK:
/* don't really do anything, but make them think we did */
if (cred->cr_uid && cred->cr_uid != shp->shm_perm.uid &&
cred->cr_uid != shp->shm_perm.cuid)
return (EPERM);
return (0);
case IPC_STAT:
if (!isnew)
break;
error = ipcaccess(&shp->shm_perm, IPC_R, cred);
if (error == 0) {
sbuf.shm_perm.uid = shp->shm_perm.uid;
sbuf.shm_perm.gid = shp->shm_perm.gid;
sbuf.shm_perm.cuid = shp->shm_perm.cuid;
sbuf.shm_perm.cgid = shp->shm_perm.cgid;
sbuf.shm_perm.mode = shp->shm_perm.mode;
sbuf.shm_perm.seq = shp->shm_perm.seq;
sbuf.shm_perm.key = shp->shm_perm.key;
sbuf.shm_segsz = shp->shm_segsz;
sbuf.shm_ptbl = shp->shm_handle; /* XXX */
sbuf.shm_lpid = shp->shm_lpid;
sbuf.shm_cpid = shp->shm_cpid;
sbuf.shm_nattch = shp->shm_nattch;
sbuf.shm_cnattch = shp->shm_nattch; /* XXX */
sbuf.shm_atime = shp->shm_atime;
sbuf.shm_dtime = shp->shm_dtime;
sbuf.shm_ctime = shp->shm_ctime;
error = copyout((caddr_t)&sbuf, SCARG(uap, buf),
sizeof sbuf);
}
return (error);
case IPC_SET:
if (!isnew)
break;
if (cred->cr_uid && cred->cr_uid != shp->shm_perm.uid &&
cred->cr_uid != shp->shm_perm.cuid) {
return (EPERM);
}
error = copyin(SCARG(uap, buf), (caddr_t)&sbuf, sizeof sbuf);
if (error == 0) {
shp->shm_perm.uid = sbuf.shm_perm.uid;
shp->shm_perm.gid = sbuf.shm_perm.gid;
shp->shm_perm.mode = (shp->shm_perm.mode & ~0777)
| (sbuf.shm_perm.mode & 0777);
shp->shm_ctime = time.tv_sec;
}
return (error);
}
return (shmctl(p, uap, retval));
}
#endif
/*
* HP-UX mmap() emulation (mainly for shared library support).
*/
struct hpux_mmap_args {
caddr_t addr;
int len;
int prot;
int flags;
int fd;
long pos;
};
hpux_mmap(p, uap, retval)
struct proc *p;
struct hpux_mmap_args *uap;
register_t *retval;
{
struct mmap_args {
caddr_t addr;
int len;
int prot;
int flags;
int fd;
long pad;
off_t pos;
} nargs;
nargs.addr = SCARG(uap, addr);
nargs.len = SCARG(uap, len);
nargs.prot = SCARG(uap, prot);
nargs.flags = SCARG(uap, flags) &
~(HPUXMAP_FIXED|HPUXMAP_REPLACE|HPUXMAP_ANON);
if (SCARG(uap, flags) & HPUXMAP_FIXED)
nargs.flags |= MAP_FIXED;
if (SCARG(uap, flags) & HPUXMAP_ANON)
nargs.flags |= MAP_ANON;
nargs.fd = (nargs.flags & MAP_ANON) ? -1 : SCARG(uap, fd);
nargs.pos = SCARG(uap, pos);
return (mmap(p, &nargs, retval));
}
/* convert from BSD to HP-UX errno */
bsdtohpuxerrno(err)
int err;
{
if (err < 0 || err >= NERR)
return(BERR);
return((int)bsdtohpuxerrnomap[err]);
}
hpux_stat1(fname, hsb, follow, p)
char *fname;
struct hpux_stat *hsb;
int follow;
struct proc *p;
{
int error;
struct stat sb;
struct nameidata nd;
NDINIT(&nd, LOOKUP, follow | LOCKLEAF, UIO_USERSPACE, fname, p);
if (error = namei(&nd))
return (error);
error = vn_stat(nd.ni_vp, &sb, p);
vput(nd.ni_vp);
if (error == 0)
error = bsdtohpuxstat(&sb, hsb);
return (error);
}
#include "grf.h"
#if NGRF > 0
#ifdef __STDC__
extern int grfopen(dev_t dev, int oflags, int devtype, struct proc *p);
#else
extern int grfopen();
#endif
#endif
#define NHIL 1 /* XXX */
#if NHIL > 0
#ifdef __STDC__
extern int hilopen(dev_t dev, int oflags, int devtype, struct proc *p);
#else
extern int hilopen();
#endif
#endif
#include <sys/conf.h>
bsdtohpuxstat(sb, hsb)
struct stat *sb;
struct hpux_stat *hsb;
{
struct hpux_stat ds;
bzero((caddr_t)&ds, sizeof(ds));
ds.hst_dev = (u_short)sb->st_dev;
ds.hst_ino = (u_long)sb->st_ino;
ds.hst_mode = sb->st_mode;
ds.hst_nlink = sb->st_nlink;
ds.hst_uid = (u_short)sb->st_uid;
ds.hst_gid = (u_short)sb->st_gid;
ds.hst_rdev = bsdtohpuxdev(sb->st_rdev);
/* XXX: I don't want to talk about it... */
if ((sb->st_mode & S_IFMT) == S_IFCHR) {
#if NGRF > 0
if (cdevsw[major(sb->st_rdev)].d_open == grfopen)
ds.hst_rdev = grfdevno(sb->st_rdev);
#endif
#if NHIL > 0
if (cdevsw[major(sb->st_rdev)].d_open == hilopen)
ds.hst_rdev = hildevno(sb->st_rdev);
#endif
;
}
if (sb->st_size < (quad_t)1 << 32)
ds.hst_size = (long)sb->st_size;
else
ds.hst_size = -2;
ds.hst_atime = sb->st_atime;
ds.hst_mtime = sb->st_mtime;
ds.hst_ctime = sb->st_ctime;
ds.hst_blksize = sb->st_blksize;
ds.hst_blocks = sb->st_blocks;
return(copyout((caddr_t)&ds, (caddr_t)hsb, sizeof(ds)));
}
hpuxtobsdioctl(com)
u_long com;
{
switch (com) {
case HPUXTIOCSLTC:
com = TIOCSLTC; break;
case HPUXTIOCGLTC:
com = TIOCGLTC; break;
case HPUXTIOCSPGRP:
com = TIOCSPGRP; break;
case HPUXTIOCGPGRP:
com = TIOCGPGRP; break;
case HPUXTIOCLBIS:
com = TIOCLBIS; break;
case HPUXTIOCLBIC:
com = TIOCLBIC; break;
case HPUXTIOCLSET:
com = TIOCLSET; break;
case HPUXTIOCLGET:
com = TIOCLGET; break;
case HPUXTIOCGWINSZ:
com = TIOCGWINSZ; break;
case HPUXTIOCSWINSZ:
com = TIOCSWINSZ; break;
}
return(com);
}
/*
* HP-UX ioctl system call. The differences here are:
* IOC_IN also means IOC_VOID if the size portion is zero.
* no FIOCLEX/FIONCLEX/FIOASYNC/FIOGETOWN/FIOSETOWN
* the sgttyb struct is 2 bytes longer
*/
struct hpux_ioctl_args {
int fdes;
u_long cmd;
caddr_t cmarg;
};
hpux_ioctl(p, uap, retval)
struct proc *p;
register struct hpux_ioctl_args *uap;
register_t *retval;
{
register struct filedesc *fdp = p->p_fd;
register struct file *fp;
register int com, error;
register u_int size;
caddr_t memp = 0;
#define STK_PARAMS 128
char stkbuf[STK_PARAMS];
caddr_t data = stkbuf;
com = SCARG(uap, cmd);
#ifdef COMPAT_OHPUX
/* XXX */
if (com == HPUXTIOCGETP || com == HPUXTIOCSETP)
return (getsettty(p, SCARG(uap, fdes), com, SCARG(uap, cmarg)));
#endif
if (((unsigned)SCARG(uap, fdes)) >= fdp->fd_nfiles ||
(fp = fdp->fd_ofiles[SCARG(uap, fdes)]) == NULL)
return (EBADF);
if ((fp->f_flag & (FREAD|FWRITE)) == 0)
return (EBADF);
/*
* Interpret high order word to find
* amount of data to be copied to/from the
* user's address space.
*/
size = IOCPARM_LEN(com);
if (size > IOCPARM_MAX)
return (ENOTTY);
if (size > sizeof (stkbuf)) {
memp = (caddr_t)malloc((u_long)size, M_IOCTLOPS, M_WAITOK);
data = memp;
}
if (com&IOC_IN) {
if (size) {
error = copyin(SCARG(uap, cmarg), data, (u_int)size);
if (error) {
if (memp)
free(memp, M_IOCTLOPS);
return (error);
}
} else
*(caddr_t *)data = SCARG(uap, cmarg);
} else if ((com&IOC_OUT) && size)
/*
* Zero the buffer so the user always
* gets back something deterministic.
*/
bzero(data, size);
else if (com&IOC_VOID)
*(caddr_t *)data = SCARG(uap, cmarg);
switch (com) {
case HPUXFIOSNBIO:
{
char *ofp = &fdp->fd_ofileflags[SCARG(uap, fdes)];
int tmp;
if (*(int *)data)
*ofp |= UF_FIONBIO_ON;
else
*ofp &= ~UF_FIONBIO_ON;
/*
* Only set/clear if O_NONBLOCK/FNDELAY not in effect
*/
if ((*ofp & (UF_NONBLOCK_ON|UF_FNDELAY_ON)) == 0) {
tmp = *ofp & UF_FIONBIO_ON;
error = (*fp->f_ops->fo_ioctl)(fp, FIONBIO,
(caddr_t)&tmp, p);
}
break;
}
case HPUXTIOCCONS:
*(int *)data = 1;
error = (*fp->f_ops->fo_ioctl)(fp, TIOCCONS, data, p);
break;
/* BSD-style job control ioctls */
case HPUXTIOCLBIS:
case HPUXTIOCLBIC:
case HPUXTIOCLSET:
*(int *)data &= HPUXLTOSTOP;
if (*(int *)data & HPUXLTOSTOP)
*(int *)data = LTOSTOP;
/* fall into */
/* simple mapping cases */
case HPUXTIOCLGET:
case HPUXTIOCSLTC:
case HPUXTIOCGLTC:
case HPUXTIOCSPGRP:
case HPUXTIOCGPGRP:
case HPUXTIOCGWINSZ:
case HPUXTIOCSWINSZ:
error = (*fp->f_ops->fo_ioctl)
(fp, hpuxtobsdioctl(com), data, p);
if (error == 0 && com == HPUXTIOCLGET) {
*(int *)data &= LTOSTOP;
if (*(int *)data & LTOSTOP)
*(int *)data = HPUXLTOSTOP;
}
break;
/* SYS 5 termio and POSIX termios */
case HPUXTCGETA:
case HPUXTCSETA:
case HPUXTCSETAW:
case HPUXTCSETAF:
case HPUXTCGETATTR:
case HPUXTCSETATTR:
case HPUXTCSETATTRD:
case HPUXTCSETATTRF:
error = hpux_termio(SCARG(uap, fdes), com, data, p);
break;
default:
error = (*fp->f_ops->fo_ioctl)(fp, com, data, p);
break;
}
/*
* Copy any data to user, size was
* already set and checked above.
*/
if (error == 0 && (com&IOC_OUT) && size)
error = copyout(data, SCARG(uap, cmarg), (u_int)size);
if (memp)
free(memp, M_IOCTLOPS);
return (error);
}
/*
* Man page lies, behaviour here is based on observed behaviour.
*/
struct hpux_getcontext_args {
char *buf;
int len;
};
hpux_getcontext(p, uap, retval)
struct proc *p;
struct hpux_getcontext_args *uap;
register_t *retval;
{
int error = 0;
register int len;
#if defined(HP380)
if (machineid == HP_380) {
len = min(SCARG(uap, len), sizeof(hpux_040context));
if (len)
error = copyout(hpux_040context, SCARG(uap, buf), len);
if (error == 0)
*retval = sizeof(hpux_040context);
return (error);
}
#endif
len = min(SCARG(uap, len), sizeof(hpux_context));
if (len)
error = copyout(hpux_context, SCARG(uap, buf), (u_int)len);
if (error == 0)
*retval = sizeof(hpux_context);
return (error);
}
/*
* This is the equivalent of BSD getpgrp but with more restrictions.
* Note we do not check the real uid or "saved" uid.
*/
struct hpux_getpgrp2_args {
int pid;
};
hpux_getpgrp2(cp, uap, retval)
struct proc *cp;
register struct hpux_getpgrp2_args *uap;
register_t *retval;
{
register struct proc *p;
if (SCARG(uap, pid) == 0)
SCARG(uap, pid) = cp->p_pid;
p = pfind(SCARG(uap, pid));
if (p == 0)
return (ESRCH);
if (cp->p_ucred->cr_uid && p->p_ucred->cr_uid != cp->p_ucred->cr_uid &&
!inferior(p))
return (EPERM);
*retval = p->p_pgid;
return (0);
}
/*
* This is the equivalent of BSD setpgrp but with more restrictions.
* Note we do not check the real uid or "saved" uid or pgrp.
*/
struct hpux_setpgrp2_args {
int pid;
int pgrp;
};
hpux_setpgrp2(p, uap, retval)
struct proc *p;
struct hpux_setpgrp2_args *uap;
register_t *retval;
{
/* empirically determined */
if (SCARG(uap, pgrp) < 0 || SCARG(uap, pgrp) >= 30000)
return (EINVAL);
return (setpgid(p, uap, retval));
}
/*
* XXX Same as BSD setre[ug]id right now. Need to consider saved ids.
*/
struct hpux_setresuid_args {
int ruid;
int euid;
int suid;
};
hpux_setresuid(p, uap, retval)
struct proc *p;
struct hpux_setresuid_args *uap;
register_t *retval;
{
return (osetreuid(p, uap, retval));
}
struct hpux_setresgid_args {
int rgid;
int egid;
int sgid;
};
hpux_setresgid(p, uap, retval)
struct proc *p;
struct hpux_setresgid_args *uap;
register_t *retval;
{
return (osetregid(p, uap, retval));
}
struct hpux_rlimit_args {
u_int which;
struct orlimit *rlp;
};
hpux_getrlimit(p, uap, retval)
struct proc *p;
struct hpux_rlimit_args *uap;
register_t *retval;
{
if (SCARG(uap, which) > HPUXRLIMIT_NOFILE)
return (EINVAL);
if (SCARG(uap, which) == HPUXRLIMIT_NOFILE)
SCARG(uap, which) = RLIMIT_NOFILE;
return (ogetrlimit(p, uap, retval));
}
hpux_setrlimit(p, uap, retval)
struct proc *p;
struct hpux_rlimit_args *uap;
register_t *retval;
{
if (SCARG(uap, which) > HPUXRLIMIT_NOFILE)
return (EINVAL);
if (SCARG(uap, which) == HPUXRLIMIT_NOFILE)
SCARG(uap, which) = RLIMIT_NOFILE;
return (osetrlimit(p, uap, retval));
}
/*
* XXX: simple recognition hack to see if we can make grmd work.
*/
struct hpux_lockf_args {
int fd;
int func;
long size;
};
hpux_lockf(p, uap, retval)
struct proc *p;
struct hpux_lockf_args *uap;
register_t *retval;
{
return (0);
}
struct hpux_getaccess_args {
char *path;
int uid;
int ngroups;
int *gidset;
void *label;
void *privs;
};
hpux_getaccess(p, uap, retval)
register struct proc *p;
register struct hpux_getaccess_args *uap;
register_t *retval;
{
int lgroups[NGROUPS];
int error = 0;
register struct ucred *cred;
register struct vnode *vp;
struct nameidata nd;
/*
* Build an appropriate credential structure
*/
cred = crdup(p->p_ucred);
switch (SCARG(uap, uid)) {
case 65502: /* UID_EUID */
break;
case 65503: /* UID_RUID */
cred->cr_uid = p->p_cred->p_ruid;
break;
case 65504: /* UID_SUID */
error = EINVAL;
break;
default:
if (SCARG(uap, uid) > 65504)
error = EINVAL;
cred->cr_uid = SCARG(uap, uid);
break;
}
switch (SCARG(uap, ngroups)) {
case -1: /* NGROUPS_EGID */
cred->cr_ngroups = 1;
break;
case -5: /* NGROUPS_EGID_SUPP */
break;
case -2: /* NGROUPS_RGID */
cred->cr_ngroups = 1;
cred->cr_gid = p->p_cred->p_rgid;
break;
case -6: /* NGROUPS_RGID_SUPP */
cred->cr_gid = p->p_cred->p_rgid;
break;
case -3: /* NGROUPS_SGID */
case -7: /* NGROUPS_SGID_SUPP */
error = EINVAL;
break;
case -4: /* NGROUPS_SUPP */
if (cred->cr_ngroups > 1)
cred->cr_gid = cred->cr_groups[1];
else
error = EINVAL;
break;
default:
if (SCARG(uap, ngroups) > 0 && SCARG(uap, ngroups) <= NGROUPS)
error = copyin((caddr_t)SCARG(uap, gidset),
(caddr_t)&lgroups[0],
SCARG(uap, ngroups) *
sizeof(lgroups[0]));
else
error = EINVAL;
if (error == 0) {
int gid;
for (gid = 0; gid < SCARG(uap, ngroups); gid++)
cred->cr_groups[gid] = lgroups[gid];
cred->cr_ngroups = SCARG(uap, ngroups);
}
break;
}
/*
* Lookup file using caller's effective IDs.
*/
if (error == 0) {
NDINIT(&nd, LOOKUP, FOLLOW | LOCKLEAF, UIO_USERSPACE,
SCARG(uap, path), p);
error = namei(&nd);
}
if (error) {
crfree(cred);
return (error);
}
/*
* Use the constructed credentials for access checks.
*/
vp = nd.ni_vp;
*retval = 0;
if (VOP_ACCESS(vp, VREAD, cred, p) == 0)
*retval |= R_OK;
if (vn_writechk(vp) == 0 && VOP_ACCESS(vp, VWRITE, cred, p) == 0)
*retval |= W_OK;
/* XXX we return X_OK for root on VREG even if not */
if (VOP_ACCESS(vp, VEXEC, cred, p) == 0)
*retval |= X_OK;
vput(vp);
crfree(cred);
return (error);
}
extern char kstack[];
#define UOFF(f) ((int)&((struct user *)0)->f)
#define HPUOFF(f) ((int)&((struct hpux_user *)0)->f)
/* simplified FP structure */
struct bsdfp {
int save[54];
int reg[24];
int ctrl[3];
};
/*
* Brutal hack! Map HP-UX u-area offsets into BSD k-stack offsets.
*/
hpuxtobsduoff(off, isps, p)
int *off, *isps;
struct proc *p;
{
register int *ar0 = p->p_md.md_regs;
struct hpux_fp *hp;
struct bsdfp *bp;
register u_int raddr;
*isps = 0;
/* u_ar0 field; procxmt puts in U_ar0 */
if ((int)off == HPUOFF(hpuxu_ar0))
return(UOFF(U_ar0));
#ifdef FPCOPROC
/* FP registers from PCB */
hp = (struct hpux_fp *)HPUOFF(hpuxu_fp);
bp = (struct bsdfp *)UOFF(u_pcb.pcb_fpregs);
if (off >= hp->hpfp_ctrl && off < &hp->hpfp_ctrl[3])
return((int)&bp->ctrl[off - hp->hpfp_ctrl]);
if (off >= hp->hpfp_reg && off < &hp->hpfp_reg[24])
return((int)&bp->reg[off - hp->hpfp_reg]);
#endif
/*
* Everything else we recognize comes from the kernel stack,
* so we convert off to an absolute address (if not already)
* for simplicity.
*/
if (off < (int *)ctob(UPAGES))
off = (int *)((u_int)off + (u_int)kstack);
/*
* General registers.
* We know that the HP-UX registers are in the same order as ours.
* The only difference is that their PS is 2 bytes instead of a
* padded 4 like ours throwing the alignment off.
*/
if (off >= ar0 && off < &ar0[18]) {
/*
* PS: return low word and high word of PC as HP-UX would
* (e.g. &u.u_ar0[16.5]).
*
* XXX we don't do this since HP-UX adb doesn't rely on
* it and passing such an offset to procxmt will cause
* it to fail anyway. Instead, we just set the offset
* to PS and let hpux_ptrace() shift up the value returned.
*/
if (off == &ar0[PS]) {
#if 0
raddr = (u_int) &((short *)ar0)[PS*2+1];
#else
raddr = (u_int) &ar0[(int)(off - ar0)];
#endif
*isps = 1;
}
/*
* PC: off will be &u.u_ar0[16.5] since HP-UX saved PS
* is only 16 bits.
*/
else if (off == (int *)&(((short *)ar0)[PS*2+1]))
raddr = (u_int) &ar0[PC];
/*
* D0-D7, A0-A7: easy
*/
else
raddr = (u_int) &ar0[(int)(off - ar0)];
return((int)(raddr - (u_int)kstack));
}
/* everything else */
return(-1);
}
/*
* Kludge up a uarea dump so that HP-UX debuggers can find out
* what they need. IMPORTANT NOTE: we do not EVEN attempt to
* convert the entire user struct.
*/
hpux_dumpu(vp, cred)
struct vnode *vp;
struct ucred *cred;
{
struct proc *p = curproc;
int error;
struct hpux_user *faku;
struct bsdfp *bp;
short *foop;
faku = (struct hpux_user *)malloc((u_long)ctob(1), M_TEMP, M_WAITOK);
/*
* Make sure there is no mistake about this
* being a real user structure.
*/
bzero((caddr_t)faku, ctob(1));
/*
* Fill in the process sizes.
*/
faku->hpuxu_tsize = p->p_vmspace->vm_tsize;
faku->hpuxu_dsize = p->p_vmspace->vm_dsize;
faku->hpuxu_ssize = p->p_vmspace->vm_ssize;
/*
* Fill in the exec header for CDB.
* This was saved back in exec(). As far as I can tell CDB
* only uses this information to verify that a particular
* core file goes with a particular binary.
*/
bcopy((caddr_t)p->p_addr->u_md.md_exec,
(caddr_t)&faku->hpuxu_exdata, sizeof (struct hpux_exec));
/*
* Adjust user's saved registers (on kernel stack) to reflect
* HP-UX order. Note that HP-UX saves the SR as 2 bytes not 4
* so we have to move it up.
*/
faku->hpuxu_ar0 = p->p_md.md_regs;
foop = (short *) p->p_md.md_regs;
foop[32] = foop[33];
foop[33] = foop[34];
foop[34] = foop[35];
#ifdef FPCOPROC
/*
* Copy 68881 registers from our PCB format to HP-UX format
*/
bp = (struct bsdfp *) &p->p_addr->u_pcb.pcb_fpregs;
bcopy((caddr_t)bp->save, (caddr_t)faku->hpuxu_fp.hpfp_save,
sizeof(bp->save));
bcopy((caddr_t)bp->ctrl, (caddr_t)faku->hpuxu_fp.hpfp_ctrl,
sizeof(bp->ctrl));
bcopy((caddr_t)bp->reg, (caddr_t)faku->hpuxu_fp.hpfp_reg,
sizeof(bp->reg));
#endif
/*
* Slay the dragon
*/
faku->hpuxu_dragon = -1;
/*
* Dump this artfully constructed page in place of the
* user struct page.
*/
error = vn_rdwr(UIO_WRITE, vp, (caddr_t)faku, ctob(1), (off_t)0,
UIO_SYSSPACE, IO_NODELOCKED|IO_UNIT, cred,
(int *)NULL, p);
/*
* Dump the remaining UPAGES-1 pages normally
*/
if (!error)
error = vn_rdwr(UIO_WRITE, vp, kstack + ctob(1),
ctob(UPAGES-1), (off_t)ctob(1), UIO_SYSSPACE,
IO_NODELOCKED|IO_UNIT, cred, (int *)NULL, p);
free((caddr_t)faku, M_TEMP);
return(error);
}
/*
* The remaining routines are essentially the same as those in kern_xxx.c
* and vfs_xxx.c as defined under "#ifdef COMPAT". We replicate them here
* to avoid COMPAT_HPUX dependencies in those files and to make sure that
* HP-UX compatibility still works even when COMPAT is not defined.
*
* These are still needed as of HP-UX 7.05.
*/
#ifdef COMPAT_OHPUX
#define HPUX_HZ 50
#include "sys/times.h"
/* from old timeb.h */
struct hpux_timeb {
time_t time;
u_short millitm;
short timezone;
short dstflag;
};
/* ye ole stat structure */
struct ohpux_stat {
u_short ohst_dev;
u_short ohst_ino;
u_short ohst_mode;
short ohst_nlink;
short ohst_uid;
short ohst_gid;
u_short ohst_rdev;
int ohst_size;
int ohst_atime;
int ohst_mtime;
int ohst_ctime;
};
/*
* SYS V style setpgrp()
*/
ohpux_setpgrp(p, uap, retval)
register struct proc *p;
int *uap, *retval;
{
if (p->p_pid != p->p_pgid)
enterpgrp(p, p->p_pid, 0);
*retval = p->p_pgid;
return (0);
}
struct ohpux_time_args {
long *tp;
};
ohpux_time(p, uap, retval)
struct proc *p;
register struct ohpux_time_args *uap;
register_t *retval;
{
int error = 0;
if (SCARG(uap, tp))
error = copyout((caddr_t)&time.tv_sec, (caddr_t)SCARG(uap, tp),
sizeof (long));
*(time_t *)retval = time.tv_sec;
return (error);
}
struct ohpux_stime_args {
int time;
};
ohpux_stime(p, uap, retval)
struct proc *p;
register struct ohpux_stime_args *uap;
register_t *retval;
{
struct timeval tv;
int s, error;
tv.tv_sec = SCARG(uap, time);
tv.tv_usec = 0;
if (error = suser(p->p_ucred, &p->p_acflag))
return (error);
/* WHAT DO WE DO ABOUT PENDING REAL-TIME TIMEOUTS??? */
boottime.tv_sec += tv.tv_sec - time.tv_sec;
s = splhigh(); time = tv; splx(s);
resettodr();
return (0);
}
struct ohpux_ftime_args {
struct hpux_timeb *tp;
};
ohpux_ftime(p, uap, retval)
struct proc *p;
register struct ohpux_ftime_args *uap;
register_t *retval;
{
struct hpux_timeb tb;
int s;
s = splhigh();
tb.time = time.tv_sec;
tb.millitm = time.tv_usec / 1000;
splx(s);
tb.timezone = tz.tz_minuteswest;
tb.dstflag = tz.tz_dsttime;
return (copyout((caddr_t)&tb, (caddr_t)SCARG(uap, tp), sizeof (tb)));
}
struct ohpux_alarm_args {
int deltat;
};
ohpux_alarm(p, uap, retval)
register struct proc *p;
register struct ohpux_alarm_args *uap;
register_t *retval;
{
int s = splhigh();
untimeout(realitexpire, (caddr_t)p);
timerclear(&p->p_realtimer.it_interval);
*retval = 0;
if (timerisset(&p->p_realtimer.it_value) &&
timercmp(&p->p_realtimer.it_value, &time, >))
*retval = p->p_realtimer.it_value.tv_sec - time.tv_sec;
if (SCARG(uap, deltat) == 0) {
timerclear(&p->p_realtimer.it_value);
splx(s);
return (0);
}
p->p_realtimer.it_value = time;
p->p_realtimer.it_value.tv_sec += SCARG(uap, deltat);
timeout(realitexpire, (caddr_t)p, hzto(&p->p_realtimer.it_value));
splx(s);
return (0);
}
struct ohpux_nice_args {
int niceness;
};
ohpux_nice(p, uap, retval)
register struct proc *p;
register struct ohpux_nice_args *uap;
register_t *retval;
{
int error;
error = donice(p, p, (p->p_nice-NZERO)+SCARG(uap, niceness));
if (error == 0)
*retval = p->p_nice - NZERO;
return (error);
}
struct ohpux_times_args {
struct tms *tmsb;
};
ohpux_times(p, uap, retval)
struct proc *p;
register struct ohpux_times_args *uap;
register_t *retval;
{
struct timeval ru, rs;
struct tms atms;
int error;
calcru(p, &ru, &rs, NULL);
atms.tms_utime = hpux_scale(&ru);
atms.tms_stime = hpux_scale(&rs);
atms.tms_cutime = hpux_scale(&p->p_stats->p_cru.ru_utime);
atms.tms_cstime = hpux_scale(&p->p_stats->p_cru.ru_stime);
error = copyout((caddr_t)&atms, (caddr_t)SCARG(uap, tmsb),
sizeof (atms));
if (error == 0)
*(time_t *)retval = hpux_scale(&time) - hpux_scale(&boottime);
return (error);
}
/*
* Doesn't exactly do what the documentation says.
* What we really do is return 1/HPUX_HZ-th of a second since that
* is what HP-UX returns.
*/
hpux_scale(tvp)
register struct timeval *tvp;
{
return (tvp->tv_sec * HPUX_HZ + tvp->tv_usec * HPUX_HZ / 1000000);
}
/*
* Set IUPD and IACC times on file.
* Can't set ICHG.
*/
struct ohpux_utime_args {
char *fname;
time_t *tptr;
};
ohpux_utime(p, uap, retval)
struct proc *p;
register struct ohpux_utime_args *uap;
register_t *retval;
{
register struct vnode *vp;
struct vattr vattr;
time_t tv[2];
int error;
struct nameidata nd;
if (SCARG(uap, tptr)) {
error = copyin((caddr_t)SCARG(uap, tptr), (caddr_t)tv,
sizeof (tv));
if (error)
return (error);
} else
tv[0] = tv[1] = time.tv_sec;
vattr_null(&vattr);
vattr.va_atime.ts_sec = tv[0];
vattr.va_atime.ts_nsec = 0;
vattr.va_mtime.ts_sec = tv[1];
vattr.va_mtime.ts_nsec = 0;
NDINIT(&nd, LOOKUP, FOLLOW | LOCKLEAF, UIO_USERSPACE,
SCARG(uap, fname), p);
if (error = namei(&nd))
return (error);
vp = nd.ni_vp;
if (vp->v_mount->mnt_flag & MNT_RDONLY)
error = EROFS;
else
error = VOP_SETATTR(vp, &vattr, nd.ni_cnd.cn_cred, p);
vput(vp);
return (error);
}
ohpux_pause(p, uap, retval)
struct proc *p;
int *uap, *retval;
{
(void) tsleep(kstack, PPAUSE | PCATCH, "pause", 0);
/* always return EINTR rather than ERESTART... */
return (EINTR);
}
/*
* The old fstat system call.
*/
struct ohpux_fstat_args {
int fd;
struct ohpux_stat *sb;
};
ohpux_fstat(p, uap, retval)
struct proc *p;
register struct ohpux_fstat_args *uap;
register_t *retval;
{
register struct filedesc *fdp = p->p_fd;
struct file *fp;
if (((unsigned)SCARG(uap, fd)) >= fdp->fd_nfiles ||
(fp = fdp->fd_ofiles[SCARG(uap, fd)]) == NULL)
return (EBADF);
if (fp->f_type != DTYPE_VNODE)
return (EINVAL);
return (ohpux_stat1((struct vnode *)fp->f_data, SCARG(uap, sb), p));
}
/*
* Old stat system call. This version follows links.
*/
struct ohpux_stat_args {
char *fname;
struct ohpux_stat *sb;
};
ohpux_stat(p, uap, retval)
struct proc *p;
register struct ohpux_stat_args *uap;
register_t *retval;
{
int error;
struct nameidata nd;
NDINIT(&nd, LOOKUP, FOLLOW | LOCKLEAF, UIO_USERSPACE,
SCARG(uap, fname), p);
if (error = namei(&nd))
return (error);
error = ohpux_stat1(nd.ni_vp, SCARG(uap, sb), p);
vput(nd.ni_vp);
return (error);
}
int
ohpux_stat1(vp, ub, p)
struct vnode *vp;
struct ohpux_stat *ub;
struct proc *p;
{
struct ohpux_stat ohsb;
struct stat sb;
int error;
error = vn_stat(vp, &sb, p);
if (error)
return (error);
ohsb.ohst_dev = sb.st_dev;
ohsb.ohst_ino = sb.st_ino;
ohsb.ohst_mode = sb.st_mode;
ohsb.ohst_nlink = sb.st_nlink;
ohsb.ohst_uid = sb.st_uid;
ohsb.ohst_gid = sb.st_gid;
ohsb.ohst_rdev = sb.st_rdev;
if (sb.st_size < (quad_t)1 << 32)
ohsb.ohst_size = sb.st_size;
else
ohsb.ohst_size = -2;
ohsb.ohst_atime = sb.st_atime;
ohsb.ohst_mtime = sb.st_mtime;
ohsb.ohst_ctime = sb.st_ctime;
return (copyout((caddr_t)&ohsb, (caddr_t)ub, sizeof(ohsb)));
}
#endif