/*
 * H2CHAINS.C
 *
 * cc -I/usr/src/sys h2chains.c -o ~/bin/h2chains -lkvm
 *
 * h2chains <hmpaddr>
 *
 * Copyright (c) 2017 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.
 *
 * 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.
 */

#include <sys/types.h>
#include <sys/user.h>
#include <vfs/hammer2/hammer2.h>

#include <vm/vm.h>
#include <vm/vm_page.h>
#include <vm/vm_kern.h>
#include <vm/swap_pager.h>
#include <vm/vnode_pager.h>

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <fcntl.h>
#include <kvm.h>
#include <nlist.h>
#include <getopt.h>

static void h2chainscan(kvm_t *kd, int tab, uintptr_t cp,
                        uintptr_t pcp, int pflags);
static void kkread(kvm_t *kd, u_long addr, void *buf, size_t nbytes);

#if 0
struct nlist Nl[] = {
    { "_rootnch" },
    { "_mountlist" },
    { NULL }
};
#endif

int
main(int ac, char **av)
{
    kvm_t *kd;
    const char *corefile = NULL;
    const char *sysfile = NULL;
    hammer2_dev_t hmp;
    uintptr_t base;
    uintptr_t cp;
    int ch;

    while ((ch = getopt(ac, av, "M:N:")) != -1) {
        switch(ch) {
        case 'M':
            corefile = optarg;
            break;
        case 'N':
            sysfile = optarg;
            break;
        default:
            fprintf(stderr, "%s [-M core] [-N system]\n", av[0]);
            exit(1);
        }
    }
    ac -= optind;
    av += optind;

    if ((kd = kvm_open(sysfile, corefile, NULL, O_RDONLY, "kvm:")) == NULL) {
        perror("kvm_open");
        exit(1);
    }
#if 0
    if (kvm_nlist(kd, Nl) != 0) {
        perror("kvm_nlist");
        exit(1);
    }
    kkread(kd, Nl[0].n_value, &nch, sizeof(nch));
    kkread(kd, Nl[1].n_value, &list, sizeof(list));
#endif

    base = strtoul(av[0], NULL, 0);

    kkread(kd, base, &hmp, sizeof(hmp));
    cp = (uintptr_t)hmp.vchain.core.rbtree.rbh_root;
    printf("VCHAIN %08x\n", hmp.vchain.flags);
    if (cp)
            h2chainscan(kd, 4, cp,
                        base + offsetof(struct hammer2_dev, vchain),
                        hmp.vchain.flags);
    printf("\n");

    cp = (uintptr_t)hmp.fchain.core.rbtree.rbh_root;
    printf("FCHAIN %08x\n", hmp.fchain.flags);
    if (cp)
            h2chainscan(kd, 4, cp,
                        base + offsetof(struct hammer2_dev, fchain),
                        hmp.fchain.flags);

    return 0;
}

static
void
h2chainscan(kvm_t *kd, int tab, uintptr_t cp, uintptr_t pcp, int pflags)
{
        hammer2_chain_t chain;

        kkread(kd, cp, &chain, sizeof(chain));
        if (chain.rbnode.rbe_left)
                h2chainscan(kd, tab, (uintptr_t)chain.rbnode.rbe_left,
                            pcp, pflags);

        printf("%*.*s chain %p type %02x lock %p dio %p "
                "off/pbase=%016jx/%016jx flags %08x ",
                tab, tab, "",
                (void *)cp, chain.bref.type, chain.lock.mtx_owner, chain.dio,
                chain.bref.data_off & ~(hammer2_off_t)0x0F,
                chain.bref.data_off & ~(hammer2_off_t)65535,
                chain.flags);
        if (chain.flags & HAMMER2_CHAIN_ONFLUSH)
                printf("F");
        if (chain.flags & HAMMER2_CHAIN_MODIFIED)
                printf("M");
        if (chain.flags & (HAMMER2_CHAIN_ONFLUSH|HAMMER2_CHAIN_MODIFIED)) {
                if ((pflags & HAMMER2_CHAIN_ONFLUSH) == 0)
                        printf(" FAIL");
        }
        if ((uintptr_t)chain.parent != pcp)
                printf(" FAIL2");
        printf("\n");
        if (chain.core.rbtree.rbh_root)
                h2chainscan(kd, tab + 4,
                            (uintptr_t)chain.core.rbtree.rbh_root,
                            cp, chain.flags);

        if (chain.rbnode.rbe_right)
                h2chainscan(kd, tab, (uintptr_t)chain.rbnode.rbe_right,
                            pcp, pflags);

}

static void
kkread(kvm_t *kd, u_long addr, void *buf, size_t nbytes)
{
        if (kvm_read(kd, addr, buf, nbytes) != nbytes) {
                perror("kvm_read");
                exit(1);
        }
}