ultrix_misc.c revision 1.96 1 1.96 drochner /* $NetBSD: ultrix_misc.c,v 1.96 2005/01/24 10:08:02 drochner Exp $ */
2 1.5 cgd
3 1.1 glass /*
4 1.30 jonathan * Copyright (c) 1995, 1997 Jonathan Stone (hereinafter referred to as the author)
5 1.30 jonathan * All rights reserved.
6 1.23 jonathan *
7 1.23 jonathan * Redistribution and use in source and binary forms, with or without
8 1.23 jonathan * modification, are permitted provided that the following conditions
9 1.23 jonathan * are met:
10 1.23 jonathan * 1. Redistributions of source code must retain the above copyright
11 1.23 jonathan * notice, this list of conditions and the following disclaimer.
12 1.23 jonathan * 2. Redistributions in binary form must reproduce the above copyright
13 1.23 jonathan * notice, this list of conditions and the following disclaimer in the
14 1.23 jonathan * documentation and/or other materials provided with the distribution.
15 1.28 jonathan * 3. All advertising materials mentioning features or use of this software
16 1.28 jonathan * must display the following acknowledgement:
17 1.37 jonathan * This product includes software developed by Jonathan Stone for
18 1.28 jonathan * the NetBSD Project.
19 1.28 jonathan * 4. The name of the author may not be used to endorse or promote products
20 1.23 jonathan * derived from this software without specific prior written permission.
21 1.23 jonathan *
22 1.23 jonathan * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND
23 1.23 jonathan * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24 1.23 jonathan * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25 1.23 jonathan * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE
26 1.23 jonathan * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27 1.23 jonathan * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28 1.23 jonathan * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29 1.23 jonathan * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30 1.23 jonathan * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31 1.23 jonathan * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32 1.23 jonathan * SUCH DAMAGE.
33 1.23 jonathan */
34 1.23 jonathan
35 1.23 jonathan /*
36 1.1 glass * Copyright (c) 1992, 1993
37 1.1 glass * The Regents of the University of California. All rights reserved.
38 1.1 glass *
39 1.1 glass * This software was developed by the Computer Systems Engineering group
40 1.1 glass * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
41 1.1 glass * contributed to Berkeley.
42 1.1 glass *
43 1.1 glass * All advertising materials mentioning features or use of this software
44 1.1 glass * must display the following acknowledgement:
45 1.1 glass * This product includes software developed by the University of
46 1.1 glass * California, Lawrence Berkeley Laboratory.
47 1.1 glass *
48 1.1 glass * Redistribution and use in source and binary forms, with or without
49 1.1 glass * modification, are permitted provided that the following conditions
50 1.1 glass * are met:
51 1.1 glass * 1. Redistributions of source code must retain the above copyright
52 1.1 glass * notice, this list of conditions and the following disclaimer.
53 1.1 glass * 2. Redistributions in binary form must reproduce the above copyright
54 1.1 glass * notice, this list of conditions and the following disclaimer in the
55 1.1 glass * documentation and/or other materials provided with the distribution.
56 1.86 agc * 3. Neither the name of the University nor the names of its contributors
57 1.1 glass * may be used to endorse or promote products derived from this software
58 1.1 glass * without specific prior written permission.
59 1.1 glass *
60 1.1 glass * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
61 1.1 glass * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
62 1.1 glass * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
63 1.1 glass * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
64 1.1 glass * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
65 1.1 glass * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
66 1.1 glass * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
67 1.1 glass * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
68 1.1 glass * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
69 1.1 glass * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
70 1.1 glass * SUCH DAMAGE.
71 1.1 glass *
72 1.5 cgd *
73 1.1 glass * @(#)sun_misc.c 8.1 (Berkeley) 6/18/93
74 1.1 glass *
75 1.1 glass * from: Header: sun_misc.c,v 1.16 93/04/07 02:46:27 torek Exp
76 1.1 glass */
77 1.74 lukem
78 1.74 lukem #include <sys/cdefs.h>
79 1.96 drochner __KERNEL_RCSID(0, "$NetBSD: ultrix_misc.c,v 1.96 2005/01/24 10:08:02 drochner Exp $");
80 1.1 glass
81 1.69 mrg #if defined(_KERNEL_OPT)
82 1.40 mhitch #include "opt_nfsserver.h"
83 1.47 tron #include "opt_sysv.h"
84 1.63 jdolecek #endif
85 1.40 mhitch
86 1.38 jonathan #include <sys/cdefs.h> /* RCS ID & Copyright macro defns */
87 1.38 jonathan
88 1.1 glass /*
89 1.49 sommerfe * Ultrix compatibility module.
90 1.1 glass *
91 1.49 sommerfe * Ultrix system calls that are implemented differently in BSD are
92 1.1 glass * handled here.
93 1.1 glass */
94 1.39 thorpej
95 1.69 mrg #if defined(_KERNEL_OPT)
96 1.39 thorpej #include "fs_nfs.h"
97 1.63 jdolecek #endif
98 1.1 glass
99 1.1 glass #include <sys/param.h>
100 1.1 glass #include <sys/systm.h>
101 1.1 glass #include <sys/namei.h>
102 1.25 mycroft #include <sys/dirent.h>
103 1.1 glass #include <sys/proc.h>
104 1.1 glass #include <sys/file.h>
105 1.1 glass #include <sys/filedesc.h>
106 1.1 glass #include <sys/kernel.h>
107 1.1 glass #include <sys/exec.h>
108 1.1 glass #include <sys/malloc.h>
109 1.1 glass #include <sys/mbuf.h>
110 1.1 glass #include <sys/mman.h>
111 1.1 glass #include <sys/mount.h>
112 1.1 glass #include <sys/resource.h>
113 1.1 glass #include <sys/resourcevar.h>
114 1.1 glass #include <sys/signal.h>
115 1.1 glass #include <sys/signalvar.h>
116 1.1 glass #include <sys/socket.h>
117 1.1 glass #include <sys/vnode.h>
118 1.1 glass #include <sys/uio.h>
119 1.1 glass #include <sys/wait.h>
120 1.1 glass #include <sys/utsname.h>
121 1.1 glass #include <sys/unistd.h>
122 1.30 jonathan #include <sys/ipc.h>
123 1.20 jonathan
124 1.81 thorpej #include <sys/sa.h>
125 1.16 mycroft #include <sys/syscallargs.h>
126 1.16 mycroft
127 1.16 mycroft #include <compat/ultrix/ultrix_syscall.h>
128 1.16 mycroft #include <compat/ultrix/ultrix_syscallargs.h>
129 1.30 jonathan #include <compat/common/compat_util.h>
130 1.1 glass
131 1.1 glass #include <netinet/in.h>
132 1.1 glass
133 1.1 glass #include <miscfs/specfs/specdev.h>
134 1.1 glass
135 1.3 glass #include <nfs/rpcv2.h>
136 1.21 pk #include <nfs/nfsproto.h>
137 1.3 glass #include <nfs/nfs.h>
138 1.11 christos
139 1.23 jonathan #include <sys/socketvar.h> /* sosetopt() */
140 1.23 jonathan
141 1.52 drochner #include <compat/ultrix/ultrix_flock.h>
142 1.67 simonb
143 1.67 simonb #ifdef __mips
144 1.67 simonb #include <mips/cachectl.h>
145 1.96 drochner #include <mips/frame.h>
146 1.67 simonb #endif
147 1.52 drochner
148 1.93 simonb static int ultrix_to_bsd_flock(struct ultrix_flock *, struct flock *);
149 1.93 simonb static void bsd_to_ultrix_flock(struct flock *, struct ultrix_flock *);
150 1.35 jonathan
151 1.11 christos extern struct sysent ultrix_sysent[];
152 1.60 simonb extern const char * const ultrix_syscallnames[];
153 1.45 drochner extern char ultrix_sigcode[], ultrix_esigcode[];
154 1.68 thorpej #ifdef __HAVE_SYSCALL_INTERN
155 1.68 thorpej void syscall_intern(struct proc *);
156 1.68 thorpej #else
157 1.93 simonb void syscall(void);
158 1.68 thorpej #endif
159 1.19 jonathan
160 1.87 chs struct uvm_object *emul_ultrix_object;
161 1.87 chs
162 1.61 jdolecek const struct emul emul_ultrix = {
163 1.11 christos "ultrix",
164 1.62 jdolecek "/emul/ultrix",
165 1.68 thorpej #ifndef __HAVE_MINIMAL_EMUL
166 1.66 jdolecek 0,
167 1.11 christos NULL,
168 1.11 christos ULTRIX_SYS_syscall,
169 1.80 jdolecek ULTRIX_SYS_NSYSENT,
170 1.68 thorpej #endif
171 1.11 christos ultrix_sysent,
172 1.11 christos ultrix_syscallnames,
173 1.96 drochner sendsig_sigcontext,
174 1.71 christos trapsignal,
175 1.92 fvdl NULL,
176 1.45 drochner ultrix_sigcode,
177 1.45 drochner ultrix_esigcode,
178 1.87 chs &emul_ultrix_object,
179 1.73 jdolecek setregs,
180 1.64 jdolecek NULL,
181 1.64 jdolecek NULL,
182 1.64 jdolecek NULL,
183 1.91 manu NULL,
184 1.91 manu NULL,
185 1.68 thorpej #ifdef __HAVE_SYSCALL_INTERN
186 1.68 thorpej syscall_intern,
187 1.68 thorpej #else
188 1.68 thorpej syscall,
189 1.68 thorpej #endif
190 1.79 manu NULL,
191 1.79 manu NULL,
192 1.11 christos };
193 1.1 glass
194 1.6 glass #define GSI_PROG_ENV 1
195 1.6 glass
196 1.23 jonathan int
197 1.93 simonb ultrix_sys_getsysinfo(struct lwp *l, void *v, register_t *retval)
198 1.6 glass {
199 1.16 mycroft struct ultrix_sys_getsysinfo_args *uap = v;
200 1.6 glass static short progenv = 0;
201 1.6 glass
202 1.16 mycroft switch (SCARG(uap, op)) {
203 1.6 glass /* operations implemented: */
204 1.6 glass case GSI_PROG_ENV:
205 1.16 mycroft if (SCARG(uap, nbytes) < sizeof(short))
206 1.6 glass return EINVAL;
207 1.6 glass *retval = 1;
208 1.16 mycroft return (copyout(&progenv, SCARG(uap, buffer), sizeof(short)));
209 1.6 glass default:
210 1.6 glass *retval = 0; /* info unavail */
211 1.6 glass return 0;
212 1.6 glass }
213 1.6 glass }
214 1.6 glass
215 1.23 jonathan int
216 1.93 simonb ultrix_sys_setsysinfo(struct lwp *l, void *v, register_t *retval)
217 1.6 glass {
218 1.23 jonathan
219 1.23 jonathan #ifdef notyet
220 1.16 mycroft struct ultrix_sys_setsysinfo_args *uap = v;
221 1.23 jonathan #endif
222 1.23 jonathan
223 1.6 glass *retval = 0;
224 1.6 glass return 0;
225 1.6 glass }
226 1.6 glass
227 1.23 jonathan int
228 1.93 simonb ultrix_sys_waitpid(struct lwp *l, void *v, register_t *retval)
229 1.1 glass {
230 1.16 mycroft struct ultrix_sys_waitpid_args *uap = v;
231 1.16 mycroft struct sys_wait4_args ua;
232 1.1 glass
233 1.16 mycroft SCARG(&ua, pid) = SCARG(uap, pid);
234 1.16 mycroft SCARG(&ua, status) = SCARG(uap, status);
235 1.16 mycroft SCARG(&ua, options) = SCARG(uap, options);
236 1.16 mycroft SCARG(&ua, rusage) = 0;
237 1.1 glass
238 1.81 thorpej return (sys_wait4(l, &ua, retval));
239 1.2 glass }
240 1.2 glass
241 1.23 jonathan int
242 1.93 simonb ultrix_sys_wait3(struct lwp *l, void *v, register_t *retval)
243 1.2 glass {
244 1.16 mycroft struct ultrix_sys_wait3_args *uap = v;
245 1.16 mycroft struct sys_wait4_args ua;
246 1.2 glass
247 1.16 mycroft SCARG(&ua, pid) = -1;
248 1.16 mycroft SCARG(&ua, status) = SCARG(uap, status);
249 1.16 mycroft SCARG(&ua, options) = SCARG(uap, options);
250 1.16 mycroft SCARG(&ua, rusage) = SCARG(uap, rusage);
251 1.1 glass
252 1.81 thorpej return (sys_wait4(l, &ua, retval));
253 1.1 glass }
254 1.1 glass
255 1.20 jonathan /*
256 1.20 jonathan * Ultrix binaries pass in FD_MAX as the first arg to select().
257 1.23 jonathan * On Ultrix, FD_MAX is 4096, which is more than the NetBSD sys_select()
258 1.20 jonathan * can handle.
259 1.23 jonathan * Since we can't have more than the (native) FD_MAX descriptors open,
260 1.23 jonathan * limit nfds to at most FD_MAX.
261 1.20 jonathan */
262 1.23 jonathan int
263 1.93 simonb ultrix_sys_select(struct lwp *l, void *v, register_t *retval)
264 1.18 jonathan {
265 1.18 jonathan struct sys_select_args *uap = v;
266 1.23 jonathan struct timeval atv;
267 1.18 jonathan int error;
268 1.18 jonathan
269 1.18 jonathan /* Limit number of FDs selected on to the native maximum */
270 1.18 jonathan
271 1.18 jonathan if (SCARG(uap, nd) > FD_SETSIZE)
272 1.18 jonathan SCARG(uap, nd) = FD_SETSIZE;
273 1.18 jonathan
274 1.18 jonathan /* Check for negative timeval */
275 1.18 jonathan if (SCARG(uap, tv)) {
276 1.18 jonathan error = copyin((caddr_t)SCARG(uap, tv), (caddr_t)&atv,
277 1.18 jonathan sizeof(atv));
278 1.18 jonathan if (error)
279 1.18 jonathan goto done;
280 1.18 jonathan #ifdef DEBUG
281 1.18 jonathan /* Ultrix clients sometimes give negative timeouts? */
282 1.18 jonathan if (atv.tv_sec < 0 || atv.tv_usec < 0)
283 1.27 christos printf("ultrix select( %ld, %ld): negative timeout\n",
284 1.26 christos atv.tv_sec, atv.tv_usec);
285 1.18 jonathan #endif
286 1.18 jonathan
287 1.18 jonathan }
288 1.81 thorpej error = sys_select(l, (void*) uap, retval);
289 1.18 jonathan if (error == EINVAL)
290 1.27 christos printf("ultrix select: bad args?\n");
291 1.18 jonathan
292 1.18 jonathan done:
293 1.18 jonathan return error;
294 1.1 glass }
295 1.1 glass
296 1.29 thorpej #if defined(NFS)
297 1.23 jonathan int
298 1.93 simonb async_daemon(struct lwp *l, void *v, register_t *retval)
299 1.1 glass {
300 1.16 mycroft struct sys_nfssvc_args ouap;
301 1.1 glass
302 1.16 mycroft SCARG(&ouap, flag) = NFSSVC_BIOD;
303 1.16 mycroft SCARG(&ouap, argp) = NULL;
304 1.3 glass
305 1.81 thorpej return (sys_nfssvc(l, &ouap, retval));
306 1.3 glass }
307 1.29 thorpej #endif /* NFS */
308 1.3 glass
309 1.1 glass
310 1.1 glass #define SUN__MAP_NEW 0x80000000 /* if not, old mmap & cannot handle */
311 1.1 glass
312 1.20 jonathan int
313 1.93 simonb ultrix_sys_mmap(struct lwp *l, void *v, register_t *retval)
314 1.1 glass {
315 1.56 augustss struct ultrix_sys_mmap_args *uap = v;
316 1.16 mycroft struct sys_mmap_args ouap;
317 1.1 glass
318 1.1 glass /*
319 1.1 glass * Verify the arguments.
320 1.1 glass */
321 1.16 mycroft if (SCARG(uap, prot) & ~(PROT_READ|PROT_WRITE|PROT_EXEC))
322 1.1 glass return (EINVAL); /* XXX still needed? */
323 1.1 glass
324 1.16 mycroft if ((SCARG(uap, flags) & SUN__MAP_NEW) == 0)
325 1.1 glass return (EINVAL);
326 1.1 glass
327 1.16 mycroft SCARG(&ouap, flags) = SCARG(uap, flags) & ~SUN__MAP_NEW;
328 1.16 mycroft SCARG(&ouap, addr) = SCARG(uap, addr);
329 1.16 mycroft SCARG(&ouap, len) = SCARG(uap, len);
330 1.16 mycroft SCARG(&ouap, prot) = SCARG(uap, prot);
331 1.16 mycroft SCARG(&ouap, fd) = SCARG(uap, fd);
332 1.16 mycroft SCARG(&ouap, pos) = SCARG(uap, pos);
333 1.1 glass
334 1.81 thorpej return (sys_mmap(l, &ouap, retval));
335 1.1 glass }
336 1.1 glass
337 1.23 jonathan int
338 1.93 simonb ultrix_sys_setsockopt(struct lwp *l, void *v, register_t *retval)
339 1.1 glass {
340 1.56 augustss struct ultrix_sys_setsockopt_args *uap = v;
341 1.81 thorpej struct proc *p = l->l_proc;
342 1.1 glass struct file *fp;
343 1.1 glass struct mbuf *m = NULL;
344 1.1 glass int error;
345 1.1 glass
346 1.51 thorpej /* getsock() will use the descriptor for us */
347 1.23 jonathan if ((error = getsock(p->p_fd, SCARG(uap, s), &fp)) != 0)
348 1.1 glass return (error);
349 1.1 glass #define SO_DONTLINGER (~SO_LINGER)
350 1.16 mycroft if (SCARG(uap, name) == SO_DONTLINGER) {
351 1.1 glass m = m_get(M_WAIT, MT_SOOPTS);
352 1.1 glass mtod(m, struct linger *)->l_onoff = 0;
353 1.1 glass m->m_len = sizeof(struct linger);
354 1.51 thorpej error = sosetopt((struct socket *)fp->f_data, SCARG(uap, level),
355 1.51 thorpej SO_LINGER, m);
356 1.1 glass }
357 1.30 jonathan if (SCARG(uap, level) == IPPROTO_IP) {
358 1.30 jonathan #define EMUL_IP_MULTICAST_IF 2
359 1.30 jonathan #define EMUL_IP_MULTICAST_TTL 3
360 1.30 jonathan #define EMUL_IP_MULTICAST_LOOP 4
361 1.30 jonathan #define EMUL_IP_ADD_MEMBERSHIP 5
362 1.30 jonathan #define EMUL_IP_DROP_MEMBERSHIP 6
363 1.94 matt static const int ipoptxlat[] = {
364 1.30 jonathan IP_MULTICAST_IF,
365 1.30 jonathan IP_MULTICAST_TTL,
366 1.30 jonathan IP_MULTICAST_LOOP,
367 1.30 jonathan IP_ADD_MEMBERSHIP,
368 1.30 jonathan IP_DROP_MEMBERSHIP
369 1.30 jonathan };
370 1.30 jonathan if (SCARG(uap, name) >= EMUL_IP_MULTICAST_IF &&
371 1.30 jonathan SCARG(uap, name) <= EMUL_IP_DROP_MEMBERSHIP) {
372 1.30 jonathan SCARG(uap, name) =
373 1.30 jonathan ipoptxlat[SCARG(uap, name) - EMUL_IP_MULTICAST_IF];
374 1.30 jonathan }
375 1.30 jonathan }
376 1.51 thorpej if (SCARG(uap, valsize) > MLEN) {
377 1.51 thorpej error = EINVAL;
378 1.51 thorpej goto out;
379 1.51 thorpej }
380 1.16 mycroft if (SCARG(uap, val)) {
381 1.1 glass m = m_get(M_WAIT, MT_SOOPTS);
382 1.30 jonathan error = copyin(SCARG(uap, val), mtod(m, caddr_t),
383 1.30 jonathan (u_int)SCARG(uap, valsize));
384 1.30 jonathan if (error) {
385 1.1 glass (void) m_free(m);
386 1.51 thorpej goto out;
387 1.1 glass }
388 1.16 mycroft m->m_len = SCARG(uap, valsize);
389 1.1 glass }
390 1.51 thorpej error = sosetopt((struct socket *)fp->f_data, SCARG(uap, level),
391 1.51 thorpej SCARG(uap, name), m);
392 1.51 thorpej out:
393 1.85 fvdl FILE_UNUSE(fp, p);
394 1.51 thorpej return (error);
395 1.1 glass }
396 1.1 glass
397 1.57 simonb #define ULTRIX__SYS_NMLN 32
398 1.57 simonb
399 1.16 mycroft struct ultrix_utsname {
400 1.57 simonb char sysname[ULTRIX__SYS_NMLN];
401 1.57 simonb char nodename[ULTRIX__SYS_NMLN];
402 1.57 simonb char release[ULTRIX__SYS_NMLN];
403 1.57 simonb char version[ULTRIX__SYS_NMLN];
404 1.57 simonb char machine[ULTRIX__SYS_NMLN];
405 1.1 glass };
406 1.1 glass
407 1.20 jonathan int
408 1.93 simonb ultrix_sys_uname(struct lwp *l, void *v, register_t *retval)
409 1.1 glass {
410 1.16 mycroft struct ultrix_sys_uname_args *uap = v;
411 1.16 mycroft struct ultrix_utsname sut;
412 1.59 nisimura const char *cp;
413 1.59 nisimura char *dp, *ep;
414 1.1 glass
415 1.41 perry memset(&sut, 0, sizeof(sut));
416 1.1 glass
417 1.57 simonb strncpy(sut.sysname, ostype, sizeof(sut.sysname) - 1);
418 1.57 simonb strncpy(sut.nodename, hostname, sizeof(sut.nodename) - 1);
419 1.57 simonb strncpy(sut.release, osrelease, sizeof(sut.release) - 1);
420 1.59 nisimura dp = sut.version;
421 1.59 nisimura ep = &sut.version[sizeof(sut.version) - 1];
422 1.59 nisimura for (cp = version; *cp && *cp != '('; cp++)
423 1.59 nisimura ;
424 1.59 nisimura for (cp++; *cp && *cp != ')' && dp < ep; cp++)
425 1.59 nisimura *dp++ = *cp;
426 1.59 nisimura for (; *cp && *cp != '#'; cp++)
427 1.59 nisimura ;
428 1.59 nisimura for (; *cp && *cp != ':' && dp < ep; cp++)
429 1.59 nisimura *dp++ = *cp;
430 1.59 nisimura *dp = '\0';
431 1.57 simonb strncpy(sut.machine, machine, sizeof(sut.machine) - 1);
432 1.1 glass
433 1.16 mycroft return copyout((caddr_t)&sut, (caddr_t)SCARG(uap, name),
434 1.16 mycroft sizeof(struct ultrix_utsname));
435 1.1 glass }
436 1.1 glass
437 1.1 glass int
438 1.93 simonb ultrix_sys_setpgrp(struct lwp *l, void *v, register_t *retval)
439 1.1 glass {
440 1.16 mycroft struct ultrix_sys_setpgrp_args *uap = v;
441 1.81 thorpej struct proc *p = l->l_proc;
442 1.15 thorpej
443 1.1 glass /*
444 1.1 glass * difference to our setpgid call is to include backwards
445 1.1 glass * compatibility to pre-setsid() binaries. Do setsid()
446 1.1 glass * instead of setpgid() in those cases where the process
447 1.1 glass * tries to create a new session the old way.
448 1.1 glass */
449 1.16 mycroft if (!SCARG(uap, pgid) &&
450 1.16 mycroft (!SCARG(uap, pid) || SCARG(uap, pid) == p->p_pid))
451 1.81 thorpej return sys_setsid(l, uap, retval);
452 1.1 glass else
453 1.81 thorpej return sys_setpgid(l, uap, retval);
454 1.1 glass }
455 1.1 glass
456 1.1 glass #if defined (NFSSERVER)
457 1.20 jonathan int
458 1.93 simonb ultrix_sys_nfssvc(struct lwp *l, void *v, register_t *retval)
459 1.1 glass {
460 1.23 jonathan
461 1.23 jonathan #if 0 /* XXX */
462 1.16 mycroft struct ultrix_sys_nfssvc_args *uap = v;
463 1.16 mycroft struct emul *e = p->p_emul;
464 1.16 mycroft struct sys_nfssvc_args outuap;
465 1.1 glass struct sockaddr sa;
466 1.1 glass int error;
467 1.76 christos caddr_t sg = stackgap_init(p, 0);
468 1.1 glass
469 1.41 perry memset(&outuap, 0, sizeof outuap);
470 1.16 mycroft SCARG(&outuap, fd) = SCARG(uap, fd);
471 1.76 christos SCARG(&outuap, mskval) = stackgap_alloc(p, &sg, sizeof sa);
472 1.16 mycroft SCARG(&outuap, msklen) = sizeof sa;
473 1.76 christos SCARG(&outuap, mtchval) = stackgap_alloc(p, &sg, sizeof sa);
474 1.16 mycroft SCARG(&outuap, mtchlen) = sizeof sa;
475 1.1 glass
476 1.41 perry memset(&sa, 0, sizeof sa);
477 1.16 mycroft if (error = copyout(&sa, SCARG(&outuap, mskval), SCARG(&outuap, msklen)))
478 1.1 glass return (error);
479 1.16 mycroft if (error = copyout(&sa, SCARG(&outuap, mtchval), SCARG(&outuap, mtchlen)))
480 1.1 glass return (error);
481 1.1 glass
482 1.81 thorpej return nfssvc(l, &outuap, retval);
483 1.16 mycroft #else
484 1.16 mycroft return (ENOSYS);
485 1.16 mycroft #endif
486 1.1 glass }
487 1.1 glass #endif /* NFSSERVER */
488 1.1 glass
489 1.16 mycroft struct ultrix_ustat {
490 1.1 glass daddr_t f_tfree; /* total free */
491 1.1 glass ino_t f_tinode; /* total inodes free */
492 1.1 glass char f_fname[6]; /* filsys name */
493 1.1 glass char f_fpack[6]; /* filsys pack name */
494 1.1 glass };
495 1.16 mycroft
496 1.20 jonathan int
497 1.93 simonb ultrix_sys_ustat(struct lwp *l, void *v, register_t *retval)
498 1.1 glass {
499 1.16 mycroft struct ultrix_sys_ustat_args *uap = v;
500 1.16 mycroft struct ultrix_ustat us;
501 1.1 glass int error;
502 1.1 glass
503 1.41 perry memset(&us, 0, sizeof us);
504 1.1 glass
505 1.1 glass /*
506 1.1 glass * XXX: should set f_tfree and f_tinode at least
507 1.16 mycroft * How do we translate dev -> fstat? (and then to ultrix_ustat)
508 1.1 glass */
509 1.1 glass
510 1.23 jonathan if ((error = copyout(&us, SCARG(uap, buf), sizeof us)) != 0)
511 1.1 glass return (error);
512 1.1 glass return 0;
513 1.1 glass }
514 1.1 glass
515 1.20 jonathan int
516 1.93 simonb ultrix_sys_quotactl(struct lwp *l, void *v, register_t *retval)
517 1.1 glass {
518 1.23 jonathan
519 1.23 jonathan #ifdef notyet
520 1.16 mycroft struct ultrix_sys_quotactl_args *uap = v;
521 1.23 jonathan #endif
522 1.15 thorpej
523 1.1 glass return EINVAL;
524 1.1 glass }
525 1.1 glass
526 1.20 jonathan int
527 1.93 simonb ultrix_sys_vhangup(struct lwp *l, void *v, register_t *retval)
528 1.1 glass {
529 1.16 mycroft
530 1.1 glass return 0;
531 1.1 glass }
532 1.35 jonathan
533 1.35 jonathan
534 1.35 jonathan /*
535 1.35 jonathan * RISC Ultrix cache control syscalls
536 1.35 jonathan */
537 1.35 jonathan #ifdef __mips
538 1.35 jonathan int
539 1.93 simonb ultrix_sys_cacheflush(struct lwp *l, void *v, register_t *retval)
540 1.35 jonathan {
541 1.56 augustss struct ultrix_sys_cacheflush_args /* {
542 1.35 jonathan syscallarg(void *) addr;
543 1.95 david syscallarg(unsigned) nbytes;
544 1.35 jonathan syscallarg(int) flag;
545 1.35 jonathan } */ *uap = v;
546 1.81 thorpej struct proc *p = l->l_proc;
547 1.56 augustss vaddr_t va = (vaddr_t)SCARG(uap, addr);
548 1.56 augustss int nbytes = SCARG(uap, nbytes);
549 1.56 augustss int whichcache = SCARG(uap, whichcache);
550 1.35 jonathan
551 1.35 jonathan return (mips_user_cacheflush(p, va, nbytes, whichcache));
552 1.35 jonathan }
553 1.35 jonathan
554 1.35 jonathan
555 1.35 jonathan int
556 1.93 simonb ultrix_sys_cachectl(struct lwp *l, void *v, register_t *retval)
557 1.35 jonathan {
558 1.56 augustss struct ultrix_sys_cachectl_args /* {
559 1.35 jonathan syscallarg(void *) addr;
560 1.35 jonathan syscallarg(int) nbytes;
561 1.35 jonathan syscallarg(int) cacheop;
562 1.35 jonathan } */ *uap = v;
563 1.81 thorpej struct proc *p = l->l_proc;
564 1.56 augustss vaddr_t va = (vaddr_t)SCARG(uap, addr);
565 1.56 augustss int nbytes = SCARG(uap, nbytes);
566 1.56 augustss int cacheop = SCARG(uap, cacheop);
567 1.35 jonathan
568 1.35 jonathan return mips_user_cachectl(p, va, nbytes, cacheop);
569 1.35 jonathan }
570 1.35 jonathan
571 1.35 jonathan #endif /* __mips */
572 1.35 jonathan
573 1.1 glass
574 1.20 jonathan int
575 1.93 simonb ultrix_sys_exportfs(struct lwp *l, void *v, register_t *retval)
576 1.1 glass {
577 1.23 jonathan #ifdef notyet
578 1.16 mycroft struct ultrix_sys_exportfs_args *uap = v;
579 1.23 jonathan #endif
580 1.15 thorpej
581 1.1 glass /*
582 1.1 glass * XXX: should perhaps translate into a mount(2)
583 1.1 glass * with MOUNT_EXPORT?
584 1.1 glass */
585 1.1 glass return 0;
586 1.1 glass }
587 1.1 glass
588 1.16 mycroft int
589 1.93 simonb ultrix_sys_sigpending(struct lwp *l, void *v, register_t *retval)
590 1.19 jonathan {
591 1.19 jonathan struct ultrix_sys_sigpending_args *uap = v;
592 1.43 drochner sigset_t ss;
593 1.43 drochner int mask;
594 1.43 drochner
595 1.81 thorpej sigpending1(l->l_proc, &ss);
596 1.43 drochner mask = ss.__bits[0];
597 1.19 jonathan
598 1.19 jonathan return (copyout((caddr_t)&mask, (caddr_t)SCARG(uap, mask), sizeof(int)));
599 1.19 jonathan }
600 1.19 jonathan
601 1.19 jonathan int
602 1.93 simonb ultrix_sys_sigreturn(struct lwp *l, void *v, register_t *retval)
603 1.44 drochner {
604 1.44 drochner struct ultrix_sys_sigreturn_args *uap = v;
605 1.44 drochner
606 1.45 drochner /* struct sigcontext13 is close enough to Ultrix */
607 1.45 drochner
608 1.81 thorpej return (compat_13_sys_sigreturn(l, uap, retval));
609 1.44 drochner }
610 1.44 drochner
611 1.44 drochner int
612 1.93 simonb ultrix_sys_sigcleanup(struct lwp *l, void *v, register_t *retval)
613 1.13 mellon {
614 1.16 mycroft struct ultrix_sys_sigcleanup_args *uap = v;
615 1.15 thorpej
616 1.45 drochner /* struct sigcontext13 is close enough to Ultrix */
617 1.45 drochner
618 1.81 thorpej return (compat_13_sys_sigreturn(l, uap, retval));
619 1.44 drochner }
620 1.44 drochner
621 1.44 drochner int
622 1.93 simonb ultrix_sys_sigsuspend(struct lwp *l, void *v, register_t *retval)
623 1.44 drochner {
624 1.44 drochner struct ultrix_sys_sigsuspend_args *uap = v;
625 1.44 drochner int mask = SCARG(uap, mask);
626 1.44 drochner sigset_t ss;
627 1.44 drochner
628 1.44 drochner ss.__bits[0] = mask;
629 1.44 drochner ss.__bits[1] = 0;
630 1.44 drochner ss.__bits[2] = 0;
631 1.44 drochner ss.__bits[3] = 0;
632 1.44 drochner
633 1.81 thorpej return (sigsuspend1(l->l_proc, &ss));
634 1.19 jonathan }
635 1.19 jonathan
636 1.46 drochner #define ULTRIX_SV_ONSTACK 0x0001 /* take signal on signal stack */
637 1.46 drochner #define ULTRIX_SV_INTERRUPT 0x0002 /* do not restart system on signal return */
638 1.46 drochner #define ULTRIX_SV_OLDSIG 0x1000 /* Emulate old signal() for POSIX */
639 1.46 drochner
640 1.46 drochner int
641 1.93 simonb ultrix_sys_sigvec(struct lwp *l, void *v, register_t *retval)
642 1.46 drochner {
643 1.46 drochner struct ultrix_sys_sigvec_args *uap = v;
644 1.46 drochner struct sigvec nsv, osv;
645 1.46 drochner struct sigaction nsa, osa;
646 1.46 drochner int error;
647 1.46 drochner
648 1.46 drochner if (SCARG(uap, nsv)) {
649 1.46 drochner error = copyin(SCARG(uap, nsv), &nsv, sizeof(nsv));
650 1.46 drochner if (error)
651 1.46 drochner return (error);
652 1.46 drochner nsa.sa_handler = nsv.sv_handler;
653 1.46 drochner #if 0 /* documentation */
654 1.46 drochner /* ONSTACK is identical */
655 1.46 drochner nsa.sa_flags = nsv.sv_flags & ULTRIX_SV_ONSTACK;
656 1.46 drochner if ((nsv.sv_flags & ULTRIX_SV_OLDSIG)
657 1.46 drochner /* old signal() - always restart */
658 1.46 drochner || (!(nsv.sv_flags & ULTRIX_SV_INTERRUPT))
659 1.46 drochner /* inverted meaning (same bit) */
660 1.46 drochner )
661 1.46 drochner nsa.sa_flags |= SA_RESTART;
662 1.46 drochner #else /* optimized - assuming ULTRIX_SV_OLDSIG=>!ULTRIX_SV_INTERRUPT */
663 1.46 drochner nsa.sa_flags = nsv.sv_flags & ~ULTRIX_SV_OLDSIG;
664 1.46 drochner nsa.sa_flags ^= SA_RESTART;
665 1.46 drochner #endif
666 1.46 drochner native_sigset13_to_sigset(&nsv.sv_mask, &nsa.sa_mask);
667 1.46 drochner }
668 1.81 thorpej error = sigaction1(l->l_proc, SCARG(uap, signum),
669 1.77 thorpej SCARG(uap, nsv) ? &nsa : 0, SCARG(uap, osv) ? &osa : 0,
670 1.77 thorpej NULL, 0);
671 1.46 drochner if (error)
672 1.46 drochner return (error);
673 1.46 drochner if (SCARG(uap, osv)) {
674 1.46 drochner osv.sv_handler = osa.sa_handler;
675 1.46 drochner osv.sv_flags = osa.sa_flags ^ SA_RESTART;
676 1.46 drochner osv.sv_flags &= (ULTRIX_SV_ONSTACK | ULTRIX_SV_INTERRUPT);
677 1.46 drochner native_sigset_to_sigset13(&osa.sa_mask, &osv.sv_mask);
678 1.46 drochner error = copyout(&osv, SCARG(uap, osv), sizeof(osv));
679 1.46 drochner if (error)
680 1.46 drochner return (error);
681 1.46 drochner }
682 1.46 drochner return (0);
683 1.46 drochner }
684 1.30 jonathan
685 1.32 jonathan int
686 1.93 simonb ultrix_sys_shmsys(struct lwp *l, void *v, register_t *retval)
687 1.30 jonathan {
688 1.30 jonathan
689 1.30 jonathan #ifdef SYSVSHM
690 1.30 jonathan /* Ultrix SVSHM weirndess: */
691 1.30 jonathan struct ultrix_sys_shmsys_args *uap = v;
692 1.30 jonathan struct sys_shmat_args shmat_args;
693 1.53 thorpej struct compat_14_sys_shmctl_args shmctl_args;
694 1.30 jonathan struct sys_shmdt_args shmdt_args;
695 1.30 jonathan struct sys_shmget_args shmget_args;
696 1.30 jonathan
697 1.30 jonathan
698 1.30 jonathan switch (SCARG(uap, shmop)) {
699 1.30 jonathan case 0: /* Ultrix shmat() */
700 1.30 jonathan SCARG(&shmat_args, shmid) = SCARG(uap, a2);
701 1.30 jonathan SCARG(&shmat_args, shmaddr) = (void *)SCARG(uap, a3);
702 1.30 jonathan SCARG(&shmat_args, shmflg) = SCARG(uap, a4);
703 1.81 thorpej return (sys_shmat(l, &shmat_args, retval));
704 1.30 jonathan
705 1.30 jonathan case 1: /* Ultrix shmctl() */
706 1.30 jonathan SCARG(&shmctl_args, shmid) = SCARG(uap, a2);
707 1.30 jonathan SCARG(&shmctl_args, cmd) = SCARG(uap, a3);
708 1.53 thorpej SCARG(&shmctl_args, buf) = (struct shmid_ds14 *)SCARG(uap, a4);
709 1.81 thorpej return (compat_14_sys_shmctl(l, &shmctl_args, retval));
710 1.30 jonathan
711 1.30 jonathan case 2: /* Ultrix shmdt() */
712 1.30 jonathan SCARG(&shmat_args, shmaddr) = (void *)SCARG(uap, a2);
713 1.81 thorpej return (sys_shmdt(l, &shmdt_args, retval));
714 1.30 jonathan
715 1.30 jonathan case 3: /* Ultrix shmget() */
716 1.30 jonathan SCARG(&shmget_args, key) = SCARG(uap, a2);
717 1.30 jonathan SCARG(&shmget_args, size) = SCARG(uap, a3);
718 1.30 jonathan SCARG(&shmget_args, shmflg) = SCARG(uap, a4)
719 1.30 jonathan & (IPC_CREAT|IPC_EXCL|IPC_NOWAIT);
720 1.81 thorpej return (sys_shmget(l, &shmget_args, retval));
721 1.30 jonathan
722 1.30 jonathan default:
723 1.30 jonathan return (EINVAL);
724 1.30 jonathan }
725 1.31 jonathan #else
726 1.31 jonathan return (EOPNOTSUPP);
727 1.30 jonathan #endif /* SYSVSHM */
728 1.52 drochner }
729 1.52 drochner
730 1.52 drochner static int
731 1.93 simonb ultrix_to_bsd_flock(struct ultrix_flock *ufl, struct flock *fl)
732 1.52 drochner {
733 1.52 drochner
734 1.52 drochner fl->l_start = ufl->l_start;
735 1.52 drochner fl->l_len = ufl->l_len;
736 1.52 drochner fl->l_pid = ufl->l_pid;
737 1.52 drochner fl->l_whence = ufl->l_whence;
738 1.52 drochner
739 1.52 drochner switch (ufl->l_type) {
740 1.52 drochner case ULTRIX_F_RDLCK:
741 1.52 drochner fl->l_type = F_RDLCK;
742 1.52 drochner break;
743 1.52 drochner case ULTRIX_F_WRLCK:
744 1.52 drochner fl->l_type = F_WRLCK;
745 1.52 drochner break;
746 1.52 drochner case ULTRIX_F_UNLCK:
747 1.52 drochner fl->l_type = F_UNLCK;
748 1.52 drochner break;
749 1.52 drochner default:
750 1.52 drochner return (EINVAL);
751 1.52 drochner }
752 1.52 drochner
753 1.52 drochner return (0);
754 1.52 drochner }
755 1.52 drochner
756 1.52 drochner static void
757 1.93 simonb bsd_to_ultrix_flock(struct flock *fl, struct ultrix_flock *ufl)
758 1.52 drochner {
759 1.52 drochner
760 1.52 drochner ufl->l_start = fl->l_start;
761 1.52 drochner ufl->l_len = fl->l_len;
762 1.52 drochner ufl->l_pid = fl->l_pid;
763 1.52 drochner ufl->l_whence = fl->l_whence;
764 1.52 drochner
765 1.52 drochner switch (fl->l_type) {
766 1.52 drochner case F_RDLCK:
767 1.52 drochner ufl->l_type = ULTRIX_F_RDLCK;
768 1.52 drochner break;
769 1.52 drochner case F_WRLCK:
770 1.52 drochner ufl->l_type = ULTRIX_F_WRLCK;
771 1.52 drochner break;
772 1.52 drochner case F_UNLCK:
773 1.52 drochner ufl->l_type = ULTRIX_F_UNLCK;
774 1.52 drochner break;
775 1.52 drochner }
776 1.52 drochner }
777 1.52 drochner
778 1.52 drochner int
779 1.93 simonb ultrix_sys_fcntl(struct lwp *l, void *v, register_t *retval)
780 1.52 drochner {
781 1.52 drochner struct ultrix_sys_fcntl_args *uap = v;
782 1.81 thorpej struct proc *p = l->l_proc;
783 1.52 drochner int error;
784 1.52 drochner struct ultrix_flock ufl;
785 1.88 simonb struct flock fl, *flp = NULL; /* XXX gcc */
786 1.52 drochner caddr_t sg;
787 1.52 drochner struct sys_fcntl_args *args, fca;
788 1.52 drochner
789 1.52 drochner switch (SCARG(uap, cmd)) {
790 1.52 drochner case F_GETLK:
791 1.52 drochner case F_SETLK:
792 1.52 drochner case F_SETLKW:
793 1.52 drochner error = copyin(SCARG(uap, arg), &ufl, sizeof(ufl));
794 1.52 drochner if (error)
795 1.52 drochner return (error);
796 1.52 drochner error = ultrix_to_bsd_flock(&ufl, &fl);
797 1.52 drochner if (error)
798 1.52 drochner return (error);
799 1.75 christos sg = stackgap_init(p, 0);
800 1.75 christos flp = (struct flock *)stackgap_alloc(p, &sg, sizeof(*flp));
801 1.52 drochner error = copyout(&fl, flp, sizeof(*flp));
802 1.52 drochner if (error)
803 1.52 drochner return (error);
804 1.52 drochner
805 1.52 drochner SCARG(&fca, fd) = SCARG(uap, fd);
806 1.52 drochner SCARG(&fca, cmd) = SCARG(uap, cmd);
807 1.52 drochner SCARG(&fca, arg) = flp;
808 1.52 drochner args = &fca;
809 1.52 drochner break;
810 1.52 drochner default:
811 1.52 drochner args = v;
812 1.52 drochner break;
813 1.52 drochner }
814 1.52 drochner
815 1.81 thorpej error = sys_fcntl(l, args, retval);
816 1.52 drochner if (error)
817 1.52 drochner return (error);
818 1.52 drochner
819 1.52 drochner switch (SCARG(uap, cmd)) {
820 1.52 drochner case F_GETLK:
821 1.52 drochner error = copyin(flp, &fl, sizeof(fl));
822 1.52 drochner if (error)
823 1.52 drochner return (error);
824 1.52 drochner bsd_to_ultrix_flock(&fl, &ufl);
825 1.52 drochner error = copyout(&ufl, SCARG(uap, arg), sizeof(ufl));
826 1.52 drochner break;
827 1.52 drochner }
828 1.52 drochner
829 1.52 drochner return (error);
830 1.1 glass }
831