/*      $NetBSD: netbsd32_compat_14_sysv.c,v 1.4 2021/01/19 03:20:13 simonb Exp $       */

/*
 * Copyright (c) 1999 Eduardo E. Horvath
 * 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.
 * 3. The name of the author may not be used to endorse or promote products
 *    derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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_compat_14_sysv.c,v 1.4 2021/01/19 03:20:13 simonb Exp $");

#ifdef _KERNEL_OPT
#include "opt_sysv.h"
#include "opt_compat_netbsd.h"
#endif

#include <sys/param.h>
#include <sys/ipc.h>
#include <sys/systm.h>
#include <sys/module.h>
#include <sys/signal.h>
#include <sys/proc.h>
#include <sys/mount.h>
#include <sys/msg.h>
#include <sys/sem.h>
#include <sys/shm.h>

#include <sys/syscallargs.h>
#include <sys/syscallvar.h>

#include <compat/netbsd32/netbsd32.h>
#include <compat/netbsd32/netbsd32_syscall.h>
#include <compat/netbsd32/netbsd32_syscallargs.h>
#include <compat/sys/siginfo.h>
#include <compat/sys/shm.h>

#if defined(COMPAT_14)

#if defined(SYSVMSG)
static inline void
netbsd32_ipc_perm14_to_native(struct netbsd32_ipc_perm14 *operm, struct ipc_perm *perm)
{

#define CVT(x)  perm->x = operm->x
        CVT(uid);
        CVT(gid);
        CVT(cuid);
        CVT(cgid);
        CVT(mode);
#undef CVT
}

static inline void
native_to_netbsd32_ipc_perm14(struct ipc_perm *perm, struct netbsd32_ipc_perm14 *operm)
{

        memset(operm, 0, sizeof *operm);
#define CVT(x)  operm->x = perm->x
        CVT(uid);
        CVT(gid);
        CVT(cuid);
        CVT(cgid);
        CVT(mode);
#undef CVT

        /*
         * Not part of the API, but some programs might look at it.
         */
        operm->seq = perm->_seq;
        operm->key = (key_t)perm->_key;
}

static inline void
netbsd32_msqid_ds14_to_native(struct netbsd32_msqid_ds14 *omsqbuf, struct msqid_ds *msqbuf)
{

        netbsd32_ipc_perm14_to_native(&omsqbuf->msg_perm, &msqbuf->msg_perm);

#define CVT(x)  msqbuf->x = omsqbuf->x
        CVT(msg_qnum);
        CVT(msg_qbytes);
        CVT(msg_lspid);
        CVT(msg_lrpid);
        CVT(msg_stime);
        CVT(msg_rtime);
        CVT(msg_ctime);
#undef CVT
}

static inline void
native_to_netbsd32_msqid_ds14(struct msqid_ds *msqbuf, struct netbsd32_msqid_ds14 *omsqbuf)
{

        memset(omsqbuf, 0, sizeof *omsqbuf);
        native_to_netbsd32_ipc_perm14(&msqbuf->msg_perm, &omsqbuf->msg_perm);

#define CVT(x)  omsqbuf->x = msqbuf->x
        CVT(msg_qnum);
        CVT(msg_qbytes);
        CVT(msg_lspid);
        CVT(msg_lrpid);
        CVT(msg_stime);
        CVT(msg_rtime);
        CVT(msg_ctime);
#undef CVT

        /*
         * Not part of the API, but some programs might look at it.
         */
        omsqbuf->msg_cbytes = msqbuf->_msg_cbytes;
}
#endif

#if defined(SYSVSEM)
static inline void
netbsd32_semid_ds14_to_native(struct netbsd32_semid_ds14 *osembuf, struct semid_ds *sembuf)
{

        netbsd32_ipc_perm14_to_native(&osembuf->sem_perm, &sembuf->sem_perm);

#define CVT(x)  sembuf->x = osembuf->x
        CVT(sem_nsems);
        CVT(sem_otime);
        CVT(sem_ctime);
#undef CVT
}

static inline void
native_to_netbsd32_semid_ds14(struct semid_ds *sembuf, struct netbsd32_semid_ds14 *osembuf)
{

        memset(osembuf, 0, sizeof *osembuf);
        native_to_netbsd32_ipc_perm14(&sembuf->sem_perm, &osembuf->sem_perm);

#define CVT(x)  osembuf->x = sembuf->x
        CVT(sem_nsems);
        CVT(sem_otime);
        CVT(sem_ctime);
#undef CVT
}

static inline void
netbsd32_shmid_ds14_to_native(struct netbsd32_shmid_ds14 *oshmbuf, struct shmid_ds *shmbuf)
{

        netbsd32_ipc_perm14_to_native(&oshmbuf->shm_perm, &shmbuf->shm_perm);

#define CVT(x)  shmbuf->x = oshmbuf->x
        CVT(shm_segsz);
        CVT(shm_lpid);
        CVT(shm_cpid);
        CVT(shm_nattch);
        CVT(shm_atime);
        CVT(shm_dtime);
        CVT(shm_ctime);
#undef CVT
}

static inline void
native_to_netbsd32_shmid_ds14(struct shmid_ds *shmbuf, struct netbsd32_shmid_ds14 *oshmbuf)
{

        memset(oshmbuf, 0, sizeof *oshmbuf);
        native_to_netbsd32_ipc_perm14(&shmbuf->shm_perm, &oshmbuf->shm_perm);

#define CVT(x)  oshmbuf->x = shmbuf->x
        CVT(shm_segsz);
        CVT(shm_lpid);
        CVT(shm_cpid);
        CVT(shm_nattch);
        CVT(shm_atime);
        CVT(shm_dtime);
        CVT(shm_ctime);
#undef CVT
}

/*
 * the compat_14 system calls
 */
int
compat_14_netbsd32_msgctl(struct lwp *l, const struct compat_14_netbsd32_msgctl_args *uap, register_t *retval)
{
        /* {
                syscallarg(int) msqid;
                syscallarg(int) cmd;
                syscallarg(struct msqid_ds14 *) buf;
        } */
        struct msqid_ds msqbuf;
        struct netbsd32_msqid_ds14 omsqbuf;
        int cmd, error;

        cmd = SCARG(uap, cmd);

        if (cmd == IPC_SET) {
                error = copyin(SCARG_P32(uap, buf),
                    &omsqbuf, sizeof(omsqbuf));
                if (error)
                        return error;
                netbsd32_msqid_ds14_to_native(&omsqbuf, &msqbuf);
        }

        error = msgctl1(l, SCARG(uap, msqid), cmd,
            (cmd == IPC_SET || cmd == IPC_STAT) ? &msqbuf : NULL);

        if (error == 0 && cmd == IPC_STAT) {
                native_to_netbsd32_msqid_ds14(&msqbuf, &omsqbuf);
                error = copyout(&omsqbuf,
                    SCARG_P32(uap, buf), sizeof(omsqbuf));
        }

        return error;
}
#endif

#if defined(SYSVSEM)
int
compat_14_netbsd32___semctl(struct lwp *l, const struct compat_14_netbsd32___semctl_args *uap, register_t *retval)
{
        /* {
                syscallarg(int) semid;
                syscallarg(int) semnum;
                syscallarg(int) cmd;
                syscallarg(union __semun *) arg;
        } */
        union __semun arg;
        struct semid_ds sembuf;
        struct netbsd32_semid_ds14 osembuf;
        int cmd, error;
        void *pass_arg = NULL;

        cmd = SCARG(uap, cmd);

        switch (cmd) {
        case IPC_SET:
        case IPC_STAT:
                pass_arg = &sembuf;
                break;

        case GETALL:
        case SETVAL:
        case SETALL:
                pass_arg = &arg;
                break;
        }

        if (pass_arg != NULL) {
                error = copyin(NETBSD32IPTR64(SCARG(uap, arg)), &arg,
                    sizeof(arg));
                if (error)
                        return error;
                if (cmd == IPC_SET) {
                        error = copyin(arg.buf, &osembuf, sizeof(osembuf));
                        if (error)
                                return error;
                        netbsd32_semid_ds14_to_native(&osembuf, &sembuf);
                }
        }

        error = semctl1(l, SCARG(uap, semid), SCARG(uap, semnum), cmd,
            pass_arg, retval);

        if (error == 0 && cmd == IPC_STAT) {
                native_to_netbsd32_semid_ds14(&sembuf, &osembuf);
                error = copyout(&osembuf, arg.buf, sizeof(osembuf));
        }

        return error;
}
#endif

#if defined(SYSVSHM)
int
compat_14_netbsd32_shmctl(struct lwp *l, const struct compat_14_netbsd32_shmctl_args *uap, register_t *retval)
{
        /* {
                syscallarg(int) shmid;
                syscallarg(int) cmd;
                syscallarg(struct netbsd32_shmid_ds14 *) buf;
        } */
        struct shmid_ds shmbuf;
        struct netbsd32_shmid_ds14 oshmbuf;
        int cmd, error;

        cmd = SCARG(uap, cmd);

        if (cmd == IPC_SET) {
                error = copyin(SCARG_P32(uap, buf), &oshmbuf, sizeof(oshmbuf));
                if (error)
                        return error;
                netbsd32_shmid_ds14_to_native(&oshmbuf, &shmbuf);
        }

        error = shmctl1(l, SCARG(uap, shmid), cmd,
            (cmd == IPC_SET || cmd == IPC_STAT) ? &shmbuf : NULL);

        if (error == 0 && cmd == IPC_STAT) {
                native_to_netbsd32_shmid_ds14(&shmbuf, &oshmbuf);
                error = copyout(&oshmbuf, SCARG_P32(uap, buf), sizeof(oshmbuf));
        }

        return error;
}
#endif

#define REQ1    "sysv_ipc,compat_sysv_14,"
#define REQ2    "compat_netbsd32,compat_netbsd32_sysvipc,"
#define REQ3    "compat_netbsd32_sysvipc_50"  

#define _PKG_ENTRY(name)        \
        { NETBSD32_SYS_ ## name, 0, (sy_call_t *)name }

static const struct syscall_package compat_sysvipc_14_syscalls[] = {
#if defined(SYSVSEM)
        _PKG_ENTRY(compat_14_netbsd32___semctl),
#endif
#if defined(SYSVSHM)
        _PKG_ENTRY(compat_14_netbsd32_shmctl),
#endif
#if defined(SYSVMSG)
        _PKG_ENTRY(compat_14_netbsd32_msgctl),
#endif
        { 0, 0, NULL }
};
 
#define REQ1    "sysv_ipc,compat_sysv_14,"
#define REQ2    "compat_netbsd32,compat_netbsd32_sysvipc,"
#define REQ3    "compat_netbsd32_sysvipc_50"

MODULE(MODULE_CLASS_EXEC, compat_netbsd32_sysvipc_14, REQ1 REQ2 REQ3 );
 
static int
compat_netbsd32_sysvipc_14_modcmd(modcmd_t cmd, void *arg)
{
 
        switch (cmd) {
        case MODULE_CMD_INIT:
                return syscall_establish(&emul_netbsd32,
                    compat_sysvipc_14_syscalls);
 
        case MODULE_CMD_FINI:
                return syscall_disestablish(&emul_netbsd32,
                    compat_sysvipc_14_syscalls);
 
        default:
                return ENOTTY;
        }
}

#endif /* COMPAT_14 */