/*      $NetBSD: opdump.c,v 1.38 2021/03/08 17:34:10 christos Exp $     */

/*
 * Copyright (c) 2005, 2006  Antti Kantee.  All Rights Reserved.
 *
 * Development of this software was supported by the
 * Google Summer of Code program and the Ulla Tuominen Foundation.
 * The Google SoC project was mentored by Bill Studenmund.
 *
 * 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.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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.
 */

/* Pretty-printing helper routines for VFS/VOP request contents */

/* yes, this is pretty much a mess */

#include <sys/cdefs.h>
#if !defined(lint)
__RCSID("$NetBSD: opdump.c,v 1.38 2021/03/08 17:34:10 christos Exp $");
#endif /* !lint */

#include <sys/types.h>
#include <sys/time.h>

#include <puffs.h>
#include <puffsdump.h>
#include <stdarg.h>
#include <stdio.h>

#include "puffs_priv.h"

#define DINT "    "

const char *puffsdump_vfsop_revmap[] = {
        "PUFFS_VFS_MOUNT",
        "PUFFS_VFS_START",
        "PUFFS_VFS_UNMOUNT",
        "PUFFS_VFS_ROOT",
        "PUFFS_VFS_QUOTACTL",
        "PUFFS_VFS_STATVFS",
        "PUFFS_VFS_SYNC",
        "PUFFS_VFS_VGET",
        "PUFFS_VFS_FHTOVP",
        "PUFFS_VFS_VPTOFH",
        "PUFFS_VFS_INIT",
        "PUFFS_VFS_DONE",
        "PUFFS_VFS_SNAPSHOT",
        "PUFFS_VFS_EXTATTRCTL",
        "PUFFS_VFS_SUSPEND"
};
size_t puffsdump_vfsop_count = __arraycount(puffsdump_vfsop_revmap);

const char *puffsdump_vnop_revmap[] = {
        "PUFFS_VN_LOOKUP",
        "PUFFS_VN_CREATE",
        "PUFFS_VN_MKNOD",
        "PUFFS_VN_OPEN",
        "PUFFS_VN_CLOSE",
        "PUFFS_VN_ACCESS",
        "PUFFS_VN_GETATTR",
        "PUFFS_VN_SETATTR",
        "PUFFS_VN_READ",
        "PUFFS_VN_WRITE",
        "PUFFS_VN_IOCTL",
        "PUFFS_VN_FCNTL",
        "PUFFS_VN_POLL",
        "PUFFS_VN_KQFILTER",
        "PUFFS_VN_REVOKE",
        "PUFFS_VN_MMAP",
        "PUFFS_VN_FSYNC",
        "PUFFS_VN_SEEK",
        "PUFFS_VN_REMOVE",
        "PUFFS_VN_LINK",
        "PUFFS_VN_RENAME",
        "PUFFS_VN_MKDIR",
        "PUFFS_VN_RMDIR",
        "PUFFS_VN_SYMLINK",
        "PUFFS_VN_READDIR",
        "PUFFS_VN_READLINK",
        "PUFFS_VN_ABORTOP",
        "PUFFS_VN_INACTIVE",
        "PUFFS_VN_RECLAIM",
        "PUFFS_VN_LOCK",
        "PUFFS_VN_UNLOCK",
        "PUFFS_VN_BMAP",
        "PUFFS_VN_STRATEGY",
        "PUFFS_VN_PRINT",
        "PUFFS_VN_ISLOCKED",
        "PUFFS_VN_PATHCONF",
        "PUFFS_VN_ADVLOCK",
        "PUFFS_VN_LEASE",
        "PUFFS_VN_WHITEOUT",
        "PUFFS_VN_GETPAGES",
        "PUFFS_VN_PUTPAGES",
        "PUFFS_VN_GETEXTATTR",
        "PUFFS_VN_LISTEXTATTR",
        "PUFFS_VN_OPENEXTATTR",
        "PUFFS_VN_DELETEEXTATTR",
        "PUFFS_VN_SETEXTATTR",
        "PUFFS_VN_CLOSEEXTATTR",
        "PUFFS_VN_FALLOCATE",
        "PUFFS_VN_FDISCARD",
};
size_t puffsdump_vnop_count = __arraycount(puffsdump_vnop_revmap);

/* XXX! */
const char *puffsdump_cacheop_revmap[] = {
        "PUFFS_CACHE_WRITE"
};

const char *puffsdump_errnot_revmap[] = {
        "PUFFS_ERR_ERROR",
        "PUFFS_ERR_MAKENODE",
        "PUFFS_ERR_LOOKUP",
        "PUFFS_ERR_READDIR",
        "PUFFS_ERR_READLINK",
        "PUFFS_ERR_READ",
        "PUFFS_ERR_WRITE",
        "PUFFS_ERR_VPTOFH",
        "PUFFS_ERR_GETEXTATTR",
        "PUFFS_ERR_LISTEXTATTR",
};
size_t puffsdump_errnot_count = __arraycount(puffsdump_errnot_revmap);

const char *puffsdump_flush_revmap[] = {
        "PUFFS_INVAL_NAMECACHE_NODE",
        "PUFFS_INVAL_NAMECACHE_DIR",
        "PUFFS_INVAL_NAMECACHE_ALL",
        "PUFFS_INVAL_PAGECACHE_NODE_RANGE",
        "PUFFS_FLUSH_PAGECACHE_NODE_RANGE",
};
size_t puffsdump_flush_count = __arraycount(puffsdump_flush_revmap);

static __printflike(1, 2) void
mydprintf(const char *fmt, ...)
{
        va_list ap;

        va_start(ap, fmt);
        vfprintf(stderr, fmt, ap);
        va_end(ap);
}

void
puffsdump_req(struct puffs_req *preq)
{
        char buf[128];
        static struct timeval tv_prev;
        struct timeval tv_now, tv;
        const char **map;
        const char *optype;
        size_t maxhandle;
        int opclass, isvn = 0;

        mydprintf("reqid: %" PRIu64 ", ", preq->preq_id);
        opclass = PUFFSOP_OPCLASS(preq->preq_opclass);
        switch (opclass) {
        case PUFFSOP_VFS:
                map = puffsdump_vfsop_revmap;
                maxhandle = puffsdump_vfsop_count;
                break;
        case PUFFSOP_VN:
                map = puffsdump_vnop_revmap;
                maxhandle = puffsdump_vnop_count;
                isvn = 1;
                break;
        case PUFFSOP_CACHE:
                map = puffsdump_cacheop_revmap;
                maxhandle = __arraycount(puffsdump_cacheop_revmap);
                break;
        case PUFFSOP_ERROR:
                map = puffsdump_errnot_revmap;
                maxhandle = puffsdump_errnot_count;
                break;
        case PUFFSOP_FLUSH:
                map = puffsdump_flush_revmap;
                maxhandle = puffsdump_flush_count;
                break;
        default:
                mydprintf("unhandled opclass %d\n", opclass);
                return;
        }

        if (preq->preq_optype < maxhandle) {
                optype = map[preq->preq_optype];
        } else {
                snprintf(buf, sizeof(buf), "UNKNOWN (%d)", preq->preq_optype);
                optype = buf;
        }

        mydprintf("opclass %d%s, optype: %s, "
            "cookie: %p,\n" DINT "aux: %p, auxlen: %zu, pid: %d, lwpid: %d\n",
            opclass, PUFFSOP_WANTREPLY(preq->preq_opclass) ? "" : " (FAF)",
            optype, preq->preq_cookie,
            preq->preq_buf, preq->preq_buflen,
            preq->preq_pid, preq->preq_lid);

        if (isvn) {
                switch ((enum puffs_vn)preq->preq_optype) {
                case PUFFS_VN_LOOKUP:
                        puffsdump_lookup(preq);
                        break;
                case PUFFS_VN_READ:
                case PUFFS_VN_WRITE:
                        puffsdump_readwrite(preq);
                        break;
                case PUFFS_VN_OPEN:
                        puffsdump_open(preq);
                        break;
                case PUFFS_VN_REMOVE:
                case PUFFS_VN_RMDIR:
                case PUFFS_VN_LINK:
                        puffsdump_targ(preq);
                        break;
                case PUFFS_VN_READDIR:
                        puffsdump_readdir(preq);
                        break;
                case PUFFS_VN_CREATE:
                case PUFFS_VN_MKDIR:
                case PUFFS_VN_MKNOD:
                case PUFFS_VN_SYMLINK:
                        puffsdump_create(preq);
                        break;
                case PUFFS_VN_SETATTR:
                        puffsdump_attr(preq);
                        break;
                default:
                        break;
                }
        }

        PU_LOCK();
        gettimeofday(&tv_now, NULL);
        timersub(&tv_now, &tv_prev, &tv);
        mydprintf(DINT "since previous call: %lld.%06ld\n",
            (long long)tv.tv_sec, (long)tv.tv_usec);
        gettimeofday(&tv_prev, NULL);
        PU_UNLOCK();
}

void
puffsdump_rv(struct puffs_req *preq)
{

        if (PUFFSOP_OPCLASS(preq->preq_opclass) == PUFFSOP_VN) {
                switch ((enum puffs_vn)preq->preq_optype) {
                case PUFFS_VN_LOOKUP:
                        puffsdump_lookup_rv(preq);
                        break;
                case PUFFS_VN_CREATE:
                case PUFFS_VN_MKDIR:
                case PUFFS_VN_MKNOD:
                case PUFFS_VN_SYMLINK:
                        puffsdump_create_rv(preq);
                        break;
                case PUFFS_VN_READ:
                case PUFFS_VN_WRITE:
                        puffsdump_readwrite_rv(preq);
                        break;
                case PUFFS_VN_READDIR:
                        puffsdump_readdir_rv(preq);
                        break;
                case PUFFS_VN_GETATTR:
                        puffsdump_attr(preq);
                        break;
                default:
                        break;
                }
        }

        mydprintf("RV reqid: %" PRIu64 ", result: %d %s\n",
            preq->preq_id, preq->preq_rv,
            preq->preq_rv ? strerror(preq->preq_rv) : "");
}

/*
 * Slightly tedious print-routine so that we get a nice NOVAL instead
 * of some tedious output representations for -1, especially (uint64_t)-1
 *
 * We use typecasting to make this work beyond time_t/dev_t size changes.
 */
static void
dumpattr(struct vattr *vap)
{
        const char * const vtypes[] = { VNODE_TYPES };
        char buf[128];

/* XXX: better readability.  and this is debug, so no cycle-sweat */
#define DEFAULTBUF() snprintf(buf, sizeof(buf), "NOVAL")

        mydprintf(DINT "vattr:\n");
        mydprintf(DINT DINT "type: %s, ", vtypes[vap->va_type]);

        DEFAULTBUF();
        if (vap->va_mode != (mode_t)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "0%o", vap->va_mode);
        mydprintf("mode: %s, ", buf);

        DEFAULTBUF();
        if (vap->va_nlink != (nlink_t)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "%d", vap->va_nlink);
        mydprintf("nlink: %s, ", buf);

        DEFAULTBUF();
        if (vap->va_uid != (uid_t)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "%d", vap->va_uid);
        mydprintf("uid: %s, ", buf);

        DEFAULTBUF();
        if (vap->va_gid != (gid_t)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "%d", vap->va_gid);
        mydprintf("gid: %s\n", buf);

        DEFAULTBUF();
        if ((unsigned long long)vap->va_fsid!=(unsigned long long)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "0x%llx",
                    (unsigned long long)vap->va_fsid);
        mydprintf(DINT DINT "fsid: %s, ", buf);

        DEFAULTBUF();
        if (vap->va_fileid != (ino_t)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "%" PRIu64, vap->va_fileid);
        mydprintf("ino: %s, ", buf);

        DEFAULTBUF();
        if (vap->va_size != (u_quad_t)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "%" PRIu64, vap->va_size);
        mydprintf("size: %s, ", buf);

        DEFAULTBUF();
        if (vap->va_blocksize != (long)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "%ld", vap->va_blocksize);
        mydprintf("bsize: %s\n", buf);

        DEFAULTBUF();
        if (vap->va_atime.tv_sec != (time_t)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "%lld",
                    (long long)vap->va_atime.tv_sec);
        mydprintf(DINT DINT "a.s: %s, ", buf);

        DEFAULTBUF();
        if (vap->va_atime.tv_nsec != (long)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "%ld", vap->va_atime.tv_nsec);
        mydprintf("a.ns: %s, ", buf);

        DEFAULTBUF();
        if (vap->va_mtime.tv_sec != (time_t)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "%lld",
                    (long long)vap->va_mtime.tv_sec);
        mydprintf("m.s: %s, ", buf);

        DEFAULTBUF();
        if (vap->va_mtime.tv_nsec != (long)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "%ld", vap->va_mtime.tv_nsec);
        mydprintf("m.ns: %s\n", buf);

        DEFAULTBUF();
        if (vap->va_ctime.tv_sec != (time_t)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "%lld",
                    (long long)vap->va_ctime.tv_sec);
        mydprintf(DINT DINT "c.s: %s, ", buf);

        DEFAULTBUF();
        if (vap->va_ctime.tv_nsec != (long)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "%ld", vap->va_ctime.tv_nsec);
        mydprintf("c.ns: %s, ", buf);

        DEFAULTBUF();
        if (vap->va_birthtime.tv_sec != (time_t)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "%lld",
                    (long long)vap->va_birthtime.tv_sec);
        mydprintf("b.s: %s, ", buf);

        DEFAULTBUF();
        if (vap->va_birthtime.tv_nsec != (long)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "%ld", vap->va_birthtime.tv_nsec);
        mydprintf("b.ns: %s\n", buf);

        DEFAULTBUF();
        if (vap->va_gen != (u_long)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "%lu", vap->va_gen);
        mydprintf(DINT DINT "gen: %s, ", buf);

        DEFAULTBUF();
        if (vap->va_flags != (u_long)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "0x%lx", vap->va_flags);
        mydprintf("flags: %s, ", buf);

        DEFAULTBUF();
        if (vap->va_rdev != (dev_t)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "0x%llx",
                    (unsigned long long)vap->va_rdev);
        mydprintf("rdev: %s\n", buf);

        DEFAULTBUF();
        if (vap->va_bytes != (u_quad_t)PUFFS_VNOVAL)
                snprintf(buf, sizeof(buf), "%" PRIu64, vap->va_bytes);
        mydprintf(DINT DINT "bytes: %s, ", buf);

        snprintf(buf, sizeof(buf), "%" PRIu64, vap->va_filerev);
        mydprintf("filerev: %s, ", buf);

        snprintf(buf, sizeof(buf), "0x%x", vap->va_vaflags);
        mydprintf("vaflags: %s\n", buf);
}

void
puffsdump_cookie(puffs_cookie_t c, const char *cookiename)
{
        
        mydprintf("%scookie: at %p\n", cookiename, c);
}

static const char *cn_opnames[] = {
        "LOOKUP",
        "CREATE",
        "DELETE",
        "RENAME"
};

void
puffsdump_cn(struct puffs_kcn *pkcn)
{

        mydprintf(DINT "puffs_cn: \"%s\", len %zu op %s (flags 0x%x)\n",
            pkcn->pkcn_name, pkcn->pkcn_namelen,
            cn_opnames[pkcn->pkcn_nameiop & NAMEI_OPMASK],
            pkcn->pkcn_flags);
}

void
puffsdump_lookup(struct puffs_req *preq)
{
        struct puffs_vnmsg_lookup *lookup_msg = (void *)preq;

        puffsdump_cn(&lookup_msg->pvnr_cn);
}

void
puffsdump_lookup_rv(struct puffs_req *preq)
{
        struct puffs_vnmsg_lookup *lookup_msg = (void *)preq;

        mydprintf(DINT "new %p, type 0x%x, size 0x%"PRIu64", dev 0x%llx\n",
            lookup_msg->pvnr_newnode, lookup_msg->pvnr_vtype,
            lookup_msg->pvnr_size, (unsigned long long)lookup_msg->pvnr_rdev);
}

void
puffsdump_create(struct puffs_req *preq)
{
        /* XXX: wrong type, but we know it fits the slot */
        struct puffs_vnmsg_create *create_msg = (void *)preq;
        
        dumpattr(&create_msg->pvnr_va);
}

void
puffsdump_create_rv(struct puffs_req *preq)
{
        /* XXX: wrong type, but we know it fits the slot */
        struct puffs_vnmsg_create *create_msg = (void *)preq;

        mydprintf(DINT "new %p\n", create_msg->pvnr_newnode);
}

void
puffsdump_readwrite(struct puffs_req *preq)
{
        struct puffs_vnmsg_rw *rw_msg = (void *)preq;

        mydprintf(DINT "offset: %" PRId64 ", resid %zu, ioflag 0x%x\n",
            rw_msg->pvnr_offset, rw_msg->pvnr_resid, rw_msg->pvnr_ioflag);
}

void
puffsdump_readwrite_rv(struct puffs_req *preq)
{
        struct puffs_vnmsg_rw *rw_msg = (void *)preq;

        mydprintf(DINT "resid after op: %zu\n", rw_msg->pvnr_resid);
}

void
puffsdump_readdir_rv(struct puffs_req *preq)
{
        struct puffs_vnmsg_readdir *readdir_msg = (void *)preq;

        mydprintf(DINT "resid after op: %zu, eofflag %d\n",
            readdir_msg->pvnr_resid, readdir_msg->pvnr_eofflag);
}

void
puffsdump_open(struct puffs_req *preq)
{
        struct puffs_vnmsg_open *open_msg = (void *)preq;

        mydprintf(DINT "mode: 0x%x\n", open_msg->pvnr_mode);
}

void
puffsdump_targ(struct puffs_req *preq)
{
        struct puffs_vnmsg_remove *remove_msg = (void *)preq; /* XXX! */

        mydprintf(DINT "target cookie: %p\n", remove_msg->pvnr_cookie_targ);
}

void
puffsdump_readdir(struct puffs_req *preq)
{
        struct puffs_vnmsg_readdir *readdir_msg = (void *)preq;

        mydprintf(DINT "read offset: %" PRId64 "\n", readdir_msg->pvnr_offset);
}

void
puffsdump_attr(struct puffs_req *preq)
{
        struct puffs_vnmsg_setgetattr *attr_msg = (void *)preq;

        dumpattr(&attr_msg->pvnr_va);
}