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