/*
 * Copyright (c) 2009 The DragonFly Project.  All rights reserved.
 *
 * This code is derived from software contributed to The DragonFly Project
 * by Matthew Dillon <dillon@backplane.com>
 *
 * 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. Neither the name of The DragonFly Project 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 COPYRIGHT HOLDERS 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
 * COPYRIGHT HOLDERS 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.
 */
/*
 * Copyright (c) 1989, 1993
 *      The Regents of the University of California.  All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * Rick Macklem at The University of Guelph.
 *
 * 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. 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.
 */

/*
 * These functions support the macros and help fiddle mbuf chains for
 * the nfs op functions. They do things like create the rpc header and
 * copy data between mbuf chains and uio lists.
 */
#include <sys/param.h>
#include <sys/systm.h>
#include <sys/kernel.h>
#include <sys/buf.h>
#include <sys/proc.h>
#include <sys/mount.h>
#include <sys/vnode.h>
#include <sys/mbuf.h>
#include <sys/socket.h>
#include <sys/stat.h>
#include <sys/malloc.h>
#include <sys/sysent.h>
#include <sys/syscall.h>
#include <sys/conf.h>
#include <sys/objcache.h>

#include <vm/vm.h>
#include <vm/vm_object.h>
#include <vm/vm_extern.h>

#include <sys/buf2.h>

#include "rpcv2.h"
#include "nfsproto.h"
#include "nfs.h"
#include "nfsmount.h"
#include "nfsnode.h"
#include "xdr_subs.h"
#include "nfsm_subs.h"
#include "nfsrtt.h"

#include <netinet/in.h>

static u_int32_t nfs_xid = 0;

/*
 * Create the header for an rpc request packet
 * The hsiz is the size of the rest of the nfs request header.
 * (just used to decide if a cluster is a good idea)
 */
void
nfsm_reqhead(nfsm_info_t info, struct vnode *vp, u_long procid, int hsiz)
{
        info->mb = m_getl(hsiz, M_WAITOK, MT_DATA, 0, NULL);
        info->mb->m_len = 0;
        info->mreq = info->mb;
        info->bpos = mtod(info->mb, caddr_t);
}

/*
 * Build the RPC header and fill in the authorization info.
 * The authorization string argument is only used when the credentials
 * come from outside of the kernel.
 * Returns the head of the mbuf list.
 */
struct mbuf *
nfsm_rpchead(struct ucred *cr, int nmflag, int procid, int auth_type,
             int auth_len, char *auth_str, int verf_len, char *verf_str,
             struct mbuf *mrest, int mrest_len, struct mbuf **mbp,
             u_int32_t *xidp)
{
        struct nfsm_info info;
        struct mbuf *mb2;
        u_int32_t *tl;
        u_int32_t xid;
        int siz, grpsiz, authsiz, dsiz;
        int i;

        authsiz = nfsm_rndup(auth_len);
        dsiz = authsiz + 10 * NFSX_UNSIGNED;
        info.mb = m_getl(dsiz, M_WAITOK, MT_DATA, M_PKTHDR, NULL);
        if (dsiz < MINCLSIZE) {
                if (dsiz < MHLEN)
                        MH_ALIGN(info.mb, dsiz);
                else
                        MH_ALIGN(info.mb, 8 * NFSX_UNSIGNED);
        }
        info.mb->m_len = info.mb->m_pkthdr.len = 0;
        info.mreq = info.mb;
        info.bpos = mtod(info.mb, caddr_t);

        /*
         * First the RPC header.
         */
        tl = nfsm_build(&info, 8 * NFSX_UNSIGNED);

        /* Get a pretty random xid to start with */
        if (!nfs_xid)
                nfs_xid = krandom();

        do {
                xid = atomic_fetchadd_int(&nfs_xid, 1);
        } while (xid == 0);

        *tl++ = *xidp = txdr_unsigned(xid);
        *tl++ = rpc_call;
        *tl++ = rpc_vers;
        *tl++ = txdr_unsigned(NFS_PROG);
        if (nmflag & NFSMNT_NFSV3)
                *tl++ = txdr_unsigned(NFS_VER3);
        else
                *tl++ = txdr_unsigned(NFS_VER2);
        if (nmflag & NFSMNT_NFSV3)
                *tl++ = txdr_unsigned(procid);
        else
                *tl++ = txdr_unsigned(nfsv2_procid[procid]);

        /*
         * And then the authorization cred.
         */
        *tl++ = txdr_unsigned(auth_type);
        *tl = txdr_unsigned(authsiz);
        switch (auth_type) {
        case RPCAUTH_UNIX:
                tl = nfsm_build(&info, auth_len);
                *tl++ = 0;              /* stamp ?? */
                *tl++ = 0;              /* NULL hostname */
                *tl++ = txdr_unsigned(cr->cr_uid);
                *tl++ = txdr_unsigned(cr->cr_groups[0]);
                grpsiz = (auth_len >> 2) - 5;
                *tl++ = txdr_unsigned(grpsiz);
                for (i = 1; i <= grpsiz; i++)
                        *tl++ = txdr_unsigned(cr->cr_groups[i]);
                break;
        case RPCAUTH_KERB4:
                siz = auth_len;
                while (siz > 0) {
                        if (M_TRAILINGSPACE(info.mb) == 0) {
                                mb2 = m_getl(siz, M_WAITOK, MT_DATA, 0, NULL);
                                mb2->m_len = 0;
                                info.mb->m_next = mb2;
                                info.mb = mb2;
                                info.bpos = mtod(info.mb, caddr_t);
                        }
                        i = min(siz, M_TRAILINGSPACE(info.mb));
                        bcopy(auth_str, info.bpos, i);
                        info.mb->m_len += i;
                        auth_str += i;
                        info.bpos += i;
                        siz -= i;
                }
                if ((siz = (nfsm_rndup(auth_len) - auth_len)) > 0) {
                        for (i = 0; i < siz; i++)
                                *info.bpos++ = '\0';
                        info.mb->m_len += siz;
                }
                break;
        }

        /*
         * And the verifier...
         */
        tl = nfsm_build(&info, 2 * NFSX_UNSIGNED);
        if (verf_str) {
                *tl++ = txdr_unsigned(RPCAUTH_KERB4);
                *tl = txdr_unsigned(verf_len);
                siz = verf_len;
                while (siz > 0) {
                        if (M_TRAILINGSPACE(info.mb) == 0) {
                                mb2 = m_getl(siz, M_WAITOK, MT_DATA,
                                                  0, NULL);
                                mb2->m_len = 0;
                                info.mb->m_next = mb2;
                                info.mb = mb2;
                                info.bpos = mtod(info.mb, caddr_t);
                        }
                        i = min(siz, M_TRAILINGSPACE(info.mb));
                        bcopy(verf_str, info.bpos, i);
                        info.mb->m_len += i;
                        verf_str += i;
                        info.bpos += i;
                        siz -= i;
                }
                if ((siz = (nfsm_rndup(verf_len) - verf_len)) > 0) {
                        for (i = 0; i < siz; i++)
                                *info.bpos++ = '\0';
                        info.mb->m_len += siz;
                }
        } else {
                *tl++ = txdr_unsigned(RPCAUTH_NULL);
                *tl = 0;
        }
        info.mb->m_next = mrest;
        info.mreq->m_pkthdr.len = authsiz + 10 * NFSX_UNSIGNED + mrest_len;
        info.mreq->m_pkthdr.rcvif = NULL;
        *mbp = info.mb;
        return (info.mreq);
}

void *
nfsm_build(nfsm_info_t info, int bytes)
{
        struct mbuf *mb2;
        void *ptr;

        if (bytes > M_TRAILINGSPACE(info->mb)) {
                MGET(mb2, M_WAITOK, MT_DATA);
                if (bytes > MLEN)
                        panic("build > MLEN");
                info->mb->m_next = mb2;
                info->mb = mb2;
                info->mb->m_len = 0;
                info->bpos = mtod(info->mb, caddr_t);
        }
        ptr = info->bpos;
        info->mb->m_len += bytes;
        info->bpos += bytes;
        return (ptr);
}

/*
 *
 * If NULL returned caller is expected to abort with an EBADRPC error.
 * Caller will usually use the NULLOUT macro.
 */
void *
nfsm_dissect(nfsm_info_t info, int bytes)
{
        caddr_t cp2;
        void *ptr;
        int error;
        int n;

        /*
         * Check for missing reply packet.  This typically occurs if there
         * is a soft termination w/too many retries.
         */
        if (info->md == NULL) {
                if (info->mrep) {
                        m_freem(info->mrep);
                        info->mrep = NULL;
                }
                return NULL;
        }

        /*
         * Otherwise any error will be due to the packet format
         */
        n = mtod(info->md, caddr_t) + info->md->m_len - info->dpos;
        if (bytes <= n) {
                ptr = info->dpos;
                info->dpos += bytes;
        } else {
                error = nfsm_disct(&info->md, &info->dpos, bytes, n, &cp2);
                if (error) {
                        m_freem(info->mrep);
                        info->mrep = NULL;
                        ptr = NULL;
                } else {
                        ptr = cp2;
                }
        }
        return (ptr);
}

/*
 *
 * Caller is expected to abort if non-zero error is returned.
 */
int
nfsm_fhtom(nfsm_info_t info, struct vnode *vp)
{
        u_int32_t *tl;
        caddr_t cp;
        int error;
        int n;

        if (info->v3) {
                n = nfsm_rndup(VTONFS(vp)->n_fhsize) + NFSX_UNSIGNED;
                if (n <= M_TRAILINGSPACE(info->mb)) {
                        tl = nfsm_build(info, n);
                        *tl++ = txdr_unsigned(VTONFS(vp)->n_fhsize);
                        *(tl + ((n >> 2) - 2)) = 0;
                        bcopy((caddr_t)VTONFS(vp)->n_fhp,(caddr_t)tl,
                                VTONFS(vp)->n_fhsize);
                        error = 0;
                } else if ((error = nfsm_strtmbuf(&info->mb, &info->bpos,
                                                (caddr_t)VTONFS(vp)->n_fhp,
                                                VTONFS(vp)->n_fhsize)) != 0) {
                        m_freem(info->mreq);
                        info->mreq = NULL;
                }
        } else {
                cp = nfsm_build(info, NFSX_V2FH);
                bcopy(VTONFS(vp)->n_fhp, cp, NFSX_V2FH);
                error = 0;
        }
        return (error);
}

void
nfsm_srvfhtom(nfsm_info_t info, fhandle_t *fhp)
{
        u_int32_t *tl;

        if (info->v3) {
                tl = nfsm_build(info, NFSX_UNSIGNED + NFSX_V3FH);
                *tl++ = txdr_unsigned(NFSX_V3FH);
                bcopy(fhp, tl, NFSX_V3FH);
        } else {
                tl = nfsm_build(info, NFSX_V2FH);
                bcopy(fhp, tl, NFSX_V2FH);
        }
}

void
nfsm_srvpostop_fh(nfsm_info_t info, fhandle_t *fhp)
{
        u_int32_t *tl;

        tl = nfsm_build(info, 2 * NFSX_UNSIGNED + NFSX_V3FH);
        *tl++ = nfs_true;
        *tl++ = txdr_unsigned(NFSX_V3FH);
        bcopy(fhp, tl, NFSX_V3FH);
}

/*
 * Caller is expected to abort if non-zero error is returned.
 *
 * NOTE: (*vpp) may be loaded with a valid vnode even if (*gotvpp)
 *       winds up 0.  The caller is responsible for dealing with (*vpp).
 */
int
nfsm_mtofh(nfsm_info_t info, struct vnode *dvp, struct vnode **vpp, int *gotvpp)
{
        struct nfsnode *ttnp;
        nfsfh_t *ttfhp;
        u_int32_t *tl;
        int ttfhsize;
        int error = 0;

        if (info->v3) {
                tl = nfsm_dissect(info, NFSX_UNSIGNED);
                if (tl == NULL)
                        return(EBADRPC);
                *gotvpp = fxdr_unsigned(int, *tl);
        } else {
                *gotvpp = 1;
        }
        if (*gotvpp) {
                NEGATIVEOUT(ttfhsize = nfsm_getfh(info, &ttfhp));
                error = nfs_nget(dvp->v_mount, ttfhp, ttfhsize, &ttnp, NULL);
                if (error) {
                        m_freem(info->mrep);
                        info->mrep = NULL;
                        return (error);
                }
                *vpp = NFSTOV(ttnp);
        }
        if (info->v3) {
                tl = nfsm_dissect(info, NFSX_UNSIGNED);
                if (tl == NULL)
                        return (EBADRPC);
                if (*gotvpp) {
                        *gotvpp = fxdr_unsigned(int, *tl);
                } else if (fxdr_unsigned(int, *tl)) {
                        error = nfsm_adv(info, NFSX_V3FATTR);
                        if (error)
                                return (error);
                }
        }
        if (*gotvpp)
                error = nfsm_loadattr(info, *vpp, NULL);
nfsmout:
        return (error);
}

/*
 *
 * Caller is expected to abort with EBADRPC if a negative length is returned.
 */
int
nfsm_getfh(nfsm_info_t info, nfsfh_t **fhpp)
{
        u_int32_t *tl;
        int n;

        *fhpp = NULL;
        if (info->v3) {
                tl = nfsm_dissect(info, NFSX_UNSIGNED);
                if (tl == NULL)
                        return(-1);
                if ((n = fxdr_unsigned(int, *tl)) <= 0 || n > NFSX_V3FHMAX) {
                        m_freem(info->mrep);
                        info->mrep = NULL;
                        return(-1);
                }
        } else {
                n = NFSX_V2FH;
        }
        *fhpp = nfsm_dissect(info, nfsm_rndup(n));
        if (*fhpp == NULL)
                return(-1);
        return(n);
}

/*
 * Caller is expected to abort if a non-zero error is returned.
 */
int
nfsm_loadattr(nfsm_info_t info, struct vnode *vp, struct vattr *vap)
{
        int error;

        error = nfs_loadattrcache(vp, &info->md, &info->dpos, vap, 0);
        if (error) {
                m_freem(info->mrep);
                info->mrep = NULL;
                return (error);
        }
        return (0);
}

/*
 * Caller is expected to abort if a non-zero error is returned.
 */
int
nfsm_postop_attr(nfsm_info_t info, struct vnode *vp, int *attrp, int lflags)
{
        u_int32_t *tl;
        int error;

        tl = nfsm_dissect(info, NFSX_UNSIGNED);
        if (tl == NULL)
                return(EBADRPC);
        *attrp = fxdr_unsigned(int, *tl);
        if (*attrp) {
                error = nfs_loadattrcache(vp, &info->md, &info->dpos,
                                          NULL, lflags);
                if (error) {
                        *attrp = 0;
                        m_freem(info->mrep);
                        info->mrep = NULL;
                        return (error);
                }
        }
        return (0);
}

/*
 * Caller is expected to abort if a non-zero error is returned.
 */
int
nfsm_wcc_data(nfsm_info_t info, struct vnode *vp, int *attrp)
{
        u_int32_t *tl;
        int error;
        int ttattrf;
        int ttretf = 0;

        tl = nfsm_dissect(info, NFSX_UNSIGNED);
        if (tl == NULL)
                return (EBADRPC);
        if (*tl == nfs_true) {
                tl = nfsm_dissect(info, 6 * NFSX_UNSIGNED);
                if (tl == NULL)
                        return (EBADRPC);
                if (*attrp) {
                        ttretf = (VTONFS(vp)->n_mtime ==
                                fxdr_unsigned(u_int32_t, *(tl + 2)));
                        if (ttretf == 0)
                                VTONFS(vp)->n_flag |= NRMODIFIED;
                }
                error = nfsm_postop_attr(info, vp, &ttattrf,
                                 NFS_LATTR_NOSHRINK|NFS_LATTR_NOMTIMECHECK);
                if (error)
                        return(error);
        } else {
                error = nfsm_postop_attr(info, vp, &ttattrf,
                                         NFS_LATTR_NOSHRINK);
                if (error)
                        return(error);
        }
        if (*attrp)
                *attrp = ttretf;
        else
                *attrp = ttattrf;
        return(0);
}

/*
 * This function updates the attribute cache based on data returned in the
 * NFS reply for NFS RPCs that modify the target file.  If the RPC succeeds
 * a 'before' and 'after' mtime is returned that allows us to determine if
 * the new mtime attribute represents our modification or someone else's
 * modification.
 *
 * The flag argument returns non-0 if the original times matched, zero if
 * they did not match.  NRMODIFIED is automatically set if the before time
 * does not match the original n_mtime, and n_mtime is automatically updated
 * to the new after time (by nfsm_postop_attr()).
 *
 * If full is true, set all fields, otherwise just set mode and time fields
 */
void
nfsm_v3attrbuild(nfsm_info_t info, struct vattr *vap, int full)
{
        u_int32_t *tl;

        if (vap->va_mode != (mode_t)VNOVAL) {
                tl = nfsm_build(info, 2 * NFSX_UNSIGNED);
                *tl++ = nfs_true;
                *tl = txdr_unsigned(vap->va_mode);
        } else {
                tl = nfsm_build(info, NFSX_UNSIGNED);
                *tl = nfs_false;
        }
        if (full && vap->va_uid != (uid_t)VNOVAL) {
                tl = nfsm_build(info, 2 * NFSX_UNSIGNED);
                *tl++ = nfs_true;
                *tl = txdr_unsigned(vap->va_uid);
        } else {
                tl = nfsm_build(info, NFSX_UNSIGNED);
                *tl = nfs_false;
        }
        if (full && vap->va_gid != (gid_t)VNOVAL) {
                tl = nfsm_build(info, 2 * NFSX_UNSIGNED);
                *tl++ = nfs_true;
                *tl = txdr_unsigned(vap->va_gid);
        } else {
                tl = nfsm_build(info, NFSX_UNSIGNED);
                *tl = nfs_false;
        }
        if (full && vap->va_size != VNOVAL) {
                tl = nfsm_build(info, 3 * NFSX_UNSIGNED);
                *tl++ = nfs_true;
                txdr_hyper(vap->va_size, tl);
        } else {
                tl = nfsm_build(info, NFSX_UNSIGNED);
                *tl = nfs_false;
        }
        if (vap->va_atime.tv_sec != VNOVAL) {
                if (vap->va_atime.tv_sec != time_second) {
                        tl = nfsm_build(info, 3 * NFSX_UNSIGNED);
                        *tl++ = txdr_unsigned(NFSV3SATTRTIME_TOCLIENT);
                        txdr_nfsv3time(&vap->va_atime, tl);
                } else {
                        tl = nfsm_build(info, NFSX_UNSIGNED);
                        *tl = txdr_unsigned(NFSV3SATTRTIME_TOSERVER);
                }
        } else {
                tl = nfsm_build(info, NFSX_UNSIGNED);
                *tl = txdr_unsigned(NFSV3SATTRTIME_DONTCHANGE);
        }
        if (vap->va_mtime.tv_sec != VNOVAL) {
                if (vap->va_mtime.tv_sec != time_second) {
                        tl = nfsm_build(info, 3 * NFSX_UNSIGNED);
                        *tl++ = txdr_unsigned(NFSV3SATTRTIME_TOCLIENT);
                        txdr_nfsv3time(&vap->va_mtime, tl);
                } else {
                        tl = nfsm_build(info, NFSX_UNSIGNED);
                        *tl = txdr_unsigned(NFSV3SATTRTIME_TOSERVER);
                }
        } else {
                tl = nfsm_build(info, NFSX_UNSIGNED);
                *tl = txdr_unsigned(NFSV3SATTRTIME_DONTCHANGE);
        }
}

/*
 * Caller is expected to abort with EBADRPC if a negative length is returned.
 */
int
nfsm_strsiz(nfsm_info_t info, int maxlen)
{
        u_int32_t *tl;
        int len;

        tl = nfsm_dissect(info, NFSX_UNSIGNED);
        if (tl == NULL)
                return(-1);
        len = fxdr_unsigned(int32_t, *tl);
        if (len < 0 || len > maxlen)
                return(-1);
        return (len);
}

/*
 * Caller is expected to abort if a negative length is returned, but also
 * call nfsm_reply(0) if -2 is returned.
 *
 * This function sets *errorp.  Caller should not modify the error code.
 */
int
nfsm_srvstrsiz(nfsm_info_t info, int maxlen, int *errorp)
{
        u_int32_t *tl;
        int len;

        tl = nfsm_dissect(info, NFSX_UNSIGNED);
        if (tl == NULL) {
                *errorp = EBADRPC;
                return(-1);
        }
        len = fxdr_unsigned(int32_t,*tl);
        if (len > maxlen || len <= 0) {
                *errorp = EBADRPC;
                return(-2);
        }
        return(len);
}

/*
 * Caller is expected to abort if a negative length is returned, but also
 * call nfsm_reply(0) if -2 is returned.
 *
 * This function sets *errorp.  Caller should not modify the error code.
 */
int
nfsm_srvnamesiz(nfsm_info_t info, int *errorp)
{
        u_int32_t *tl;
        int len;

        tl = nfsm_dissect(info, NFSX_UNSIGNED);
        if (tl == NULL) {
                *errorp = EBADRPC;
                return(-1);
        }

        /*
         * In this case if *errorp is not EBADRPC and we are NFSv3,
         * nfsm_reply() will not return a negative number.  But all
         * call cases assume len is valid so we really do want
         * to return -1.
         */
        len = fxdr_unsigned(int32_t,*tl);
        if (len > NFS_MAXNAMLEN)
                *errorp = NFSERR_NAMETOL;
        if (len <= 0)
                *errorp = EBADRPC;
        if (*errorp)
                return(-2);
        return (len);
}

/*
 * Caller is expected to abort if a non-zero error is returned.
 */
int
nfsm_mtouio(nfsm_info_t info, struct uio *uiop, int len)
{
        int error;

        if (len > 0 &&
           (error = nfsm_mbuftouio(&info->md, uiop, len, &info->dpos)) != 0) {
                m_freem(info->mrep);
                info->mrep = NULL;
                return(error);
        }
        return(0);
}

/*
 * Caller is expected to abort if a non-zero error is returned.
 */
int
nfsm_mtobio(nfsm_info_t info, struct bio *bio, int len)
{
        int error;

        if (len > 0 &&
           (error = nfsm_mbuftobio(&info->md, bio, len, &info->dpos)) != 0) {
                m_freem(info->mrep);
                info->mrep = NULL;
                return(error);
       }
       return (0);
}

/*
 * Caller is expected to abort if a non-zero error is returned.
 */
int
nfsm_uiotom(nfsm_info_t info, struct uio *uiop, int len)
{
        int error;

        error = nfsm_uiotombuf(uiop, &info->mb, len, &info->bpos);
        if (error) {
                m_freem(info->mreq);
                info->mreq = NULL;
                return (error);
        }
        return(0);
}

int
nfsm_biotom(nfsm_info_t info, struct bio *bio, int off, int len)
{
        int error;

        error = nfsm_biotombuf(bio, &info->mb, off, len, &info->bpos);
        if (error) {
                m_freem(info->mreq);
                info->mreq = NULL;
                return (error);
        }
        return(0);
}

/*
 * Caller is expected to abort if a negative value is returned.  This
 * function sets *errorp.  Caller should not modify the error code.
 *
 * We load up the remaining info fields and run the request state
 * machine until it is done.
 *
 * This call runs the entire state machine and does not return until
 * the command is complete.
 */
int
nfsm_request(nfsm_info_t info, struct vnode *vp, int procnum,
             thread_t td, struct ucred *cred, int *errorp)
{
        info->state = NFSM_STATE_SETUP;
        info->procnum = procnum;
        info->vp = vp;
        info->td = td;
        info->cred = cred;
        info->bio = NULL;
        info->nmp = VFSTONFS(vp->v_mount);

        *errorp = nfs_request(info, NFSM_STATE_SETUP, NFSM_STATE_DONE);
        if (*errorp) {
                if ((*errorp & NFSERR_RETERR) == 0)
                        return(-1);
                *errorp &= ~NFSERR_RETERR;
        }
        return(0);
}

/*
 * This call starts the state machine through the initial transmission.
 * Completion is via the bio.  The info structure must have installed
 * a 'done' callback.
 *
 * If we are unable to do the initial tx we generate the bio completion
 * ourselves.
 */
void
nfsm_request_bio(nfsm_info_t info, struct vnode *vp, int procnum,
             thread_t td, struct ucred *cred)
{
        struct buf *bp;
        int error;

        info->state = NFSM_STATE_SETUP;
        info->procnum = procnum;
        info->vp = vp;
        info->td = td;
        info->cred = cred;
        info->nmp = VFSTONFS(vp->v_mount);

        error = nfs_request(info, NFSM_STATE_SETUP, NFSM_STATE_WAITREPLY);
        if (error != EINPROGRESS) {
                kprintf("nfsm_request_bio: early abort %d\n", error);
                bp = info->bio->bio_buf;
                if (error) {
                        bp->b_flags |= B_ERROR;
                        if (error == EIO)               /* unrecoverable */
                                bp->b_flags |= B_INVAL;
                }
                bp->b_error = error;
                biodone(info->bio);
        }
}

/*
 * Caller is expected to abort if a non-zero error is returned.
 */
int
nfsm_strtom(nfsm_info_t info, const void *data, int len, int maxlen)
{
        u_int32_t *tl;
        int error;
        int n;

        if (len > maxlen) {
                m_freem(info->mreq);
                info->mreq = NULL;
                return(ENAMETOOLONG);
        }
        n = nfsm_rndup(len) + NFSX_UNSIGNED;
        if (n <= M_TRAILINGSPACE(info->mb)) {
                tl = nfsm_build(info, n);
                *tl++ = txdr_unsigned(len);
                *(tl + ((n >> 2) - 2)) = 0;
                bcopy(data, tl, len);
                error = 0;
        } else {
                error = nfsm_strtmbuf(&info->mb, &info->bpos, data, len);
                if (error) {
                        m_freem(info->mreq);
                        info->mreq = NULL;
                }
        }
        return (error);
}

/*
 * Caller is expected to abort if a negative value is returned.  This
 * function sets *errorp.  Caller should not modify the error code.
 */
int
nfsm_reply(nfsm_info_t info,
           struct nfsrv_descript *nfsd, struct nfssvc_sock *slp,
           int siz, int *errorp)
{
        nfsd->nd_repstat = *errorp;
        if (*errorp && !(nfsd->nd_flag & ND_NFSV3))
                siz = 0;
        nfs_rephead(siz, nfsd, slp, *errorp, &info->mreq,
                    &info->mb, &info->bpos);
        if (info->mrep != NULL) {
                m_freem(info->mrep);
                info->mrep = NULL;
        }
        if (*errorp && (!(nfsd->nd_flag & ND_NFSV3) || *errorp == EBADRPC)) {
                *errorp = 0;
                return(-1);
        }
        return(0);
}

void
nfsm_writereply(nfsm_info_t info,
                struct nfsrv_descript *nfsd, struct nfssvc_sock *slp,
                int error, int siz)
{
        nfsd->nd_repstat = error;
        if (error && !(info->v3))
                siz = 0;
        nfs_rephead(siz, nfsd, slp, error, &info->mreq, &info->mb, &info->bpos);
}

/*
 * Caller is expected to abort if a non-zero error is returned.
 */
int
nfsm_adv(nfsm_info_t info, int len)
{
        int error;
        int n;

        n = mtod(info->md, caddr_t) + info->md->m_len - info->dpos;
        if (n >= len) {
                info->dpos += len;
                error = 0;
        } else if ((error = nfs_adv(&info->md, &info->dpos, len, n)) != 0) {
                m_freem(info->mrep);
                info->mrep = NULL;
        }
        return (error);
}

/*
 * Caller is expected to abort if a negative length is returned, but also
 * call nfsm_reply(0) if -2 is returned.
 *
 * This function sets *errorp.  Caller should not modify the error code.
 */
int
nfsm_srvmtofh(nfsm_info_t info, struct nfsrv_descript *nfsd,
              fhandle_t *fhp, int *errorp)
{
        u_int32_t *tl;
        int fhlen;

        if (nfsd->nd_flag & ND_NFSV3) {
                tl = nfsm_dissect(info, NFSX_UNSIGNED);
                if (tl == NULL) {
                        *errorp = EBADRPC;
                        return(-1);
                }
                fhlen = fxdr_unsigned(int, *tl);
                if (fhlen != 0 && fhlen != NFSX_V3FH) {
                        *errorp = EBADRPC;
                        return(-2);
                }
        } else {
                fhlen = NFSX_V2FH;
        }
        if (fhlen != 0) {
                tl = nfsm_dissect(info, fhlen);
                if (tl == NULL) {
                        *errorp = EBADRPC;
                        return(-1);
                }
                bcopy(tl, fhp, fhlen);
        } else {
                bzero(fhp, NFSX_V3FH);
        }
        return(0);
}

void *
_nfsm_clget(nfsm_info_t info, struct mbuf **mp1, struct mbuf **mp2,
            char **bp, char **be)
{
        if (*bp >= *be) {
                if (*mp1 == info->mb)
                        (*mp1)->m_len += *bp - info->bpos;
                *mp1 = m_getcl(M_WAITOK, MT_DATA, 0);
                (*mp1)->m_len = MCLBYTES;
                (*mp2)->m_next = *mp1;
                *mp2 = *mp1;
                *bp = mtod(*mp1, caddr_t);
                *be = *bp + (*mp1)->m_len;
        }
        return(*bp);
}

int
nfsm_srvsattr(nfsm_info_t info, struct vattr *vap)
{
        u_int32_t *tl;
        int error = 0;

        NULLOUT(tl = nfsm_dissect(info, NFSX_UNSIGNED));
        if (*tl == nfs_true) {
                NULLOUT(tl = nfsm_dissect(info, NFSX_UNSIGNED));
                vap->va_mode = nfstov_mode(*tl);
        }
        NULLOUT(tl = nfsm_dissect(info, NFSX_UNSIGNED));
        if (*tl == nfs_true) {
                NULLOUT(tl = nfsm_dissect(info, NFSX_UNSIGNED));
                vap->va_uid = fxdr_unsigned(uid_t, *tl);
        }
        NULLOUT(tl = nfsm_dissect(info, NFSX_UNSIGNED));
        if (*tl == nfs_true) {
                NULLOUT(tl = nfsm_dissect(info, NFSX_UNSIGNED));
                vap->va_gid = fxdr_unsigned(gid_t, *tl);
        }
        NULLOUT(tl = nfsm_dissect(info, NFSX_UNSIGNED));
        if (*tl == nfs_true) {
                NULLOUT(tl = nfsm_dissect(info, 2 * NFSX_UNSIGNED));
                vap->va_size = fxdr_hyper(tl);
        }
        NULLOUT(tl = nfsm_dissect(info, NFSX_UNSIGNED));
        switch (fxdr_unsigned(int, *tl)) {
        case NFSV3SATTRTIME_TOCLIENT:
                NULLOUT(tl = nfsm_dissect(info, 2 * NFSX_UNSIGNED));
                fxdr_nfsv3time(tl, &vap->va_atime);
                break;
        case NFSV3SATTRTIME_TOSERVER:
                getnanotime(&vap->va_atime);
                break;
        }
        NULLOUT(tl = nfsm_dissect(info, NFSX_UNSIGNED));
        switch (fxdr_unsigned(int, *tl)) {
        case NFSV3SATTRTIME_TOCLIENT:
                NULLOUT(tl = nfsm_dissect(info, 2 * NFSX_UNSIGNED));
                fxdr_nfsv3time(tl, &vap->va_mtime);
                break;
        case NFSV3SATTRTIME_TOSERVER:
                getnanotime(&vap->va_mtime);
                break;
        }
nfsmout:
        return (error);
}

/*
 * copies mbuf chain to the uio scatter/gather list
 */
int
nfsm_mbuftouio(struct mbuf **mrep, struct uio *uiop, int siz, caddr_t *dpos)
{
        char *mbufcp, *uiocp;
        int xfer, left, len;
        struct mbuf *mp;
        long uiosiz, rem;
        int error = 0;

        mp = *mrep;
        mbufcp = *dpos;
        len = mtod(mp, caddr_t)+mp->m_len-mbufcp;
        rem = nfsm_rndup(siz)-siz;
        while (siz > 0) {
                if (uiop->uio_iovcnt <= 0 || uiop->uio_iov == NULL)
                        return (EFBIG);
                left = uiop->uio_iov->iov_len;
                uiocp = uiop->uio_iov->iov_base;
                if (left > siz)
                        left = siz;
                uiosiz = left;
                while (left > 0) {
                        while (len == 0) {
                                mp = mp->m_next;
                                if (mp == NULL)
                                        return (EBADRPC);
                                mbufcp = mtod(mp, caddr_t);
                                len = mp->m_len;
                        }
                        xfer = (left > len) ? len : left;
#ifdef notdef
                        /* Not Yet.. */
                        if (uiop->uio_iov->iov_op != NULL)
                                (*(uiop->uio_iov->iov_op))
                                (mbufcp, uiocp, xfer);
                        else
#endif
                        if (uiop->uio_segflg == UIO_SYSSPACE)
                                bcopy(mbufcp, uiocp, xfer);
                        else
                                copyout(mbufcp, uiocp, xfer);
                        left -= xfer;
                        len -= xfer;
                        mbufcp += xfer;
                        uiocp += xfer;
                        uiop->uio_offset += xfer;
                        uiop->uio_resid -= xfer;
                }
                if (uiop->uio_iov->iov_len <= siz) {
                        uiop->uio_iovcnt--;
                        uiop->uio_iov++;
                } else {
                        uiop->uio_iov->iov_base = (char *)uiop->uio_iov->iov_base + uiosiz;
                        uiop->uio_iov->iov_len -= uiosiz;
                }
                siz -= uiosiz;
        }
        *dpos = mbufcp;
        *mrep = mp;
        if (rem > 0) {
                if (len < rem)
                        error = nfs_adv(mrep, dpos, rem, len);
                else
                        *dpos += rem;
        }
        return (error);
}

/*
 * copies mbuf chain to the bio buffer
 */
int
nfsm_mbuftobio(struct mbuf **mrep, struct bio *bio, int size, caddr_t *dpos)
{
        struct buf *bp = bio->bio_buf;
        char *mbufcp;
        char *bio_cp;
        int xfer, len;
        struct mbuf *mp;
        long rem;
        int error = 0;
        int bio_left;

        mp = *mrep;
        mbufcp = *dpos;
        len = mtod(mp, caddr_t) + mp->m_len - mbufcp;
        rem = nfsm_rndup(size) - size;

        bio_left = bp->b_bcount;
        bio_cp = bp->b_data;

        while (size > 0) {
                while (len == 0) {
                        mp = mp->m_next;
                        if (mp == NULL)
                                return (EBADRPC);
                        mbufcp = mtod(mp, caddr_t);
                        len = mp->m_len;
                }
                if ((xfer = len) > size)
                        xfer = size;
                if (bio_left) {
                        if (xfer > bio_left)
                                xfer = bio_left;
                        bcopy(mbufcp, bio_cp, xfer);
                } else {
                        /*
                         * Not enough buffer space in the bio.
                         */
                        return(EFBIG);
                }
                size -= xfer;
                bio_left -= xfer;
                bio_cp += xfer;
                len -= xfer;
                mbufcp += xfer;
        }
        *dpos = mbufcp;
        *mrep = mp;
        if (rem > 0) {
                if (len < rem)
                        error = nfs_adv(mrep, dpos, rem, len);
                else
                        *dpos += rem;
        }
        return (error);
}

/*
 * copies a uio scatter/gather list to an mbuf chain.
 * NOTE: can ony handle iovcnt == 1
 */
int
nfsm_uiotombuf(struct uio *uiop, struct mbuf **mq, int siz, caddr_t *bpos)
{
        char *uiocp;
        struct mbuf *mp, *mp2;
        int xfer, left, mlen;
        int uiosiz, rem;
        boolean_t getcluster;
        char *cp;

#ifdef DIAGNOSTIC
        if (uiop->uio_iovcnt != 1)
                panic("nfsm_uiotombuf: iovcnt != 1");
#endif

        if (siz >= MINCLSIZE)
                getcluster = TRUE;
        else
                getcluster = FALSE;
        rem = nfsm_rndup(siz) - siz;
        mp = mp2 = *mq;
        while (siz > 0) {
                left = uiop->uio_iov->iov_len;
                uiocp = uiop->uio_iov->iov_base;
                if (left > siz)
                        left = siz;
                uiosiz = left;
                while (left > 0) {
                        mlen = M_TRAILINGSPACE(mp);
                        if (mlen == 0) {
                                if (getcluster)
                                        mp = m_getcl(M_WAITOK, MT_DATA, 0);
                                else
                                        mp = m_get(M_WAITOK, MT_DATA);
                                mp->m_len = 0;
                                mp2->m_next = mp;
                                mp2 = mp;
                                mlen = M_TRAILINGSPACE(mp);
                        }
                        xfer = (left > mlen) ? mlen : left;
#ifdef notdef
                        /* Not Yet.. */
                        if (uiop->uio_iov->iov_op != NULL)
                                (*(uiop->uio_iov->iov_op))
                                (uiocp, mtod(mp, caddr_t)+mp->m_len, xfer);
                        else
#endif
                        if (uiop->uio_segflg == UIO_SYSSPACE)
                                bcopy(uiocp, mtod(mp, caddr_t)+mp->m_len, xfer);
                        else
                                copyin(uiocp, mtod(mp, caddr_t)+mp->m_len, xfer);
                        mp->m_len += xfer;
                        left -= xfer;
                        uiocp += xfer;
                        uiop->uio_offset += xfer;
                        uiop->uio_resid -= xfer;
                }
                uiop->uio_iov->iov_base = (char *)uiop->uio_iov->iov_base + uiosiz;
                uiop->uio_iov->iov_len -= uiosiz;
                siz -= uiosiz;
        }
        if (rem > 0) {
                if (rem > M_TRAILINGSPACE(mp)) {
                        MGET(mp, M_WAITOK, MT_DATA);
                        mp->m_len = 0;
                        mp2->m_next = mp;
                }
                cp = mtod(mp, caddr_t)+mp->m_len;
                for (left = 0; left < rem; left++)
                        *cp++ = '\0';
                mp->m_len += rem;
                *bpos = cp;
        } else
                *bpos = mtod(mp, caddr_t)+mp->m_len;
        *mq = mp;
        return (0);
}

int
nfsm_biotombuf(struct bio *bio, struct mbuf **mq, int off,
               int siz, caddr_t *bpos)
{
        struct buf *bp = bio->bio_buf;
        struct mbuf *mp, *mp2;
        char *bio_cp;
        int bio_left;
        int xfer, mlen;
        int rem;
        boolean_t getcluster;
        char *cp;

        if (siz >= MINCLSIZE)
                getcluster = TRUE;
        else
                getcluster = FALSE;
        rem = nfsm_rndup(siz) - siz;
        mp = mp2 = *mq;

        bio_cp = bp->b_data + off;
        bio_left = siz;

        while (bio_left) {
                mlen = M_TRAILINGSPACE(mp);
                if (mlen == 0) {
                        if (getcluster)
                                mp = m_getcl(M_WAITOK, MT_DATA, 0);
                        else
                                mp = m_get(M_WAITOK, MT_DATA);
                        mp->m_len = 0;
                        mp2->m_next = mp;
                        mp2 = mp;
                        mlen = M_TRAILINGSPACE(mp);
                }
                xfer = (bio_left < mlen) ? bio_left : mlen;
                bcopy(bio_cp, mtod(mp, caddr_t) + mp->m_len, xfer);
                mp->m_len += xfer;
                bio_left -= xfer;
                bio_cp += xfer;
        }
        if (rem > 0) {
                if (rem > M_TRAILINGSPACE(mp)) {
                        MGET(mp, M_WAITOK, MT_DATA);
                        mp->m_len = 0;
                        mp2->m_next = mp;
                }
                cp = mtod(mp, caddr_t) + mp->m_len;
                for (mlen = 0; mlen < rem; mlen++)
                        *cp++ = '\0';
                mp->m_len += rem;
                *bpos = cp;
        } else {
                *bpos = mtod(mp, caddr_t) + mp->m_len;
        }
        *mq = mp;
        return(0);
}

/*
 * Help break down an mbuf chain by setting the first siz bytes contiguous
 * pointed to by returned val.
 * This is used by the macros nfsm_dissect and nfsm_dissecton for tough
 * cases. (The macros use the vars. dpos and dpos2)
 */
int
nfsm_disct(struct mbuf **mdp, caddr_t *dposp, int siz, int left, caddr_t *cp2)
{
        struct mbuf *mp, *mp2;
        int siz2, xfer;
        caddr_t p;

        mp = *mdp;
        while (left == 0) {
                *mdp = mp = mp->m_next;
                if (mp == NULL)
                        return (EBADRPC);
                left = mp->m_len;
                *dposp = mtod(mp, caddr_t);
        }
        if (left >= siz) {
                *cp2 = *dposp;
                *dposp += siz;
        } else if (mp->m_next == NULL) {
                return (EBADRPC);
        } else if (siz > MHLEN) {
                panic("nfs S too big");
        } else {
                MGET(mp2, M_WAITOK, MT_DATA);
                mp2->m_next = mp->m_next;
                mp->m_next = mp2;
                mp->m_len -= left;
                mp = mp2;
                *cp2 = p = mtod(mp, caddr_t);
                bcopy(*dposp, p, left);         /* Copy what was left */
                siz2 = siz-left;
                p += left;
                mp2 = mp->m_next;
                /* Loop around copying up the siz2 bytes */
                while (siz2 > 0) {
                        if (mp2 == NULL)
                                return (EBADRPC);
                        xfer = (siz2 > mp2->m_len) ? mp2->m_len : siz2;
                        if (xfer > 0) {
                                bcopy(mtod(mp2, caddr_t), p, xfer);
                                mp2->m_len -= xfer;
                                mp2->m_data += xfer;
                                p += xfer;
                                siz2 -= xfer;
                        }
                        if (siz2 > 0)
                                mp2 = mp2->m_next;
                }
                mp->m_len = siz;
                *mdp = mp2;
                *dposp = mtod(mp2, caddr_t);
        }
        return (0);
}

/*
 * Advance the position in the mbuf chain.
 */
int
nfs_adv(struct mbuf **mdp, caddr_t *dposp, int offs, int left)
{
        struct mbuf *m;
        int s;

        m = *mdp;
        s = left;
        while (s < offs) {
                offs -= s;
                m = m->m_next;
                if (m == NULL)
                        return (EBADRPC);
                s = m->m_len;
        }
        *mdp = m;
        *dposp = mtod(m, caddr_t)+offs;
        return (0);
}

/*
 * Copy a string into mbufs for the hard cases...
 */
int
nfsm_strtmbuf(struct mbuf **mb, char **bpos, const char *cp, long siz)
{
        struct mbuf *m1 = NULL, *m2;
        long left, xfer, len, tlen;
        u_int32_t *tl;
        int putsize;

        putsize = 1;
        m2 = *mb;
        left = M_TRAILINGSPACE(m2);
        if (left > 0) {
                tl = ((u_int32_t *)(*bpos));
                *tl++ = txdr_unsigned(siz);
                putsize = 0;
                left -= NFSX_UNSIGNED;
                m2->m_len += NFSX_UNSIGNED;
                if (left > 0) {
                        bcopy(cp, (caddr_t) tl, left);
                        siz -= left;
                        cp += left;
                        m2->m_len += left;
                        left = 0;
                }
        }
        /* Loop around adding mbufs */
        while (siz > 0) {
                int msize;

                m1 = m_getl(siz, M_WAITOK, MT_DATA, 0, &msize);
                m1->m_len = msize;
                m2->m_next = m1;
                m2 = m1;
                tl = mtod(m1, u_int32_t *);
                tlen = 0;
                if (putsize) {
                        *tl++ = txdr_unsigned(siz);
                        m1->m_len -= NFSX_UNSIGNED;
                        tlen = NFSX_UNSIGNED;
                        putsize = 0;
                }
                if (siz < m1->m_len) {
                        len = nfsm_rndup(siz);
                        xfer = siz;
                        if (xfer < len)
                                *(tl+(xfer>>2)) = 0;
                } else {
                        xfer = len = m1->m_len;
                }
                bcopy(cp, (caddr_t) tl, xfer);
                m1->m_len = len+tlen;
                siz -= xfer;
                cp += xfer;
        }
        *mb = m1;
        *bpos = mtod(m1, caddr_t)+m1->m_len;
        return (0);
}

/*
 * A fiddled version of m_adj() that ensures null fill to a long
 * boundary and only trims off the back end
 */
void
nfsm_adj(struct mbuf *mp, int len, int nul)
{
        struct mbuf *m;
        int count, i;
        char *cp;

        /*
         * Trim from tail.  Scan the mbuf chain,
         * calculating its length and finding the last mbuf.
         * If the adjustment only affects this mbuf, then just
         * adjust and return.  Otherwise, rescan and truncate
         * after the remaining size.
         */
        count = 0;
        m = mp;
        for (;;) {
                count += m->m_len;
                if (m->m_next == NULL)
                        break;
                m = m->m_next;
        }
        if (m->m_len > len) {
                m->m_len -= len;
                if (nul > 0) {
                        cp = mtod(m, caddr_t)+m->m_len-nul;
                        for (i = 0; i < nul; i++)
                                *cp++ = '\0';
                }
                return;
        }
        count -= len;
        if (count < 0)
                count = 0;
        /*
         * Correct length for chain is "count".
         * Find the mbuf with last data, adjust its length,
         * and toss data from remaining mbufs on chain.
         */
        for (m = mp; m; m = m->m_next) {
                if (m->m_len >= count) {
                        m->m_len = count;
                        if (nul > 0) {
                                cp = mtod(m, caddr_t)+m->m_len-nul;
                                for (i = 0; i < nul; i++)
                                        *cp++ = '\0';
                        }
                        break;
                }
                count -= m->m_len;
        }
        for (m = m->m_next;m;m = m->m_next)
                m->m_len = 0;
}

/*
 * Make these functions instead of macros, so that the kernel text size
 * doesn't get too big...
 */
void
nfsm_srvwcc_data(nfsm_info_t info, struct nfsrv_descript *nfsd,
                 int before_ret, struct vattr *before_vap,
                 int after_ret, struct vattr *after_vap)
{
        u_int32_t *tl;

        /*
         * before_ret is 0 if before_vap is valid, non-zero if it isn't.
         */
        if (before_ret) {
                tl = nfsm_build(info, NFSX_UNSIGNED);
                *tl = nfs_false;
        } else {
                tl = nfsm_build(info, 7 * NFSX_UNSIGNED);
                *tl++ = nfs_true;
                txdr_hyper(before_vap->va_size, tl);
                tl += 2;
                txdr_nfsv3time(&(before_vap->va_mtime), tl);
                tl += 2;
                txdr_nfsv3time(&(before_vap->va_ctime), tl);
        }
        nfsm_srvpostop_attr(info, nfsd, after_ret, after_vap);
}

void
nfsm_srvpostop_attr(nfsm_info_t info, struct nfsrv_descript *nfsd,
                   int after_ret, struct vattr *after_vap)
{
        struct nfs_fattr *fp;
        u_int32_t *tl;

        if (after_ret) {
                tl = nfsm_build(info, NFSX_UNSIGNED);
                *tl = nfs_false;
        } else {
                tl = nfsm_build(info, NFSX_UNSIGNED + NFSX_V3FATTR);
                *tl++ = nfs_true;
                fp = (struct nfs_fattr *)tl;
                nfsm_srvfattr(nfsd, after_vap, fp);
        }
}

void
nfsm_srvfattr(struct nfsrv_descript *nfsd, struct vattr *vap,
              struct nfs_fattr *fp)
{
        /*
         * NFS seems to truncate nlink to 16 bits, don't let it overflow.
         */
        if (vap->va_nlink > 65535)
                fp->fa_nlink = 65535;
        else
                fp->fa_nlink = txdr_unsigned(vap->va_nlink);
        fp->fa_uid = txdr_unsigned(vap->va_uid);
        fp->fa_gid = txdr_unsigned(vap->va_gid);
        if (nfsd->nd_flag & ND_NFSV3) {
                fp->fa_type = vtonfsv3_type(vap->va_type);
                fp->fa_mode = vtonfsv3_mode(vap->va_mode);
                txdr_hyper(vap->va_size, &fp->fa3_size);
                txdr_hyper(vap->va_bytes, &fp->fa3_used);
                fp->fa3_rdev.specdata1 = txdr_unsigned(vap->va_rmajor);
                fp->fa3_rdev.specdata2 = txdr_unsigned(vap->va_rminor);
                fp->fa3_fsid.nfsuquad[0] = 0;
                fp->fa3_fsid.nfsuquad[1] = txdr_unsigned(vap->va_fsid);
                txdr_hyper(vap->va_fileid, &fp->fa3_fileid);
                txdr_nfsv3time(&vap->va_atime, &fp->fa3_atime);
                txdr_nfsv3time(&vap->va_mtime, &fp->fa3_mtime);
                txdr_nfsv3time(&vap->va_ctime, &fp->fa3_ctime);
        } else {
                fp->fa_type = vtonfsv2_type(vap->va_type);
                fp->fa_mode = vtonfsv2_mode(vap->va_type, vap->va_mode);
                fp->fa2_size = txdr_unsigned(vap->va_size);
                fp->fa2_blocksize = txdr_unsigned(vap->va_blocksize);
                if (vap->va_type == VFIFO)
                        fp->fa2_rdev = 0xffffffff;
                else
                        fp->fa2_rdev = txdr_unsigned(makeudev(vap->va_rmajor, vap->va_rminor));
                fp->fa2_blocks = txdr_unsigned(vap->va_bytes / NFS_FABLKSIZE);
                fp->fa2_fsid = txdr_unsigned(vap->va_fsid);
                fp->fa2_fileid = txdr_unsigned(vap->va_fileid);
                txdr_nfsv2time(&vap->va_atime, &fp->fa2_atime);
                txdr_nfsv2time(&vap->va_mtime, &fp->fa2_mtime);
                txdr_nfsv2time(&vap->va_ctime, &fp->fa2_ctime);
        }
}