Home | History | Annotate | Line # | Download | only in kern
vfs_syscalls.c revision 1.396
      1 /*	$NetBSD: vfs_syscalls.c,v 1.396 2009/07/02 12:53:47 pooka Exp $	*/
      2 
      3 /*-
      4  * Copyright (c) 2008, 2009 The NetBSD Foundation, Inc.
      5  * All rights reserved.
      6  *
      7  * This code is derived from software contributed to The NetBSD Foundation
      8  * by Andrew Doran.
      9  *
     10  * Redistribution and use in source and binary forms, with or without
     11  * modification, are permitted provided that the following conditions
     12  * are met:
     13  * 1. Redistributions of source code must retain the above copyright
     14  *    notice, this list of conditions and the following disclaimer.
     15  * 2. Redistributions in binary form must reproduce the above copyright
     16  *    notice, this list of conditions and the following disclaimer in the
     17  *    documentation and/or other materials provided with the distribution.
     18  *
     19  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     20  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     21  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     22  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     23  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     24  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     25  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     26  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     27  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     28  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     29  * POSSIBILITY OF SUCH DAMAGE.
     30  */
     31 
     32 /*
     33  * Copyright (c) 1989, 1993
     34  *	The Regents of the University of California.  All rights reserved.
     35  * (c) UNIX System Laboratories, Inc.
     36  * All or some portions of this file are derived from material licensed
     37  * to the University of California by American Telephone and Telegraph
     38  * Co. or Unix System Laboratories, Inc. and are reproduced herein with
     39  * the permission of UNIX System Laboratories, Inc.
     40  *
     41  * Redistribution and use in source and binary forms, with or without
     42  * modification, are permitted provided that the following conditions
     43  * are met:
     44  * 1. Redistributions of source code must retain the above copyright
     45  *    notice, this list of conditions and the following disclaimer.
     46  * 2. Redistributions in binary form must reproduce the above copyright
     47  *    notice, this list of conditions and the following disclaimer in the
     48  *    documentation and/or other materials provided with the distribution.
     49  * 3. Neither the name of the University nor the names of its contributors
     50  *    may be used to endorse or promote products derived from this software
     51  *    without specific prior written permission.
     52  *
     53  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     54  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     55  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     56  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     57  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     58  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     59  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     60  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     61  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     62  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     63  * SUCH DAMAGE.
     64  *
     65  *	@(#)vfs_syscalls.c	8.42 (Berkeley) 7/31/95
     66  */
     67 
     68 #include <sys/cdefs.h>
     69 __KERNEL_RCSID(0, "$NetBSD: vfs_syscalls.c,v 1.396 2009/07/02 12:53:47 pooka Exp $");
     70 
     71 #ifdef _KERNEL_OPT
     72 #include "opt_fileassoc.h"
     73 #include "veriexec.h"
     74 #endif
     75 
     76 #include <sys/param.h>
     77 #include <sys/systm.h>
     78 #include <sys/namei.h>
     79 #include <sys/filedesc.h>
     80 #include <sys/kernel.h>
     81 #include <sys/file.h>
     82 #include <sys/stat.h>
     83 #include <sys/vnode.h>
     84 #include <sys/mount.h>
     85 #include <sys/proc.h>
     86 #include <sys/uio.h>
     87 #include <sys/kmem.h>
     88 #include <sys/dirent.h>
     89 #include <sys/sysctl.h>
     90 #include <sys/syscallargs.h>
     91 #include <sys/vfs_syscalls.h>
     92 #include <sys/ktrace.h>
     93 #ifdef FILEASSOC
     94 #include <sys/fileassoc.h>
     95 #endif /* FILEASSOC */
     96 #include <sys/verified_exec.h>
     97 #include <sys/kauth.h>
     98 #include <sys/atomic.h>
     99 #include <sys/module.h>
    100 #include <sys/buf.h>
    101 
    102 #include <miscfs/genfs/genfs.h>
    103 #include <miscfs/syncfs/syncfs.h>
    104 #include <miscfs/specfs/specdev.h>
    105 
    106 #include <nfs/rpcv2.h>
    107 #include <nfs/nfsproto.h>
    108 #include <nfs/nfs.h>
    109 #include <nfs/nfs_var.h>
    110 
    111 MALLOC_DEFINE(M_MOUNT, "mount", "vfs mount struct");
    112 
    113 static int change_dir(struct nameidata *, struct lwp *);
    114 static int change_flags(struct vnode *, u_long, struct lwp *);
    115 static int change_mode(struct vnode *, int, struct lwp *l);
    116 static int change_owner(struct vnode *, uid_t, gid_t, struct lwp *, int);
    117 
    118 void checkdirs(struct vnode *);
    119 
    120 /*
    121  * Virtual File System System Calls
    122  */
    123 
    124 /*
    125  * Mount a file system.
    126  */
    127 
    128 /*
    129  * This table is used to maintain compatibility with 4.3BSD
    130  * and NetBSD 0.9 mount syscalls - and possibly other systems.
    131  * Note, the order is important!
    132  *
    133  * Do not modify this table. It should only contain filesystems
    134  * supported by NetBSD 0.9 and 4.3BSD.
    135  */
    136 const char * const mountcompatnames[] = {
    137 	NULL,		/* 0 = MOUNT_NONE */
    138 	MOUNT_FFS,	/* 1 = MOUNT_UFS */
    139 	MOUNT_NFS,	/* 2 */
    140 	MOUNT_MFS,	/* 3 */
    141 	MOUNT_MSDOS,	/* 4 */
    142 	MOUNT_CD9660,	/* 5 = MOUNT_ISOFS */
    143 	MOUNT_FDESC,	/* 6 */
    144 	MOUNT_KERNFS,	/* 7 */
    145 	NULL,		/* 8 = MOUNT_DEVFS */
    146 	MOUNT_AFS,	/* 9 */
    147 };
    148 const int nmountcompatnames = sizeof(mountcompatnames) /
    149     sizeof(mountcompatnames[0]);
    150 
    151 static int
    152 mount_update(struct lwp *l, struct vnode *vp, const char *path, int flags,
    153     void *data, size_t *data_len)
    154 {
    155 	struct mount *mp;
    156 	int error = 0, saved_flags;
    157 
    158 	mp = vp->v_mount;
    159 	saved_flags = mp->mnt_flag;
    160 
    161 	/* We can operate only on VV_ROOT nodes. */
    162 	if ((vp->v_vflag & VV_ROOT) == 0) {
    163 		error = EINVAL;
    164 		goto out;
    165 	}
    166 
    167 	/*
    168 	 * We only allow the filesystem to be reloaded if it
    169 	 * is currently mounted read-only.  Additionally, we
    170 	 * prevent read-write to read-only downgrades.
    171 	 */
    172 	if ((flags & (MNT_RELOAD | MNT_RDONLY)) != 0 &&
    173 	    (mp->mnt_flag & MNT_RDONLY) == 0) {
    174 		error = EOPNOTSUPP;	/* Needs translation */
    175 		goto out;
    176 	}
    177 
    178 	error = kauth_authorize_system(l->l_cred, KAUTH_SYSTEM_MOUNT,
    179 	    KAUTH_REQ_SYSTEM_MOUNT_UPDATE, mp, KAUTH_ARG(flags), data);
    180 	if (error)
    181 		goto out;
    182 
    183 	if (vfs_busy(mp, NULL)) {
    184 		error = EPERM;
    185 		goto out;
    186 	}
    187 
    188 	mutex_enter(&mp->mnt_updating);
    189 
    190 	mp->mnt_flag &= ~MNT_OP_FLAGS;
    191 	mp->mnt_flag |= flags & (MNT_RELOAD | MNT_FORCE | MNT_UPDATE);
    192 
    193 	/*
    194 	 * Set the mount level flags.
    195 	 */
    196 	if (flags & MNT_RDONLY)
    197 		mp->mnt_flag |= MNT_RDONLY;
    198 	else if (mp->mnt_flag & MNT_RDONLY)
    199 		mp->mnt_iflag |= IMNT_WANTRDWR;
    200 	mp->mnt_flag &=
    201 	  ~(MNT_NOSUID | MNT_NOEXEC | MNT_NODEV |
    202 	    MNT_SYNCHRONOUS | MNT_UNION | MNT_ASYNC | MNT_NOCOREDUMP |
    203 	    MNT_NOATIME | MNT_NODEVMTIME | MNT_SYMPERM | MNT_SOFTDEP |
    204 	    MNT_LOG);
    205 	mp->mnt_flag |= flags &
    206 	   (MNT_NOSUID | MNT_NOEXEC | MNT_NODEV |
    207 	    MNT_SYNCHRONOUS | MNT_UNION | MNT_ASYNC | MNT_NOCOREDUMP |
    208 	    MNT_NOATIME | MNT_NODEVMTIME | MNT_SYMPERM | MNT_SOFTDEP |
    209 	    MNT_LOG | MNT_IGNORE);
    210 
    211 	error = VFS_MOUNT(mp, path, data, data_len);
    212 
    213 	if (error && data != NULL) {
    214 		int error2;
    215 
    216 		/*
    217 		 * Update failed; let's try and see if it was an
    218 		 * export request.  For compat with 3.0 and earlier.
    219 		 */
    220 		error2 = vfs_hooks_reexport(mp, path, data);
    221 
    222 		/*
    223 		 * Only update error code if the export request was
    224 		 * understood but some problem occurred while
    225 		 * processing it.
    226 		 */
    227 		if (error2 != EJUSTRETURN)
    228 			error = error2;
    229 	}
    230 
    231 	if (mp->mnt_iflag & IMNT_WANTRDWR)
    232 		mp->mnt_flag &= ~MNT_RDONLY;
    233 	if (error)
    234 		mp->mnt_flag = saved_flags;
    235 	mp->mnt_flag &= ~MNT_OP_FLAGS;
    236 	mp->mnt_iflag &= ~IMNT_WANTRDWR;
    237 	if ((mp->mnt_flag & (MNT_RDONLY | MNT_ASYNC)) == 0) {
    238 		if (mp->mnt_syncer == NULL)
    239 			error = vfs_allocate_syncvnode(mp);
    240 	} else {
    241 		if (mp->mnt_syncer != NULL)
    242 			vfs_deallocate_syncvnode(mp);
    243 	}
    244 	mutex_exit(&mp->mnt_updating);
    245 	vfs_unbusy(mp, false, NULL);
    246 
    247  out:
    248 	return (error);
    249 }
    250 
    251 static int
    252 mount_get_vfsops(const char *fstype, struct vfsops **vfsops)
    253 {
    254 	char fstypename[sizeof(((struct statvfs *)NULL)->f_fstypename)];
    255 	int error;
    256 
    257 	/* Copy file-system type from userspace.  */
    258 	error = copyinstr(fstype, fstypename, sizeof(fstypename), NULL);
    259 	if (error) {
    260 		/*
    261 		 * Historically, filesystem types were identified by numbers.
    262 		 * If we get an integer for the filesystem type instead of a
    263 		 * string, we check to see if it matches one of the historic
    264 		 * filesystem types.
    265 		 */
    266 		u_long fsindex = (u_long)fstype;
    267 		if (fsindex >= nmountcompatnames ||
    268 		    mountcompatnames[fsindex] == NULL)
    269 			return ENODEV;
    270 		strlcpy(fstypename, mountcompatnames[fsindex],
    271 		    sizeof(fstypename));
    272 	}
    273 
    274 	/* Accept `ufs' as an alias for `ffs', for compatibility. */
    275 	if (strcmp(fstypename, "ufs") == 0)
    276 		fstypename[0] = 'f';
    277 
    278 	if ((*vfsops = vfs_getopsbyname(fstypename)) != NULL)
    279 		return 0;
    280 
    281 	/* If we can autoload a vfs module, try again */
    282 	mutex_enter(&module_lock);
    283 	(void)module_autoload(fstype, MODULE_CLASS_VFS);
    284 	mutex_exit(&module_lock);
    285 
    286 	if ((*vfsops = vfs_getopsbyname(fstypename)) != NULL)
    287 		return 0;
    288 
    289 	return ENODEV;
    290 }
    291 
    292 static int
    293 mount_domount(struct lwp *l, struct vnode **vpp, struct vfsops *vfsops,
    294     const char *path, int flags, void *data, size_t *data_len, u_int recurse)
    295 {
    296 	struct mount *mp;
    297 	struct vnode *vp = *vpp;
    298 	struct vattr va;
    299 	int error;
    300 
    301 	error = kauth_authorize_system(l->l_cred, KAUTH_SYSTEM_MOUNT,
    302 	    KAUTH_REQ_SYSTEM_MOUNT_NEW, vp, KAUTH_ARG(flags), data);
    303 	if (error)
    304 		return error;
    305 
    306 	/* Can't make a non-dir a mount-point (from here anyway). */
    307 	if (vp->v_type != VDIR)
    308 		return ENOTDIR;
    309 
    310 	/*
    311 	 * If the user is not root, ensure that they own the directory
    312 	 * onto which we are attempting to mount.
    313 	 */
    314 	if ((error = VOP_GETATTR(vp, &va, l->l_cred)) != 0 ||
    315 	    (va.va_uid != kauth_cred_geteuid(l->l_cred) &&
    316 	    (error = kauth_authorize_generic(l->l_cred,
    317 	    KAUTH_GENERIC_ISSUSER, NULL)) != 0)) {
    318 		return error;
    319 	}
    320 
    321 	if (flags & MNT_EXPORTED)
    322 		return EINVAL;
    323 
    324 	if ((error = vinvalbuf(vp, V_SAVE, l->l_cred, l, 0, 0)) != 0)
    325 		return error;
    326 
    327 	/*
    328 	 * Check if a file-system is not already mounted on this vnode.
    329 	 */
    330 	if (vp->v_mountedhere != NULL)
    331 		return EBUSY;
    332 
    333 	if ((mp = vfs_mountalloc(vfsops, vp)) == NULL)
    334 		return ENOMEM;
    335 
    336 	mp->mnt_stat.f_owner = kauth_cred_geteuid(l->l_cred);
    337 
    338 	/*
    339 	 * The underlying file system may refuse the mount for
    340 	 * various reasons.  Allow the user to force it to happen.
    341 	 *
    342 	 * Set the mount level flags.
    343 	 */
    344 	mp->mnt_flag = flags &
    345 	   (MNT_FORCE | MNT_NOSUID | MNT_NOEXEC | MNT_NODEV |
    346 	    MNT_SYNCHRONOUS | MNT_UNION | MNT_ASYNC | MNT_NOCOREDUMP |
    347 	    MNT_NOATIME | MNT_NODEVMTIME | MNT_SYMPERM | MNT_SOFTDEP |
    348 	    MNT_LOG | MNT_IGNORE | MNT_RDONLY);
    349 
    350 	mutex_enter(&mp->mnt_updating);
    351 	error = VFS_MOUNT(mp, path, data, data_len);
    352 	mp->mnt_flag &= ~MNT_OP_FLAGS;
    353 
    354 	/*
    355 	 * Put the new filesystem on the mount list after root.
    356 	 */
    357 	cache_purge(vp);
    358 	if (error != 0) {
    359 		vp->v_mountedhere = NULL;
    360 		mutex_exit(&mp->mnt_updating);
    361 		vfs_unbusy(mp, false, NULL);
    362 		vfs_destroy(mp);
    363 		return error;
    364 	}
    365 
    366 	mp->mnt_iflag &= ~IMNT_WANTRDWR;
    367 	mutex_enter(&mountlist_lock);
    368 	vp->v_mountedhere = mp;
    369 	CIRCLEQ_INSERT_TAIL(&mountlist, mp, mnt_list);
    370 	mutex_exit(&mountlist_lock);
    371     	vn_restorerecurse(vp, recurse);
    372 	VOP_UNLOCK(vp, 0);
    373 	checkdirs(vp);
    374 	if ((mp->mnt_flag & (MNT_RDONLY | MNT_ASYNC)) == 0)
    375 		error = vfs_allocate_syncvnode(mp);
    376 	/* Hold an additional reference to the mount across VFS_START(). */
    377 	mutex_exit(&mp->mnt_updating);
    378 	vfs_unbusy(mp, true, NULL);
    379 	(void) VFS_STATVFS(mp, &mp->mnt_stat);
    380 	error = VFS_START(mp, 0);
    381 	if (error)
    382 		vrele(vp);
    383 	/* Drop reference held for VFS_START(). */
    384 	vfs_destroy(mp);
    385 	*vpp = NULL;
    386 	return error;
    387 }
    388 
    389 static int
    390 mount_getargs(struct lwp *l, struct vnode *vp, const char *path, int flags,
    391     void *data, size_t *data_len)
    392 {
    393 	struct mount *mp;
    394 	int error;
    395 
    396 	/* If MNT_GETARGS is specified, it should be the only flag. */
    397 	if (flags & ~MNT_GETARGS)
    398 		return EINVAL;
    399 
    400 	mp = vp->v_mount;
    401 
    402 	/* XXX: probably some notion of "can see" here if we want isolation. */
    403 	error = kauth_authorize_system(l->l_cred, KAUTH_SYSTEM_MOUNT,
    404 	    KAUTH_REQ_SYSTEM_MOUNT_GET, mp, data, NULL);
    405 	if (error)
    406 		return error;
    407 
    408 	if ((vp->v_vflag & VV_ROOT) == 0)
    409 		return EINVAL;
    410 
    411 	if (vfs_busy(mp, NULL))
    412 		return EPERM;
    413 
    414 	mutex_enter(&mp->mnt_updating);
    415 	mp->mnt_flag &= ~MNT_OP_FLAGS;
    416 	mp->mnt_flag |= MNT_GETARGS;
    417 	error = VFS_MOUNT(mp, path, data, data_len);
    418 	mp->mnt_flag &= ~MNT_OP_FLAGS;
    419 	mutex_exit(&mp->mnt_updating);
    420 
    421 	vfs_unbusy(mp, false, NULL);
    422 	return (error);
    423 }
    424 
    425 int
    426 sys___mount50(struct lwp *l, const struct sys___mount50_args *uap, register_t *retval)
    427 {
    428 	/* {
    429 		syscallarg(const char *) type;
    430 		syscallarg(const char *) path;
    431 		syscallarg(int) flags;
    432 		syscallarg(void *) data;
    433 		syscallarg(size_t) data_len;
    434 	} */
    435 
    436 	return do_sys_mount(l, NULL, SCARG(uap, type), SCARG(uap, path),
    437 	    SCARG(uap, flags), SCARG(uap, data), UIO_USERSPACE,
    438 	    SCARG(uap, data_len), retval);
    439 }
    440 
    441 int
    442 do_sys_mount(struct lwp *l, struct vfsops *vfsops, const char *type,
    443     const char *path, int flags, void *data, enum uio_seg data_seg,
    444     size_t data_len, register_t *retval)
    445 {
    446 	struct vnode *vp;
    447 	void *data_buf = data;
    448 	u_int recurse;
    449 	int error;
    450 
    451 	/*
    452 	 * Get vnode to be covered
    453 	 */
    454 	error = namei_simple_user(path, NSM_FOLLOW_TRYEMULROOT, &vp);
    455 	if (error != 0)
    456 		return (error);
    457 
    458 	/*
    459 	 * A lookup in VFS_MOUNT might result in an attempt to
    460 	 * lock this vnode again, so make the lock recursive.
    461 	 */
    462 	if (vfsops == NULL) {
    463 		if (flags & (MNT_GETARGS | MNT_UPDATE)) {
    464 			vn_lock(vp, LK_EXCLUSIVE | LK_RETRY);
    465 			recurse = vn_setrecurse(vp);
    466 			vfsops = vp->v_mount->mnt_op;
    467 		} else {
    468 			/* 'type' is userspace */
    469 			error = mount_get_vfsops(type, &vfsops);
    470 			vn_lock(vp, LK_EXCLUSIVE | LK_RETRY);
    471 			recurse = vn_setrecurse(vp);
    472 			if (error != 0)
    473 				goto done;
    474 		}
    475 	} else {
    476 		vn_lock(vp, LK_EXCLUSIVE | LK_RETRY);
    477 		recurse = vn_setrecurse(vp);
    478 	}
    479 
    480 	if (data != NULL && data_seg == UIO_USERSPACE) {
    481 		if (data_len == 0) {
    482 			/* No length supplied, use default for filesystem */
    483 			data_len = vfsops->vfs_min_mount_data;
    484 			if (data_len > VFS_MAX_MOUNT_DATA) {
    485 				error = EINVAL;
    486 				goto done;
    487 			}
    488 			/*
    489 			 * Hopefully a longer buffer won't make copyin() fail.
    490 			 * For compatibility with 3.0 and earlier.
    491 			 */
    492 			if (flags & MNT_UPDATE
    493 			    && data_len < sizeof (struct mnt_export_args30))
    494 				data_len = sizeof (struct mnt_export_args30);
    495 		}
    496 		data_buf = kmem_alloc(data_len, KM_SLEEP);
    497 
    498 		/* NFS needs the buffer even for mnt_getargs .... */
    499 		error = copyin(data, data_buf, data_len);
    500 		if (error != 0)
    501 			goto done;
    502 	}
    503 
    504 	if (flags & MNT_GETARGS) {
    505 		if (data_len == 0) {
    506 			error = EINVAL;
    507 			goto done;
    508 		}
    509 		error = mount_getargs(l, vp, path, flags, data_buf, &data_len);
    510 		if (error != 0)
    511 			goto done;
    512 		if (data_seg == UIO_USERSPACE)
    513 			error = copyout(data_buf, data, data_len);
    514 		*retval = data_len;
    515 	} else if (flags & MNT_UPDATE) {
    516 		error = mount_update(l, vp, path, flags, data_buf, &data_len);
    517 	} else {
    518 		/* Locking is handled internally in mount_domount(). */
    519 		error = mount_domount(l, &vp, vfsops, path, flags, data_buf,
    520 		    &data_len, recurse);
    521 	}
    522 
    523     done:
    524     	if (vp != NULL) {
    525 	    	vn_restorerecurse(vp, recurse);
    526 	    	vput(vp);
    527 	}
    528 	if (data_buf != data)
    529 		kmem_free(data_buf, data_len);
    530 	return (error);
    531 }
    532 
    533 /*
    534  * Scan all active processes to see if any of them have a current
    535  * or root directory onto which the new filesystem has just been
    536  * mounted. If so, replace them with the new mount point.
    537  */
    538 void
    539 checkdirs(struct vnode *olddp)
    540 {
    541 	struct cwdinfo *cwdi;
    542 	struct vnode *newdp, *rele1, *rele2;
    543 	struct proc *p;
    544 	bool retry;
    545 
    546 	if (olddp->v_usecount == 1)
    547 		return;
    548 	if (VFS_ROOT(olddp->v_mountedhere, &newdp))
    549 		panic("mount: lost mount");
    550 
    551 	do {
    552 		retry = false;
    553 		mutex_enter(proc_lock);
    554 		PROCLIST_FOREACH(p, &allproc) {
    555 			if ((p->p_flag & PK_MARKER) != 0)
    556 				continue;
    557 			if ((cwdi = p->p_cwdi) == NULL)
    558 				continue;
    559 			/*
    560 			 * Can't change to the old directory any more,
    561 			 * so even if we see a stale value it's not a
    562 			 * problem.
    563 			 */
    564 			if (cwdi->cwdi_cdir != olddp &&
    565 			    cwdi->cwdi_rdir != olddp)
    566 			    	continue;
    567 			retry = true;
    568 			rele1 = NULL;
    569 			rele2 = NULL;
    570 			atomic_inc_uint(&cwdi->cwdi_refcnt);
    571 			mutex_exit(proc_lock);
    572 			rw_enter(&cwdi->cwdi_lock, RW_WRITER);
    573 			if (cwdi->cwdi_cdir == olddp) {
    574 				rele1 = cwdi->cwdi_cdir;
    575 				VREF(newdp);
    576 				cwdi->cwdi_cdir = newdp;
    577 			}
    578 			if (cwdi->cwdi_rdir == olddp) {
    579 				rele2 = cwdi->cwdi_rdir;
    580 				VREF(newdp);
    581 				cwdi->cwdi_rdir = newdp;
    582 			}
    583 			rw_exit(&cwdi->cwdi_lock);
    584 			cwdfree(cwdi);
    585 			if (rele1 != NULL)
    586 				vrele(rele1);
    587 			if (rele2 != NULL)
    588 				vrele(rele2);
    589 			mutex_enter(proc_lock);
    590 			break;
    591 		}
    592 		mutex_exit(proc_lock);
    593 	} while (retry);
    594 
    595 	if (rootvnode == olddp) {
    596 		vrele(rootvnode);
    597 		VREF(newdp);
    598 		rootvnode = newdp;
    599 	}
    600 	vput(newdp);
    601 }
    602 
    603 /*
    604  * Unmount a file system.
    605  *
    606  * Note: unmount takes a path to the vnode mounted on as argument,
    607  * not special file (as before).
    608  */
    609 /* ARGSUSED */
    610 int
    611 sys_unmount(struct lwp *l, const struct sys_unmount_args *uap, register_t *retval)
    612 {
    613 	/* {
    614 		syscallarg(const char *) path;
    615 		syscallarg(int) flags;
    616 	} */
    617 	struct vnode *vp;
    618 	struct mount *mp;
    619 	int error;
    620 	struct nameidata nd;
    621 
    622 	NDINIT(&nd, LOOKUP, FOLLOW | LOCKLEAF | TRYEMULROOT, UIO_USERSPACE,
    623 	    SCARG(uap, path));
    624 	if ((error = namei(&nd)) != 0)
    625 		return (error);
    626 	vp = nd.ni_vp;
    627 	mp = vp->v_mount;
    628 	atomic_inc_uint(&mp->mnt_refcnt);
    629 	VOP_UNLOCK(vp, 0);
    630 
    631 	error = kauth_authorize_system(l->l_cred, KAUTH_SYSTEM_MOUNT,
    632 	    KAUTH_REQ_SYSTEM_MOUNT_UNMOUNT, mp, NULL, NULL);
    633 	if (error) {
    634 		vrele(vp);
    635 		vfs_destroy(mp);
    636 		return (error);
    637 	}
    638 
    639 	/*
    640 	 * Don't allow unmounting the root file system.
    641 	 */
    642 	if (mp->mnt_flag & MNT_ROOTFS) {
    643 		vrele(vp);
    644 		vfs_destroy(mp);
    645 		return (EINVAL);
    646 	}
    647 
    648 	/*
    649 	 * Must be the root of the filesystem
    650 	 */
    651 	if ((vp->v_vflag & VV_ROOT) == 0) {
    652 		vrele(vp);
    653 		vfs_destroy(mp);
    654 		return (EINVAL);
    655 	}
    656 
    657 	vrele(vp);
    658 	error = dounmount(mp, SCARG(uap, flags), l);
    659 	vfs_destroy(mp);
    660 	return error;
    661 }
    662 
    663 /*
    664  * Do the actual file system unmount.  File system is assumed to have
    665  * been locked by the caller.
    666  *
    667  * => Caller hold reference to the mount, explicitly for dounmount().
    668  */
    669 int
    670 dounmount(struct mount *mp, int flags, struct lwp *l)
    671 {
    672 	struct vnode *coveredvp;
    673 	int error;
    674 	int async;
    675 	int used_syncer;
    676 
    677 #if NVERIEXEC > 0
    678 	error = veriexec_unmountchk(mp);
    679 	if (error)
    680 		return (error);
    681 #endif /* NVERIEXEC > 0 */
    682 
    683 	/*
    684 	 * XXX Freeze syncer.  Must do this before locking the
    685 	 * mount point.  See dounmount() for details.
    686 	 */
    687 	mutex_enter(&syncer_mutex);
    688 	rw_enter(&mp->mnt_unmounting, RW_WRITER);
    689 	if ((mp->mnt_iflag & IMNT_GONE) != 0) {
    690 		rw_exit(&mp->mnt_unmounting);
    691 		mutex_exit(&syncer_mutex);
    692 		return ENOENT;
    693 	}
    694 
    695 	used_syncer = (mp->mnt_syncer != NULL);
    696 
    697 	/*
    698 	 * XXX Syncer must be frozen when we get here.  This should really
    699 	 * be done on a per-mountpoint basis, but the syncer doesn't work
    700 	 * like that.
    701 	 *
    702 	 * The caller of dounmount() must acquire syncer_mutex because
    703 	 * the syncer itself acquires locks in syncer_mutex -> vfs_busy
    704 	 * order, and we must preserve that order to avoid deadlock.
    705 	 *
    706 	 * So, if the file system did not use the syncer, now is
    707 	 * the time to release the syncer_mutex.
    708 	 */
    709 	if (used_syncer == 0)
    710 		mutex_exit(&syncer_mutex);
    711 
    712 	mp->mnt_iflag |= IMNT_UNMOUNT;
    713 	async = mp->mnt_flag & MNT_ASYNC;
    714 	mp->mnt_flag &= ~MNT_ASYNC;
    715 	cache_purgevfs(mp);	/* remove cache entries for this file sys */
    716 	if (mp->mnt_syncer != NULL)
    717 		vfs_deallocate_syncvnode(mp);
    718 	error = 0;
    719 	if ((mp->mnt_flag & MNT_RDONLY) == 0) {
    720 		error = VFS_SYNC(mp, MNT_WAIT, l->l_cred);
    721 	}
    722 	vfs_scrubvnlist(mp);
    723 	if (error == 0 || (flags & MNT_FORCE))
    724 		error = VFS_UNMOUNT(mp, flags);
    725 	if (error) {
    726 		if ((mp->mnt_flag & (MNT_RDONLY | MNT_ASYNC)) == 0)
    727 			(void) vfs_allocate_syncvnode(mp);
    728 		mp->mnt_iflag &= ~IMNT_UNMOUNT;
    729 		mp->mnt_flag |= async;
    730 		rw_exit(&mp->mnt_unmounting);
    731 		if (used_syncer)
    732 			mutex_exit(&syncer_mutex);
    733 		return (error);
    734 	}
    735 	vfs_scrubvnlist(mp);
    736 	mutex_enter(&mountlist_lock);
    737 	if ((coveredvp = mp->mnt_vnodecovered) != NULLVP)
    738 		coveredvp->v_mountedhere = NULL;
    739 	CIRCLEQ_REMOVE(&mountlist, mp, mnt_list);
    740 	mp->mnt_iflag |= IMNT_GONE;
    741 	mutex_exit(&mountlist_lock);
    742 	if (TAILQ_FIRST(&mp->mnt_vnodelist) != NULL)
    743 		panic("unmount: dangling vnode");
    744 	if (used_syncer)
    745 		mutex_exit(&syncer_mutex);
    746 	vfs_hooks_unmount(mp);
    747 	rw_exit(&mp->mnt_unmounting);
    748 	vfs_destroy(mp);	/* reference from mount() */
    749 	if (coveredvp != NULLVP)
    750 		vrele(coveredvp);
    751 	return (0);
    752 }
    753 
    754 /*
    755  * Sync each mounted filesystem.
    756  */
    757 #ifdef DEBUG
    758 int syncprt = 0;
    759 struct ctldebug debug0 = { "syncprt", &syncprt };
    760 #endif
    761 
    762 /* ARGSUSED */
    763 int
    764 sys_sync(struct lwp *l, const void *v, register_t *retval)
    765 {
    766 	struct mount *mp, *nmp;
    767 	int asyncflag;
    768 
    769 	if (l == NULL)
    770 		l = &lwp0;
    771 
    772 	mutex_enter(&mountlist_lock);
    773 	for (mp = CIRCLEQ_FIRST(&mountlist); mp != (void *)&mountlist;
    774 	     mp = nmp) {
    775 		if (vfs_busy(mp, &nmp)) {
    776 			continue;
    777 		}
    778 		mutex_enter(&mp->mnt_updating);
    779 		if ((mp->mnt_flag & MNT_RDONLY) == 0) {
    780 			asyncflag = mp->mnt_flag & MNT_ASYNC;
    781 			mp->mnt_flag &= ~MNT_ASYNC;
    782 			VFS_SYNC(mp, MNT_NOWAIT, l->l_cred);
    783 			if (asyncflag)
    784 				 mp->mnt_flag |= MNT_ASYNC;
    785 		}
    786 		mutex_exit(&mp->mnt_updating);
    787 		vfs_unbusy(mp, false, &nmp);
    788 	}
    789 	mutex_exit(&mountlist_lock);
    790 #ifdef DEBUG
    791 	if (syncprt)
    792 		vfs_bufstats();
    793 #endif /* DEBUG */
    794 	return (0);
    795 }
    796 
    797 /*
    798  * Change filesystem quotas.
    799  */
    800 /* ARGSUSED */
    801 int
    802 sys_quotactl(struct lwp *l, const struct sys_quotactl_args *uap, register_t *retval)
    803 {
    804 	/* {
    805 		syscallarg(const char *) path;
    806 		syscallarg(int) cmd;
    807 		syscallarg(int) uid;
    808 		syscallarg(void *) arg;
    809 	} */
    810 	struct mount *mp;
    811 	int error;
    812 	struct vnode *vp;
    813 
    814 	error = namei_simple_user(SCARG(uap, path),
    815 				NSM_FOLLOW_TRYEMULROOT, &vp);
    816 	if (error != 0)
    817 		return (error);
    818 	mp = vp->v_mount;
    819 	error = VFS_QUOTACTL(mp, SCARG(uap, cmd), SCARG(uap, uid),
    820 	    SCARG(uap, arg));
    821 	vrele(vp);
    822 	return (error);
    823 }
    824 
    825 int
    826 dostatvfs(struct mount *mp, struct statvfs *sp, struct lwp *l, int flags,
    827     int root)
    828 {
    829 	struct cwdinfo *cwdi = l->l_proc->p_cwdi;
    830 	int error = 0;
    831 
    832 	/*
    833 	 * If MNT_NOWAIT or MNT_LAZY is specified, do not
    834 	 * refresh the fsstat cache. MNT_WAIT or MNT_LAZY
    835 	 * overrides MNT_NOWAIT.
    836 	 */
    837 	if (flags == MNT_NOWAIT	|| flags == MNT_LAZY ||
    838 	    (flags != MNT_WAIT && flags != 0)) {
    839 		memcpy(sp, &mp->mnt_stat, sizeof(*sp));
    840 		goto done;
    841 	}
    842 
    843 	/* Get the filesystem stats now */
    844 	memset(sp, 0, sizeof(*sp));
    845 	if ((error = VFS_STATVFS(mp, sp)) != 0) {
    846 		return error;
    847 	}
    848 
    849 	if (cwdi->cwdi_rdir == NULL)
    850 		(void)memcpy(&mp->mnt_stat, sp, sizeof(mp->mnt_stat));
    851 done:
    852 	if (cwdi->cwdi_rdir != NULL) {
    853 		size_t len;
    854 		char *bp;
    855 		char c;
    856 		char *path = PNBUF_GET();
    857 
    858 		bp = path + MAXPATHLEN;
    859 		*--bp = '\0';
    860 		rw_enter(&cwdi->cwdi_lock, RW_READER);
    861 		error = getcwd_common(cwdi->cwdi_rdir, rootvnode, &bp, path,
    862 		    MAXPATHLEN / 2, 0, l);
    863 		rw_exit(&cwdi->cwdi_lock);
    864 		if (error) {
    865 			PNBUF_PUT(path);
    866 			return error;
    867 		}
    868 		len = strlen(bp);
    869 		if (len != 1) {
    870 			/*
    871 			 * for mount points that are below our root, we can see
    872 			 * them, so we fix up the pathname and return them. The
    873 			 * rest we cannot see, so we don't allow viewing the
    874 			 * data.
    875 			 */
    876 			if (strncmp(bp, sp->f_mntonname, len) == 0 &&
    877 			    ((c = sp->f_mntonname[len]) == '/' || c == '\0')) {
    878 				(void)strlcpy(sp->f_mntonname,
    879 				    c == '\0' ? "/" : &sp->f_mntonname[len],
    880 				    sizeof(sp->f_mntonname));
    881 			} else {
    882 				if (root)
    883 					(void)strlcpy(sp->f_mntonname, "/",
    884 					    sizeof(sp->f_mntonname));
    885 				else
    886 					error = EPERM;
    887 			}
    888 		}
    889 		PNBUF_PUT(path);
    890 	}
    891 	sp->f_flag = mp->mnt_flag & MNT_VISFLAGMASK;
    892 	return error;
    893 }
    894 
    895 /*
    896  * Get filesystem statistics by path.
    897  */
    898 int
    899 do_sys_pstatvfs(struct lwp *l, const char *path, int flags, struct statvfs *sb)
    900 {
    901 	struct mount *mp;
    902 	int error;
    903 	struct vnode *vp;
    904 
    905 	error = namei_simple_user(path, NSM_FOLLOW_TRYEMULROOT, &vp);
    906 	if (error != 0)
    907 		return error;
    908 	mp = vp->v_mount;
    909 	error = dostatvfs(mp, sb, l, flags, 1);
    910 	vrele(vp);
    911 	return error;
    912 }
    913 
    914 /* ARGSUSED */
    915 int
    916 sys_statvfs1(struct lwp *l, const struct sys_statvfs1_args *uap, register_t *retval)
    917 {
    918 	/* {
    919 		syscallarg(const char *) path;
    920 		syscallarg(struct statvfs *) buf;
    921 		syscallarg(int) flags;
    922 	} */
    923 	struct statvfs *sb;
    924 	int error;
    925 
    926 	sb = STATVFSBUF_GET();
    927 	error = do_sys_pstatvfs(l, SCARG(uap, path), SCARG(uap, flags), sb);
    928 	if (error == 0)
    929 		error = copyout(sb, SCARG(uap, buf), sizeof(*sb));
    930 	STATVFSBUF_PUT(sb);
    931 	return error;
    932 }
    933 
    934 /*
    935  * Get filesystem statistics by fd.
    936  */
    937 int
    938 do_sys_fstatvfs(struct lwp *l, int fd, int flags, struct statvfs *sb)
    939 {
    940 	file_t *fp;
    941 	struct mount *mp;
    942 	int error;
    943 
    944 	/* fd_getvnode() will use the descriptor for us */
    945 	if ((error = fd_getvnode(fd, &fp)) != 0)
    946 		return (error);
    947 	mp = ((struct vnode *)fp->f_data)->v_mount;
    948 	error = dostatvfs(mp, sb, curlwp, flags, 1);
    949 	fd_putfile(fd);
    950 	return error;
    951 }
    952 
    953 /* ARGSUSED */
    954 int
    955 sys_fstatvfs1(struct lwp *l, const struct sys_fstatvfs1_args *uap, register_t *retval)
    956 {
    957 	/* {
    958 		syscallarg(int) fd;
    959 		syscallarg(struct statvfs *) buf;
    960 		syscallarg(int) flags;
    961 	} */
    962 	struct statvfs *sb;
    963 	int error;
    964 
    965 	sb = STATVFSBUF_GET();
    966 	error = do_sys_fstatvfs(l, SCARG(uap, fd), SCARG(uap, flags), sb);
    967 	if (error == 0)
    968 		error = copyout(sb, SCARG(uap, buf), sizeof(*sb));
    969 	STATVFSBUF_PUT(sb);
    970 	return error;
    971 }
    972 
    973 
    974 /*
    975  * Get statistics on all filesystems.
    976  */
    977 int
    978 do_sys_getvfsstat(struct lwp *l, void *sfsp, size_t bufsize, int flags,
    979     int (*copyfn)(const void *, void *, size_t), size_t entry_sz,
    980     register_t *retval)
    981 {
    982 	int root = 0;
    983 	struct proc *p = l->l_proc;
    984 	struct mount *mp, *nmp;
    985 	struct statvfs *sb;
    986 	size_t count, maxcount;
    987 	int error = 0;
    988 
    989 	sb = STATVFSBUF_GET();
    990 	maxcount = bufsize / entry_sz;
    991 	mutex_enter(&mountlist_lock);
    992 	count = 0;
    993 	for (mp = CIRCLEQ_FIRST(&mountlist); mp != (void *)&mountlist;
    994 	     mp = nmp) {
    995 		if (vfs_busy(mp, &nmp)) {
    996 			continue;
    997 		}
    998 		if (sfsp && count < maxcount) {
    999 			error = dostatvfs(mp, sb, l, flags, 0);
   1000 			if (error) {
   1001 				vfs_unbusy(mp, false, &nmp);
   1002 				error = 0;
   1003 				continue;
   1004 			}
   1005 			error = copyfn(sb, sfsp, entry_sz);
   1006 			if (error) {
   1007 				vfs_unbusy(mp, false, NULL);
   1008 				goto out;
   1009 			}
   1010 			sfsp = (char *)sfsp + entry_sz;
   1011 			root |= strcmp(sb->f_mntonname, "/") == 0;
   1012 		}
   1013 		count++;
   1014 		vfs_unbusy(mp, false, &nmp);
   1015 	}
   1016 	mutex_exit(&mountlist_lock);
   1017 
   1018 	if (root == 0 && p->p_cwdi->cwdi_rdir) {
   1019 		/*
   1020 		 * fake a root entry
   1021 		 */
   1022 		error = dostatvfs(p->p_cwdi->cwdi_rdir->v_mount,
   1023 		    sb, l, flags, 1);
   1024 		if (error != 0)
   1025 			goto out;
   1026 		if (sfsp) {
   1027 			error = copyfn(sb, sfsp, entry_sz);
   1028 			if (error != 0)
   1029 				goto out;
   1030 		}
   1031 		count++;
   1032 	}
   1033 	if (sfsp && count > maxcount)
   1034 		*retval = maxcount;
   1035 	else
   1036 		*retval = count;
   1037 out:
   1038 	STATVFSBUF_PUT(sb);
   1039 	return error;
   1040 }
   1041 
   1042 int
   1043 sys_getvfsstat(struct lwp *l, const struct sys_getvfsstat_args *uap, register_t *retval)
   1044 {
   1045 	/* {
   1046 		syscallarg(struct statvfs *) buf;
   1047 		syscallarg(size_t) bufsize;
   1048 		syscallarg(int) flags;
   1049 	} */
   1050 
   1051 	return do_sys_getvfsstat(l, SCARG(uap, buf), SCARG(uap, bufsize),
   1052 	    SCARG(uap, flags), copyout, sizeof (struct statvfs), retval);
   1053 }
   1054 
   1055 /*
   1056  * Change current working directory to a given file descriptor.
   1057  */
   1058 /* ARGSUSED */
   1059 int
   1060 sys_fchdir(struct lwp *l, const struct sys_fchdir_args *uap, register_t *retval)
   1061 {
   1062 	/* {
   1063 		syscallarg(int) fd;
   1064 	} */
   1065 	struct proc *p = l->l_proc;
   1066 	struct cwdinfo *cwdi;
   1067 	struct vnode *vp, *tdp;
   1068 	struct mount *mp;
   1069 	file_t *fp;
   1070 	int error, fd;
   1071 
   1072 	/* fd_getvnode() will use the descriptor for us */
   1073 	fd = SCARG(uap, fd);
   1074 	if ((error = fd_getvnode(fd, &fp)) != 0)
   1075 		return (error);
   1076 	vp = fp->f_data;
   1077 
   1078 	VREF(vp);
   1079 	vn_lock(vp,  LK_EXCLUSIVE | LK_RETRY);
   1080 	if (vp->v_type != VDIR)
   1081 		error = ENOTDIR;
   1082 	else
   1083 		error = VOP_ACCESS(vp, VEXEC, l->l_cred);
   1084 	if (error) {
   1085 		vput(vp);
   1086 		goto out;
   1087 	}
   1088 	while ((mp = vp->v_mountedhere) != NULL) {
   1089 		error = vfs_busy(mp, NULL);
   1090 		vput(vp);
   1091 		if (error != 0)
   1092 			goto out;
   1093 		error = VFS_ROOT(mp, &tdp);
   1094 		vfs_unbusy(mp, false, NULL);
   1095 		if (error)
   1096 			goto out;
   1097 		vp = tdp;
   1098 	}
   1099 	VOP_UNLOCK(vp, 0);
   1100 
   1101 	/*
   1102 	 * Disallow changing to a directory not under the process's
   1103 	 * current root directory (if there is one).
   1104 	 */
   1105 	cwdi = p->p_cwdi;
   1106 	rw_enter(&cwdi->cwdi_lock, RW_WRITER);
   1107 	if (cwdi->cwdi_rdir && !vn_isunder(vp, NULL, l)) {
   1108 		vrele(vp);
   1109 		error = EPERM;	/* operation not permitted */
   1110 	} else {
   1111 		vrele(cwdi->cwdi_cdir);
   1112 		cwdi->cwdi_cdir = vp;
   1113 	}
   1114 	rw_exit(&cwdi->cwdi_lock);
   1115 
   1116  out:
   1117 	fd_putfile(fd);
   1118 	return (error);
   1119 }
   1120 
   1121 /*
   1122  * Change this process's notion of the root directory to a given file
   1123  * descriptor.
   1124  */
   1125 int
   1126 sys_fchroot(struct lwp *l, const struct sys_fchroot_args *uap, register_t *retval)
   1127 {
   1128 	struct proc *p = l->l_proc;
   1129 	struct cwdinfo *cwdi;
   1130 	struct vnode	*vp;
   1131 	file_t	*fp;
   1132 	int		 error, fd = SCARG(uap, fd);
   1133 
   1134 	if ((error = kauth_authorize_system(l->l_cred, KAUTH_SYSTEM_CHROOT,
   1135  	    KAUTH_REQ_SYSTEM_CHROOT_FCHROOT, NULL, NULL, NULL)) != 0)
   1136 		return error;
   1137 	/* fd_getvnode() will use the descriptor for us */
   1138 	if ((error = fd_getvnode(SCARG(uap, fd), &fp)) != 0)
   1139 		return error;
   1140 	vp = fp->f_data;
   1141 	vn_lock(vp, LK_EXCLUSIVE | LK_RETRY);
   1142 	if (vp->v_type != VDIR)
   1143 		error = ENOTDIR;
   1144 	else
   1145 		error = VOP_ACCESS(vp, VEXEC, l->l_cred);
   1146 	VOP_UNLOCK(vp, 0);
   1147 	if (error)
   1148 		goto out;
   1149 	VREF(vp);
   1150 
   1151 	/*
   1152 	 * Prevent escaping from chroot by putting the root under
   1153 	 * the working directory.  Silently chdir to / if we aren't
   1154 	 * already there.
   1155 	 */
   1156 	cwdi = p->p_cwdi;
   1157 	rw_enter(&cwdi->cwdi_lock, RW_WRITER);
   1158 	if (!vn_isunder(cwdi->cwdi_cdir, vp, l)) {
   1159 		/*
   1160 		 * XXX would be more failsafe to change directory to a
   1161 		 * deadfs node here instead
   1162 		 */
   1163 		vrele(cwdi->cwdi_cdir);
   1164 		VREF(vp);
   1165 		cwdi->cwdi_cdir = vp;
   1166 	}
   1167 
   1168 	if (cwdi->cwdi_rdir != NULL)
   1169 		vrele(cwdi->cwdi_rdir);
   1170 	cwdi->cwdi_rdir = vp;
   1171 	rw_exit(&cwdi->cwdi_lock);
   1172 
   1173  out:
   1174 	fd_putfile(fd);
   1175 	return (error);
   1176 }
   1177 
   1178 /*
   1179  * Change current working directory (``.'').
   1180  */
   1181 /* ARGSUSED */
   1182 int
   1183 sys_chdir(struct lwp *l, const struct sys_chdir_args *uap, register_t *retval)
   1184 {
   1185 	/* {
   1186 		syscallarg(const char *) path;
   1187 	} */
   1188 	struct proc *p = l->l_proc;
   1189 	struct cwdinfo *cwdi;
   1190 	int error;
   1191 	struct nameidata nd;
   1192 
   1193 	NDINIT(&nd, LOOKUP, FOLLOW | LOCKLEAF | TRYEMULROOT, UIO_USERSPACE,
   1194 	    SCARG(uap, path));
   1195 	if ((error = change_dir(&nd, l)) != 0)
   1196 		return (error);
   1197 	cwdi = p->p_cwdi;
   1198 	rw_enter(&cwdi->cwdi_lock, RW_WRITER);
   1199 	vrele(cwdi->cwdi_cdir);
   1200 	cwdi->cwdi_cdir = nd.ni_vp;
   1201 	rw_exit(&cwdi->cwdi_lock);
   1202 	return (0);
   1203 }
   1204 
   1205 /*
   1206  * Change notion of root (``/'') directory.
   1207  */
   1208 /* ARGSUSED */
   1209 int
   1210 sys_chroot(struct lwp *l, const struct sys_chroot_args *uap, register_t *retval)
   1211 {
   1212 	/* {
   1213 		syscallarg(const char *) path;
   1214 	} */
   1215 	struct proc *p = l->l_proc;
   1216 	struct cwdinfo *cwdi;
   1217 	struct vnode *vp;
   1218 	int error;
   1219 	struct nameidata nd;
   1220 
   1221 	if ((error = kauth_authorize_system(l->l_cred, KAUTH_SYSTEM_CHROOT,
   1222 	    KAUTH_REQ_SYSTEM_CHROOT_CHROOT, NULL, NULL, NULL)) != 0)
   1223 		return (error);
   1224 	NDINIT(&nd, LOOKUP, FOLLOW | LOCKLEAF | TRYEMULROOT, UIO_USERSPACE,
   1225 	    SCARG(uap, path));
   1226 	if ((error = change_dir(&nd, l)) != 0)
   1227 		return (error);
   1228 
   1229 	cwdi = p->p_cwdi;
   1230 	rw_enter(&cwdi->cwdi_lock, RW_WRITER);
   1231 	if (cwdi->cwdi_rdir != NULL)
   1232 		vrele(cwdi->cwdi_rdir);
   1233 	vp = nd.ni_vp;
   1234 	cwdi->cwdi_rdir = vp;
   1235 
   1236 	/*
   1237 	 * Prevent escaping from chroot by putting the root under
   1238 	 * the working directory.  Silently chdir to / if we aren't
   1239 	 * already there.
   1240 	 */
   1241 	if (!vn_isunder(cwdi->cwdi_cdir, vp, l)) {
   1242 		/*
   1243 		 * XXX would be more failsafe to change directory to a
   1244 		 * deadfs node here instead
   1245 		 */
   1246 		vrele(cwdi->cwdi_cdir);
   1247 		VREF(vp);
   1248 		cwdi->cwdi_cdir = vp;
   1249 	}
   1250 	rw_exit(&cwdi->cwdi_lock);
   1251 
   1252 	return (0);
   1253 }
   1254 
   1255 /*
   1256  * Common routine for chroot and chdir.
   1257  */
   1258 static int
   1259 change_dir(struct nameidata *ndp, struct lwp *l)
   1260 {
   1261 	struct vnode *vp;
   1262 	int error;
   1263 
   1264 	if ((error = namei(ndp)) != 0)
   1265 		return (error);
   1266 	vp = ndp->ni_vp;
   1267 	if (vp->v_type != VDIR)
   1268 		error = ENOTDIR;
   1269 	else
   1270 		error = VOP_ACCESS(vp, VEXEC, l->l_cred);
   1271 
   1272 	if (error)
   1273 		vput(vp);
   1274 	else
   1275 		VOP_UNLOCK(vp, 0);
   1276 	return (error);
   1277 }
   1278 
   1279 /*
   1280  * Check permissions, allocate an open file structure,
   1281  * and call the device open routine if any.
   1282  */
   1283 int
   1284 sys_open(struct lwp *l, const struct sys_open_args *uap, register_t *retval)
   1285 {
   1286 	/* {
   1287 		syscallarg(const char *) path;
   1288 		syscallarg(int) flags;
   1289 		syscallarg(int) mode;
   1290 	} */
   1291 	struct proc *p = l->l_proc;
   1292 	struct cwdinfo *cwdi = p->p_cwdi;
   1293 	file_t *fp;
   1294 	struct vnode *vp;
   1295 	int flags, cmode;
   1296 	int type, indx, error;
   1297 	struct flock lf;
   1298 	struct nameidata nd;
   1299 
   1300 	flags = FFLAGS(SCARG(uap, flags));
   1301 	if ((flags & (FREAD | FWRITE)) == 0)
   1302 		return (EINVAL);
   1303 	if ((error = fd_allocfile(&fp, &indx)) != 0)
   1304 		return (error);
   1305 	/* We're going to read cwdi->cwdi_cmask unlocked here. */
   1306 	cmode = ((SCARG(uap, mode) &~ cwdi->cwdi_cmask) & ALLPERMS) &~ S_ISTXT;
   1307 	NDINIT(&nd, LOOKUP, FOLLOW | TRYEMULROOT, UIO_USERSPACE,
   1308 	    SCARG(uap, path));
   1309 	l->l_dupfd = -indx - 1;			/* XXX check for fdopen */
   1310 	if ((error = vn_open(&nd, flags, cmode)) != 0) {
   1311 		fd_abort(p, fp, indx);
   1312 		if ((error == EDUPFD || error == EMOVEFD) &&
   1313 		    l->l_dupfd >= 0 &&			/* XXX from fdopen */
   1314 		    (error =
   1315 			fd_dupopen(l->l_dupfd, &indx, flags, error)) == 0) {
   1316 			*retval = indx;
   1317 			return (0);
   1318 		}
   1319 		if (error == ERESTART)
   1320 			error = EINTR;
   1321 		return (error);
   1322 	}
   1323 
   1324 	l->l_dupfd = 0;
   1325 	vp = nd.ni_vp;
   1326 	fp->f_flag = flags & FMASK;
   1327 	fp->f_type = DTYPE_VNODE;
   1328 	fp->f_ops = &vnops;
   1329 	fp->f_data = vp;
   1330 	if (flags & (O_EXLOCK | O_SHLOCK)) {
   1331 		lf.l_whence = SEEK_SET;
   1332 		lf.l_start = 0;
   1333 		lf.l_len = 0;
   1334 		if (flags & O_EXLOCK)
   1335 			lf.l_type = F_WRLCK;
   1336 		else
   1337 			lf.l_type = F_RDLCK;
   1338 		type = F_FLOCK;
   1339 		if ((flags & FNONBLOCK) == 0)
   1340 			type |= F_WAIT;
   1341 		VOP_UNLOCK(vp, 0);
   1342 		error = VOP_ADVLOCK(vp, fp, F_SETLK, &lf, type);
   1343 		if (error) {
   1344 			(void) vn_close(vp, fp->f_flag, fp->f_cred);
   1345 			fd_abort(p, fp, indx);
   1346 			return (error);
   1347 		}
   1348 		vn_lock(vp, LK_EXCLUSIVE | LK_RETRY);
   1349 		atomic_or_uint(&fp->f_flag, FHASLOCK);
   1350 	}
   1351 	VOP_UNLOCK(vp, 0);
   1352 	*retval = indx;
   1353 	fd_affix(p, fp, indx);
   1354 	return (0);
   1355 }
   1356 
   1357 static void
   1358 vfs__fhfree(fhandle_t *fhp)
   1359 {
   1360 	size_t fhsize;
   1361 
   1362 	if (fhp == NULL) {
   1363 		return;
   1364 	}
   1365 	fhsize = FHANDLE_SIZE(fhp);
   1366 	kmem_free(fhp, fhsize);
   1367 }
   1368 
   1369 /*
   1370  * vfs_composefh: compose a filehandle.
   1371  */
   1372 
   1373 int
   1374 vfs_composefh(struct vnode *vp, fhandle_t *fhp, size_t *fh_size)
   1375 {
   1376 	struct mount *mp;
   1377 	struct fid *fidp;
   1378 	int error;
   1379 	size_t needfhsize;
   1380 	size_t fidsize;
   1381 
   1382 	mp = vp->v_mount;
   1383 	fidp = NULL;
   1384 	if (*fh_size < FHANDLE_SIZE_MIN) {
   1385 		fidsize = 0;
   1386 	} else {
   1387 		fidsize = *fh_size - offsetof(fhandle_t, fh_fid);
   1388 		if (fhp != NULL) {
   1389 			memset(fhp, 0, *fh_size);
   1390 			fhp->fh_fsid = mp->mnt_stat.f_fsidx;
   1391 			fidp = &fhp->fh_fid;
   1392 		}
   1393 	}
   1394 	error = VFS_VPTOFH(vp, fidp, &fidsize);
   1395 	needfhsize = FHANDLE_SIZE_FROM_FILEID_SIZE(fidsize);
   1396 	if (error == 0 && *fh_size < needfhsize) {
   1397 		error = E2BIG;
   1398 	}
   1399 	*fh_size = needfhsize;
   1400 	return error;
   1401 }
   1402 
   1403 int
   1404 vfs_composefh_alloc(struct vnode *vp, fhandle_t **fhpp)
   1405 {
   1406 	struct mount *mp;
   1407 	fhandle_t *fhp;
   1408 	size_t fhsize;
   1409 	size_t fidsize;
   1410 	int error;
   1411 
   1412 	*fhpp = NULL;
   1413 	mp = vp->v_mount;
   1414 	fidsize = 0;
   1415 	error = VFS_VPTOFH(vp, NULL, &fidsize);
   1416 	KASSERT(error != 0);
   1417 	if (error != E2BIG) {
   1418 		goto out;
   1419 	}
   1420 	fhsize = FHANDLE_SIZE_FROM_FILEID_SIZE(fidsize);
   1421 	fhp = kmem_zalloc(fhsize, KM_SLEEP);
   1422 	if (fhp == NULL) {
   1423 		error = ENOMEM;
   1424 		goto out;
   1425 	}
   1426 	fhp->fh_fsid = mp->mnt_stat.f_fsidx;
   1427 	error = VFS_VPTOFH(vp, &fhp->fh_fid, &fidsize);
   1428 	if (error == 0) {
   1429 		KASSERT((FHANDLE_SIZE(fhp) == fhsize &&
   1430 		    FHANDLE_FILEID(fhp)->fid_len == fidsize));
   1431 		*fhpp = fhp;
   1432 	} else {
   1433 		kmem_free(fhp, fhsize);
   1434 	}
   1435 out:
   1436 	return error;
   1437 }
   1438 
   1439 void
   1440 vfs_composefh_free(fhandle_t *fhp)
   1441 {
   1442 
   1443 	vfs__fhfree(fhp);
   1444 }
   1445 
   1446 /*
   1447  * vfs_fhtovp: lookup a vnode by a filehandle.
   1448  */
   1449 
   1450 int
   1451 vfs_fhtovp(fhandle_t *fhp, struct vnode **vpp)
   1452 {
   1453 	struct mount *mp;
   1454 	int error;
   1455 
   1456 	*vpp = NULL;
   1457 	mp = vfs_getvfs(FHANDLE_FSID(fhp));
   1458 	if (mp == NULL) {
   1459 		error = ESTALE;
   1460 		goto out;
   1461 	}
   1462 	if (mp->mnt_op->vfs_fhtovp == NULL) {
   1463 		error = EOPNOTSUPP;
   1464 		goto out;
   1465 	}
   1466 	error = VFS_FHTOVP(mp, FHANDLE_FILEID(fhp), vpp);
   1467 out:
   1468 	return error;
   1469 }
   1470 
   1471 /*
   1472  * vfs_copyinfh_alloc: allocate and copyin a filehandle, given
   1473  * the needed size.
   1474  */
   1475 
   1476 int
   1477 vfs_copyinfh_alloc(const void *ufhp, size_t fhsize, fhandle_t **fhpp)
   1478 {
   1479 	fhandle_t *fhp;
   1480 	int error;
   1481 
   1482 	*fhpp = NULL;
   1483 	if (fhsize > FHANDLE_SIZE_MAX) {
   1484 		return EINVAL;
   1485 	}
   1486 	if (fhsize < FHANDLE_SIZE_MIN) {
   1487 		return EINVAL;
   1488 	}
   1489 again:
   1490 	fhp = kmem_alloc(fhsize, KM_SLEEP);
   1491 	if (fhp == NULL) {
   1492 		return ENOMEM;
   1493 	}
   1494 	error = copyin(ufhp, fhp, fhsize);
   1495 	if (error == 0) {
   1496 		/* XXX this check shouldn't be here */
   1497 		if (FHANDLE_SIZE(fhp) == fhsize) {
   1498 			*fhpp = fhp;
   1499 			return 0;
   1500 		} else if (fhsize == NFSX_V2FH && FHANDLE_SIZE(fhp) < fhsize) {
   1501 			/*
   1502 			 * a kludge for nfsv2 padded handles.
   1503 			 */
   1504 			size_t sz;
   1505 
   1506 			sz = FHANDLE_SIZE(fhp);
   1507 			kmem_free(fhp, fhsize);
   1508 			fhsize = sz;
   1509 			goto again;
   1510 		} else {
   1511 			/*
   1512 			 * userland told us wrong size.
   1513 			 */
   1514 		    	error = EINVAL;
   1515 		}
   1516 	}
   1517 	kmem_free(fhp, fhsize);
   1518 	return error;
   1519 }
   1520 
   1521 void
   1522 vfs_copyinfh_free(fhandle_t *fhp)
   1523 {
   1524 
   1525 	vfs__fhfree(fhp);
   1526 }
   1527 
   1528 /*
   1529  * Get file handle system call
   1530  */
   1531 int
   1532 sys___getfh30(struct lwp *l, const struct sys___getfh30_args *uap, register_t *retval)
   1533 {
   1534 	/* {
   1535 		syscallarg(char *) fname;
   1536 		syscallarg(fhandle_t *) fhp;
   1537 		syscallarg(size_t *) fh_size;
   1538 	} */
   1539 	struct vnode *vp;
   1540 	fhandle_t *fh;
   1541 	int error;
   1542 	struct nameidata nd;
   1543 	size_t sz;
   1544 	size_t usz;
   1545 
   1546 	/*
   1547 	 * Must be super user
   1548 	 */
   1549 	error = kauth_authorize_system(l->l_cred, KAUTH_SYSTEM_FILEHANDLE,
   1550 	    0, NULL, NULL, NULL);
   1551 	if (error)
   1552 		return (error);
   1553 	NDINIT(&nd, LOOKUP, FOLLOW | LOCKLEAF | TRYEMULROOT, UIO_USERSPACE,
   1554 	    SCARG(uap, fname));
   1555 	error = namei(&nd);
   1556 	if (error)
   1557 		return (error);
   1558 	vp = nd.ni_vp;
   1559 	error = vfs_composefh_alloc(vp, &fh);
   1560 	vput(vp);
   1561 	if (error != 0) {
   1562 		goto out;
   1563 	}
   1564 	error = copyin(SCARG(uap, fh_size), &usz, sizeof(size_t));
   1565 	if (error != 0) {
   1566 		goto out;
   1567 	}
   1568 	sz = FHANDLE_SIZE(fh);
   1569 	error = copyout(&sz, SCARG(uap, fh_size), sizeof(size_t));
   1570 	if (error != 0) {
   1571 		goto out;
   1572 	}
   1573 	if (usz >= sz) {
   1574 		error = copyout(fh, SCARG(uap, fhp), sz);
   1575 	} else {
   1576 		error = E2BIG;
   1577 	}
   1578 out:
   1579 	vfs_composefh_free(fh);
   1580 	return (error);
   1581 }
   1582 
   1583 /*
   1584  * Open a file given a file handle.
   1585  *
   1586  * Check permissions, allocate an open file structure,
   1587  * and call the device open routine if any.
   1588  */
   1589 
   1590 int
   1591 dofhopen(struct lwp *l, const void *ufhp, size_t fhsize, int oflags,
   1592     register_t *retval)
   1593 {
   1594 	file_t *fp;
   1595 	struct vnode *vp = NULL;
   1596 	kauth_cred_t cred = l->l_cred;
   1597 	file_t *nfp;
   1598 	int type, indx, error=0;
   1599 	struct flock lf;
   1600 	struct vattr va;
   1601 	fhandle_t *fh;
   1602 	int flags;
   1603 	proc_t *p;
   1604 
   1605 	p = curproc;
   1606 
   1607 	/*
   1608 	 * Must be super user
   1609 	 */
   1610 	if ((error = kauth_authorize_system(l->l_cred, KAUTH_SYSTEM_FILEHANDLE,
   1611 	    0, NULL, NULL, NULL)))
   1612 		return (error);
   1613 
   1614 	flags = FFLAGS(oflags);
   1615 	if ((flags & (FREAD | FWRITE)) == 0)
   1616 		return (EINVAL);
   1617 	if ((flags & O_CREAT))
   1618 		return (EINVAL);
   1619 	if ((error = fd_allocfile(&nfp, &indx)) != 0)
   1620 		return (error);
   1621 	fp = nfp;
   1622 	error = vfs_copyinfh_alloc(ufhp, fhsize, &fh);
   1623 	if (error != 0) {
   1624 		goto bad;
   1625 	}
   1626 	error = vfs_fhtovp(fh, &vp);
   1627 	if (error != 0) {
   1628 		goto bad;
   1629 	}
   1630 
   1631 	/* Now do an effective vn_open */
   1632 
   1633 	if (vp->v_type == VSOCK) {
   1634 		error = EOPNOTSUPP;
   1635 		goto bad;
   1636 	}
   1637 	error = vn_openchk(vp, cred, flags);
   1638 	if (error != 0)
   1639 		goto bad;
   1640 	if (flags & O_TRUNC) {
   1641 		VOP_UNLOCK(vp, 0);			/* XXX */
   1642 		vn_lock(vp, LK_EXCLUSIVE | LK_RETRY);   /* XXX */
   1643 		VATTR_NULL(&va);
   1644 		va.va_size = 0;
   1645 		error = VOP_SETATTR(vp, &va, cred);
   1646 		if (error)
   1647 			goto bad;
   1648 	}
   1649 	if ((error = VOP_OPEN(vp, flags, cred)) != 0)
   1650 		goto bad;
   1651 	if (flags & FWRITE) {
   1652 		mutex_enter(&vp->v_interlock);
   1653 		vp->v_writecount++;
   1654 		mutex_exit(&vp->v_interlock);
   1655 	}
   1656 
   1657 	/* done with modified vn_open, now finish what sys_open does. */
   1658 
   1659 	fp->f_flag = flags & FMASK;
   1660 	fp->f_type = DTYPE_VNODE;
   1661 	fp->f_ops = &vnops;
   1662 	fp->f_data = vp;
   1663 	if (flags & (O_EXLOCK | O_SHLOCK)) {
   1664 		lf.l_whence = SEEK_SET;
   1665 		lf.l_start = 0;
   1666 		lf.l_len = 0;
   1667 		if (flags & O_EXLOCK)
   1668 			lf.l_type = F_WRLCK;
   1669 		else
   1670 			lf.l_type = F_RDLCK;
   1671 		type = F_FLOCK;
   1672 		if ((flags & FNONBLOCK) == 0)
   1673 			type |= F_WAIT;
   1674 		VOP_UNLOCK(vp, 0);
   1675 		error = VOP_ADVLOCK(vp, fp, F_SETLK, &lf, type);
   1676 		if (error) {
   1677 			(void) vn_close(vp, fp->f_flag, fp->f_cred);
   1678 			fd_abort(p, fp, indx);
   1679 			return (error);
   1680 		}
   1681 		vn_lock(vp, LK_EXCLUSIVE | LK_RETRY);
   1682 		atomic_or_uint(&fp->f_flag, FHASLOCK);
   1683 	}
   1684 	VOP_UNLOCK(vp, 0);
   1685 	*retval = indx;
   1686 	fd_affix(p, fp, indx);
   1687 	vfs_copyinfh_free(fh);
   1688 	return (0);
   1689 
   1690 bad:
   1691 	fd_abort(p, fp, indx);
   1692 	if (vp != NULL)
   1693 		vput(vp);
   1694 	vfs_copyinfh_free(fh);
   1695 	return (error);
   1696 }
   1697 
   1698 int
   1699 sys___fhopen40(struct lwp *l, const struct sys___fhopen40_args *uap, register_t *retval)
   1700 {
   1701 	/* {
   1702 		syscallarg(const void *) fhp;
   1703 		syscallarg(size_t) fh_size;
   1704 		syscallarg(int) flags;
   1705 	} */
   1706 
   1707 	return dofhopen(l, SCARG(uap, fhp), SCARG(uap, fh_size),
   1708 	    SCARG(uap, flags), retval);
   1709 }
   1710 
   1711 int
   1712 do_fhstat(struct lwp *l, const void *ufhp, size_t fhsize, struct stat *sb)
   1713 {
   1714 	int error;
   1715 	fhandle_t *fh;
   1716 	struct vnode *vp;
   1717 
   1718 	/*
   1719 	 * Must be super user
   1720 	 */
   1721 	if ((error = kauth_authorize_system(l->l_cred, KAUTH_SYSTEM_FILEHANDLE,
   1722 	    0, NULL, NULL, NULL)))
   1723 		return (error);
   1724 
   1725 	error = vfs_copyinfh_alloc(ufhp, fhsize, &fh);
   1726 	if (error != 0)
   1727 		return error;
   1728 
   1729 	error = vfs_fhtovp(fh, &vp);
   1730 	vfs_copyinfh_free(fh);
   1731 	if (error != 0)
   1732 		return error;
   1733 
   1734 	error = vn_stat(vp, sb);
   1735 	vput(vp);
   1736 	return error;
   1737 }
   1738 
   1739 
   1740 /* ARGSUSED */
   1741 int
   1742 sys___fhstat50(struct lwp *l, const struct sys___fhstat50_args *uap, register_t *retval)
   1743 {
   1744 	/* {
   1745 		syscallarg(const void *) fhp;
   1746 		syscallarg(size_t) fh_size;
   1747 		syscallarg(struct stat *) sb;
   1748 	} */
   1749 	struct stat sb;
   1750 	int error;
   1751 
   1752 	error = do_fhstat(l, SCARG(uap, fhp), SCARG(uap, fh_size), &sb);
   1753 	if (error)
   1754 		return error;
   1755 	return copyout(&sb, SCARG(uap, sb), sizeof(sb));
   1756 }
   1757 
   1758 int
   1759 do_fhstatvfs(struct lwp *l, const void *ufhp, size_t fhsize, struct statvfs *sb,
   1760     int flags)
   1761 {
   1762 	fhandle_t *fh;
   1763 	struct mount *mp;
   1764 	struct vnode *vp;
   1765 	int error;
   1766 
   1767 	/*
   1768 	 * Must be super user
   1769 	 */
   1770 	if ((error = kauth_authorize_system(l->l_cred, KAUTH_SYSTEM_FILEHANDLE,
   1771 	    0, NULL, NULL, NULL)))
   1772 		return error;
   1773 
   1774 	error = vfs_copyinfh_alloc(ufhp, fhsize, &fh);
   1775 	if (error != 0)
   1776 		return error;
   1777 
   1778 	error = vfs_fhtovp(fh, &vp);
   1779 	vfs_copyinfh_free(fh);
   1780 	if (error != 0)
   1781 		return error;
   1782 
   1783 	mp = vp->v_mount;
   1784 	error = dostatvfs(mp, sb, l, flags, 1);
   1785 	vput(vp);
   1786 	return error;
   1787 }
   1788 
   1789 /* ARGSUSED */
   1790 int
   1791 sys___fhstatvfs140(struct lwp *l, const struct sys___fhstatvfs140_args *uap, register_t *retval)
   1792 {
   1793 	/* {
   1794 		syscallarg(const void *) fhp;
   1795 		syscallarg(size_t) fh_size;
   1796 		syscallarg(struct statvfs *) buf;
   1797 		syscallarg(int)	flags;
   1798 	} */
   1799 	struct statvfs *sb = STATVFSBUF_GET();
   1800 	int error;
   1801 
   1802 	error = do_fhstatvfs(l, SCARG(uap, fhp), SCARG(uap, fh_size), sb,
   1803 	    SCARG(uap, flags));
   1804 	if (error == 0)
   1805 		error = copyout(sb, SCARG(uap, buf), sizeof(*sb));
   1806 	STATVFSBUF_PUT(sb);
   1807 	return error;
   1808 }
   1809 
   1810 /*
   1811  * Create a special file.
   1812  */
   1813 /* ARGSUSED */
   1814 int
   1815 sys___mknod50(struct lwp *l, const struct sys___mknod50_args *uap,
   1816     register_t *retval)
   1817 {
   1818 	/* {
   1819 		syscallarg(const char *) path;
   1820 		syscallarg(mode_t) mode;
   1821 		syscallarg(dev_t) dev;
   1822 	} */
   1823 	return do_sys_mknod(l, SCARG(uap, path), SCARG(uap, mode),
   1824 	    SCARG(uap, dev), retval);
   1825 }
   1826 
   1827 int
   1828 do_sys_mknod(struct lwp *l, const char *pathname, mode_t mode, dev_t dev,
   1829     register_t *retval)
   1830 {
   1831 	struct proc *p = l->l_proc;
   1832 	struct vnode *vp;
   1833 	struct vattr vattr;
   1834 	int error, optype;
   1835 	struct nameidata nd;
   1836 	char *path;
   1837 	const char *cpath;
   1838 	enum uio_seg seg = UIO_USERSPACE;
   1839 
   1840 	if ((error = kauth_authorize_system(l->l_cred, KAUTH_SYSTEM_MKNOD,
   1841 	    0, NULL, NULL, NULL)) != 0)
   1842 		return (error);
   1843 
   1844 	optype = VOP_MKNOD_DESCOFFSET;
   1845 
   1846 	VERIEXEC_PATH_GET(pathname, seg, cpath, path);
   1847 	NDINIT(&nd, CREATE, LOCKPARENT | TRYEMULROOT, seg, cpath);
   1848 
   1849 	if ((error = namei(&nd)) != 0)
   1850 		goto out;
   1851 	vp = nd.ni_vp;
   1852 	if (vp != NULL)
   1853 		error = EEXIST;
   1854 	else {
   1855 		VATTR_NULL(&vattr);
   1856 		/* We will read cwdi->cwdi_cmask unlocked. */
   1857 		vattr.va_mode = (mode & ALLPERMS) &~ p->p_cwdi->cwdi_cmask;
   1858 		vattr.va_rdev = dev;
   1859 
   1860 		switch (mode & S_IFMT) {
   1861 		case S_IFMT:	/* used by badsect to flag bad sectors */
   1862 			vattr.va_type = VBAD;
   1863 			break;
   1864 		case S_IFCHR:
   1865 			vattr.va_type = VCHR;
   1866 			break;
   1867 		case S_IFBLK:
   1868 			vattr.va_type = VBLK;
   1869 			break;
   1870 		case S_IFWHT:
   1871 			optype = VOP_WHITEOUT_DESCOFFSET;
   1872 			break;
   1873 		case S_IFREG:
   1874 #if NVERIEXEC > 0
   1875 			error = veriexec_openchk(l, nd.ni_vp, nd.ni_dirp,
   1876 			    O_CREAT);
   1877 #endif /* NVERIEXEC > 0 */
   1878 			vattr.va_type = VREG;
   1879 			vattr.va_rdev = VNOVAL;
   1880 			optype = VOP_CREATE_DESCOFFSET;
   1881 			break;
   1882 		default:
   1883 			error = EINVAL;
   1884 			break;
   1885 		}
   1886 	}
   1887 	if (!error) {
   1888 		switch (optype) {
   1889 		case VOP_WHITEOUT_DESCOFFSET:
   1890 			error = VOP_WHITEOUT(nd.ni_dvp, &nd.ni_cnd, CREATE);
   1891 			if (error)
   1892 				VOP_ABORTOP(nd.ni_dvp, &nd.ni_cnd);
   1893 			vput(nd.ni_dvp);
   1894 			break;
   1895 
   1896 		case VOP_MKNOD_DESCOFFSET:
   1897 			error = VOP_MKNOD(nd.ni_dvp, &nd.ni_vp,
   1898 						&nd.ni_cnd, &vattr);
   1899 			if (error == 0)
   1900 				vput(nd.ni_vp);
   1901 			break;
   1902 
   1903 		case VOP_CREATE_DESCOFFSET:
   1904 			error = VOP_CREATE(nd.ni_dvp, &nd.ni_vp,
   1905 						&nd.ni_cnd, &vattr);
   1906 			if (error == 0)
   1907 				vput(nd.ni_vp);
   1908 			break;
   1909 		}
   1910 	} else {
   1911 		VOP_ABORTOP(nd.ni_dvp, &nd.ni_cnd);
   1912 		if (nd.ni_dvp == vp)
   1913 			vrele(nd.ni_dvp);
   1914 		else
   1915 			vput(nd.ni_dvp);
   1916 		if (vp)
   1917 			vrele(vp);
   1918 	}
   1919 out:
   1920 	VERIEXEC_PATH_PUT(path);
   1921 	return (error);
   1922 }
   1923 
   1924 /*
   1925  * Create a named pipe.
   1926  */
   1927 /* ARGSUSED */
   1928 int
   1929 sys_mkfifo(struct lwp *l, const struct sys_mkfifo_args *uap, register_t *retval)
   1930 {
   1931 	/* {
   1932 		syscallarg(const char *) path;
   1933 		syscallarg(int) mode;
   1934 	} */
   1935 	struct proc *p = l->l_proc;
   1936 	struct vattr vattr;
   1937 	int error;
   1938 	struct nameidata nd;
   1939 
   1940 	NDINIT(&nd, CREATE, LOCKPARENT | TRYEMULROOT, UIO_USERSPACE,
   1941 	    SCARG(uap, path));
   1942 	if ((error = namei(&nd)) != 0)
   1943 		return (error);
   1944 	if (nd.ni_vp != NULL) {
   1945 		VOP_ABORTOP(nd.ni_dvp, &nd.ni_cnd);
   1946 		if (nd.ni_dvp == nd.ni_vp)
   1947 			vrele(nd.ni_dvp);
   1948 		else
   1949 			vput(nd.ni_dvp);
   1950 		vrele(nd.ni_vp);
   1951 		return (EEXIST);
   1952 	}
   1953 	VATTR_NULL(&vattr);
   1954 	vattr.va_type = VFIFO;
   1955 	/* We will read cwdi->cwdi_cmask unlocked. */
   1956 	vattr.va_mode = (SCARG(uap, mode) & ALLPERMS) &~ p->p_cwdi->cwdi_cmask;
   1957 	error = VOP_MKNOD(nd.ni_dvp, &nd.ni_vp, &nd.ni_cnd, &vattr);
   1958 	if (error == 0)
   1959 		vput(nd.ni_vp);
   1960 	return (error);
   1961 }
   1962 
   1963 /*
   1964  * Make a hard file link.
   1965  */
   1966 /* ARGSUSED */
   1967 int
   1968 sys_link(struct lwp *l, const struct sys_link_args *uap, register_t *retval)
   1969 {
   1970 	/* {
   1971 		syscallarg(const char *) path;
   1972 		syscallarg(const char *) link;
   1973 	} */
   1974 	struct vnode *vp;
   1975 	struct nameidata nd;
   1976 	int error;
   1977 
   1978 	error = namei_simple_user(SCARG(uap, path),
   1979 				NSM_FOLLOW_TRYEMULROOT, &vp);
   1980 	if (error != 0)
   1981 		return (error);
   1982 	NDINIT(&nd, CREATE, LOCKPARENT | TRYEMULROOT, UIO_USERSPACE,
   1983 	    SCARG(uap, link));
   1984 	if ((error = namei(&nd)) != 0)
   1985 		goto out;
   1986 	if (nd.ni_vp) {
   1987 		VOP_ABORTOP(nd.ni_dvp, &nd.ni_cnd);
   1988 		if (nd.ni_dvp == nd.ni_vp)
   1989 			vrele(nd.ni_dvp);
   1990 		else
   1991 			vput(nd.ni_dvp);
   1992 		vrele(nd.ni_vp);
   1993 		error = EEXIST;
   1994 		goto out;
   1995 	}
   1996 	error = VOP_LINK(nd.ni_dvp, vp, &nd.ni_cnd);
   1997 out:
   1998 	vrele(vp);
   1999 	return (error);
   2000 }
   2001 
   2002 /*
   2003  * Make a symbolic link.
   2004  */
   2005 /* ARGSUSED */
   2006 int
   2007 sys_symlink(struct lwp *l, const struct sys_symlink_args *uap, register_t *retval)
   2008 {
   2009 	/* {
   2010 		syscallarg(const char *) path;
   2011 		syscallarg(const char *) link;
   2012 	} */
   2013 	struct proc *p = l->l_proc;
   2014 	struct vattr vattr;
   2015 	char *path;
   2016 	int error;
   2017 	struct nameidata nd;
   2018 
   2019 	path = PNBUF_GET();
   2020 	error = copyinstr(SCARG(uap, path), path, MAXPATHLEN, NULL);
   2021 	if (error)
   2022 		goto out;
   2023 	NDINIT(&nd, CREATE, LOCKPARENT | TRYEMULROOT, UIO_USERSPACE,
   2024 	    SCARG(uap, link));
   2025 	if ((error = namei(&nd)) != 0)
   2026 		goto out;
   2027 	if (nd.ni_vp) {
   2028 		VOP_ABORTOP(nd.ni_dvp, &nd.ni_cnd);
   2029 		if (nd.ni_dvp == nd.ni_vp)
   2030 			vrele(nd.ni_dvp);
   2031 		else
   2032 			vput(nd.ni_dvp);
   2033 		vrele(nd.ni_vp);
   2034 		error = EEXIST;
   2035 		goto out;
   2036 	}
   2037 	VATTR_NULL(&vattr);
   2038 	vattr.va_type = VLNK;
   2039 	/* We will read cwdi->cwdi_cmask unlocked. */
   2040 	vattr.va_mode = ACCESSPERMS &~ p->p_cwdi->cwdi_cmask;
   2041 	error = VOP_SYMLINK(nd.ni_dvp, &nd.ni_vp, &nd.ni_cnd, &vattr, path);
   2042 	if (error == 0)
   2043 		vput(nd.ni_vp);
   2044 out:
   2045 	PNBUF_PUT(path);
   2046 	return (error);
   2047 }
   2048 
   2049 /*
   2050  * Delete a whiteout from the filesystem.
   2051  */
   2052 /* ARGSUSED */
   2053 int
   2054 sys_undelete(struct lwp *l, const struct sys_undelete_args *uap, register_t *retval)
   2055 {
   2056 	/* {
   2057 		syscallarg(const char *) path;
   2058 	} */
   2059 	int error;
   2060 	struct nameidata nd;
   2061 
   2062 	NDINIT(&nd, DELETE, LOCKPARENT | DOWHITEOUT | TRYEMULROOT,
   2063 	    UIO_USERSPACE, SCARG(uap, path));
   2064 	error = namei(&nd);
   2065 	if (error)
   2066 		return (error);
   2067 
   2068 	if (nd.ni_vp != NULLVP || !(nd.ni_cnd.cn_flags & ISWHITEOUT)) {
   2069 		VOP_ABORTOP(nd.ni_dvp, &nd.ni_cnd);
   2070 		if (nd.ni_dvp == nd.ni_vp)
   2071 			vrele(nd.ni_dvp);
   2072 		else
   2073 			vput(nd.ni_dvp);
   2074 		if (nd.ni_vp)
   2075 			vrele(nd.ni_vp);
   2076 		return (EEXIST);
   2077 	}
   2078 	if ((error = VOP_WHITEOUT(nd.ni_dvp, &nd.ni_cnd, DELETE)) != 0)
   2079 		VOP_ABORTOP(nd.ni_dvp, &nd.ni_cnd);
   2080 	vput(nd.ni_dvp);
   2081 	return (error);
   2082 }
   2083 
   2084 /*
   2085  * Delete a name from the filesystem.
   2086  */
   2087 /* ARGSUSED */
   2088 int
   2089 sys_unlink(struct lwp *l, const struct sys_unlink_args *uap, register_t *retval)
   2090 {
   2091 	/* {
   2092 		syscallarg(const char *) path;
   2093 	} */
   2094 
   2095 	return do_sys_unlink(SCARG(uap, path), UIO_USERSPACE);
   2096 }
   2097 
   2098 int
   2099 do_sys_unlink(const char *arg, enum uio_seg seg)
   2100 {
   2101 	struct vnode *vp;
   2102 	int error;
   2103 	struct nameidata nd;
   2104 	char *path;
   2105 	const char *cpath;
   2106 
   2107 	VERIEXEC_PATH_GET(arg, seg, cpath, path);
   2108 	NDINIT(&nd, DELETE, LOCKPARENT | LOCKLEAF | TRYEMULROOT, seg, cpath);
   2109 
   2110 	if ((error = namei(&nd)) != 0)
   2111 		goto out;
   2112 	vp = nd.ni_vp;
   2113 
   2114 	/*
   2115 	 * The root of a mounted filesystem cannot be deleted.
   2116 	 */
   2117 	if (vp->v_vflag & VV_ROOT) {
   2118 		VOP_ABORTOP(nd.ni_dvp, &nd.ni_cnd);
   2119 		if (nd.ni_dvp == vp)
   2120 			vrele(nd.ni_dvp);
   2121 		else
   2122 			vput(nd.ni_dvp);
   2123 		vput(vp);
   2124 		error = EBUSY;
   2125 		goto out;
   2126 	}
   2127 
   2128 #if NVERIEXEC > 0
   2129 	/* Handle remove requests for veriexec entries. */
   2130 	if ((error = veriexec_removechk(curlwp, nd.ni_vp, nd.ni_dirp)) != 0) {
   2131 		VOP_ABORTOP(nd.ni_dvp, &nd.ni_cnd);
   2132 		if (nd.ni_dvp == vp)
   2133 			vrele(nd.ni_dvp);
   2134 		else
   2135 			vput(nd.ni_dvp);
   2136 		vput(vp);
   2137 		goto out;
   2138 	}
   2139 #endif /* NVERIEXEC > 0 */
   2140 
   2141 #ifdef FILEASSOC
   2142 	(void)fileassoc_file_delete(vp);
   2143 #endif /* FILEASSOC */
   2144 	error = VOP_REMOVE(nd.ni_dvp, nd.ni_vp, &nd.ni_cnd);
   2145 out:
   2146 	VERIEXEC_PATH_PUT(path);
   2147 	return (error);
   2148 }
   2149 
   2150 /*
   2151  * Reposition read/write file offset.
   2152  */
   2153 int
   2154 sys_lseek(struct lwp *l, const struct sys_lseek_args *uap, register_t *retval)
   2155 {
   2156 	/* {
   2157 		syscallarg(int) fd;
   2158 		syscallarg(int) pad;
   2159 		syscallarg(off_t) offset;
   2160 		syscallarg(int) whence;
   2161 	} */
   2162 	kauth_cred_t cred = l->l_cred;
   2163 	file_t *fp;
   2164 	struct vnode *vp;
   2165 	struct vattr vattr;
   2166 	off_t newoff;
   2167 	int error, fd;
   2168 
   2169 	fd = SCARG(uap, fd);
   2170 
   2171 	if ((fp = fd_getfile(fd)) == NULL)
   2172 		return (EBADF);
   2173 
   2174 	vp = fp->f_data;
   2175 	if (fp->f_type != DTYPE_VNODE || vp->v_type == VFIFO) {
   2176 		error = ESPIPE;
   2177 		goto out;
   2178 	}
   2179 
   2180 	switch (SCARG(uap, whence)) {
   2181 	case SEEK_CUR:
   2182 		newoff = fp->f_offset + SCARG(uap, offset);
   2183 		break;
   2184 	case SEEK_END:
   2185 		error = VOP_GETATTR(vp, &vattr, cred);
   2186 		if (error) {
   2187 			goto out;
   2188 		}
   2189 		newoff = SCARG(uap, offset) + vattr.va_size;
   2190 		break;
   2191 	case SEEK_SET:
   2192 		newoff = SCARG(uap, offset);
   2193 		break;
   2194 	default:
   2195 		error = EINVAL;
   2196 		goto out;
   2197 	}
   2198 	if ((error = VOP_SEEK(vp, fp->f_offset, newoff, cred)) == 0) {
   2199 		*(off_t *)retval = fp->f_offset = newoff;
   2200 	}
   2201  out:
   2202  	fd_putfile(fd);
   2203 	return (error);
   2204 }
   2205 
   2206 /*
   2207  * Positional read system call.
   2208  */
   2209 int
   2210 sys_pread(struct lwp *l, const struct sys_pread_args *uap, register_t *retval)
   2211 {
   2212 	/* {
   2213 		syscallarg(int) fd;
   2214 		syscallarg(void *) buf;
   2215 		syscallarg(size_t) nbyte;
   2216 		syscallarg(off_t) offset;
   2217 	} */
   2218 	file_t *fp;
   2219 	struct vnode *vp;
   2220 	off_t offset;
   2221 	int error, fd = SCARG(uap, fd);
   2222 
   2223 	if ((fp = fd_getfile(fd)) == NULL)
   2224 		return (EBADF);
   2225 
   2226 	if ((fp->f_flag & FREAD) == 0) {
   2227 		fd_putfile(fd);
   2228 		return (EBADF);
   2229 	}
   2230 
   2231 	vp = fp->f_data;
   2232 	if (fp->f_type != DTYPE_VNODE || vp->v_type == VFIFO) {
   2233 		error = ESPIPE;
   2234 		goto out;
   2235 	}
   2236 
   2237 	offset = SCARG(uap, offset);
   2238 
   2239 	/*
   2240 	 * XXX This works because no file systems actually
   2241 	 * XXX take any action on the seek operation.
   2242 	 */
   2243 	if ((error = VOP_SEEK(vp, fp->f_offset, offset, fp->f_cred)) != 0)
   2244 		goto out;
   2245 
   2246 	/* dofileread() will unuse the descriptor for us */
   2247 	return (dofileread(fd, fp, SCARG(uap, buf), SCARG(uap, nbyte),
   2248 	    &offset, 0, retval));
   2249 
   2250  out:
   2251 	fd_putfile(fd);
   2252 	return (error);
   2253 }
   2254 
   2255 /*
   2256  * Positional scatter read system call.
   2257  */
   2258 int
   2259 sys_preadv(struct lwp *l, const struct sys_preadv_args *uap, register_t *retval)
   2260 {
   2261 	/* {
   2262 		syscallarg(int) fd;
   2263 		syscallarg(const struct iovec *) iovp;
   2264 		syscallarg(int) iovcnt;
   2265 		syscallarg(off_t) offset;
   2266 	} */
   2267 	off_t offset = SCARG(uap, offset);
   2268 
   2269 	return do_filereadv(SCARG(uap, fd), SCARG(uap, iovp),
   2270 	    SCARG(uap, iovcnt), &offset, 0, retval);
   2271 }
   2272 
   2273 /*
   2274  * Positional write system call.
   2275  */
   2276 int
   2277 sys_pwrite(struct lwp *l, const struct sys_pwrite_args *uap, register_t *retval)
   2278 {
   2279 	/* {
   2280 		syscallarg(int) fd;
   2281 		syscallarg(const void *) buf;
   2282 		syscallarg(size_t) nbyte;
   2283 		syscallarg(off_t) offset;
   2284 	} */
   2285 	file_t *fp;
   2286 	struct vnode *vp;
   2287 	off_t offset;
   2288 	int error, fd = SCARG(uap, fd);
   2289 
   2290 	if ((fp = fd_getfile(fd)) == NULL)
   2291 		return (EBADF);
   2292 
   2293 	if ((fp->f_flag & FWRITE) == 0) {
   2294 		fd_putfile(fd);
   2295 		return (EBADF);
   2296 	}
   2297 
   2298 	vp = fp->f_data;
   2299 	if (fp->f_type != DTYPE_VNODE || vp->v_type == VFIFO) {
   2300 		error = ESPIPE;
   2301 		goto out;
   2302 	}
   2303 
   2304 	offset = SCARG(uap, offset);
   2305 
   2306 	/*
   2307 	 * XXX This works because no file systems actually
   2308 	 * XXX take any action on the seek operation.
   2309 	 */
   2310 	if ((error = VOP_SEEK(vp, fp->f_offset, offset, fp->f_cred)) != 0)
   2311 		goto out;
   2312 
   2313 	/* dofilewrite() will unuse the descriptor for us */
   2314 	return (dofilewrite(fd, fp, SCARG(uap, buf), SCARG(uap, nbyte),
   2315 	    &offset, 0, retval));
   2316 
   2317  out:
   2318 	fd_putfile(fd);
   2319 	return (error);
   2320 }
   2321 
   2322 /*
   2323  * Positional gather write system call.
   2324  */
   2325 int
   2326 sys_pwritev(struct lwp *l, const struct sys_pwritev_args *uap, register_t *retval)
   2327 {
   2328 	/* {
   2329 		syscallarg(int) fd;
   2330 		syscallarg(const struct iovec *) iovp;
   2331 		syscallarg(int) iovcnt;
   2332 		syscallarg(off_t) offset;
   2333 	} */
   2334 	off_t offset = SCARG(uap, offset);
   2335 
   2336 	return do_filewritev(SCARG(uap, fd), SCARG(uap, iovp),
   2337 	    SCARG(uap, iovcnt), &offset, 0, retval);
   2338 }
   2339 
   2340 /*
   2341  * Check access permissions.
   2342  */
   2343 int
   2344 sys_access(struct lwp *l, const struct sys_access_args *uap, register_t *retval)
   2345 {
   2346 	/* {
   2347 		syscallarg(const char *) path;
   2348 		syscallarg(int) flags;
   2349 	} */
   2350 	kauth_cred_t cred;
   2351 	struct vnode *vp;
   2352 	int error, flags;
   2353 	struct nameidata nd;
   2354 
   2355 	cred = kauth_cred_dup(l->l_cred);
   2356 	kauth_cred_seteuid(cred, kauth_cred_getuid(l->l_cred));
   2357 	kauth_cred_setegid(cred, kauth_cred_getgid(l->l_cred));
   2358 	NDINIT(&nd, LOOKUP, FOLLOW | LOCKLEAF | TRYEMULROOT, UIO_USERSPACE,
   2359 	    SCARG(uap, path));
   2360 	/* Override default credentials */
   2361 	nd.ni_cnd.cn_cred = cred;
   2362 	if ((error = namei(&nd)) != 0)
   2363 		goto out;
   2364 	vp = nd.ni_vp;
   2365 
   2366 	/* Flags == 0 means only check for existence. */
   2367 	if (SCARG(uap, flags)) {
   2368 		flags = 0;
   2369 		if (SCARG(uap, flags) & R_OK)
   2370 			flags |= VREAD;
   2371 		if (SCARG(uap, flags) & W_OK)
   2372 			flags |= VWRITE;
   2373 		if (SCARG(uap, flags) & X_OK)
   2374 			flags |= VEXEC;
   2375 
   2376 		error = VOP_ACCESS(vp, flags, cred);
   2377 		if (!error && (flags & VWRITE))
   2378 			error = vn_writechk(vp);
   2379 	}
   2380 	vput(vp);
   2381 out:
   2382 	kauth_cred_free(cred);
   2383 	return (error);
   2384 }
   2385 
   2386 /*
   2387  * Common code for all sys_stat functions, including compat versions.
   2388  */
   2389 int
   2390 do_sys_stat(const char *path, unsigned int nd_flags, struct stat *sb)
   2391 {
   2392 	int error;
   2393 	struct nameidata nd;
   2394 
   2395 	NDINIT(&nd, LOOKUP, nd_flags | LOCKLEAF | TRYEMULROOT,
   2396 	    UIO_USERSPACE, path);
   2397 	error = namei(&nd);
   2398 	if (error != 0)
   2399 		return error;
   2400 	error = vn_stat(nd.ni_vp, sb);
   2401 	vput(nd.ni_vp);
   2402 	return error;
   2403 }
   2404 
   2405 /*
   2406  * Get file status; this version follows links.
   2407  */
   2408 /* ARGSUSED */
   2409 int
   2410 sys___stat50(struct lwp *l, const struct sys___stat50_args *uap, register_t *retval)
   2411 {
   2412 	/* {
   2413 		syscallarg(const char *) path;
   2414 		syscallarg(struct stat *) ub;
   2415 	} */
   2416 	struct stat sb;
   2417 	int error;
   2418 
   2419 	error = do_sys_stat(SCARG(uap, path), FOLLOW, &sb);
   2420 	if (error)
   2421 		return error;
   2422 	return copyout(&sb, SCARG(uap, ub), sizeof(sb));
   2423 }
   2424 
   2425 /*
   2426  * Get file status; this version does not follow links.
   2427  */
   2428 /* ARGSUSED */
   2429 int
   2430 sys___lstat50(struct lwp *l, const struct sys___lstat50_args *uap, register_t *retval)
   2431 {
   2432 	/* {
   2433 		syscallarg(const char *) path;
   2434 		syscallarg(struct stat *) ub;
   2435 	} */
   2436 	struct stat sb;
   2437 	int error;
   2438 
   2439 	error = do_sys_stat(SCARG(uap, path), NOFOLLOW, &sb);
   2440 	if (error)
   2441 		return error;
   2442 	return copyout(&sb, SCARG(uap, ub), sizeof(sb));
   2443 }
   2444 
   2445 /*
   2446  * Get configurable pathname variables.
   2447  */
   2448 /* ARGSUSED */
   2449 int
   2450 sys_pathconf(struct lwp *l, const struct sys_pathconf_args *uap, register_t *retval)
   2451 {
   2452 	/* {
   2453 		syscallarg(const char *) path;
   2454 		syscallarg(int) name;
   2455 	} */
   2456 	int error;
   2457 	struct nameidata nd;
   2458 
   2459 	NDINIT(&nd, LOOKUP, FOLLOW | LOCKLEAF | TRYEMULROOT, UIO_USERSPACE,
   2460 	    SCARG(uap, path));
   2461 	if ((error = namei(&nd)) != 0)
   2462 		return (error);
   2463 	error = VOP_PATHCONF(nd.ni_vp, SCARG(uap, name), retval);
   2464 	vput(nd.ni_vp);
   2465 	return (error);
   2466 }
   2467 
   2468 /*
   2469  * Return target name of a symbolic link.
   2470  */
   2471 /* ARGSUSED */
   2472 int
   2473 sys_readlink(struct lwp *l, const struct sys_readlink_args *uap, register_t *retval)
   2474 {
   2475 	/* {
   2476 		syscallarg(const char *) path;
   2477 		syscallarg(char *) buf;
   2478 		syscallarg(size_t) count;
   2479 	} */
   2480 	struct vnode *vp;
   2481 	struct iovec aiov;
   2482 	struct uio auio;
   2483 	int error;
   2484 	struct nameidata nd;
   2485 
   2486 	NDINIT(&nd, LOOKUP, NOFOLLOW | LOCKLEAF | TRYEMULROOT, UIO_USERSPACE,
   2487 	    SCARG(uap, path));
   2488 	if ((error = namei(&nd)) != 0)
   2489 		return (error);
   2490 	vp = nd.ni_vp;
   2491 	if (vp->v_type != VLNK)
   2492 		error = EINVAL;
   2493 	else if (!(vp->v_mount->mnt_flag & MNT_SYMPERM) ||
   2494 	    (error = VOP_ACCESS(vp, VREAD, l->l_cred)) == 0) {
   2495 		aiov.iov_base = SCARG(uap, buf);
   2496 		aiov.iov_len = SCARG(uap, count);
   2497 		auio.uio_iov = &aiov;
   2498 		auio.uio_iovcnt = 1;
   2499 		auio.uio_offset = 0;
   2500 		auio.uio_rw = UIO_READ;
   2501 		KASSERT(l == curlwp);
   2502 		auio.uio_vmspace = l->l_proc->p_vmspace;
   2503 		auio.uio_resid = SCARG(uap, count);
   2504 		error = VOP_READLINK(vp, &auio, l->l_cred);
   2505 	}
   2506 	vput(vp);
   2507 	*retval = SCARG(uap, count) - auio.uio_resid;
   2508 	return (error);
   2509 }
   2510 
   2511 /*
   2512  * Change flags of a file given a path name.
   2513  */
   2514 /* ARGSUSED */
   2515 int
   2516 sys_chflags(struct lwp *l, const struct sys_chflags_args *uap, register_t *retval)
   2517 {
   2518 	/* {
   2519 		syscallarg(const char *) path;
   2520 		syscallarg(u_long) flags;
   2521 	} */
   2522 	struct vnode *vp;
   2523 	int error;
   2524 
   2525 	error = namei_simple_user(SCARG(uap, path),
   2526 				NSM_FOLLOW_TRYEMULROOT, &vp);
   2527 	if (error != 0)
   2528 		return (error);
   2529 	error = change_flags(vp, SCARG(uap, flags), l);
   2530 	vput(vp);
   2531 	return (error);
   2532 }
   2533 
   2534 /*
   2535  * Change flags of a file given a file descriptor.
   2536  */
   2537 /* ARGSUSED */
   2538 int
   2539 sys_fchflags(struct lwp *l, const struct sys_fchflags_args *uap, register_t *retval)
   2540 {
   2541 	/* {
   2542 		syscallarg(int) fd;
   2543 		syscallarg(u_long) flags;
   2544 	} */
   2545 	struct vnode *vp;
   2546 	file_t *fp;
   2547 	int error;
   2548 
   2549 	/* fd_getvnode() will use the descriptor for us */
   2550 	if ((error = fd_getvnode(SCARG(uap, fd), &fp)) != 0)
   2551 		return (error);
   2552 	vp = fp->f_data;
   2553 	error = change_flags(vp, SCARG(uap, flags), l);
   2554 	VOP_UNLOCK(vp, 0);
   2555 	fd_putfile(SCARG(uap, fd));
   2556 	return (error);
   2557 }
   2558 
   2559 /*
   2560  * Change flags of a file given a path name; this version does
   2561  * not follow links.
   2562  */
   2563 int
   2564 sys_lchflags(struct lwp *l, const struct sys_lchflags_args *uap, register_t *retval)
   2565 {
   2566 	/* {
   2567 		syscallarg(const char *) path;
   2568 		syscallarg(u_long) flags;
   2569 	} */
   2570 	struct vnode *vp;
   2571 	int error;
   2572 
   2573 	error = namei_simple_user(SCARG(uap, path),
   2574 				NSM_NOFOLLOW_TRYEMULROOT, &vp);
   2575 	if (error != 0)
   2576 		return (error);
   2577 	error = change_flags(vp, SCARG(uap, flags), l);
   2578 	vput(vp);
   2579 	return (error);
   2580 }
   2581 
   2582 /*
   2583  * Common routine to change flags of a file.
   2584  */
   2585 int
   2586 change_flags(struct vnode *vp, u_long flags, struct lwp *l)
   2587 {
   2588 	struct vattr vattr;
   2589 	int error;
   2590 
   2591 	vn_lock(vp, LK_EXCLUSIVE | LK_RETRY);
   2592 	/*
   2593 	 * Non-superusers cannot change the flags on devices, even if they
   2594 	 * own them.
   2595 	 */
   2596 	if (kauth_authorize_generic(l->l_cred, KAUTH_GENERIC_ISSUSER, NULL)) {
   2597 		if ((error = VOP_GETATTR(vp, &vattr, l->l_cred)) != 0)
   2598 			goto out;
   2599 		if (vattr.va_type == VCHR || vattr.va_type == VBLK) {
   2600 			error = EINVAL;
   2601 			goto out;
   2602 		}
   2603 	}
   2604 	VATTR_NULL(&vattr);
   2605 	vattr.va_flags = flags;
   2606 	error = VOP_SETATTR(vp, &vattr, l->l_cred);
   2607 out:
   2608 	return (error);
   2609 }
   2610 
   2611 /*
   2612  * Change mode of a file given path name; this version follows links.
   2613  */
   2614 /* ARGSUSED */
   2615 int
   2616 sys_chmod(struct lwp *l, const struct sys_chmod_args *uap, register_t *retval)
   2617 {
   2618 	/* {
   2619 		syscallarg(const char *) path;
   2620 		syscallarg(int) mode;
   2621 	} */
   2622 	int error;
   2623 	struct vnode *vp;
   2624 
   2625 	error = namei_simple_user(SCARG(uap, path),
   2626 				NSM_FOLLOW_TRYEMULROOT, &vp);
   2627 	if (error != 0)
   2628 		return (error);
   2629 
   2630 	error = change_mode(vp, SCARG(uap, mode), l);
   2631 
   2632 	vrele(vp);
   2633 	return (error);
   2634 }
   2635 
   2636 /*
   2637  * Change mode of a file given a file descriptor.
   2638  */
   2639 /* ARGSUSED */
   2640 int
   2641 sys_fchmod(struct lwp *l, const struct sys_fchmod_args *uap, register_t *retval)
   2642 {
   2643 	/* {
   2644 		syscallarg(int) fd;
   2645 		syscallarg(int) mode;
   2646 	} */
   2647 	file_t *fp;
   2648 	int error;
   2649 
   2650 	/* fd_getvnode() will use the descriptor for us */
   2651 	if ((error = fd_getvnode(SCARG(uap, fd), &fp)) != 0)
   2652 		return (error);
   2653 	error = change_mode(fp->f_data, SCARG(uap, mode), l);
   2654 	fd_putfile(SCARG(uap, fd));
   2655 	return (error);
   2656 }
   2657 
   2658 /*
   2659  * Change mode of a file given path name; this version does not follow links.
   2660  */
   2661 /* ARGSUSED */
   2662 int
   2663 sys_lchmod(struct lwp *l, const struct sys_lchmod_args *uap, register_t *retval)
   2664 {
   2665 	/* {
   2666 		syscallarg(const char *) path;
   2667 		syscallarg(int) mode;
   2668 	} */
   2669 	int error;
   2670 	struct vnode *vp;
   2671 
   2672 	error = namei_simple_user(SCARG(uap, path),
   2673 				NSM_NOFOLLOW_TRYEMULROOT, &vp);
   2674 	if (error != 0)
   2675 		return (error);
   2676 
   2677 	error = change_mode(vp, SCARG(uap, mode), l);
   2678 
   2679 	vrele(vp);
   2680 	return (error);
   2681 }
   2682 
   2683 /*
   2684  * Common routine to set mode given a vnode.
   2685  */
   2686 static int
   2687 change_mode(struct vnode *vp, int mode, struct lwp *l)
   2688 {
   2689 	struct vattr vattr;
   2690 	int error;
   2691 
   2692 	vn_lock(vp, LK_EXCLUSIVE | LK_RETRY);
   2693 	VATTR_NULL(&vattr);
   2694 	vattr.va_mode = mode & ALLPERMS;
   2695 	error = VOP_SETATTR(vp, &vattr, l->l_cred);
   2696 	VOP_UNLOCK(vp, 0);
   2697 	return (error);
   2698 }
   2699 
   2700 /*
   2701  * Set ownership given a path name; this version follows links.
   2702  */
   2703 /* ARGSUSED */
   2704 int
   2705 sys_chown(struct lwp *l, const struct sys_chown_args *uap, register_t *retval)
   2706 {
   2707 	/* {
   2708 		syscallarg(const char *) path;
   2709 		syscallarg(uid_t) uid;
   2710 		syscallarg(gid_t) gid;
   2711 	} */
   2712 	int error;
   2713 	struct vnode *vp;
   2714 
   2715 	error = namei_simple_user(SCARG(uap, path),
   2716 				NSM_FOLLOW_TRYEMULROOT, &vp);
   2717 	if (error != 0)
   2718 		return (error);
   2719 
   2720 	error = change_owner(vp, SCARG(uap, uid), SCARG(uap, gid), l, 0);
   2721 
   2722 	vrele(vp);
   2723 	return (error);
   2724 }
   2725 
   2726 /*
   2727  * Set ownership given a path name; this version follows links.
   2728  * Provides POSIX semantics.
   2729  */
   2730 /* ARGSUSED */
   2731 int
   2732 sys___posix_chown(struct lwp *l, const struct sys___posix_chown_args *uap, register_t *retval)
   2733 {
   2734 	/* {
   2735 		syscallarg(const char *) path;
   2736 		syscallarg(uid_t) uid;
   2737 		syscallarg(gid_t) gid;
   2738 	} */
   2739 	int error;
   2740 	struct vnode *vp;
   2741 
   2742 	error = namei_simple_user(SCARG(uap, path),
   2743 				NSM_FOLLOW_TRYEMULROOT, &vp);
   2744 	if (error != 0)
   2745 		return (error);
   2746 
   2747 	error = change_owner(vp, SCARG(uap, uid), SCARG(uap, gid), l, 1);
   2748 
   2749 	vrele(vp);
   2750 	return (error);
   2751 }
   2752 
   2753 /*
   2754  * Set ownership given a file descriptor.
   2755  */
   2756 /* ARGSUSED */
   2757 int
   2758 sys_fchown(struct lwp *l, const struct sys_fchown_args *uap, register_t *retval)
   2759 {
   2760 	/* {
   2761 		syscallarg(int) fd;
   2762 		syscallarg(uid_t) uid;
   2763 		syscallarg(gid_t) gid;
   2764 	} */
   2765 	int error;
   2766 	file_t *fp;
   2767 
   2768 	/* fd_getvnode() will use the descriptor for us */
   2769 	if ((error = fd_getvnode(SCARG(uap, fd), &fp)) != 0)
   2770 		return (error);
   2771 	error = change_owner(fp->f_data, SCARG(uap, uid), SCARG(uap, gid),
   2772 	    l, 0);
   2773 	fd_putfile(SCARG(uap, fd));
   2774 	return (error);
   2775 }
   2776 
   2777 /*
   2778  * Set ownership given a file descriptor, providing POSIX/XPG semantics.
   2779  */
   2780 /* ARGSUSED */
   2781 int
   2782 sys___posix_fchown(struct lwp *l, const struct sys___posix_fchown_args *uap, register_t *retval)
   2783 {
   2784 	/* {
   2785 		syscallarg(int) fd;
   2786 		syscallarg(uid_t) uid;
   2787 		syscallarg(gid_t) gid;
   2788 	} */
   2789 	int error;
   2790 	file_t *fp;
   2791 
   2792 	/* fd_getvnode() will use the descriptor for us */
   2793 	if ((error = fd_getvnode(SCARG(uap, fd), &fp)) != 0)
   2794 		return (error);
   2795 	error = change_owner(fp->f_data, SCARG(uap, uid), SCARG(uap, gid),
   2796 	    l, 1);
   2797 	fd_putfile(SCARG(uap, fd));
   2798 	return (error);
   2799 }
   2800 
   2801 /*
   2802  * Set ownership given a path name; this version does not follow links.
   2803  */
   2804 /* ARGSUSED */
   2805 int
   2806 sys_lchown(struct lwp *l, const struct sys_lchown_args *uap, register_t *retval)
   2807 {
   2808 	/* {
   2809 		syscallarg(const char *) path;
   2810 		syscallarg(uid_t) uid;
   2811 		syscallarg(gid_t) gid;
   2812 	} */
   2813 	int error;
   2814 	struct vnode *vp;
   2815 
   2816 	error = namei_simple_user(SCARG(uap, path),
   2817 				NSM_NOFOLLOW_TRYEMULROOT, &vp);
   2818 	if (error != 0)
   2819 		return (error);
   2820 
   2821 	error = change_owner(vp, SCARG(uap, uid), SCARG(uap, gid), l, 0);
   2822 
   2823 	vrele(vp);
   2824 	return (error);
   2825 }
   2826 
   2827 /*
   2828  * Set ownership given a path name; this version does not follow links.
   2829  * Provides POSIX/XPG semantics.
   2830  */
   2831 /* ARGSUSED */
   2832 int
   2833 sys___posix_lchown(struct lwp *l, const struct sys___posix_lchown_args *uap, register_t *retval)
   2834 {
   2835 	/* {
   2836 		syscallarg(const char *) path;
   2837 		syscallarg(uid_t) uid;
   2838 		syscallarg(gid_t) gid;
   2839 	} */
   2840 	int error;
   2841 	struct vnode *vp;
   2842 
   2843 	error = namei_simple_user(SCARG(uap, path),
   2844 				NSM_NOFOLLOW_TRYEMULROOT, &vp);
   2845 	if (error != 0)
   2846 		return (error);
   2847 
   2848 	error = change_owner(vp, SCARG(uap, uid), SCARG(uap, gid), l, 1);
   2849 
   2850 	vrele(vp);
   2851 	return (error);
   2852 }
   2853 
   2854 /*
   2855  * Common routine to set ownership given a vnode.
   2856  */
   2857 static int
   2858 change_owner(struct vnode *vp, uid_t uid, gid_t gid, struct lwp *l,
   2859     int posix_semantics)
   2860 {
   2861 	struct vattr vattr;
   2862 	mode_t newmode;
   2863 	int error;
   2864 
   2865 	vn_lock(vp, LK_EXCLUSIVE | LK_RETRY);
   2866 	if ((error = VOP_GETATTR(vp, &vattr, l->l_cred)) != 0)
   2867 		goto out;
   2868 
   2869 #define CHANGED(x) ((int)(x) != -1)
   2870 	newmode = vattr.va_mode;
   2871 	if (posix_semantics) {
   2872 		/*
   2873 		 * POSIX/XPG semantics: if the caller is not the super-user,
   2874 		 * clear set-user-id and set-group-id bits.  Both POSIX and
   2875 		 * the XPG consider the behaviour for calls by the super-user
   2876 		 * implementation-defined; we leave the set-user-id and set-
   2877 		 * group-id settings intact in that case.
   2878 		 */
   2879 		if (kauth_authorize_generic(l->l_cred, KAUTH_GENERIC_ISSUSER,
   2880 				      NULL) != 0)
   2881 			newmode &= ~(S_ISUID | S_ISGID);
   2882 	} else {
   2883 		/*
   2884 		 * NetBSD semantics: when changing owner and/or group,
   2885 		 * clear the respective bit(s).
   2886 		 */
   2887 		if (CHANGED(uid))
   2888 			newmode &= ~S_ISUID;
   2889 		if (CHANGED(gid))
   2890 			newmode &= ~S_ISGID;
   2891 	}
   2892 	/* Update va_mode iff altered. */
   2893 	if (vattr.va_mode == newmode)
   2894 		newmode = VNOVAL;
   2895 
   2896 	VATTR_NULL(&vattr);
   2897 	vattr.va_uid = CHANGED(uid) ? uid : (uid_t)VNOVAL;
   2898 	vattr.va_gid = CHANGED(gid) ? gid : (gid_t)VNOVAL;
   2899 	vattr.va_mode = newmode;
   2900 	error = VOP_SETATTR(vp, &vattr, l->l_cred);
   2901 #undef CHANGED
   2902 
   2903 out:
   2904 	VOP_UNLOCK(vp, 0);
   2905 	return (error);
   2906 }
   2907 
   2908 /*
   2909  * Set the access and modification times given a path name; this
   2910  * version follows links.
   2911  */
   2912 /* ARGSUSED */
   2913 int
   2914 sys___utimes50(struct lwp *l, const struct sys___utimes50_args *uap,
   2915     register_t *retval)
   2916 {
   2917 	/* {
   2918 		syscallarg(const char *) path;
   2919 		syscallarg(const struct timeval *) tptr;
   2920 	} */
   2921 
   2922 	return do_sys_utimes(l, NULL, SCARG(uap, path), FOLLOW,
   2923 	    SCARG(uap, tptr), UIO_USERSPACE);
   2924 }
   2925 
   2926 /*
   2927  * Set the access and modification times given a file descriptor.
   2928  */
   2929 /* ARGSUSED */
   2930 int
   2931 sys___futimes50(struct lwp *l, const struct sys___futimes50_args *uap,
   2932     register_t *retval)
   2933 {
   2934 	/* {
   2935 		syscallarg(int) fd;
   2936 		syscallarg(const struct timeval *) tptr;
   2937 	} */
   2938 	int error;
   2939 	file_t *fp;
   2940 
   2941 	/* fd_getvnode() will use the descriptor for us */
   2942 	if ((error = fd_getvnode(SCARG(uap, fd), &fp)) != 0)
   2943 		return (error);
   2944 	error = do_sys_utimes(l, fp->f_data, NULL, 0, SCARG(uap, tptr),
   2945 	    UIO_USERSPACE);
   2946 	fd_putfile(SCARG(uap, fd));
   2947 	return (error);
   2948 }
   2949 
   2950 /*
   2951  * Set the access and modification times given a path name; this
   2952  * version does not follow links.
   2953  */
   2954 int
   2955 sys___lutimes50(struct lwp *l, const struct sys___lutimes50_args *uap,
   2956     register_t *retval)
   2957 {
   2958 	/* {
   2959 		syscallarg(const char *) path;
   2960 		syscallarg(const struct timeval *) tptr;
   2961 	} */
   2962 
   2963 	return do_sys_utimes(l, NULL, SCARG(uap, path), NOFOLLOW,
   2964 	    SCARG(uap, tptr), UIO_USERSPACE);
   2965 }
   2966 
   2967 /*
   2968  * Common routine to set access and modification times given a vnode.
   2969  */
   2970 int
   2971 do_sys_utimes(struct lwp *l, struct vnode *vp, const char *path, int flag,
   2972     const struct timeval *tptr, enum uio_seg seg)
   2973 {
   2974 	struct vattr vattr;
   2975 	int error, dorele = 0;
   2976 	namei_simple_flags_t sflags;
   2977 
   2978 	bool vanull, setbirthtime;
   2979 	struct timespec ts[2];
   2980 
   2981 	/*
   2982 	 * I have checked all callers and they pass either FOLLOW,
   2983 	 * NOFOLLOW, or 0 (when they don't pass a path), and NOFOLLOW
   2984 	 * is 0. More to the point, they don't pass anything else.
   2985 	 * Let's keep it that way at least until the namei interfaces
   2986 	 * are fully sanitized.
   2987 	 */
   2988 	KASSERT(flag == NOFOLLOW || flag == FOLLOW);
   2989 	sflags = (flag == FOLLOW) ?
   2990 		NSM_FOLLOW_TRYEMULROOT : NSM_NOFOLLOW_TRYEMULROOT;
   2991 
   2992 	if (tptr == NULL) {
   2993 		vanull = true;
   2994 		nanotime(&ts[0]);
   2995 		ts[1] = ts[0];
   2996 	} else {
   2997 		struct timeval tv[2];
   2998 
   2999 		vanull = false;
   3000 		if (seg != UIO_SYSSPACE) {
   3001 			error = copyin(tptr, tv, sizeof (tv));
   3002 			if (error != 0)
   3003 				return error;
   3004 			tptr = tv;
   3005 		}
   3006 		TIMEVAL_TO_TIMESPEC(&tptr[0], &ts[0]);
   3007 		TIMEVAL_TO_TIMESPEC(&tptr[1], &ts[1]);
   3008 	}
   3009 
   3010 	if (vp == NULL) {
   3011 		/* note: SEG describes TPTR, not PATH; PATH is always user */
   3012 		error = namei_simple_user(path, sflags, &vp);
   3013 		if (error != 0)
   3014 			return error;
   3015 		dorele = 1;
   3016 	}
   3017 
   3018 	vn_lock(vp, LK_EXCLUSIVE | LK_RETRY);
   3019 	setbirthtime = (VOP_GETATTR(vp, &vattr, l->l_cred) == 0 &&
   3020 	    timespeccmp(&ts[1], &vattr.va_birthtime, <));
   3021 	VATTR_NULL(&vattr);
   3022 	vattr.va_atime = ts[0];
   3023 	vattr.va_mtime = ts[1];
   3024 	if (setbirthtime)
   3025 		vattr.va_birthtime = ts[1];
   3026 	if (vanull)
   3027 		vattr.va_vaflags |= VA_UTIMES_NULL;
   3028 	error = VOP_SETATTR(vp, &vattr, l->l_cred);
   3029 	VOP_UNLOCK(vp, 0);
   3030 
   3031 	if (dorele != 0)
   3032 		vrele(vp);
   3033 
   3034 	return error;
   3035 }
   3036 
   3037 /*
   3038  * Truncate a file given its path name.
   3039  */
   3040 /* ARGSUSED */
   3041 int
   3042 sys_truncate(struct lwp *l, const struct sys_truncate_args *uap, register_t *retval)
   3043 {
   3044 	/* {
   3045 		syscallarg(const char *) path;
   3046 		syscallarg(int) pad;
   3047 		syscallarg(off_t) length;
   3048 	} */
   3049 	struct vnode *vp;
   3050 	struct vattr vattr;
   3051 	int error;
   3052 
   3053 	error = namei_simple_user(SCARG(uap, path),
   3054 				NSM_FOLLOW_TRYEMULROOT, &vp);
   3055 	if (error != 0)
   3056 		return (error);
   3057 	vn_lock(vp, LK_EXCLUSIVE | LK_RETRY);
   3058 	if (vp->v_type == VDIR)
   3059 		error = EISDIR;
   3060 	else if ((error = vn_writechk(vp)) == 0 &&
   3061 	    (error = VOP_ACCESS(vp, VWRITE, l->l_cred)) == 0) {
   3062 		VATTR_NULL(&vattr);
   3063 		vattr.va_size = SCARG(uap, length);
   3064 		error = VOP_SETATTR(vp, &vattr, l->l_cred);
   3065 	}
   3066 	vput(vp);
   3067 	return (error);
   3068 }
   3069 
   3070 /*
   3071  * Truncate a file given a file descriptor.
   3072  */
   3073 /* ARGSUSED */
   3074 int
   3075 sys_ftruncate(struct lwp *l, const struct sys_ftruncate_args *uap, register_t *retval)
   3076 {
   3077 	/* {
   3078 		syscallarg(int) fd;
   3079 		syscallarg(int) pad;
   3080 		syscallarg(off_t) length;
   3081 	} */
   3082 	struct vattr vattr;
   3083 	struct vnode *vp;
   3084 	file_t *fp;
   3085 	int error;
   3086 
   3087 	/* fd_getvnode() will use the descriptor for us */
   3088 	if ((error = fd_getvnode(SCARG(uap, fd), &fp)) != 0)
   3089 		return (error);
   3090 	if ((fp->f_flag & FWRITE) == 0) {
   3091 		error = EINVAL;
   3092 		goto out;
   3093 	}
   3094 	vp = fp->f_data;
   3095 	vn_lock(vp, LK_EXCLUSIVE | LK_RETRY);
   3096 	if (vp->v_type == VDIR)
   3097 		error = EISDIR;
   3098 	else if ((error = vn_writechk(vp)) == 0) {
   3099 		VATTR_NULL(&vattr);
   3100 		vattr.va_size = SCARG(uap, length);
   3101 		error = VOP_SETATTR(vp, &vattr, fp->f_cred);
   3102 	}
   3103 	VOP_UNLOCK(vp, 0);
   3104  out:
   3105 	fd_putfile(SCARG(uap, fd));
   3106 	return (error);
   3107 }
   3108 
   3109 /*
   3110  * Sync an open file.
   3111  */
   3112 /* ARGSUSED */
   3113 int
   3114 sys_fsync(struct lwp *l, const struct sys_fsync_args *uap, register_t *retval)
   3115 {
   3116 	/* {
   3117 		syscallarg(int) fd;
   3118 	} */
   3119 	struct vnode *vp;
   3120 	file_t *fp;
   3121 	int error;
   3122 
   3123 	/* fd_getvnode() will use the descriptor for us */
   3124 	if ((error = fd_getvnode(SCARG(uap, fd), &fp)) != 0)
   3125 		return (error);
   3126 	vp = fp->f_data;
   3127 	vn_lock(vp, LK_EXCLUSIVE | LK_RETRY);
   3128 	error = VOP_FSYNC(vp, fp->f_cred, FSYNC_WAIT, 0, 0);
   3129 	VOP_UNLOCK(vp, 0);
   3130 	fd_putfile(SCARG(uap, fd));
   3131 	return (error);
   3132 }
   3133 
   3134 /*
   3135  * Sync a range of file data.  API modeled after that found in AIX.
   3136  *
   3137  * FDATASYNC indicates that we need only save enough metadata to be able
   3138  * to re-read the written data.  Note we duplicate AIX's requirement that
   3139  * the file be open for writing.
   3140  */
   3141 /* ARGSUSED */
   3142 int
   3143 sys_fsync_range(struct lwp *l, const struct sys_fsync_range_args *uap, register_t *retval)
   3144 {
   3145 	/* {
   3146 		syscallarg(int) fd;
   3147 		syscallarg(int) flags;
   3148 		syscallarg(off_t) start;
   3149 		syscallarg(off_t) length;
   3150 	} */
   3151 	struct vnode *vp;
   3152 	file_t *fp;
   3153 	int flags, nflags;
   3154 	off_t s, e, len;
   3155 	int error;
   3156 
   3157 	/* fd_getvnode() will use the descriptor for us */
   3158 	if ((error = fd_getvnode(SCARG(uap, fd), &fp)) != 0)
   3159 		return (error);
   3160 
   3161 	if ((fp->f_flag & FWRITE) == 0) {
   3162 		error = EBADF;
   3163 		goto out;
   3164 	}
   3165 
   3166 	flags = SCARG(uap, flags);
   3167 	if (((flags & (FDATASYNC | FFILESYNC)) == 0) ||
   3168 	    ((~flags & (FDATASYNC | FFILESYNC)) == 0)) {
   3169 		error = EINVAL;
   3170 		goto out;
   3171 	}
   3172 	/* Now set up the flags for value(s) to pass to VOP_FSYNC() */
   3173 	if (flags & FDATASYNC)
   3174 		nflags = FSYNC_DATAONLY | FSYNC_WAIT;
   3175 	else
   3176 		nflags = FSYNC_WAIT;
   3177 	if (flags & FDISKSYNC)
   3178 		nflags |= FSYNC_CACHE;
   3179 
   3180 	len = SCARG(uap, length);
   3181 	/* If length == 0, we do the whole file, and s = l = 0 will do that */
   3182 	if (len) {
   3183 		s = SCARG(uap, start);
   3184 		e = s + len;
   3185 		if (e < s) {
   3186 			error = EINVAL;
   3187 			goto out;
   3188 		}
   3189 	} else {
   3190 		e = 0;
   3191 		s = 0;
   3192 	}
   3193 
   3194 	vp = fp->f_data;
   3195 	vn_lock(vp, LK_EXCLUSIVE | LK_RETRY);
   3196 	error = VOP_FSYNC(vp, fp->f_cred, nflags, s, e);
   3197 	VOP_UNLOCK(vp, 0);
   3198 out:
   3199 	fd_putfile(SCARG(uap, fd));
   3200 	return (error);
   3201 }
   3202 
   3203 /*
   3204  * Sync the data of an open file.
   3205  */
   3206 /* ARGSUSED */
   3207 int
   3208 sys_fdatasync(struct lwp *l, const struct sys_fdatasync_args *uap, register_t *retval)
   3209 {
   3210 	/* {
   3211 		syscallarg(int) fd;
   3212 	} */
   3213 	struct vnode *vp;
   3214 	file_t *fp;
   3215 	int error;
   3216 
   3217 	/* fd_getvnode() will use the descriptor for us */
   3218 	if ((error = fd_getvnode(SCARG(uap, fd), &fp)) != 0)
   3219 		return (error);
   3220 	if ((fp->f_flag & FWRITE) == 0) {
   3221 		fd_putfile(SCARG(uap, fd));
   3222 		return (EBADF);
   3223 	}
   3224 	vp = fp->f_data;
   3225 	vn_lock(vp, LK_EXCLUSIVE | LK_RETRY);
   3226 	error = VOP_FSYNC(vp, fp->f_cred, FSYNC_WAIT|FSYNC_DATAONLY, 0, 0);
   3227 	VOP_UNLOCK(vp, 0);
   3228 	fd_putfile(SCARG(uap, fd));
   3229 	return (error);
   3230 }
   3231 
   3232 /*
   3233  * Rename files, (standard) BSD semantics frontend.
   3234  */
   3235 /* ARGSUSED */
   3236 int
   3237 sys_rename(struct lwp *l, const struct sys_rename_args *uap, register_t *retval)
   3238 {
   3239 	/* {
   3240 		syscallarg(const char *) from;
   3241 		syscallarg(const char *) to;
   3242 	} */
   3243 
   3244 	return (do_sys_rename(SCARG(uap, from), SCARG(uap, to), UIO_USERSPACE, 0));
   3245 }
   3246 
   3247 /*
   3248  * Rename files, POSIX semantics frontend.
   3249  */
   3250 /* ARGSUSED */
   3251 int
   3252 sys___posix_rename(struct lwp *l, const struct sys___posix_rename_args *uap, register_t *retval)
   3253 {
   3254 	/* {
   3255 		syscallarg(const char *) from;
   3256 		syscallarg(const char *) to;
   3257 	} */
   3258 
   3259 	return (do_sys_rename(SCARG(uap, from), SCARG(uap, to), UIO_USERSPACE, 1));
   3260 }
   3261 
   3262 /*
   3263  * Rename files.  Source and destination must either both be directories,
   3264  * or both not be directories.  If target is a directory, it must be empty.
   3265  * If `from' and `to' refer to the same object, the value of the `retain'
   3266  * argument is used to determine whether `from' will be
   3267  *
   3268  * (retain == 0)	deleted unless `from' and `to' refer to the same
   3269  *			object in the file system's name space (BSD).
   3270  * (retain == 1)	always retained (POSIX).
   3271  */
   3272 int
   3273 do_sys_rename(const char *from, const char *to, enum uio_seg seg, int retain)
   3274 {
   3275 	struct vnode *tvp, *fvp, *tdvp;
   3276 	struct nameidata fromnd, tond;
   3277 	struct mount *fs;
   3278 	struct lwp *l = curlwp;
   3279 	struct proc *p;
   3280 	uint32_t saveflag;
   3281 	int error;
   3282 
   3283 	NDINIT(&fromnd, DELETE, LOCKPARENT | SAVESTART | TRYEMULROOT,
   3284 	    seg, from);
   3285 	if ((error = namei(&fromnd)) != 0)
   3286 		return (error);
   3287 	if (fromnd.ni_dvp != fromnd.ni_vp)
   3288 		VOP_UNLOCK(fromnd.ni_dvp, 0);
   3289 	fvp = fromnd.ni_vp;
   3290 
   3291 	fs = fvp->v_mount;
   3292 	error = VFS_RENAMELOCK_ENTER(fs);
   3293 	if (error) {
   3294 		VOP_ABORTOP(fromnd.ni_dvp, &fromnd.ni_cnd);
   3295 		vrele(fromnd.ni_dvp);
   3296 		vrele(fvp);
   3297 		goto out1;
   3298 	}
   3299 
   3300 	/*
   3301 	 * close, partially, yet another race - ideally we should only
   3302 	 * go as far as getting fromnd.ni_dvp before getting the per-fs
   3303 	 * lock, and then continue to get fromnd.ni_vp, but we can't do
   3304 	 * that with namei as it stands.
   3305 	 *
   3306 	 * This still won't prevent rmdir from nuking fromnd.ni_vp
   3307 	 * under us. The real fix is to get the locks in the right
   3308 	 * order and do the lookups in the right places, but that's a
   3309 	 * major rototill.
   3310 	 *
   3311 	 * Preserve the SAVESTART in cn_flags, because who knows what
   3312 	 * might happen if we don't.
   3313 	 *
   3314 	 * Note: this logic (as well as this whole function) is cloned
   3315 	 * in nfs_serv.c. Proceed accordingly.
   3316 	 */
   3317 	vrele(fvp);
   3318 	if ((fromnd.ni_cnd.cn_namelen == 1 &&
   3319 	     fromnd.ni_cnd.cn_nameptr[0] == '.') ||
   3320 	    (fromnd.ni_cnd.cn_namelen == 2 &&
   3321 	     fromnd.ni_cnd.cn_nameptr[0] == '.' &&
   3322 	     fromnd.ni_cnd.cn_nameptr[1] == '.')) {
   3323 		error = EINVAL;
   3324 		VFS_RENAMELOCK_EXIT(fs);
   3325 		VOP_ABORTOP(fromnd.ni_dvp, &fromnd.ni_cnd);
   3326 		vrele(fromnd.ni_dvp);
   3327 		goto out1;
   3328 	}
   3329 	saveflag = fromnd.ni_cnd.cn_flags & SAVESTART;
   3330 	fromnd.ni_cnd.cn_flags &= ~SAVESTART;
   3331 	vn_lock(fromnd.ni_dvp, LK_EXCLUSIVE | LK_RETRY);
   3332 	error = relookup(fromnd.ni_dvp, &fromnd.ni_vp, &fromnd.ni_cnd);
   3333 	fromnd.ni_cnd.cn_flags |= saveflag;
   3334 	if (error) {
   3335 		VOP_UNLOCK(fromnd.ni_dvp, 0);
   3336 		VFS_RENAMELOCK_EXIT(fs);
   3337 		VOP_ABORTOP(fromnd.ni_dvp, &fromnd.ni_cnd);
   3338 		vrele(fromnd.ni_dvp);
   3339 		goto out1;
   3340 	}
   3341 	VOP_UNLOCK(fromnd.ni_vp, 0);
   3342 	if (fromnd.ni_dvp != fromnd.ni_vp)
   3343 		VOP_UNLOCK(fromnd.ni_dvp, 0);
   3344 	fvp = fromnd.ni_vp;
   3345 
   3346 	NDINIT(&tond, RENAME,
   3347 	    LOCKPARENT | LOCKLEAF | NOCACHE | SAVESTART | TRYEMULROOT
   3348 	      | (fvp->v_type == VDIR ? CREATEDIR : 0),
   3349 	    seg, to);
   3350 	if ((error = namei(&tond)) != 0) {
   3351 		VFS_RENAMELOCK_EXIT(fs);
   3352 		VOP_ABORTOP(fromnd.ni_dvp, &fromnd.ni_cnd);
   3353 		vrele(fromnd.ni_dvp);
   3354 		vrele(fvp);
   3355 		goto out1;
   3356 	}
   3357 	tdvp = tond.ni_dvp;
   3358 	tvp = tond.ni_vp;
   3359 
   3360 	if (tvp != NULL) {
   3361 		if (fvp->v_type == VDIR && tvp->v_type != VDIR) {
   3362 			error = ENOTDIR;
   3363 			goto out;
   3364 		} else if (fvp->v_type != VDIR && tvp->v_type == VDIR) {
   3365 			error = EISDIR;
   3366 			goto out;
   3367 		}
   3368 	}
   3369 
   3370 	if (fvp == tdvp)
   3371 		error = EINVAL;
   3372 
   3373 	/*
   3374 	 * Source and destination refer to the same object.
   3375 	 */
   3376 	if (fvp == tvp) {
   3377 		if (retain)
   3378 			error = -1;
   3379 		else if (fromnd.ni_dvp == tdvp &&
   3380 		    fromnd.ni_cnd.cn_namelen == tond.ni_cnd.cn_namelen &&
   3381 		    !memcmp(fromnd.ni_cnd.cn_nameptr,
   3382 		          tond.ni_cnd.cn_nameptr,
   3383 		          fromnd.ni_cnd.cn_namelen))
   3384 		error = -1;
   3385 	}
   3386 
   3387 #if NVERIEXEC > 0
   3388 	if (!error) {
   3389 		char *f1, *f2;
   3390 		size_t f1_len;
   3391 		size_t f2_len;
   3392 
   3393 		f1_len = fromnd.ni_cnd.cn_namelen + 1;
   3394 		f1 = kmem_alloc(f1_len, KM_SLEEP);
   3395 		strlcpy(f1, fromnd.ni_cnd.cn_nameptr, f1_len);
   3396 
   3397 		f2_len = tond.ni_cnd.cn_namelen + 1;
   3398 		f2 = kmem_alloc(f2_len, KM_SLEEP);
   3399 		strlcpy(f2, tond.ni_cnd.cn_nameptr, f2_len);
   3400 
   3401 		error = veriexec_renamechk(l, fvp, f1, tvp, f2);
   3402 
   3403 		kmem_free(f1, f1_len);
   3404 		kmem_free(f2, f2_len);
   3405 	}
   3406 #endif /* NVERIEXEC > 0 */
   3407 
   3408 out:
   3409 	p = l->l_proc;
   3410 	if (!error) {
   3411 		error = VOP_RENAME(fromnd.ni_dvp, fromnd.ni_vp, &fromnd.ni_cnd,
   3412 				   tond.ni_dvp, tond.ni_vp, &tond.ni_cnd);
   3413 		VFS_RENAMELOCK_EXIT(fs);
   3414 	} else {
   3415 		VOP_ABORTOP(tond.ni_dvp, &tond.ni_cnd);
   3416 		if (tdvp == tvp)
   3417 			vrele(tdvp);
   3418 		else
   3419 			vput(tdvp);
   3420 		if (tvp)
   3421 			vput(tvp);
   3422 		VFS_RENAMELOCK_EXIT(fs);
   3423 		VOP_ABORTOP(fromnd.ni_dvp, &fromnd.ni_cnd);
   3424 		vrele(fromnd.ni_dvp);
   3425 		vrele(fvp);
   3426 	}
   3427 	vrele(tond.ni_startdir);
   3428 	PNBUF_PUT(tond.ni_cnd.cn_pnbuf);
   3429 out1:
   3430 	if (fromnd.ni_startdir)
   3431 		vrele(fromnd.ni_startdir);
   3432 	PNBUF_PUT(fromnd.ni_cnd.cn_pnbuf);
   3433 	return (error == -1 ? 0 : error);
   3434 }
   3435 
   3436 /*
   3437  * Make a directory file.
   3438  */
   3439 /* ARGSUSED */
   3440 int
   3441 sys_mkdir(struct lwp *l, const struct sys_mkdir_args *uap, register_t *retval)
   3442 {
   3443 	/* {
   3444 		syscallarg(const char *) path;
   3445 		syscallarg(int) mode;
   3446 	} */
   3447 
   3448 	return do_sys_mkdir(SCARG(uap, path), SCARG(uap, mode));
   3449 }
   3450 
   3451 int
   3452 do_sys_mkdir(const char *path, mode_t mode)
   3453 {
   3454 	struct proc *p = curlwp->l_proc;
   3455 	struct vnode *vp;
   3456 	struct vattr vattr;
   3457 	int error;
   3458 	struct nameidata nd;
   3459 
   3460 	NDINIT(&nd, CREATE, LOCKPARENT | CREATEDIR | TRYEMULROOT,
   3461 	    UIO_USERSPACE, path);
   3462 	if ((error = namei(&nd)) != 0)
   3463 		return (error);
   3464 	vp = nd.ni_vp;
   3465 	if (vp != NULL) {
   3466 		VOP_ABORTOP(nd.ni_dvp, &nd.ni_cnd);
   3467 		if (nd.ni_dvp == vp)
   3468 			vrele(nd.ni_dvp);
   3469 		else
   3470 			vput(nd.ni_dvp);
   3471 		vrele(vp);
   3472 		return (EEXIST);
   3473 	}
   3474 	VATTR_NULL(&vattr);
   3475 	vattr.va_type = VDIR;
   3476 	/* We will read cwdi->cwdi_cmask unlocked. */
   3477 	vattr.va_mode = (mode & ACCESSPERMS) &~ p->p_cwdi->cwdi_cmask;
   3478 	error = VOP_MKDIR(nd.ni_dvp, &nd.ni_vp, &nd.ni_cnd, &vattr);
   3479 	if (!error)
   3480 		vput(nd.ni_vp);
   3481 	return (error);
   3482 }
   3483 
   3484 /*
   3485  * Remove a directory file.
   3486  */
   3487 /* ARGSUSED */
   3488 int
   3489 sys_rmdir(struct lwp *l, const struct sys_rmdir_args *uap, register_t *retval)
   3490 {
   3491 	/* {
   3492 		syscallarg(const char *) path;
   3493 	} */
   3494 	struct vnode *vp;
   3495 	int error;
   3496 	struct nameidata nd;
   3497 
   3498 	NDINIT(&nd, DELETE, LOCKPARENT | LOCKLEAF | TRYEMULROOT, UIO_USERSPACE,
   3499 	    SCARG(uap, path));
   3500 	if ((error = namei(&nd)) != 0)
   3501 		return (error);
   3502 	vp = nd.ni_vp;
   3503 	if (vp->v_type != VDIR) {
   3504 		error = ENOTDIR;
   3505 		goto out;
   3506 	}
   3507 	/*
   3508 	 * No rmdir "." please.
   3509 	 */
   3510 	if (nd.ni_dvp == vp) {
   3511 		error = EINVAL;
   3512 		goto out;
   3513 	}
   3514 	/*
   3515 	 * The root of a mounted filesystem cannot be deleted.
   3516 	 */
   3517 	if ((vp->v_vflag & VV_ROOT) != 0 || vp->v_mountedhere != NULL) {
   3518 		error = EBUSY;
   3519 		goto out;
   3520 	}
   3521 	error = VOP_RMDIR(nd.ni_dvp, nd.ni_vp, &nd.ni_cnd);
   3522 	return (error);
   3523 
   3524 out:
   3525 	VOP_ABORTOP(nd.ni_dvp, &nd.ni_cnd);
   3526 	if (nd.ni_dvp == vp)
   3527 		vrele(nd.ni_dvp);
   3528 	else
   3529 		vput(nd.ni_dvp);
   3530 	vput(vp);
   3531 	return (error);
   3532 }
   3533 
   3534 /*
   3535  * Read a block of directory entries in a file system independent format.
   3536  */
   3537 int
   3538 sys___getdents30(struct lwp *l, const struct sys___getdents30_args *uap, register_t *retval)
   3539 {
   3540 	/* {
   3541 		syscallarg(int) fd;
   3542 		syscallarg(char *) buf;
   3543 		syscallarg(size_t) count;
   3544 	} */
   3545 	file_t *fp;
   3546 	int error, done;
   3547 
   3548 	/* fd_getvnode() will use the descriptor for us */
   3549 	if ((error = fd_getvnode(SCARG(uap, fd), &fp)) != 0)
   3550 		return (error);
   3551 	if ((fp->f_flag & FREAD) == 0) {
   3552 		error = EBADF;
   3553 		goto out;
   3554 	}
   3555 	error = vn_readdir(fp, SCARG(uap, buf), UIO_USERSPACE,
   3556 			SCARG(uap, count), &done, l, 0, 0);
   3557 	ktrgenio(SCARG(uap, fd), UIO_READ, SCARG(uap, buf), done, error);
   3558 	*retval = done;
   3559  out:
   3560 	fd_putfile(SCARG(uap, fd));
   3561 	return (error);
   3562 }
   3563 
   3564 /*
   3565  * Set the mode mask for creation of filesystem nodes.
   3566  */
   3567 int
   3568 sys_umask(struct lwp *l, const struct sys_umask_args *uap, register_t *retval)
   3569 {
   3570 	/* {
   3571 		syscallarg(mode_t) newmask;
   3572 	} */
   3573 	struct proc *p = l->l_proc;
   3574 	struct cwdinfo *cwdi;
   3575 
   3576 	/*
   3577 	 * cwdi->cwdi_cmask will be read unlocked elsewhere.  What's
   3578 	 * important is that we serialize changes to the mask.  The
   3579 	 * rw_exit() will issue a write memory barrier on our behalf,
   3580 	 * and force the changes out to other CPUs (as it must use an
   3581 	 * atomic operation, draining the local CPU's store buffers).
   3582 	 */
   3583 	cwdi = p->p_cwdi;
   3584 	rw_enter(&cwdi->cwdi_lock, RW_WRITER);
   3585 	*retval = cwdi->cwdi_cmask;
   3586 	cwdi->cwdi_cmask = SCARG(uap, newmask) & ALLPERMS;
   3587 	rw_exit(&cwdi->cwdi_lock);
   3588 
   3589 	return (0);
   3590 }
   3591 
   3592 int
   3593 dorevoke(struct vnode *vp, kauth_cred_t cred)
   3594 {
   3595 	struct vattr vattr;
   3596 	int error;
   3597 
   3598 	if ((error = VOP_GETATTR(vp, &vattr, cred)) != 0)
   3599 		return error;
   3600 	if (kauth_cred_geteuid(cred) == vattr.va_uid ||
   3601 	    (error = kauth_authorize_generic(cred,
   3602 	    KAUTH_GENERIC_ISSUSER, NULL)) == 0)
   3603 		VOP_REVOKE(vp, REVOKEALL);
   3604 	return (error);
   3605 }
   3606 
   3607 /*
   3608  * Void all references to file by ripping underlying filesystem
   3609  * away from vnode.
   3610  */
   3611 /* ARGSUSED */
   3612 int
   3613 sys_revoke(struct lwp *l, const struct sys_revoke_args *uap, register_t *retval)
   3614 {
   3615 	/* {
   3616 		syscallarg(const char *) path;
   3617 	} */
   3618 	struct vnode *vp;
   3619 	int error;
   3620 
   3621 	error = namei_simple_user(SCARG(uap, path),
   3622 				NSM_FOLLOW_TRYEMULROOT, &vp);
   3623 	if (error != 0)
   3624 		return (error);
   3625 	error = dorevoke(vp, l->l_cred);
   3626 	vrele(vp);
   3627 	return (error);
   3628 }
   3629