X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/32f555bf0f396f114033687e04d0e47c1d1457af..f3e6400f0c4441d0a3d6d165792f3faf4a020976:/usr/src/sys/ufs/ffs/ufs_vnops.c

diff --git a/usr/src/sys/ufs/ffs/ufs_vnops.c b/usr/src/sys/ufs/ffs/ufs_vnops.c
index 86deaa153f..580ac39438 100644
--- a/usr/src/sys/ufs/ffs/ufs_vnops.c
+++ b/usr/src/sys/ufs/ffs/ufs_vnops.c
@@ -1,147 +1,222 @@
-/*	ufs_vnops.c	4.20	82/03/16	*/
+/*	ufs_vnops.c	4.27	82/06/25	*/
 
 #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/inode.h"
+#include "../h/fs.h"
+#include "../h/buf.h"
+#include "../h/proc.h"
 #include "../h/inline.h"
-#include "../h/socket.h"
-#include "../h/socketvar.h"
 
-/*
- * the fstat system call.
- */
-fstat()
+chdir()
 {
-	register struct file *fp;
-	register struct a {
-		int	fdes;
-		struct stat *sb;
-	} *uap;
 
-	uap = (struct a *)u.u_ap;
-	fp = getf(uap->fdes);
-	if (fp == NULL)
+	chdirec(&u.u_cdir);
+}
+
+chroot()
+{
+
+	if (suser())
+		chdirec(&u.u_rdir);
+}
+
+chdirec(ipp)
+register struct inode **ipp;
+{
+	register struct inode *ip;
+	struct a {
+		char	*fname;
+	};
+
+	ip = namei(uchar, 0, 1);
+	if(ip == NULL)
 		return;
-	if (fp->f_flag & FSOCKET)
-		u.u_error = sostat(fp->f_socket, uap->sb);
-	else
-		stat1(fp->f_inode, uap->sb);
+	if((ip->i_mode&IFMT) != IFDIR) {
+		u.u_error = ENOTDIR;
+		goto bad;
+	}
+	if(access(ip, IEXEC))
+		goto bad;
+	iunlock(ip);
+	if (*ipp)
+		irele(*ipp);
+	*ipp = ip;
+	return;
+
+bad:
+	iput(ip);
 }
 
 /*
- * Stat system call.  This version does not follow links.
+ * Open system call.
  */
-stat()
+open()
 {
 	register struct inode *ip;
 	register struct a {
 		char	*fname;
-		struct stat *sb;
+		int	rwmode;
 	} *uap;
 
 	uap = (struct a *)u.u_ap;
-	ip = namei(uchar, 0, 0);
+	ip = namei(uchar, 0, 1);
 	if (ip == NULL)
 		return;
-	stat1(ip, uap->sb);
-	iput(ip);
+	open1(ip, ++uap->rwmode, 0);
 }
 
 /*
- * Lstat system call.  This version does follow links.
+ * Creat system call.
  */
-lstat()
+creat()
 {
 	register struct inode *ip;
 	register struct a {
 		char	*fname;
-		struct stat *sb;
+		int	fmode;
 	} *uap;
 
 	uap = (struct a *)u.u_ap;
-	ip = namei(uchar, 0, 1);
-	if (ip == NULL)
-		return;
-	stat1(ip, uap->sb);
-	iput(ip);
+	ip = namei(uchar, 1, 1);
+	if (ip == NULL) {
+		if (u.u_error)
+			return;
+		ip = maknode(uap->fmode&07777&(~ISVTX));
+		if (ip==NULL)
+			return;
+		open1(ip, FWRITE, 2);
+	} else
+		open1(ip, FWRITE, 1);
 }
 
 /*
- * The basic routine for fstat and stat:
- * get the inode and pass appropriate parts back.
+ * Common code for open and creat.
+ * Check permissions, allocate an open file structure,
+ * and call the device open routine if any.
  */
-stat1(ip, ub)
+open1(ip, mode, trf)
 	register struct inode *ip;
-	struct stat *ub;
+	register mode;
 {
-	register struct dinode *dp;
-	register struct buf *bp;
-	struct stat ds;
+	register struct file *fp;
+	int i;
 
-	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;
-	/*
-	 * next the dates in the disk
-	 */
-	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 (trf != 2) {
+		if (mode&FREAD)
+			(void) access(ip, IREAD);
+		if (mode&FWRITE) {
+			(void) access(ip, IWRITE);
+			if ((ip->i_mode&IFMT) == IFDIR)
+				u.u_error = EISDIR;
+		}
+	}
+	if (u.u_error) {
+		iput(ip);
+		return;
+	}
+	if (trf == 1)
+		itrunc(ip);
+	iunlock(ip);
+	if ((fp = falloc()) == NULL)
+		goto out;
+	fp->f_flag = mode&(FREAD|FWRITE);
+	i = u.u_r.r_val1;
+	fp->f_inode = ip;
+	openi(ip, mode&(FREAD|FWRITE));
+	if (u.u_error == 0)
+		return;
+	u.u_ofile[i] = NULL;
+	fp->f_count--;
+out:
+	irele(ip);
 }
 
 /*
- * Return target name of a symbolic link
+ * Mknod system call
  */
-readlink()
+mknod()
 {
 	register struct inode *ip;
 	register struct a {
-		char	*name;
-		char	*buf;
-		int	count;
+		char	*fname;
+		int	fmode;
+		int	dev;
 	} *uap;
 
-	ip = namei(uchar, 0, 0);
+	uap = (struct a *)u.u_ap;
+	if (suser()) {
+		ip = namei(uchar, 1, 0);
+		if (ip != NULL) {
+			u.u_error = EEXIST;
+			goto out;
+		}
+	}
+	if (u.u_error)
+		return;
+	ip = maknode(uap->fmode);
 	if (ip == NULL)
 		return;
-	if ((ip->i_mode&IFMT) != IFLNK) {
-		u.u_error = ENXIO;
-		goto out;
+	if (uap->dev) {
+		/*
+		 * Want to be able to use this to make badblock
+		 * inodes, so don't truncate the dev number.
+		 */
+		ip->i_rdev = uap->dev;
+		ip->i_flag |= IACC|IUPD|ICHG;
 	}
-	uap = (struct a *)u.u_ap;
-	u.u_offset = 0;
-	u.u_base = uap->buf;
-	u.u_count = uap->count;
-	u.u_segflg = 0;
-	readi(ip);
+
 out:
 	iput(ip);
-	u.u_r.r_val1 = uap->count - u.u_count;
+}
+
+/*
+ * link system call
+ */
+link()
+{
+	register struct inode *ip, *xp;
+	register struct a {
+		char	*target;
+		char	*linkname;
+	} *uap;
+
+	uap = (struct a *)u.u_ap;
+	ip = namei(uchar, 0, 1);    /* well, this routine is doomed anyhow */
+	if (ip == NULL)
+		return;
+	if ((ip->i_mode&IFMT)==IFDIR && !suser())
+		goto out1;
+	ip->i_nlink++;
+	ip->i_flag |= ICHG;
+	iupdat(ip, &time, &time, 1);
+	iunlock(ip);
+	u.u_dirp = (caddr_t)uap->linkname;
+	xp = namei(uchar, 1, 0);
+	if (xp != NULL) {
+		u.u_error = EEXIST;
+		iput(xp);
+		goto out;
+	}
+	if (u.u_error)
+		goto out;
+	if (u.u_pdir->i_dev != ip->i_dev) {
+		iput(u.u_pdir);
+		u.u_error = EXDEV;
+		goto out;
+	}
+	wdir(ip);
+out:
+	if (u.u_error) {
+		ip->i_nlink--;
+		ip->i_flag |= ICHG;
+	}
+out1:
+	irele(ip);
 }
 
 /*
@@ -189,190 +264,337 @@ symlink()
 }
 
 /*
- * the dup system call.
+ * Unlink system call.
+ * Hard to avoid races here, especially
+ * in unlinking directories.
+ */
+unlink()
+{
+	register struct inode *ip, *pp;
+	struct a {
+		char	*fname;
+	};
+	struct fs *fs;
+	struct buf *bp;
+	int lbn, bn, base;
+	int unlinkingdot = 0;
+
+	pp = namei(uchar, 2, 0);
+	if(pp == NULL)
+		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())
+		goto out;
+	/*
+	 * Don't unlink a mounted file.
+	 */
+	if (ip->i_dev != pp->i_dev) {
+		u.u_error = EBUSY;
+		goto out;
+	}
+	if (ip->i_flag&ITEXT)
+		xrele(ip);	/* try once to free text */
+/*
+	if ((ip->i_flag&ITEXT) && ip->i_nlink==1) {
+ 		u.u_error = ETXTBSY;
+		goto out;
+	}
+*/
+	if (u.u_count == 0) {
+		/*
+		 * first entry in block, so set d_ino to zero.
+		 */
+		u.u_base = (caddr_t)&u.u_dent;
+		u.u_count = DIRSIZ(&u.u_dent);
+		u.u_dent.d_ino = 0;
+		writei(pp);
+	} else {
+		/*
+		 * updating preceeding entry to skip over current entry.
+		 */
+		fs = pp->i_fs;
+		lbn = lblkno(fs, u.u_offset);
+		base = blkoff(fs, u.u_offset);
+		bn = fsbtodb(fs, bmap(pp, lbn, B_WRITE, base + u.u_count));
+		bp = bread(pp->i_dev, bn, blksize(fs, pp, lbn));
+		if (bp->b_flags & B_ERROR) {
+			brelse(bp);
+			goto out;
+		}
+		((struct direct *)(bp->b_un.b_addr + base))->d_reclen +=
+		    u.u_dent.d_reclen;
+		bwrite(bp);
+		pp->i_flag |= IUPD|ICHG;
+	}
+	ip->i_nlink--;
+	ip->i_flag |= ICHG;
+
+out:
+	if (unlinkingdot)
+		irele(ip);
+	else
+		iput(ip);
+out1:
+	iput(pp);
+}
+
+/*
+ * Seek system call
  */
-dup()
+seek()
 {
 	register struct file *fp;
 	register struct a {
 		int	fdes;
-		int	fdes2;
+		off_t	off;
+		int	sbase;
 	} *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;
-		}
-		u.u_r.r_val1 = i;
-	}
-	if (i != uap->fdes) {
-		if (u.u_ofile[i]!=NULL)
-			closef(u.u_ofile[i], 0);
-		if (u.u_error)
-			return;
-		u.u_ofile[i] = fp;
-		fp->f_count++;
+	if (fp->f_flag&FSOCKET) {
+		u.u_error = ESPIPE;
+		return;
 	}
+	if (uap->sbase == 1)
+		uap->off += fp->f_offset;
+	else if (uap->sbase == 2)
+		uap->off += fp->f_inode->i_size;
+	fp->f_offset = uap->off;
+	u.u_r.r_off = uap->off;
 }
 
 /*
- * Mount system call.
+ * Access system call
  */
-smount()
+saccess()
 {
-	dev_t dev;
+	register svuid, svgid;
 	register struct inode *ip;
-	register struct mount *mp;
-	struct mount *smp;
-	register struct filsys *fp;
-	struct buf *bp;
 	register struct a {
-		char	*fspec;
-		char	*freg;
-		int	ronly;
+		char	*fname;
+		int	fmode;
 	} *uap;
-	register char *cp;
 
 	uap = (struct a *)u.u_ap;
-	dev = getmdev();
-	if (u.u_error)
+	svuid = u.u_uid;
+	svgid = u.u_gid;
+	u.u_uid = u.u_ruid;
+	u.u_gid = u.u_rgid;
+	ip = namei(uchar, 0, 1);
+	if (ip != NULL) {
+		if (uap->fmode&(IREAD>>6))
+			(void) access(ip, IREAD);
+		if (uap->fmode&(IWRITE>>6))
+			(void) access(ip, IWRITE);
+		if (uap->fmode&(IEXEC>>6))
+			(void) access(ip, IEXEC);
+		iput(ip);
+	}
+	u.u_uid = svuid;
+	u.u_gid = svgid;
+}
+
+/*
+ * the fstat system call.
+ */
+fstat()
+{
+	register struct file *fp;
+	register struct a {
+		int	fdes;
+		struct stat *sb;
+	} *uap;
+
+	uap = (struct a *)u.u_ap;
+	fp = getf(uap->fdes);
+	if (fp == NULL)
 		return;
-	u.u_dirp = (caddr_t)uap->freg;
+	if (fp->f_flag & FSOCKET)
+		u.u_error = sostat(fp->f_socket, uap->sb);
+	else
+		stat1(fp->f_inode, uap->sb);
+}
+
+/*
+ * Stat system call.  This version follows links.
+ */
+stat()
+{
+	register struct inode *ip;
+	register struct a {
+		char	*fname;
+		struct stat *sb;
+	} *uap;
+
+	uap = (struct a *)u.u_ap;
 	ip = namei(uchar, 0, 1);
 	if (ip == NULL)
 		return;
-	if (ip->i_count!=1 || (ip->i_mode&IFMT) != IFDIR)
-		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)
-		goto out;
-	(*bdevsw[major(dev)].d_open)(dev, !uap->ronly);
-	if (u.u_error)
-		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;
-	irele(ip);
-	return;
-
-out:
-	u.u_error = EBUSY;
-out1:
+	stat1(ip, uap->sb);
 	iput(ip);
 }
 
 /*
- * the umount system call.
+ * Lstat system call.  This version does not follow links.
  */
-sumount()
+lstat()
 {
-	dev_t dev;
 	register struct inode *ip;
-	register struct mount *mp;
-	struct buf *bp;
-	int stillopen, flag;
 	register struct a {
-		char	*fspec;
-	};
+		char	*fname;
+		struct stat *sb;
+	} *uap;
 
-	dev = getmdev();
-	if (u.u_error)
+	uap = (struct a *)u.u_ap;
+	ip = namei(uchar, 0, 0);
+	if (ip == NULL)
 		return;
-	xumount(dev);	/* remove unused sticky files from text table */
-	update(0);
-	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;
-	ilock(ip);
+	stat1(ip, uap->sb);
 	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);
-	}
 }
 
 /*
- * 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.
+ * The basic routine for fstat and stat:
+ * get the inode and pass appropriate parts back.
+ */
+stat1(ip, ub)
+	register struct inode *ip;
+	struct stat *ub;
+{
+	struct stat ds;
+
+	IUPDAT(ip, &time, &time, 0);
+	/*
+	 * 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_rdev;
+	ds.st_size = ip->i_size;
+	ds.st_atime = ip->i_atime;
+	ds.st_mtime = ip->i_mtime;
+	ds.st_ctime = ip->i_ctime;
+	ds.st_blksize = ip->i_fs->fs_bsize;
+	if (copyout((caddr_t)&ds, (caddr_t)ub, sizeof(ds)) < 0)
+		u.u_error = EFAULT;
+}
+
+/*
+ * Return target name of a symbolic link
  */
-dev_t
-getmdev()
+readlink()
 {
-	dev_t dev;
 	register struct inode *ip;
+	register struct a {
+		char	*name;
+		char	*buf;
+		int	count;
+	} *uap;
 
-	if (!suser())
-		return(NODEV);
-	ip = namei(uchar, 0, 1);
+	ip = namei(uchar, 0, 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)
+		return;
+	if ((ip->i_mode&IFMT) != IFLNK) {
 		u.u_error = ENXIO;
+		goto out;
+	}
+	uap = (struct a *)u.u_ap;
+	u.u_offset = 0;
+	u.u_base = uap->buf;
+	u.u_count = uap->count;
+	u.u_segflg = 0;
+	readi(ip);
+out:
 	iput(ip);
-	return(dev);
+	u.u_r.r_val1 = uap->count - u.u_count;
+}
+
+chmod()
+{
+	register struct inode *ip;
+	register struct a {
+		char	*fname;
+		int	fmode;
+	} *uap;
+
+	uap = (struct a *)u.u_ap;
+	if ((ip = owner(1)) == NULL)
+		return;
+	ip->i_mode &= ~07777;
+	if (u.u_uid)
+		uap->fmode &= ~ISVTX;
+	ip->i_mode |= uap->fmode&07777;
+	ip->i_flag |= ICHG;
+	if (ip->i_flag&ITEXT && (ip->i_mode&ISVTX)==0)
+		xrele(ip);
+	iput(ip);
+}
+
+chown()
+{
+	register struct inode *ip;
+	register struct a {
+		char	*fname;
+		int	uid;
+		int	gid;
+	} *uap;
+
+	uap = (struct a *)u.u_ap;
+	if (!suser() || (ip = owner(0)) == NULL)
+		return;
+	ip->i_uid = uap->uid;
+	ip->i_gid = uap->gid;
+	ip->i_flag |= ICHG;
+	if (u.u_ruid != 0)
+		ip->i_mode &= ~(ISUID|ISGID);
+	iput(ip);
+}
+
+/*
+ * Set IUPD and IACC times on file.
+ * Can't set ICHG.
+ */
+utime()
+{
+	register struct a {
+		char	*fname;
+		time_t	*tptr;
+	} *uap;
+	register struct inode *ip;
+	time_t tv[2];
+
+	uap = (struct a *)u.u_ap;
+	if ((ip = owner(1)) == NULL)
+		return;
+	if (copyin((caddr_t)uap->tptr, (caddr_t)tv, sizeof(tv))) {
+		u.u_error = EFAULT;
+	} else {
+		ip->i_flag |= IACC|IUPD|ICHG;
+		iupdat(ip, &tv[0], &tv[1], 0);
+	}
+	iput(ip);
+}
+
+sync()
+{
+
+	update(0);
 }