/* * $FreeBSD$ * Derived from: * $NetBSD: svr4_ipc.c,v 1.7 1998/10/19 22:43:00 tron Exp $ */ /*- * Original copyright: * * Copyright (c) 1995 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. */ /* * Portions of this code have been derived from software contributed * to the FreeBSD Project by Mark Newton. * * Copyright (c) 1999 Mark Newton * 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. * * XXX- This code is presently a no-op on FreeBSD (and isn't compiled due * to preprocessor conditionals). A nice project for a kernel hacking * novice might be to MakeItGo, but I have more important fish to fry * at present. * */ #include #include #include #include #include #include #include #include #include #include #if defined(SYSVMSG) || defined(SYSVSHM) || defined(SYSVSEM) static void svr4_to_bsd_ipc_perm(const struct svr4_ipc_perm *, struct ipc_perm *); static void bsd_to_svr4_ipc_perm(const struct ipc_perm *, struct svr4_ipc_perm *); #endif #ifdef SYSVSEM static void bsd_to_svr4_semid_ds(const struct semid_ds *, struct svr4_semid_ds *); static void svr4_to_bsd_semid_ds(const struct svr4_semid_ds *, struct semid_ds *); static int svr4_setsemun(caddr_t *sgp, union semun **argp, union semun *usp); static int svr4_semop(struct proc *, void *, register_t *); static int svr4_semget(struct proc *, void *, register_t *); static int svr4_semctl(struct proc *, void *, register_t *); #endif #ifdef SYSVMSG static void bsd_to_svr4_msqid_ds(const struct msqid_ds *, struct svr4_msqid_ds *); static void svr4_to_bsd_msqid_ds(const struct svr4_msqid_ds *, struct msqid_ds *); static int svr4_msgsnd(struct proc *, void *, register_t *); static int svr4_msgrcv(struct proc *, void *, register_t *); static int svr4_msgget(struct proc *, void *, register_t *); static int svr4_msgctl(struct proc *, void *, register_t *); #endif #ifdef SYSVSHM static void bsd_to_svr4_shmid_ds(const struct shmid_ds *, struct svr4_shmid_ds *); static void svr4_to_bsd_shmid_ds(const struct svr4_shmid_ds *, struct shmid_ds *); static int svr4_shmat(struct proc *, void *, register_t *); static int svr4_shmdt(struct proc *, void *, register_t *); static int svr4_shmget(struct proc *, void *, register_t *); static int svr4_shmctl(struct proc *, void *, register_t *); #endif #if defined(SYSVMSG) || defined(SYSVSHM) || defined(SYSVSEM) static void svr4_to_bsd_ipc_perm(spp, bpp) const struct svr4_ipc_perm *spp; struct ipc_perm *bpp; { bpp->key = spp->key; bpp->uid = spp->uid; bpp->gid = spp->gid; bpp->cuid = spp->cuid; bpp->cgid = spp->cgid; bpp->mode = spp->mode; bpp->seq = spp->seq; } static void bsd_to_svr4_ipc_perm(bpp, spp) const struct ipc_perm *bpp; struct svr4_ipc_perm *spp; { spp->key = bpp->key; spp->uid = bpp->uid; spp->gid = bpp->gid; spp->cuid = bpp->cuid; spp->cgid = bpp->cgid; spp->mode = bpp->mode; spp->seq = bpp->seq; } #endif #ifdef SYSVSEM static void bsd_to_svr4_semid_ds(bds, sds) const struct semid_ds *bds; struct svr4_semid_ds *sds; { bsd_to_svr4_ipc_perm(&bds->sem_perm, &sds->sem_perm); sds->sem_base = (struct svr4_sem *) bds->sem_base; sds->sem_nsems = bds->sem_nsems; sds->sem_otime = bds->sem_otime; sds->sem_pad1 = bds->sem_pad1; sds->sem_ctime = bds->sem_ctime; sds->sem_pad2 = bds->sem_pad2; } static void svr4_to_bsd_semid_ds(sds, bds) const struct svr4_semid_ds *sds; struct semid_ds *bds; { svr4_to_bsd_ipc_perm(&sds->sem_perm, &bds->sem_perm); bds->sem_base = (struct sem *) bds->sem_base; bds->sem_nsems = sds->sem_nsems; bds->sem_otime = sds->sem_otime; bds->sem_pad1 = sds->sem_pad1; bds->sem_ctime = sds->sem_ctime; bds->sem_pad2 = sds->sem_pad2; } static int svr4_setsemun(sgp, argp, usp) caddr_t *sgp; union semun **argp; union semun *usp; { *argp = stackgap_alloc(sgp, sizeof(union semun)); return copyout((caddr_t)usp, *argp, sizeof(union semun)); } struct svr4_sys_semctl_args { syscallarg(int) what; syscallarg(int) semid; syscallarg(int) semnum; syscallarg(int) cmd; syscallarg(union semun) arg; }; static int svr4_semctl(p, v, retval) struct proc *p; void *v; register_t *retval; { int error; struct svr4_sys_semctl_args *uap = v; struct sys___semctl_args ap; struct svr4_semid_ds ss; struct semid_ds bs, *bsp; caddr_t sg = stackgap_init(); ap.semid = uap->semid; ap.semnum = uap->semnum; switch (uap->cmd) { case SVR4_SEM_GETZCNT: case SVR4_SEM_GETNCNT: case SVR4_SEM_GETPID: case SVR4_SEM_GETVAL: switch (uap->cmd) { case SVR4_SEM_GETZCNT: ap.cmd = GETZCNT; break; case SVR4_SEM_GETNCNT: ap.cmd = GETNCNT; break; case SVR4_SEM_GETPID: ap.cmd = GETPID; break; case SVR4_SEM_GETVAL: ap.cmd = GETVAL; break; } return sys___semctl(p, &ap, retval); case SVR4_SEM_SETVAL: error = svr4_setsemun(&sg, &ap.arg, &uap->arg); if (error) return error; ap.cmd = SETVAL; return sys___semctl(p, &ap, retval); case SVR4_SEM_GETALL: error = svr4_setsemun(&sg, &ap.arg, &uap->arg); if (error) return error; ap.cmd = GETVAL; return sys___semctl(p, &ap, retval); case SVR4_SEM_SETALL: error = svr4_setsemun(&sg, &ap.arg, &uap->arg); if (error) return error; ap.cmd = SETVAL; return sys___semctl(p, &ap, retval); case SVR4_IPC_STAT: ap.cmd = IPC_STAT; bsp = stackgap_alloc(&sg, sizeof(bs)); error = svr4_setsemun(&sg, &ap.arg, (union semun *)&bsp); if (error) return error; if ((error = sys___semctl(p, &ap, retval)) != 0) return error; error = copyin((caddr_t)bsp, (caddr_t)&bs, sizeof(bs)); if (error) return error; bsd_to_svr4_semid_ds(&bs, &ss); return copyout(&ss, uap->arg.buf, sizeof(ss)); case SVR4_IPC_SET: ap.cmd = IPC_SET; bsp = stackgap_alloc(&sg, sizeof(bs)); error = svr4_setsemun(&sg, &ap.arg, (union semun *)&bsp); if (error) return error; error = copyin(uap->arg.buf, (caddr_t) &ss, sizeof ss); if (error) return error; svr4_to_bsd_semid_ds(&ss, &bs); error = copyout(&bs, bsp, sizeof(bs)); if (error) return error; return sys___semctl(p, &ap, retval); case SVR4_IPC_RMID: ap.cmd = IPC_RMID; bsp = stackgap_alloc(&sg, sizeof(bs)); error = svr4_setsemun(&sg, &ap.arg, (union semun *)&bsp); if (error) return error; error = copyin(uap->arg.buf, &ss, sizeof ss); if (error) return error; svr4_to_bsd_semid_ds(&ss, &bs); error = copyout(&bs, bsp, sizeof(bs)); if (error) return error; return sys___semctl(p, &ap, retval); default: return EINVAL; } } struct svr4_sys_semget_args { syscallarg(int) what; syscallarg(svr4_key_t) key; syscallarg(int) nsems; syscallarg(int) semflg; }; static int svr4_semget(p, v, retval) struct proc *p; void *v; register_t *retval; { struct svr4_sys_semget_args *uap = v; struct sys_semget_args ap; ap.key = uap->key; ap.nsems = uap->nsems; ap.semflg = uap->semflg; return sys_semget(p, &ap, retval); } struct svr4_sys_semop_args { syscallarg(int) what; syscallarg(int) semid; syscallarg(struct svr4_sembuf *) sops; syscallarg(u_int) nsops; }; static int svr4_semop(p, v, retval) struct proc *p; void *v; register_t *retval; { struct svr4_sys_semop_args *uap = v; struct sys_semop_args ap; ap.semid = uap->semid; /* These are the same */ ap.sops = (struct sembuf *) uap->sops; ap.nsops = uap->nsops; return sys_semop(p, &ap, retval); } int svr4_sys_semsys(p, v, retval) struct proc *p; void *v; register_t *retval; { struct svr4_sys_semsys_args *uap = v; DPRINTF(("svr4_semsys(%d)\n", uap->what)); switch (uap->what) { case SVR4_semctl: return svr4_semctl(p, v, retval); case SVR4_semget: return svr4_semget(p, v, retval); case SVR4_semop: return svr4_semop(p, v, retval); default: return EINVAL; } } #endif #ifdef SYSVMSG static void bsd_to_svr4_msqid_ds(bds, sds) const struct msqid_ds *bds; struct svr4_msqid_ds *sds; { bsd_to_svr4_ipc_perm(&bds->msg_perm, &sds->msg_perm); sds->msg_first = (struct svr4_msg *) bds->msg_first; sds->msg_last = (struct svr4_msg *) bds->msg_last; sds->msg_cbytes = bds->msg_cbytes; sds->msg_qnum = bds->msg_qnum; sds->msg_qbytes = bds->msg_qbytes; sds->msg_lspid = bds->msg_lspid; sds->msg_lrpid = bds->msg_lrpid; sds->msg_stime = bds->msg_stime; sds->msg_pad1 = bds->msg_pad1; sds->msg_rtime = bds->msg_rtime; sds->msg_pad2 = bds->msg_pad2; sds->msg_ctime = bds->msg_ctime; sds->msg_pad3 = bds->msg_pad3; /* use the padding for the rest of the fields */ { const short *pad = (const short *) bds->msg_pad4; sds->msg_cv = pad[0]; sds->msg_qnum_cv = pad[1]; } } static void svr4_to_bsd_msqid_ds(sds, bds) const struct svr4_msqid_ds *sds; struct msqid_ds *bds; { svr4_to_bsd_ipc_perm(&sds->msg_perm, &bds->msg_perm); bds->msg_first = (struct msg *) sds->msg_first; bds->msg_last = (struct msg *) sds->msg_last; bds->msg_cbytes = sds->msg_cbytes; bds->msg_qnum = sds->msg_qnum; bds->msg_qbytes = sds->msg_qbytes; bds->msg_lspid = sds->msg_lspid; bds->msg_lrpid = sds->msg_lrpid; bds->msg_stime = sds->msg_stime; bds->msg_pad1 = sds->msg_pad1; bds->msg_rtime = sds->msg_rtime; bds->msg_pad2 = sds->msg_pad2; bds->msg_ctime = sds->msg_ctime; bds->msg_pad3 = sds->msg_pad3; /* use the padding for the rest of the fields */ { short *pad = (short *) bds->msg_pad4; pad[0] = sds->msg_cv; pad[1] = sds->msg_qnum_cv; } } struct svr4_sys_msgsnd_args { syscallarg(int) what; syscallarg(int) msqid; syscallarg(void *) msgp; syscallarg(size_t) msgsz; syscallarg(int) msgflg; }; static int svr4_msgsnd(p, v, retval) struct proc *p; void *v; register_t *retval; { struct svr4_sys_msgsnd_args *uap = v; struct sys_msgsnd_args ap; ap.msqid = uap->msqid; ap.msgp = uap->msgp; ap.msgsz = uap->msgsz; ap.msgflg = uap->msgflg; return sys_msgsnd(p, &ap, retval); } struct svr4_sys_msgrcv_args { syscallarg(int) what; syscallarg(int) msqid; syscallarg(void *) msgp; syscallarg(size_t) msgsz; syscallarg(long) msgtyp; syscallarg(int) msgflg; }; static int svr4_msgrcv(p, v, retval) struct proc *p; void *v; register_t *retval; { struct svr4_sys_msgrcv_args *uap = v; struct sys_msgrcv_args ap; ap.msqid = uap->msqid; ap.msgp = uap->msgp; ap.msgsz = uap->msgsz; ap.msgtyp = uap->msgtyp; ap.msgflg = uap->msgflg; return sys_msgrcv(p, &ap, retval); } struct svr4_sys_msgget_args { syscallarg(int) what; syscallarg(svr4_key_t) key; syscallarg(int) msgflg; }; static int svr4_msgget(p, v, retval) struct proc *p; void *v; register_t *retval; { struct svr4_sys_msgget_args *uap = v; struct sys_msgget_args ap; ap.key = uap->key; ap.msgflg = uap->msgflg; return sys_msgget(p, &ap, retval); } struct svr4_sys_msgctl_args { syscallarg(int) what; syscallarg(int) msqid; syscallarg(int) cmd; syscallarg(struct svr4_msqid_ds *) buf; }; static int svr4_msgctl(p, v, retval) struct proc *p; void *v; register_t *retval; { int error; struct svr4_sys_msgctl_args *uap = v; struct sys_msgctl_args ap; struct svr4_msqid_ds ss; struct msqid_ds bs; caddr_t sg = stackgap_init(); ap.msqid = uap->msqid; ap.cmd = uap->cmd; ap.buf = stackgap_alloc(&sg, sizeof(bs)); switch (uap->cmd) { case SVR4_IPC_STAT: ap.cmd = IPC_STAT; if ((error = sys_msgctl(p, &ap, retval)) != 0) return error; error = copyin(&bs, ap.buf, sizeof bs); if (error) return error; bsd_to_svr4_msqid_ds(&bs, &ss); return copyout(&ss, uap->buf, sizeof ss); case SVR4_IPC_SET: ap.cmd = IPC_SET; error = copyin(uap->buf, &ss, sizeof ss); if (error) return error; svr4_to_bsd_msqid_ds(&ss, &bs); error = copyout(&bs, ap.buf, sizeof bs); if (error) return error; return sys_msgctl(p, &ap, retval); case SVR4_IPC_RMID: ap.cmd = IPC_RMID; error = copyin(uap->buf, &ss, sizeof ss); if (error) return error; svr4_to_bsd_msqid_ds(&ss, &bs); error = copyout(&bs, ap.buf, sizeof bs); if (error) return error; return sys_msgctl(p, &ap, retval); default: return EINVAL; } } int svr4_sys_msgsys(p, v, retval) struct proc *p; void *v; register_t *retval; { struct svr4_sys_msgsys_args *uap = v; DPRINTF(("svr4_msgsys(%d)\n", uap->what)); switch (uap->what) { case SVR4_msgsnd: return svr4_msgsnd(p, v, retval); case SVR4_msgrcv: return svr4_msgrcv(p, v, retval); case SVR4_msgget: return svr4_msgget(p, v, retval); case SVR4_msgctl: return svr4_msgctl(p, v, retval); default: return EINVAL; } } #endif #ifdef SYSVSHM static void bsd_to_svr4_shmid_ds(bds, sds) const struct shmid_ds *bds; struct svr4_shmid_ds *sds; { bsd_to_svr4_ipc_perm(&bds->shm_perm, &sds->shm_perm); sds->shm_segsz = bds->shm_segsz; sds->shm_lkcnt = 0; sds->shm_lpid = bds->shm_lpid; sds->shm_cpid = bds->shm_cpid; sds->shm_amp = bds->shm_internal; sds->shm_nattch = bds->shm_nattch; sds->shm_cnattch = 0; sds->shm_atime = bds->shm_atime; sds->shm_pad1 = 0; sds->shm_dtime = bds->shm_dtime; sds->shm_pad2 = 0; sds->shm_ctime = bds->shm_ctime; sds->shm_pad3 = 0; } static void svr4_to_bsd_shmid_ds(sds, bds) const struct svr4_shmid_ds *sds; struct shmid_ds *bds; { svr4_to_bsd_ipc_perm(&sds->shm_perm, &bds->shm_perm); bds->shm_segsz = sds->shm_segsz; bds->shm_lpid = sds->shm_lpid; bds->shm_cpid = sds->shm_cpid; bds->shm_internal = sds->shm_amp; bds->shm_nattch = sds->shm_nattch; bds->shm_atime = sds->shm_atime; bds->shm_dtime = sds->shm_dtime; bds->shm_ctime = sds->shm_ctime; } struct svr4_sys_shmat_args { syscallarg(int) what; syscallarg(int) shmid; syscallarg(void *) shmaddr; syscallarg(int) shmflg; }; static int svr4_shmat(p, v, retval) struct proc *p; void *v; register_t *retval; { struct svr4_sys_shmat_args *uap = v; struct sys_shmat_args ap; ap.shmid = uap->shmid; ap.shmaddr = uap->shmaddr; ap.shmflg = uap->shmflg; return sys_shmat(p, &ap, retval); } struct svr4_sys_shmdt_args { syscallarg(int) what; syscallarg(void *) shmaddr; }; static int svr4_shmdt(p, v, retval) struct proc *p; void *v; register_t *retval; { struct svr4_sys_shmdt_args *uap = v; struct sys_shmdt_args ap; ap.shmaddr = uap->shmaddr; return sys_shmdt(p, &ap, retval); } struct svr4_sys_shmget_args { syscallarg(int) what; syscallarg(key_t) key; syscallarg(int) size; syscallarg(int) shmflg; }; static int svr4_shmget(p, v, retval) struct proc *p; void *v; register_t *retval; { struct svr4_sys_shmget_args *uap = v; struct sys_shmget_args ap; ap.key = uap->key; ap.size = uap->size; ap.shmflg = uap->shmflg; return sys_shmget(p, &ap, retval); } struct svr4_sys_shmctl_args { syscallarg(int) what; syscallarg(int) shmid; syscallarg(int) cmd; syscallarg(struct svr4_shmid_ds *) buf; }; int svr4_shmctl(p, v, retval) struct proc *p; void *v; register_t *retval; { struct svr4_sys_shmctl_args *uap = v; int error; caddr_t sg = stackgap_init(); struct sys_shmctl_args ap; struct shmid_ds bs; struct svr4_shmid_ds ss; ap.shmid = uap->shmid; if (uap->buf != NULL) { ap.buf = stackgap_alloc(&sg, sizeof (struct shmid_ds)); switch (uap->cmd) { case SVR4_IPC_SET: case SVR4_IPC_RMID: case SVR4_SHM_LOCK: case SVR4_SHM_UNLOCK: error = copyin(uap->buf, (caddr_t) &ss, sizeof ss); if (error) return error; svr4_to_bsd_shmid_ds(&ss, &bs); error = copyout(&bs, ap.buf, sizeof bs); if (error) return error; break; default: break; } } else ap.buf = NULL; switch (uap->cmd) { case SVR4_IPC_STAT: ap.cmd = IPC_STAT; if ((error = sys_shmctl(p, &ap, retval)) != 0) return error; if (uap->buf == NULL) return 0; error = copyin(&bs, ap.buf, sizeof bs); if (error) return error; bsd_to_svr4_shmid_ds(&bs, &ss); return copyout(&ss, uap->buf, sizeof ss); case SVR4_IPC_SET: ap.cmd = IPC_SET; return sys_shmctl(p, &ap, retval); case SVR4_IPC_RMID: case SVR4_SHM_LOCK: case SVR4_SHM_UNLOCK: switch (uap->cmd) { case SVR4_IPC_RMID: ap.cmd = IPC_RMID; break; case SVR4_SHM_LOCK: ap.cmd = SHM_LOCK; break; case SVR4_SHM_UNLOCK: ap.cmd = SHM_UNLOCK; break; default: return EINVAL; } return sys_shmctl(p, &ap, retval); default: return EINVAL; } } int svr4_sys_shmsys(p, v, retval) struct proc *p; void *v; register_t *retval; { struct svr4_sys_shmsys_args *uap = v; DPRINTF(("svr4_shmsys(%d)\n", uap->what)); switch (uap->what) { case SVR4_shmat: return svr4_shmat(p, v, retval); case SVR4_shmdt: return svr4_shmdt(p, v, retval); case SVR4_shmget: return svr4_shmget(p, v, retval); case SVR4_shmctl: return svr4_shmctl(p, v, retval); default: return ENOSYS; } } #endif /* SYSVSHM */