- if (suser())
- boot(RB_BOOT, ((struct a *)u.u_ap)->opt);
-}
-
-#ifndef NOCOMPAT
-osetuid()
-{
- register uid;
- register struct a {
- int uid;
- } *uap;
-
- uap = (struct a *)u.u_ap;
- uid = uap->uid;
- if (u.u_ruid == uid || u.u_uid == uid || suser()) {
-#ifdef QUOTA
- if (u.u_quota->q_uid != uid) {
- qclean();
- qstart(getquota(uid, 0, 0));
- }
-#endif
- u.u_uid = uid;
- u.u_procp->p_uid = uid;
- u.u_ruid = uid;
- }
-}
-
-osetgid()
-{
- register gid;
- register struct a {
- int gid;
- } *uap;
-
- uap = (struct a *)u.u_ap;
- gid = uap->gid;
- if (u.u_rgid == gid || u.u_gid == gid || suser()) {
- leavegroup(u.u_rgid);
- (void) entergroup(gid);
- u.u_gid = gid;
- u.u_rgid = gid;
- }
-}
-
-/*
- * Pid of zero implies current process.
- * Pgrp -1 is getpgrp system call returning
- * current process group.
- */
-osetpgrp()
-{
- register struct proc *p;
- register struct a {
- int pid;
- int pgrp;
- } *uap;
-
- uap = (struct a *)u.u_ap;
- if (uap->pid == 0)
- p = u.u_procp;
- else {
- p = pfind(uap->pid);
- if (p == 0) {
- u.u_error = ESRCH;
- return;
- }
- }
- if (uap->pgrp <= 0) {
- u.u_r.r_val1 = p->p_pgrp;
- return;
- }
- if (p->p_uid != u.u_uid && u.u_uid && !inferior(p)) {
- u.u_error = EPERM;
- return;
- }
- p->p_pgrp = uap->pgrp;
-}
-
-otime()
-{
-
- u.u_r.r_time = time.tv_sec;
-}
-
-ostime()
-{
- register struct a {
- int time;
- } *uap = (struct a *)u.u_ap;
- struct timeval tv;
-
- tv.tv_sec = uap->time;
- tv.tv_usec = 0;
- setthetime(&tv);
-}
-
-/* from old timeb.h */
-struct timeb {
- time_t time;
- u_short millitm;
- short timezone;
- short dstflag;
-};
-
-oftime()
-{
- register struct a {
- struct timeb *tp;
- } *uap;
- struct timeb tb;
-
- uap = (struct a *)u.u_ap;
- (void) spl7();
- tb.time = time.tv_sec;
- tb.millitm = time.tv_usec / 1000;
- (void) spl0();
- tb.timezone = tz.tz_minuteswest;
- tb.dstflag = tz.tz_dsttime;
- u.u_error = copyout((caddr_t)&tb, (caddr_t)uap->tp, sizeof (tb));
-}
-
-oalarm()
-{
- register struct a {
- int deltat;
- } *uap = (struct a *)u.u_ap;
- register struct proc *p = u.u_procp;
- int s = spl7();
-
- untimeout(realitexpire, (caddr_t)p);
- timerclear(&p->p_realtimer.it_interval);
- u.u_r.r_val1 = 0;
- if (timerisset(&p->p_realtimer.it_value) &&
- timercmp(&p->p_realtimer.it_value, &time, >))
- u.u_r.r_val1 = p->p_realtimer.it_value.tv_sec - time.tv_sec;
- if (uap->deltat == 0) {
- timerclear(&p->p_realtimer.it_value);
- splx(s);
- return;
- }
- p->p_realtimer.it_value = time;
- p->p_realtimer.it_value.tv_sec += uap->deltat;
- timeout(realitexpire, (caddr_t)p, hzto(&p->p_realtimer.it_value));
- splx(s);
-}
-
-onice()
-{
- register struct a {
- int niceness;
- } *uap = (struct a *)u.u_ap;
- register struct proc *p = u.u_procp;
-
- donice(p, (p->p_nice-NZERO)+uap->niceness);
-}
-
-#include "../h/times.h"
-
-otimes()
-{
- register struct a {
- struct tms *tmsb;
- } *uap = (struct a *)u.u_ap;
- struct tms atms;
-
- atms.tms_utime = scale60(&u.u_ru.ru_utime);
- atms.tms_stime = scale60(&u.u_ru.ru_stime);
- atms.tms_cutime = scale60(&u.u_cru.ru_utime);
- atms.tms_cstime = scale60(&u.u_cru.ru_stime);
- u.u_error = copyout((caddr_t)&atms, (caddr_t)uap->tmsb, sizeof (atms));
-}
-
-scale60(tvp)
- register struct timeval *tvp;
-{
-
- return (tvp->tv_sec * 60 + tvp->tv_usec / 16667);
-}
-
-#include "../h/vtimes.h"
-
-ovtimes()
-{
- register struct a {
- struct vtimes *par;
- struct vtimes *chi;
- } *uap = (struct a *)u.u_ap;
- struct vtimes avt;
-
- if (uap->par) {
- getvtimes(&u.u_ru, &avt);
- u.u_error = copyout((caddr_t)&avt, (caddr_t)uap->par,
- sizeof (avt));
- if (u.u_error)
- return;
- }
- if (uap->chi) {
- getvtimes(&u.u_cru, &avt);
- u.u_error = copyout((caddr_t)&avt, (caddr_t)uap->chi,
- sizeof (avt));
- if (u.u_error)
- return;
- }
-}
-
-getvtimes(aru, avt)
- register struct rusage *aru;
- register struct vtimes *avt;
-{
-
- avt->vm_utime = scale60(&aru->ru_utime);
- avt->vm_stime = scale60(&aru->ru_stime);
- avt->vm_idsrss = ((aru->ru_idrss+aru->ru_isrss) / hz) * 60;
- avt->vm_ixrss = aru->ru_ixrss / hz * 60;
- avt->vm_maxrss = aru->ru_maxrss;
- avt->vm_majflt = aru->ru_majflt;
- avt->vm_minflt = aru->ru_minflt;
- avt->vm_nswap = aru->ru_nswap;
- avt->vm_inblk = aru->ru_inblock;
- avt->vm_oublk = aru->ru_oublock;
-}
-
-ovlimit()
-{
-
- u.u_error = EACCES;
-}
-
-okill()
-{
- register struct a {
- int pid;
- int signo;
- } *uap = (struct a *)u.u_ap;
-
- u.u_error = kill1(uap->signo < 0,
- uap->signo < 0 ? -uap->signo : uap->signo, uap->pid);
-}
-
-ossig()
-{
- register int (*f)();
- struct a {
- int signo;
- int (*fun)();
- } *uap;
- register struct proc *p = u.u_procp;
- register a;
- long sigmask;
-
- uap = (struct a *)u.u_ap;
- a = uap->signo & SIGNUMMASK;
- f = uap->fun;
- if (a<=0 || a>=NSIG || a==SIGKILL || a==SIGSTOP ||
- a==SIGCONT && (f == SIG_IGN || f == SIG_HOLD)) {
- u.u_error = EINVAL;
- return;
- }
- if ((uap->signo &~ SIGNUMMASK) || (f != SIG_DFL && f != SIG_IGN &&
- SIGISDEFER(f)))
- u.u_procp->p_flag |= SNUSIG;
- /*
- * Don't clobber registers if we are to simulate
- * a ret+rti.
- */
- if ((uap->signo&SIGDORTI) == 0)
- u.u_r.r_val1 = (int)u.u_signal[a];
- /*
- * Change setting atomically.
- */
- (void) spl6();
- sigmask = 1L << (a-1);
- if (f == SIG_IGN)
- p->p_sig &= ~sigmask; /* never to be seen again */
- u.u_signal[a] = f;
- if (f != SIG_DFL && f != SIG_IGN && f != SIG_HOLD)
- f = SIG_CATCH;
- if ((int)f & 1)
- p->p_siga0 |= sigmask;
- else
- p->p_siga0 &= ~sigmask;
- if ((int)f & 2)
- p->p_siga1 |= sigmask;
- else
- p->p_siga1 &= ~sigmask;
- (void) spl0();
- /*
- * Now handle options.
- */
- if (uap->signo & SIGDOPAUSE) {
- /*
- * Simulate a PDP11 style wait instrution which
- * atomically lowers priority, enables interrupts
- * and hangs.
- */
- opause();
- /*NOTREACHED*/
- }
- if (uap->signo & SIGDORTI)
- u.u_eosys = SIMULATERTI;
projects / unix-history / blobdiff