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