Fedora kernel-2.6.17-1.2142_FC4 patched with stable patch-2.6.17.4-vs2.0.2-rc26.diff
[linux-2.6.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 #include <linux/vs_cvirt.h>
39
40 #include <asm/uaccess.h>
41 #include <asm/page.h>
42 #include <asm/pgtable.h>
43 #include <asm/pconf.h>
44 #include <asm/idprom.h> /* for gethostid() */
45 #include <asm/unistd.h>
46 #include <asm/system.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 = get_page_cache_size();
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         struct new_utsname *ptr;
442
443         down_read(&uts_sem);
444         ptr = vx_new_utsname();
445         ret = copy_to_user(&name->sname[0], ptr->sysname,
446                            sizeof(name->sname) - 1);
447         ret |= copy_to_user(&name->nname[0], ptr->nodename,
448                             sizeof(name->nname) - 1);
449         ret |= put_user('\0', &name->nname[8]);
450         ret |= copy_to_user(&name->rel[0], ptr->release,
451                             sizeof(name->rel) - 1);
452         ret |= copy_to_user(&name->ver[0], ptr->version,
453                             sizeof(name->ver) - 1);
454         ret |= copy_to_user(&name->mach[0], ptr->machine,
455                             sizeof(name->mach) - 1);
456         up_read(&uts_sem);
457         return (ret ? -EFAULT : 0);
458 }
459
460 asmlinkage int sunos_nosys(void)
461 {
462         struct pt_regs *regs;
463         siginfo_t info;
464         static int cnt;
465
466         regs = current_thread_info()->kregs;
467         if (test_thread_flag(TIF_32BIT)) {
468                 regs->tpc &= 0xffffffff;
469                 regs->tnpc &= 0xffffffff;
470         }
471         info.si_signo = SIGSYS;
472         info.si_errno = 0;
473         info.si_code = __SI_FAULT|0x100;
474         info.si_addr = (void __user *)regs->tpc;
475         info.si_trapno = regs->u_regs[UREG_G1];
476         send_sig_info(SIGSYS, &info, current);
477         if (cnt++ < 4) {
478                 printk("Process makes ni_syscall number %d, register dump:\n",
479                        (int) regs->u_regs[UREG_G1]);
480                 show_regs(regs);
481         }
482         return -ENOSYS;
483 }
484
485 /* This is not a real and complete implementation yet, just to keep
486  * the easy SunOS binaries happy.
487  */
488 asmlinkage int sunos_fpathconf(int fd, int name)
489 {
490         int ret;
491
492         switch(name) {
493         case _PCONF_LINK:
494                 ret = LINK_MAX;
495                 break;
496         case _PCONF_CANON:
497                 ret = MAX_CANON;
498                 break;
499         case _PCONF_INPUT:
500                 ret = MAX_INPUT;
501                 break;
502         case _PCONF_NAME:
503                 ret = NAME_MAX;
504                 break;
505         case _PCONF_PATH:
506                 ret = PATH_MAX;
507                 break;
508         case _PCONF_PIPE:
509                 ret = PIPE_BUF;
510                 break;
511         case _PCONF_CHRESTRICT:         /* XXX Investigate XXX */
512                 ret = 1;
513                 break;
514         case _PCONF_NOTRUNC:            /* XXX Investigate XXX */
515         case _PCONF_VDISABLE:
516                 ret = 0;
517                 break;
518         default:
519                 ret = -EINVAL;
520                 break;
521         }
522         return ret;
523 }
524
525 asmlinkage int sunos_pathconf(u32 u_path, int name)
526 {
527         int ret;
528
529         ret = sunos_fpathconf(0, name); /* XXX cheese XXX */
530         return ret;
531 }
532
533 asmlinkage int sunos_select(int width, u32 inp, u32 outp, u32 exp, u32 tvp_x)
534 {
535         int ret;
536
537         /* SunOS binaries expect that select won't change the tvp contents */
538         ret = compat_sys_select(width, compat_ptr(inp), compat_ptr(outp),
539                                 compat_ptr(exp), compat_ptr(tvp_x));
540         if (ret == -EINTR && tvp_x) {
541                 struct compat_timeval __user *tvp = compat_ptr(tvp_x);
542                 time_t sec, usec;
543
544                 __get_user(sec, &tvp->tv_sec);
545                 __get_user(usec, &tvp->tv_usec);
546                 if (sec == 0 && usec == 0)
547                         ret = 0;
548         }
549         return ret;
550 }
551
552 asmlinkage void sunos_nop(void)
553 {
554         return;
555 }
556
557 #if 0 /* This code doesn't translate user pointers correctly,
558        * disable for now. -DaveM
559        */
560
561 /* XXXXXXXXXX SunOS mount/umount. XXXXXXXXXXX */
562 #define SMNT_RDONLY       1
563 #define SMNT_NOSUID       2
564 #define SMNT_NEWTYPE      4
565 #define SMNT_GRPID        8
566 #define SMNT_REMOUNT      16
567 #define SMNT_NOSUB        32
568 #define SMNT_MULTI        64
569 #define SMNT_SYS5         128
570
571 struct sunos_fh_t {
572         char fh_data [NFS_FHSIZE];
573 };
574
575 struct sunos_nfs_mount_args {
576         struct sockaddr_in  *addr; /* file server address */
577         struct nfs_fh *fh;     /* File handle to be mounted */
578         int        flags;      /* flags */
579         int        wsize;      /* write size in bytes */
580         int        rsize;      /* read size in bytes */
581         int        timeo;      /* initial timeout in .1 secs */
582         int        retrans;    /* times to retry send */
583         char       *hostname;  /* server's hostname */
584         int        acregmin;   /* attr cache file min secs */
585         int        acregmax;   /* attr cache file max secs */
586         int        acdirmin;   /* attr cache dir min secs */
587         int        acdirmax;   /* attr cache dir max secs */
588         char       *netname;   /* server's netname */
589 };
590
591
592 /* Bind the socket on a local reserved port and connect it to the
593  * remote server.  This on Linux/i386 is done by the mount program,
594  * not by the kernel. 
595  */
596 /* XXXXXXXXXXXXXXXXXXXX */
597 static int
598 sunos_nfs_get_server_fd (int fd, struct sockaddr_in *addr)
599 {
600         struct sockaddr_in local;
601         struct sockaddr_in server;
602         int    try_port;
603         int    ret;
604         struct socket *socket;
605         struct inode  *inode;
606         struct file   *file;
607
608         file = fget(fd);
609         if (!file)
610                 return 0;
611
612         inode = file->f_dentry->d_inode;
613
614         socket = SOCKET_I(inode);
615         local.sin_family = AF_INET;
616         local.sin_addr.s_addr = INADDR_ANY;
617
618         /* IPPORT_RESERVED = 1024, can't find the definition in the kernel */
619         try_port = 1024;
620         do {
621                 local.sin_port = htons (--try_port);
622                 ret = socket->ops->bind(socket, (struct sockaddr*)&local,
623                                         sizeof(local));
624         } while (ret && try_port > (1024 / 2));
625
626         if (ret) {
627                 fput(file);
628                 return 0;
629         }
630
631         server.sin_family = AF_INET;
632         server.sin_addr = addr->sin_addr;
633         server.sin_port = NFS_PORT;
634
635         /* Call sys_connect */
636         ret = socket->ops->connect (socket, (struct sockaddr *) &server,
637                                     sizeof (server), file->f_flags);
638         fput(file);
639         if (ret < 0)
640                 return 0;
641         return 1;
642 }
643
644 /* XXXXXXXXXXXXXXXXXXXX */
645 static int get_default (int value, int def_value)
646 {
647     if (value)
648         return value;
649     else
650         return def_value;
651 }
652
653 /* XXXXXXXXXXXXXXXXXXXX */
654 static int sunos_nfs_mount(char *dir_name, int linux_flags, void __user *data)
655 {
656         int  server_fd, err;
657         char *the_name, *mount_page;
658         struct nfs_mount_data linux_nfs_mount;
659         struct sunos_nfs_mount_args sunos_mount;
660
661         /* Ok, here comes the fun part: Linux's nfs mount needs a
662          * socket connection to the server, but SunOS mount does not
663          * require this, so we use the information on the destination
664          * address to create a socket and bind it to a reserved
665          * port on this system
666          */
667         if (copy_from_user(&sunos_mount, data, sizeof(sunos_mount)))
668                 return -EFAULT;
669
670         server_fd = sys_socket (AF_INET, SOCK_DGRAM, IPPROTO_UDP);
671         if (server_fd < 0)
672                 return -ENXIO;
673
674         if (copy_from_user(&linux_nfs_mount.addr, sunos_mount.addr,
675                            sizeof(*sunos_mount.addr)) ||
676             copy_from_user(&linux_nfs_mount.root, sunos_mount.fh,
677                            sizeof(*sunos_mount.fh))) {
678                 sys_close (server_fd);
679                 return -EFAULT;
680         }
681
682         if (!sunos_nfs_get_server_fd (server_fd, &linux_nfs_mount.addr)){
683                 sys_close (server_fd);
684                 return -ENXIO;
685         }
686
687         /* Now, bind it to a locally reserved port */
688         linux_nfs_mount.version  = NFS_MOUNT_VERSION;
689         linux_nfs_mount.flags    = sunos_mount.flags;
690         linux_nfs_mount.fd       = server_fd;
691         
692         linux_nfs_mount.rsize    = get_default (sunos_mount.rsize, 8192);
693         linux_nfs_mount.wsize    = get_default (sunos_mount.wsize, 8192);
694         linux_nfs_mount.timeo    = get_default (sunos_mount.timeo, 10);
695         linux_nfs_mount.retrans  = sunos_mount.retrans;
696         
697         linux_nfs_mount.acregmin = sunos_mount.acregmin;
698         linux_nfs_mount.acregmax = sunos_mount.acregmax;
699         linux_nfs_mount.acdirmin = sunos_mount.acdirmin;
700         linux_nfs_mount.acdirmax = sunos_mount.acdirmax;
701
702         the_name = getname(sunos_mount.hostname);
703         if (IS_ERR(the_name))
704                 return PTR_ERR(the_name);
705
706         strlcpy(linux_nfs_mount.hostname, the_name,
707                 sizeof(linux_nfs_mount.hostname));
708         putname (the_name);
709         
710         mount_page = (char *) get_zeroed_page(GFP_KERNEL);
711         if (!mount_page)
712                 return -ENOMEM;
713
714         memcpy(mount_page, &linux_nfs_mount, sizeof(linux_nfs_mount));
715
716         err = do_mount("", dir_name, "nfs", linux_flags, mount_page);
717
718         free_page((unsigned long) mount_page);
719         return err;
720 }
721
722 /* XXXXXXXXXXXXXXXXXXXX */
723 asmlinkage int
724 sunos_mount(char *type, char *dir, int flags, void *data)
725 {
726         int linux_flags = 0;
727         int ret = -EINVAL;
728         char *dev_fname = 0;
729         char *dir_page, *type_page;
730
731         if (!capable (CAP_SYS_ADMIN))
732                 return -EPERM;
733
734         /* We don't handle the integer fs type */
735         if ((flags & SMNT_NEWTYPE) == 0)
736                 goto out;
737
738         /* Do not allow for those flags we don't support */
739         if (flags & (SMNT_GRPID|SMNT_NOSUB|SMNT_MULTI|SMNT_SYS5))
740                 goto out;
741
742         if (flags & SMNT_REMOUNT)
743                 linux_flags |= MS_REMOUNT;
744         if (flags & SMNT_RDONLY)
745                 linux_flags |= MS_RDONLY;
746         if (flags & SMNT_NOSUID)
747                 linux_flags |= MS_NOSUID;
748
749         dir_page = getname(dir);
750         ret = PTR_ERR(dir_page);
751         if (IS_ERR(dir_page))
752                 goto out;
753
754         type_page = getname(type);
755         ret = PTR_ERR(type_page);
756         if (IS_ERR(type_page))
757                 goto out1;
758
759         if (strcmp(type_page, "ext2") == 0) {
760                 dev_fname = getname(data);
761         } else if (strcmp(type_page, "iso9660") == 0) {
762                 dev_fname = getname(data);
763         } else if (strcmp(type_page, "minix") == 0) {
764                 dev_fname = getname(data);
765         } else if (strcmp(type_page, "nfs") == 0) {
766                 ret = sunos_nfs_mount (dir_page, flags, data);
767                 goto out2;
768         } else if (strcmp(type_page, "ufs") == 0) {
769                 printk("Warning: UFS filesystem mounts unsupported.\n");
770                 ret = -ENODEV;
771                 goto out2;
772         } else if (strcmp(type_page, "proc")) {
773                 ret = -ENODEV;
774                 goto out2;
775         }
776         ret = PTR_ERR(dev_fname);
777         if (IS_ERR(dev_fname))
778                 goto out2;
779         lock_kernel();
780         ret = do_mount(dev_fname, dir_page, type_page, linux_flags, NULL);
781         unlock_kernel();
782         if (dev_fname)
783                 putname(dev_fname);
784 out2:
785         putname(type_page);
786 out1:
787         putname(dir_page);
788 out:
789         return ret;
790 }
791 #endif
792
793 asmlinkage int sunos_setpgrp(pid_t pid, pid_t pgid)
794 {
795         int ret;
796
797         /* So stupid... */
798         if ((!pid || pid == current->pid) &&
799             !pgid) {
800                 sys_setsid();
801                 ret = 0;
802         } else {
803                 ret = sys_setpgid(pid, pgid);
804         }
805         return ret;
806 }
807
808 /* So stupid... */
809 extern long compat_sys_wait4(compat_pid_t, compat_uint_t __user *, int,
810                              struct compat_rusage __user *);
811
812 asmlinkage int sunos_wait4(compat_pid_t pid, compat_uint_t __user *stat_addr, int options, struct compat_rusage __user *ru)
813 {
814         int ret;
815
816         ret = compat_sys_wait4((pid ? pid : ((compat_pid_t)-1)),
817                                stat_addr, options, ru);
818         return ret;
819 }
820
821 extern int kill_pg(int, int, int);
822 asmlinkage int sunos_killpg(int pgrp, int sig)
823 {
824         return kill_pg(pgrp, sig, 0);
825 }
826
827 asmlinkage int sunos_audit(void)
828 {
829         printk ("sys_audit\n");
830         return -1;
831 }
832
833 asmlinkage u32 sunos_gethostid(void)
834 {
835         u32 ret;
836
837         ret = (((u32)idprom->id_machtype << 24) | ((u32)idprom->id_sernum));
838
839         return ret;
840 }
841
842 /* sysconf options, for SunOS compatibility */
843 #define   _SC_ARG_MAX             1
844 #define   _SC_CHILD_MAX           2
845 #define   _SC_CLK_TCK             3
846 #define   _SC_NGROUPS_MAX         4
847 #define   _SC_OPEN_MAX            5
848 #define   _SC_JOB_CONTROL         6
849 #define   _SC_SAVED_IDS           7
850 #define   _SC_VERSION             8
851
852 asmlinkage s32 sunos_sysconf (int name)
853 {
854         s32 ret;
855
856         switch (name){
857         case _SC_ARG_MAX:
858                 ret = ARG_MAX;
859                 break;
860         case _SC_CHILD_MAX:
861                 ret = -1; /* no limit */
862                 break;
863         case _SC_CLK_TCK:
864                 ret = HZ;
865                 break;
866         case _SC_NGROUPS_MAX:
867                 ret = NGROUPS_MAX;
868                 break;
869         case _SC_OPEN_MAX:
870                 ret = OPEN_MAX;
871                 break;
872         case _SC_JOB_CONTROL:
873                 ret = 1;        /* yes, we do support job control */
874                 break;
875         case _SC_SAVED_IDS:
876                 ret = 1;        /* yes, we do support saved uids  */
877                 break;
878         case _SC_VERSION:
879                 /* mhm, POSIX_VERSION is in /usr/include/unistd.h
880                  * should it go on /usr/include/linux?
881                  */
882                 ret = 199009;
883                 break;
884         default:
885                 ret = -1;
886                 break;
887         };
888         return ret;
889 }
890
891 asmlinkage int sunos_semsys(int op, u32 arg1, u32 arg2, u32 arg3, void __user *ptr)
892 {
893         union semun arg4;
894         int ret;
895
896         switch (op) {
897         case 0:
898                 /* Most arguments match on a 1:1 basis but cmd doesn't */
899                 switch(arg3) {
900                 case 4:
901                         arg3=GETPID; break;
902                 case 5:
903                         arg3=GETVAL; break;
904                 case 6:
905                         arg3=GETALL; break;
906                 case 3:
907                         arg3=GETNCNT; break;
908                 case 7:
909                         arg3=GETZCNT; break;
910                 case 8:
911                         arg3=SETVAL; break;
912                 case 9:
913                         arg3=SETALL; break;
914                 }
915                 /* sys_semctl(): */
916                 /* value to modify semaphore to */
917                 arg4.__pad = ptr;
918                 ret = sys_semctl((int)arg1, (int)arg2, (int)arg3, arg4);
919                 break;
920         case 1:
921                 /* sys_semget(): */
922                 ret = sys_semget((key_t)arg1, (int)arg2, (int)arg3);
923                 break;
924         case 2:
925                 /* sys_semop(): */
926                 ret = sys_semop((int)arg1, (struct sembuf __user *)(unsigned long)arg2,
927                                 (unsigned int) arg3);
928                 break;
929         default:
930                 ret = -EINVAL;
931                 break;
932         };
933         return ret;
934 }
935
936 struct msgbuf32 {
937         s32 mtype;
938         char mtext[1];
939 };
940
941 struct ipc_perm32
942 {
943         key_t             key;
944         compat_uid_t  uid;
945         compat_gid_t  gid;
946         compat_uid_t  cuid;
947         compat_gid_t  cgid;
948         compat_mode_t mode;
949         unsigned short  seq;
950 };
951
952 struct msqid_ds32
953 {
954         struct ipc_perm32 msg_perm;
955         u32 msg_first;
956         u32 msg_last;
957         compat_time_t msg_stime;
958         compat_time_t msg_rtime;
959         compat_time_t msg_ctime;
960         u32 wwait;
961         u32 rwait;
962         unsigned short msg_cbytes;
963         unsigned short msg_qnum;  
964         unsigned short msg_qbytes;
965         compat_ipc_pid_t msg_lspid;
966         compat_ipc_pid_t msg_lrpid;
967 };
968
969 static inline int sunos_msqid_get(struct msqid_ds32 __user *user,
970                                   struct msqid_ds *kern)
971 {
972         if (get_user(kern->msg_perm.key, &user->msg_perm.key)           ||
973             __get_user(kern->msg_perm.uid, &user->msg_perm.uid)         ||
974             __get_user(kern->msg_perm.gid, &user->msg_perm.gid)         ||
975             __get_user(kern->msg_perm.cuid, &user->msg_perm.cuid)       ||
976             __get_user(kern->msg_perm.cgid, &user->msg_perm.cgid)       ||
977             __get_user(kern->msg_stime, &user->msg_stime)               ||
978             __get_user(kern->msg_rtime, &user->msg_rtime)               ||
979             __get_user(kern->msg_ctime, &user->msg_ctime)               ||
980             __get_user(kern->msg_ctime, &user->msg_cbytes)              ||
981             __get_user(kern->msg_ctime, &user->msg_qnum)                ||
982             __get_user(kern->msg_ctime, &user->msg_qbytes)              ||
983             __get_user(kern->msg_ctime, &user->msg_lspid)               ||
984             __get_user(kern->msg_ctime, &user->msg_lrpid))
985                 return -EFAULT;
986         return 0;
987 }
988
989 static inline int sunos_msqid_put(struct msqid_ds32 __user *user,
990                                   struct msqid_ds *kern)
991 {
992         if (put_user(kern->msg_perm.key, &user->msg_perm.key)           ||
993             __put_user(kern->msg_perm.uid, &user->msg_perm.uid)         ||
994             __put_user(kern->msg_perm.gid, &user->msg_perm.gid)         ||
995             __put_user(kern->msg_perm.cuid, &user->msg_perm.cuid)       ||
996             __put_user(kern->msg_perm.cgid, &user->msg_perm.cgid)       ||
997             __put_user(kern->msg_stime, &user->msg_stime)               ||
998             __put_user(kern->msg_rtime, &user->msg_rtime)               ||
999             __put_user(kern->msg_ctime, &user->msg_ctime)               ||
1000             __put_user(kern->msg_ctime, &user->msg_cbytes)              ||
1001             __put_user(kern->msg_ctime, &user->msg_qnum)                ||
1002             __put_user(kern->msg_ctime, &user->msg_qbytes)              ||
1003             __put_user(kern->msg_ctime, &user->msg_lspid)               ||
1004             __put_user(kern->msg_ctime, &user->msg_lrpid))
1005                 return -EFAULT;
1006         return 0;
1007 }
1008
1009 static inline int sunos_msgbuf_get(struct msgbuf32 __user *user, struct msgbuf *kern, int len)
1010 {
1011         if (get_user(kern->mtype, &user->mtype) ||
1012             __copy_from_user(kern->mtext, &user->mtext, len))
1013                 return -EFAULT;
1014         return 0;
1015 }
1016
1017 static inline int sunos_msgbuf_put(struct msgbuf32 __user *user, struct msgbuf *kern, int len)
1018 {
1019         if (put_user(kern->mtype, &user->mtype) ||
1020             __copy_to_user(user->mtext, kern->mtext, len))
1021                 return -EFAULT;
1022         return 0;
1023 }
1024
1025 asmlinkage int sunos_msgsys(int op, u32 arg1, u32 arg2, u32 arg3, u32 arg4)
1026 {
1027         struct sparc_stackf32 __user *sp;
1028         struct msqid_ds kds;
1029         struct msgbuf *kmbuf;
1030         mm_segment_t old_fs = get_fs();
1031         u32 arg5;
1032         int rval;
1033
1034         switch(op) {
1035         case 0:
1036                 rval = sys_msgget((key_t)arg1, (int)arg2);
1037                 break;
1038         case 1:
1039                 if (!sunos_msqid_get((struct msqid_ds32 __user *)(unsigned long)arg3, &kds)) {
1040                         set_fs(KERNEL_DS);
1041                         rval = sys_msgctl((int)arg1, (int)arg2,
1042                                           (struct msqid_ds __user *)(unsigned long)arg3);
1043                         set_fs(old_fs);
1044                         if (!rval)
1045                                 rval = sunos_msqid_put((struct msqid_ds32 __user *)(unsigned long)arg3,
1046                                                        &kds);
1047                 } else
1048                         rval = -EFAULT;
1049                 break;
1050         case 2:
1051                 rval = -EFAULT;
1052                 kmbuf = (struct msgbuf *)kmalloc(sizeof(struct msgbuf) + arg3,
1053                                                  GFP_KERNEL);
1054                 if (!kmbuf)
1055                         break;
1056                 sp = (struct sparc_stackf32 __user *)
1057                         (current_thread_info()->kregs->u_regs[UREG_FP] & 0xffffffffUL);
1058                 if (get_user(arg5, &sp->xxargs[0])) {
1059                         rval = -EFAULT;
1060                         kfree(kmbuf);
1061                         break;
1062                 }
1063                 set_fs(KERNEL_DS);
1064                 rval = sys_msgrcv((int)arg1, (struct msgbuf __user *) kmbuf,
1065                                   (size_t)arg3,
1066                                   (long)arg4, (int)arg5);
1067                 set_fs(old_fs);
1068                 if (!rval)
1069                         rval = sunos_msgbuf_put((struct msgbuf32 __user *)(unsigned long)arg2,
1070                                                 kmbuf, arg3);
1071                 kfree(kmbuf);
1072                 break;
1073         case 3:
1074                 rval = -EFAULT;
1075                 kmbuf = (struct msgbuf *)kmalloc(sizeof(struct msgbuf) + arg3,
1076                                                  GFP_KERNEL);
1077                 if (!kmbuf || sunos_msgbuf_get((struct msgbuf32 __user *)(unsigned long)arg2,
1078                                                kmbuf, arg3))
1079                         break;
1080                 set_fs(KERNEL_DS);
1081                 rval = sys_msgsnd((int)arg1, (struct msgbuf __user *) kmbuf,
1082                                   (size_t)arg3, (int)arg4);
1083                 set_fs(old_fs);
1084                 kfree(kmbuf);
1085                 break;
1086         default:
1087                 rval = -EINVAL;
1088                 break;
1089         }
1090         return rval;
1091 }
1092
1093 struct shmid_ds32 {
1094         struct ipc_perm32       shm_perm;
1095         int                     shm_segsz;
1096         compat_time_t         shm_atime;
1097         compat_time_t         shm_dtime;
1098         compat_time_t         shm_ctime;
1099         compat_ipc_pid_t    shm_cpid; 
1100         compat_ipc_pid_t    shm_lpid; 
1101         unsigned short          shm_nattch;
1102 };
1103                                                         
1104 static inline int sunos_shmid_get(struct shmid_ds32 __user *user,
1105                                   struct shmid_ds *kern)
1106 {
1107         if (get_user(kern->shm_perm.key, &user->shm_perm.key)           ||
1108             __get_user(kern->shm_perm.uid, &user->shm_perm.uid)         ||
1109             __get_user(kern->shm_perm.gid, &user->shm_perm.gid)         ||
1110             __get_user(kern->shm_perm.cuid, &user->shm_perm.cuid)       ||
1111             __get_user(kern->shm_perm.cgid, &user->shm_perm.cgid)       ||
1112             __get_user(kern->shm_segsz, &user->shm_segsz)               ||
1113             __get_user(kern->shm_atime, &user->shm_atime)               ||
1114             __get_user(kern->shm_dtime, &user->shm_dtime)               ||
1115             __get_user(kern->shm_ctime, &user->shm_ctime)               ||
1116             __get_user(kern->shm_cpid, &user->shm_cpid)                 ||
1117             __get_user(kern->shm_lpid, &user->shm_lpid)                 ||
1118             __get_user(kern->shm_nattch, &user->shm_nattch))
1119                 return -EFAULT;
1120         return 0;
1121 }
1122
1123 static inline int sunos_shmid_put(struct shmid_ds32 __user *user,
1124                                   struct shmid_ds *kern)
1125 {
1126         if (put_user(kern->shm_perm.key, &user->shm_perm.key)           ||
1127             __put_user(kern->shm_perm.uid, &user->shm_perm.uid)         ||
1128             __put_user(kern->shm_perm.gid, &user->shm_perm.gid)         ||
1129             __put_user(kern->shm_perm.cuid, &user->shm_perm.cuid)       ||
1130             __put_user(kern->shm_perm.cgid, &user->shm_perm.cgid)       ||
1131             __put_user(kern->shm_segsz, &user->shm_segsz)               ||
1132             __put_user(kern->shm_atime, &user->shm_atime)               ||
1133             __put_user(kern->shm_dtime, &user->shm_dtime)               ||
1134             __put_user(kern->shm_ctime, &user->shm_ctime)               ||
1135             __put_user(kern->shm_cpid, &user->shm_cpid)                 ||
1136             __put_user(kern->shm_lpid, &user->shm_lpid)                 ||
1137             __put_user(kern->shm_nattch, &user->shm_nattch))
1138                 return -EFAULT;
1139         return 0;
1140 }
1141
1142 asmlinkage int sunos_shmsys(int op, u32 arg1, u32 arg2, u32 arg3)
1143 {
1144         struct shmid_ds ksds;
1145         unsigned long raddr;
1146         mm_segment_t old_fs = get_fs();
1147         int rval;
1148
1149         switch(op) {
1150         case 0:
1151                 /* do_shmat(): attach a shared memory area */
1152                 rval = do_shmat((int)arg1,(char __user *)(unsigned long)arg2,(int)arg3,&raddr);
1153                 if (!rval)
1154                         rval = (int) raddr;
1155                 break;
1156         case 1:
1157                 /* sys_shmctl(): modify shared memory area attr. */
1158                 if (!sunos_shmid_get((struct shmid_ds32 __user *)(unsigned long)arg3, &ksds)) {
1159                         set_fs(KERNEL_DS);
1160                         rval = sys_shmctl((int) arg1,(int) arg2,
1161                                           (struct shmid_ds __user *) &ksds);
1162                         set_fs(old_fs);
1163                         if (!rval)
1164                                 rval = sunos_shmid_put((struct shmid_ds32 __user *)(unsigned long)arg3,
1165                                                        &ksds);
1166                 } else
1167                         rval = -EFAULT;
1168                 break;
1169         case 2:
1170                 /* sys_shmdt(): detach a shared memory area */
1171                 rval = sys_shmdt((char __user *)(unsigned long)arg1);
1172                 break;
1173         case 3:
1174                 /* sys_shmget(): get a shared memory area */
1175                 rval = sys_shmget((key_t)arg1,(int)arg2,(int)arg3);
1176                 break;
1177         default:
1178                 rval = -EINVAL;
1179                 break;
1180         };
1181         return rval;
1182 }
1183
1184 extern asmlinkage long sparc32_open(const char __user * filename, int flags, int mode);
1185
1186 asmlinkage int sunos_open(u32 fname, int flags, int mode)
1187 {
1188         const char __user *filename = compat_ptr(fname);
1189
1190         return sparc32_open(filename, flags, mode);
1191 }
1192
1193 #define SUNOS_EWOULDBLOCK 35
1194
1195 /* see the sunos man page read(2v) for an explanation
1196    of this garbage. We use O_NDELAY to mark
1197    file descriptors that have been set non-blocking 
1198    using 4.2BSD style calls. (tridge) */
1199
1200 static inline int check_nonblock(int ret, int fd)
1201 {
1202         if (ret == -EAGAIN) {
1203                 struct file * file = fget(fd);
1204                 if (file) {
1205                         if (file->f_flags & O_NDELAY)
1206                                 ret = -SUNOS_EWOULDBLOCK;
1207                         fput(file);
1208                 }
1209         }
1210         return ret;
1211 }
1212
1213 asmlinkage int sunos_read(unsigned int fd, char __user *buf, u32 count)
1214 {
1215         int ret;
1216
1217         ret = check_nonblock(sys_read(fd, buf, count), fd);
1218         return ret;
1219 }
1220
1221 asmlinkage int sunos_readv(u32 fd, void __user *vector, s32 count)
1222 {
1223         int ret;
1224
1225         ret = check_nonblock(compat_sys_readv(fd, vector, count), fd);
1226         return ret;
1227 }
1228
1229 asmlinkage int sunos_write(unsigned int fd, char __user *buf, u32 count)
1230 {
1231         int ret;
1232
1233         ret = check_nonblock(sys_write(fd, buf, count), fd);
1234         return ret;
1235 }
1236
1237 asmlinkage int sunos_writev(u32 fd, void __user *vector, s32 count)
1238 {
1239         int ret;
1240
1241         ret = check_nonblock(compat_sys_writev(fd, vector, count), fd);
1242         return ret;
1243 }
1244
1245 asmlinkage int sunos_recv(u32 __fd, void __user *ubuf, int size, unsigned flags)
1246 {
1247         int ret, fd = (int) __fd;
1248
1249         ret = check_nonblock(sys_recv(fd, ubuf, size, flags), fd);
1250         return ret;
1251 }
1252
1253 asmlinkage int sunos_send(u32 __fd, void __user *buff, int len, unsigned flags)
1254 {
1255         int ret, fd = (int) __fd;
1256
1257         ret = check_nonblock(sys_send(fd, buff, len, flags), fd);
1258         return ret;
1259 }
1260
1261 asmlinkage int sunos_accept(u32 __fd, struct sockaddr __user *sa, int __user *addrlen)
1262 {
1263         int ret, fd = (int) __fd;
1264
1265         while (1) {
1266                 ret = check_nonblock(sys_accept(fd, sa, addrlen), fd);
1267                 if (ret != -ENETUNREACH && ret != -EHOSTUNREACH)
1268                         break;
1269         }
1270         return ret;
1271 }
1272
1273 #define SUNOS_SV_INTERRUPT 2
1274
1275 asmlinkage int sunos_sigaction (int sig,
1276                                 struct old_sigaction32 __user *act,
1277                                 struct old_sigaction32 __user *oact)
1278 {
1279         struct k_sigaction new_ka, old_ka;
1280         int ret;
1281
1282         if (act) {
1283                 compat_old_sigset_t mask;
1284                 u32 u_handler;
1285
1286                 if (get_user(u_handler, &act->sa_handler) ||
1287                     __get_user(new_ka.sa.sa_flags, &act->sa_flags))
1288                         return -EFAULT;
1289                 new_ka.sa.sa_handler = compat_ptr(u_handler);
1290                 __get_user(mask, &act->sa_mask);
1291                 new_ka.sa.sa_restorer = NULL;
1292                 new_ka.ka_restorer = NULL;
1293                 siginitset(&new_ka.sa.sa_mask, mask);
1294                 new_ka.sa.sa_flags ^= SUNOS_SV_INTERRUPT;
1295         }
1296
1297         ret = do_sigaction(sig, act ? &new_ka : NULL, oact ? &old_ka : NULL);
1298
1299         if (!ret && oact) {
1300                 old_ka.sa.sa_flags ^= SUNOS_SV_INTERRUPT;
1301                 if (put_user(ptr_to_compat(old_ka.sa.sa_handler), &oact->sa_handler) ||
1302                     __put_user(old_ka.sa.sa_flags, &oact->sa_flags))
1303                         return -EFAULT;
1304                 __put_user(old_ka.sa.sa_mask.sig[0], &oact->sa_mask);
1305         }
1306
1307         return ret;
1308 }
1309
1310 asmlinkage int sunos_setsockopt(u32 __fd, u32 __level, u32 __optname,
1311                                 char __user *optval, u32 __optlen)
1312 {
1313         int fd = (int) __fd;
1314         int level = (int) __level;
1315         int optname = (int) __optname;
1316         int optlen = (int) __optlen;
1317         int tr_opt = optname;
1318         int ret;
1319
1320         if (level == SOL_IP) {
1321                 /* Multicast socketopts (ttl, membership) */
1322                 if (tr_opt >=2 && tr_opt <= 6)
1323                         tr_opt += 30;
1324         }
1325         ret = sys_setsockopt(fd, level, tr_opt,
1326                              optval, optlen);
1327         return ret;
1328 }
1329
1330 asmlinkage int sunos_getsockopt(u32 __fd, u32 __level, u32 __optname,
1331                                 char __user *optval, int __user *optlen)
1332 {
1333         int fd = (int) __fd;
1334         int level = (int) __level;
1335         int optname = (int) __optname;
1336         int tr_opt = optname;
1337         int ret;
1338
1339         if (level == SOL_IP) {
1340                 /* Multicast socketopts (ttl, membership) */
1341                 if (tr_opt >=2 && tr_opt <= 6)
1342                         tr_opt += 30;
1343         }
1344         ret = compat_sys_getsockopt(fd, level, tr_opt,
1345                                     optval, optlen);
1346         return ret;
1347 }