xnu-123.5.tar.gz

[apple/xnu.git] / bsd / miscfs / union / union_vnops.c

/*
 * Copyright (c) 2000 Apple Computer, Inc. All rights reserved.
 *
 * @APPLE_LICENSE_HEADER_START@
 * 
 * The contents of this file constitute Original Code as defined in and
 * are subject to the Apple Public Source License Version 1.1 (the
 * "License").  You may not use this file except in compliance with the
 * License.  Please obtain a copy of the License at
 * http://www.apple.com/publicsource and read it before using this file.
 * 
 * This Original Code and all software distributed under the License are
 * distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, EITHER
 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT.  Please see the
 * License for the specific language governing rights and limitations
 * under the License.
 * 
 * @APPLE_LICENSE_HEADER_END@
 */
/* Copyright (c) 1995 NeXT Computer, Inc. All Rights Reserved */
/*
 * Copyright (c) 1992, 1993, 1994, 1995 Jan-Simon Pendry.
 * Copyright (c) 1992, 1993, 1994, 1995
 *      The Regents of the University of California.  All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * Jan-Simon Pendry.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *      This product includes software developed by the University of
 *      California, Berkeley and its contributors.
 * 4. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 *      @(#)union_vnops.c       8.32 (Berkeley) 6/23/95
 */

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/proc.h>
#include <sys/file.h>
#include <sys/time.h>
#include <sys/stat.h>
#include <sys/types.h>
#include <sys/vnode.h>
#include <sys/mount.h>
#include <sys/namei.h>
#include <sys/malloc.h>
#include <sys/buf.h>
#include <sys/queue.h>
#include <sys/lock.h>
#include <miscfs/union/union.h>
#include <vfs/vfs_support.h>
#include <sys/ubc.h>

#define FIXUP(un, p) { \
        if (((un)->un_flags & UN_ULOCK) == 0) { \
                union_fixup(un, p); \
        } \
}

static void
union_fixup(un, p)
        struct union_node *un;
        struct proc *p;
{

        vn_lock(un->un_uppervp, LK_EXCLUSIVE | LK_RETRY, p);
        un->un_flags |= UN_ULOCK;
}

static int
union_lookup1(udvp, dvpp, vpp, cnp)
        struct vnode *udvp;
        struct vnode **dvpp;
        struct vnode **vpp;
        struct componentname *cnp;
{
        int error;
        struct proc *p = cnp->cn_proc;
        struct vnode *tdvp;
        struct vnode *dvp;
        struct mount *mp;

        dvp = *dvpp;

        /*
         * If stepping up the directory tree, check for going
         * back across the mount point, in which case do what
         * lookup would do by stepping back down the mount
         * hierarchy.
         */
        if (cnp->cn_flags & ISDOTDOT) {
                while ((dvp != udvp) && (dvp->v_flag & VROOT)) {
                        /*
                         * Don't do the NOCROSSMOUNT check
                         * at this level.  By definition,
                         * union fs deals with namespaces, not
                         * filesystems.
                         */
                        tdvp = dvp;
                        *dvpp = dvp = dvp->v_mount->mnt_vnodecovered;
                        vput(tdvp);
                        VREF(dvp);
                        vn_lock(dvp, LK_EXCLUSIVE | LK_RETRY, p);
                }
        }

        error = VOP_LOOKUP(dvp, &tdvp, cnp);
        if (error)
                return (error);

        /*
         * The parent directory will have been unlocked, unless lookup
         * found the last component.  In which case, re-lock the node
         * here to allow it to be unlocked again (phew) in union_lookup.
         */
        if (dvp != tdvp && !(cnp->cn_flags & ISLASTCN))
                vn_lock(dvp, LK_EXCLUSIVE | LK_RETRY, p);

        dvp = tdvp;

        /*
         * Lastly check if the current node is a mount point in
         * which case walk up the mount hierarchy making sure not to
         * bump into the root of the mount tree (ie. dvp != udvp).
         */
        while (dvp != udvp && (dvp->v_type == VDIR) &&
               (mp = dvp->v_mountedhere)) {

                if (vfs_busy(mp, 0, 0, p))
                        continue;

                error = VFS_ROOT(mp, &tdvp);
                vfs_unbusy(mp, p);
                if (error) {
                        vput(dvp);
                        return (error);
                }

                vput(dvp);
                dvp = tdvp;
        }

        *vpp = dvp;
        return (0);
}

int
union_lookup(ap)
        struct vop_lookup_args /* {
                struct vnodeop_desc *a_desc;
                struct vnode *a_dvp;
                struct vnode **a_vpp;
                struct componentname *a_cnp;
        } */ *ap;
{
        int error;
        int uerror, lerror;
        struct vnode *uppervp, *lowervp;
        struct vnode *upperdvp, *lowerdvp;
        struct vnode *dvp = ap->a_dvp;
        struct union_node *dun = VTOUNION(dvp);
        struct componentname *cnp = ap->a_cnp;
        struct proc *p = cnp->cn_proc;
        int lockparent = cnp->cn_flags & LOCKPARENT;
        int rdonly = cnp->cn_flags & RDONLY;
        struct union_mount *um = MOUNTTOUNIONMOUNT(dvp->v_mount);
        struct ucred *saved_cred;
        int iswhiteout;
        struct vattr va;

#ifdef notyet
        if (cnp->cn_namelen == 3 &&
                        cnp->cn_nameptr[2] == '.' &&
                        cnp->cn_nameptr[1] == '.' &&
                        cnp->cn_nameptr[0] == '.') {
                dvp = *ap->a_vpp = LOWERVP(ap->a_dvp);
                if (dvp == NULLVP)
                        return (ENOENT);
                VREF(dvp);
                vn_lock(dvp, LK_EXCLUSIVE | LK_RETRY, p);
                if (!lockparent || !(cnp->cn_flags & ISLASTCN))
                        VOP_UNLOCK(ap->a_dvp, 0, p);
                return (0);
        }
#endif

        cnp->cn_flags |= LOCKPARENT;

        upperdvp = dun->un_uppervp;
        lowerdvp = dun->un_lowervp;
        uppervp = NULLVP;
        lowervp = NULLVP;
        iswhiteout = 0;

        /*
         * do the lookup in the upper level.
         * if that level comsumes additional pathnames,
         * then assume that something special is going
         * on and just return that vnode.
         */
        if (upperdvp != NULLVP) {
                FIXUP(dun, p);
                uerror = union_lookup1(um->um_uppervp, &upperdvp,
                                        &uppervp, cnp);
                /*if (uppervp == upperdvp)
                        dun->un_flags |= UN_KLOCK;*/

                if (cnp->cn_consume != 0) {
                        *ap->a_vpp = uppervp;
                        if (!lockparent)
                                cnp->cn_flags &= ~LOCKPARENT;
                        return (uerror);
                }
                if (uerror == ENOENT || uerror == EJUSTRETURN) {
                        if (cnp->cn_flags & ISWHITEOUT) {
                                iswhiteout = 1;
                        } else if (lowerdvp != NULLVP) {
                                lerror = VOP_GETATTR(upperdvp, &va,
                                        cnp->cn_cred, cnp->cn_proc);
                                if (lerror == 0 && (va.va_flags & OPAQUE))
                                        iswhiteout = 1;
                        }
                }
        } else {
                uerror = ENOENT;
        }

        /*
         * in a similar way to the upper layer, do the lookup
         * in the lower layer.   this time, if there is some
         * component magic going on, then vput whatever we got
         * back from the upper layer and return the lower vnode
         * instead.
         */
        if (lowerdvp != NULLVP && !iswhiteout) {
                int nameiop;

                vn_lock(lowerdvp, LK_EXCLUSIVE | LK_RETRY, p);

                /*
                 * Only do a LOOKUP on the bottom node, since
                 * we won't be making changes to it anyway.
                 */
                nameiop = cnp->cn_nameiop;
                cnp->cn_nameiop = LOOKUP;
                if (um->um_op == UNMNT_BELOW) {
                        saved_cred = cnp->cn_cred;
                        cnp->cn_cred = um->um_cred;
                }
                lerror = union_lookup1(um->um_lowervp, &lowerdvp,
                                &lowervp, cnp);
                if (um->um_op == UNMNT_BELOW)
                        cnp->cn_cred = saved_cred;
                cnp->cn_nameiop = nameiop;

                if (lowervp != lowerdvp)
                        VOP_UNLOCK(lowerdvp, 0, p);

                if (cnp->cn_consume != 0) {
                        if (uppervp != NULLVP) {
                                if (uppervp == upperdvp)
                                        vrele(uppervp);
                                else
                                        vput(uppervp);
                                uppervp = NULLVP;
                        }
                        *ap->a_vpp = lowervp;
                        if (!lockparent)
                                cnp->cn_flags &= ~LOCKPARENT;
                        return (lerror);
                }
        } else {
                lerror = ENOENT;
                if ((cnp->cn_flags & ISDOTDOT) && dun->un_pvp != NULLVP) {
                        lowervp = LOWERVP(dun->un_pvp);
                        if (lowervp != NULLVP) {
                                VREF(lowervp);
                                vn_lock(lowervp, LK_EXCLUSIVE | LK_RETRY, p);
                                lerror = 0;
                        }
                }
        }

        if (!lockparent)
                cnp->cn_flags &= ~LOCKPARENT;

        /*
         * at this point, we have uerror and lerror indicating
         * possible errors with the lookups in the upper and lower
         * layers.  additionally, uppervp and lowervp are (locked)
         * references to existing vnodes in the upper and lower layers.
         *
         * there are now three cases to consider.
         * 1. if both layers returned an error, then return whatever
         *    error the upper layer generated.
         *
         * 2. if the top layer failed and the bottom layer succeeded
         *    then two subcases occur.
         *    a.  the bottom vnode is not a directory, in which
         *        case just return a new union vnode referencing
         *        an empty top layer and the existing bottom layer.
         *    b.  the bottom vnode is a directory, in which case
         *        create a new directory in the top-level and
         *        continue as in case 3.
         *
         * 3. if the top layer succeeded then return a new union
         *    vnode referencing whatever the new top layer and
         *    whatever the bottom layer returned.
         */

        *ap->a_vpp = NULLVP;

        /* case 1. */
        if ((uerror != 0) && (lerror != 0)) {
                return (uerror);
        }

        /* case 2. */
        if (uerror != 0 /* && (lerror == 0) */ ) {
                if (lowervp->v_type == VDIR) { /* case 2b. */
                        dun->un_flags &= ~UN_ULOCK;
                        VOP_UNLOCK(upperdvp, 0, p);
                        uerror = union_mkshadow(um, upperdvp, cnp, &uppervp);
                        vn_lock(upperdvp, LK_EXCLUSIVE | LK_RETRY, p);
                        dun->un_flags |= UN_ULOCK;

                        if (uerror) {
                                if (lowervp != NULLVP) {
                                        vput(lowervp);
                                        lowervp = NULLVP;
                                }
                                return (uerror);
                        }
                }
        }

        if (lowervp != NULLVP)
                VOP_UNLOCK(lowervp, 0, p);

        error = union_allocvp(ap->a_vpp, dvp->v_mount, dvp, upperdvp, cnp,
                              uppervp, lowervp, 1);

        if (error) {
                if (uppervp != NULLVP)
                        vput(uppervp);
                if (lowervp != NULLVP)
                        vrele(lowervp);
        } else {
                if (*ap->a_vpp != dvp)
                        if (!lockparent || !(cnp->cn_flags & ISLASTCN))
                                VOP_UNLOCK(dvp, 0, p);
        }

        return (error);
}

int
union_create(ap)
        struct vop_create_args /* {
                struct vnode *a_dvp;
                struct vnode **a_vpp;
                struct componentname *a_cnp;
                struct vattr *a_vap;
        } */ *ap;
{
        struct union_node *un = VTOUNION(ap->a_dvp);
        struct vnode *dvp = un->un_uppervp;
        struct componentname *cnp = ap->a_cnp;
        struct proc *p = cnp->cn_proc;

        if (dvp != NULLVP) {
                int error;
                struct vnode *vp;
                struct mount *mp;

                FIXUP(un, p);

                VREF(dvp);
                un->un_flags |= UN_KLOCK;
                mp = ap->a_dvp->v_mount;
                vput(ap->a_dvp);
                error = VOP_CREATE(dvp, &vp, cnp, ap->a_vap);
                if (error)
                        return (error);

                error = union_allocvp(ap->a_vpp, mp, NULLVP, NULLVP, cnp, vp,
                                NULLVP, 1);
                if (error)
                        vput(vp);
                return (error);
        }

        vput(ap->a_dvp);
        return (EROFS);
}

int
union_whiteout(ap)
        struct vop_whiteout_args /* {
                struct vnode *a_dvp;
                struct componentname *a_cnp;
                int a_flags;
        } */ *ap;
{
        struct union_node *un = VTOUNION(ap->a_dvp);
        struct componentname *cnp = ap->a_cnp;
        struct proc *p = cnp->cn_proc;

        if (un->un_uppervp == NULLVP)
                return (EOPNOTSUPP);

        FIXUP(un, p);
        return (VOP_WHITEOUT(un->un_uppervp, cnp, ap->a_flags));
}

int
union_mknod(ap)
        struct vop_mknod_args /* {
                struct vnode *a_dvp;
                struct vnode **a_vpp;
                struct componentname *a_cnp;
                struct vattr *a_vap;
        } */ *ap;
{
        struct union_node *un = VTOUNION(ap->a_dvp);
        struct vnode *dvp = un->un_uppervp;
        struct componentname *cnp = ap->a_cnp;
        struct proc *p = cnp->cn_proc;

        if (dvp != NULLVP) {
                int error;
                struct vnode *vp;
                struct mount *mp;

                FIXUP(un, p);

                VREF(dvp);
                un->un_flags |= UN_KLOCK;
                mp = ap->a_dvp->v_mount;
                vput(ap->a_dvp);
                error = VOP_MKNOD(dvp, &vp, cnp, ap->a_vap);
                if (error)
                        return (error);

                if (vp != NULLVP) {
                        error = union_allocvp(ap->a_vpp, mp, NULLVP, NULLVP,
                                        cnp, vp, NULLVP, 1);
                        if (error)
                                vput(vp);
                }
                return (error);
        }

        vput(ap->a_dvp);
        return (EROFS);
}

int
union_open(ap)
        struct vop_open_args /* {
                struct vnodeop_desc *a_desc;
                struct vnode *a_vp;
                int a_mode;
                struct ucred *a_cred;
                struct proc *a_p;
        } */ *ap;
{
        struct union_node *un = VTOUNION(ap->a_vp);
        struct vnode *tvp;
        int mode = ap->a_mode;
        struct ucred *cred = ap->a_cred;
        struct proc *p = ap->a_p;
        int error;

        /*
         * If there is an existing upper vp then simply open that.
         */
        tvp = un->un_uppervp;
        if (tvp == NULLVP) {
                /*
                 * If the lower vnode is being opened for writing, then
                 * copy the file contents to the upper vnode and open that,
                 * otherwise can simply open the lower vnode.
                 */
                tvp = un->un_lowervp;
                if ((ap->a_mode & FWRITE) && (tvp->v_type == VREG)) {
                        error = union_copyup(un, (mode&O_TRUNC) == 0, cred, p);
                        if (error == 0)
                                error = VOP_OPEN(un->un_uppervp, mode, cred, p);
                        return (error);
                }

                /*
                 * Just open the lower vnode
                 */
                un->un_openl++;
                vn_lock(tvp, LK_EXCLUSIVE | LK_RETRY, p);
                error = VOP_OPEN(tvp, mode, cred, p);
                VOP_UNLOCK(tvp, 0, p);

                return (error);
        }

        FIXUP(un, p);

        error = VOP_OPEN(tvp, mode, cred, p);

        return (error);
}

int
union_close(ap)
        struct vop_close_args /* {
                struct vnode *a_vp;
                int  a_fflag;
                struct ucred *a_cred;
                struct proc *a_p;
        } */ *ap;
{
        struct union_node *un = VTOUNION(ap->a_vp);
        struct vnode *vp;

        if ((vp = un->un_uppervp) == NULLVP) {
#ifdef UNION_DIAGNOSTIC
                if (un->un_openl <= 0)
                        panic("union: un_openl cnt");
#endif
                --un->un_openl;
                vp = un->un_lowervp;
        }

        ap->a_vp = vp;
        return (VCALL(vp, VOFFSET(vop_close), ap));
}

/*
 * Check access permission on the union vnode.
 * The access check being enforced is to check
 * against both the underlying vnode, and any
 * copied vnode.  This ensures that no additional
 * file permissions are given away simply because
 * the user caused an implicit file copy.
 */
int
union_access(ap)
        struct vop_access_args /* {
                struct vnodeop_desc *a_desc;
                struct vnode *a_vp;
                int a_mode;
                struct ucred *a_cred;
                struct proc *a_p;
        } */ *ap;
{
        struct union_node *un = VTOUNION(ap->a_vp);
        struct proc *p = ap->a_p;
        int error = EACCES;
        struct vnode *vp;

        if ((vp = un->un_uppervp) != NULLVP) {
                FIXUP(un, p);
                ap->a_vp = vp;
                return (VCALL(vp, VOFFSET(vop_access), ap));
        }

        if ((vp = un->un_lowervp) != NULLVP) {
                vn_lock(vp, LK_EXCLUSIVE | LK_RETRY, p);
                ap->a_vp = vp;
                error = VCALL(vp, VOFFSET(vop_access), ap);
                if (error == 0) {
                        struct union_mount *um = MOUNTTOUNIONMOUNT(vp->v_mount);

                        if (um->um_op == UNMNT_BELOW) {
                                ap->a_cred = um->um_cred;
                                error = VCALL(vp, VOFFSET(vop_access), ap);
                        }
                }
                VOP_UNLOCK(vp, 0, p);
                if (error)
                        return (error);
        }

        return (error);
}

/*
 * We handle getattr only to change the fsid and
 * track object sizes
 */
int
union_getattr(ap)
        struct vop_getattr_args /* {
                struct vnode *a_vp;
                struct vattr *a_vap;
                struct ucred *a_cred;
                struct proc *a_p;
        } */ *ap;
{
        int error;
        struct union_node *un = VTOUNION(ap->a_vp);
        struct vnode *vp = un->un_uppervp;
        struct proc *p = ap->a_p;
        struct vattr *vap;
        struct vattr va;


        /*
         * Some programs walk the filesystem hierarchy by counting
         * links to directories to avoid stat'ing all the time.
         * This means the link count on directories needs to be "correct".
         * The only way to do that is to call getattr on both layers
         * and fix up the link count.  The link count will not necessarily
         * be accurate but will be large enough to defeat the tree walkers.
         */

        vap = ap->a_vap;

        vp = un->un_uppervp;
        if (vp != NULLVP) {
                /*
                 * It's not clear whether VOP_GETATTR is to be
                 * called with the vnode locked or not.  stat() calls
                 * it with (vp) locked, and fstat calls it with
                 * (vp) unlocked.
                 * In the mean time, compensate here by checking
                 * the union_node's lock flag.
                 */
                if (un->un_flags & UN_LOCKED)
                        FIXUP(un, p);

                error = VOP_GETATTR(vp, vap, ap->a_cred, ap->a_p);
                if (error)
                        return (error);
                union_newsize(ap->a_vp, vap->va_size, VNOVAL);
        }

        if (vp == NULLVP) {
                vp = un->un_lowervp;
        } else if (vp->v_type == VDIR) {
                vp = un->un_lowervp;
                vap = &va;
        } else {
                vp = NULLVP;
        }

        if (vp != NULLVP) {
                error = VOP_GETATTR(vp, vap, ap->a_cred, ap->a_p);
                if (error)
                        return (error);
                union_newsize(ap->a_vp, VNOVAL, vap->va_size);
        }

        if ((vap != ap->a_vap) && (vap->va_type == VDIR))
                ap->a_vap->va_nlink += vap->va_nlink;

        ap->a_vap->va_fsid = ap->a_vp->v_mount->mnt_stat.f_fsid.val[0];
        return (0);
}

int
union_setattr(ap)
        struct vop_setattr_args /* {
                struct vnode *a_vp;
                struct vattr *a_vap;
                struct ucred *a_cred;
                struct proc *a_p;
        } */ *ap;
{
        struct union_node *un = VTOUNION(ap->a_vp);
        struct proc *p = ap->a_p;
        int error;

        /*
         * Handle case of truncating lower object to zero size,
         * by creating a zero length upper object.  This is to
         * handle the case of open with O_TRUNC and O_CREAT.
         */
        if ((un->un_uppervp == NULLVP) &&
            /* assert(un->un_lowervp != NULLVP) */
            (un->un_lowervp->v_type == VREG)) {
                error = union_copyup(un, (ap->a_vap->va_size != 0),
                                                ap->a_cred, ap->a_p);
                if (error)
                        return (error);
        }

        /*
         * Try to set attributes in upper layer,
         * otherwise return read-only filesystem error.
         */
        if (un->un_uppervp != NULLVP) {
                FIXUP(un, p);
                error = VOP_SETATTR(un->un_uppervp, ap->a_vap,
                                        ap->a_cred, ap->a_p);
                if ((error == 0) && (ap->a_vap->va_size != VNOVAL))
                        union_newsize(ap->a_vp, ap->a_vap->va_size, VNOVAL);
        } else {
                error = EROFS;
        }

        return (error);
}

int
union_read(ap)
        struct vop_read_args /* {
                struct vnode *a_vp;
                struct uio *a_uio;
                int  a_ioflag;
                struct ucred *a_cred;
        } */ *ap;
{
        int error;
        struct proc *p = ap->a_uio->uio_procp;
        struct vnode *vp = OTHERVP(ap->a_vp);
        int dolock = (vp == LOWERVP(ap->a_vp));

        if (dolock)
                vn_lock(vp, LK_EXCLUSIVE | LK_RETRY, p);
        else
                FIXUP(VTOUNION(ap->a_vp), p);
        error = VOP_READ(vp, ap->a_uio, ap->a_ioflag, ap->a_cred);
        if (dolock)
                VOP_UNLOCK(vp, 0, p);

        /*
         * XXX
         * perhaps the size of the underlying object has changed under
         * our feet.  take advantage of the offset information present
         * in the uio structure.
         */
        if (error == 0) {
                struct union_node *un = VTOUNION(ap->a_vp);
                off_t cur = ap->a_uio->uio_offset;

                if (vp == un->un_uppervp) {
                        if (cur > un->un_uppersz)
                                union_newsize(ap->a_vp, cur, VNOVAL);
                } else {
                        if (cur > un->un_lowersz)
                                union_newsize(ap->a_vp, VNOVAL, cur);
                }
        }

        return (error);
}

int
union_write(ap)
        struct vop_read_args /* {
                struct vnode *a_vp;
                struct uio *a_uio;
                int  a_ioflag;
                struct ucred *a_cred;
        } */ *ap;
{
        int error;
        struct vnode *vp;
        struct union_node *un = VTOUNION(ap->a_vp);
        struct proc *p = ap->a_uio->uio_procp;

        vp = UPPERVP(ap->a_vp);
        if (vp == NULLVP)
                panic("union: missing upper layer in write");

        FIXUP(un, p);
        error = VOP_WRITE(vp, ap->a_uio, ap->a_ioflag, ap->a_cred);

        /*
         * the size of the underlying object may be changed by the
         * write.
         */
        if (error == 0) {
                off_t cur = ap->a_uio->uio_offset;

                if (cur > un->un_uppersz)
                        union_newsize(ap->a_vp, cur, VNOVAL);
        }

        return (error);
}

union_lease(ap)
        struct vop_lease_args /* {
                struct vnode *a_vp;
                struct proc *a_p;
                struct ucred *a_cred;
                int a_flag;
        } */ *ap;
{
        register struct vnode *ovp = OTHERVP(ap->a_vp);

        ap->a_vp = ovp;
        return (VCALL(ovp, VOFFSET(vop_lease), ap));
}

int
union_ioctl(ap)
        struct vop_ioctl_args /* {
                struct vnode *a_vp;
                int  a_command;
                caddr_t  a_data;
                int  a_fflag;
                struct ucred *a_cred;
                struct proc *a_p;
        } */ *ap;
{
        register struct vnode *ovp = OTHERVP(ap->a_vp);

        ap->a_vp = ovp;
        return (VCALL(ovp, VOFFSET(vop_ioctl), ap));
}

int
union_select(ap)
        struct vop_select_args /* {
                struct vnode *a_vp;
                int  a_which;
                int  a_fflags;
                struct ucred *a_cred;
                struct proc *a_p;
        } */ *ap;
{
        register struct vnode *ovp = OTHERVP(ap->a_vp);

        ap->a_vp = ovp;
        return (VCALL(ovp, VOFFSET(vop_select), ap));
}

int
union_revoke(ap)
        struct vop_revoke_args /* {
                struct vnode *a_vp;
                int a_flags;
                struct proc *a_p;
        } */ *ap;
{
        struct vnode *vp = ap->a_vp;

        if (UPPERVP(vp))
                VOP_REVOKE(UPPERVP(vp), ap->a_flags);
        if (LOWERVP(vp))
                VOP_REVOKE(LOWERVP(vp), ap->a_flags);
        vgone(vp);
}

int
union_mmap(ap)
        struct vop_mmap_args /* {
                struct vnode *a_vp;
                int  a_fflags;
                struct ucred *a_cred;
                struct proc *a_p;
        } */ *ap;
{
        register struct vnode *ovp = OTHERVP(ap->a_vp);

        ap->a_vp = ovp;
        return (VCALL(ovp, VOFFSET(vop_mmap), ap));
}

int
union_fsync(ap)
        struct vop_fsync_args /* {
                struct vnode *a_vp;
                struct ucred *a_cred;
                int  a_waitfor;
                struct proc *a_p;
        } */ *ap;
{
        int error = 0;
        struct proc *p = ap->a_p;
        struct vnode *targetvp = OTHERVP(ap->a_vp);

        if (targetvp != NULLVP) {
                int dolock = (targetvp == LOWERVP(ap->a_vp));

                if (dolock)
                        vn_lock(targetvp, LK_EXCLUSIVE | LK_RETRY, p);
                else
                        FIXUP(VTOUNION(ap->a_vp), p);
                error = VOP_FSYNC(targetvp, ap->a_cred, ap->a_waitfor, p);
                if (dolock)
                        VOP_UNLOCK(targetvp, 0, p);
        }

        return (error);
}

int
union_seek(ap)
        struct vop_seek_args /* {
                struct vnode *a_vp;
                off_t  a_oldoff;
                off_t  a_newoff;
                struct ucred *a_cred;
        } */ *ap;
{
        register struct vnode *ovp = OTHERVP(ap->a_vp);

        ap->a_vp = ovp;
        return (VCALL(ovp, VOFFSET(vop_seek), ap));
}

int
union_remove(ap)
        struct vop_remove_args /* {
                struct vnode *a_dvp;
                struct vnode *a_vp;
                struct componentname *a_cnp;
        } */ *ap;
{
        int error;
        struct union_node *dun = VTOUNION(ap->a_dvp);
        struct union_node *un = VTOUNION(ap->a_vp);
        struct componentname *cnp = ap->a_cnp;
        struct proc *p = cnp->cn_proc;

        if (dun->un_uppervp == NULLVP)
                panic("union remove: null upper vnode");

        if (un->un_uppervp != NULLVP) {
                struct vnode *dvp = dun->un_uppervp;
                struct vnode *vp = un->un_uppervp;

                FIXUP(dun, p);
                VREF(dvp);
                dun->un_flags |= UN_KLOCK;
                vput(ap->a_dvp);
                FIXUP(un, p);
                VREF(vp);
                un->un_flags |= UN_KLOCK;
                vput(ap->a_vp);

                if (union_dowhiteout(un, cnp->cn_cred, cnp->cn_proc))
                        cnp->cn_flags |= DOWHITEOUT;
                error = VOP_REMOVE(dvp, vp, cnp);
                if (!error)
                        union_removed_upper(un);
        } else {
                FIXUP(dun, p);
                error = union_mkwhiteout(
                        MOUNTTOUNIONMOUNT(UNIONTOV(dun)->v_mount),
                        dun->un_uppervp, ap->a_cnp, un->un_path);
                vput(ap->a_dvp);
                vput(ap->a_vp);
        }

        return (error);
}

int
union_link(ap)
        struct vop_link_args /* {
                struct vnode *a_vp;
                struct vnode *a_tdvp;
                struct componentname *a_cnp;
        } */ *ap;
{
        int error = 0;
        struct componentname *cnp = ap->a_cnp;
        struct proc *p = cnp->cn_proc;
        struct union_node *un;
        struct vnode *vp;
        struct vnode *tdvp;

        un = VTOUNION(ap->a_tdvp);

        if (ap->a_tdvp->v_op != ap->a_vp->v_op) {
                vp = ap->a_vp;
        } else {
                struct union_node *tun = VTOUNION(ap->a_vp);
                if (tun->un_uppervp == NULLVP) {
                        vn_lock(ap->a_vp, LK_EXCLUSIVE | LK_RETRY, p);
                        if (un->un_uppervp == tun->un_dirvp) {
                                un->un_flags &= ~UN_ULOCK;
                                VOP_UNLOCK(un->un_uppervp, 0, p);
                        }
                        error = union_copyup(tun, 1, cnp->cn_cred, p);
                        if (un->un_uppervp == tun->un_dirvp) {
                                vn_lock(un->un_uppervp,
                                                LK_EXCLUSIVE | LK_RETRY, p);
                                un->un_flags |= UN_ULOCK;
                        }
                        VOP_UNLOCK(ap->a_vp, 0, p);
                }
                vp = tun->un_uppervp;
        }

        tdvp = un->un_uppervp;
        if (tdvp == NULLVP)
                error = EROFS;

        if (error) {
                vput(ap->a_tdvp);
                return (error);
        }

        FIXUP(un, p);
        VREF(tdvp);
        un->un_flags |= UN_KLOCK;
        vput(ap->a_tdvp);

        return (VOP_LINK(vp, tdvp, cnp));
}

int
union_rename(ap)
        struct vop_rename_args  /* {
                struct vnode *a_fdvp;
                struct vnode *a_fvp;
                struct componentname *a_fcnp;
                struct vnode *a_tdvp;
                struct vnode *a_tvp;
                struct componentname *a_tcnp;
        } */ *ap;
{
        int error;

        struct vnode *fdvp = ap->a_fdvp;
        struct vnode *fvp = ap->a_fvp;
        struct vnode *tdvp = ap->a_tdvp;
        struct vnode *tvp = ap->a_tvp;

        if (fdvp->v_op == union_vnodeop_p) {    /* always true */
                struct union_node *un = VTOUNION(fdvp);
                if (un->un_uppervp == NULLVP) {
                        /*
                         * this should never happen in normal
                         * operation but might if there was
                         * a problem creating the top-level shadow
                         * directory.
                         */
                        error = EXDEV;
                        goto bad;
                }

                fdvp = un->un_uppervp;
                VREF(fdvp);
                vrele(ap->a_fdvp);
        }

        if (fvp->v_op == union_vnodeop_p) {     /* always true */
                struct union_node *un = VTOUNION(fvp);
                if (un->un_uppervp == NULLVP) {
                        /* XXX: should do a copyup */
                        error = EXDEV;
                        goto bad;
                }

                if (un->un_lowervp != NULLVP)
                        ap->a_fcnp->cn_flags |= DOWHITEOUT;

                fvp = un->un_uppervp;
                VREF(fvp);
                vrele(ap->a_fvp);
        }

        if (tdvp->v_op == union_vnodeop_p) {
                struct union_node *un = VTOUNION(tdvp);
                if (un->un_uppervp == NULLVP) {
                        /*
                         * this should never happen in normal
                         * operation but might if there was
                         * a problem creating the top-level shadow
                         * directory.
                         */
                        error = EXDEV;
                        goto bad;
                }

                tdvp = un->un_uppervp;
                VREF(tdvp);
                un->un_flags |= UN_KLOCK;
                vput(ap->a_tdvp);
        }

        if (tvp != NULLVP && tvp->v_op == union_vnodeop_p) {
                struct union_node *un = VTOUNION(tvp);

                tvp = un->un_uppervp;
                if (tvp != NULLVP) {
                        VREF(tvp);
                        un->un_flags |= UN_KLOCK;
                }
                vput(ap->a_tvp);
        }

        return (VOP_RENAME(fdvp, fvp, ap->a_fcnp, tdvp, tvp, ap->a_tcnp));

bad:
        vrele(fdvp);
        vrele(fvp);
        vput(tdvp);
        if (tvp != NULLVP)
                vput(tvp);

        return (error);
}

int
union_mkdir(ap)
        struct vop_mkdir_args /* {
                struct vnode *a_dvp;
                struct vnode **a_vpp;
                struct componentname *a_cnp;
                struct vattr *a_vap;
        } */ *ap;
{
        struct union_node *un = VTOUNION(ap->a_dvp);
        struct vnode *dvp = un->un_uppervp;
        struct componentname *cnp = ap->a_cnp;
        struct proc *p = cnp->cn_proc;

        if (dvp != NULLVP) {
                int error;
                struct vnode *vp;

                FIXUP(un, p);
                VREF(dvp);
                un->un_flags |= UN_KLOCK;
                VOP_UNLOCK(ap->a_dvp, 0, p);
                error = VOP_MKDIR(dvp, &vp, cnp, ap->a_vap);
                if (error) {
                        vrele(ap->a_dvp);
                        return (error);
                }

                error = union_allocvp(ap->a_vpp, ap->a_dvp->v_mount, ap->a_dvp,
                                NULLVP, cnp, vp, NULLVP, 1);
                vrele(ap->a_dvp);
                if (error)
                        vput(vp);
                return (error);
        }

        vput(ap->a_dvp);
        return (EROFS);
}

int
union_rmdir(ap)
        struct vop_rmdir_args /* {
                struct vnode *a_dvp;
                struct vnode *a_vp;
                struct componentname *a_cnp;
        } */ *ap;
{
        int error;
        struct union_node *dun = VTOUNION(ap->a_dvp);
        struct union_node *un = VTOUNION(ap->a_vp);
        struct componentname *cnp = ap->a_cnp;
        struct proc *p = cnp->cn_proc;

        if (dun->un_uppervp == NULLVP)
                panic("union rmdir: null upper vnode");

        if (un->un_uppervp != NULLVP) {
                struct vnode *dvp = dun->un_uppervp;
                struct vnode *vp = un->un_uppervp;

                FIXUP(dun, p);
                VREF(dvp);
                dun->un_flags |= UN_KLOCK;
                vput(ap->a_dvp);
                FIXUP(un, p);
                VREF(vp);
                un->un_flags |= UN_KLOCK;
                vput(ap->a_vp);

                if (union_dowhiteout(un, cnp->cn_cred, cnp->cn_proc))
                        cnp->cn_flags |= DOWHITEOUT;
                error = VOP_RMDIR(dvp, vp, ap->a_cnp);
                if (!error)
                        union_removed_upper(un);
        } else {
                FIXUP(dun, p);
                error = union_mkwhiteout(
                        MOUNTTOUNIONMOUNT(UNIONTOV(dun)->v_mount),
                        dun->un_uppervp, ap->a_cnp, un->un_path);
                vput(ap->a_dvp);
                vput(ap->a_vp);
        }

        return (error);
}

int
union_symlink(ap)
        struct vop_symlink_args /* {
                struct vnode *a_dvp;
                struct vnode **a_vpp;
                struct componentname *a_cnp;
                struct vattr *a_vap;
                char *a_target;
        } */ *ap;
{
        struct union_node *un = VTOUNION(ap->a_dvp);
        struct vnode *dvp = un->un_uppervp;
        struct componentname *cnp = ap->a_cnp;
        struct proc *p = cnp->cn_proc;

        if (dvp != NULLVP) {
                int error;
                struct vnode *vp;
                struct mount *mp = ap->a_dvp->v_mount;

                FIXUP(un, p);
                VREF(dvp);
                un->un_flags |= UN_KLOCK;
                vput(ap->a_dvp);
                error = VOP_SYMLINK(dvp, &vp, cnp, ap->a_vap, ap->a_target);
                *ap->a_vpp = NULLVP;
                return (error);
        }

        vput(ap->a_dvp);
        return (EROFS);
}

/*
 * union_readdir works in concert with getdirentries and
 * readdir(3) to provide a list of entries in the unioned
 * directories.  getdirentries is responsible for walking
 * down the union stack.  readdir(3) is responsible for
 * eliminating duplicate names from the returned data stream.
 */
int
union_readdir(ap)
        struct vop_readdir_args /* {
                struct vnodeop_desc *a_desc;
                struct vnode *a_vp;
                struct uio *a_uio;
                struct ucred *a_cred;
                int *a_eofflag;
                u_long *a_cookies;
                int a_ncookies;
        } */ *ap;
{
        struct union_node *un = VTOUNION(ap->a_vp);
        struct vnode *uvp = un->un_uppervp;
        struct proc *p = ap->a_uio->uio_procp;

        if (uvp == NULLVP)
                return (0);

        FIXUP(un, p);
        ap->a_vp = uvp;
        return (VCALL(uvp, VOFFSET(vop_readdir), ap));
}

int
union_readlink(ap)
        struct vop_readlink_args /* {
                struct vnode *a_vp;
                struct uio *a_uio;
                struct ucred *a_cred;
        } */ *ap;
{
        int error;
        struct uio *uio = ap->a_uio;
        struct proc *p = uio->uio_procp;
        struct vnode *vp = OTHERVP(ap->a_vp);
        int dolock = (vp == LOWERVP(ap->a_vp));

        if (dolock)
                vn_lock(vp, LK_EXCLUSIVE | LK_RETRY, p);
        else
                FIXUP(VTOUNION(ap->a_vp), p);
        ap->a_vp = vp;
        error = VCALL(vp, VOFFSET(vop_readlink), ap);
        if (dolock)
                VOP_UNLOCK(vp, 0, p);

        return (error);
}

int
union_abortop(ap)
        struct vop_abortop_args /* {
                struct vnode *a_dvp;
                struct componentname *a_cnp;
        } */ *ap;
{
        int error;
        struct componentname *cnp = ap->a_cnp;
        struct proc *p = cnp->cn_proc;
        struct vnode *vp = OTHERVP(ap->a_dvp);
        struct union_node *un = VTOUNION(ap->a_dvp);
        int islocked = un->un_flags & UN_LOCKED;
        int dolock = (vp == LOWERVP(ap->a_dvp));

        if (islocked) {
                if (dolock)
                        vn_lock(vp, LK_EXCLUSIVE | LK_RETRY, p);
                else
                        FIXUP(VTOUNION(ap->a_dvp), p);
        }
        ap->a_dvp = vp;
        error = VCALL(vp, VOFFSET(vop_abortop), ap);
        if (islocked && dolock)
                VOP_UNLOCK(vp, 0, p);

        return (error);
}

int
union_inactive(ap)
        struct vop_inactive_args /* {
                struct vnode *a_vp;
                struct proc *a_p;
        } */ *ap;
{
        struct vnode *vp = ap->a_vp;
        struct proc *p = ap->a_p;
        struct union_node *un = VTOUNION(vp);
        struct vnode **vpp;

        /*
         * Do nothing (and _don't_ bypass).
         * Wait to vrele lowervp until reclaim,
         * so that until then our union_node is in the
         * cache and reusable.
         *
         * NEEDSWORK: Someday, consider inactive'ing
         * the lowervp and then trying to reactivate it
         * with capabilities (v_id)
         * like they do in the name lookup cache code.
         * That's too much work for now.
         */

        if (un->un_dircache != 0) {
                for (vpp = un->un_dircache; *vpp != NULLVP; vpp++)
                        vrele(*vpp);
                _FREE(un->un_dircache, M_TEMP);
                un->un_dircache = 0;
        }

        VOP_UNLOCK(vp, 0, p);

        if ((un->un_flags & UN_CACHED) == 0)
                vgone(vp);

        return (0);
}

int
union_reclaim(ap)
        struct vop_reclaim_args /* {
                struct vnode *a_vp;
        } */ *ap;
{

        union_freevp(ap->a_vp);

        return (0);
}

int
union_lock(ap)
        struct vop_lock_args *ap;
{
        struct vnode *vp = ap->a_vp;
        struct proc *p = ap->a_p;
        int flags = ap->a_flags;
        struct union_node *un;
        int error;


        vop_nolock(ap);
        /*
         * Need to do real lockmgr-style locking here.
         * in the mean time, draining won't work quite right,
         * which could lead to a few race conditions.
         * the following test was here, but is not quite right, we
         * still need to take the lock:
        if ((flags & LK_TYPE_MASK) == LK_DRAIN)
                return (0);
         */
        flags &= ~LK_INTERLOCK;

start:
        un = VTOUNION(vp);

        if (un->un_uppervp != NULLVP) {
                if (((un->un_flags & UN_ULOCK) == 0) &&
                    (vp->v_usecount != 0)) {
                        error = vn_lock(un->un_uppervp, flags, p);
                        if (error)
                                return (error);
                        un->un_flags |= UN_ULOCK;
                }
#if DIAGNOSTIC
                if (un->un_flags & UN_KLOCK) {
                        vprint("union: dangling klock", vp);
                        panic("union: dangling upper lock (%lx)", vp);
                }
#endif
        }

        if (un->un_flags & UN_LOCKED) {
#if DIAGNOSTIC
                if (current_proc() && un->un_pid == current_proc()->p_pid &&
                            un->un_pid > -1 && current_proc()->p_pid > -1)
                        panic("union: locking against myself");
#endif
                un->un_flags |= UN_WANT;
                tsleep((caddr_t)&un->un_flags, PINOD, "unionlk2", 0);
                goto start;
        }

#if DIAGNOSTIC
        if (current_proc())
                un->un_pid = current_proc()->p_pid;
        else
                un->un_pid = -1;
#endif

        un->un_flags |= UN_LOCKED;
        return (0);
}

/*
 * When operations want to vput() a union node yet retain a lock on
 * the upper vnode (say, to do some further operations like link(),
 * mkdir(), ...), they set UN_KLOCK on the union node, then call
 * vput() which calls VOP_UNLOCK() and comes here.  union_unlock()
 * unlocks the union node (leaving the upper vnode alone), clears the
 * KLOCK flag, and then returns to vput().  The caller then does whatever
 * is left to do with the upper vnode, and ensures that it gets unlocked.
 *
 * If UN_KLOCK isn't set, then the upper vnode is unlocked here.
 */
int
union_unlock(ap)
        struct vop_unlock_args /* {
                struct vnode *a_vp;
                int a_flags;
                struct proc *a_p;
        } */ *ap;
{
        struct union_node *un = VTOUNION(ap->a_vp);
        struct proc *p = ap->a_p;

#if DIAGNOSTIC
        if ((un->un_flags & UN_LOCKED) == 0)
                panic("union: unlock unlocked node");
        if (current_proc() && un->un_pid != current_proc()->p_pid &&
                        current_proc()->p_pid > -1 && un->un_pid > -1)
                panic("union: unlocking other process's union node");
#endif

        un->un_flags &= ~UN_LOCKED;

        if ((un->un_flags & (UN_ULOCK|UN_KLOCK)) == UN_ULOCK)
                VOP_UNLOCK(un->un_uppervp, 0, p);

        un->un_flags &= ~(UN_ULOCK|UN_KLOCK);

        if (un->un_flags & UN_WANT) {
                un->un_flags &= ~UN_WANT;
                wakeup((caddr_t) &un->un_flags);
        }

#if DIAGNOSTIC
        un->un_pid = 0;
#endif
        vop_nounlock(ap);

        return (0);
}

int
union_bmap(ap)
        struct vop_bmap_args /* {
                struct vnode *a_vp;
                daddr_t  a_bn;
                struct vnode **a_vpp;
                daddr_t *a_bnp;
                int *a_runp;
        } */ *ap;
{
        int error;
        struct proc *p = current_proc();                /* XXX */
        struct vnode *vp = OTHERVP(ap->a_vp);
        int dolock = (vp == LOWERVP(ap->a_vp));

        if (dolock)
                vn_lock(vp, LK_EXCLUSIVE | LK_RETRY, p);
        else
                FIXUP(VTOUNION(ap->a_vp), p);
        ap->a_vp = vp;
        error = VCALL(vp, VOFFSET(vop_bmap), ap);
        if (dolock)
                VOP_UNLOCK(vp, 0, p);

        return (error);
}

int
union_cmap(ap)
        struct vop_cmap_args /* {
                struct vnode *a_vp;
                off_t a_offset;    
                size_t a_size;
                daddr_t *a_bpn;
                size_t *a_run;
                void *a_poff;
        } */ *ap;
{
        int error;
        struct proc *p = current_proc();                /* XXX */
        struct vnode *vp = OTHERVP(ap->a_vp);
        int dolock = (vp == LOWERVP(ap->a_vp));

        if (dolock)
                vn_lock(vp, LK_EXCLUSIVE | LK_RETRY, p);
        else
                FIXUP(VTOUNION(ap->a_vp), p);
        ap->a_vp = vp;
        error = VCALL(vp, VOFFSET(vop_cmap), ap);
        if (dolock)
                VOP_UNLOCK(vp, 0, p);

        return (error);
}

int
union_print(ap)
        struct vop_print_args /* {
                struct vnode *a_vp;
        } */ *ap;
{
        struct vnode *vp = ap->a_vp;

        printf("\ttag VT_UNION, vp=%x, uppervp=%x, lowervp=%x\n",
                        vp, UPPERVP(vp), LOWERVP(vp));
        if (UPPERVP(vp) != NULLVP)
                vprint("union: upper", UPPERVP(vp));
        if (LOWERVP(vp) != NULLVP)
                vprint("union: lower", LOWERVP(vp));

        return (0);
}

int
union_islocked(ap)
        struct vop_islocked_args /* {
                struct vnode *a_vp;
        } */ *ap;
{

        return ((VTOUNION(ap->a_vp)->un_flags & UN_LOCKED) ? 1 : 0);
}

int
union_pathconf(ap)
        struct vop_pathconf_args /* {
                struct vnode *a_vp;
                int a_name;
                int *a_retval;
        } */ *ap;
{
        int error;
        struct proc *p = current_proc();                /* XXX */
        struct vnode *vp = OTHERVP(ap->a_vp);
        int dolock = (vp == LOWERVP(ap->a_vp));

        if (dolock)
                vn_lock(vp, LK_EXCLUSIVE | LK_RETRY, p);
        else
                FIXUP(VTOUNION(ap->a_vp), p);
        ap->a_vp = vp;
        error = VCALL(vp, VOFFSET(vop_pathconf), ap);
        if (dolock)
                VOP_UNLOCK(vp, 0, p);

        return (error);
}

int
union_advlock(ap)
        struct vop_advlock_args /* {
                struct vnode *a_vp;
                caddr_t  a_id;
                int  a_op;
                struct flock *a_fl;
                int  a_flags;
        } */ *ap;
{
        register struct vnode *ovp = OTHERVP(ap->a_vp);

        ap->a_vp = ovp;
        return (VCALL(ovp, VOFFSET(vop_advlock), ap));
}


/*
 * XXX - vop_strategy must be hand coded because it has no
 * vnode in its arguments.
 * This goes away with a merged VM/buffer cache.
 */
int
union_strategy(ap)
        struct vop_strategy_args /* {
                struct buf *a_bp;
        } */ *ap;
{
        struct buf *bp = ap->a_bp;
        int error;
        struct vnode *savedvp;

        savedvp = bp->b_vp;
        bp->b_vp = OTHERVP(bp->b_vp);

#if DIAGNOSTIC
        if (bp->b_vp == NULLVP)
                panic("union_strategy: nil vp");
        if (((bp->b_flags & B_READ) == 0) &&
            (bp->b_vp == LOWERVP(savedvp)))
                panic("union_strategy: writing to lowervp");
#endif

        error = VOP_STRATEGY(bp);
        bp->b_vp = savedvp;

        return (error);
}

/* Pagein */
union_pagein(ap)
        struct vop_pagein_args /* {
                struct vnode    *a_vp,
                upl_t           a_pl,
                vm_offset_t     a_pl_offset,
                off_t           a_f_offset,
                size_t          a_size,
                struct ucred    *a_cred,
                int             a_flags
        } */ *ap;
{
        int error;
        struct proc *p = current_proc();
        struct vnode *vp = OTHERVP(ap->a_vp);

        error = VOP_PAGEIN(vp, ap->a_pl, ap->a_pl_offset, ap->a_f_offset,
                        ap->a_size, ap->a_cred,ap->a_flags);

        /*
         * XXX
         * perhaps the size of the underlying object has changed under
         * our feet.  take advantage of the offset information present
         * in the uio structure.
         */
        if (error == 0) {
                struct union_node *un = VTOUNION(ap->a_vp);
                off_t cur = ap->a_f_offset + (off_t)ap->a_pl_offset;

                if (vp == un->un_uppervp) {
                        if (cur > un->un_uppersz)
                                union_newsize(ap->a_vp, cur, VNOVAL);
                } else {
                        if (cur > un->un_lowersz)
                                union_newsize(ap->a_vp, VNOVAL, cur);
                }
        }

        return (error);
}

/* Pageout  */
union_pageout(ap)
        struct vop_pageout_args /* {
                struct vnode    *a_vp,
                upl_t           a_pl,
                vm_offset_t     a_pl_offset,
                off_t           a_f_offset,
                size_t          a_size,
                struct ucred    *a_cred,
                int             a_flags
        } */ *ap;
{
        int error;
        struct vnode *vp;
        struct union_node *un = VTOUNION(ap->a_vp);

        vp = UPPERVP(ap->a_vp);
        if (vp == NULLVP)
                panic("union: missing upper layer in pageout");

        error = VOP_PAGEOUT(vp, ap->a_pl, ap->a_pl_offset, ap->a_f_offset,
                        ap->a_size, ap->a_cred,ap->a_flags);

        /*
         * the size of the underlying object may be changed by the
         * write.
         */
        if (error == 0) {
                off_t cur = ap->a_f_offset + (off_t)ap->a_pl_offset;

                if (cur > un->un_uppersz)
                        union_newsize(ap->a_vp, cur, VNOVAL);
        }

        return (error);
}

/* Blktooff derives file offset for the given logical block number */
int
union_blktooff(ap)
        struct vop_blktooff_args /* {
                struct vnode *a_vp;
                daddr_t a_lblkno;
                off_t *a_offset;    
        } */ *ap;
{
        int error;
        struct vnode *vp = OTHERVP(ap->a_vp);

        error = VOP_BLKTOOFF(vp, ap->a_lblkno, ap->a_offset);

        return(error);
}

/* offtoblk derives file offset for the given logical block number */
int
union_offtoblk(ap)
        struct vop_offtoblk_args /* {
                struct vnode *a_vp;
                off_t a_offset;    
                daddr_t *a_lblkno;
        } */ *ap;
{
        int error;
        struct vnode *vp = OTHERVP(ap->a_vp);

        error = VOP_OFFTOBLK(vp, ap->a_offset, ap->a_lblkno);

        return(error);
}

#define VOPFUNC int (*)(void *)

/*
 * Global vfs data structures
 */
int (**union_vnodeop_p)(void *);
struct vnodeopv_entry_desc union_vnodeop_entries[] = {
        { &vop_default_desc, (VOPFUNC)vn_default_error },
        { &vop_lookup_desc, (VOPFUNC)union_lookup },            /* lookup */
        { &vop_create_desc, (VOPFUNC)union_create },            /* create */
        { &vop_whiteout_desc, (VOPFUNC)union_whiteout },        /* whiteout */
        { &vop_mknod_desc, (VOPFUNC)union_mknod },              /* mknod */
        { &vop_open_desc, (VOPFUNC)union_open },                /* open */
        { &vop_close_desc, (VOPFUNC)union_close },              /* close */
        { &vop_access_desc, (VOPFUNC)union_access },            /* access */
        { &vop_getattr_desc, (VOPFUNC)union_getattr },          /* getattr */
        { &vop_setattr_desc, (VOPFUNC)union_setattr },          /* setattr */
        { &vop_read_desc, (VOPFUNC)union_read },                /* read */
        { &vop_write_desc, (VOPFUNC)union_write },              /* write */
        { &vop_lease_desc, (VOPFUNC)union_lease },              /* lease */
        { &vop_ioctl_desc, (VOPFUNC)union_ioctl },              /* ioctl */
        { &vop_select_desc, (VOPFUNC)union_select },            /* select */
        { &vop_revoke_desc, (VOPFUNC)union_revoke },            /* revoke */
        { &vop_mmap_desc, (VOPFUNC)union_mmap },                /* mmap */
        { &vop_fsync_desc, (VOPFUNC)union_fsync },              /* fsync */
        { &vop_seek_desc, (VOPFUNC)union_seek },                /* seek */
        { &vop_remove_desc, (VOPFUNC)union_remove },            /* remove */
        { &vop_link_desc, (VOPFUNC)union_link },                /* link */
        { &vop_rename_desc, (VOPFUNC)union_rename },            /* rename */
        { &vop_mkdir_desc, (VOPFUNC)union_mkdir },              /* mkdir */
        { &vop_rmdir_desc, (VOPFUNC)union_rmdir },              /* rmdir */
        { &vop_symlink_desc, (VOPFUNC)union_symlink },          /* symlink */
        { &vop_readdir_desc, (VOPFUNC)union_readdir },          /* readdir */
        { &vop_readlink_desc, (VOPFUNC)union_readlink },        /* readlink */
        { &vop_abortop_desc, (VOPFUNC)union_abortop },          /* abortop */
        { &vop_inactive_desc, (VOPFUNC)union_inactive },        /* inactive */
        { &vop_reclaim_desc, (VOPFUNC)union_reclaim },          /* reclaim */
        { &vop_lock_desc, (VOPFUNC)union_lock },                /* lock */
        { &vop_unlock_desc, (VOPFUNC)union_unlock },            /* unlock */
        { &vop_bmap_desc, (VOPFUNC)union_bmap },                /* bmap */
        { &vop_strategy_desc, (VOPFUNC)union_strategy },        /* strategy */
        { &vop_print_desc, (VOPFUNC)union_print },              /* print */
        { &vop_islocked_desc, (VOPFUNC)union_islocked },        /* islocked */
        { &vop_pathconf_desc, (VOPFUNC)union_pathconf },        /* pathconf */
        { &vop_advlock_desc, (VOPFUNC)union_advlock },          /* advlock */
#ifdef notdef
        { &vop_blkatoff_desc, (VOPFUNC)union_blkatoff },        /* blkatoff */
        { &vop_valloc_desc, (VOPFUNC)union_valloc },            /* valloc */
        { &vop_vfree_desc, (VOPFUNC)union_vfree },              /* vfree */
        { &vop_truncate_desc, (VOPFUNC)union_truncate },        /* truncate */
        { &vop_update_desc, (VOPFUNC)union_update },            /* update */
        { &vop_bwrite_desc, (VOPFUNC)union_bwrite },            /* bwrite */
#endif
        { &vop_pagein_desc, (VOPFUNC)union_pagein },            /* Pagein */
        { &vop_pageout_desc, (VOPFUNC)union_pageout },          /* Pageout */
        { &vop_copyfile_desc, (VOPFUNC)err_copyfile },          /* Copyfile */
        { &vop_blktooff_desc, (VOPFUNC)union_blktooff },        /* blktooff */
        { &vop_offtoblk_desc, (VOPFUNC)union_offtoblk },        /* offtoblk */
        { &vop_cmap_desc, (VOPFUNC)union_cmap },                /* cmap */
        { (struct vnodeop_desc*)NULL, (int(*)())NULL }
};
struct vnodeopv_desc union_vnodeop_opv_desc =
        { &union_vnodeop_p, union_vnodeop_entries };