fix for savecore: disk drivers decrease bcount near end of partition,

[unix-history] / usr / src / sys / kern / vfs_syscalls.c

diff --git a/usr/src/sys/kern/vfs_syscalls.c b/usr/src/sys/kern/vfs_syscalls.c
index 59f4244..ee35805 100644 (file)
--- a/usr/src/sys/kern/vfs_syscalls.c
+++ b/usr/src/sys/kern/vfs_syscalls.c
@@ -1,291 +1,1315 @@
-/*     vfs_syscalls.c  4.11    81/08/12        */
+/*
+ * Copyright (c) 1989 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms are permitted
+ * provided that the above copyright notice and this paragraph are
+ * duplicated in all such forms and that any documentation,
+ * advertising materials, and other materials related to such
+ * distribution and use acknowledge that the software was developed
+ * by the University of California, Berkeley.  The name of the
+ * University may not be used to endorse or promote products derived
+ * from this software without specific prior written permission.
+ * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+ * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+ *
+ *     @(#)vfs_syscalls.c      7.14 (Berkeley) %G%
+ */
+
+#include "param.h"
+#include "systm.h"
+#include "syscontext.h"
+#include "kernel.h"
+#include "file.h"
+#include "stat.h"
+#include "vnode.h"
+#include "../ufs/inode.h"
+#include "mount.h"
+#include "proc.h"
+#include "uio.h"
+#include "malloc.h"

 
 

-#include "../h/param.h"
-#include "../h/systm.h"
-#include "../h/mount.h"
-#include "../h/ino.h"
-#include "../h/reg.h"
-#include "../h/buf.h"
-#include "../h/filsys.h"
-#include "../h/dir.h"
-#include "../h/user.h"
-#include "../h/inode.h"
-#include "../h/file.h"
-#include "../h/conf.h"
-#include "../h/stat.h"
-#include "../h/inline.h"
+/*
+ * Virtual File System System Calls
+ */

 
 /*
 
 /*

- * the fstat system call.
+ * mount system call

  */
  */

-fstat()
+mount(scp)
+       register struct syscontext *scp;

 {
 {

-       register struct file *fp;

        register struct a {
        register struct a {

-               int     fdes;
-               struct stat *sb;
-       } *uap;
-
-       uap = (struct a *)u.u_ap;
-       fp = getf(uap->fdes);
-       if(fp == NULL)
-               return;
-       if (fp->f_flag&FPORT) {
-               ptstat(fp);
-               return;
+               int     type;
+               char    *dir;
+               int     flags;
+               caddr_t data;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct nameidata *ndp = &scp->sc_nd;
+       struct vnode *vp;
+       struct mount *mp;
+       int error;
+
+       /*
+        * Must be super user
+        */
+       if (error = suser(scp->sc_cred, &scp->sc_acflag))
+               RETURN (error);
+       /*
+        * Get vnode to be covered
+        */
+       ndp->ni_nameiop = LOOKUP | FOLLOW | LOCKLEAF;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->dir;
+       if (error = namei(ndp))
+               RETURN (error);
+       vp = ndp->ni_vp;
+       if (vp->v_count != 1) {
+               vput(vp);
+               RETURN (EBUSY);
+       }
+       if (vp->v_type != VDIR) {
+               vput(vp);
+               RETURN (ENOTDIR);
+       }
+       if (uap->type > MOUNT_MAXTYPE ||
+           vfssw[uap->type] == (struct vfsops *)0) {
+               vput(vp);
+               RETURN (ENODEV);

        }
        }

-#ifdef BBNNET
-       if (fp->f_flag&FNET) {
-               u.u_error = EINVAL;
-               return;
+
+       /*
+        * Mount the filesystem.
+        */
+       mp = (struct mount *)malloc((u_long)sizeof(struct mount),
+               M_MOUNT, M_WAITOK);
+       mp->m_op = vfssw[uap->type];
+       mp->m_flag = 0;
+       mp->m_exroot = 0;
+       error = vfs_add(vp, mp, uap->flags);
+       if (!error)
+               error = VFS_MOUNT(mp, uap->dir, uap->data, ndp);
+       cache_purge(vp);
+       VOP_UNLOCK(vp);
+       if (!error) {
+               vfs_unlock(mp);
+       } else {
+               vfs_remove(mp);
+               free((caddr_t)mp, M_MOUNT);
+               vrele(vp);

        }
        }

-#endif
-       stat1(fp->f_inode, uap->sb);
+       RETURN (error);
+}
+
+/*
+ * Unmount system call.
+ *
+ * Note: unmount takes a path to the vnode mounted on as argument,
+ * not special file (as before).
+ */
+unmount(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               char    *pathp;
+               int     flags;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct vnode *vp;
+       register struct mount *mp;
+       register struct nameidata *ndp = &scp->sc_nd;
+       struct vnode *coveredvp;
+       int error;
+
+       /*
+        * Must be super user
+        */
+       if (error = suser(scp->sc_cred, &scp->sc_acflag))
+               RETURN (error);
+
+       ndp->ni_nameiop = LOOKUP | LOCKLEAF | FOLLOW;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->pathp;
+       if (error = namei(ndp))
+               RETURN (error);
+       vp = ndp->ni_vp;
+       /*
+        * Must be the root of the filesystem
+        */
+       if ((vp->v_flag & VROOT) == 0) {
+               vput(vp);
+               RETURN (EINVAL);
+       }
+       mp = vp->v_mount;
+       vput(vp);
+       /*
+        * Do the unmount.
+        */
+       coveredvp = mp->m_vnodecovered;
+       if (error = vfs_lock(mp))
+               RETURN (error);
+
+       xumount(mp);            /* remove unused sticky files from text table */
+       cache_purgevfs(mp);     /* remove cache entries for this file sys */
+       VFS_SYNC(mp, MNT_WAIT);
+
+       error = VFS_UNMOUNT(mp, uap->flags);
+       if (error) {
+               vfs_unlock(mp);
+       } else {
+               vrele(coveredvp);
+               vfs_remove(mp);
+               free((caddr_t)mp, M_MOUNT);
+       }
+       RETURN (error);
+}
+
+/*
+ * Sync system call.
+ * Sync each mounted filesystem.
+ */
+sync(scp)
+       register struct syscontext *scp;
+{
+       register struct mount *mp;
+
+       mp = rootfs;
+       do {
+               if ((mp->m_flag & M_RDONLY) == 0)
+                       VFS_SYNC(mp, MNT_NOWAIT);
+               mp = mp->m_next;
+       } while (mp != rootfs);

 }
 
 /*
 }
 
 /*

- * the stat system call.
+ * get filesystem statistics

  */
  */

-stat()
+statfs(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               char *path;
+               struct statfs *buf;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct vnode *vp;
+       register struct nameidata *ndp = &scp->sc_nd;
+       struct statfs sb;
+       int error;
+
+       ndp->ni_nameiop = LOOKUP | FOLLOW | LOCKLEAF;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->path;
+       if (error = namei(ndp))
+               RETURN (error);
+       vp = ndp->ni_vp;
+       if (error = VFS_STATFS(vp->v_mount, &sb))
+               goto out;
+       error = copyout((caddr_t)&sb, (caddr_t)uap->buf, sizeof(sb));
+out:
+       vput(vp);
+       RETURN (error);
+}
+
+fstatfs(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               int fd;
+               struct statfs *buf;
+       } *uap = (struct a *)scp->sc_ap;
+       struct file *fp;
+       struct statfs sb;
+       int error;
+
+       if (error = getvnode(scp->sc_ofile, uap->fd, &fp))
+               RETURN (error);
+       if (error = VFS_STATFS(((struct vnode *)fp->f_data)->v_mount, &sb))
+               RETURN (error);
+       RETURN (copyout((caddr_t)&sb, (caddr_t)uap->buf, sizeof(sb)));
+}
+
+/*
+ * get statistics on all filesystems
+ */
+getfsstat(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               struct statfs *buf;
+               long bufsize;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct mount *mp;
+       register struct statfs *sfsp;
+       long count, maxcount, error;
+
+       maxcount = uap->bufsize / sizeof(struct statfs);
+       sfsp = uap->buf;
+       mp = rootfs;
+       count = 0;
+       do {
+               count++;
+               if (sfsp && count <= maxcount) {
+                       if (error = VFS_STATFS(mp, sfsp))
+                               RETURN (error);
+                       sfsp++;
+               }
+               mp = mp->m_prev;
+       } while (mp != rootfs);
+       if (sfsp && count > maxcount)
+               scp->sc_retval1 = maxcount;
+       else
+               scp->sc_retval1 = count;
+       RETURN (0);
+}
+
+/*
+ * Change current working directory to a given file descriptor.
+ */
+fchdir(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               int     fd;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct vnode *vp;
+       struct file *fp;
+       int error;
+
+       if (error = getvnode(scp->sc_ofile, uap->fd, &fp))
+               RETURN (error);
+       vp = (struct vnode *)fp->f_data;
+       VOP_LOCK(vp);
+       if (vp->v_type != VDIR)
+               error = ENOTDIR;
+       else
+               error = VOP_ACCESS(vp, VEXEC, scp->sc_cred);
+       VOP_UNLOCK(vp);
+       vrele(scp->sc_cdir);
+       scp->sc_cdir = vp;
+       RETURN (error);
+}
+
+/*
+ * Change current working directory (``.'').
+ */
+chdir(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               char    *fname;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct nameidata *ndp = &scp->sc_nd;
+       int error;
+
+       ndp->ni_nameiop = LOOKUP | FOLLOW | LOCKLEAF;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->fname;
+       if (error = chdirec(ndp))
+               RETURN (error);
+       vrele(scp->sc_cdir);
+       scp->sc_cdir = ndp->ni_vp;
+       RETURN (0);
+}
+
+/*
+ * Change notion of root (``/'') directory.
+ */
+chroot(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               char    *fname;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct nameidata *ndp = &scp->sc_nd;
+       int error;
+
+       if (error = suser(scp->sc_cred, &scp->sc_acflag))
+               RETURN (error);
+       ndp->ni_nameiop = LOOKUP | FOLLOW | LOCKLEAF;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->fname;
+       if (error = chdirec(ndp))
+               RETURN (error);
+       vrele(scp->sc_rdir);
+       scp->sc_rdir = ndp->ni_vp;
+       RETURN (0);
+}
+
+/*
+ * Common routine for chroot and chdir.
+ */
+chdirec(ndp)
+       register struct nameidata *ndp;
+{
+       struct vnode *vp;
+       int error;
+
+       if (error = namei(ndp))
+               return (error);
+       vp = ndp->ni_vp;
+       if (vp->v_type != VDIR)
+               error = ENOTDIR;
+       else
+               error = VOP_ACCESS(vp, VEXEC, ndp->ni_cred);
+       VOP_UNLOCK(vp);
+       if (error)
+               vrele(vp);
+       return (error);
+}
+
+/*
+ * Open system call.
+ */
+open(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               char    *fname;
+               int     mode;
+               int     crtmode;
+       } *uap = (struct a *) scp->sc_ap;
+       struct nameidata *ndp = &scp->sc_nd;
+
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->fname;
+       RETURN (copen(scp, uap->mode-FOPEN, uap->crtmode &~ scp->sc_cmask, ndp,
+               &scp->sc_retval1));
+}
+
+/*
+ * Creat system call.
+ */
+creat(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               char    *fname;
+               int     fmode;
+       } *uap = (struct a *)scp->sc_ap;
+       struct nameidata *ndp = &scp->sc_nd;
+
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->fname;
+       RETURN (copen(scp, FWRITE|FCREAT|FTRUNC, uap->fmode &~ scp->sc_cmask,
+               ndp, &scp->sc_retval1));
+}
+
+/*
+ * Common code for open and creat.
+ * Check permissions, allocate an open file structure,
+ * and call the device open routine if any.
+ */
+copen(scp, fmode, cmode, ndp, resultfd)
+       register struct syscontext *scp;
+       int fmode, cmode;
+       struct nameidata *ndp;
+       int *resultfd;
+{
+       register struct file *fp;
+       struct file *nfp;
+       int indx, error;
+       extern struct fileops vnops;
+
+       if (error = falloc(&nfp, &indx))
+               return (error);
+       fp = nfp;
+       scp->sc_retval1 = indx; /* XXX for fdopen() */
+       if (error = vn_open(ndp, fmode, (cmode & 07777) &~ ISVTX)) {
+               scp->sc_ofile[indx] = NULL;
+               crfree(fp->f_cred);
+               fp->f_count--;
+               return (error);
+       }
+       fp->f_flag = fmode & FMASK;
+       fp->f_type = DTYPE_VNODE;
+       fp->f_ops = &vnops;
+       fp->f_data = (caddr_t)ndp->ni_vp;
+       if (resultfd)
+               *resultfd = indx;
+       return (0);
+}
+
+/*
+ * Mknod system call
+ */
+mknod(scp)
+       register struct syscontext *scp;

 {
 {

-       register struct inode *ip;

        register struct a {
                char    *fname;
        register struct a {
                char    *fname;

-               struct stat *sb;
-       } *uap;
+               int     fmode;
+               int     dev;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct nameidata *ndp = &scp->sc_nd;
+       register struct vnode *vp;
+       struct vattr vattr;
+       int error;
+
+       if (error = suser(scp->sc_cred, &scp->sc_acflag))
+               RETURN (error);
+       ndp->ni_nameiop = CREATE | LOCKPARENT;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->fname;
+       if (error = namei(ndp))
+               RETURN (error);
+       vp = ndp->ni_vp;
+       if (vp != NULL) {
+               error = EEXIST;
+               goto out;
+       }
+       vattr_null(&vattr);
+       switch (uap->fmode & IFMT) {

 
 

-       uap = (struct a *)u.u_ap;
-       ip = namei(uchar, 0);
-       if(ip == NULL)
-               return;
-       stat1(ip, uap->sb);
-       iput(ip);
+       case IFMT:      /* used by badsect to flag bad sectors */
+               vattr.va_type = VBAD;
+               break;
+       case IFCHR:
+               vattr.va_type = VCHR;
+               break;
+       case IFBLK:
+               vattr.va_type = VBLK;
+               break;
+       default:
+               error = EINVAL;
+               goto out;
+       }
+       vattr.va_mode = (uap->fmode & 07777) &~ scp->sc_cmask;
+       vattr.va_rdev = uap->dev;
+out:
+       if (error)
+               VOP_ABORTOP(ndp);
+       else
+               error = VOP_MKNOD(ndp, &vattr, ndp->ni_cred);
+       RETURN (error);

 }
 
 /*
 }
 
 /*

- * The basic routine for fstat and stat:
- * get the inode and pass appropriate parts back.
+ * link system call

  */
  */

-stat1(ip, ub)
-register struct inode *ip;
-struct stat *ub;
+link(scp)
+       register struct syscontext *scp;

 {
 {

-       register struct dinode *dp;
-       register struct buf *bp;
-       struct stat ds;
+       register struct a {
+               char    *target;
+               char    *linkname;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct nameidata *ndp = &scp->sc_nd;
+       register struct vnode *vp, *xp;
+       int error;

 
 

-       IUPDAT(ip, &time, &time, 0);
-       /*
-        * first copy from inode table
-        */
-       ds.st_dev = ip->i_dev;
-       ds.st_ino = ip->i_number;
-       ds.st_mode = ip->i_mode;
-       ds.st_nlink = ip->i_nlink;
-       ds.st_uid = ip->i_uid;
-       ds.st_gid = ip->i_gid;
-       ds.st_rdev = (dev_t)ip->i_un.i_rdev;
-       ds.st_size = ip->i_size;
+       ndp->ni_nameiop = LOOKUP | FOLLOW;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->target;
+       if (error = namei(ndp))
+               RETURN (error);
+       vp = ndp->ni_vp;
+       if (vp->v_type == VDIR &&
+           (error = suser(scp->sc_cred, &scp->sc_acflag)))
+               goto out1;
+       ndp->ni_nameiop = CREATE | LOCKPARENT;
+       ndp->ni_dirp = (caddr_t)uap->linkname;
+       if (error = namei(ndp))
+               goto out1;
+       xp = ndp->ni_vp;
+       if (xp != NULL) {
+               error = EEXIST;
+               goto out;
+       }
+       xp = ndp->ni_dvp;
+       if (vp->v_mount != xp->v_mount)
+               error = EXDEV;
+out:
+       if (error)
+               VOP_ABORTOP(ndp);
+       else
+               error = VOP_LINK(vp, ndp);
+out1:
+       vrele(vp);
+       RETURN (error);
+}
+
+/*
+ * symlink -- make a symbolic link
+ */
+symlink(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               char    *target;
+               char    *linkname;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct nameidata *ndp = &scp->sc_nd;
+       register struct vnode *vp;
+       struct vattr vattr;
+       char *target;
+       int error;
+
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->linkname;
+       MALLOC(target, char *, MAXPATHLEN, M_NAMEI, M_WAITOK);
+       if (error = copyinstr(uap->target, target, MAXPATHLEN, (u_int *)0))
+               goto out1;
+       ndp->ni_nameiop = CREATE | LOCKPARENT;
+       if (error = namei(ndp))
+               goto out1;
+       vp = ndp->ni_vp;
+       if (vp) {
+               error = EEXIST;
+               goto out;
+       }
+       vp = ndp->ni_dvp;
+       vattr_null(&vattr);
+       vattr.va_mode = 0777 &~ scp->sc_cmask;
+out:
+       if (error)
+               VOP_ABORTOP(ndp);
+       else
+               error = VOP_SYMLINK(ndp, &vattr, target);
+out1:
+       FREE(target, M_NAMEI);
+       RETURN (error);
+}
+
+/*
+ * Unlink system call.
+ * Hard to avoid races here, especially
+ * in unlinking directories.
+ */
+unlink(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               char    *fname;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct nameidata *ndp = &scp->sc_nd;
+       register struct vnode *vp;
+       int error;
+
+       ndp->ni_nameiop = DELETE | LOCKPARENT | LOCKLEAF;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->fname;
+       if (error = namei(ndp))
+               RETURN (error);
+       vp = ndp->ni_vp;
+       if (vp->v_type == VDIR &&
+           (error = suser(scp->sc_cred, &scp->sc_acflag)))
+               goto out;

        /*
        /*

-        * next the dates in the disk
+        * Don't unlink a mounted file.

         */
         */

-       bp = bread(ip->i_dev, itod(ip->i_number));
-       dp = bp->b_un.b_dino;
-       dp += itoo(ip->i_number);
-       ds.st_atime = dp->di_atime;
-       ds.st_mtime = dp->di_mtime;
-       ds.st_ctime = dp->di_ctime;
-       brelse(bp);
-       if (copyout((caddr_t)&ds, (caddr_t)ub, sizeof(ds)) < 0)
-               u.u_error = EFAULT;
+       if (vp->v_flag & VROOT) {
+               error = EBUSY;
+               goto out;
+       }
+       if (vp->v_flag & VTEXT)
+               xrele(vp);      /* try once to free text */
+out:
+       if (error)
+               VOP_ABORTOP(ndp);
+       else
+               error = VOP_REMOVE(ndp);
+       RETURN (error);

 }
 
 /*
 }
 
 /*

- * the dup system call.
+ * Seek system call

  */
  */

-dup()
+lseek(scp)
+       register struct syscontext *scp;

 {
        register struct file *fp;
        register struct a {
                int     fdes;
 {
        register struct file *fp;
        register struct a {
                int     fdes;

-               int     fdes2;
-       } *uap;
-       register i, m;
-
-       uap = (struct a *)u.u_ap;
-       m = uap->fdes & ~077;
-       uap->fdes &= 077;
-       fp = getf(uap->fdes);
-       if(fp == NULL)
-               return;
-       if ((m&0100) == 0) {
-               if ((i = ufalloc()) < 0)
-                       return;
-       } else {
-               i = uap->fdes2;
-               if (i<0 || i>=NOFILE) {
-                       u.u_error = EBADF;
-                       return;
-               }
-               if (u.u_vrpages[i]) {
-                       u.u_error = ETXTBSY;
-                       return;
-               }
-               u.u_r.r_val1 = i;
+               off_t   off;
+               int     sbase;
+       } *uap = (struct a *)scp->sc_ap;
+       struct vattr vattr;
+       int error;
+
+       if ((unsigned)uap->fdes >= NOFILE ||
+           (fp = scp->sc_ofile[uap->fdes]) == NULL)
+               RETURN (EBADF);
+       if (fp->f_type != DTYPE_VNODE)
+               RETURN (ESPIPE);
+       switch (uap->sbase) {
+
+       case L_INCR:
+               fp->f_offset += uap->off;
+               break;
+
+       case L_XTND:
+               if (error = VOP_GETATTR((struct vnode *)fp->f_data,
+                   &vattr, scp->sc_cred))
+                       RETURN (error);
+               fp->f_offset = uap->off + vattr.va_size;
+               break;
+
+       case L_SET:
+               fp->f_offset = uap->off;
+               break;
+
+       default:
+               RETURN (EINVAL);
+       }
+       scp->sc_offset = fp->f_offset;
+       RETURN (0);
+}
+
+/*
+ * Access system call
+ */
+saccess(scp)
+       register struct syscontext *scp;
+{
+       register struct a {
+               char    *fname;
+               int     fmode;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct nameidata *ndp = &scp->sc_nd;
+       register struct vnode *vp;
+       int error, mode, svuid, svgid;
+
+       svuid = scp->sc_uid;
+       svgid = scp->sc_gid;
+       scp->sc_uid = scp->sc_ruid;
+       scp->sc_gid = scp->sc_rgid;
+       ndp->ni_nameiop = LOOKUP | FOLLOW | LOCKLEAF;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->fname;
+       if (error = namei(ndp))
+               goto out1;
+       vp = ndp->ni_vp;
+       /*
+        * fmode == 0 means only check for exist
+        */
+       if (uap->fmode) {
+               mode = 0;
+               if (uap->fmode & R_OK)
+                       mode |= VREAD;
+               if (uap->fmode & W_OK)
+                       mode |= VWRITE;
+               if (uap->fmode & X_OK)
+                       mode |= VEXEC;
+               if ((error = vn_writechk(vp)) == 0)
+                       error = VOP_ACCESS(vp, mode, ndp->ni_cred);

        }
        }

-       if (i!=uap->fdes) {
-               if (u.u_ofile[i]!=NULL)
-                       closef(u.u_ofile[i]);
-               u.u_ofile[i] = fp;
-               fp->f_count++;
+       vput(vp);
+out1:
+       scp->sc_uid = svuid;
+       scp->sc_gid = svgid;
+       RETURN (error);
+}
+
+/*
+ * Stat system call.  This version follows links.
+ */
+stat(scp)
+       struct syscontext *scp;
+{
+
+       stat1(scp, FOLLOW);
+}
+
+/*
+ * Lstat system call.  This version does not follow links.
+ */
+lstat(scp)
+       struct syscontext *scp;
+{
+
+       stat1(scp, NOFOLLOW);
+}
+
+stat1(scp, follow)
+       register struct syscontext *scp;
+       int follow;
+{
+       register struct a {
+               char    *fname;
+               struct stat *ub;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct nameidata *ndp = &scp->sc_nd;
+       struct stat sb;
+       int error;
+
+       ndp->ni_nameiop = LOOKUP | LOCKLEAF | follow;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->fname;
+       if (error = namei(ndp))
+               RETURN (error);
+       error = vn_stat(ndp->ni_vp, &sb);
+       vput(ndp->ni_vp);
+       if (error)
+               RETURN (error);
+       error = copyout((caddr_t)&sb, (caddr_t)uap->ub, sizeof (sb));
+       RETURN (error);
+}
+
+/*
+ * Return target name of a symbolic link
+ */
+readlink(scp)
+       register struct syscontext *scp;
+{
+       register struct a {
+               char    *name;
+               char    *buf;
+               int     count;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct nameidata *ndp = &scp->sc_nd;
+       register struct vnode *vp;
+       struct iovec aiov;
+       struct uio auio;
+       int error;
+
+       ndp->ni_nameiop = LOOKUP | LOCKLEAF;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->name;
+       if (error = namei(ndp))
+               RETURN (error);
+       vp = ndp->ni_vp;
+       if (vp->v_type != VLNK) {
+               error = EINVAL;
+               goto out;

        }
        }

+       aiov.iov_base = uap->buf;
+       aiov.iov_len = uap->count;
+       auio.uio_iov = &aiov;
+       auio.uio_iovcnt = 1;
+       auio.uio_offset = 0;
+       auio.uio_rw = UIO_READ;
+       auio.uio_segflg = UIO_USERSPACE;
+       auio.uio_resid = uap->count;
+       error = VOP_READLINK(vp, &auio, ndp->ni_cred);
+out:
+       vput(vp);
+       scp->sc_retval1 = uap->count - auio.uio_resid;
+       RETURN (error);

 }
 
 /*
 }
 
 /*

- * the mount system call.
+ * Change flags of a file given path name.

  */
  */

-smount() {
-       dev_t dev;
-       register struct inode *ip;
-       register struct mount *mp;
-       struct mount *smp;
-       register struct filsys *fp;
-       struct buf *bp;
+chflags(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               char    *fname;
+               int     flags;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct nameidata *ndp = &scp->sc_nd;
+       register struct vnode *vp;
+       struct vattr vattr;
+       int error;
+
+       ndp->ni_nameiop = LOOKUP | FOLLOW | LOCKLEAF;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->fname;
+       vattr_null(&vattr);
+       vattr.va_flags = uap->flags;
+       if (error = namei(ndp))
+               RETURN (error);
+       vp = ndp->ni_vp;
+       if (vp->v_mount->m_flag & M_RDONLY) {
+               error = EROFS;
+               goto out;
+       }
+       error = VOP_SETATTR(vp, &vattr, ndp->ni_cred);
+out:
+       vput(vp);
+       RETURN (error);
+}
+
+/*
+ * Change flags of a file given a file descriptor.
+ */
+fchflags(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               int     fd;
+               int     flags;
+       } *uap = (struct a *)scp->sc_ap;
+       struct vattr vattr;
+       struct vnode *vp;
+       struct file *fp;
+       int error;
+
+       if (error = getvnode(scp->sc_ofile, uap->fd, &fp))
+               RETURN (error);
+       vattr_null(&vattr);
+       vattr.va_flags = uap->flags;
+       vp = (struct vnode *)fp->f_data;
+       VOP_LOCK(vp);
+       if (vp->v_mount->m_flag & M_RDONLY) {
+               error = EROFS;
+               goto out;
+       }
+       error = VOP_SETATTR(vp, &vattr, fp->f_cred);
+out:
+       VOP_UNLOCK(vp);
+       RETURN (error);
+}
+
+/*
+ * Change mode of a file given path name.
+ */
+chmod(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               char    *fname;
+               int     fmode;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct nameidata *ndp = &scp->sc_nd;
+       register struct vnode *vp;
+       struct vattr vattr;
+       int error;
+
+       ndp->ni_nameiop = LOOKUP | FOLLOW | LOCKLEAF;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->fname;
+       vattr_null(&vattr);
+       vattr.va_mode = uap->fmode & 07777;
+       if (error = namei(ndp))
+               RETURN (error);
+       vp = ndp->ni_vp;
+       if (vp->v_mount->m_flag & M_RDONLY) {
+               error = EROFS;
+               goto out;
+       }
+       error = VOP_SETATTR(vp, &vattr, ndp->ni_cred);
+out:
+       vput(vp);
+       RETURN (error);
+}
+
+/*
+ * Change mode of a file given a file descriptor.
+ */
+fchmod(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               int     fd;
+               int     fmode;
+       } *uap = (struct a *)scp->sc_ap;
+       struct vattr vattr;
+       struct vnode *vp;
+       struct file *fp;
+       int error;
+
+       if (error = getvnode(scp->sc_ofile, uap->fd, &fp))
+               RETURN (error);
+       vattr_null(&vattr);
+       vattr.va_mode = uap->fmode & 07777;
+       vp = (struct vnode *)fp->f_data;
+       VOP_LOCK(vp);
+       if (vp->v_mount->m_flag & M_RDONLY) {
+               error = EROFS;
+               goto out;
+       }
+       error = VOP_SETATTR(vp, &vattr, fp->f_cred);
+out:
+       VOP_UNLOCK(vp);
+       RETURN (error);
+}
+
+/*
+ * Set ownership given a path name.
+ */
+chown(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               char    *fname;
+               int     uid;
+               int     gid;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct nameidata *ndp = &scp->sc_nd;
+       register struct vnode *vp;
+       struct vattr vattr;
+       int error;
+
+       ndp->ni_nameiop = LOOKUP | NOFOLLOW | LOCKLEAF;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->fname;
+       vattr_null(&vattr);
+       vattr.va_uid = uap->uid;
+       vattr.va_gid = uap->gid;
+       if (error = namei(ndp))
+               RETURN (error);
+       vp = ndp->ni_vp;
+       if (vp->v_mount->m_flag & M_RDONLY) {
+               error = EROFS;
+               goto out;
+       }
+       error = VOP_SETATTR(vp, &vattr, ndp->ni_cred);
+out:
+       vput(vp);
+       RETURN (error);
+}
+
+/*
+ * Set ownership given a file descriptor.
+ */
+fchown(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               int     fd;
+               int     uid;
+               int     gid;
+       } *uap = (struct a *)scp->sc_ap;
+       struct vattr vattr;
+       struct vnode *vp;
+       struct file *fp;
+       int error;
+
+       if (error = getvnode(scp->sc_ofile, uap->fd, &fp))
+               RETURN (error);
+       vattr_null(&vattr);
+       vattr.va_uid = uap->uid;
+       vattr.va_gid = uap->gid;
+       vp = (struct vnode *)fp->f_data;
+       VOP_LOCK(vp);
+       if (vp->v_mount->m_flag & M_RDONLY) {
+               error = EROFS;
+               goto out;
+       }
+       error = VOP_SETATTR(vp, &vattr, fp->f_cred);
+out:
+       VOP_UNLOCK(vp);
+       RETURN (error);
+}
+
+utimes(scp)
+       register struct syscontext *scp;
+{

        register struct a {
        register struct a {

-               char    *fspec;
-               char    *freg;
-               int     ronly;
-       } *uap;
-       register char *cp;
-
-       uap = (struct a *)u.u_ap;
-       dev = getmdev();
-       if(u.u_error)
-               return;
-       u.u_dirp = (caddr_t)uap->freg;
-       ip = namei(uchar, 0);
-       if(ip == NULL)
-               return;
-       if(ip->i_count!=1 || (ip->i_mode&(IFBLK&IFCHR))!=0)
+               char    *fname;
+               struct  timeval *tptr;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct nameidata *ndp = &scp->sc_nd;
+       register struct vnode *vp;
+       struct timeval tv[2];
+       struct vattr vattr;
+       int error;
+
+       if (error = copyin((caddr_t)uap->tptr, (caddr_t)tv, sizeof (tv)))
+               RETURN (error);
+       ndp->ni_nameiop = LOOKUP | FOLLOW | LOCKLEAF;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->fname;
+       vattr_null(&vattr);
+       vattr.va_atime = tv[0];
+       vattr.va_mtime = tv[1];
+       if (error = namei(ndp))
+               RETURN (error);
+       vp = ndp->ni_vp;
+       if (vp->v_mount->m_flag & M_RDONLY) {
+               error = EROFS;

                goto out;
                goto out;

-       smp = NULL;
-       for(mp = &mount[0]; mp < &mount[NMOUNT]; mp++) {
-               if(mp->m_bufp != NULL) {
-                       if(dev == mp->m_dev)
-                               goto out;
-               } else
-               if(smp == NULL)
-                       smp = mp;

        }
        }

-       mp = smp;
-       if(mp == NULL)
+       error = VOP_SETATTR(vp, &vattr, ndp->ni_cred);
+out:
+       vput(vp);
+       RETURN (error);
+}
+
+/*
+ * Truncate a file given its path name.
+ */
+truncate(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               char    *fname;
+               off_t   length;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct nameidata *ndp = &scp->sc_nd;
+       register struct vnode *vp;
+       struct vattr vattr;
+       int error;
+
+       ndp->ni_nameiop = LOOKUP | FOLLOW | LOCKLEAF;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->fname;
+       vattr_null(&vattr);
+       vattr.va_size = uap->length;
+       if (error = namei(ndp))
+               RETURN (error);
+       vp = ndp->ni_vp;
+       if (vp->v_type == VDIR) {
+               error = EISDIR;

                goto out;
                goto out;

-       (*bdevsw[major(dev)].d_open)(dev, !uap->ronly);
-       if(u.u_error)
+       }
+       if ((error = vn_writechk(vp)) ||
+           (error = VOP_ACCESS(vp, VWRITE, ndp->ni_cred)))
+               goto out;
+       error = VOP_SETATTR(vp, &vattr, ndp->ni_cred);
+out:
+       vput(vp);
+       RETURN (error);
+}
+
+/*
+ * Truncate a file given a file descriptor.
+ */
+ftruncate(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               int     fd;
+               off_t   length;
+       } *uap = (struct a *)scp->sc_ap;
+       struct vattr vattr;
+       struct vnode *vp;
+       struct file *fp;
+       int error;
+
+       if (error = getvnode(scp->sc_ofile, uap->fd, &fp))
+               RETURN (error);
+       if ((fp->f_flag & FWRITE) == 0)
+               RETURN (EINVAL);
+       vattr_null(&vattr);
+       vattr.va_size = uap->length;
+       vp = (struct vnode *)fp->f_data;
+       VOP_LOCK(vp);
+       if (vp->v_type == VDIR) {
+               error = EISDIR;

                goto out;
                goto out;

-       bp = bread(dev, SUPERB);
-       if(u.u_error) {
-               brelse(bp);
-               goto out1;

        }
        }

-       mp->m_inodp = ip;
-       mp->m_dev = dev;
-       bp->b_flags |= B_LOCKED;
-       mp->m_bufp = bp;
-       fp = bp->b_un.b_filsys;
-       fp->s_ilock = 0;
-       fp->s_flock = 0;
-       fp->s_ronly = uap->ronly & 1;
-       fp->s_nbehind = 0;
-       fp->s_lasti = 1;
-       u.u_dirp = uap->freg;
-       for (cp = fp->s_fsmnt; cp < &fp->s_fsmnt[sizeof (fp->s_fsmnt) - 1]; )
-               if ((*cp++ = uchar()) == 0)
-                       u.u_dirp--;             /* get 0 again */
-       *cp = 0;
-       brelse(bp);
-       ip->i_flag |= IMOUNT;
-       prele(ip);
-       return;
+       if (error = vn_writechk(vp))
+               goto out;
+       error = VOP_SETATTR(vp, &vattr, fp->f_cred);
+out:
+       VOP_UNLOCK(vp);
+       RETURN (error);
+}
+
+/*
+ * Synch an open file.
+ */
+fsync(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               int     fd;
+       } *uap = (struct a *)scp->sc_ap;
+       struct file *fp;
+       int error;
+
+       if (error = getvnode(scp->sc_ofile, uap->fd, &fp))
+               RETURN (error);
+       error = VOP_FSYNC((struct vnode *)fp->f_data, fp->f_flag, fp->f_cred);
+       RETURN (error);
+}

 
 

+/*
+ * Rename system call.
+ *
+ * Source and destination must either both be directories, or both
+ * not be directories.  If target is a directory, it must be empty.
+ */
+rename(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               char    *from;
+               char    *to;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct vnode *tvp, *fvp, *tdvp;
+       register struct nameidata *ndp = &scp->sc_nd;
+       struct nameidata tond;
+       int error;
+
+       ndp->ni_nameiop = DELETE | WANTPARENT;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->from;
+       if (error = namei(ndp))
+               RETURN (error);
+       fvp = ndp->ni_vp;
+       nddup(ndp, &tond);
+       tond.ni_nameiop = RENAME | LOCKPARENT | LOCKLEAF | NOCACHE;
+       tond.ni_segflg = UIO_USERSPACE;
+       tond.ni_dirp = uap->to;
+       error = namei(&tond);
+       tdvp = tond.ni_dvp;
+       tvp = tond.ni_vp;
+       if (tvp != NULL) {
+               if (fvp->v_type == VDIR && tvp->v_type != VDIR) {
+                       error = EISDIR;
+                       goto out;
+               } else if (fvp->v_type != VDIR && tvp->v_type == VDIR) {
+                       error = ENOTDIR;
+                       goto out;
+               }
+       }
+       if (error) {
+               VOP_ABORTOP(ndp);
+               goto out1;
+       }
+       if (fvp->v_mount != tdvp->v_mount) {
+               error = EXDEV;
+               goto out;
+       }
+       if (fvp == tdvp || fvp == tvp)
+               error = EINVAL;

 out:
 out:

-       u.u_error = EBUSY;
+       if (error) {
+               VOP_ABORTOP(&tond);
+               VOP_ABORTOP(ndp);
+       } else {
+               error = VOP_RENAME(ndp, &tond);
+       }

 out1:
 out1:

-       iput(ip);
+       ndrele(&tond);
+       RETURN (error);

 }
 
 /*
 }
 
 /*

- * the umount system call.
+ * Mkdir system call

  */
  */

-sumount()
+mkdir(scp)
+       register struct syscontext *scp;

 {
 {

-       dev_t dev;
-       register struct inode *ip;
-       register struct mount *mp;
-       struct buf *bp;
-       int stillopen, flag;
-       register struct a {
-               char    *fspec;
-       };
-
-       dev = getmdev();
-       if(u.u_error)
-               return;
-       xumount(dev);   /* remove unused sticky files from text table */
-       update();
-       for(mp = &mount[0]; mp < &mount[NMOUNT]; mp++)
-               if(mp->m_bufp != NULL && dev == mp->m_dev)
-                       goto found;
-       u.u_error = EINVAL;
-       return;
-
-found:
-       stillopen = 0;
-       for(ip = inode; ip < inodeNINODE; ip++)
-               if (ip->i_number != 0 && dev == ip->i_dev) {
-                       u.u_error = EBUSY;
-                       return;
-               } else if (ip->i_number != 0 && (ip->i_mode&IFMT) == IFBLK &&
-                   ip->i_un.i_rdev == dev)
-                       stillopen++;
-       ip = mp->m_inodp;
-       ip->i_flag &= ~IMOUNT;
-       plock(ip);
-       iput(ip);
-       if ((bp = getblk(dev, SUPERB)) != mp->m_bufp)
-               panic("umount");
-       bp->b_flags &= ~B_LOCKED;
-       flag = !bp->b_un.b_filsys->s_ronly;
-       mp->m_bufp = NULL;
-       brelse(bp);
-       mpurge(mp - &mount[0]);
-       if (!stillopen) {
-               (*bdevsw[major(dev)].d_close)(dev, flag);
-               binval(dev);
+       struct a {
+               char    *name;
+               int     dmode;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct nameidata *ndp = &scp->sc_nd;
+       register struct vnode *vp;
+       struct vattr vattr;
+       int error;
+
+       ndp->ni_nameiop = CREATE | LOCKPARENT;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->name;
+       if (error = namei(ndp))
+               RETURN (error);
+       vp = ndp->ni_vp;
+       if (vp != NULL) {
+               VOP_ABORTOP(ndp);
+               RETURN (EEXIST);
+       }
+       vattr_null(&vattr);
+       vattr.va_type = VDIR;
+       vattr.va_mode = (uap->dmode & 0777) &~ scp->sc_cmask;
+       error = VOP_MKDIR(ndp, &vattr);
+       if (!error)
+               vput(ndp->ni_vp);
+       RETURN (error);
+}
+
+/*
+ * Rmdir system call.
+ */
+rmdir(scp)
+       register struct syscontext *scp;
+{
+       struct a {
+               char    *name;
+       } *uap = (struct a *)scp->sc_ap;
+       register struct nameidata *ndp = &scp->sc_nd;
+       register struct vnode *vp;
+       int error;
+
+       ndp->ni_nameiop = DELETE | LOCKPARENT | LOCKLEAF;
+       ndp->ni_segflg = UIO_USERSPACE;
+       ndp->ni_dirp = uap->name;
+       if (error = namei(ndp))
+               RETURN (error);
+       vp = ndp->ni_vp;
+       if (vp->v_type != VDIR) {
+               error = ENOTDIR;
+               goto out;
+       }
+       /*
+        * No rmdir "." please.
+        */
+       if (ndp->ni_dvp == vp) {
+               error = EINVAL;
+               goto out;

        }
        }

+       /*
+        * Don't unlink a mounted file.
+        */
+       if (vp->v_flag & VROOT)
+               error = EBUSY;
+out:
+       if (error)
+               VOP_ABORTOP(ndp);
+       else
+               error = VOP_RMDIR(ndp);
+       RETURN (error);
+}
+
+/*
+ * Read a block of directory entries in a file system independent format
+ */
+getdirentries(scp)
+       register struct syscontext *scp;
+{
+       register struct a {
+               int     fd;
+               char    *buf;
+               unsigned count;
+               long    *basep;
+       } *uap = (struct a *)scp->sc_ap;
+       struct file *fp;
+       struct uio auio;
+       struct iovec aiov;
+       off_t off;
+       int error;
+
+       if (error = getvnode(scp->sc_ofile, uap->fd, &fp))
+               RETURN (error);
+       if ((fp->f_flag & FREAD) == 0)
+               RETURN (EBADF);
+       aiov.iov_base = uap->buf;
+       aiov.iov_len = uap->count;
+       auio.uio_iov = &aiov;
+       auio.uio_iovcnt = 1;
+       auio.uio_rw = UIO_READ;
+       auio.uio_segflg = UIO_USERSPACE;
+       auio.uio_resid = uap->count;
+       off = fp->f_offset;
+       if (error = VOP_READDIR((struct vnode *)fp->f_data, &auio,
+           &(fp->f_offset), fp->f_cred))
+               RETURN (error);
+       error = copyout((caddr_t)&off, (caddr_t)uap->basep,
+               sizeof(long));
+       scp->sc_retval1 = uap->count - auio.uio_resid;
+       RETURN (error);

 }
 
 /*
 }
 
 /*

- * Common code for mount and umount.
- * Check that the user's argument is a reasonable
- * thing on which to mount, and return the device number if so.
+ * mode mask for creation of files

  */
  */

-dev_t
-getmdev()
+umask(scp)
+       register struct syscontext *scp;
+{
+       register struct a {
+               int     mask;
+       } *uap = (struct a *)scp->sc_ap;
+
+       scp->sc_retval1 = scp->sc_cmask;
+       scp->sc_cmask = uap->mask & 07777;
+       RETURN (0);
+}
+
+getvnode(ofile, fdes, fpp)
+       struct file *ofile[];
+       struct file **fpp;
+       int fdes;

 {
 {

-       dev_t dev;
-       register struct inode *ip;
+       struct file *fp;

 
 

-       if (!suser())
-               return(NODEV);
-       ip = namei(uchar, 0);
-       if(ip == NULL)
-               return(NODEV);
-       if((ip->i_mode&IFMT) != IFBLK)
-               u.u_error = ENOTBLK;
-       dev = (dev_t)ip->i_un.i_rdev;
-       if(major(dev) >= nblkdev)
-               u.u_error = ENXIO;
-       iput(ip);
-       return(dev);
+       if ((unsigned)fdes >= NOFILE || (fp = ofile[fdes]) == NULL)
+               return (EBADF);
+       if (fp->f_type != DTYPE_VNODE)
+               return (EINVAL);
+       *fpp = fp;
+       return (0);

 }
 }