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