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