| /* |
| * Copyright (C) 2000 - 2003 Jeff Dike (jdike@addtoit.com) |
| * Licensed under the GPL |
| */ |
| |
| #include "linux/sched.h" |
| #include "linux/file.h" |
| #include "linux/smp_lock.h" |
| #include "linux/mm.h" |
| #include "linux/utsname.h" |
| #include "linux/msg.h" |
| #include "linux/shm.h" |
| #include "linux/sys.h" |
| #include "linux/unistd.h" |
| #include "linux/slab.h" |
| #include "linux/utime.h" |
| #include "asm/mman.h" |
| #include "asm/uaccess.h" |
| #include "asm/ipc.h" |
| #include "kern_util.h" |
| #include "user_util.h" |
| #include "sysdep/syscalls.h" |
| #include "mode_kern.h" |
| #include "choose-mode.h" |
| |
| /* Unlocked, I don't care if this is a bit off */ |
| int nsyscalls = 0; |
| |
| long um_mount(char * dev_name, char * dir_name, char * type, |
| unsigned long new_flags, void * data) |
| { |
| if(type == NULL) type = ""; |
| return(sys_mount(dev_name, dir_name, type, new_flags, data)); |
| } |
| |
| long sys_fork(void) |
| { |
| long ret; |
| |
| current->thread.forking = 1; |
| ret = do_fork(SIGCHLD, 0, NULL, 0); |
| current->thread.forking = 0; |
| return(ret); |
| } |
| |
| long sys_clone(unsigned long clone_flags, unsigned long newsp) |
| { |
| long ret; |
| |
| current->thread.forking = 1; |
| ret = do_fork(clone_flags, newsp, NULL, 0); |
| current->thread.forking = 0; |
| return(ret); |
| } |
| |
| long sys_vfork(void) |
| { |
| long ret; |
| |
| current->thread.forking = 1; |
| ret = do_fork(CLONE_VFORK | CLONE_VM | SIGCHLD, 0, NULL, 0); |
| current->thread.forking = 0; |
| return(ret); |
| } |
| |
| /* common code for old and new mmaps */ |
| long do_mmap2(struct mm_struct *mm, unsigned long addr, unsigned long len, |
| unsigned long prot, unsigned long flags, unsigned long fd, |
| unsigned long pgoff) |
| { |
| int error = -EBADF; |
| struct file * file = NULL; |
| |
| flags &= ~(MAP_EXECUTABLE | MAP_DENYWRITE); |
| if (!(flags & MAP_ANONYMOUS)) { |
| file = fget(fd); |
| if (!file) |
| goto out; |
| } |
| |
| down_write(&mm->mmap_sem); |
| error = do_mmap_pgoff(mm, file, addr, len, prot, flags, pgoff); |
| up_write(&mm->mmap_sem); |
| |
| if (file) |
| fput(file); |
| out: |
| return error; |
| } |
| |
| long sys_mmap2(unsigned long addr, unsigned long len, |
| unsigned long prot, unsigned long flags, |
| unsigned long fd, unsigned long pgoff) |
| { |
| return do_mmap2(current->mm, addr, len, prot, flags, fd, pgoff); |
| } |
| |
| /* |
| * Perform the select(nd, in, out, ex, tv) and mmap() system |
| * calls. Linux/i386 didn't use to be able to handle more than |
| * 4 system call parameters, so these system calls used a memory |
| * block for parameter passing.. |
| */ |
| |
| struct mmap_arg_struct { |
| unsigned long addr; |
| unsigned long len; |
| unsigned long prot; |
| unsigned long flags; |
| unsigned long fd; |
| unsigned long offset; |
| }; |
| |
| int old_mmap(unsigned long addr, unsigned long len, |
| unsigned long prot, unsigned long flags, |
| unsigned long fd, unsigned long offset) |
| { |
| int err = -EINVAL; |
| if (offset & ~PAGE_MASK) |
| goto out; |
| |
| err = do_mmap2(current->mm, addr, len, prot, flags, fd, |
| offset >> PAGE_SHIFT); |
| out: |
| return err; |
| } |
| /* |
| * sys_pipe() is the normal C calling standard for creating |
| * a pipe. It's not the way unix traditionally does this, though. |
| */ |
| int sys_pipe(unsigned long * fildes) |
| { |
| int fd[2]; |
| int error; |
| |
| error = do_pipe(fd); |
| if (!error) { |
| if (copy_to_user(fildes, fd, 2*sizeof(int))) |
| error = -EFAULT; |
| } |
| return error; |
| } |
| |
| int sys_pause(void) |
| { |
| current->state = TASK_INTERRUPTIBLE; |
| schedule(); |
| return -ERESTARTNOHAND; |
| } |
| |
| int sys_sigaction(int sig, const struct old_sigaction *act, |
| struct old_sigaction *oact) |
| { |
| struct k_sigaction new_ka, old_ka; |
| int ret; |
| |
| if (act) { |
| old_sigset_t mask; |
| if (verify_area(VERIFY_READ, act, sizeof(*act)) || |
| __get_user(new_ka.sa.sa_handler, &act->sa_handler) || |
| __get_user(new_ka.sa.sa_restorer, &act->sa_restorer)) |
| return -EFAULT; |
| __get_user(new_ka.sa.sa_flags, &act->sa_flags); |
| __get_user(mask, &act->sa_mask); |
| siginitset(&new_ka.sa.sa_mask, mask); |
| } |
| |
| ret = do_sigaction(sig, act ? &new_ka : NULL, oact ? &old_ka : NULL); |
| |
| if (!ret && oact) { |
| if (verify_area(VERIFY_WRITE, oact, sizeof(*oact)) || |
| __put_user(old_ka.sa.sa_handler, &oact->sa_handler) || |
| __put_user(old_ka.sa.sa_restorer, &oact->sa_restorer)) |
| return -EFAULT; |
| __put_user(old_ka.sa.sa_flags, &oact->sa_flags); |
| __put_user(old_ka.sa.sa_mask.sig[0], &oact->sa_mask); |
| } |
| |
| return ret; |
| } |
| |
| /* |
| * sys_ipc() is the de-multiplexer for the SysV IPC calls.. |
| * |
| * This is really horribly ugly. |
| */ |
| int sys_ipc (uint call, int first, int second, |
| int third, void *ptr, long fifth) |
| { |
| int version, ret; |
| |
| version = call >> 16; /* hack for backward compatibility */ |
| call &= 0xffff; |
| |
| switch (call) { |
| case SEMOP: |
| return sys_semop (first, (struct sembuf *)ptr, second); |
| case SEMGET: |
| return sys_semget (first, second, third); |
| case SEMCTL: { |
| union semun fourth; |
| if (!ptr) |
| return -EINVAL; |
| if (get_user(fourth.__pad, (void **) ptr)) |
| return -EFAULT; |
| return sys_semctl (first, second, third, fourth); |
| } |
| |
| case MSGSND: |
| return sys_msgsnd (first, (struct msgbuf *) ptr, |
| second, third); |
| case MSGRCV: |
| switch (version) { |
| case 0: { |
| struct ipc_kludge tmp; |
| if (!ptr) |
| return -EINVAL; |
| |
| if (copy_from_user(&tmp, |
| (struct ipc_kludge *) ptr, |
| sizeof (tmp))) |
| return -EFAULT; |
| return sys_msgrcv (first, tmp.msgp, second, |
| tmp.msgtyp, third); |
| } |
| default: |
| panic("msgrcv with version != 0"); |
| return sys_msgrcv (first, |
| (struct msgbuf *) ptr, |
| second, fifth, third); |
| } |
| case MSGGET: |
| return sys_msgget ((key_t) first, second); |
| case MSGCTL: |
| return sys_msgctl (first, second, (struct msqid_ds *) ptr); |
| |
| case SHMAT: |
| switch (version) { |
| default: { |
| ulong raddr; |
| ret = sys_shmat (first, (char *) ptr, second, &raddr); |
| if (ret) |
| return ret; |
| return put_user (raddr, (ulong *) third); |
| } |
| case 1: /* iBCS2 emulator entry point */ |
| if (!segment_eq(get_fs(), get_ds())) |
| return -EINVAL; |
| return sys_shmat (first, (char *) ptr, second, (ulong *) third); |
| } |
| case SHMDT: |
| return sys_shmdt ((char *)ptr); |
| case SHMGET: |
| return sys_shmget (first, second, third); |
| case SHMCTL: |
| return sys_shmctl (first, second, |
| (struct shmid_ds *) ptr); |
| default: |
| return -EINVAL; |
| } |
| } |
| |
| int sys_uname(struct old_utsname * name) |
| { |
| int err; |
| if (!name) |
| return -EFAULT; |
| down_read(&uts_sem); |
| err=copy_to_user(name, &system_utsname, sizeof (*name)); |
| up_read(&uts_sem); |
| return err?-EFAULT:0; |
| } |
| |
| int sys_olduname(struct oldold_utsname * name) |
| { |
| int error; |
| |
| if (!name) |
| return -EFAULT; |
| if (!access_ok(VERIFY_WRITE,name,sizeof(struct oldold_utsname))) |
| return -EFAULT; |
| |
| down_read(&uts_sem); |
| |
| error = __copy_to_user(&name->sysname,&system_utsname.sysname, |
| __OLD_UTS_LEN); |
| error |= __put_user(0,name->sysname+__OLD_UTS_LEN); |
| error |= __copy_to_user(&name->nodename,&system_utsname.nodename, |
| __OLD_UTS_LEN); |
| error |= __put_user(0,name->nodename+__OLD_UTS_LEN); |
| error |= __copy_to_user(&name->release,&system_utsname.release, |
| __OLD_UTS_LEN); |
| error |= __put_user(0,name->release+__OLD_UTS_LEN); |
| error |= __copy_to_user(&name->version,&system_utsname.version, |
| __OLD_UTS_LEN); |
| error |= __put_user(0,name->version+__OLD_UTS_LEN); |
| error |= __copy_to_user(&name->machine,&system_utsname.machine, |
| __OLD_UTS_LEN); |
| error |= __put_user(0,name->machine+__OLD_UTS_LEN); |
| |
| up_read(&uts_sem); |
| |
| error = error ? -EFAULT : 0; |
| |
| return error; |
| } |
| |
| int sys_sigaltstack(const stack_t *uss, stack_t *uoss) |
| { |
| return(do_sigaltstack(uss, uoss, PT_REGS_SP(¤t->thread.regs))); |
| } |
| |
| long execute_syscall(void *r) |
| { |
| return(CHOOSE_MODE_PROC(execute_syscall_tt, execute_syscall_skas, r)); |
| } |
| |
| spinlock_t syscall_lock = SPIN_LOCK_UNLOCKED; |
| |
| static int syscall_index = 0; |
| |
| int next_syscall_index(int limit) |
| { |
| int ret; |
| |
| spin_lock(&syscall_lock); |
| ret = syscall_index; |
| if(++syscall_index == limit) |
| syscall_index = 0; |
| spin_unlock(&syscall_lock); |
| return(ret); |
| } |
| |
| /* |
| * Overrides for Emacs so that we follow Linus's tabbing style. |
| * Emacs will notice this stuff at the end of the file and automatically |
| * adjust the settings for this buffer only. This must remain at the end |
| * of the file. |
| * --------------------------------------------------------------------------- |
| * Local variables: |
| * c-file-style: "linux" |
| * End: |
| */ |