/*      $NetBSD: fsdb.c,v 1.54 2023/01/07 19:41:29 chs Exp $    */

/*-
 * Copyright (c) 1996, 2017 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * This code is derived from software contributed to The NetBSD Foundation
 * by John T. Kohl.
 *
 * 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 NETBSD FOUNDATION, INC. 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 FOUNDATION 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/cdefs.h>
#ifndef lint
__RCSID("$NetBSD: fsdb.c,v 1.54 2023/01/07 19:41:29 chs Exp $");
#endif /* not lint */

#include <sys/types.h>
#include <sys/stat.h>
#include <sys/param.h>
#include <sys/time.h>
#include <sys/mount.h>
#include <ctype.h>
#include <fcntl.h>
#include <grp.h>
#include <histedit.h>
#include <limits.h>
#include <pwd.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <unistd.h>
#include <err.h>
#include <stdbool.h>

#include <ufs/ufs/dinode.h>
#include <ufs/ufs/dir.h>
#include <ufs/ffs/fs.h>
#include <ufs/ffs/ffs_extern.h>

#include "fsdb.h"
#include "fsck.h"
#include "extern.h"

struct bufarea bufhead;
struct bufarea sblk;
struct bufarea asblk;
struct bufarea cgblk;
struct bufarea appleufsblk;
struct bufarea *pdirbp;
struct bufarea *pbp;
struct fs *sblock;
struct fs *altsblock;
struct cg *cgrp;
struct fs *sblocksave;
struct dups *duplist;
struct dups *muldup;
struct zlncnt *zlnhead;
struct inoinfo **inphead, **inpsort;
long numdirs, dirhash, listmax, inplast;
struct uquot_hash *uquot_user_hash;
struct uquot_hash *uquot_group_hash;
uint8_t q2h_hash_shift;
uint16_t q2h_hash_mask;
struct inostatlist *inostathead;
long    dev_bsize;
long    secsize;
char    nflag;
char    yflag;
int     Uflag;
int     bflag;
int     debug;
int     zflag;
int     cvtlevel;
int     eaflag;
int     doinglevel1;
int     doinglevel2;
int     doing2ea;
int     doing2noea;
int     newinofmt;
char    usedsoftdep;
int     preen;
int     forceimage;
int     is_ufs2;
int     is_ufs2ea;
int     markclean;
char    havesb;
char    skipclean;
int     fsmodified;
int     fsreadfd;
int     fswritefd;
int     rerun;
char    resolved;
int     endian;
int     doswap;
int     needswap;
int     do_blkswap;
int     do_dirswap;
int     isappleufs;
daddr_t maxfsblock;
char    *blockmap;
ino_t   maxino;
int     dirblksiz;
daddr_t n_blks;
ino_t n_files;
long countdirs;
int     got_siginfo;
struct  ufs1_dinode ufs1_zino;
struct  ufs2_dinode ufs2_zino;

/* Used to keep state for "saveblks" command.  */
struct wrinfo {
        off_t size;
        off_t written_size;
        int fd;
};

__dead static void usage(void);
static int cmdloop(void);
static char *prompt(EditLine *);
static int scannames(struct inodesc *);
static int dolookup(char *);
static int chinumfunc(struct inodesc *);
static int chnamefunc(struct inodesc *);
static int chreclenfunc(struct inodesc *);
static int dotime(char *, int64_t *, int32_t *);
static void print_blks32(int32_t *buf, int size, uint64_t *blknum, struct wrinfo *wrp);
static void print_blks64(int64_t *buf, int size, uint64_t *blknum, struct wrinfo *wrp);
static void print_indirblks32(uint32_t blk, int ind_level,
    uint64_t *blknum, struct wrinfo *wrp);
static void print_indirblks64(uint64_t blk, int ind_level,
    uint64_t *blknum, struct wrinfo *wrp);
static int compare_blk32(uint32_t *, uint32_t);
static int compare_blk64(uint64_t *, uint64_t);
static int founddatablk(uint64_t);
static int find_blks32(uint32_t *buf, int size, uint32_t *blknum);
static int find_blks64(uint64_t *buf, int size, uint64_t *blknum);
static int find_indirblks32(uint32_t blk, int ind_level,
                                                uint32_t *blknum);
static int find_indirblks64(uint64_t blk, int ind_level,
                                                uint64_t *blknum);

union dinode *curinode;
ino_t   curinum;

static void
usage(void)
{
        errx(1, "usage: %s [-dFfNn] <fsname>", getprogname());
}
/*
 * We suck in lots of fsck code, and just pick & choose the stuff we want.
 *
 * fsreadfd is set up to read from the file system, fswritefd to write to
 * the file system.
 */
int
main(int argc, char *argv[])
{
        int     ch, rval;
        char   *fsys = NULL;
        bool    makedirty = true;

        forceimage = 0;
        debug = 0;
        isappleufs = 0;
        while ((ch = getopt(argc, argv, "dFf:Nn")) != -1) {
                switch (ch) {
                case 'd':
                        debug++;
                        break;
                case 'F':
                        forceimage = 1;
                        break;
                case 'f':
                        fsys = optarg;
                        break;
                case 'N':
                        makedirty = false;
                        break;
                case 'n':
                        nflag++;
                        break;
                default:
                        usage();
                }
        }
        argc -= optind;
        argv += optind;
        if (fsys == NULL)
                fsys = argv[0];
        if (fsys == NULL)
                usage();
        endian = 0;
        if (setup(fsys, fsys) <= 0)
                errx(1, "cannot set up file system `%s'", fsys);
        printf("Editing file system `%s'\nLast Mounted on %s\n", fsys,
            sblock->fs_fsmnt);
        rval = cmdloop();
        if (nflag)
                exit(rval);
        if (!makedirty) {
                ckfini(1);
                exit(rval);
        }
        sblock->fs_clean = 0;   /* mark it dirty */
        sbdirty();
        markclean = 0;
        ckfini(1);
        printf("*** FILE SYSTEM MARKED DIRTY\n");
        printf("*** BE SURE TO RUN FSCK TO CLEAN UP ANY DAMAGE\n");
        printf("*** IF IT WAS MOUNTED, RE-MOUNT WITH -u -o reload\n");
        exit(rval);
}

#define CMDFUNC(func) static int func (int argc, char *argv[])

CMDFUNC(helpfn);
CMDFUNC(focus);                 /* focus on inode */
CMDFUNC(active);                /* print active inode */
CMDFUNC(focusname);             /* focus by name */
CMDFUNC(zapi);                  /* clear inode */
CMDFUNC(uplink);                /* incr link */
CMDFUNC(downlink);              /* decr link */
CMDFUNC(linkcount);             /* set link count */
CMDFUNC(quit);                  /* quit */
CMDFUNC(ls);                    /* list directory */
CMDFUNC(blks);                  /* list blocks */
CMDFUNC(findblk);               /* find block */
CMDFUNC(rm);                    /* remove name */
CMDFUNC(ln);                    /* add name */
CMDFUNC(newtype);               /* change type */
CMDFUNC(chmode);                /* change mode */
CMDFUNC(chlen);                 /* change length */
CMDFUNC(chaflags);              /* change flags */
CMDFUNC(chgen);                 /* change generation */
CMDFUNC(chowner);               /* change owner */
CMDFUNC(chgroup);               /* Change group */
CMDFUNC(back);                  /* pop back to last ino */
CMDFUNC(chmtime);               /* Change mtime */
CMDFUNC(chctime);               /* Change ctime */
CMDFUNC(chatime);               /* Change atime */
CMDFUNC(chbirthtime);           /* Change birthtime */
CMDFUNC(chinum);                /* Change inode # of dirent */
CMDFUNC(chname);                /* Change dirname of dirent */
CMDFUNC(chreclen);              /* Change reclen of dirent */
CMDFUNC(chextsize);             /* Change extsize */
CMDFUNC(chblocks);              /* Change blocks */
CMDFUNC(chdb);                  /* Change direct block pointer */
CMDFUNC(chib);                  /* Change indirect block pointer */
CMDFUNC(chextb);                /* Change extattr block pointer */
CMDFUNC(chfreelink);            /* Change freelink pointer */
CMDFUNC(iptrs);                 /* print raw block pointers for active inode */
CMDFUNC(saveea);                /* Save extattrs */

static struct cmdtable cmds[] = {
        {"help", "Print out help", 1, 1, helpfn},
        {"?", "Print out help", 1, 1, helpfn},
        {"inode", "Set active inode to INUM", 2, 2, focus},
        {"clri", "Clear inode INUM", 2, 2, zapi},
        {"lookup", "Set active inode by looking up NAME", 2, 2, focusname},
        {"cd", "Set active inode by looking up NAME", 2, 2, focusname},
        {"back", "Go to previous active inode", 1, 1, back},
        {"active", "Print active inode", 1, 1, active},
        {"print", "Print active inode", 1, 1, active},
        {"uplink", "Increment link count", 1, 1, uplink},
        {"downlink", "Decrement link count", 1, 1, downlink},
        {"linkcount", "Set link count to COUNT", 2, 2, linkcount},
        {"ls", "List current inode as directory", 1, 1, ls},
        {"blks", "List current inode's data blocks", 1, 1, blks},
        {"saveblks", "Save current inode's data blocks to FILE", 2, 2, blks},
        {"findblk", "Find inode owning disk block(s)", 2, 33, findblk},
        {"rm", "Remove NAME from current inode directory", 2, 2, rm},
        {"del", "Remove NAME from current inode directory", 2, 2, rm},
        {"ln", "Hardlink INO into current inode directory as NAME", 3, 3, ln},
        {"chinum", "Change dir entry number INDEX to INUM", 3, 3, chinum},
        {"chname", "Change dir entry number INDEX to NAME", 3, 3, chname},
        {"chreclen", "Change dir entry number INDEX to RECLEN", 3, 3, chreclen},
        {"chtype", "Change type of current inode to TYPE", 2, 2, newtype},
        {"chmod", "Change mode of current inode to MODE", 2, 2, chmode},
        {"chown", "Change owner of current inode to OWNER", 2, 2, chowner},
        {"chlen", "Change length of current inode to LENGTH", 2, 2, chlen},
        {"chgrp", "Change group of current inode to GROUP", 2, 2, chgroup},
        {"chflags", "Change flags of current inode to FLAGS", 2, 2, chaflags},
        {"chgen", "Change generation number of current inode to GEN", 2, 2,
                    chgen},
        { "chextsize", "Change extsize of current inode to EXTSIZE", 2, 2, chextsize },
        { "chblocks", "Change blocks of current inode to BLOCKS", 2, 2, chblocks },
        { "chdb", "Change db pointer N of current inode to BLKNO", 3, 3, chdb },
        { "chib", "Change ib pointer N of current inode to BLKNO", 3, 3, chib },
        { "chextb", "Change extb pointer N of current inode to BLKNO", 3, 3, chextb },
        { "chfreelink", "Change freelink of current inode to FREELINK", 2, 2, chfreelink },
        { "iptrs", "Print raw block pointers of current inode", 1, 1, iptrs },
        {"mtime", "Change mtime of current inode to MTIME", 2, 2, chmtime},
        {"ctime", "Change ctime of current inode to CTIME", 2, 2, chctime},
        {"atime", "Change atime of current inode to ATIME", 2, 2, chatime},
        {"birthtime", "Change atime of current inode to BIRTHTIME", 2, 2,
            chbirthtime},
        {"saveea", "Save current inode's extattr blocks to FILE", 2, 2, saveea},
        {"quit", "Exit", 1, 1, quit},
        {"q", "Exit", 1, 1, quit},
        {"exit", "Exit", 1, 1, quit},
        { .cmd = NULL},
};

static int
helpfn(int argc, char *argv[])
{
        struct cmdtable *cmdtp;

        printf("Commands are:\n%-10s %5s %5s   %s\n",
            "command", "min argc", "max argc", "what");

        for (cmdtp = cmds; cmdtp->cmd; cmdtp++)
                printf("%-10s %5u %5u   %s\n",
                    cmdtp->cmd, cmdtp->minargc, cmdtp->maxargc, cmdtp->helptxt);
        return 0;
}

static char *
prompt(EditLine *el)
{
        static char pstring[64];
        snprintf(pstring, sizeof(pstring), "fsdb (inum: %llu)> ",
            (unsigned long long)curinum);
        return pstring;
}


static int
cmdloop(void)
{
        char   *line;
        const char *elline;
        int     cmd_argc, rval = 0, known;
#define scratch known
        char  **cmd_argv;
        struct cmdtable *cmdp;
        History *hist;
        HistEvent he;
        EditLine *elptr;

        curinode = ginode(UFS_ROOTINO);
        curinum = UFS_ROOTINO;
        printactive();

        hist = history_init();
        history(hist, &he, H_SETSIZE, 100);     /* 100 elt history buffer */

        elptr = el_init(getprogname(), stdin, stdout, stderr);
        el_set(elptr, EL_EDITOR, "emacs");
        el_set(elptr, EL_PROMPT, prompt);
        el_set(elptr, EL_HIST, history, hist);
        el_source(elptr, NULL);

        while ((elline = el_gets(elptr, &scratch)) != NULL && scratch != 0) {
                if (debug)
                        printf("command `%s'\n", elline);

                history(hist, &he, H_ENTER, elline);

                line = strdup(elline);
                cmd_argv = crack(line, &cmd_argc);
                if (cmd_argc) {
                        /*
                         * el_parse returns -1 to signal that it's not been
                         * handled internally.
                         */
                        if (el_parse(elptr, cmd_argc, (void *)cmd_argv) != -1)
                                continue;
                        known = 0;
                        for (cmdp = cmds; cmdp->cmd; cmdp++) {
                                if (!strcmp(cmdp->cmd, cmd_argv[0])) {
                                        if (cmd_argc >= cmdp->minargc &&
                                            cmd_argc <= cmdp->maxargc)
                                                rval =
                                                    (*cmdp->handler)(cmd_argc,
                                                        cmd_argv);
                                        else
                                                rval = argcount(cmdp, cmd_argc,
                                                    cmd_argv);
                                        known = 1;
                                        break;
                                }
                        }
                        if (!known)
                                warnx("unknown command `%s'", cmd_argv[0]),
                                    rval = 1;
                } else
                        rval = 0;
                free(line);
                if (rval < 0)
                        return rval;
                if (rval)
                        warnx("rval was %d", rval);
        }
        el_end(elptr);
        history_end(hist);
        return rval;
}

static ino_t ocurrent;

#define GETINUM(ac,inum)    inum = strtoull(argv[ac], &cp, 0); \
    if (inum < UFS_ROOTINO || inum >= maxino || cp == argv[ac] || *cp != '\0' ) { \
        printf("inode %llu out of range; range is [%llu,%llu]\n", \
           (unsigned long long)inum, (unsigned long long)UFS_ROOTINO, \
           (unsigned long long)maxino); \
        return 1; \
    }

/*
 * Focus on given inode number
 */
CMDFUNC(focus)
{
        ino_t   inum;
        char   *cp;

        GETINUM(1, inum);
        curinode = ginode(inum);
        ocurrent = curinum;
        curinum = inum;
        printactive();
        return 0;
}

CMDFUNC(back)
{
        curinum = ocurrent;
        curinode = ginode(curinum);
        printactive();
        return 0;
}

CMDFUNC(zapi)
{
        ino_t   inum;
        union dinode *dp;
        char   *cp;

        GETINUM(1, inum);
        dp = ginode(inum);
        clearinode(dp);
        inodirty();
        if (curinode)           /* re-set after potential change */
                curinode = ginode(curinum);
        return 0;
}

CMDFUNC(active)
{
        printactive();
        return 0;
}

CMDFUNC(quit)
{
        return -1;
}

CMDFUNC(uplink)
{
        int16_t nlink;

        if (!checkactive())
                return 1;
        nlink = iswap16(DIP(curinode, nlink));
        nlink++;
        DIP_SET(curinode, nlink, iswap16(nlink));
        printf("inode %llu link count now %d\n", (unsigned long long)curinum,
            nlink);
        inodirty();
        return 0;
}

CMDFUNC(downlink)
{
        int16_t nlink;

        if (!checkactive())
                return 1;
        nlink = iswap16(DIP(curinode, nlink));
        nlink--;
        DIP_SET(curinode, nlink, iswap16(nlink));
        printf("inode %llu link count now %d\n", (unsigned long long)curinum,
            nlink);
        inodirty();
        return 0;
}

static const char *typename[] = {
        "unknown",
        "fifo",
        "char special",
        "unregistered #3",
        "directory",
        "unregistered #5",
        "blk special",
        "unregistered #7",
        "regular",
        "unregistered #9",
        "symlink",
        "unregistered #11",
        "socket",
        "unregistered #13",
        "whiteout",
};

static int diroff;
static int slot;

static int
scannames(struct inodesc *idesc)
{
        struct direct *dirp = idesc->id_dirp;

        printf("slot %d off %d ino %d reclen %d: %s, `%.*s'\n",
            slot++, diroff, iswap32(dirp->d_ino), iswap16(dirp->d_reclen),
            typename[dirp->d_type],
            dirp->d_namlen, dirp->d_name);
        diroff += dirp->d_reclen;
        return (KEEPON);
}

CMDFUNC(ls)
{
        struct inodesc idesc;
        checkactivedir();       /* let it go on anyway */

        slot = 0;
        diroff = 0;
        idesc.id_number = curinum;
        idesc.id_func = scannames;
        idesc.id_type = DATA;
        idesc.id_fix = IGNORE;
        ckinode(curinode, &idesc);
        curinode = ginode(curinum);

        return 0;
}

CMDFUNC(blks)
{
        uint64_t blkno = 0;
        int i;
        struct wrinfo wrinfo, *wrp = NULL;
        bool saveblks;

        saveblks = strcmp(argv[0], "saveblks") == 0;
        if (saveblks) {
                wrinfo.fd = open(argv[1], O_WRONLY | O_TRUNC | O_CREAT, 0644);
                if (wrinfo.fd == -1) {
                        warn("unable to create file %s", argv[1]);
                        return 0;
                }
                wrinfo.size = iswap64(DIP(curinode, size));
                wrinfo.written_size = 0;
                wrp = &wrinfo;
        }
        if (!curinode) {
                warnx("no current inode");
                return 0;
        }
        if (is_ufs2) {
                printf("I=%llu %lld blocks\n", (unsigned long long)curinum,
                    (long long)(iswap64(curinode->dp2.di_blocks)));
        } else {
                printf("I=%llu %d blocks\n", (unsigned long long)curinum,
                    iswap32(curinode->dp1.di_blocks));
        }
        printf("Direct blocks:\n");
        if (is_ufs2)
                print_blks64(curinode->dp2.di_db, UFS_NDADDR, &blkno, wrp);
        else
                print_blks32(curinode->dp1.di_db, UFS_NDADDR, &blkno, wrp);

        if (is_ufs2) {
                for (i = 0; i < UFS_NIADDR; i++)
                        print_indirblks64(iswap64(curinode->dp2.di_ib[i]), i,
                            &blkno, wrp);
                printf("Extattr blocks:\n");
                blkno = 0;
                if (saveblks)
                        wrinfo.size += iswap32(curinode->dp2.di_extsize);
                print_blks64(curinode->dp2.di_extb, UFS_NXADDR, &blkno, wrp);
        } else {
                for (i = 0; i < UFS_NIADDR; i++)
                        print_indirblks32(iswap32(curinode->dp1.di_ib[i]), i,
                            &blkno, wrp);
        }
        return 0;
}

static int findblk_numtofind;
static int wantedblksize;
CMDFUNC(findblk)
{
        ino_t   inum, inosused;
        uint32_t *wantedblk32 = NULL;
        uint64_t *wantedblk64 = NULL;
        struct cg *cgp = cgrp;
        int i;
        uint32_t c;

        ocurrent = curinum;
        wantedblksize = (argc - 1);
        if (is_ufs2) {
                wantedblk64 = malloc(sizeof(uint64_t) * wantedblksize);
                if (wantedblk64 == NULL) {
                        perror("malloc");
                        return 1;
                }
                memset(wantedblk64, 0, sizeof(uint64_t) * wantedblksize);
                for (i = 1; i < argc; i++)
                        wantedblk64[i - 1] =
                            FFS_DBTOFSB(sblock, strtoull(argv[i], NULL, 0)); 
        } else {
                wantedblk32 = malloc(sizeof(uint32_t) * wantedblksize);
                if (wantedblk32 == NULL) {
                        perror("malloc");
                        return 1;
                }
                memset(wantedblk32, 0, sizeof(uint32_t) * wantedblksize);
                for (i = 1; i < argc; i++)
                        wantedblk32[i - 1] =
                            FFS_DBTOFSB(sblock, strtoull(argv[i], NULL, 0)); 
        }
        findblk_numtofind = wantedblksize;
        for (c = 0; c < sblock->fs_ncg; c++) {
                inum = c * sblock->fs_ipg;
                getblk(&cgblk, cgtod(sblock, c), sblock->fs_cgsize);
                memcpy(cgp, cgblk.b_un.b_cg, sblock->fs_cgsize);
                if (needswap)
                        ffs_cg_swap(cgblk.b_un.b_cg, cgp, sblock);
                if (is_ufs2)
                        inosused = cgp->cg_initediblk;
                else
                        inosused = sblock->fs_ipg;
                for (; inosused > 0; inum++, inosused--) {
                        if (inum < UFS_ROOTINO)
                                continue;
                        if (is_ufs2 ? compare_blk64(wantedblk64,
                                ino_to_fsba(sblock, inum)) :
                            compare_blk32(wantedblk32,
                                ino_to_fsba(sblock, inum))) {
                                printf("block %llu: inode block (%llu-%llu)\n",
                                    (unsigned long long)FFS_FSBTODB(sblock,
                                        ino_to_fsba(sblock, inum)),
                                    (unsigned long long)
                                    (inum / FFS_INOPB(sblock)) * FFS_INOPB(sblock),
                                    (unsigned long long)
                                    (inum / FFS_INOPB(sblock) + 1) * FFS_INOPB(sblock));
                                findblk_numtofind--;
                                if (findblk_numtofind == 0)
                                        goto end;
                        }
                        curinum = inum;
                        curinode = ginode(inum);
                        switch (iswap16(DIP(curinode, mode)) & IFMT) {
                        case IFDIR:
                        case IFREG:
                                if (DIP(curinode, blocks) == 0)
                                        continue;
                                break;
                        case IFLNK:
                                {
                                uint64_t size = iswap64(DIP(curinode, size));
                                if (size > 0 &&
                                    size < (uint64_t)sblock->fs_maxsymlinklen &&
                                    DIP(curinode, blocks) == 0)
                                        continue;
                                else
                                        break;
                                }
                        default:
                                continue;
                        }
                        if (is_ufs2 ?
                            find_blks64(curinode->dp2.di_db, UFS_NDADDR,
                                wantedblk64) : 
                            find_blks32(curinode->dp1.di_db, UFS_NDADDR,
                                wantedblk32))
                                goto end;
                        for (i = 0; i < UFS_NIADDR; i++) {
                                if (is_ufs2 ?
                                    compare_blk64(wantedblk64,
                                        iswap64(curinode->dp2.di_ib[i])) :
                                    compare_blk32(wantedblk32,
                                        iswap32(curinode->dp1.di_ib[i])))
                                        if (founddatablk(is_ufs2 ?
                                            iswap64(curinode->dp2.di_ib[i]) :
                                            iswap32(curinode->dp1.di_ib[i])))
                                                goto end;
                                if (is_ufs2 ? (curinode->dp2.di_ib[i] != 0) :
                                    (curinode->dp1.di_ib[i] != 0))
                                        if (is_ufs2 ?
                                            find_indirblks64(
                                                iswap64(curinode->dp2.di_ib[i]),
                                                i, wantedblk64) :
                                            find_indirblks32(
                                                iswap32(curinode->dp1.di_ib[i]),
                                                i, wantedblk32))
                                                goto end;
                        }
                }
        }
end:
        if (wantedblk32)
                free(wantedblk32);
        if (wantedblk64)
                free(wantedblk64);
        curinum = ocurrent;
        curinode = ginode(curinum);
        return 0;
}

static int
compare_blk32(uint32_t *wantedblk, uint32_t curblk)
{
        int i;
        for (i = 0; i < wantedblksize; i++) {
                if (wantedblk[i] != 0 && wantedblk[i] == curblk) {
                        wantedblk[i] = 0;
                        return 1;
                }
        }
        return 0;
}

static int
compare_blk64(uint64_t *wantedblk, uint64_t curblk)
{
        int i;
        for (i = 0; i < wantedblksize; i++) {
                if (wantedblk[i] != 0 && wantedblk[i] == curblk) {
                        wantedblk[i] = 0;
                        return 1;
                }
        }
        return 0;
}

static int
founddatablk(uint64_t blk)
{
        printf("%llu: data block of inode %llu\n",
            (unsigned long long)FFS_FSBTODB(sblock, blk),
            (unsigned long long)curinum);
        findblk_numtofind--;
        if (findblk_numtofind == 0)
                return 1;
        return 0;
}

static int
find_blks32(uint32_t *buf, int size, uint32_t *wantedblk)
{
        int blk;
        for(blk = 0; blk < size; blk++) {
                if (buf[blk] == 0)
                        continue;
                if (compare_blk32(wantedblk, iswap32(buf[blk]))) {
                        if (founddatablk(iswap32(buf[blk])))
                                return 1;
                }
        }
        return 0;
}

static int
find_indirblks32(uint32_t blk, int ind_level, uint32_t *wantedblk)
{
#define MAXNINDIR       (MAXBSIZE / sizeof(uint32_t))
        uint32_t idblk[MAXNINDIR];
        size_t i;

        bread(fsreadfd, (char *)idblk, FFS_FSBTODB(sblock, blk),
            (int)sblock->fs_bsize);
        if (ind_level <= 0) {
                if (find_blks32(idblk,
                    sblock->fs_bsize / sizeof(uint32_t), wantedblk))
                        return 1;
        } else {
                ind_level--;
                for (i = 0; i < sblock->fs_bsize / sizeof(uint32_t); i++) {
                        if (compare_blk32(wantedblk, iswap32(idblk[i]))) {
                                if (founddatablk(iswap32(idblk[i])))
                                        return 1;
                        }
                        if(idblk[i] != 0)
                                if (find_indirblks32(iswap32(idblk[i]),
                                    ind_level, wantedblk))
                                return 1;
                }
        }
#undef MAXNINDIR
        return 0;
}


static int
find_blks64(uint64_t *buf, int size, uint64_t *wantedblk)
{
        int blk;
        for(blk = 0; blk < size; blk++) {
                if (buf[blk] == 0)
                        continue;
                if (compare_blk64(wantedblk, iswap64(buf[blk]))) {
                        if (founddatablk(iswap64(buf[blk])))
                                return 1;
                }
        }
        return 0;
}

static int
find_indirblks64(uint64_t blk, int ind_level, uint64_t *wantedblk)
{
#define MAXNINDIR       (MAXBSIZE / sizeof(uint64_t))
        uint64_t idblk[MAXNINDIR];
        size_t i;

        bread(fsreadfd, (char *)idblk, FFS_FSBTODB(sblock, blk),
            (int)sblock->fs_bsize);
        if (ind_level <= 0) {
                if (find_blks64(idblk,
                    sblock->fs_bsize / sizeof(uint64_t), wantedblk))
                        return 1;
        } else {
                ind_level--;
                for (i = 0; i < sblock->fs_bsize / sizeof(uint64_t); i++) {
                        if (compare_blk64(wantedblk, iswap64(idblk[i]))) {
                                if (founddatablk(iswap64(idblk[i])))
                                        return 1;
                        }
                        if (idblk[i] != 0)
                                if (find_indirblks64(iswap64(idblk[i]),
                                    ind_level, wantedblk))
                                return 1;
                }
        }
#undef MAXNINDIR
        return 0;
}

static int
writefileblk(struct wrinfo *wrp, uint64_t blk)
{
        char buf[MAXBSIZE];
        long long size, rsize;

        size = wrp->size - wrp->written_size;
        if (size > sblock->fs_bsize)
                size = sblock->fs_bsize;
        if (size > (long long)sizeof buf) {
                warnx("sblock->fs_bsize > MAX_BSIZE");
                return -1;
        }

        rsize = roundup(size, DEV_BSIZE);
        if (bread(fsreadfd, buf, FFS_FSBTODB(sblock, blk), rsize) != 0)
                return -1;
        if (write(wrp->fd, buf, size) != size)
                return -1;
        wrp->written_size += size;
        return 0;
}


#define CHARS_PER_LINES 70

static void
print_blks32(int32_t *buf, int size, uint64_t *blknum, struct wrinfo *wrp)
{
        int chars;
        char prbuf[CHARS_PER_LINES+1];
        int blk;
 
        chars = 0;
        for (blk = 0; blk < size; blk++, (*blknum)++) {
                if (buf[blk] == 0)
                        continue;
                if (wrp && writefileblk(wrp, iswap32(buf[blk])) != 0) {
                        warn("unable to write block %d", iswap32(buf[blk]));
                        return;
                }
                snprintf(prbuf, CHARS_PER_LINES, "%d ", iswap32(buf[blk]));
                if ((chars + strlen(prbuf)) > CHARS_PER_LINES) {
                        printf("\n");
                        chars = 0;
                }
                if (chars == 0)
                        printf("%" PRIu64 ": ", *blknum);
                printf("%s", prbuf);
                chars += strlen(prbuf);
        }
        printf("\n");
}

static void
print_blks64(int64_t *buf, int size, uint64_t *blknum, struct wrinfo *wrp)
{
        int chars;
        char prbuf[CHARS_PER_LINES+1];
        int blk;
 
        chars = 0;
        for (blk = 0; blk < size; blk++, (*blknum)++) {
                if (buf[blk] == 0)
                        continue;
                if (wrp && writefileblk(wrp, iswap64(buf[blk])) != 0) {
                        warn("unable to write block %lld",
                             (long long)iswap64(buf[blk]));
                        return;
                }
                snprintf(prbuf, CHARS_PER_LINES, "%lld ",
                    (long long)iswap64(buf[blk]));
                if ((chars + strlen(prbuf)) > CHARS_PER_LINES) {
                        printf("\n");
                        chars = 0;
                }
                if (chars == 0)
                        printf("%" PRIu64 ": ", *blknum);
                printf("%s", prbuf);
                chars += strlen(prbuf);
        }
        printf("\n");
}

#undef CHARS_PER_LINES

static void
print_indirblks32(uint32_t blk, int ind_level, uint64_t *blknum, struct wrinfo *wrp)
{
#define MAXNINDIR       (MAXBSIZE / sizeof(int32_t))
        const int ptrperblk_shift = sblock->fs_bshift - 2;
        const int ptrperblk = 1 << ptrperblk_shift;
        int32_t idblk[MAXNINDIR];
        int i;

        if (blk == 0) {
                *blknum += (uint64_t)ptrperblk << (ptrperblk_shift * ind_level);
                return;
        }
 
        printf("Indirect block %lld (level %d):\n", (long long)blk,
            ind_level+1);
        bread(fsreadfd, (char *)idblk, FFS_FSBTODB(sblock, blk),
            (int)sblock->fs_bsize);
        if (ind_level <= 0) {
                print_blks32(idblk, ptrperblk, blknum, wrp);
        } else {
                ind_level--;
                for (i = 0; i < ptrperblk; i++)
                        print_indirblks32(iswap32(idblk[i]), ind_level, blknum,
                                wrp);
        }
#undef MAXNINDIR
}

static void
print_indirblks64(uint64_t blk, int ind_level, uint64_t *blknum, struct wrinfo *wrp)
{
#define MAXNINDIR       (MAXBSIZE / sizeof(int64_t))
        const int ptrperblk_shift = sblock->fs_bshift - 3;
        const int ptrperblk = 1 << ptrperblk_shift;
        int64_t idblk[MAXNINDIR];
        int i;

        if (blk == 0) {
                *blknum += (uint64_t)ptrperblk << (ptrperblk_shift * ind_level);
                return;
        }
 
        printf("Indirect block %lld (level %d):\n", (long long)blk,
            ind_level+1);
        bread(fsreadfd, (char *)idblk, FFS_FSBTODB(sblock, blk),
            (int)sblock->fs_bsize);
        if (ind_level <= 0) {
                print_blks64(idblk, ptrperblk, blknum, wrp);
        } else {
                ind_level--;
                for (i = 0; i < ptrperblk; i++)
                        print_indirblks64(iswap64(idblk[i]), ind_level, blknum,
                                wrp);
        }
#undef MAXNINDIR
}

static int
dolookup(char *name)
{
        struct inodesc idesc;

        if (!checkactivedir())
                return 0;
        idesc.id_number = curinum;
        idesc.id_func = findino;
        idesc.id_name = name;
        idesc.id_type = DATA;
        idesc.id_fix = IGNORE;
        if (ckinode(curinode, &idesc) & FOUND) {
                curinum = idesc.id_parent;
                curinode = ginode(curinum);
                printactive();
                return 1;
        } else {
                warnx("name `%s' not found in current inode directory", name);
                return 0;
        }
}

CMDFUNC(focusname)
{
        char   *p, *val;

        if (!checkactive())
                return 1;

        ocurrent = curinum;

        if (argv[1][0] == '/') {
                curinum = UFS_ROOTINO;
                curinode = ginode(UFS_ROOTINO);
        } else {
                if (!checkactivedir())
                        return 1;
        }
        for (p = argv[1]; p != NULL;) {
                while ((val = strsep(&p, "/")) != NULL && *val == '\0');
                if (val) {
                        printf("component `%s': ", val);
                        fflush(stdout);
                        if (!dolookup(val)) {
                                curinode = ginode(curinum);
                                return (1);
                        }
                }
        }
        return 0;
}

CMDFUNC(ln)
{
        ino_t   inum;
        int     rval;
        char   *cp;

        GETINUM(1, inum);

        if (!checkactivedir())
                return 1;
        rval = makeentry(curinum, inum, argv[2]);
        if (rval)
                printf("Ino %llu entered as `%s'\n", (unsigned long long)inum,
                    argv[2]);
        else
                printf("could not enter name? weird.\n");
        curinode = ginode(curinum);
        return rval;
}

CMDFUNC(rm)
{
        int     rval;

        if (!checkactivedir())
                return 1;
        rval = changeino(curinum, argv[1], 0);
        if (rval & ALTERED) {
                printf("Name `%s' removed\n", argv[1]);
                return 0;
        } else {
                printf("could not remove name? weird.\n");
                return 1;
        }
}

static long slotcount, desired;

static int
chinumfunc(struct inodesc *idesc)
{
        struct direct *dirp = idesc->id_dirp;

        if (slotcount++ == desired) {
                dirp->d_ino = iswap32(idesc->id_parent);
                return STOP | ALTERED | FOUND;
        }
        return KEEPON;
}

CMDFUNC(chinum)
{
        char   *cp;
        ino_t   inum;
        struct inodesc idesc;

        slotcount = 0;
        if (!checkactivedir())
                return 1;
        GETINUM(2, inum);

        desired = strtol(argv[1], &cp, 0);
        if (cp == argv[1] || *cp != '\0' || desired < 0) {
                printf("invalid slot number `%s'\n", argv[1]);
                return 1;
        }
        idesc.id_number = curinum;
        idesc.id_func = chinumfunc;
        idesc.id_fix = IGNORE;
        idesc.id_type = DATA;
        idesc.id_parent = inum; /* XXX convenient hiding place */

        if (ckinode(curinode, &idesc) & FOUND)
                return 0;
        else {
                warnx("no %sth slot in current directory", argv[1]);
                return 1;
        }
}

static int
chnamefunc(struct inodesc *idesc)
{
        struct direct *dirp = idesc->id_dirp;
        struct direct testdir;

        if (slotcount++ == desired) {
                /* will name fit? */
                testdir.d_namlen = strlen(idesc->id_name);
                if (UFS_DIRSIZ(UFS_NEWDIRFMT, &testdir, 0) <= iswap16(dirp->d_reclen)) {
                        dirp->d_namlen = testdir.d_namlen;
                        strlcpy(dirp->d_name, idesc->id_name,
                            sizeof(dirp->d_name));
                        return STOP | ALTERED | FOUND;
                } else
                        return STOP | FOUND;    /* won't fit, so give up */
        }
        return KEEPON;
}

CMDFUNC(chname)
{
        int     rval;
        char   *cp;
        struct inodesc idesc;

        slotcount = 0;
        if (!checkactivedir())
                return 1;

        desired = strtoul(argv[1], &cp, 0);
        if (cp == argv[1] || *cp != '\0') {
                printf("invalid slot number `%s'\n", argv[1]);
                return 1;
        }
        idesc.id_number = curinum;
        idesc.id_func = chnamefunc;
        idesc.id_fix = IGNORE;
        idesc.id_type = DATA;
        idesc.id_name = argv[2];

        rval = ckinode(curinode, &idesc);
        if ((rval & (FOUND | ALTERED)) == (FOUND | ALTERED))
                return 0;
        else
                if (rval & FOUND) {
                        warnx("new name `%s' does not fit in slot %s",
                            argv[2], argv[1]);
                        return 1;
                } else {
                        warnx("no %sth slot in current directory", argv[1]);
                        return 1;
                }
}

static int
chreclenfunc(struct inodesc *idesc)
{
        struct direct *dirp = idesc->id_dirp;

        if (slotcount++ == desired) {
                dirp->d_reclen = iswap16(idesc->id_parent);
                return STOP | ALTERED | FOUND;
        }
        return KEEPON;
}

CMDFUNC(chreclen)
{
        char   *cp;
        uint32_t reclen;
        struct inodesc idesc;

        slotcount = 0;
        if (!checkactivedir())
                return 1;

        desired = strtoul(argv[1], &cp, 0);
        if (cp == argv[1] || *cp != '\0') {
                printf("invalid slot number `%s'\n", argv[1]);
                return 1;
        }
        reclen = strtoul(argv[2], &cp, 0);
        if (reclen >= UINT16_MAX) {
                printf("invalid reclen `%s'\n", argv[2]);
                return 1;
        }

        idesc.id_number = curinum;
        idesc.id_func = chreclenfunc;
        idesc.id_fix = IGNORE;
        idesc.id_type = DATA;
        idesc.id_parent = reclen;       /* XXX convenient hiding place */

        if (ckinode(curinode, &idesc) & FOUND)
                return 0;
        else {
                warnx("no %sth slot in current directory", argv[1]);
                return 1;
        }
}

static struct typemap {
        const char *typename;
        int     typebits;
}       typenamemap[] = {
        { "file", IFREG },
        { "dir", IFDIR },
        { "socket", IFSOCK },
        { "fifo", IFIFO },
        {"link", IFLNK},
        {"chr", IFCHR},
        {"blk", IFBLK},
};

CMDFUNC(newtype)
{
        int     type;
        uint16_t mode;
        struct typemap *tp;

        if (!checkactive())
                return 1;
        mode = iswap16(DIP(curinode, mode));
        type = mode & IFMT;
        for (tp = typenamemap;
            tp < &typenamemap[sizeof(typenamemap) / sizeof(*typenamemap)];
            tp++) {
                if (!strcmp(argv[1], tp->typename)) {
                        printf("setting type to %s\n", tp->typename);
                        type = tp->typebits;
                        break;
                }
        }
        if (tp == &typenamemap[sizeof(typenamemap) / sizeof(*typenamemap)]) {
                warnx("type `%s' not known", argv[1]);
                warnx("try one of `file', `dir', `socket', `fifo'");
                return 1;
        }
        DIP_SET(curinode, mode, iswap16((mode & ~IFMT) | type));
        inodirty();
        printactive();
        return 0;
}

CMDFUNC(chmode)
{
        long    modebits;
        char   *cp;
        uint16_t mode;

        if (!checkactive())
                return 1;

        modebits = strtol(argv[1], &cp, 8);
        if (cp == argv[1] || *cp != '\0') {
                warnx("bad modebits `%s'", argv[1]);
                return 1;
        }
        mode = iswap16(DIP(curinode, mode));
        DIP_SET(curinode, mode, iswap16((mode & ~07777) | modebits));
        inodirty();
        printactive();
        return 0;
}

CMDFUNC(chlen)
{
        off_t    len;
        char   *cp;

        if (!checkactive())
                return 1;

        len = strtoull(argv[1], &cp, 0);
        if (cp == argv[1] || *cp != '\0' || len < 0) {
                warnx("bad length '%s'", argv[1]);
                return 1;
        }
        DIP_SET(curinode, size, iswap64(len));
        inodirty();
        printactive();
        return 0;
}

CMDFUNC(chaflags)
{
        u_long  flags;
        char   *cp;

        if (!checkactive())
                return 1;

        flags = strtoul(argv[1], &cp, 0);
        if (cp == argv[1] || *cp != '\0') {
                warnx("bad flags `%s'", argv[1]);
                return 1;
        }
        if (flags > UINT_MAX) {
                warnx("flags set beyond 32-bit range of field (0x%lx)",
                    flags);
                return (1);
        }
        DIP_SET(curinode, flags, iswap32(flags));
        inodirty();
        printactive();
        return 0;
}

CMDFUNC(chgen)
{
        long    gen;
        char   *cp;

        if (!checkactive())
                return 1;

        gen = strtol(argv[1], &cp, 0);
        if (cp == argv[1] || *cp != '\0') {
                warnx("bad gen `%s'", argv[1]);
                return 1;
        }
        if (gen > INT_MAX || gen < INT_MIN) {
                warnx("gen set beyond 32-bit range of field (0x%lx)", gen);
                return (1);
        }
        DIP_SET(curinode, gen, iswap32(gen));
        inodirty();
        printactive();
        return 0;
}

CMDFUNC(chextsize)
{
        uint32_t extsize;
        char *cp;

        if (!is_ufs2)
                return 1;
        if (!checkactive())
                return 1;

        extsize = strtol(argv[1], &cp, 0);
        if (cp == argv[1] || *cp != '\0') {
                warnx("bad extsize `%s'", argv[1]);
                return 1;
        }

        curinode->dp2.di_extsize = extsize;
        inodirty();
        printactive();
        return 0;
}

CMDFUNC(chblocks)
{
        uint64_t blocks;
        char *cp;

        if (!checkactive())
                return 1;

        blocks = strtoll(argv[1], &cp, 0);
        if (cp == argv[1] || *cp != '\0') {
                warnx("bad blocks `%s'", argv[1]);
                return 1;
        }

        DIP_SET(curinode, blocks, blocks);
        inodirty();
        printactive();
        return 0;
}

CMDFUNC(chdb)
{
        unsigned int idx;
        daddr_t bno;
        char *cp;

        if (!checkactive())
                return 1;

        idx = strtoull(argv[1], &cp, 0);
        if (cp == argv[1] || *cp != '\0') {
                warnx("bad pointer idx `%s'", argv[1]);
                return 1;
        }
        bno = strtoll(argv[2], &cp, 0);
        if (cp == argv[2] || *cp != '\0') {
                warnx("bad block number `%s'", argv[2]);
                return 1;
        }
        if (idx >= UFS_NDADDR) {
                warnx("pointer index %d is out of range", idx);
                return 1;
        }

        DIP_SET(curinode, db[idx], bno);
        inodirty();
        printactive();
        return 0;
}

CMDFUNC(chib)
{
        unsigned int idx;
        daddr_t bno;
        char *cp;

        if (!checkactive())
                return 1;

        idx = strtoull(argv[1], &cp, 0);
        if (cp == argv[1] || *cp != '\0') {
                warnx("bad pointer idx `%s'", argv[1]);
                return 1;
        }
        bno = strtoll(argv[2], &cp, 0);
        if (cp == argv[2] || *cp != '\0') {
                warnx("bad block number `%s'", argv[2]);
                return 1;
        }
        if (idx >= UFS_NIADDR) {
                warnx("pointer index %d is out of range", idx);
                return 1;
        }

        DIP_SET(curinode, ib[idx], bno);
        inodirty();
        printactive();
        return 0;
}

CMDFUNC(chextb)
{
        unsigned int idx;
        daddr_t bno;
        char *cp;

        if (!checkactive())
                return 1;

        idx = strtoull(argv[1], &cp, 0);
        if (cp == argv[1] || *cp != '\0') {
                warnx("bad pointer idx `%s'", argv[1]);
                return 1;
        }
        bno = strtoll(argv[2], &cp, 0);
        if (cp == argv[2] || *cp != '\0') {
                warnx("bad block number `%s'", argv[2]);
                return 1;
        }
        if (idx >= UFS_NXADDR) {
                warnx("pointer index %d is out of range", idx);
                return 1;
        }

        curinode->dp2.di_extb[idx] = bno;
        inodirty();
        printactive();
        return 0;
}

CMDFUNC(chfreelink)
{
#if 0
        ino_t freelink;
        char *cp;

        if (!checkactive())
                return 1;

        freelink = strtoll(argv[1], &cp, 0);
        if (cp == argv[1] || *cp != '\0') {
                warnx("bad freelink `%s'", argv[1]);
                return 1;
        }

        DIP_SET(curinode, freelink, freelink);
        inodirty();
        printactive();
#endif
        return 0;
}

CMDFUNC(linkcount)
{
        int     lcnt;
        char   *cp;

        if (!checkactive())
                return 1;

        lcnt = strtol(argv[1], &cp, 0);
        if (cp == argv[1] || *cp != '\0') {
                warnx("bad link count `%s'", argv[1]);
                return 1;
        }
        if (lcnt > USHRT_MAX || lcnt < 0) {
                warnx("max link count is %d", USHRT_MAX);
                return 1;
        }
        DIP_SET(curinode, nlink, iswap16(lcnt));
        inodirty();
        printactive();
        return 0;
}

CMDFUNC(chowner)
{
        unsigned long uid;
        char   *cp;
        struct passwd *pwd;

        if (!checkactive())
                return 1;

        uid = strtoul(argv[1], &cp, 0);
        if (cp == argv[1] || *cp != '\0') {
                /* try looking up name */
                if ((pwd = getpwnam(argv[1])) != 0) {
                        uid = pwd->pw_uid;
                } else {
                        warnx("bad uid `%s'", argv[1]);
                        return 1;
                }
        }
        if (!is_ufs2 && sblock->fs_old_inodefmt < FS_44INODEFMT)
                curinode->dp1.di_ouid = iswap32(uid);
        else
                DIP_SET(curinode, uid, iswap32(uid));
        inodirty();
        printactive();
        return 0;
}

CMDFUNC(chgroup)
{
        unsigned long gid;
        char   *cp;
        struct group *grp;

        if (!checkactive())
                return 1;

        gid = strtoul(argv[1], &cp, 0);
        if (cp == argv[1] || *cp != '\0') {
                if ((grp = getgrnam(argv[1])) != 0) {
                        gid = grp->gr_gid;
                } else {
                        warnx("bad gid `%s'", argv[1]);
                        return 1;
                }
        }
        if (!is_ufs2 && sblock->fs_old_inodefmt < FS_44INODEFMT)
                curinode->dp1.di_ogid = iswap32(gid);
        else
                DIP_SET(curinode, gid, iswap32(gid));
        inodirty();
        printactive();
        return 0;
}

static int
dotime(char *name, int64_t *rsec, int32_t *rnsec)
{
        char   *p, *val;
        struct tm t;
        int64_t sec;
        int32_t nsec;
        p = strchr(name, '.');
        if (p) {
                *p = '\0';
                nsec = strtoul(++p, &val, 0);
                if (val == p || *val != '\0' || nsec >= 1000000000 || nsec < 0) {
                        warnx("invalid nanoseconds");
                        goto badformat;
                }
        } else
                nsec = 0;
        if (strlen(name) != 14) {
badformat:
                warnx("date format: YYYYMMDDHHMMSS[.nsec]");
                return 1;
        }
        for (p = name; *p; p++)
                if (*p < '0' || *p > '9')
                        goto badformat;

        p = name;
#define VAL() ((*p++) - '0')
        t.tm_year = VAL();
        t.tm_year = VAL() + t.tm_year * 10;
        t.tm_year = VAL() + t.tm_year * 10;
        t.tm_year = VAL() + t.tm_year * 10 - 1900;
        t.tm_mon = VAL();
        t.tm_mon = VAL() + t.tm_mon * 10 - 1;
        t.tm_mday = VAL();
        t.tm_mday = VAL() + t.tm_mday * 10;
        t.tm_hour = VAL();
        t.tm_hour = VAL() + t.tm_hour * 10;
        t.tm_min = VAL();
        t.tm_min = VAL() + t.tm_min * 10;
        t.tm_sec = VAL();
        t.tm_sec = VAL() + t.tm_sec * 10;
        t.tm_isdst = -1;

        sec = mktime(&t);
        if (sec == -1) {
                warnx("date/time out of range");
                return 1;
        }
        *rsec = iswap64(sec);
        *rnsec = iswap32(nsec);
        return 0;
}

CMDFUNC(chmtime)
{
        int64_t rsec;
        int32_t nsec;

        if (!checkactive())
                return 1;
        if (dotime(argv[1], &rsec, &nsec))
                return 1;
        DIP_SET(curinode, mtime, rsec);
        DIP_SET(curinode, mtimensec, nsec);
        inodirty();
        printactive();
        return 0;
}

CMDFUNC(chatime)
{
        int64_t rsec;
        int32_t nsec;

        if (!checkactive())
                return 1;
        if (dotime(argv[1], &rsec, &nsec))
                return 1;
        DIP_SET(curinode, atime, rsec);
        DIP_SET(curinode, atimensec, nsec);
        inodirty();
        printactive();
        return 0;
}

CMDFUNC(chctime)
{
        int64_t rsec;
        int32_t nsec;

        if (!checkactive())
                return 1;
        if (dotime(argv[1], &rsec, &nsec))
                return 1;
        DIP_SET(curinode, ctime, rsec);
        DIP_SET(curinode, ctimensec, nsec);
        inodirty();
        printactive();
        return 0;
}

CMDFUNC(chbirthtime)
{
        int64_t rsec;
        int32_t nsec;

        if (!is_ufs2) {
                warnx("birthtime can only be set in ufs2");
                return 1;
        }
        if (!checkactive())
                return 1;

        if (dotime(argv[1], &rsec, &nsec))
                return 1;
        curinode->dp2.di_birthtime = rsec;
        curinode->dp2.di_birthnsec = nsec;
        inodirty();
        printactive();
        return 0;
}

CMDFUNC(iptrs)
{
        int i;

        if (!checkactive())
                return 1;
        for (i = 0; i < UFS_NDADDR; i++)
                printf("di_db %d %ju\n", i, DIP(curinode, db[i]));
        for (i = 0; i < UFS_NIADDR; i++)
                printf("di_ib %d %ju\n", i, DIP(curinode, ib[i]));
        if (is_ufs2)
                for (i = 0; i < UFS_NXADDR; i++)
                        printf("di_extb %d %ju\n", i, curinode->dp2.di_extb[i]);
        return 0;
}

CMDFUNC(saveea)
{
        struct wrinfo wrinfo;
        uint64_t blkno = 0;

        if (!is_ufs2) {
                warnx("dumping extattrs is only supported for ufs2");
                return 1;
        }
        if (!checkactive())
                return 1;

        wrinfo.fd = open(argv[1], O_WRONLY | O_TRUNC | O_CREAT, 0644);
        if (wrinfo.fd == -1) {
                warn("unable to create file %s", argv[1]);
                return 0;
        }

        wrinfo.size = iswap32(curinode->dp2.di_extsize);
        wrinfo.written_size = 0;
        print_blks64(curinode->dp2.di_extb, UFS_NXADDR, &blkno, &wrinfo);
        return 0;
}