2 * Implements HPUX syscalls.
4 * Copyright (C) 1999 Matthew Wilcox <willy with parisc-linux.org>
5 * Copyright (C) 2000 Philipp Rumpf
6 * Copyright (C) 2000 John Marvin <jsm with parisc-linux.org>
7 * Copyright (C) 2000 Michael Ang <mang with subcarrier.org>
8 * Copyright (C) 2001 Nathan Neulinger <nneul at umr.edu>
10 * This program is free software; you can redistribute it and/or modify
11 * it under the terms of the GNU General Public License as published by
12 * the Free Software Foundation; either version 2 of the License, or
13 * (at your option) any later version.
15 * This program is distributed in the hope that it will be useful,
16 * but WITHOUT ANY WARRANTY; without even the implied warranty of
17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 * GNU General Public License for more details.
20 * You should have received a copy of the GNU General Public License
21 * along with this program; if not, write to the Free Software
22 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
25 #include <linux/capability.h>
26 #include <linux/file.h>
28 #include <linux/namei.h>
29 #include <linux/sched.h>
30 #include <linux/slab.h>
31 #include <linux/syscalls.h>
32 #include <linux/utsname.h>
33 #include <linux/vfs.h>
34 #include <linux/vmalloc.h>
36 #include <asm/errno.h>
37 #include <asm/pgalloc.h>
38 #include <asm/uaccess.h>
40 unsigned long hpux_brk(unsigned long addr
)
42 /* Sigh. Looks like HP/UX libc relies on kernel bugs. */
43 return sys_brk(addr
+ PAGE_SIZE
);
51 /* Random other syscalls */
53 int hpux_nice(int priority_change
)
63 int hpux_wait(int __user
*stat_loc
)
65 return sys_waitpid(-1, stat_loc
, 0);
68 int hpux_setpgrp(void)
70 return sys_setpgid(0,0);
73 int hpux_setpgrp3(void)
75 return hpux_setpgrp();
78 #define _SC_CPU_VERSION 10001
79 #define _SC_OPEN_MAX 4
80 #define CPU_PA_RISC1_1 0x210
82 int hpux_sysconf(int which
)
86 return CPU_PA_RISC1_1
;
94 /*****************************************************************************/
100 char sysname
[HPUX_UTSLEN
];
101 char nodename
[HPUX_UTSLEN
];
102 char release
[HPUX_UTSLEN
];
103 char version
[HPUX_UTSLEN
];
104 char machine
[HPUX_UTSLEN
];
105 char idnumber
[HPUX_SNLEN
];
109 int32_t f_tfree
; /* total free (daddr_t) */
110 u_int32_t f_tinode
; /* total inodes free (ino_t) */
111 char f_fname
[6]; /* filsys name */
112 char f_fpack
[6]; /* filsys pack name */
113 u_int32_t f_blksize
; /* filsys block size (int) */
117 * HPUX's utssys() call. It's a collection of miscellaneous functions,
118 * alas, so there's no nice way of splitting them up.
121 /* This function is called from hpux_utssys(); HP-UX implements
122 * ustat() as an option to utssys().
124 * Now, struct ustat on HP-UX is exactly the same as on Linux, except
125 * that it contains one addition field on the end, int32_t f_blksize.
126 * So, we could have written this function to just call the Linux
127 * sys_ustat(), (defined in linux/fs/super.c), and then just
128 * added this additional field to the user's structure. But I figure
129 * if we're gonna be digging through filesystem structures to get
130 * this, we might as well just do the whole enchilada all in one go.
132 * So, most of this function is almost identical to sys_ustat().
133 * I have placed comments at the few lines changed or added, to
134 * aid in porting forward if and when sys_ustat() is changed from
135 * its form in kernel 2.2.5.
137 static int hpux_ustat(dev_t dev
, struct hpux_ustat __user
*ubuf
)
139 struct super_block
*s
;
140 struct hpux_ustat tmp
; /* Changed to hpux_ustat */
144 s
= user_get_super(dev
);
147 err
= statfs_by_dentry(s
->s_root
, &sbuf
);
152 memset(&tmp
,0,sizeof(tmp
));
154 tmp
.f_tfree
= (int32_t)sbuf
.f_bfree
;
155 tmp
.f_tinode
= (u_int32_t
)sbuf
.f_ffree
;
156 tmp
.f_blksize
= (u_int32_t
)sbuf
.f_bsize
; /* Added this line */
158 err
= copy_to_user(ubuf
, &tmp
, sizeof(tmp
)) ? -EFAULT
: 0;
164 * Wrapper for hpux statfs call. At the moment, just calls the linux native one
165 * and ignores the extra fields at the end of the hpux statfs struct.
169 typedef int32_t hpux_fsid_t
[2]; /* file system ID type */
170 typedef uint16_t hpux_site_t
;
173 int32_t f_type
; /* type of info, zero for now */
174 int32_t f_bsize
; /* fundamental file system block size */
175 int32_t f_blocks
; /* total blocks in file system */
176 int32_t f_bfree
; /* free block in fs */
177 int32_t f_bavail
; /* free blocks avail to non-superuser */
178 int32_t f_files
; /* total file nodes in file system */
179 int32_t f_ffree
; /* free file nodes in fs */
180 hpux_fsid_t f_fsid
; /* file system ID */
181 int32_t f_magic
; /* file system magic number */
182 int32_t f_featurebits
; /* file system features */
183 int32_t f_spare
[4]; /* spare for later */
184 hpux_site_t f_cnode
; /* cluster node where mounted */
188 static int do_statfs_hpux(struct path
*path
, struct hpux_statfs
*buf
)
193 retval
= vfs_statfs(path
, &st
);
197 memset(buf
, 0, sizeof(*buf
));
198 buf
->f_type
= st
.f_type
;
199 buf
->f_bsize
= st
.f_bsize
;
200 buf
->f_blocks
= st
.f_blocks
;
201 buf
->f_bfree
= st
.f_bfree
;
202 buf
->f_bavail
= st
.f_bavail
;
203 buf
->f_files
= st
.f_files
;
204 buf
->f_ffree
= st
.f_ffree
;
205 buf
->f_fsid
[0] = st
.f_fsid
.val
[0];
206 buf
->f_fsid
[1] = st
.f_fsid
.val
[1];
212 asmlinkage
long hpux_statfs(const char __user
*pathname
,
213 struct hpux_statfs __user
*buf
)
218 error
= user_path(pathname
, &path
);
220 struct hpux_statfs tmp
;
221 error
= do_statfs_hpux(&path
, &tmp
);
222 if (!error
&& copy_to_user(buf
, &tmp
, sizeof(tmp
)))
229 asmlinkage
long hpux_fstatfs(unsigned int fd
, struct hpux_statfs __user
* buf
)
232 struct hpux_statfs tmp
;
239 error
= do_statfs_hpux(&file
->f_path
, &tmp
);
240 if (!error
&& copy_to_user(buf
, &tmp
, sizeof(tmp
)))
248 /* This function is called from hpux_utssys(); HP-UX implements
249 * uname() as an option to utssys().
251 * The form of this function is pretty much copied from sys_olduname(),
252 * defined in linux/arch/i386/kernel/sys_i386.c.
254 /* TODO: Are these put_user calls OK? Should they pass an int?
255 * (I copied it from sys_i386.c like this.)
257 static int hpux_uname(struct hpux_utsname __user
*name
)
263 if (!access_ok(VERIFY_WRITE
,name
,sizeof(struct hpux_utsname
)))
268 error
= __copy_to_user(&name
->sysname
, &utsname()->sysname
,
270 error
|= __put_user(0, name
->sysname
+ HPUX_UTSLEN
- 1);
271 error
|= __copy_to_user(&name
->nodename
, &utsname()->nodename
,
273 error
|= __put_user(0, name
->nodename
+ HPUX_UTSLEN
- 1);
274 error
|= __copy_to_user(&name
->release
, &utsname()->release
,
276 error
|= __put_user(0, name
->release
+ HPUX_UTSLEN
- 1);
277 error
|= __copy_to_user(&name
->version
, &utsname()->version
,
279 error
|= __put_user(0, name
->version
+ HPUX_UTSLEN
- 1);
280 error
|= __copy_to_user(&name
->machine
, &utsname()->machine
,
282 error
|= __put_user(0, name
->machine
+ HPUX_UTSLEN
- 1);
286 /* HP-UX utsname has no domainname field. */
288 /* TODO: Implement idnumber!!! */
290 error
|= __put_user(0,name
->idnumber
);
291 error
|= __put_user(0,name
->idnumber
+HPUX_SNLEN
-1);
294 error
= error
? -EFAULT
: 0;
299 /* Note: HP-UX just uses the old suser() function to check perms
300 * in this system call. We'll use capable(CAP_SYS_ADMIN).
302 int hpux_utssys(char __user
*ubuf
, int n
, int type
)
309 return hpux_uname((struct hpux_utsname __user
*)ubuf
);
312 /* Obsolete (used to be umask().) */
317 return hpux_ustat(new_decode_dev(n
),
318 (struct hpux_ustat __user
*)ubuf
);
323 * On linux (unlike HP-UX), utsname.nodename
324 * is the same as the hostname.
326 * sys_sethostname() is defined in linux/kernel/sys.c.
328 if (!capable(CAP_SYS_ADMIN
))
330 /* Unlike Linux, HP-UX returns an error if n==0: */
333 /* Unlike Linux, HP-UX truncates it if n is too big: */
334 len
= (n
<= __NEW_UTS_LEN
) ? n
: __NEW_UTS_LEN
;
335 return sys_sethostname(ubuf
, len
);
340 * sys_sethostname() is defined in linux/kernel/sys.c.
342 if (!capable(CAP_SYS_ADMIN
))
344 /* Unlike Linux, HP-UX returns an error if n==0: */
347 /* Unlike Linux, HP-UX truncates it if n is too big: */
348 len
= (n
<= __NEW_UTS_LEN
) ? n
: __NEW_UTS_LEN
;
349 return sys_sethostname(ubuf
, len
);
354 * sys_gethostname() is defined in linux/kernel/sys.c.
356 /* Unlike Linux, HP-UX returns an error if n==0: */
359 return sys_gethostname(ubuf
, n
);
362 /* Supposedly called from setuname() in libc.
363 * TODO: When and why is this called?
364 * Is it ever even called?
366 * This code should look a lot like sys_sethostname(),
367 * defined in linux/kernel/sys.c. If that gets updated,
368 * update this code similarly.
370 if (!capable(CAP_SYS_ADMIN
))
372 /* Unlike Linux, HP-UX returns an error if n==0: */
375 /* Unlike Linux, HP-UX truncates it if n is too big: */
376 len
= (n
<= __NEW_UTS_LEN
) ? n
: __NEW_UTS_LEN
;
378 /* TODO: print a warning about using this? */
379 down_write(&uts_sem
);
381 if (!copy_from_user(utsname()->sysname
, ubuf
, len
)) {
382 utsname()->sysname
[len
] = 0;
389 /* Sets utsname.release, if you're allowed.
390 * Undocumented. Used by swinstall to change the
391 * OS version, during OS updates. Yuck!!!
393 * This code should look a lot like sys_sethostname()
394 * in linux/kernel/sys.c. If that gets updated, update
395 * this code similarly.
397 if (!capable(CAP_SYS_ADMIN
))
399 /* Unlike Linux, HP-UX returns an error if n==0: */
402 /* Unlike Linux, HP-UX truncates it if n is too big: */
403 len
= (n
<= __NEW_UTS_LEN
) ? n
: __NEW_UTS_LEN
;
405 /* TODO: print a warning about this? */
406 down_write(&uts_sem
);
408 if (!copy_from_user(utsname()->release
, ubuf
, len
)) {
409 utsname()->release
[len
] = 0;
416 /* This system call returns -EFAULT if given an unknown type.
417 * Why not -EINVAL? I don't know, it's just not what they did.
423 int hpux_getdomainname(char __user
*name
, int len
)
430 nlen
= strlen(utsname()->domainname
) + 1;
434 if(len
> __NEW_UTS_LEN
)
436 if(copy_to_user(name
, utsname()->domainname
, len
))
445 int hpux_pipe(int *kstack_fildes
)
447 return do_pipe_flags(kstack_fildes
, 0);
450 /* lies - says it works, but it really didn't lock anything */
451 int hpux_lockf(int fildes
, int function
, off_t size
)
456 int hpux_sysfs(int opcode
, unsigned long arg1
, unsigned long arg2
)
462 /*Unimplemented HP-UX syscall emulation. Syscall #334 (sysfs)
463 Args: 1 80057bf4 0 400179f0 0 0 0 */
464 printk(KERN_DEBUG
"in hpux_sysfs\n");
465 printk(KERN_DEBUG
"hpux_sysfs called with opcode = %d\n", opcode
);
466 printk(KERN_DEBUG
"hpux_sysfs called with arg1='%lx'\n", arg1
);
468 if ( opcode
== 1 ) { /* GETFSIND */
469 char __user
*user_fsname
= (char __user
*)arg1
;
470 len
= strlen_user(user_fsname
);
471 printk(KERN_DEBUG
"len of arg1 = %d\n", len
);
474 fsname
= kmalloc(len
, GFP_KERNEL
);
476 printk(KERN_DEBUG
"failed to kmalloc fsname\n");
480 if (copy_from_user(fsname
, user_fsname
, len
)) {
481 printk(KERN_DEBUG
"failed to copy_from_user fsname\n");
486 /* String could be altered by userspace after strlen_user() */
489 printk(KERN_DEBUG
"that is '%s' as (char *)\n", fsname
);
490 if ( !strcmp(fsname
, "hfs") ) {
498 printk(KERN_DEBUG
"returning fstype=%d\n", fstype
);
499 return fstype
; /* something other than default */
507 /* Table of syscall names and handle for unimplemented routines */
508 static const char * const syscall_names
[] = {
589 "setgroups", /* 80 */
609 "getpriority", /* 100 */
619 "sigsetmask", /* 110 */
639 "ftruncate", /* 130 */
654 "setrlimit", /* 145 */
684 "osetcontext", /* 175 */
689 "cnodeid/mysite", /* 180 */
694 "sigprocmask", /* 185 */
704 "getdirentries", /* 195 */
734 "sigsetstatemask", /* 225 */
739 "pathconf", /* 230 */
749 "getaudid", /* 240 */
754 "setevent", /* 245 */
789 "getsockopt", /* 280 */
804 "proc_recv", /* 295 */
809 "ipcnamerase", /* 300 */
819 "ipcshutdown", /* 310 */
848 "sched_setscheduler",
849 "sched_getscheduler", /* 340 */
851 "sched_get_priority_max",
852 "sched_get_priority_min",
853 "sched_rr_get_interval",
854 "clock_settime", /* 345 */
859 "timer_settime", /* 350 */
869 "ftruncate64", /* 360 */
879 "truncate64", /* 370 */
889 "setcontext", /* 380 */
894 "sendmsg2", /* 385 */
899 "lwp_terminate", /* 390 */
904 "lwp_abort_syscall", /* 395 */
909 "ksleep_abort", /* 400 */
919 "lwp_mutex_lock_sys", /* 410 */
923 "lwp_cond_broadcast",
924 "lwp_cond_wait_sys", /* 415 */
929 "lwp_detach", /* 420 */
934 "shm_open", /* 425 */
944 "aio_return", /* 435 */
949 "mq_unlink", /* 440 */
954 "mq_getattr", /* 445 */
959 "lw_sem_incr", /* 450 */
964 static const int syscall_names_max
= 453;
967 hpux_unimplemented(unsigned long arg1
,unsigned long arg2
,unsigned long arg3
,
968 unsigned long arg4
,unsigned long arg5
,unsigned long arg6
,
969 unsigned long arg7
,unsigned long sc_num
)
971 /* NOTE: sc_num trashes arg8 for the few syscalls that actually
972 * have a valid 8th argument.
974 const char *name
= NULL
;
975 if ( sc_num
<= syscall_names_max
&& sc_num
>= 0 ) {
976 name
= syscall_names
[sc_num
];
980 printk(KERN_DEBUG
"Unimplemented HP-UX syscall emulation. Syscall #%lu (%s)\n",
983 printk(KERN_DEBUG
"Unimplemented unknown HP-UX syscall emulation. Syscall #%lu\n",
987 printk(KERN_DEBUG
" Args: %lx %lx %lx %lx %lx %lx %lx\n",
988 arg1
, arg2
, arg3
, arg4
, arg5
, arg6
, arg7
);