xref: /netbsd-src/sys/compat/ultrix/ultrix_misc.c (revision a5a68ff5f29de57339ca14f6c671c0a87714f1f8)
1 /*	$NetBSD: ultrix_misc.c,v 1.36 1997/09/24 02:13:11 mhitch Exp $	*/
2 
3 /*
4  * Copyright (c) 1995, 1997 Jonathan Stone (hereinafter referred to as the author)
5  * All rights reserved.
6  *
7  * Redistribution and use in source and binary forms, with or without
8  * modification, are permitted provided that the following conditions
9  * are met:
10  * 1. Redistributions of source code must retain the above copyright
11  *    notice, this list of conditions and the following disclaimer.
12  * 2. Redistributions in binary form must reproduce the above copyright
13  *    notice, this list of conditions and the following disclaimer in the
14  *    documentation and/or other materials provided with the distribution.
15  * 3. All advertising materials mentioning features or use of this software
16  *    must display the following acknowledgement:
17  *      This product includes software developed by Matthew R. Green for
18  *      the NetBSD Project.
19  * 4. The name of the author may not be used to endorse or promote products
20  *    derived from this software without specific prior written permission.
21  *
22  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND
23  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE
26  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32  * SUCH DAMAGE.
33  */
34 
35 /*
36  * Copyright (c) 1992, 1993
37  *	The Regents of the University of California.  All rights reserved.
38  *
39  * This software was developed by the Computer Systems Engineering group
40  * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
41  * contributed to Berkeley.
42  *
43  * All advertising materials mentioning features or use of this software
44  * must display the following acknowledgement:
45  *	This product includes software developed by the University of
46  *	California, Lawrence Berkeley Laboratory.
47  *
48  * Redistribution and use in source and binary forms, with or without
49  * modification, are permitted provided that the following conditions
50  * are met:
51  * 1. Redistributions of source code must retain the above copyright
52  *    notice, this list of conditions and the following disclaimer.
53  * 2. Redistributions in binary form must reproduce the above copyright
54  *    notice, this list of conditions and the following disclaimer in the
55  *    documentation and/or other materials provided with the distribution.
56  * 3. All advertising materials mentioning features or use of this software
57  *    must display the following acknowledgement:
58  *	This product includes software developed by the University of
59  *	California, Berkeley and its contributors.
60  * 4. Neither the name of the University nor the names of its contributors
61  *    may be used to endorse or promote products derived from this software
62  *    without specific prior written permission.
63  *
64  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
65  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
66  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
67  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
68  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
69  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
70  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
71  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
72  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
73  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
74  * SUCH DAMAGE.
75  *
76  *
77  *	@(#)sun_misc.c	8.1 (Berkeley) 6/18/93
78  *
79  * from: Header: sun_misc.c,v 1.16 93/04/07 02:46:27 torek Exp
80  */
81 
82 /*
83  * SunOS compatibility module.
84  *
85  * SunOS system calls that are implemented differently in BSD are
86  * handled here.
87  */
88 
89 #include <sys/param.h>
90 #include <sys/systm.h>
91 #include <sys/namei.h>
92 #include <sys/dirent.h>
93 #include <sys/proc.h>
94 #include <sys/file.h>
95 #include <sys/filedesc.h>
96 /*#include <sys/stat.h>*/
97 /*#include <sys/ioctl.h>*/
98 #include <sys/kernel.h>
99 #include <sys/exec.h>
100 #include <sys/malloc.h>
101 #include <sys/mbuf.h>
102 #include <sys/mman.h>
103 #include <sys/mount.h>
104 #include <sys/resource.h>
105 #include <sys/resourcevar.h>
106 #include <sys/signal.h>
107 #include <sys/signalvar.h>
108 #include <sys/socket.h>
109 #include <sys/vnode.h>
110 #include <sys/uio.h>
111 #include <sys/wait.h>
112 #include <sys/utsname.h>
113 #include <sys/unistd.h>
114 #include <sys/ipc.h>
115 
116 #include <sys/syscallargs.h>
117 
118 #include <compat/ultrix/ultrix_syscall.h>
119 #include <compat/ultrix/ultrix_syscallargs.h>
120 #include <compat/common/compat_util.h>
121 
122 #include <netinet/in.h>
123 
124 #include <miscfs/specfs/specdev.h>
125 
126 #include <nfs/rpcv2.h>
127 #include <nfs/nfsproto.h>
128 #include <nfs/nfs.h>
129 
130 #include <vm/vm.h>					/* pmap declarations */
131 
132 #include <sys/conf.h>					/* iszerodev() */
133 #include <sys/socketvar.h>				/* sosetopt() */
134 
135 
136 extern struct sysent ultrix_sysent[];
137 extern char *ultrix_syscallnames[];
138 
139 
140 /*
141  * Select the appropriate setregs callback for the target architecture.
142  */
143 #ifdef mips
144 #include <machine/ecoff_machdep.h>
145 #define ULTRIX_EXEC_SETREGS cpu_exec_ecoff_setregs
146 #endif /* mips */
147 
148 #ifdef vax
149 #define ULTRIX_EXEC_SETREGS setregs
150 #endif /* mips */
151 
152 
153 extern void ULTRIX_EXEC_SETREGS __P((struct proc *, struct exec_package *,
154 					u_long));
155 extern char sigcode[], esigcode[];
156 
157 struct emul emul_ultrix = {
158 	"ultrix",
159 	NULL,
160 	sendsig,
161 	ULTRIX_SYS_syscall,
162 	ULTRIX_SYS_MAXSYSCALL,
163 	ultrix_sysent,
164 	ultrix_syscallnames,
165 	0,
166 	copyargs,
167 	ULTRIX_EXEC_SETREGS,
168 	sigcode,
169 	esigcode,
170 };
171 
172 #define GSI_PROG_ENV 1
173 
174 int
175 ultrix_sys_getsysinfo(p, v, retval)
176 	struct proc *p;
177 	void *v;
178 	register_t *retval;
179 {
180 	struct ultrix_sys_getsysinfo_args *uap = v;
181 	static short progenv = 0;
182 
183 	switch (SCARG(uap, op)) {
184 		/* operations implemented: */
185 	case GSI_PROG_ENV:
186 		if (SCARG(uap, nbytes) < sizeof(short))
187 			return EINVAL;
188 		*retval = 1;
189 		return (copyout(&progenv, SCARG(uap, buffer), sizeof(short)));
190 	default:
191 		*retval = 0; /* info unavail */
192 		return 0;
193 	}
194 }
195 
196 int
197 ultrix_sys_setsysinfo(p, v, retval)
198 	struct proc *p;
199 	void *v;
200 	register_t *retval;
201 {
202 
203 #ifdef notyet
204 	struct ultrix_sys_setsysinfo_args *uap = v;
205 #endif
206 
207 	*retval = 0;
208 	return 0;
209 }
210 
211 int
212 ultrix_sys_waitpid(p, v, retval)
213 	struct proc *p;
214 	void *v;
215 	register_t *retval;
216 {
217 	struct ultrix_sys_waitpid_args *uap = v;
218 	struct sys_wait4_args ua;
219 
220 	SCARG(&ua, pid) = SCARG(uap, pid);
221 	SCARG(&ua, status) = SCARG(uap, status);
222 	SCARG(&ua, options) = SCARG(uap, options);
223 	SCARG(&ua, rusage) = 0;
224 
225 	return (sys_wait4(p, &ua, retval));
226 }
227 
228 int
229 ultrix_sys_wait3(p, v, retval)
230 	struct proc *p;
231 	void *v;
232 	register_t *retval;
233 {
234 	struct ultrix_sys_wait3_args *uap = v;
235 	struct sys_wait4_args ua;
236 
237 	SCARG(&ua, pid) = -1;
238 	SCARG(&ua, status) = SCARG(uap, status);
239 	SCARG(&ua, options) = SCARG(uap, options);
240 	SCARG(&ua, rusage) = SCARG(uap, rusage);
241 
242 	return (sys_wait4(p, &ua, retval));
243 }
244 
245 /*
246  * Ultrix binaries pass in FD_MAX as the first arg to select().
247  * On Ultrix, FD_MAX is 4096, which is more than the NetBSD sys_select()
248  * can handle.
249  * Since we can't have more than the (native) FD_MAX descriptors open,
250  * limit nfds to at most FD_MAX.
251  */
252 int
253 ultrix_sys_select(p, v, retval)
254 	struct proc *p;
255 	void *v;
256 	register_t *retval;
257 {
258 	struct sys_select_args *uap = v;
259 	struct timeval atv;
260 	int error;
261 
262 	/* Limit number of FDs selected on to the native maximum */
263 
264 	if (SCARG(uap, nd) > FD_SETSIZE)
265 		SCARG(uap, nd) = FD_SETSIZE;
266 
267 	/* Check for negative timeval */
268 	if (SCARG(uap, tv)) {
269 		error = copyin((caddr_t)SCARG(uap, tv), (caddr_t)&atv,
270 			       sizeof(atv));
271 		if (error)
272 			goto done;
273 #ifdef DEBUG
274 		/* Ultrix clients sometimes give negative timeouts? */
275 		if (atv.tv_sec < 0 || atv.tv_usec < 0)
276 			printf("ultrix select( %ld, %ld): negative timeout\n",
277 			    atv.tv_sec, atv.tv_usec);
278 		/*tvp = (timeval *)STACKGAPBASE;*/
279 #endif
280 
281 	}
282 	error = sys_select(p, (void*) uap, retval);
283 	if (error == EINVAL)
284 		printf("ultrix select: bad args?\n");
285 
286 done:
287 	return error;
288 }
289 
290 #if defined(NFS)
291 int
292 async_daemon(p, v, retval)
293 	struct proc *p;
294 	void *v;
295 	register_t *retval;
296 {
297 	struct sys_nfssvc_args ouap;
298 
299 	SCARG(&ouap, flag) = NFSSVC_BIOD;
300 	SCARG(&ouap, argp) = NULL;
301 
302 	return (sys_nfssvc(p, &ouap, retval));
303 }
304 #endif /* NFS */
305 
306 
307 #define	SUN__MAP_NEW	0x80000000	/* if not, old mmap & cannot handle */
308 
309 int
310 ultrix_sys_mmap(p, v, retval)
311 	register struct proc *p;
312 	void *v;
313 	register_t *retval;
314 {
315 	register struct ultrix_sys_mmap_args *uap = v;
316 	struct sys_mmap_args ouap;
317 	register struct filedesc *fdp;
318 	register struct file *fp;
319 	register struct vnode *vp;
320 
321 	/*
322 	 * Verify the arguments.
323 	 */
324 	if (SCARG(uap, prot) & ~(PROT_READ|PROT_WRITE|PROT_EXEC))
325 		return (EINVAL);			/* XXX still needed? */
326 
327 	if ((SCARG(uap, flags) & SUN__MAP_NEW) == 0)
328 		return (EINVAL);
329 
330 	SCARG(&ouap, flags) = SCARG(uap, flags) & ~SUN__MAP_NEW;
331 	SCARG(&ouap, addr) = SCARG(uap, addr);
332 
333 	if ((SCARG(&ouap, flags) & MAP_FIXED) == 0 &&
334 	    SCARG(&ouap, addr) != 0 &&
335 	    SCARG(&ouap, addr) < (caddr_t)round_page(p->p_vmspace->vm_daddr+MAXDSIZ))
336 		SCARG(&ouap, addr) = (caddr_t)round_page(p->p_vmspace->vm_daddr+MAXDSIZ);
337 
338 	SCARG(&ouap, len) = SCARG(uap, len);
339 	SCARG(&ouap, prot) = SCARG(uap, prot);
340 	SCARG(&ouap, fd) = SCARG(uap, fd);
341 	SCARG(&ouap, pos) = SCARG(uap, pos);
342 
343 	/*
344 	 * Special case: if fd refers to /dev/zero, map as MAP_ANON.  (XXX)
345 	 */
346 	fdp = p->p_fd;
347 	if ((unsigned)SCARG(&ouap, fd) < fdp->fd_nfiles &&		/*XXX*/
348 	    (fp = fdp->fd_ofiles[SCARG(&ouap, fd)]) != NULL &&		/*XXX*/
349 	    fp->f_type == DTYPE_VNODE &&				/*XXX*/
350 	    (vp = (struct vnode *)fp->f_data)->v_type == VCHR &&	/*XXX*/
351 	    iszerodev(vp->v_rdev)) {					/*XXX*/
352 		SCARG(&ouap, flags) |= MAP_ANON;
353 		SCARG(&ouap, fd) = -1;
354 	}
355 
356 	return (sys_mmap(p, &ouap, retval));
357 }
358 
359 int
360 ultrix_sys_setsockopt(p, v, retval)
361 	struct proc *p;
362 	void *v;
363 	register_t *retval;
364 {
365 	register struct ultrix_sys_setsockopt_args *uap = v;
366 	struct file *fp;
367 	struct mbuf *m = NULL;
368 	int error;
369 
370 	if ((error = getsock(p->p_fd, SCARG(uap, s), &fp))  != 0)
371 		return (error);
372 #define	SO_DONTLINGER (~SO_LINGER)
373 	if (SCARG(uap, name) == SO_DONTLINGER) {
374 		m = m_get(M_WAIT, MT_SOOPTS);
375 		mtod(m, struct linger *)->l_onoff = 0;
376 		m->m_len = sizeof(struct linger);
377 		return (sosetopt((struct socket *)fp->f_data, SCARG(uap, level),
378 		    SO_LINGER, m));
379 	}
380 	if (SCARG(uap, level) == IPPROTO_IP) {
381 #define		EMUL_IP_MULTICAST_IF		2
382 #define		EMUL_IP_MULTICAST_TTL		3
383 #define		EMUL_IP_MULTICAST_LOOP		4
384 #define		EMUL_IP_ADD_MEMBERSHIP		5
385 #define		EMUL_IP_DROP_MEMBERSHIP	6
386 		static int ipoptxlat[] = {
387 			IP_MULTICAST_IF,
388 			IP_MULTICAST_TTL,
389 			IP_MULTICAST_LOOP,
390 			IP_ADD_MEMBERSHIP,
391 			IP_DROP_MEMBERSHIP
392 		};
393 		if (SCARG(uap, name) >= EMUL_IP_MULTICAST_IF &&
394 		    SCARG(uap, name) <= EMUL_IP_DROP_MEMBERSHIP) {
395 			SCARG(uap, name) =
396 			    ipoptxlat[SCARG(uap, name) - EMUL_IP_MULTICAST_IF];
397 		}
398 	}
399 	if (SCARG(uap, valsize) > MLEN)
400 		return (EINVAL);
401 	if (SCARG(uap, val)) {
402 		m = m_get(M_WAIT, MT_SOOPTS);
403 		error = copyin(SCARG(uap, val), mtod(m, caddr_t),
404 		    (u_int)SCARG(uap, valsize));
405 		if (error) {
406 			(void) m_free(m);
407 			return (error);
408 		}
409 		m->m_len = SCARG(uap, valsize);
410 	}
411 	return (sosetopt((struct socket *)fp->f_data, SCARG(uap, level),
412 	    SCARG(uap, name), m));
413 }
414 
415 struct ultrix_utsname {
416 	char    sysname[9];
417 	char    nodename[9];
418 	char    nodeext[65-9];
419 	char    release[9];
420 	char    version[9];
421 	char    machine[9];
422 };
423 
424 int
425 ultrix_sys_uname(p, v, retval)
426 	struct proc *p;
427 	void *v;
428 	register_t *retval;
429 {
430 	struct ultrix_sys_uname_args *uap = v;
431 	struct ultrix_utsname sut;
432 	extern char ostype[], machine[], osrelease[];
433 
434 	bzero(&sut, sizeof(sut));
435 
436 	bcopy(ostype, sut.sysname, sizeof(sut.sysname) - 1);
437 	bcopy(hostname, sut.nodename, sizeof(sut.nodename));
438 	sut.nodename[sizeof(sut.nodename)-1] = '\0';
439 	bcopy(osrelease, sut.release, sizeof(sut.release) - 1);
440 	bcopy("1", sut.version, sizeof(sut.version) - 1);
441 	bcopy(machine, sut.machine, sizeof(sut.machine) - 1);
442 
443 	return copyout((caddr_t)&sut, (caddr_t)SCARG(uap, name),
444 	    sizeof(struct ultrix_utsname));
445 }
446 
447 int
448 ultrix_sys_setpgrp(p, v, retval)
449 	struct proc *p;
450 	void *v;
451 	register_t *retval;
452 {
453 	struct ultrix_sys_setpgrp_args *uap = v;
454 
455 	/*
456 	 * difference to our setpgid call is to include backwards
457 	 * compatibility to pre-setsid() binaries. Do setsid()
458 	 * instead of setpgid() in those cases where the process
459 	 * tries to create a new session the old way.
460 	 */
461 	if (!SCARG(uap, pgid) &&
462 	    (!SCARG(uap, pid) || SCARG(uap, pid) == p->p_pid))
463 		return sys_setsid(p, uap, retval);
464 	else
465 		return sys_setpgid(p, uap, retval);
466 }
467 
468 #if defined (NFSSERVER)
469 int
470 ultrix_sys_nfssvc(p, v, retval)
471 	struct proc *p;
472 	void *v;
473 	register_t *retval;
474 {
475 
476 #if 0	/* XXX */
477 	struct ultrix_sys_nfssvc_args *uap = v;
478 	struct emul *e = p->p_emul;
479 	struct sys_nfssvc_args outuap;
480 	struct sockaddr sa;
481 	int error;
482 
483 	bzero(&outuap, sizeof outuap);
484 	SCARG(&outuap, fd) = SCARG(uap, fd);
485 	SCARG(&outuap, mskval) = STACKGAPBASE;
486 	SCARG(&outuap, msklen) = sizeof sa;
487 	SCARG(&outuap, mtchval) = outuap.mskval + sizeof sa;
488 	SCARG(&outuap, mtchlen) = sizeof sa;
489 
490 	bzero(&sa, sizeof sa);
491 	if (error = copyout(&sa, SCARG(&outuap, mskval), SCARG(&outuap, msklen)))
492 		return (error);
493 	if (error = copyout(&sa, SCARG(&outuap, mtchval), SCARG(&outuap, mtchlen)))
494 		return (error);
495 
496 	return nfssvc(p, &outuap, retval);
497 #else
498 	return (ENOSYS);
499 #endif
500 }
501 #endif /* NFSSERVER */
502 
503 struct ultrix_ustat {
504 	daddr_t	f_tfree;	/* total free */
505 	ino_t	f_tinode;	/* total inodes free */
506 	char	f_fname[6];	/* filsys name */
507 	char	f_fpack[6];	/* filsys pack name */
508 };
509 
510 int
511 ultrix_sys_ustat(p, v, retval)
512 	struct proc *p;
513 	void *v;
514 	register_t *retval;
515 {
516 	struct ultrix_sys_ustat_args *uap = v;
517 	struct ultrix_ustat us;
518 	int error;
519 
520 	bzero(&us, sizeof us);
521 
522 	/*
523 	 * XXX: should set f_tfree and f_tinode at least
524 	 * How do we translate dev -> fstat? (and then to ultrix_ustat)
525 	 */
526 
527 	if ((error = copyout(&us, SCARG(uap, buf), sizeof us)) != 0)
528 		return (error);
529 	return 0;
530 }
531 
532 int
533 ultrix_sys_quotactl(p, v, retval)
534 	struct proc *p;
535 	void *v;
536 	register_t *retval;
537 {
538 
539 #ifdef notyet
540 	struct ultrix_sys_quotactl_args *uap = v;
541 #endif
542 
543 	return EINVAL;
544 }
545 
546 int
547 ultrix_sys_vhangup(p, v, retval)
548 	struct proc *p;
549 	void *v;
550 	register_t *retval;
551 {
552 
553 	return 0;
554 }
555 
556 
557 /*
558  * RISC Ultrix cache control syscalls
559  */
560 #ifdef __mips
561 int
562 ultrix_sys_cacheflush(p, v, retval)
563 	register struct proc *p;
564 	void *v;
565 	register_t *retval;
566 {
567 	register struct ultrix_sys_cacheflush_args /* {
568 		syscallarg(void *) addr;
569 		syscallarg(int) nbytes;
570 		syscallarg(int) flag;
571 	} */ *uap = v;
572 	register vm_offset_t va  = (vm_offset_t)SCARG(uap, addr);
573 	register int nbytes     = SCARG(uap, nbytes);
574 	register int whichcache = SCARG(uap, whichcache);
575 
576 	return (mips_user_cacheflush(p, va, nbytes, whichcache));
577 }
578 
579 
580 int
581 ultrix_sys_cachectl(p, v, retval)
582 	register struct proc *p;
583 	void *v;
584 	register_t *retval;
585 {
586 	register struct ultrix_sys_cachectl_args /* {
587 		syscallarg(void *) addr;
588 		syscallarg(int) nbytes;
589 		syscallarg(int) cacheop;
590 	} */ *uap = v;
591 	register vm_offset_t va  = (vm_offset_t)SCARG(uap, addr);
592 	register int nbytes  = SCARG(uap, nbytes);
593 	register int cacheop = SCARG(uap, cacheop);
594 
595 	return mips_user_cachectl(p, va, nbytes, cacheop);
596 }
597 
598 #endif	/* __mips */
599 
600 
601 int
602 ultrix_sys_exportfs(p, v, retval)
603 	struct proc *p;
604 	void *v;
605 	register_t *retval;
606 {
607 #ifdef notyet
608 	struct ultrix_sys_exportfs_args *uap = v;
609 #endif
610 
611 	/*
612 	 * XXX: should perhaps translate into a mount(2)
613 	 * with MOUNT_EXPORT?
614 	 */
615 	return 0;
616 }
617 
618 int
619 ultrix_sys_sigpending(p, v, retval)
620 	struct proc *p;
621 	void *v;
622 	register_t *retval;
623 {
624 	struct ultrix_sys_sigpending_args *uap = v;
625 	int mask = p->p_siglist & p->p_sigmask;
626 
627 	return (copyout((caddr_t)&mask, (caddr_t)SCARG(uap, mask), sizeof(int)));
628 }
629 
630 int
631 ultrix_sys_sigcleanup(p, v, retval)
632 	struct proc *p;
633 	void *v;
634 	register_t *retval;
635 {
636 	struct ultrix_sys_sigcleanup_args *uap = v;
637 
638 	return sys_sigreturn(p, (struct sys_sigreturn_args *)uap, retval);
639 }
640 
641 
642 int
643 ultrix_sys_shmsys(p, v, retval)
644 	struct proc *p;
645 	void *v;
646 	register_t *retval;
647 {
648 
649 #ifdef SYSVSHM
650 
651 	/* Ultrix SVSHM weirndess: */
652 	struct ultrix_sys_shmsys_args *uap = v;
653 	struct sys_shmat_args shmat_args;
654 	struct sys_shmctl_args shmctl_args;
655 	struct sys_shmdt_args shmdt_args;
656 	struct sys_shmget_args shmget_args;
657 
658 
659 	switch (SCARG(uap, shmop)) {
660 	case 0:						/* Ultrix shmat() */
661 		SCARG(&shmat_args, shmid) = SCARG(uap, a2);
662 		SCARG(&shmat_args, shmaddr) = (void *)SCARG(uap, a3);
663 		SCARG(&shmat_args, shmflg) = SCARG(uap, a4);
664 		return (sys_shmat(p, &shmat_args, retval));
665 
666 	case 1:						/* Ultrix shmctl() */
667 		SCARG(&shmctl_args, shmid) = SCARG(uap, a2);
668 		SCARG(&shmctl_args, cmd) = SCARG(uap, a3);
669 		SCARG(&shmctl_args, buf) = (struct shmid_ds *)SCARG(uap, a4);
670 		return (sys_shmctl(p, &shmctl_args, retval));
671 
672 	case 2:						/* Ultrix shmdt() */
673 		SCARG(&shmat_args, shmaddr) = (void *)SCARG(uap, a2);
674 		return (sys_shmdt(p, &shmdt_args, retval));
675 
676 	case 3:						/* Ultrix shmget() */
677 		SCARG(&shmget_args, key) = SCARG(uap, a2);
678 		SCARG(&shmget_args, size) = SCARG(uap, a3);
679 		SCARG(&shmget_args, shmflg) = SCARG(uap, a4)
680 		    & (IPC_CREAT|IPC_EXCL|IPC_NOWAIT);
681 		return (sys_shmget(p, &shmget_args, retval));
682 
683 	default:
684 		return (EINVAL);
685 	}
686 #else
687 	return (EOPNOTSUPP);
688 #endif	/* SYSVSHM */
689 }
690