Commit | Line | Data |
---|---|---|
1da177e4 LT |
1 | /* $Id: sys_sunos32.c,v 1.64 2002/02/09 19:49:31 davem Exp $ |
2 | * sys_sunos32.c: SunOS binary compatibility layer on sparc64. | |
3 | * | |
4 | * Copyright (C) 1995, 1996, 1997 David S. Miller (davem@caip.rutgers.edu) | |
5 | * Copyright (C) 1995 Miguel de Icaza (miguel@nuclecu.unam.mx) | |
6 | * | |
7 | * Based upon preliminary work which is: | |
8 | * | |
9 | * Copyright (C) 1995 Adrian M. Rodriguez (adrian@remus.rutgers.edu) | |
10 | */ | |
11 | ||
12 | #include <linux/kernel.h> | |
13 | #include <linux/sched.h> | |
14 | #include <linux/types.h> | |
15 | #include <linux/compat.h> | |
16 | #include <linux/mman.h> | |
17 | #include <linux/mm.h> | |
18 | #include <linux/swap.h> | |
19 | #include <linux/fs.h> | |
20 | #include <linux/file.h> | |
21 | #include <linux/resource.h> | |
22 | #include <linux/ipc.h> | |
23 | #include <linux/shm.h> | |
24 | #include <linux/msg.h> | |
25 | #include <linux/sem.h> | |
26 | #include <linux/signal.h> | |
27 | #include <linux/uio.h> | |
28 | #include <linux/utsname.h> | |
29 | #include <linux/major.h> | |
30 | #include <linux/stat.h> | |
31 | #include <linux/slab.h> | |
32 | #include <linux/pagemap.h> | |
33 | #include <linux/errno.h> | |
34 | #include <linux/smp.h> | |
35 | #include <linux/smp_lock.h> | |
36 | #include <linux/syscalls.h> | |
37 | ||
38 | #include <asm/uaccess.h> | |
39 | #include <asm/page.h> | |
40 | #include <asm/pgtable.h> | |
41 | #include <asm/pconf.h> | |
42 | #include <asm/idprom.h> /* for gethostid() */ | |
43 | #include <asm/unistd.h> | |
44 | #include <asm/system.h> | |
45 | ||
46 | /* For the nfs mount emulation */ | |
47 | #include <linux/socket.h> | |
48 | #include <linux/in.h> | |
49 | #include <linux/nfs.h> | |
50 | #include <linux/nfs2.h> | |
51 | #include <linux/nfs_mount.h> | |
52 | ||
53 | /* for sunos_select */ | |
54 | #include <linux/time.h> | |
55 | #include <linux/personality.h> | |
56 | ||
57 | /* For SOCKET_I */ | |
58 | #include <linux/socket.h> | |
59 | #include <net/sock.h> | |
60 | #include <net/compat.h> | |
61 | ||
62 | #define SUNOS_NR_OPEN 256 | |
63 | ||
64 | asmlinkage u32 sunos_mmap(u32 addr, u32 len, u32 prot, u32 flags, u32 fd, u32 off) | |
65 | { | |
66 | struct file *file = NULL; | |
67 | unsigned long retval, ret_type; | |
68 | ||
69 | if (flags & MAP_NORESERVE) { | |
70 | static int cnt; | |
71 | if (cnt++ < 10) | |
72 | printk("%s: unimplemented SunOS MAP_NORESERVE mmap() flag\n", | |
73 | current->comm); | |
74 | flags &= ~MAP_NORESERVE; | |
75 | } | |
76 | retval = -EBADF; | |
77 | if (!(flags & MAP_ANONYMOUS)) { | |
78 | struct inode * inode; | |
79 | if (fd >= SUNOS_NR_OPEN) | |
80 | goto out; | |
81 | file = fget(fd); | |
82 | if (!file) | |
83 | goto out; | |
84 | inode = file->f_dentry->d_inode; | |
85 | if (imajor(inode) == MEM_MAJOR && iminor(inode) == 5) { | |
86 | flags |= MAP_ANONYMOUS; | |
87 | fput(file); | |
88 | file = NULL; | |
89 | } | |
90 | } | |
91 | ||
92 | retval = -EINVAL; | |
93 | if (!(flags & MAP_FIXED)) | |
94 | addr = 0; | |
95 | else if (len > 0xf0000000 || addr > 0xf0000000 - len) | |
96 | goto out_putf; | |
97 | ret_type = flags & _MAP_NEW; | |
98 | flags &= ~_MAP_NEW; | |
99 | ||
100 | flags &= ~(MAP_EXECUTABLE | MAP_DENYWRITE); | |
101 | down_write(¤t->mm->mmap_sem); | |
102 | retval = do_mmap(file, | |
103 | (unsigned long) addr, (unsigned long) len, | |
104 | (unsigned long) prot, (unsigned long) flags, | |
105 | (unsigned long) off); | |
106 | up_write(¤t->mm->mmap_sem); | |
107 | if (!ret_type) | |
108 | retval = ((retval < 0xf0000000) ? 0 : retval); | |
109 | out_putf: | |
110 | if (file) | |
111 | fput(file); | |
112 | out: | |
113 | return (u32) retval; | |
114 | } | |
115 | ||
116 | asmlinkage int sunos_mctl(u32 addr, u32 len, int function, u32 arg) | |
117 | { | |
118 | return 0; | |
119 | } | |
120 | ||
121 | asmlinkage int sunos_brk(u32 baddr) | |
122 | { | |
123 | int freepages, retval = -ENOMEM; | |
124 | unsigned long rlim; | |
125 | unsigned long newbrk, oldbrk, brk = (unsigned long) baddr; | |
126 | ||
127 | down_write(¤t->mm->mmap_sem); | |
128 | if (brk < current->mm->end_code) | |
129 | goto out; | |
130 | newbrk = PAGE_ALIGN(brk); | |
131 | oldbrk = PAGE_ALIGN(current->mm->brk); | |
132 | retval = 0; | |
133 | if (oldbrk == newbrk) { | |
134 | current->mm->brk = brk; | |
135 | goto out; | |
136 | } | |
137 | /* Always allow shrinking brk. */ | |
138 | if (brk <= current->mm->brk) { | |
139 | current->mm->brk = brk; | |
140 | do_munmap(current->mm, newbrk, oldbrk-newbrk); | |
141 | goto out; | |
142 | } | |
143 | /* Check against rlimit and stack.. */ | |
144 | retval = -ENOMEM; | |
145 | rlim = current->signal->rlim[RLIMIT_DATA].rlim_cur; | |
146 | if (rlim >= RLIM_INFINITY) | |
147 | rlim = ~0; | |
148 | if (brk - current->mm->end_code > rlim) | |
149 | goto out; | |
150 | /* Check against existing mmap mappings. */ | |
151 | if (find_vma_intersection(current->mm, oldbrk, newbrk+PAGE_SIZE)) | |
152 | goto out; | |
153 | /* stupid algorithm to decide if we have enough memory: while | |
154 | * simple, it hopefully works in most obvious cases.. Easy to | |
155 | * fool it, but this should catch most mistakes. | |
156 | */ | |
157 | freepages = get_page_cache_size(); | |
158 | freepages >>= 1; | |
159 | freepages += nr_free_pages(); | |
160 | freepages += nr_swap_pages; | |
161 | freepages -= num_physpages >> 4; | |
162 | freepages -= (newbrk-oldbrk) >> PAGE_SHIFT; | |
163 | if (freepages < 0) | |
164 | goto out; | |
165 | /* Ok, we have probably got enough memory - let it rip. */ | |
166 | current->mm->brk = brk; | |
167 | do_brk(oldbrk, newbrk-oldbrk); | |
168 | retval = 0; | |
169 | out: | |
170 | up_write(¤t->mm->mmap_sem); | |
171 | return retval; | |
172 | } | |
173 | ||
174 | asmlinkage u32 sunos_sbrk(int increment) | |
175 | { | |
176 | int error, oldbrk; | |
177 | ||
178 | /* This should do it hopefully... */ | |
179 | oldbrk = (int)current->mm->brk; | |
180 | error = sunos_brk(((int) current->mm->brk) + increment); | |
181 | if (!error) | |
182 | error = oldbrk; | |
183 | return error; | |
184 | } | |
185 | ||
186 | asmlinkage u32 sunos_sstk(int increment) | |
187 | { | |
188 | printk("%s: Call to sunos_sstk(increment<%d>) is unsupported\n", | |
189 | current->comm, increment); | |
190 | ||
191 | return (u32)-1; | |
192 | } | |
193 | ||
194 | /* Give hints to the kernel as to what paging strategy to use... | |
195 | * Completely bogus, don't remind me. | |
196 | */ | |
197 | #define VA_NORMAL 0 /* Normal vm usage expected */ | |
198 | #define VA_ABNORMAL 1 /* Abnormal/random vm usage probable */ | |
199 | #define VA_SEQUENTIAL 2 /* Accesses will be of a sequential nature */ | |
200 | #define VA_INVALIDATE 3 /* Page table entries should be flushed ??? */ | |
201 | static char *vstrings[] = { | |
202 | "VA_NORMAL", | |
203 | "VA_ABNORMAL", | |
204 | "VA_SEQUENTIAL", | |
205 | "VA_INVALIDATE", | |
206 | }; | |
207 | ||
208 | asmlinkage void sunos_vadvise(u32 strategy) | |
209 | { | |
210 | static int count; | |
211 | ||
212 | /* I wanna see who uses this... */ | |
213 | if (count++ < 5) | |
214 | printk("%s: Advises us to use %s paging strategy\n", | |
215 | current->comm, | |
216 | strategy <= 3 ? vstrings[strategy] : "BOGUS"); | |
217 | } | |
218 | ||
219 | /* This just wants the soft limit (ie. rlim_cur element) of the RLIMIT_NOFILE | |
220 | * resource limit and is for backwards compatibility with older sunos | |
221 | * revs. | |
222 | */ | |
223 | asmlinkage int sunos_getdtablesize(void) | |
224 | { | |
225 | return SUNOS_NR_OPEN; | |
226 | } | |
227 | ||
228 | ||
229 | #define _BLOCKABLE (~(sigmask(SIGKILL) | sigmask(SIGSTOP))) | |
230 | ||
231 | asmlinkage u32 sunos_sigblock(u32 blk_mask) | |
232 | { | |
233 | u32 old; | |
234 | ||
235 | spin_lock_irq(¤t->sighand->siglock); | |
236 | old = (u32) current->blocked.sig[0]; | |
237 | current->blocked.sig[0] |= (blk_mask & _BLOCKABLE); | |
238 | recalc_sigpending(); | |
239 | spin_unlock_irq(¤t->sighand->siglock); | |
240 | return old; | |
241 | } | |
242 | ||
243 | asmlinkage u32 sunos_sigsetmask(u32 newmask) | |
244 | { | |
245 | u32 retval; | |
246 | ||
247 | spin_lock_irq(¤t->sighand->siglock); | |
248 | retval = (u32) current->blocked.sig[0]; | |
249 | current->blocked.sig[0] = (newmask & _BLOCKABLE); | |
250 | recalc_sigpending(); | |
251 | spin_unlock_irq(¤t->sighand->siglock); | |
252 | return retval; | |
253 | } | |
254 | ||
255 | /* SunOS getdents is very similar to the newer Linux (iBCS2 compliant) */ | |
256 | /* getdents system call, the format of the structure just has a different */ | |
257 | /* layout (d_off+d_ino instead of d_ino+d_off) */ | |
258 | struct sunos_dirent { | |
259 | s32 d_off; | |
260 | u32 d_ino; | |
261 | u16 d_reclen; | |
262 | u16 d_namlen; | |
263 | char d_name[1]; | |
264 | }; | |
265 | ||
266 | struct sunos_dirent_callback { | |
267 | struct sunos_dirent __user *curr; | |
268 | struct sunos_dirent __user *previous; | |
269 | int count; | |
270 | int error; | |
271 | }; | |
272 | ||
273 | #define NAME_OFFSET(de) ((int) ((de)->d_name - (char __user *) (de))) | |
274 | #define ROUND_UP(x) (((x)+sizeof(s32)-1) & ~(sizeof(s32)-1)) | |
275 | ||
276 | static int sunos_filldir(void * __buf, const char * name, int namlen, | |
277 | loff_t offset, ino_t ino, unsigned int d_type) | |
278 | { | |
279 | struct sunos_dirent __user *dirent; | |
280 | struct sunos_dirent_callback * buf = (struct sunos_dirent_callback *) __buf; | |
281 | int reclen = ROUND_UP(NAME_OFFSET(dirent) + namlen + 1); | |
282 | ||
283 | buf->error = -EINVAL; /* only used if we fail.. */ | |
284 | if (reclen > buf->count) | |
285 | return -EINVAL; | |
286 | dirent = buf->previous; | |
287 | if (dirent) | |
288 | put_user(offset, &dirent->d_off); | |
289 | dirent = buf->curr; | |
290 | buf->previous = dirent; | |
291 | put_user(ino, &dirent->d_ino); | |
292 | put_user(namlen, &dirent->d_namlen); | |
293 | put_user(reclen, &dirent->d_reclen); | |
294 | if (copy_to_user(dirent->d_name, name, namlen)) | |
295 | return -EFAULT; | |
296 | put_user(0, dirent->d_name + namlen); | |
297 | dirent = (void __user *) dirent + reclen; | |
298 | buf->curr = dirent; | |
299 | buf->count -= reclen; | |
300 | return 0; | |
301 | } | |
302 | ||
303 | asmlinkage int sunos_getdents(unsigned int fd, void __user *dirent, int cnt) | |
304 | { | |
305 | struct file * file; | |
306 | struct sunos_dirent __user *lastdirent; | |
307 | struct sunos_dirent_callback buf; | |
308 | int error = -EBADF; | |
309 | ||
310 | if (fd >= SUNOS_NR_OPEN) | |
311 | goto out; | |
312 | ||
313 | file = fget(fd); | |
314 | if (!file) | |
315 | goto out; | |
316 | ||
317 | error = -EINVAL; | |
318 | if (cnt < (sizeof(struct sunos_dirent) + 255)) | |
319 | goto out_putf; | |
320 | ||
321 | buf.curr = (struct sunos_dirent __user *) dirent; | |
322 | buf.previous = NULL; | |
323 | buf.count = cnt; | |
324 | buf.error = 0; | |
325 | ||
326 | error = vfs_readdir(file, sunos_filldir, &buf); | |
327 | if (error < 0) | |
328 | goto out_putf; | |
329 | ||
330 | lastdirent = buf.previous; | |
331 | error = buf.error; | |
332 | if (lastdirent) { | |
333 | put_user(file->f_pos, &lastdirent->d_off); | |
334 | error = cnt - buf.count; | |
335 | } | |
336 | ||
337 | out_putf: | |
338 | fput(file); | |
339 | out: | |
340 | return error; | |
341 | } | |
342 | ||
343 | /* Old sunos getdirentries, severely broken compatibility stuff here. */ | |
344 | struct sunos_direntry { | |
345 | u32 d_ino; | |
346 | u16 d_reclen; | |
347 | u16 d_namlen; | |
348 | char d_name[1]; | |
349 | }; | |
350 | ||
351 | struct sunos_direntry_callback { | |
352 | struct sunos_direntry __user *curr; | |
353 | struct sunos_direntry __user *previous; | |
354 | int count; | |
355 | int error; | |
356 | }; | |
357 | ||
358 | static int sunos_filldirentry(void * __buf, const char * name, int namlen, | |
359 | loff_t offset, ino_t ino, unsigned int d_type) | |
360 | { | |
361 | struct sunos_direntry __user *dirent; | |
362 | struct sunos_direntry_callback * buf = | |
363 | (struct sunos_direntry_callback *) __buf; | |
364 | int reclen = ROUND_UP(NAME_OFFSET(dirent) + namlen + 1); | |
365 | ||
366 | buf->error = -EINVAL; /* only used if we fail.. */ | |
367 | if (reclen > buf->count) | |
368 | return -EINVAL; | |
369 | dirent = buf->previous; | |
370 | dirent = buf->curr; | |
371 | buf->previous = dirent; | |
372 | put_user(ino, &dirent->d_ino); | |
373 | put_user(namlen, &dirent->d_namlen); | |
374 | put_user(reclen, &dirent->d_reclen); | |
375 | if (copy_to_user(dirent->d_name, name, namlen)) | |
376 | return -EFAULT; | |
377 | put_user(0, dirent->d_name + namlen); | |
378 | dirent = (void __user *) dirent + reclen; | |
379 | buf->curr = dirent; | |
380 | buf->count -= reclen; | |
381 | return 0; | |
382 | } | |
383 | ||
384 | asmlinkage int sunos_getdirentries(unsigned int fd, | |
385 | void __user *dirent, | |
386 | int cnt, | |
387 | unsigned int __user *basep) | |
388 | { | |
389 | struct file * file; | |
390 | struct sunos_direntry __user *lastdirent; | |
391 | int error = -EBADF; | |
392 | struct sunos_direntry_callback buf; | |
393 | ||
394 | if (fd >= SUNOS_NR_OPEN) | |
395 | goto out; | |
396 | ||
397 | file = fget(fd); | |
398 | if (!file) | |
399 | goto out; | |
400 | ||
401 | error = -EINVAL; | |
402 | if (cnt < (sizeof(struct sunos_direntry) + 255)) | |
403 | goto out_putf; | |
404 | ||
405 | buf.curr = (struct sunos_direntry __user *) dirent; | |
406 | buf.previous = NULL; | |
407 | buf.count = cnt; | |
408 | buf.error = 0; | |
409 | ||
410 | error = vfs_readdir(file, sunos_filldirentry, &buf); | |
411 | if (error < 0) | |
412 | goto out_putf; | |
413 | ||
414 | lastdirent = buf.previous; | |
415 | error = buf.error; | |
416 | if (lastdirent) { | |
417 | put_user(file->f_pos, basep); | |
418 | error = cnt - buf.count; | |
419 | } | |
420 | ||
421 | out_putf: | |
422 | fput(file); | |
423 | out: | |
424 | return error; | |
425 | } | |
426 | ||
427 | struct sunos_utsname { | |
428 | char sname[9]; | |
429 | char nname[9]; | |
430 | char nnext[56]; | |
431 | char rel[9]; | |
432 | char ver[9]; | |
433 | char mach[9]; | |
434 | }; | |
435 | ||
436 | asmlinkage int sunos_uname(struct sunos_utsname __user *name) | |
437 | { | |
438 | int ret; | |
439 | ||
440 | down_read(&uts_sem); | |
441 | ret = copy_to_user(&name->sname[0], &system_utsname.sysname[0], | |
442 | sizeof(name->sname) - 1); | |
443 | ret |= copy_to_user(&name->nname[0], &system_utsname.nodename[0], | |
444 | sizeof(name->nname) - 1); | |
445 | ret |= put_user('\0', &name->nname[8]); | |
446 | ret |= copy_to_user(&name->rel[0], &system_utsname.release[0], | |
447 | sizeof(name->rel) - 1); | |
448 | ret |= copy_to_user(&name->ver[0], &system_utsname.version[0], | |
449 | sizeof(name->ver) - 1); | |
450 | ret |= copy_to_user(&name->mach[0], &system_utsname.machine[0], | |
451 | sizeof(name->mach) - 1); | |
452 | up_read(&uts_sem); | |
453 | return (ret ? -EFAULT : 0); | |
454 | } | |
455 | ||
456 | asmlinkage int sunos_nosys(void) | |
457 | { | |
458 | struct pt_regs *regs; | |
459 | siginfo_t info; | |
460 | static int cnt; | |
461 | ||
462 | regs = current_thread_info()->kregs; | |
463 | if (test_thread_flag(TIF_32BIT)) { | |
464 | regs->tpc &= 0xffffffff; | |
465 | regs->tnpc &= 0xffffffff; | |
466 | } | |
467 | info.si_signo = SIGSYS; | |
468 | info.si_errno = 0; | |
469 | info.si_code = __SI_FAULT|0x100; | |
470 | info.si_addr = (void __user *)regs->tpc; | |
471 | info.si_trapno = regs->u_regs[UREG_G1]; | |
472 | send_sig_info(SIGSYS, &info, current); | |
473 | if (cnt++ < 4) { | |
474 | printk("Process makes ni_syscall number %d, register dump:\n", | |
475 | (int) regs->u_regs[UREG_G1]); | |
476 | show_regs(regs); | |
477 | } | |
478 | return -ENOSYS; | |
479 | } | |
480 | ||
481 | /* This is not a real and complete implementation yet, just to keep | |
482 | * the easy SunOS binaries happy. | |
483 | */ | |
484 | asmlinkage int sunos_fpathconf(int fd, int name) | |
485 | { | |
486 | int ret; | |
487 | ||
488 | switch(name) { | |
489 | case _PCONF_LINK: | |
490 | ret = LINK_MAX; | |
491 | break; | |
492 | case _PCONF_CANON: | |
493 | ret = MAX_CANON; | |
494 | break; | |
495 | case _PCONF_INPUT: | |
496 | ret = MAX_INPUT; | |
497 | break; | |
498 | case _PCONF_NAME: | |
499 | ret = NAME_MAX; | |
500 | break; | |
501 | case _PCONF_PATH: | |
502 | ret = PATH_MAX; | |
503 | break; | |
504 | case _PCONF_PIPE: | |
505 | ret = PIPE_BUF; | |
506 | break; | |
507 | case _PCONF_CHRESTRICT: /* XXX Investigate XXX */ | |
508 | ret = 1; | |
509 | break; | |
510 | case _PCONF_NOTRUNC: /* XXX Investigate XXX */ | |
511 | case _PCONF_VDISABLE: | |
512 | ret = 0; | |
513 | break; | |
514 | default: | |
515 | ret = -EINVAL; | |
516 | break; | |
517 | } | |
518 | return ret; | |
519 | } | |
520 | ||
521 | asmlinkage int sunos_pathconf(u32 u_path, int name) | |
522 | { | |
523 | int ret; | |
524 | ||
525 | ret = sunos_fpathconf(0, name); /* XXX cheese XXX */ | |
526 | return ret; | |
527 | } | |
528 | ||
529 | asmlinkage int sunos_select(int width, u32 inp, u32 outp, u32 exp, u32 tvp_x) | |
530 | { | |
531 | int ret; | |
532 | ||
533 | /* SunOS binaries expect that select won't change the tvp contents */ | |
534 | ret = compat_sys_select(width, compat_ptr(inp), compat_ptr(outp), | |
535 | compat_ptr(exp), compat_ptr(tvp_x)); | |
536 | if (ret == -EINTR && tvp_x) { | |
537 | struct compat_timeval __user *tvp = compat_ptr(tvp_x); | |
538 | time_t sec, usec; | |
539 | ||
540 | __get_user(sec, &tvp->tv_sec); | |
541 | __get_user(usec, &tvp->tv_usec); | |
542 | if (sec == 0 && usec == 0) | |
543 | ret = 0; | |
544 | } | |
545 | return ret; | |
546 | } | |
547 | ||
548 | asmlinkage void sunos_nop(void) | |
549 | { | |
550 | return; | |
551 | } | |
552 | ||
553 | #if 0 /* This code doesn't translate user pointers correctly, | |
554 | * disable for now. -DaveM | |
555 | */ | |
556 | ||
557 | /* XXXXXXXXXX SunOS mount/umount. XXXXXXXXXXX */ | |
558 | #define SMNT_RDONLY 1 | |
559 | #define SMNT_NOSUID 2 | |
560 | #define SMNT_NEWTYPE 4 | |
561 | #define SMNT_GRPID 8 | |
562 | #define SMNT_REMOUNT 16 | |
563 | #define SMNT_NOSUB 32 | |
564 | #define SMNT_MULTI 64 | |
565 | #define SMNT_SYS5 128 | |
566 | ||
567 | struct sunos_fh_t { | |
568 | char fh_data [NFS_FHSIZE]; | |
569 | }; | |
570 | ||
571 | struct sunos_nfs_mount_args { | |
572 | struct sockaddr_in *addr; /* file server address */ | |
573 | struct nfs_fh *fh; /* File handle to be mounted */ | |
574 | int flags; /* flags */ | |
575 | int wsize; /* write size in bytes */ | |
576 | int rsize; /* read size in bytes */ | |
577 | int timeo; /* initial timeout in .1 secs */ | |
578 | int retrans; /* times to retry send */ | |
579 | char *hostname; /* server's hostname */ | |
580 | int acregmin; /* attr cache file min secs */ | |
581 | int acregmax; /* attr cache file max secs */ | |
582 | int acdirmin; /* attr cache dir min secs */ | |
583 | int acdirmax; /* attr cache dir max secs */ | |
584 | char *netname; /* server's netname */ | |
585 | }; | |
586 | ||
587 | ||
588 | /* Bind the socket on a local reserved port and connect it to the | |
589 | * remote server. This on Linux/i386 is done by the mount program, | |
590 | * not by the kernel. | |
591 | */ | |
592 | /* XXXXXXXXXXXXXXXXXXXX */ | |
593 | static int | |
594 | sunos_nfs_get_server_fd (int fd, struct sockaddr_in *addr) | |
595 | { | |
596 | struct sockaddr_in local; | |
597 | struct sockaddr_in server; | |
598 | int try_port; | |
599 | int ret; | |
600 | struct socket *socket; | |
601 | struct inode *inode; | |
602 | struct file *file; | |
603 | ||
604 | file = fget(fd); | |
605 | if (!file) | |
606 | return 0; | |
607 | ||
608 | inode = file->f_dentry->d_inode; | |
609 | ||
610 | socket = SOCKET_I(inode); | |
611 | local.sin_family = AF_INET; | |
612 | local.sin_addr.s_addr = INADDR_ANY; | |
613 | ||
614 | /* IPPORT_RESERVED = 1024, can't find the definition in the kernel */ | |
615 | try_port = 1024; | |
616 | do { | |
617 | local.sin_port = htons (--try_port); | |
618 | ret = socket->ops->bind(socket, (struct sockaddr*)&local, | |
619 | sizeof(local)); | |
620 | } while (ret && try_port > (1024 / 2)); | |
621 | ||
622 | if (ret) { | |
623 | fput(file); | |
624 | return 0; | |
625 | } | |
626 | ||
627 | server.sin_family = AF_INET; | |
628 | server.sin_addr = addr->sin_addr; | |
629 | server.sin_port = NFS_PORT; | |
630 | ||
631 | /* Call sys_connect */ | |
632 | ret = socket->ops->connect (socket, (struct sockaddr *) &server, | |
633 | sizeof (server), file->f_flags); | |
634 | fput(file); | |
635 | if (ret < 0) | |
636 | return 0; | |
637 | return 1; | |
638 | } | |
639 | ||
640 | /* XXXXXXXXXXXXXXXXXXXX */ | |
641 | static int get_default (int value, int def_value) | |
642 | { | |
643 | if (value) | |
644 | return value; | |
645 | else | |
646 | return def_value; | |
647 | } | |
648 | ||
649 | /* XXXXXXXXXXXXXXXXXXXX */ | |
650 | static int sunos_nfs_mount(char *dir_name, int linux_flags, void __user *data) | |
651 | { | |
652 | int server_fd, err; | |
653 | char *the_name, *mount_page; | |
654 | struct nfs_mount_data linux_nfs_mount; | |
655 | struct sunos_nfs_mount_args sunos_mount; | |
656 | ||
657 | /* Ok, here comes the fun part: Linux's nfs mount needs a | |
658 | * socket connection to the server, but SunOS mount does not | |
659 | * require this, so we use the information on the destination | |
660 | * address to create a socket and bind it to a reserved | |
661 | * port on this system | |
662 | */ | |
663 | if (copy_from_user(&sunos_mount, data, sizeof(sunos_mount))) | |
664 | return -EFAULT; | |
665 | ||
666 | server_fd = sys_socket (AF_INET, SOCK_DGRAM, IPPROTO_UDP); | |
667 | if (server_fd < 0) | |
668 | return -ENXIO; | |
669 | ||
670 | if (copy_from_user(&linux_nfs_mount.addr, sunos_mount.addr, | |
671 | sizeof(*sunos_mount.addr)) || | |
672 | copy_from_user(&linux_nfs_mount.root, sunos_mount.fh, | |
673 | sizeof(*sunos_mount.fh))) { | |
674 | sys_close (server_fd); | |
675 | return -EFAULT; | |
676 | } | |
677 | ||
678 | if (!sunos_nfs_get_server_fd (server_fd, &linux_nfs_mount.addr)){ | |
679 | sys_close (server_fd); | |
680 | return -ENXIO; | |
681 | } | |
682 | ||
683 | /* Now, bind it to a locally reserved port */ | |
684 | linux_nfs_mount.version = NFS_MOUNT_VERSION; | |
685 | linux_nfs_mount.flags = sunos_mount.flags; | |
686 | linux_nfs_mount.fd = server_fd; | |
687 | ||
688 | linux_nfs_mount.rsize = get_default (sunos_mount.rsize, 8192); | |
689 | linux_nfs_mount.wsize = get_default (sunos_mount.wsize, 8192); | |
690 | linux_nfs_mount.timeo = get_default (sunos_mount.timeo, 10); | |
691 | linux_nfs_mount.retrans = sunos_mount.retrans; | |
692 | ||
693 | linux_nfs_mount.acregmin = sunos_mount.acregmin; | |
694 | linux_nfs_mount.acregmax = sunos_mount.acregmax; | |
695 | linux_nfs_mount.acdirmin = sunos_mount.acdirmin; | |
696 | linux_nfs_mount.acdirmax = sunos_mount.acdirmax; | |
697 | ||
698 | the_name = getname(sunos_mount.hostname); | |
699 | if (IS_ERR(the_name)) | |
700 | return PTR_ERR(the_name); | |
701 | ||
702 | strlcpy(linux_nfs_mount.hostname, the_name, | |
703 | sizeof(linux_nfs_mount.hostname)); | |
704 | putname (the_name); | |
705 | ||
706 | mount_page = (char *) get_zeroed_page(GFP_KERNEL); | |
707 | if (!mount_page) | |
708 | return -ENOMEM; | |
709 | ||
710 | memcpy(mount_page, &linux_nfs_mount, sizeof(linux_nfs_mount)); | |
711 | ||
712 | err = do_mount("", dir_name, "nfs", linux_flags, mount_page); | |
713 | ||
714 | free_page((unsigned long) mount_page); | |
715 | return err; | |
716 | } | |
717 | ||
718 | /* XXXXXXXXXXXXXXXXXXXX */ | |
719 | asmlinkage int | |
720 | sunos_mount(char *type, char *dir, int flags, void *data) | |
721 | { | |
722 | int linux_flags = 0; | |
723 | int ret = -EINVAL; | |
724 | char *dev_fname = 0; | |
725 | char *dir_page, *type_page; | |
726 | ||
727 | if (!capable (CAP_SYS_ADMIN)) | |
728 | return -EPERM; | |
729 | ||
730 | /* We don't handle the integer fs type */ | |
731 | if ((flags & SMNT_NEWTYPE) == 0) | |
732 | goto out; | |
733 | ||
734 | /* Do not allow for those flags we don't support */ | |
735 | if (flags & (SMNT_GRPID|SMNT_NOSUB|SMNT_MULTI|SMNT_SYS5)) | |
736 | goto out; | |
737 | ||
738 | if (flags & SMNT_REMOUNT) | |
739 | linux_flags |= MS_REMOUNT; | |
740 | if (flags & SMNT_RDONLY) | |
741 | linux_flags |= MS_RDONLY; | |
742 | if (flags & SMNT_NOSUID) | |
743 | linux_flags |= MS_NOSUID; | |
744 | ||
745 | dir_page = getname(dir); | |
746 | ret = PTR_ERR(dir_page); | |
747 | if (IS_ERR(dir_page)) | |
748 | goto out; | |
749 | ||
750 | type_page = getname(type); | |
751 | ret = PTR_ERR(type_page); | |
752 | if (IS_ERR(type_page)) | |
753 | goto out1; | |
754 | ||
755 | if (strcmp(type_page, "ext2") == 0) { | |
756 | dev_fname = getname(data); | |
757 | } else if (strcmp(type_page, "iso9660") == 0) { | |
758 | dev_fname = getname(data); | |
759 | } else if (strcmp(type_page, "minix") == 0) { | |
760 | dev_fname = getname(data); | |
761 | } else if (strcmp(type_page, "nfs") == 0) { | |
762 | ret = sunos_nfs_mount (dir_page, flags, data); | |
763 | goto out2; | |
764 | } else if (strcmp(type_page, "ufs") == 0) { | |
765 | printk("Warning: UFS filesystem mounts unsupported.\n"); | |
766 | ret = -ENODEV; | |
767 | goto out2; | |
768 | } else if (strcmp(type_page, "proc")) { | |
769 | ret = -ENODEV; | |
770 | goto out2; | |
771 | } | |
772 | ret = PTR_ERR(dev_fname); | |
773 | if (IS_ERR(dev_fname)) | |
774 | goto out2; | |
775 | lock_kernel(); | |
776 | ret = do_mount(dev_fname, dir_page, type_page, linux_flags, NULL); | |
777 | unlock_kernel(); | |
778 | if (dev_fname) | |
779 | putname(dev_fname); | |
780 | out2: | |
781 | putname(type_page); | |
782 | out1: | |
783 | putname(dir_page); | |
784 | out: | |
785 | return ret; | |
786 | } | |
787 | #endif | |
788 | ||
789 | asmlinkage int sunos_setpgrp(pid_t pid, pid_t pgid) | |
790 | { | |
791 | int ret; | |
792 | ||
793 | /* So stupid... */ | |
794 | if ((!pid || pid == current->pid) && | |
795 | !pgid) { | |
796 | sys_setsid(); | |
797 | ret = 0; | |
798 | } else { | |
799 | ret = sys_setpgid(pid, pgid); | |
800 | } | |
801 | return ret; | |
802 | } | |
803 | ||
804 | /* So stupid... */ | |
805 | extern long compat_sys_wait4(compat_pid_t, compat_uint_t __user *, int, | |
806 | struct compat_rusage __user *); | |
807 | ||
808 | asmlinkage int sunos_wait4(compat_pid_t pid, compat_uint_t __user *stat_addr, int options, struct compat_rusage __user *ru) | |
809 | { | |
810 | int ret; | |
811 | ||
812 | ret = compat_sys_wait4((pid ? pid : ((compat_pid_t)-1)), | |
813 | stat_addr, options, ru); | |
814 | return ret; | |
815 | } | |
816 | ||
817 | extern int kill_pg(int, int, int); | |
818 | asmlinkage int sunos_killpg(int pgrp, int sig) | |
819 | { | |
820 | return kill_pg(pgrp, sig, 0); | |
821 | } | |
822 | ||
823 | asmlinkage int sunos_audit(void) | |
824 | { | |
825 | printk ("sys_audit\n"); | |
826 | return -1; | |
827 | } | |
828 | ||
829 | asmlinkage u32 sunos_gethostid(void) | |
830 | { | |
831 | u32 ret; | |
832 | ||
833 | ret = (((u32)idprom->id_machtype << 24) | ((u32)idprom->id_sernum)); | |
834 | ||
835 | return ret; | |
836 | } | |
837 | ||
838 | /* sysconf options, for SunOS compatibility */ | |
839 | #define _SC_ARG_MAX 1 | |
840 | #define _SC_CHILD_MAX 2 | |
841 | #define _SC_CLK_TCK 3 | |
842 | #define _SC_NGROUPS_MAX 4 | |
843 | #define _SC_OPEN_MAX 5 | |
844 | #define _SC_JOB_CONTROL 6 | |
845 | #define _SC_SAVED_IDS 7 | |
846 | #define _SC_VERSION 8 | |
847 | ||
848 | asmlinkage s32 sunos_sysconf (int name) | |
849 | { | |
850 | s32 ret; | |
851 | ||
852 | switch (name){ | |
853 | case _SC_ARG_MAX: | |
854 | ret = ARG_MAX; | |
855 | break; | |
856 | case _SC_CHILD_MAX: | |
857 | ret = CHILD_MAX; | |
858 | break; | |
859 | case _SC_CLK_TCK: | |
860 | ret = HZ; | |
861 | break; | |
862 | case _SC_NGROUPS_MAX: | |
863 | ret = NGROUPS_MAX; | |
864 | break; | |
865 | case _SC_OPEN_MAX: | |
866 | ret = OPEN_MAX; | |
867 | break; | |
868 | case _SC_JOB_CONTROL: | |
869 | ret = 1; /* yes, we do support job control */ | |
870 | break; | |
871 | case _SC_SAVED_IDS: | |
872 | ret = 1; /* yes, we do support saved uids */ | |
873 | break; | |
874 | case _SC_VERSION: | |
875 | /* mhm, POSIX_VERSION is in /usr/include/unistd.h | |
876 | * should it go on /usr/include/linux? | |
877 | */ | |
878 | ret = 199009; | |
879 | break; | |
880 | default: | |
881 | ret = -1; | |
882 | break; | |
883 | }; | |
884 | return ret; | |
885 | } | |
886 | ||
887 | asmlinkage int sunos_semsys(int op, u32 arg1, u32 arg2, u32 arg3, void __user *ptr) | |
888 | { | |
889 | union semun arg4; | |
890 | int ret; | |
891 | ||
892 | switch (op) { | |
893 | case 0: | |
894 | /* Most arguments match on a 1:1 basis but cmd doesn't */ | |
895 | switch(arg3) { | |
896 | case 4: | |
897 | arg3=GETPID; break; | |
898 | case 5: | |
899 | arg3=GETVAL; break; | |
900 | case 6: | |
901 | arg3=GETALL; break; | |
902 | case 3: | |
903 | arg3=GETNCNT; break; | |
904 | case 7: | |
905 | arg3=GETZCNT; break; | |
906 | case 8: | |
907 | arg3=SETVAL; break; | |
908 | case 9: | |
909 | arg3=SETALL; break; | |
910 | } | |
911 | /* sys_semctl(): */ | |
912 | /* value to modify semaphore to */ | |
913 | arg4.__pad = ptr; | |
914 | ret = sys_semctl((int)arg1, (int)arg2, (int)arg3, arg4); | |
915 | break; | |
916 | case 1: | |
917 | /* sys_semget(): */ | |
918 | ret = sys_semget((key_t)arg1, (int)arg2, (int)arg3); | |
919 | break; | |
920 | case 2: | |
921 | /* sys_semop(): */ | |
922 | ret = sys_semop((int)arg1, (struct sembuf __user *)(unsigned long)arg2, | |
923 | (unsigned int) arg3); | |
924 | break; | |
925 | default: | |
926 | ret = -EINVAL; | |
927 | break; | |
928 | }; | |
929 | return ret; | |
930 | } | |
931 | ||
932 | struct msgbuf32 { | |
933 | s32 mtype; | |
934 | char mtext[1]; | |
935 | }; | |
936 | ||
937 | struct ipc_perm32 | |
938 | { | |
939 | key_t key; | |
940 | compat_uid_t uid; | |
941 | compat_gid_t gid; | |
942 | compat_uid_t cuid; | |
943 | compat_gid_t cgid; | |
944 | compat_mode_t mode; | |
945 | unsigned short seq; | |
946 | }; | |
947 | ||
948 | struct msqid_ds32 | |
949 | { | |
950 | struct ipc_perm32 msg_perm; | |
951 | u32 msg_first; | |
952 | u32 msg_last; | |
953 | compat_time_t msg_stime; | |
954 | compat_time_t msg_rtime; | |
955 | compat_time_t msg_ctime; | |
956 | u32 wwait; | |
957 | u32 rwait; | |
958 | unsigned short msg_cbytes; | |
959 | unsigned short msg_qnum; | |
960 | unsigned short msg_qbytes; | |
961 | compat_ipc_pid_t msg_lspid; | |
962 | compat_ipc_pid_t msg_lrpid; | |
963 | }; | |
964 | ||
965 | static inline int sunos_msqid_get(struct msqid_ds32 __user *user, | |
966 | struct msqid_ds *kern) | |
967 | { | |
968 | if (get_user(kern->msg_perm.key, &user->msg_perm.key) || | |
969 | __get_user(kern->msg_perm.uid, &user->msg_perm.uid) || | |
970 | __get_user(kern->msg_perm.gid, &user->msg_perm.gid) || | |
971 | __get_user(kern->msg_perm.cuid, &user->msg_perm.cuid) || | |
972 | __get_user(kern->msg_perm.cgid, &user->msg_perm.cgid) || | |
973 | __get_user(kern->msg_stime, &user->msg_stime) || | |
974 | __get_user(kern->msg_rtime, &user->msg_rtime) || | |
975 | __get_user(kern->msg_ctime, &user->msg_ctime) || | |
976 | __get_user(kern->msg_ctime, &user->msg_cbytes) || | |
977 | __get_user(kern->msg_ctime, &user->msg_qnum) || | |
978 | __get_user(kern->msg_ctime, &user->msg_qbytes) || | |
979 | __get_user(kern->msg_ctime, &user->msg_lspid) || | |
980 | __get_user(kern->msg_ctime, &user->msg_lrpid)) | |
981 | return -EFAULT; | |
982 | return 0; | |
983 | } | |
984 | ||
985 | static inline int sunos_msqid_put(struct msqid_ds32 __user *user, | |
986 | struct msqid_ds *kern) | |
987 | { | |
988 | if (put_user(kern->msg_perm.key, &user->msg_perm.key) || | |
989 | __put_user(kern->msg_perm.uid, &user->msg_perm.uid) || | |
990 | __put_user(kern->msg_perm.gid, &user->msg_perm.gid) || | |
991 | __put_user(kern->msg_perm.cuid, &user->msg_perm.cuid) || | |
992 | __put_user(kern->msg_perm.cgid, &user->msg_perm.cgid) || | |
993 | __put_user(kern->msg_stime, &user->msg_stime) || | |
994 | __put_user(kern->msg_rtime, &user->msg_rtime) || | |
995 | __put_user(kern->msg_ctime, &user->msg_ctime) || | |
996 | __put_user(kern->msg_ctime, &user->msg_cbytes) || | |
997 | __put_user(kern->msg_ctime, &user->msg_qnum) || | |
998 | __put_user(kern->msg_ctime, &user->msg_qbytes) || | |
999 | __put_user(kern->msg_ctime, &user->msg_lspid) || | |
1000 | __put_user(kern->msg_ctime, &user->msg_lrpid)) | |
1001 | return -EFAULT; | |
1002 | return 0; | |
1003 | } | |
1004 | ||
1005 | static inline int sunos_msgbuf_get(struct msgbuf32 __user *user, struct msgbuf *kern, int len) | |
1006 | { | |
1007 | if (get_user(kern->mtype, &user->mtype) || | |
1008 | __copy_from_user(kern->mtext, &user->mtext, len)) | |
1009 | return -EFAULT; | |
1010 | return 0; | |
1011 | } | |
1012 | ||
1013 | static inline int sunos_msgbuf_put(struct msgbuf32 __user *user, struct msgbuf *kern, int len) | |
1014 | { | |
1015 | if (put_user(kern->mtype, &user->mtype) || | |
1016 | __copy_to_user(user->mtext, kern->mtext, len)) | |
1017 | return -EFAULT; | |
1018 | return 0; | |
1019 | } | |
1020 | ||
1021 | asmlinkage int sunos_msgsys(int op, u32 arg1, u32 arg2, u32 arg3, u32 arg4) | |
1022 | { | |
1023 | struct sparc_stackf32 __user *sp; | |
1024 | struct msqid_ds kds; | |
1025 | struct msgbuf *kmbuf; | |
1026 | mm_segment_t old_fs = get_fs(); | |
1027 | u32 arg5; | |
1028 | int rval; | |
1029 | ||
1030 | switch(op) { | |
1031 | case 0: | |
1032 | rval = sys_msgget((key_t)arg1, (int)arg2); | |
1033 | break; | |
1034 | case 1: | |
1035 | if (!sunos_msqid_get((struct msqid_ds32 __user *)(unsigned long)arg3, &kds)) { | |
1036 | set_fs(KERNEL_DS); | |
1037 | rval = sys_msgctl((int)arg1, (int)arg2, | |
1038 | (struct msqid_ds __user *)(unsigned long)arg3); | |
1039 | set_fs(old_fs); | |
1040 | if (!rval) | |
1041 | rval = sunos_msqid_put((struct msqid_ds32 __user *)(unsigned long)arg3, | |
1042 | &kds); | |
1043 | } else | |
1044 | rval = -EFAULT; | |
1045 | break; | |
1046 | case 2: | |
1047 | rval = -EFAULT; | |
1048 | kmbuf = (struct msgbuf *)kmalloc(sizeof(struct msgbuf) + arg3, | |
1049 | GFP_KERNEL); | |
1050 | if (!kmbuf) | |
1051 | break; | |
1052 | sp = (struct sparc_stackf32 __user *) | |
1053 | (current_thread_info()->kregs->u_regs[UREG_FP] & 0xffffffffUL); | |
1054 | if (get_user(arg5, &sp->xxargs[0])) { | |
1055 | rval = -EFAULT; | |
1056 | kfree(kmbuf); | |
1057 | break; | |
1058 | } | |
1059 | set_fs(KERNEL_DS); | |
1060 | rval = sys_msgrcv((int)arg1, (struct msgbuf __user *) kmbuf, | |
1061 | (size_t)arg3, | |
1062 | (long)arg4, (int)arg5); | |
1063 | set_fs(old_fs); | |
1064 | if (!rval) | |
1065 | rval = sunos_msgbuf_put((struct msgbuf32 __user *)(unsigned long)arg2, | |
1066 | kmbuf, arg3); | |
1067 | kfree(kmbuf); | |
1068 | break; | |
1069 | case 3: | |
1070 | rval = -EFAULT; | |
1071 | kmbuf = (struct msgbuf *)kmalloc(sizeof(struct msgbuf) + arg3, | |
1072 | GFP_KERNEL); | |
1073 | if (!kmbuf || sunos_msgbuf_get((struct msgbuf32 __user *)(unsigned long)arg2, | |
1074 | kmbuf, arg3)) | |
1075 | break; | |
1076 | set_fs(KERNEL_DS); | |
1077 | rval = sys_msgsnd((int)arg1, (struct msgbuf __user *) kmbuf, | |
1078 | (size_t)arg3, (int)arg4); | |
1079 | set_fs(old_fs); | |
1080 | kfree(kmbuf); | |
1081 | break; | |
1082 | default: | |
1083 | rval = -EINVAL; | |
1084 | break; | |
1085 | } | |
1086 | return rval; | |
1087 | } | |
1088 | ||
1089 | struct shmid_ds32 { | |
1090 | struct ipc_perm32 shm_perm; | |
1091 | int shm_segsz; | |
1092 | compat_time_t shm_atime; | |
1093 | compat_time_t shm_dtime; | |
1094 | compat_time_t shm_ctime; | |
1095 | compat_ipc_pid_t shm_cpid; | |
1096 | compat_ipc_pid_t shm_lpid; | |
1097 | unsigned short shm_nattch; | |
1098 | }; | |
1099 | ||
1100 | static inline int sunos_shmid_get(struct shmid_ds32 __user *user, | |
1101 | struct shmid_ds *kern) | |
1102 | { | |
1103 | if (get_user(kern->shm_perm.key, &user->shm_perm.key) || | |
1104 | __get_user(kern->shm_perm.uid, &user->shm_perm.uid) || | |
1105 | __get_user(kern->shm_perm.gid, &user->shm_perm.gid) || | |
1106 | __get_user(kern->shm_perm.cuid, &user->shm_perm.cuid) || | |
1107 | __get_user(kern->shm_perm.cgid, &user->shm_perm.cgid) || | |
1108 | __get_user(kern->shm_segsz, &user->shm_segsz) || | |
1109 | __get_user(kern->shm_atime, &user->shm_atime) || | |
1110 | __get_user(kern->shm_dtime, &user->shm_dtime) || | |
1111 | __get_user(kern->shm_ctime, &user->shm_ctime) || | |
1112 | __get_user(kern->shm_cpid, &user->shm_cpid) || | |
1113 | __get_user(kern->shm_lpid, &user->shm_lpid) || | |
1114 | __get_user(kern->shm_nattch, &user->shm_nattch)) | |
1115 | return -EFAULT; | |
1116 | return 0; | |
1117 | } | |
1118 | ||
1119 | static inline int sunos_shmid_put(struct shmid_ds32 __user *user, | |
1120 | struct shmid_ds *kern) | |
1121 | { | |
1122 | if (put_user(kern->shm_perm.key, &user->shm_perm.key) || | |
1123 | __put_user(kern->shm_perm.uid, &user->shm_perm.uid) || | |
1124 | __put_user(kern->shm_perm.gid, &user->shm_perm.gid) || | |
1125 | __put_user(kern->shm_perm.cuid, &user->shm_perm.cuid) || | |
1126 | __put_user(kern->shm_perm.cgid, &user->shm_perm.cgid) || | |
1127 | __put_user(kern->shm_segsz, &user->shm_segsz) || | |
1128 | __put_user(kern->shm_atime, &user->shm_atime) || | |
1129 | __put_user(kern->shm_dtime, &user->shm_dtime) || | |
1130 | __put_user(kern->shm_ctime, &user->shm_ctime) || | |
1131 | __put_user(kern->shm_cpid, &user->shm_cpid) || | |
1132 | __put_user(kern->shm_lpid, &user->shm_lpid) || | |
1133 | __put_user(kern->shm_nattch, &user->shm_nattch)) | |
1134 | return -EFAULT; | |
1135 | return 0; | |
1136 | } | |
1137 | ||
1138 | asmlinkage int sunos_shmsys(int op, u32 arg1, u32 arg2, u32 arg3) | |
1139 | { | |
1140 | struct shmid_ds ksds; | |
1141 | unsigned long raddr; | |
1142 | mm_segment_t old_fs = get_fs(); | |
1143 | int rval; | |
1144 | ||
1145 | switch(op) { | |
1146 | case 0: | |
1147 | /* do_shmat(): attach a shared memory area */ | |
1148 | rval = do_shmat((int)arg1,(char __user *)(unsigned long)arg2,(int)arg3,&raddr); | |
1149 | if (!rval) | |
1150 | rval = (int) raddr; | |
1151 | break; | |
1152 | case 1: | |
1153 | /* sys_shmctl(): modify shared memory area attr. */ | |
1154 | if (!sunos_shmid_get((struct shmid_ds32 __user *)(unsigned long)arg3, &ksds)) { | |
1155 | set_fs(KERNEL_DS); | |
1156 | rval = sys_shmctl((int) arg1,(int) arg2, | |
1157 | (struct shmid_ds __user *) &ksds); | |
1158 | set_fs(old_fs); | |
1159 | if (!rval) | |
1160 | rval = sunos_shmid_put((struct shmid_ds32 __user *)(unsigned long)arg3, | |
1161 | &ksds); | |
1162 | } else | |
1163 | rval = -EFAULT; | |
1164 | break; | |
1165 | case 2: | |
1166 | /* sys_shmdt(): detach a shared memory area */ | |
1167 | rval = sys_shmdt((char __user *)(unsigned long)arg1); | |
1168 | break; | |
1169 | case 3: | |
1170 | /* sys_shmget(): get a shared memory area */ | |
1171 | rval = sys_shmget((key_t)arg1,(int)arg2,(int)arg3); | |
1172 | break; | |
1173 | default: | |
1174 | rval = -EINVAL; | |
1175 | break; | |
1176 | }; | |
1177 | return rval; | |
1178 | } | |
1179 | ||
1180 | extern asmlinkage long sparc32_open(const char __user * filename, int flags, int mode); | |
1181 | ||
1182 | asmlinkage int sunos_open(u32 fname, int flags, int mode) | |
1183 | { | |
1184 | const char __user *filename = compat_ptr(fname); | |
1185 | ||
1186 | return sparc32_open(filename, flags, mode); | |
1187 | } | |
1188 | ||
1189 | #define SUNOS_EWOULDBLOCK 35 | |
1190 | ||
1191 | /* see the sunos man page read(2v) for an explanation | |
1192 | of this garbage. We use O_NDELAY to mark | |
1193 | file descriptors that have been set non-blocking | |
1194 | using 4.2BSD style calls. (tridge) */ | |
1195 | ||
1196 | static inline int check_nonblock(int ret, int fd) | |
1197 | { | |
1198 | if (ret == -EAGAIN) { | |
1199 | struct file * file = fget(fd); | |
1200 | if (file) { | |
1201 | if (file->f_flags & O_NDELAY) | |
1202 | ret = -SUNOS_EWOULDBLOCK; | |
1203 | fput(file); | |
1204 | } | |
1205 | } | |
1206 | return ret; | |
1207 | } | |
1208 | ||
1209 | asmlinkage int sunos_read(unsigned int fd, char __user *buf, u32 count) | |
1210 | { | |
1211 | int ret; | |
1212 | ||
1213 | ret = check_nonblock(sys_read(fd, buf, count), fd); | |
1214 | return ret; | |
1215 | } | |
1216 | ||
1217 | asmlinkage int sunos_readv(u32 fd, void __user *vector, s32 count) | |
1218 | { | |
1219 | int ret; | |
1220 | ||
1221 | ret = check_nonblock(compat_sys_readv(fd, vector, count), fd); | |
1222 | return ret; | |
1223 | } | |
1224 | ||
1225 | asmlinkage int sunos_write(unsigned int fd, char __user *buf, u32 count) | |
1226 | { | |
1227 | int ret; | |
1228 | ||
1229 | ret = check_nonblock(sys_write(fd, buf, count), fd); | |
1230 | return ret; | |
1231 | } | |
1232 | ||
1233 | asmlinkage int sunos_writev(u32 fd, void __user *vector, s32 count) | |
1234 | { | |
1235 | int ret; | |
1236 | ||
1237 | ret = check_nonblock(compat_sys_writev(fd, vector, count), fd); | |
1238 | return ret; | |
1239 | } | |
1240 | ||
1241 | asmlinkage int sunos_recv(u32 __fd, void __user *ubuf, int size, unsigned flags) | |
1242 | { | |
1243 | int ret, fd = (int) __fd; | |
1244 | ||
1245 | ret = check_nonblock(sys_recv(fd, ubuf, size, flags), fd); | |
1246 | return ret; | |
1247 | } | |
1248 | ||
1249 | asmlinkage int sunos_send(u32 __fd, void __user *buff, int len, unsigned flags) | |
1250 | { | |
1251 | int ret, fd = (int) __fd; | |
1252 | ||
1253 | ret = check_nonblock(sys_send(fd, buff, len, flags), fd); | |
1254 | return ret; | |
1255 | } | |
1256 | ||
1257 | asmlinkage int sunos_accept(u32 __fd, struct sockaddr __user *sa, int __user *addrlen) | |
1258 | { | |
1259 | int ret, fd = (int) __fd; | |
1260 | ||
1261 | while (1) { | |
1262 | ret = check_nonblock(sys_accept(fd, sa, addrlen), fd); | |
1263 | if (ret != -ENETUNREACH && ret != -EHOSTUNREACH) | |
1264 | break; | |
1265 | } | |
1266 | return ret; | |
1267 | } | |
1268 | ||
1269 | #define SUNOS_SV_INTERRUPT 2 | |
1270 | ||
1271 | asmlinkage int sunos_sigaction (int sig, | |
1272 | struct old_sigaction32 __user *act, | |
1273 | struct old_sigaction32 __user *oact) | |
1274 | { | |
1275 | struct k_sigaction new_ka, old_ka; | |
1276 | int ret; | |
1277 | ||
1278 | if (act) { | |
1279 | compat_old_sigset_t mask; | |
1280 | u32 u_handler; | |
1281 | ||
1282 | if (get_user(u_handler, &act->sa_handler) || | |
1283 | __get_user(new_ka.sa.sa_flags, &act->sa_flags)) | |
1284 | return -EFAULT; | |
1285 | new_ka.sa.sa_handler = compat_ptr(u_handler); | |
1286 | __get_user(mask, &act->sa_mask); | |
1287 | new_ka.sa.sa_restorer = NULL; | |
1288 | new_ka.ka_restorer = NULL; | |
1289 | siginitset(&new_ka.sa.sa_mask, mask); | |
1290 | new_ka.sa.sa_flags ^= SUNOS_SV_INTERRUPT; | |
1291 | } | |
1292 | ||
1293 | ret = do_sigaction(sig, act ? &new_ka : NULL, oact ? &old_ka : NULL); | |
1294 | ||
1295 | if (!ret && oact) { | |
1296 | old_ka.sa.sa_flags ^= SUNOS_SV_INTERRUPT; | |
1297 | if (put_user(ptr_to_compat(old_ka.sa.sa_handler), &oact->sa_handler) || | |
1298 | __put_user(old_ka.sa.sa_flags, &oact->sa_flags)) | |
1299 | return -EFAULT; | |
1300 | __put_user(old_ka.sa.sa_mask.sig[0], &oact->sa_mask); | |
1301 | } | |
1302 | ||
1303 | return ret; | |
1304 | } | |
1305 | ||
1306 | asmlinkage int sunos_setsockopt(u32 __fd, u32 __level, u32 __optname, | |
1307 | char __user *optval, u32 __optlen) | |
1308 | { | |
1309 | int fd = (int) __fd; | |
1310 | int level = (int) __level; | |
1311 | int optname = (int) __optname; | |
1312 | int optlen = (int) __optlen; | |
1313 | int tr_opt = optname; | |
1314 | int ret; | |
1315 | ||
1316 | if (level == SOL_IP) { | |
1317 | /* Multicast socketopts (ttl, membership) */ | |
1318 | if (tr_opt >=2 && tr_opt <= 6) | |
1319 | tr_opt += 30; | |
1320 | } | |
1321 | ret = sys_setsockopt(fd, level, tr_opt, | |
1322 | optval, optlen); | |
1323 | return ret; | |
1324 | } | |
1325 | ||
1326 | asmlinkage int sunos_getsockopt(u32 __fd, u32 __level, u32 __optname, | |
1327 | char __user *optval, int __user *optlen) | |
1328 | { | |
1329 | int fd = (int) __fd; | |
1330 | int level = (int) __level; | |
1331 | int optname = (int) __optname; | |
1332 | int tr_opt = optname; | |
1333 | int ret; | |
1334 | ||
1335 | if (level == SOL_IP) { | |
1336 | /* Multicast socketopts (ttl, membership) */ | |
1337 | if (tr_opt >=2 && tr_opt <= 6) | |
1338 | tr_opt += 30; | |
1339 | } | |
1340 | ret = compat_sys_getsockopt(fd, level, tr_opt, | |
1341 | optval, optlen); | |
1342 | return ret; | |
1343 | } |