add utimes call; protection fixes galore
[unix-history] / usr / src / sys / ufs / ffs / ffs_vnops.c
index e185d2a..fa49715 100644 (file)
@@ -1,4 +1,4 @@
-/*     ffs_vnops.c     4.41    82/10/19        */
+/*     ffs_vnops.c     4.54    83/03/31        */
 
 #include "../h/param.h"
 #include "../h/systm.h"
 
 #include "../h/param.h"
 #include "../h/systm.h"
 #include "../h/uio.h"
 #include "../h/socket.h"
 #include "../h/socketvar.h"
 #include "../h/uio.h"
 #include "../h/socket.h"
 #include "../h/socketvar.h"
+#include "../h/nami.h"
 
 
+/*
+ * Change current working directory (``.'').
+ */
 chdir()
 {
 
        chdirec(&u.u_cdir);
 }
 
 chdir()
 {
 
        chdirec(&u.u_cdir);
 }
 
+/*
+ * Change notion of root (``/'') directory.
+ */
 chroot()
 {
 
 chroot()
 {
 
@@ -30,6 +37,9 @@ chroot()
                chdirec(&u.u_rdir);
 }
 
                chdirec(&u.u_rdir);
 }
 
+/*
+ * Common routine for chroot and chdir.
+ */
 chdirec(ipp)
        register struct inode **ipp;
 {
 chdirec(ipp)
        register struct inode **ipp;
 {
@@ -38,14 +48,14 @@ chdirec(ipp)
                char    *fname;
        };
 
                char    *fname;
        };
 
-       ip = namei(uchar, 0, 1);
-       if(ip == NULL)
+       ip = namei(uchar, LOOKUP, 1);
+       if (ip == NULL)
                return;
                return;
-       if((ip->i_mode&IFMT) != IFDIR) {
+       if ((ip->i_mode&IFMT) != IFDIR) {
                u.u_error = ENOTDIR;
                goto bad;
        }
                u.u_error = ENOTDIR;
                goto bad;
        }
-       if(access(ip, IEXEC))
+       if (access(ip, IEXEC))
                goto bad;
        iunlock(ip);
        if (*ipp)
                goto bad;
        iunlock(ip);
        if (*ipp)
@@ -68,23 +78,28 @@ open()
                int     flags;
                int     mode;
        } *uap;
                int     flags;
                int     mode;
        } *uap;
-       int checkpermissions = 1;
+       int checkpermissions = 1, flags;
 
        uap = (struct a *)u.u_ap;
 
        uap = (struct a *)u.u_ap;
-       if (uap->flags&FCREATE) {
-               ip = namei(uchar, 1, 1);
+       flags = uap->flags + 1;
+       if ((flags&FTRUNCATE) && (flags&FWRITE) == 0) {
+               u.u_error = EINVAL;
+               return;
+       }
+       if (flags&FCREATE) {
+               ip = namei(uchar, CREATE, 1);
                if (ip == NULL) {
                        if (u.u_error)
                                return;
                        ip = maknode(uap->mode&07777&(~ISVTX));
                        checkpermissions = 0;
                if (ip == NULL) {
                        if (u.u_error)
                                return;
                        ip = maknode(uap->mode&07777&(~ISVTX));
                        checkpermissions = 0;
-                       uap->flags &= ~FTRUNCATE;
+                       flags &= ~FTRUNCATE;
                }
        } else
                }
        } else
-               ip = namei(uchar, 0, 1);
+               ip = namei(uchar, LOOKUP, 1);
        if (ip == NULL)
                return;
        if (ip == NULL)
                return;
-       open1(ip, ++uap->flags, checkpermissions);
+       open1(ip, flags, checkpermissions);
 }
 
 #ifndef NOCOMPAT
 }
 
 #ifndef NOCOMPAT
@@ -100,7 +115,7 @@ ocreat()
        } *uap;
 
        uap = (struct a *)u.u_ap;
        } *uap;
 
        uap = (struct a *)u.u_ap;
-       ip = namei(uchar, 1, 1);
+       ip = namei(uchar, CREATE, 1);
        if (ip == NULL) {
                if (u.u_error)
                        return;
        if (ip == NULL) {
                if (u.u_error)
                        return;
@@ -109,7 +124,7 @@ ocreat()
                        return;
                open1(ip, FWRITE, 0);
        } else
                        return;
                open1(ip, FWRITE, 0);
        } else
-               open1(ip, FWRITE|FTRUNCATE, 0);
+               open1(ip, FWRITE|FTRUNCATE, 1);
 }
 #endif
 
 }
 #endif
 
@@ -145,7 +160,7 @@ open1(ip, mode, checkpermissions)
         * while doing so in case we block inside flocki.
         */
        flags = 0;
         * while doing so in case we block inside flocki.
         */
        flags = 0;
-       if (mode&(FRDLOCK|FWRLOCK)) {
+       if (mode&(FSHLOCK|FEXLOCK)) {
                iunlock(ip);
                flags = flocki(ip, 0, mode);
                ilock(ip);
                iunlock(ip);
                flags = flocki(ip, 0, mode);
                ilock(ip);
@@ -153,7 +168,7 @@ open1(ip, mode, checkpermissions)
                        goto bad;
        }
        if (mode&FTRUNCATE)
                        goto bad;
        }
        if (mode&FTRUNCATE)
-               itrunc(ip, 0);
+               itrunc(ip, (u_long)0);
        iunlock(ip);
        if ((fp = falloc()) == NULL)
                goto out;
        iunlock(ip);
        if ((fp = falloc()) == NULL)
                goto out;
@@ -189,7 +204,7 @@ mknod()
 
        uap = (struct a *)u.u_ap;
        if (suser()) {
 
        uap = (struct a *)u.u_ap;
        if (suser()) {
-               ip = namei(uchar, 1, 0);
+               ip = namei(uchar, CREATE, 0);
                if (ip != NULL) {
                        u.u_error = EEXIST;
                        goto out;
                if (ip != NULL) {
                        u.u_error = EEXIST;
                        goto out;
@@ -225,10 +240,10 @@ link()
        } *uap;
 
        uap = (struct a *)u.u_ap;
        } *uap;
 
        uap = (struct a *)u.u_ap;
-       ip = namei(uchar, 0, 1);    /* well, this routine is doomed anyhow */
+       ip = namei(uchar, LOOKUP, 1); /* well, this routine is doomed anyhow */
        if (ip == NULL)
                return;
        if (ip == NULL)
                return;
-       if ((ip->i_mode&IFMT)==IFDIR && !suser()) {
+       if ((ip->i_mode&IFMT) == IFDIR && !suser()) {
                iput(ip);
                return;
        }
                iput(ip);
                return;
        }
@@ -237,7 +252,7 @@ link()
        iupdat(ip, &time, &time, 1);
        iunlock(ip);
        u.u_dirp = (caddr_t)uap->linkname;
        iupdat(ip, &time, &time, 1);
        iunlock(ip);
        u.u_dirp = (caddr_t)uap->linkname;
-       xp = namei(uchar, 1, 0);
+       xp = namei(uchar, CREATE, 0);
        if (xp != NULL) {
                u.u_error = EEXIST;
                iput(xp);
        if (xp != NULL) {
                u.u_error = EEXIST;
                iput(xp);
@@ -250,7 +265,7 @@ link()
                u.u_error = EXDEV;
                goto out;
        }
                u.u_error = EXDEV;
                goto out;
        }
-       direnter(ip);
+       u.u_error = direnter(ip);
 out:
        if (u.u_error) {
                ip->i_nlink--;
 out:
        if (u.u_error) {
                ip->i_nlink--;
@@ -284,7 +299,7 @@ symlink()
                nc++;
        }
        u.u_dirp = uap->linkname;
                nc++;
        }
        u.u_dirp = uap->linkname;
-       ip = namei(uchar, 1, 0);
+       ip = namei(uchar, CREATE, 0);
        if (ip) {
                iput(ip);
                u.u_error = EEXIST;
        if (ip) {
                iput(ip);
                u.u_error = EEXIST;
@@ -296,6 +311,7 @@ symlink()
        if (ip == NULL)
                return;
        u.u_error = rdwri(UIO_WRITE, ip, uap->target, nc, 0, 0, (int *)0);
        if (ip == NULL)
                return;
        u.u_error = rdwri(UIO_WRITE, ip, uap->target, nc, 0, 0, (int *)0);
+       /* handle u.u_error != 0 */
        iput(ip);
 }
 
        iput(ip);
 }
 
@@ -306,34 +322,21 @@ symlink()
  */
 unlink()
 {
  */
 unlink()
 {
-       register struct inode *ip, *pp;
        struct a {
                char    *fname;
        };
        struct a {
                char    *fname;
        };
-       int unlinkingdot = 0;
+       register struct inode *ip, *dp;
 
 
-       pp = namei(uchar, 2, 0);
-       if (pp == NULL)
+       ip = namei(uchar, DELETE | LOCKPARENT, 0);
+       if (ip == NULL)
                return;
                return;
-
-       /*
-        * Check for unlink(".")
-        * to avoid hanging on the iget
-        */
-       if (pp->i_number == u.u_dent.d_ino) {
-               ip = pp;
-               ip->i_count++;
-               unlinkingdot++;
-       } else
-               ip = iget(pp->i_dev, pp->i_fs, u.u_dent.d_ino);
-       if(ip == NULL)
-               goto out1;
-       if((ip->i_mode&IFMT)==IFDIR && !suser())
+       dp = u.u_pdir;
+       if ((ip->i_mode&IFMT) == IFDIR && !suser())
                goto out;
        /*
         * Don't unlink a mounted file.
         */
                goto out;
        /*
         * Don't unlink a mounted file.
         */
-       if (ip->i_dev != pp->i_dev) {
+       if (ip->i_dev != dp->i_dev) {
                u.u_error = EBUSY;
                goto out;
        }
                u.u_error = EBUSY;
                goto out;
        }
@@ -344,12 +347,11 @@ unlink()
                ip->i_flag |= ICHG;
        }
 out:
                ip->i_flag |= ICHG;
        }
 out:
-       if (unlinkingdot)
+       if (dp == ip)
                irele(ip);
        else
                iput(ip);
                irele(ip);
        else
                iput(ip);
-out1:
-       iput(pp);
+       iput(dp);
 }
 
 /*
 }
 
 /*
@@ -397,13 +399,13 @@ saccess()
        svgid = u.u_gid;
        u.u_uid = u.u_ruid;
        u.u_gid = u.u_rgid;
        svgid = u.u_gid;
        u.u_uid = u.u_ruid;
        u.u_gid = u.u_rgid;
-       ip = namei(uchar, 0, 1);
+       ip = namei(uchar, LOOKUP, 1);
        if (ip != NULL) {
        if (ip != NULL) {
-               if (uap->fmode&FACCESS_READ && access(ip, IREAD))
+               if ((uap->fmode&FACCESS_READ) && access(ip, IREAD))
                        goto done;
                        goto done;
-               if (uap->fmode&FACCESS_WRITE && access(ip, IWRITE))
+               if ((uap->fmode&FACCESS_WRITE) && access(ip, IWRITE))
                        goto done;
                        goto done;
-               if (uap->fmode&FACCESS_EXECUTE && access(ip, IEXEC))
+               if ((uap->fmode&FACCESS_EXECUTE) && access(ip, IEXEC))
                        goto done;
 done:
                iput(ip);
                        goto done;
 done:
                iput(ip);
@@ -445,7 +447,7 @@ stat()
        } *uap;
 
        uap = (struct a *)u.u_ap;
        } *uap;
 
        uap = (struct a *)u.u_ap;
-       ip = namei(uchar, 0, 1);
+       ip = namei(uchar, LOOKUP, 1);
        if (ip == NULL)
                return;
        stat1(ip, uap->sb);
        if (ip == NULL)
                return;
        stat1(ip, uap->sb);
@@ -464,7 +466,7 @@ lstat()
        } *uap;
 
        uap = (struct a *)u.u_ap;
        } *uap;
 
        uap = (struct a *)u.u_ap;
-       ip = namei(uchar, 0, 0);
+       ip = namei(uchar, LOOKUP, 0);
        if (ip == NULL)
                return;
        stat1(ip, uap->sb);
        if (ip == NULL)
                return;
        stat1(ip, uap->sb);
@@ -494,8 +496,11 @@ stat1(ip, ub)
        ds.st_rdev = (dev_t)ip->i_rdev;
        ds.st_size = ip->i_size;
        ds.st_atime = ip->i_atime;
        ds.st_rdev = (dev_t)ip->i_rdev;
        ds.st_size = ip->i_size;
        ds.st_atime = ip->i_atime;
+       ds.st_spare1 = 0;
        ds.st_mtime = ip->i_mtime;
        ds.st_mtime = ip->i_mtime;
+       ds.st_spare2 = 0;
        ds.st_ctime = ip->i_ctime;
        ds.st_ctime = ip->i_ctime;
+       ds.st_spare3 = 0;
        /* this doesn't belong here */
        if ((ip->i_mode&IFMT) == IFBLK)
                ds.st_blksize = BLKDEV_IOSIZE;
        /* this doesn't belong here */
        if ((ip->i_mode&IFMT) == IFBLK)
                ds.st_blksize = BLKDEV_IOSIZE;
@@ -503,8 +508,8 @@ stat1(ip, ub)
                ds.st_blksize = MAXBSIZE;
        else
                ds.st_blksize = ip->i_fs->fs_bsize;
                ds.st_blksize = MAXBSIZE;
        else
                ds.st_blksize = ip->i_fs->fs_bsize;
-       if (copyout((caddr_t)&ds, (caddr_t)ub, sizeof(ds)) < 0)
-               u.u_error = EFAULT;
+       ds.st_spare4[0] = ds.st_spare4[1] = ds.st_spare4[2] = 0;
+       u.u_error = copyout((caddr_t)&ds, (caddr_t)ub, sizeof(ds));
 }
 
 /*
 }
 
 /*
@@ -520,7 +525,7 @@ readlink()
        } *uap = (struct a *)u.u_ap;
        int resid;
 
        } *uap = (struct a *)u.u_ap;
        int resid;
 
-       ip = namei(uchar, 0, 0);
+       ip = namei(uchar, LOOKUP, 0);
        if (ip == NULL)
                return;
        if ((ip->i_mode&IFMT) != IFLNK) {
        if (ip == NULL)
                return;
        if ((ip->i_mode&IFMT) != IFLNK) {
@@ -533,6 +538,9 @@ out:
        u.u_r.r_val1 = uap->count - resid;
 }
 
        u.u_r.r_val1 = uap->count - resid;
 }
 
+/*
+ * Change mode of a file given path name.
+ */
 chmod()
 {
        struct inode *ip;
 chmod()
 {
        struct inode *ip;
@@ -545,8 +553,12 @@ chmod()
        if ((ip = owner(1)) == NULL)
                return;
        chmod1(ip, uap->fmode);
        if ((ip = owner(1)) == NULL)
                return;
        chmod1(ip, uap->fmode);
+       iput(ip);
 }
 
 }
 
+/*
+ * Change mode of a file given a file descriptor.
+ */
 fchmod()
 {
        struct a {
 fchmod()
 {
        struct a {
@@ -565,14 +577,17 @@ fchmod()
                return;
        }
        ip = fp->f_inode;
                return;
        }
        ip = fp->f_inode;
-       ilock(ip);
-       if (u.u_uid != ip->i_uid && !suser()) {
-               iunlock(ip);
+       if (u.u_uid != ip->i_uid && !suser())
                return;
                return;
-       }
+       ilock(ip);
        chmod1(ip, uap->fmode);
        chmod1(ip, uap->fmode);
+       iunlock(ip);
 }
 
 }
 
+/*
+ * Change the mode on a file.
+ * Inode must be locked before calling.
+ */
 chmod1(ip, mode)
        register struct inode *ip;
        register int mode;
 chmod1(ip, mode)
        register struct inode *ip;
        register int mode;
@@ -582,14 +597,10 @@ chmod1(ip, mode)
        ip->i_mode &= ~07777;
        if (u.u_uid) {
                mode &= ~ISVTX;
        ip->i_mode &= ~07777;
        if (u.u_uid) {
                mode &= ~ISVTX;
-               for (gp = u.u_groups; gp < &u.u_groups[NGROUPS]; gp++)
-                       if (*gp == ip->i_gid)
-                               goto ok;
-               mode &= ~ISGID;
-ok:
-               ;
+               if (!groupmember(ip->i_gid))
+                       mode &= ~ISGID;
 #ifdef MUSH
 #ifdef MUSH
-               if (u.u_quota->q_syflags & QF_UMASK && u.u_uid != 0 &&
+               if (u.u_quota->q_syflags & QF_UMASK && 
                    (ip->i_mode & IFMT) != IFCHR)
                        mode &= ~u.u_cmask;
 #endif
                    (ip->i_mode & IFMT) != IFCHR)
                        mode &= ~u.u_cmask;
 #endif
@@ -598,9 +609,11 @@ ok:
        ip->i_flag |= ICHG;
        if (ip->i_flag&ITEXT && (ip->i_mode&ISVTX)==0)
                xrele(ip);
        ip->i_flag |= ICHG;
        if (ip->i_flag&ITEXT && (ip->i_mode&ISVTX)==0)
                xrele(ip);
-       iput(ip);
 }
 
 }
 
+/*
+ * Set ownership given a path name.
+ */
 chown()
 {
        struct inode *ip;
 chown()
 {
        struct inode *ip;
@@ -611,11 +624,15 @@ chown()
        } *uap;
 
        uap = (struct a *)u.u_ap;
        } *uap;
 
        uap = (struct a *)u.u_ap;
-       if (!suser() || (ip = owner(0)) == NULL)
+       if ((ip = owner(0)) == NULL)
                return;
                return;
-       chown1(ip, uap->uid, uap->gid);
+       u.u_error = chown1(ip, uap->uid, uap->gid);
+       iput(ip);
 }
 
 }
 
+/*
+ * Set ownership given a file descriptor.
+ */
 fchown()
 {
        struct a {
 fchown()
 {
        struct a {
@@ -635,12 +652,11 @@ fchown()
                return;
        }
        ip = fp->f_inode;
                return;
        }
        ip = fp->f_inode;
-       ilock(ip);
-       if (!suser()) {
-               iunlock(ip);
+       if (ip->i_uid != u.u_uid && !suser())
                return;
                return;
-       }
-       chown1(ip, uap->uid, uap->gid);
+       ilock(ip);
+       u.u_error = chown1(ip, uap->uid, uap->gid);
+       iunlock(ip);
 }
 
 /*
 }
 
 /*
@@ -653,7 +669,15 @@ chown1(ip, uid, gid)
 {
 #ifdef QUOTA
        register long change;
 {
 #ifdef QUOTA
        register long change;
+#endif
 
 
+       if (uid == -1)
+               uid = ip->i_uid;
+       if (gid == -1)
+               gid = ip->i_gid;
+       if (u.u_uid && ip->i_gid != gid && !groupmember(gid))
+               return (EPERM);
+#ifdef QUOTA
        /*
         * This doesn't allow for holes in files (which hopefully don't
         * happen often in files that we chown), and is not accurate anyway
        /*
         * This doesn't allow for holes in files (which hopefully don't
         * happen often in files that we chown), and is not accurate anyway
@@ -678,29 +702,25 @@ chown1(ip, uid, gid)
                        change = fragroundup(fs, ip->i_size);
                change /= DEV_BSIZE;
        }
                        change = fragroundup(fs, ip->i_size);
                change /= DEV_BSIZE;
        }
-       chkdq(ip, -change, 1);
-       chkiq(ip->i_dev, ip, ip->i_uid, 1);
+       (void)chkdq(ip, -change, 1);
+       (void)chkiq(ip->i_dev, ip, ip->i_uid, 1);
        dqrele(ip->i_dquot);
 #endif
        dqrele(ip->i_dquot);
 #endif
-       /*
-        * keep uid/gid's in sane range -- no err,
-        * so chown(file, uid, -1) will do something useful
-        */
-       if (uid >= 0 && uid <= 32767)   /* should have a constant */
-               ip->i_uid = uid;
-       if (gid >= 0 && gid <= 32767)   /* same here */
-               ip->i_gid = gid;
+       ip->i_uid = uid;
+       ip->i_gid = gid;
        ip->i_flag |= ICHG;
        if (u.u_ruid != 0)
                ip->i_mode &= ~(ISUID|ISGID);
 #ifdef QUOTA
        ip->i_dquot = inoquota(ip);
        ip->i_flag |= ICHG;
        if (u.u_ruid != 0)
                ip->i_mode &= ~(ISUID|ISGID);
 #ifdef QUOTA
        ip->i_dquot = inoquota(ip);
-       chkdq(ip, change, 1);
-       chkiq(ip->i_dev, NULL, uid, 1);
+       (void)chkdq(ip, change, 1);
+       (void)chkiq(ip->i_dev, (struct inode *)NULL, uid, 1);
+       return (u.u_error);
 #endif
 #endif
-       iput(ip);
+       return (0);
 }
 
 }
 
+#ifndef NOCOMPAT
 /*
  * Set IUPD and IACC times on file.
  * Can't set ICHG.
 /*
  * Set IUPD and IACC times on file.
  * Can't set ICHG.
@@ -710,17 +730,15 @@ outime()
        register struct a {
                char    *fname;
                time_t  *tptr;
        register struct a {
                char    *fname;
                time_t  *tptr;
-       } *uap;
+       } *uap = (struct a *)u.u_ap;
        register struct inode *ip;
        time_t tv[2];
        struct timeval tv0, tv1;
 
        register struct inode *ip;
        time_t tv[2];
        struct timeval tv0, tv1;
 
-       uap = (struct a *)u.u_ap;
        if ((ip = owner(1)) == NULL)
                return;
        if ((ip = owner(1)) == NULL)
                return;
-       if (copyin((caddr_t)uap->tptr, (caddr_t)tv, sizeof(tv))) {
-               u.u_error = EFAULT;
-       } else {
+       u.u_error = copyin((caddr_t)uap->tptr, (caddr_t)tv, sizeof (tv));
+       if (u.u_error == 0) {
                ip->i_flag |= IACC|IUPD|ICHG;
                tv0.tv_sec = tv[0]; tv0.tv_usec = 0;
                tv1.tv_sec = tv[1]; tv1.tv_usec = 0;
                ip->i_flag |= IACC|IUPD|ICHG;
                tv0.tv_sec = tv[0]; tv0.tv_usec = 0;
                tv1.tv_sec = tv[1]; tv1.tv_usec = 0;
@@ -728,13 +746,39 @@ outime()
        }
        iput(ip);
 }
        }
        iput(ip);
 }
+#endif
+
+utimes()
+{
+       register struct a {
+               char    *fname;
+               struct  timeval *tptr;
+       } *uap = (struct a *)u.u_ap;
+       register struct inode *ip;
+       struct timeval tv[2];
+
+       if ((ip = owner(1)) == NULL)
+               return;
+       u.u_error = copyin((caddr_t)uap->tptr, (caddr_t)tv, sizeof (tv));
+       if (u.u_error == 0) {
+               ip->i_flag |= IACC|IUPD|ICHG;
+               iupdat(ip, &tv[0], &tv[1], 0);
+       }
+       iput(ip);
+}
 
 
+/*
+ * Flush any pending I/O.
+ */
 sync()
 {
 
        update();
 }
 
 sync()
 {
 
        update();
 }
 
+/*
+ * Apply an advisory lock on a file descriptor.
+ */
 flock()
 {
        struct a {
 flock()
 {
        struct a {
@@ -753,35 +797,38 @@ flock()
                return;
        }
        cmd = uap->how;
                return;
        }
        cmd = uap->how;
-       flags = u.u_pofile[uap->fd] & (RDLOCK|WRLOCK);
+       flags = u.u_pofile[uap->fd] & (UF_SHLOCK|UF_EXLOCK);
        if (cmd&FUNLOCK) {
                if (flags == 0) {
                        u.u_error = EINVAL;
                        return;
                }
                funlocki(fp->f_inode, flags);
        if (cmd&FUNLOCK) {
                if (flags == 0) {
                        u.u_error = EINVAL;
                        return;
                }
                funlocki(fp->f_inode, flags);
-               u.u_pofile[uap->fd] &= ~(RDLOCK|WRLOCK);
+               u.u_pofile[uap->fd] &= ~(UF_SHLOCK|UF_EXLOCK);
                return;
        }
        /*
         * No reason to write lock a file we've already
         * write locked, similarly with a read lock.
         */
                return;
        }
        /*
         * No reason to write lock a file we've already
         * write locked, similarly with a read lock.
         */
-       if ((flags&WRLOCK) && (cmd&FWRLOCK) ||
-           (flags&RDLOCK) && (cmd&FRDLOCK))
+       if ((flags&UF_EXLOCK) && (cmd&FEXLOCK) ||
+           (flags&UF_SHLOCK) && (cmd&FSHLOCK))
                return;
        u.u_pofile[uap->fd] = flocki(fp->f_inode, u.u_pofile[uap->fd], cmd);
 }
 
                return;
        u.u_pofile[uap->fd] = flocki(fp->f_inode, u.u_pofile[uap->fd], cmd);
 }
 
+/*
+ * Truncate a file given its path name.
+ */
 truncate()
 {
        struct a {
                char    *fname;
 truncate()
 {
        struct a {
                char    *fname;
-               int     length;
+               u_long  length;
        } *uap = (struct a *)u.u_ap;
        struct inode *ip;
 
        } *uap = (struct a *)u.u_ap;
        struct inode *ip;
 
-       ip = namei(uchar, 0, 1);
+       ip = namei(uchar, LOOKUP, 1);
        if (ip == NULL)
                return;
        if (access(ip, IWRITE))
        if (ip == NULL)
                return;
        if (access(ip, IWRITE))
@@ -791,16 +838,18 @@ truncate()
                goto bad;
        }
        itrunc(ip, uap->length);
                goto bad;
        }
        itrunc(ip, uap->length);
-       return;
 bad:
        iput(ip);
 }
 
 bad:
        iput(ip);
 }
 
+/*
+ * Truncate a file given a file descriptor.
+ */
 ftruncate()
 {
        struct a {
                int     fd;
 ftruncate()
 {
        struct a {
                int     fd;
-               int     length;
+               u_long  length;
        } *uap = (struct a *)u.u_ap;
        struct inode *ip;
        struct file *fp;
        } *uap = (struct a *)u.u_ap;
        struct inode *ip;
        struct file *fp;
@@ -819,17 +868,306 @@ ftruncate()
        ip = fp->f_inode;
        ilock(ip);
        itrunc(ip, uap->length);
        ip = fp->f_inode;
        ilock(ip);
        itrunc(ip, uap->length);
+       iunlock(ip);
+}
+
+/*
+ * Synch an open file.
+ */
+fsync()
+{
+       struct a {
+               int     fd;
+       } *uap = (struct a *)u.u_ap;
+       struct inode *ip;
+       struct file *fp;
+
+       fp = getf(uap->fd);
+       if (fp == NULL)
+               return;
+       if (fp->f_type == DTYPE_SOCKET) {
+               u.u_error = EINVAL;
+               return;
+       }
+       ip = fp->f_inode;
+       ilock(ip);
+       syncip(ip);
+       iunlock(ip);
 }
 
 }
 
+/*
+ * Rename system call.
+ *     rename("foo", "bar");
+ * is essentially
+ *     unlink("bar");
+ *     link("foo", "bar");
+ *     unlink("foo");
+ * but ``atomically''.  Can't do full commit without saving state in the
+ * inode on disk which isn't feasible at this time.  Best we can do is
+ * always guarantee the target exists.
+ *
+ * Basic algorithm is:
+ *
+ * 1) Bump link count on source while we're linking it to the
+ *    target.  This also insure the inode won't be deleted out
+ *    from underneath us while we work.
+ * 2) Link source to destination.  If destination already exists,
+ *    delete it first.
+ * 3) Unlink source reference to inode if still around.
+ * 4) If a directory was moved and the parent of the destination
+ *    is different from the source, patch the ".." entry in the
+ *    directory.
+ *
+ * Source and destination must either both be directories, or both
+ * not be directories.  If target is a directory, it must be empty.
+ */
 rename()
 {
 rename()
 {
-#ifdef notdef
        struct a {
                char    *from;
                char    *to;
        } *uap;
        struct a {
                char    *from;
                char    *to;
        } *uap;
-#endif
+       register struct inode *ip, *xp, *dp;
+       int oldparent, parentdifferent, doingdirectory;
+       int error = 0;
+
+       uap = (struct a *)u.u_ap;
+       ip = namei(uchar, DELETE | LOCKPARENT, 0);
+       if (ip == NULL)
+               return;
+       dp = u.u_pdir;
+       oldparent = 0, doingdirectory = 0;
+       if ((ip->i_mode&IFMT) == IFDIR) {
+               register struct direct *d;
+
+               d = &u.u_dent;
+               /*
+                * Avoid ".", "..", and aliases of "." for obvious reasons.
+                */
+               if ((d->d_namlen == 1 && d->d_name[0] == '.') ||
+                   (d->d_namlen == 2 && bcmp(d->d_name, "..", 2) == 0) ||
+                   (dp == ip)) {
+                       iput(dp);
+                       if (dp == ip)
+                               irele(ip);
+                       else
+                               iput(ip);
+                       u.u_error = EINVAL;
+                       return;
+               }
+               oldparent = dp->i_number;
+               doingdirectory++;
+       }
+       iput(dp);
+
+       /*
+        * 1) Bump link count while we're moving stuff
+        *    around.  If we crash somewhere before
+        *    completing our work, the link count
+        *    may be wrong, but correctable.
+        */
+       ip->i_nlink++;
+       ip->i_flag |= ICHG;
+       iupdat(ip, &time, &time, 1);
+       iunlock(ip);
+
+       /*
+        * When the target exists, both the directory
+        * and target inodes are returned locked.
+        */
+       u.u_dirp = (caddr_t)uap->to;
+       xp = namei(uchar, CREATE | LOCKPARENT, 0);
+       if (u.u_error) {
+               error = u.u_error;
+               goto out;
+       }
+       dp = u.u_pdir;
+       /*
+        * If ".." must be changed (ie the directory gets a new
+        * parent) then the user must have write permission.
+        */
+       parentdifferent = oldparent != dp->i_number;
+       if (doingdirectory && parentdifferent && access(ip, IWRITE))
+               goto bad;
+       /*
+        * 2) If target doesn't exist, link the target
+        *    to the source and unlink the source. 
+        *    Otherwise, rewrite the target directory
+        *    entry to reference the source inode and
+        *    expunge the original entry's existence.
+        */
+       if (xp == NULL) {
+               if (dp->i_dev != ip->i_dev) {
+                       error = EXDEV;
+                       goto bad;
+               }
+               /*
+                * Disallow rename(foo, foo/bar).
+                */
+               if (dp->i_number == ip->i_number) {
+                       error = EEXIST;
+                       goto bad;
+               }
+               /*
+                * Account for ".." in directory.
+                * When source and destination have the
+                * same parent we don't fool with the
+                * link count -- this isn't required
+                * because we do a similar check below.
+                */
+               if (doingdirectory && parentdifferent) {
+                       dp->i_nlink++;
+                       dp->i_flag |= ICHG;
+                       iupdat(dp, &time, &time, 1);
+               }
+               error = direnter(ip);
+               if (error)
+                       goto out;
+       } else {
+               if (xp->i_dev != dp->i_dev || xp->i_dev != ip->i_dev) {
+                       error = EXDEV;
+                       goto bad;
+               }
+               /*
+                * Short circuit rename(foo, foo).
+                */
+               if (xp->i_number == ip->i_number)
+                       goto bad;
+               /*
+                * Target must be empty if a directory
+                * and have no links to it.
+                * Also, insure source and target are
+                * compatible (both directories, or both
+                * not directories).
+                */
+               if ((xp->i_mode&IFMT) == IFDIR) {
+                       if (!dirempty(xp) || xp->i_nlink > 2) {
+                               error = ENOTEMPTY;
+                               goto bad;
+                       }
+                       if (!doingdirectory) {
+                               error = ENOTDIR;
+                               goto bad;
+                       }
+               } else if (doingdirectory) {
+                       error = EISDIR;
+                       goto bad;
+               }
+               dirrewrite(dp, ip);
+               if (u.u_error) {
+                       error = u.u_error;
+                       goto bad1;
+               }
+               /*
+                * Adjust the link count of the target to
+                * reflect the dirrewrite above.  If this is
+                * a directory it is empty and there are
+                * no links to it, so we can squash the inode and
+                * any space associated with it.  We disallowed
+                * renaming over top of a directory with links to
+                * it above, as we've no way to determine if
+                * we've got a link or the directory itself, and
+                * if we get a link, then ".." will be screwed up.
+                */
+               xp->i_nlink--;
+               if (doingdirectory) {
+                       if (--xp->i_nlink != 0)
+                               panic("rename: linked directory");
+                       itrunc(xp, (u_long)0);
+               }
+               xp->i_flag |= ICHG;
+               iput(xp);
+               xp = NULL;
+       }
 
 
+       /*
+        * 3) Unlink the source.
+        */
+       u.u_dirp = uap->from;
+       dp = namei(uchar, DELETE, 0);
+       /*
+        * Insure directory entry still exists and
+        * has not changed since the start of all
+        * this.  If either has occured, forget about
+        * about deleting the original entry and just
+        * adjust the link count in the inode.
+        */
+       if (dp == NULL || u.u_dent.d_ino != ip->i_number) {
+               ip->i_nlink--;
+               ip->i_flag |= ICHG;
+       } else {
+               /*
+                * If source is a directory, must adjust
+                * link count of parent directory also.
+                * If target didn't exist and source and
+                * target have the same parent, then we
+                * needn't touch the link count, it all
+                * balances out in the end.  Otherwise, we
+                * must do so to reflect deletion of ".."
+                * done above.
+                */
+               if (doingdirectory && (xp != NULL || parentdifferent)) {
+                       dp->i_nlink--;
+                       dp->i_flag |= ICHG;
+               }
+               if (dirremove()) {
+                       ip->i_nlink--;
+                       ip->i_flag |= ICHG;
+               }
+               if (error == 0)         /* conservative */
+                       error = u.u_error;
+       }
+       irele(ip);
+       if (dp)
+               iput(dp);
+
+       /*
+        * 4) Renaming a directory with the parent
+        *    different requires ".." to be rewritten.
+        *    The window is still there for ".." to
+        *    be inconsistent, but this is unavoidable,
+        *    and a lot shorter than when it was done
+        *    in a user process.
+        */
+       if (doingdirectory && parentdifferent && error == 0) {
+               struct dirtemplate dirbuf;
+
+               u.u_dirp = uap->to;
+               ip = namei(uchar, LOOKUP | LOCKPARENT, 0);
+               if (ip == NULL) {
+                       printf("rename: .. went away\n");
+                       return;
+               }
+               dp = u.u_pdir;
+               if ((ip->i_mode&IFMT) != IFDIR) {
+                       printf("rename: .. not a directory\n");
+                       goto stuck;
+               }
+               error = rdwri(UIO_READ, ip, (caddr_t)&dirbuf,
+                       sizeof (struct dirtemplate), (off_t)0, 1, (int *)0);
+               if (error == 0) {
+                       dirbuf.dotdot_ino = dp->i_number;
+                       (void) rdwri(UIO_WRITE, ip, (caddr_t)&dirbuf,
+                         sizeof (struct dirtemplate), (off_t)0, 1, (int *)0);
+               }
+stuck:
+               irele(dp);
+               iput(ip);
+       }
+       goto done;
+
+bad:
+       iput(dp);
+bad1:
+       if (xp)
+               iput(xp);
+out:
+       ip->i_nlink--;
+       ip->i_flag |= ICHG;
+       irele(ip);
+done:
+       if (error)
+               u.u_error = error;
 }
 
 /*
 }
 
 /*
@@ -862,6 +1200,8 @@ maknode(mode)
        ip->i_nlink = 1;
        ip->i_uid = u.u_uid;
        ip->i_gid = u.u_pdir->i_gid;
        ip->i_nlink = 1;
        ip->i_uid = u.u_uid;
        ip->i_gid = u.u_pdir->i_gid;
+       if (ip->i_mode & ISGID && !groupmember(ip->i_gid))
+               ip->i_mode &= ~ISGID;
 #ifdef QUOTA
        ip->i_dquot = inoquota(ip);
 #endif
 #ifdef QUOTA
        ip->i_dquot = inoquota(ip);
 #endif
@@ -870,11 +1210,11 @@ maknode(mode)
         * Make sure inode goes to disk before directory entry.
         */
        iupdat(ip, &time, &time, 1);
         * Make sure inode goes to disk before directory entry.
         */
        iupdat(ip, &time, &time, 1);
-       direnter(ip);
+       u.u_error = direnter(ip);
        if (u.u_error) {
                /*
        if (u.u_error) {
                /*
-                * write error occurred trying to update directory
-                * so must deallocate the inode
+                * Write error occurred trying to update directory
+                * so must deallocate the inode.
                 */
                ip->i_nlink = 0;
                ip->i_flag |= ICHG;
                 */
                ip->i_nlink = 0;
                ip->i_flag |= ICHG;