283 lines
7.0 KiB
C
283 lines
7.0 KiB
C
/* $NetBSD: svr4_lwp.c,v 1.2 2000/04/09 05:30:17 christos Exp $ */
|
|
|
|
/*-
|
|
* Copyright (c) 1999 The NetBSD Foundation, Inc.
|
|
* All rights reserved.
|
|
*
|
|
* This code is derived from software contributed to The NetBSD Foundation
|
|
* by Christos Zoulas.
|
|
*
|
|
* 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 NetBSD
|
|
* Foundation, Inc. and its contributors.
|
|
* 4. Neither the name of The NetBSD Foundation 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 NETBSD FOUNDATION, INC. 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 FOUNDATION 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.
|
|
*/
|
|
|
|
#include <sys/param.h>
|
|
#include <sys/kernel.h>
|
|
#include <sys/systm.h>
|
|
#include <sys/queue.h>
|
|
#include <sys/mbuf.h>
|
|
#include <sys/file.h>
|
|
#include <sys/mount.h>
|
|
#include <sys/time.h>
|
|
#include <sys/resourcevar.h>
|
|
#include <sys/proc.h>
|
|
#include <sys/user.h>
|
|
#include <sys/socket.h>
|
|
#include <sys/socketvar.h>
|
|
#include <sys/syscallargs.h>
|
|
#include <sys/un.h>
|
|
#include <sys/stat.h>
|
|
|
|
#include <compat/svr4/svr4_types.h>
|
|
#include <compat/svr4/svr4_util.h>
|
|
#include <compat/svr4/svr4_socket.h>
|
|
#include <compat/svr4/svr4_signal.h>
|
|
#include <compat/svr4/svr4_sockmod.h>
|
|
#include <compat/svr4/svr4_lwp.h>
|
|
#include <compat/svr4/svr4_ucontext.h>
|
|
#include <compat/svr4/svr4_syscallargs.h>
|
|
|
|
|
|
int
|
|
svr4_sys__lwp_self(p, v, retval)
|
|
struct proc *p;
|
|
void *v;
|
|
register_t *retval;
|
|
{
|
|
return sys_getpid(p, v, retval);
|
|
}
|
|
|
|
int
|
|
svr4_sys__lwp_create(p, v, retval)
|
|
struct proc *p;
|
|
void *v;
|
|
register_t *retval;
|
|
{
|
|
struct svr4_sys__lwp_create_args *uap = v;
|
|
int error;
|
|
struct proc *pt;
|
|
svr4_ucontext_t uc;
|
|
#define SVR4_FORK_FLAGS \
|
|
(FORK_SHAREVM|FORK_SHARECWD|FORK_SHAREFILES|FORK_SHARESIGS)
|
|
|
|
|
|
if ((error = fork1(p, SVR4_FORK_FLAGS, SIGCHLD, NULL, 0, retval,
|
|
&pt)) == -1)
|
|
return error;
|
|
|
|
if (SCARG(uap, flags) & SVR4_LWP_DETACHED)
|
|
pt->p_flag &= ~P_CONTROLT;
|
|
|
|
if (SCARG(uap, flags) & SVR4_LWP_SUSPENDED)
|
|
pt->p_stat = SSTOP;
|
|
|
|
if (SCARG(uap, flags) & SVR4___LWP_ASLWP) {
|
|
/*
|
|
* XXX: This does not really work, we don't have
|
|
* the facility to deliver all async signals
|
|
* to a single lwp, and also we don't keep
|
|
* track of having only one ASLWP. For now
|
|
* we just block all signals as we are supposed
|
|
* to.
|
|
*/
|
|
sigset_t ss;
|
|
sigfillset(&ss);
|
|
(void)sigprocmask1(pt, SIG_BLOCK, &ss, 0);
|
|
} else {
|
|
/*
|
|
* XXX: We block all signals to the rest of the of
|
|
* the lwp's, so that they don't get confused
|
|
* as of the above. Will that work? What does
|
|
* sharing s
|
|
*/
|
|
sigset_t ss;
|
|
sigfillset(&ss);
|
|
(void)sigprocmask1(pt, SIG_BLOCK, &ss, 0);
|
|
}
|
|
|
|
if ((error = copyin(SCARG(uap, uc), &uc, sizeof(uc))) != 0)
|
|
return error;
|
|
|
|
if ((error = svr4_setcontext(pt, &uc)) != 0)
|
|
return error;
|
|
|
|
if ((error = copyout(&pt->p_pid, SCARG(uap, lwpid),
|
|
sizeof(svr4_lwpid_t))) == -1)
|
|
return error;
|
|
return 0;
|
|
}
|
|
|
|
int
|
|
svr4_sys__lwp_kill(p, v, retval)
|
|
struct proc *p;
|
|
void *v;
|
|
register_t *retval;
|
|
{
|
|
struct svr4_sys__lwp_kill_args *uap = v;
|
|
struct sys_kill_args ap;
|
|
SCARG(&ap, pid) = SCARG(uap, lwpid);
|
|
SCARG(&ap, signum) = SCARG(uap, signum);
|
|
|
|
return sys_kill(p, &ap, retval);
|
|
}
|
|
|
|
int
|
|
svr4_sys__lwp_info(p, v, retval)
|
|
struct proc *p;
|
|
void *v;
|
|
register_t *retval;
|
|
{
|
|
struct svr4_sys__lwp_info_args *uap = v;
|
|
struct svr4_lwpinfo lwpinfo;
|
|
int error;
|
|
|
|
TIMEVAL_TO_TIMESPEC(&p->p_stats->p_ru.ru_stime, &lwpinfo.lwp_stime);
|
|
TIMEVAL_TO_TIMESPEC(&p->p_stats->p_ru.ru_utime, &lwpinfo.lwp_utime);
|
|
|
|
if ((error = copyout(&lwpinfo, SCARG(uap, lwpinfo), sizeof(lwpinfo))) ==
|
|
-1)
|
|
return error;
|
|
return 0;
|
|
}
|
|
|
|
int
|
|
svr4_sys__lwp_exit(p, v, retval)
|
|
struct proc *p;
|
|
void *v;
|
|
register_t *retval;
|
|
{
|
|
struct sys_exit_args ap;
|
|
int error;
|
|
|
|
/* XXX: We don't handle the suspended case correctly here */
|
|
SCARG(&ap, rval) = 0;
|
|
|
|
if ((error = sys_exit(p, &ap, retval)) == -1)
|
|
return error;
|
|
|
|
*retval = 0;
|
|
return 0;
|
|
}
|
|
|
|
int
|
|
svr4_sys__lwp_wait(p, v, retval)
|
|
struct proc *p;
|
|
void *v;
|
|
register_t *retval;
|
|
{
|
|
struct svr4_sys__lwp_wait_args *uap = v;
|
|
struct sys_wait4_args ap;
|
|
int error;
|
|
|
|
SCARG(&ap, pid) = SCARG(uap, wait_for);
|
|
SCARG(&ap, status) = NULL;
|
|
SCARG(&ap, options) = 0;
|
|
|
|
if ((error = sys_wait4(p, &ap, retval)) == -1)
|
|
return error;
|
|
|
|
if (SCARG(uap, departed_lwp) != NULL)
|
|
if ((error = copyout(retval, SCARG(uap, departed_lwp),
|
|
sizeof(svr4_lwpid_t))) == -1)
|
|
return error;
|
|
|
|
*retval = 0;
|
|
return 0;
|
|
}
|
|
|
|
/* XXX Stolen from kern_sig.c */
|
|
#define CANSIGNAL(p, pc, q, signum) \
|
|
((pc)->pc_ucred->cr_uid == 0 || \
|
|
(pc)->p_ruid == (q)->p_cred->p_ruid || \
|
|
(pc)->pc_ucred->cr_uid == (q)->p_cred->p_ruid || \
|
|
(pc)->p_ruid == (q)->p_ucred->cr_uid || \
|
|
(pc)->pc_ucred->cr_uid == (q)->p_ucred->cr_uid || \
|
|
((signum) == SIGCONT && (q)->p_session == (p)->p_session))
|
|
int
|
|
svr4_sys__lwp_suspend(p, v, retval)
|
|
struct proc *p;
|
|
void *v;
|
|
register_t *retval;
|
|
{
|
|
struct svr4_sys__lwp_suspend_args *uap = v;
|
|
struct proc *pt;
|
|
|
|
/* Security implications here! */
|
|
if ((pt = pfind(SCARG(uap, lwpid))) == NULL)
|
|
return ESRCH;
|
|
|
|
if (!CANSIGNAL(p, p->p_cred, pt, 0))
|
|
return EPERM;
|
|
|
|
pt->p_stat = SSTOP;
|
|
return 0;
|
|
}
|
|
|
|
int
|
|
svr4_sys__lwp_continue(p, v, retval)
|
|
struct proc *p;
|
|
void *v;
|
|
register_t *retval;
|
|
{
|
|
struct svr4_sys__lwp_continue_args *uap = v;
|
|
struct proc *pt;
|
|
|
|
if ((pt = pfind(SCARG(uap, lwpid))) == NULL)
|
|
return ESRCH;
|
|
|
|
if (!CANSIGNAL(p, p->p_cred, pt, 0))
|
|
return EPERM;
|
|
|
|
pt->p_stat = SRUN;
|
|
return 0;
|
|
}
|
|
|
|
int
|
|
svr4_sys__lwp_getprivate(p, v, retval)
|
|
struct proc *p;
|
|
void *v;
|
|
register_t *retval;
|
|
{
|
|
/* XXX: Use mach field! */
|
|
*retval = (register_t)p->p_thread;
|
|
return 0;
|
|
}
|
|
|
|
int
|
|
svr4_sys__lwp_setprivate(p, v, retval)
|
|
struct proc *p;
|
|
void *v;
|
|
register_t *retval;
|
|
{
|
|
struct svr4_sys__lwp_setprivate_args *uap = v;
|
|
|
|
/* XXX: Use mach field! */
|
|
return copyin(SCARG(uap, buffer), &p->p_thread, sizeof(void *));
|
|
return 0;
|
|
}
|