/*      $NetBSD: netbsd32_sem.c,v 1.12 2019/02/03 03:20:23 thorpej Exp $        */

/*
 *  Copyright (c) 2006 The NetBSD Foundation.
 *  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.
 *
 *  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: netbsd32_sem.c,v 1.12 2019/02/03 03:20:23 thorpej Exp $");

#include <sys/types.h>
#include <sys/param.h>
#include <sys/systm.h>
#include <sys/kernel.h>
#include <sys/dirent.h>
#include <sys/condvar.h>
#include <sys/ksem.h>
#include <sys/mount.h>
#include <sys/proc.h>
#include <sys/syscallargs.h>

#include <compat/netbsd32/netbsd32.h>
#include <compat/netbsd32/netbsd32_syscallargs.h>
#include <compat/netbsd32/netbsd32_conv.h>

static int
netbsd32_ksem_copyin(const void *src, void *dst, size_t size)
{
        intptr_t *argp = dst;
        netbsd32_intptr_t arg32;
        int error;

        KASSERT(size == sizeof(intptr_t));

        if ((error = copyin(src, &arg32, sizeof(arg32))) != 0)
                return error;
        *argp = arg32;
        return 0;
}

static int
netbsd32_ksem_copyout(const void *src, void *dst, size_t size)
{
        const intptr_t *idp = src;
        netbsd32_intptr_t id32, *outidp = dst;

        KASSERT(size == sizeof(intptr_t));

        /* Returning a kernel pointer to userspace sucks badly :-( */
        /* (Luckily, it's not actually a pointer. --thorpej */
        id32 = (netbsd32_intptr_t)*idp;
        return copyout(&id32, outidp, sizeof(id32));
}

int
netbsd32__ksem_init(struct lwp *l, const struct netbsd32__ksem_init_args *uap, register_t *retval)
{
        /* {
                syscallarg(unsigned int) value;
                syscallarg(netbsd32_semidp_t) idp;
        } */

        return do_ksem_init(l, SCARG(uap, value),
            SCARG_P32(uap, idp), netbsd32_ksem_copyin, netbsd32_ksem_copyout);
}

int
netbsd32__ksem_open(struct lwp *l, const struct netbsd32__ksem_open_args *uap, register_t *retval)
{
        /* {
                syscallarg(const netbsd32_charp) name;
                syscallarg(int) oflag;
                syscallarg(mode_t) mode;
                syscallarg(unsigned int) value;
                syscallarg(netbsd32_semidp_t) idp;
        } */

        return do_ksem_open(l, SCARG_P32(uap, name),
            SCARG(uap, oflag), SCARG(uap, mode), SCARG(uap, value),
            SCARG_P32(uap, idp), netbsd32_ksem_copyout);
}

int
netbsd32__ksem_unlink(struct lwp *l, const struct netbsd32__ksem_unlink_args *uap, register_t *retval)
{
        /* {
                syscallarg(const netbsd32_charp) name;
        } */
        struct sys__ksem_unlink_args ua;

        NETBSD32TOP_UAP(name, const char);
        return sys__ksem_unlink(l, &ua, retval);
}

int
netbsd32__ksem_close(struct lwp *l, const struct netbsd32__ksem_close_args *uap, register_t *retval)
{
        /* {
                syscallarg(netbsd32_intptr_t) id;
        } */
        struct sys__ksem_close_args ua;

        NETBSD32TOX_UAP(id, intptr_t);
        return sys__ksem_close(l, &ua, retval);
}

int
netbsd32__ksem_post(struct lwp *l, const struct netbsd32__ksem_post_args *uap, register_t *retval)
{
        /* {
                syscallarg(netbsd32_intptr_t) id;
        } */
        struct sys__ksem_post_args ua;

        NETBSD32TOX_UAP(id, intptr_t);
        return sys__ksem_post(l, &ua, retval);
}

int
netbsd32__ksem_wait(struct lwp *l, const struct netbsd32__ksem_wait_args *uap, register_t *retval)
{
        /* {
                syscallarg(netbsd32_intptr_t) id;
        } */

        return do_ksem_wait(l, SCARG(uap, id), false, NULL);
}

int
netbsd32__ksem_trywait(struct lwp *l, const struct netbsd32__ksem_trywait_args *uap, register_t *retval)
{
        /* {
                syscallarg(netbsd32_intptr_t) id;
        } */

        return do_ksem_wait(l, SCARG(uap, id), true, NULL);
}

int
netbsd32__ksem_timedwait(struct lwp *l, const struct netbsd32__ksem_timedwait_args *uap,
    register_t *retval)
{
        /* {
                intptr_t id;
                const netbsd32_timespecp_t abstime;
        } */
        struct netbsd32_timespec ts32;
        struct timespec ts;
        intptr_t id;
        int error;

        id = SCARG(uap, id);

        error = copyin(SCARG_P32(uap, abstime), &ts32, sizeof(ts32));
        if (error != 0)
                return error;
        netbsd32_to_timespec(&ts32, &ts);

        if (ts.tv_sec < 0 || ts.tv_nsec < 0 || ts.tv_nsec >= 1000000000)
                return EINVAL;

        error = do_ksem_wait(l, id, false, &ts);
        if (error == EWOULDBLOCK)
                error = ETIMEDOUT;
        return error;
}

int
netbsd32__ksem_destroy(struct lwp *l, const struct netbsd32__ksem_destroy_args *uap, register_t *retval)
{
        /* {
                syscallarg(netbsd32_intptr_t) id;
        } */
        struct sys__ksem_destroy_args ua;

        NETBSD32TOX_UAP(id, intptr_t);
        return sys__ksem_destroy(l, &ua, retval);
}

int
netbsd32__ksem_getvalue(struct lwp *l, const struct netbsd32__ksem_getvalue_args *uap, register_t *retval)
{
        /* {
                syscallarg(netbsd32_intptr_t) id;
                syscallarg(netbsd32_intp) value;
        } */
        struct sys__ksem_getvalue_args ua;

        NETBSD32TOX_UAP(id, intptr_t);
        NETBSD32TOP_UAP(value, unsigned int);
        return sys__ksem_getvalue(l, &ua, retval);
}