/*      $NetBSD: linux_time.c,v 1.42 2021/09/19 23:51:37 thorpej Exp $ */

/*-
* Copyright (c) 2001, 2020 The NetBSD Foundation, Inc.
* All rights reserved.
*
* This code is derived from software contributed to The NetBSD Foundation
* by Emmanuel Dreyfus, and by Jason R. Thorpe.
*
* 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.
*
* 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/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: linux_time.c,v 1.42 2021/09/19 23:51:37 thorpej Exp $");

#include <sys/param.h>
#include <sys/ucred.h>
#include <sys/kauth.h>
#include <sys/mount.h>
#include <sys/signal.h>
#include <sys/stdint.h>
#include <sys/time.h>
#include <sys/timerfd.h>
#include <sys/systm.h>
#include <sys/sched.h>
#include <sys/syscallargs.h>
#include <sys/lwp.h>
#include <sys/proc.h>

#include <compat/linux/common/linux_types.h>
#include <compat/linux/common/linux_fcntl.h>
#include <compat/linux/common/linux_ioctl.h>
#include <compat/linux/common/linux_signal.h>
#include <compat/linux/common/linux_sigevent.h>
#include <compat/linux/common/linux_machdep.h>
#include <compat/linux/common/linux_sched.h>
#include <compat/linux/common/linux_ipc.h>
#include <compat/linux/common/linux_sem.h>

#include <compat/linux/linux_syscallargs.h>

#include <compat/common/compat_util.h>

CTASSERT(LINUX_TIMER_ABSTIME == TIMER_ABSTIME);

/*
* Linux keeps track of a system timezone in the kernel. It is readen
* by gettimeofday and set by settimeofday. This emulates this behavior
* See linux/kernel/time.c
*/
struct timezone linux_sys_tz;

int
linux_sys_gettimeofday(struct lwp *l, const struct linux_sys_gettimeofday_args *uap, register_t *retval)
{
       /* {
               syscallarg(struct timeval50 *) tz;
               syscallarg(struct timezone *) tzp;
       } */
       int error = 0;

       if (SCARG(uap, tp)) {
               error = compat_50_sys_gettimeofday(l, (const void *)uap, retval);
               if (error)
                       return (error);
       }

       if (SCARG(uap, tzp)) {
               error = copyout(&linux_sys_tz, SCARG(uap, tzp), sizeof(linux_sys_tz));
               if (error)
                       return (error);
  }

       return (0);
}

int
linux_sys_settimeofday(struct lwp *l, const struct linux_sys_settimeofday_args *uap, register_t *retval)
{
       /* {
               syscallarg(struct timeval50 *) tp;
               syscallarg(struct timezone *) tzp;
       } */
       int error = 0;

       if (SCARG(uap, tp)) {
               error = compat_50_sys_settimeofday(l, (const void *)uap, retval);
               if (error)
                       return (error);
       }

       if (SCARG(uap, tzp)) {
               if (kauth_authorize_generic(kauth_cred_get(),
                       KAUTH_GENERIC_ISSUSER, NULL) != 0)
                       return (EPERM);
               error = copyin(SCARG(uap, tzp), &linux_sys_tz, sizeof(linux_sys_tz));
               if (error)
                       return (error);
       }

       return (0);
}

void
native_to_linux_timespec(struct linux_timespec *ltp, const struct timespec *ntp)
{
       memset(ltp, 0, sizeof(*ltp));
       ltp->tv_sec = ntp->tv_sec;
       ltp->tv_nsec = ntp->tv_nsec;
}

void
linux_to_native_timespec(struct timespec *ntp, const struct linux_timespec *ltp)
{
       memset(ntp, 0, sizeof(*ntp));
       ntp->tv_sec = ltp->tv_sec;
       ntp->tv_nsec = ltp->tv_nsec;
}

void
native_to_linux_itimerspec(struct linux_itimerspec *litp,
   const struct itimerspec *nitp)
{
       memset(litp, 0, sizeof(*litp));
       native_to_linux_timespec(&litp->it_interval, &nitp->it_interval);
       native_to_linux_timespec(&litp->it_value, &nitp->it_value);
}

void
linux_to_native_itimerspec(struct itimerspec *nitp,
   const struct linux_itimerspec *litp)
{
       memset(nitp, 0, sizeof(*nitp));
       linux_to_native_timespec(&nitp->it_interval, &litp->it_interval);
       linux_to_native_timespec(&nitp->it_value, &litp->it_value);
}

int
linux_sys_nanosleep(struct lwp *l, const struct linux_sys_nanosleep_args *uap,
   register_t *retval)
{
       /* {
               syscallarg(struct linux_timespec *) rqtp;
               syscallarg(struct linux_timespec *) rmtp;
       } */
       struct timespec rqts, rmts;
       struct linux_timespec lrqts, lrmts;
       int error, error1;

       error = copyin(SCARG(uap, rqtp), &lrqts, sizeof(lrqts));
       if (error != 0)
               return error;
       linux_to_native_timespec(&rqts, &lrqts);

       error = nanosleep1(l, CLOCK_MONOTONIC, 0, &rqts,
           SCARG(uap, rmtp) ? &rmts : NULL);
       if (SCARG(uap, rmtp) == NULL || (error != 0 && error != EINTR))
               return error;

       native_to_linux_timespec(&lrmts, &rmts);
       error1 = copyout(&lrmts, SCARG(uap, rmtp), sizeof(lrmts));
       return error1 ? error1 : error;
}

int
linux_to_native_clockid(clockid_t *n, clockid_t l)
{
       switch (l) {
       case LINUX_CLOCK_REALTIME:
               *n = CLOCK_REALTIME;
               break;
       case LINUX_CLOCK_MONOTONIC:
               *n = CLOCK_MONOTONIC;
               break;
       case LINUX_CLOCK_PROCESS_CPUTIME_ID:
               *n = CLOCK_PROCESS_CPUTIME_ID /* self */;
               break;
       case LINUX_CLOCK_THREAD_CPUTIME_ID:
               *n = CLOCK_THREAD_CPUTIME_ID /* self */;
               break;

       case LINUX_CLOCK_MONOTONIC_RAW:
       case LINUX_CLOCK_REALTIME_COARSE:
       case LINUX_CLOCK_MONOTONIC_COARSE:
       case LINUX_CLOCK_BOOTTIME:
       case LINUX_CLOCK_BOOTTIME_ALARM:
       case LINUX_CLOCK_REALTIME_ALARM:
       default:
               return ENOTSUP;
       }

       return 0;
}

int
linux_sys_clock_gettime(struct lwp *l, const struct linux_sys_clock_gettime_args *uap, register_t *retval)
{
       /* {
               syscallarg(clockid_t) which;
               syscallarg(struct linux_timespec *)tp;
       } */
       int error;
       clockid_t id;
       struct timespec ts;
       struct linux_timespec lts;

       error = linux_to_native_clockid(&id, SCARG(uap, which));
       if (error != 0)
               return error;

       error = clock_gettime1(id, &ts);
       if (error != 0)
               return error;

       native_to_linux_timespec(&lts, &ts);
       return copyout(&lts, SCARG(uap, tp), sizeof lts);
}

int
linux_sys_clock_settime(struct lwp *l, const struct linux_sys_clock_settime_args *uap, register_t *retval)
{
       /* {
               syscallarg(clockid_t) which;
               syscallarg(struct linux_timespec *)tp;
       } */
       struct timespec ts;
       struct linux_timespec lts;
       clockid_t id;
       int error;

       error = linux_to_native_clockid(&id, SCARG(uap, which));
       if (error != 0)
               return error;

       error = copyin(SCARG(uap, tp), &lts, sizeof lts);
       if (error != 0)
               return error;

       linux_to_native_timespec(&ts, &lts);

       return clock_settime1(l->l_proc, id, &ts, true);
}

int
linux_sys_clock_getres(struct lwp *l, const struct linux_sys_clock_getres_args *uap, register_t *retval)
{
       /* {
               syscallarg(clockid_t) which;
               syscallarg(struct linux_timespec *)tp;
       } */
       struct timespec ts;
       struct linux_timespec lts;
       int error;
       clockid_t nwhich = 0;   /* XXX: GCC */

       error = linux_to_native_clockid(&nwhich, SCARG(uap, which));
       if (error != 0 || SCARG(uap, tp) == NULL)
               return error;

       error = clock_getres1(nwhich, &ts);
       if (error != 0)
               return error;

       native_to_linux_timespec(&lts, &ts);
       return copyout(&lts, SCARG(uap, tp), sizeof lts);
}

int
linux_sys_clock_nanosleep(struct lwp *l, const struct linux_sys_clock_nanosleep_args *uap, register_t *retval)
{
       /* {
               syscallarg(clockid_t) which;
               syscallarg(int) flags;
               syscallarg(struct linux_timespec) *rqtp;
               syscallarg(struct linux_timespec) *rmtp;
       } */
       struct linux_timespec lrqts, lrmts;
       struct timespec rqts, rmts;
       int error, error1, flags;
       clockid_t nwhich;

       flags = SCARG(uap, flags);
       if (flags & ~TIMER_ABSTIME) {
               return EINVAL;
       }

       error = linux_to_native_clockid(&nwhich, SCARG(uap, which));
       if (error != 0)
               return error;

       error = copyin(SCARG(uap, rqtp), &lrqts, sizeof lrqts);
       if (error != 0)
               return error;

       linux_to_native_timespec(&rqts, &lrqts);

       error = nanosleep1(l, nwhich, flags, &rqts,
           SCARG(uap, rmtp) ? &rmts : NULL);
       if (SCARG(uap, rmtp) == NULL || (error != 0 && error != EINTR))
               return error;

       native_to_linux_timespec(&lrmts, &rmts);
       error1 = copyout(&lrmts, SCARG(uap, rmtp), sizeof lrmts);
       return error1 ? error1 : error;
}

int
linux_to_native_timer_create_clockid(clockid_t *nid, clockid_t lid)
{
       clockid_t id;
       int error;

       error = linux_to_native_clockid(&id, lid);
       if (error == 0) {
               /*
                * We can't create a timer with every sort of clock ID
                * that the system understands, so filter them out.
                *
                * Map CLOCK_PROCESS_CPUTIME_ID to CLOCK_VIRTUAL.
                * We can't handle CLOCK_THREAD_CPUTIME_ID.
                */
               switch (id) {
               case CLOCK_REALTIME:
               case CLOCK_MONOTONIC:
                       break;

               case CLOCK_PROCESS_CPUTIME_ID:
                       id = CLOCK_VIRTUAL;
                       break;

               default:
                       return ENOTSUP;
               }
               *nid = id;
       }

       return error;
}

int
linux_sys_timer_create(struct lwp *l,
   const struct linux_sys_timer_create_args *uap, register_t *retval)
{
       /* {
               syscallarg(clockid_t) clockid;
               syscallarg(struct linux_sigevent *) evp;
               syscallarg(timer_t *) timerid;
       } */
       clockid_t id;
       int error;

       error = linux_to_native_timer_create_clockid(&id, SCARG(uap, clockid));
       if (error == 0) {
               error = timer_create1(SCARG(uap, timerid), id,
                   (void *)SCARG(uap, evp), linux_sigevent_copyin, l);
       }

       return error;
}

int
linux_sys_timer_settime(struct lwp *l,
   const struct linux_sys_timer_settime_args *uap, register_t *retval)
{
       /* {
               syscallarg(timer_t) timerid;
               syscallarg(int) flags;
               syscallarg(const struct linux_itimerspec *) tim;
               syscallarg(struct linux_itimerspec *) otim;
       } */
       struct itimerspec value, ovalue, *ovp = NULL;
       struct linux_itimerspec tim, otim;
       int error;

       error = copyin(SCARG(uap, tim), &tim, sizeof(tim));
       if (error) {
               return error;
       }
       linux_to_native_itimerspec(&value, &tim);

       if (SCARG(uap, otim)) {
               ovp = &ovalue;
       }

       if (SCARG(uap, flags) & ~TIMER_ABSTIME) {
               return EINVAL;
       }

       error = dotimer_settime(SCARG(uap, timerid), &value, ovp,
           SCARG(uap, flags), l->l_proc);
       if (error) {
               return error;
       }

       if (ovp) {
               native_to_linux_itimerspec(&otim, ovp);
               error = copyout(&otim, SCARG(uap, otim), sizeof(otim));
       }

       return error;
}

int
linux_sys_timer_gettime(struct lwp *l,
   const struct linux_sys_timer_gettime_args *uap, register_t *retval)
{
       /* {
               syscallarg(timer_t) timerid;
               syscallarg(struct linux_itimerspec *) tim;
       } */
       struct itimerspec its;
       struct linux_itimerspec lits;
       int error;

       error = dotimer_gettime(SCARG(uap, timerid), l->l_proc, &its);
       if (error == 0) {
               native_to_linux_itimerspec(&lits, &its);
               error = copyout(&lits, SCARG(uap, tim), sizeof(lits));
       }

       return error;
}

/*
* timer_gettoverrun(2) and timer_delete(2) are handled directly
* by the native calls.
*/

#define LINUX_TFD_TIMER_ABSTIME         0x0001
#define LINUX_TFD_TIMER_CANCEL_ON_SET   0x0002
#define LINUX_TFD_CLOEXEC               LINUX_O_CLOEXEC
#define LINUX_TFD_NONBLOCK              LINUX_O_NONBLOCK

int
linux_sys_timerfd_create(struct lwp *l,
   const struct linux_sys_timerfd_create_args *uap, register_t *retval)
{
       /* {
               syscallarg(clockid_t) clock_id;
               syscallarg(int) flags;
       } */
       int nflags = 0;
       clockid_t id;
       int error;

       error = linux_to_native_clockid(&id, SCARG(uap, clock_id));
       if (error) {
               return error;
       }

       if (SCARG(uap, flags) & ~(LINUX_TFD_CLOEXEC | LINUX_TFD_NONBLOCK)) {
               return EINVAL;
       }
       if (SCARG(uap, flags) & LINUX_TFD_CLOEXEC) {
               nflags |= TFD_CLOEXEC;
       }
       if (SCARG(uap, flags) & LINUX_TFD_NONBLOCK) {
               nflags |= TFD_NONBLOCK;
       }

       return do_timerfd_create(l, id, nflags, retval);
}

int
linux_sys_timerfd_gettime(struct lwp *l,
   const struct linux_sys_timerfd_gettime_args *uap, register_t *retval)
{
       /* {
               syscallarg(int) fd;
               syscallarg(struct linux_itimerspec *) tim;
       } */
       struct itimerspec its;
       struct linux_itimerspec lits;
       int error;

       error = do_timerfd_gettime(l, SCARG(uap, fd), &its, retval);
       if (error == 0) {
               native_to_linux_itimerspec(&lits, &its);
               error = copyout(&lits, SCARG(uap, tim), sizeof(lits));
       }

       return error;
}

int
linux_to_native_timerfd_settime_flags(int *nflagsp, int lflags)
{
       int nflags = 0;

       if (lflags & ~(LINUX_TFD_TIMER_ABSTIME |
                      LINUX_TFD_TIMER_CANCEL_ON_SET)) {
               return EINVAL;
       }
       if (lflags & LINUX_TFD_TIMER_ABSTIME) {
               nflags |= TFD_TIMER_ABSTIME;
       }
       if (lflags & LINUX_TFD_TIMER_CANCEL_ON_SET) {
               nflags |= TFD_TIMER_CANCEL_ON_SET;
       }

       *nflagsp = nflags;

       return 0;
}

int
linux_sys_timerfd_settime(struct lwp *l,
   const struct linux_sys_timerfd_settime_args *uap, register_t *retval)
{
       /* {
               syscallarg(int) fd;
               syscallarg(int) flags;
               syscallarg(const struct linux_itimerspec *) tim;
               syscallarg(struct linux_itimerspec *) otim;
       } */
       struct itimerspec nits, oits, *oitsp = NULL;
       struct linux_itimerspec lits;
       int nflags;
       int error;

       error = copyin(SCARG(uap, tim), &lits, sizeof(lits));
       if (error) {
               return error;
       }
       linux_to_native_itimerspec(&nits, &lits);

       error = linux_to_native_timerfd_settime_flags(&nflags,
           SCARG(uap, flags));
       if (error) {
               return error;
       }

       if (SCARG(uap, otim)) {
               oitsp = &oits;
       }

       error = do_timerfd_settime(l, SCARG(uap, fd), nflags,
           &nits, oitsp, retval);
       if (error == 0 && oitsp != NULL) {
               native_to_linux_itimerspec(&lits, oitsp);
               error = copyout(&lits, SCARG(uap, otim), sizeof(lits));
       }

       return error;
}

#define LINUX_TFD_IOC_SET_TICKS         _LINUX_IOW('T', 0, uint64_t)

int
linux_ioctl_timerfd(struct lwp *l, const struct linux_sys_ioctl_args *uap,
   register_t *retval)
{
       /* {
               syscallarg(int) fd;
               syscallarg(u_long) com;
               syscallarg(void *) data;
       } */
       struct sys_ioctl_args ua;

       SCARG(&ua, fd) = SCARG(uap, fd);
       SCARG(&ua, data) = SCARG(uap, data);

       switch (SCARG(uap, com)) {
       case LINUX_TFD_IOC_SET_TICKS:
               SCARG(&ua, com) = TFD_IOC_SET_TICKS;
               break;

       default:
               return EINVAL;
       }

       return sys_ioctl(l, (const void *)&ua, retval);
}

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.