Home | History | Annotate | Line # | Download | only in common
kern_ipc_10.c revision 1.4.18.2
      1  1.4.18.2   mycroft /*	$NetBSD: kern_ipc_10.c,v 1.4.18.2 1998/05/05 09:41:46 mycroft Exp $	*/
      2       1.1  christos 
      3       1.1  christos /*
      4       1.1  christos  * Copyright (c) 1994 Adam Glass and Charles Hannum.  All rights reserved.
      5       1.1  christos  *
      6       1.1  christos  * Redistribution and use in source and binary forms, with or without
      7       1.1  christos  * modification, are permitted provided that the following conditions
      8       1.1  christos  * are met:
      9       1.1  christos  * 1. Redistributions of source code must retain the above copyright
     10       1.1  christos  *    notice, this list of conditions and the following disclaimer.
     11       1.1  christos  * 2. Redistributions in binary form must reproduce the above copyright
     12       1.1  christos  *    notice, this list of conditions and the following disclaimer in the
     13       1.1  christos  *    documentation and/or other materials provided with the distribution.
     14       1.1  christos  * 3. All advertising materials mentioning features or use of this software
     15       1.1  christos  *    must display the following acknowledgement:
     16       1.1  christos  *	This product includes software developed by Adam Glass and Charles
     17       1.1  christos  *	Hannum.
     18       1.1  christos  * 4. The names of the authors may not be used to endorse or promote products
     19       1.1  christos  *    derived from this software without specific prior written permission.
     20       1.1  christos  *
     21       1.1  christos  * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR
     22       1.1  christos  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     23       1.1  christos  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
     24       1.1  christos  * IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT,
     25       1.1  christos  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
     26       1.1  christos  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
     27       1.1  christos  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
     28       1.1  christos  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
     29       1.1  christos  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
     30       1.1  christos  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     31       1.1  christos  */
     32       1.1  christos 
     33       1.1  christos #include <sys/param.h>
     34       1.1  christos #include <sys/systm.h>
     35       1.1  christos #include <sys/kernel.h>
     36       1.1  christos #include <sys/proc.h>
     37       1.1  christos #include <sys/sem.h>
     38       1.1  christos #include <sys/malloc.h>
     39       1.1  christos 
     40       1.1  christos #include <sys/mount.h>
     41       1.1  christos #include <sys/syscallargs.h>
     42       1.1  christos 
     43  1.4.18.2   mycroft #include <compat/common/compat_util.h>
     44  1.4.18.2   mycroft 
     45       1.1  christos #include <vm/vm.h>
     46       1.1  christos #include <vm/vm_map.h>
     47       1.1  christos #include <vm/vm_map.h>
     48       1.1  christos #include <vm/vm_kern.h>
     49       1.1  christos 
     50       1.2   mycroft #ifdef SYSVSEM
     51       1.1  christos int
     52       1.4   mycroft compat_10_sys_semsys(p, v, retval)
     53       1.1  christos 	struct proc *p;
     54       1.3   thorpej 	void *v;
     55       1.3   thorpej 	register_t *retval;
     56       1.3   thorpej {
     57       1.4   mycroft 	struct compat_10_sys_semsys_args /* {
     58       1.1  christos 		syscallarg(int) which;
     59       1.1  christos 		syscallarg(int) a2;
     60       1.1  christos 		syscallarg(int) a3;
     61       1.1  christos 		syscallarg(int) a4;
     62       1.1  christos 		syscallarg(int) a5;
     63       1.3   thorpej 	} */ *uap = v;
     64       1.4   mycroft 	struct sys___semctl_args /* {
     65       1.1  christos 		syscallarg(int) semid;
     66       1.1  christos 		syscallarg(int) semnum;
     67       1.1  christos 		syscallarg(int) cmd;
     68       1.1  christos 		syscallarg(union semun *) arg;
     69       1.1  christos 	} */ __semctl_args;
     70       1.4   mycroft 	struct sys_semget_args /* {
     71       1.1  christos 		syscallarg(key_t) key;
     72       1.1  christos 		syscallarg(int) nsems;
     73       1.1  christos 		syscallarg(int) semflg;
     74       1.1  christos 	} */ semget_args;
     75       1.4   mycroft 	struct sys_semop_args /* {
     76       1.1  christos 		syscallarg(int) semid;
     77       1.1  christos 		syscallarg(struct sembuf *) sops;
     78       1.1  christos 		syscallarg(u_int) nsops;
     79       1.1  christos 	} */ semop_args;
     80       1.4   mycroft 	struct sys_semconfig_args /* {
     81       1.1  christos 		syscallarg(int) flag;
     82       1.1  christos 	} */ semconfig_args;
     83  1.4.18.2   mycroft 	caddr_t sg = stackgap_init(p->p_emul);
     84       1.1  christos 
     85       1.1  christos 	switch (SCARG(uap, which)) {
     86       1.1  christos 	case 0:						/* __semctl() */
     87       1.1  christos 		SCARG(&__semctl_args, semid) = SCARG(uap, a2);
     88       1.1  christos 		SCARG(&__semctl_args, semnum) = SCARG(uap, a3);
     89       1.1  christos 		SCARG(&__semctl_args, cmd) = SCARG(uap, a4);
     90  1.4.18.2   mycroft 		SCARG(&__semctl_args, arg) = stackgap_alloc(&sg,
     91  1.4.18.2   mycroft 			sizeof(union semun *));
     92  1.4.18.2   mycroft 		copyout(&SCARG(uap, a5), SCARG(&__semctl_args, arg),
     93  1.4.18.2   mycroft 			sizeof(union semun));
     94       1.4   mycroft 		return (sys___semctl(p, &__semctl_args, retval));
     95       1.1  christos 
     96       1.1  christos 	case 1:						/* semget() */
     97       1.1  christos 		SCARG(&semget_args, key) = SCARG(uap, a2);
     98       1.1  christos 		SCARG(&semget_args, nsems) = SCARG(uap, a3);
     99       1.1  christos 		SCARG(&semget_args, semflg) = SCARG(uap, a4);
    100       1.4   mycroft 		return (sys_semget(p, &semget_args, retval));
    101       1.1  christos 
    102       1.1  christos 	case 2:						/* semop() */
    103       1.1  christos 		SCARG(&semop_args, semid) = SCARG(uap, a2);
    104       1.1  christos 		SCARG(&semop_args, sops) = (struct sembuf *)SCARG(uap, a3);
    105       1.1  christos 		SCARG(&semop_args, nsops) = SCARG(uap, a4);
    106       1.4   mycroft 		return (sys_semop(p, &semop_args, retval));
    107       1.1  christos 
    108       1.1  christos 	case 3:						/* semconfig() */
    109       1.1  christos 		SCARG(&semconfig_args, flag) = SCARG(uap, a2);
    110       1.4   mycroft 		return (sys_semconfig(p, &semconfig_args, retval));
    111       1.1  christos 
    112       1.1  christos 	default:
    113       1.1  christos 		return (EINVAL);
    114       1.1  christos 	}
    115       1.1  christos }
    116       1.2   mycroft #endif
    117       1.1  christos 
    118       1.2   mycroft #ifdef SYSVSHM
    119       1.1  christos int
    120       1.4   mycroft compat_10_sys_shmsys(p, v, retval)
    121       1.1  christos 	struct proc *p;
    122       1.3   thorpej 	void *v;
    123       1.3   thorpej 	register_t *retval;
    124       1.3   thorpej {
    125       1.4   mycroft 	struct compat_10_sys_shmsys_args /* {
    126       1.1  christos 		syscallarg(int) which;
    127       1.1  christos 		syscallarg(int) a2;
    128       1.1  christos 		syscallarg(int) a3;
    129       1.1  christos 		syscallarg(int) a4;
    130       1.3   thorpej 	} */ *uap = v;
    131       1.4   mycroft 	struct sys_shmat_args /* {
    132       1.1  christos 		syscallarg(int) shmid;
    133       1.1  christos 		syscallarg(void *) shmaddr;
    134       1.1  christos 		syscallarg(int) shmflg;
    135       1.1  christos 	} */ shmat_args;
    136       1.4   mycroft 	struct sys_shmctl_args /* {
    137       1.1  christos 		syscallarg(int) shmid;
    138       1.1  christos 		syscallarg(int) cmd;
    139       1.1  christos 		syscallarg(struct shmid_ds *) buf;
    140       1.1  christos 	} */ shmctl_args;
    141       1.4   mycroft 	struct sys_shmdt_args /* {
    142       1.1  christos 		syscallarg(void *) shmaddr;
    143       1.1  christos 	} */ shmdt_args;
    144       1.4   mycroft 	struct sys_shmget_args /* {
    145       1.1  christos 		syscallarg(key_t) key;
    146       1.1  christos 		syscallarg(int) size;
    147       1.1  christos 		syscallarg(int) shmflg;
    148       1.1  christos 	} */ shmget_args;
    149       1.1  christos 
    150       1.1  christos 	switch (SCARG(uap, which)) {
    151       1.1  christos 	case 0:						/* shmat() */
    152       1.1  christos 		SCARG(&shmat_args, shmid) = SCARG(uap, a2);
    153       1.1  christos 		SCARG(&shmat_args, shmaddr) = (void *)SCARG(uap, a3);
    154       1.1  christos 		SCARG(&shmat_args, shmflg) = SCARG(uap, a4);
    155       1.4   mycroft 		return (sys_shmat(p, &shmat_args, retval));
    156       1.1  christos 
    157       1.1  christos 	case 1:						/* shmctl() */
    158       1.1  christos 		SCARG(&shmctl_args, shmid) = SCARG(uap, a2);
    159       1.1  christos 		SCARG(&shmctl_args, cmd) = SCARG(uap, a3);
    160       1.1  christos 		SCARG(&shmctl_args, buf) = (struct shmid_ds *)SCARG(uap, a4);
    161       1.4   mycroft 		return (sys_shmctl(p, &shmctl_args, retval));
    162       1.1  christos 
    163       1.1  christos 	case 2:						/* shmdt() */
    164  1.4.18.1    mellon 		SCARG(&shmdt_args, shmaddr) = (void *)SCARG(uap, a2);
    165       1.4   mycroft 		return (sys_shmdt(p, &shmdt_args, retval));
    166       1.1  christos 
    167       1.1  christos 	case 3:						/* shmget() */
    168       1.1  christos 		SCARG(&shmget_args, key) = SCARG(uap, a2);
    169       1.1  christos 		SCARG(&shmget_args, size) = SCARG(uap, a3);
    170       1.1  christos 		SCARG(&shmget_args, shmflg) = SCARG(uap, a4);
    171       1.4   mycroft 		return (sys_shmget(p, &shmget_args, retval));
    172       1.1  christos 
    173       1.1  christos 	default:
    174       1.1  christos 		return (EINVAL);
    175       1.1  christos 	}
    176       1.1  christos }
    177       1.2   mycroft #endif
    178       1.1  christos 
    179       1.2   mycroft #ifdef SYSVMSG
    180       1.1  christos int
    181       1.4   mycroft compat_10_sys_msgsys(p, v, retval)
    182       1.3   thorpej 	struct proc *p;
    183       1.3   thorpej 	void *v;
    184       1.3   thorpej 	register_t *retval;
    185       1.3   thorpej {
    186       1.4   mycroft 	struct compat_10_sys_msgsys_args /* {
    187       1.1  christos 		syscallarg(int) which;
    188       1.1  christos 		syscallarg(int) a2;
    189       1.1  christos 		syscallarg(int) a3;
    190       1.1  christos 		syscallarg(int) a4;
    191       1.1  christos 		syscallarg(int) a5;
    192       1.1  christos 		syscallarg(int) a6;
    193       1.3   thorpej 	} */ *uap = v;
    194       1.4   mycroft 	struct sys_msgctl_args /* {
    195       1.1  christos 		syscallarg(int) msqid;
    196       1.1  christos 		syscallarg(int) cmd;
    197       1.1  christos 		syscallarg(struct msqid_ds *) buf;
    198       1.1  christos 	} */ msgctl_args;
    199       1.4   mycroft 	struct sys_msgget_args /* {
    200       1.1  christos 		syscallarg(key_t) key;
    201       1.1  christos 		syscallarg(int) msgflg;
    202       1.1  christos 	} */ msgget_args;
    203       1.4   mycroft 	struct sys_msgsnd_args /* {
    204       1.1  christos 		syscallarg(int) msqid;
    205       1.1  christos 		syscallarg(void *) msgp;
    206       1.1  christos 		syscallarg(size_t) msgsz;
    207       1.1  christos 		syscallarg(int) msgflg;
    208       1.1  christos 	} */ msgsnd_args;
    209       1.4   mycroft 	struct sys_msgrcv_args /* {
    210       1.1  christos 		syscallarg(int) msqid;
    211       1.1  christos 		syscallarg(void *) msgp;
    212       1.1  christos 		syscallarg(size_t) msgsz;
    213       1.1  christos 		syscallarg(long) msgtyp;
    214       1.1  christos 		syscallarg(int) msgflg;
    215       1.1  christos 	} */ msgrcv_args;
    216       1.1  christos 
    217       1.1  christos 	switch (SCARG(uap, which)) {
    218       1.1  christos 	case 0:					/* msgctl()*/
    219       1.1  christos 		SCARG(&msgctl_args, msqid) = SCARG(uap, a2);
    220       1.1  christos 		SCARG(&msgctl_args, cmd) = SCARG(uap, a3);
    221       1.1  christos 		SCARG(&msgctl_args, buf) =
    222       1.1  christos 		    (struct msqid_ds *)SCARG(uap, a4);
    223       1.4   mycroft 		return (sys_msgctl(p, &msgctl_args, retval));
    224       1.1  christos 
    225       1.1  christos 	case 1:					/* msgget() */
    226       1.1  christos 		SCARG(&msgget_args, key) = SCARG(uap, a2);
    227       1.1  christos 		SCARG(&msgget_args, msgflg) = SCARG(uap, a3);
    228       1.4   mycroft 		return (sys_msgget(p, &msgget_args, retval));
    229       1.1  christos 
    230       1.1  christos 	case 2:					/* msgsnd() */
    231       1.1  christos 		SCARG(&msgsnd_args, msqid) = SCARG(uap, a2);
    232       1.1  christos 		SCARG(&msgsnd_args, msgp) = (void *)SCARG(uap, a3);
    233       1.1  christos 		SCARG(&msgsnd_args, msgsz) = SCARG(uap, a4);
    234       1.1  christos 		SCARG(&msgsnd_args, msgflg) = SCARG(uap, a5);
    235       1.4   mycroft 		return (sys_msgsnd(p, &msgsnd_args, retval));
    236       1.1  christos 
    237       1.1  christos 	case 3:					/* msgrcv() */
    238       1.1  christos 		SCARG(&msgrcv_args, msqid) = SCARG(uap, a2);
    239       1.1  christos 		SCARG(&msgrcv_args, msgp) = (void *)SCARG(uap, a3);
    240       1.1  christos 		SCARG(&msgrcv_args, msgsz) = SCARG(uap, a4);
    241       1.1  christos 		SCARG(&msgrcv_args, msgtyp) = SCARG(uap, a5);
    242       1.1  christos 		SCARG(&msgrcv_args, msgflg) = SCARG(uap, a6);
    243       1.4   mycroft 		return (sys_msgrcv(p, &msgrcv_args, retval));
    244       1.1  christos 
    245       1.1  christos 	default:
    246       1.1  christos 		return (EINVAL);
    247       1.1  christos 	}
    248       1.1  christos }
    249       1.2   mycroft #endif
    250