sbin/fsdb/fsdb.c

   1 /*      $NetBSD: fsdb.c,v 1.2 1995/10/08 23:18:10 thorpej Exp $ */
   2
   3 /*-
   4  * SPDX-License-Identifier: BSD-3-Clause
   5  *
   6  *  Copyright (c) 1995 John T. Kohl
   7  *  All rights reserved.
   8  *
   9  *  Redistribution and use in source and binary forms, with or without
  10  *  modification, are permitted provided that the following conditions
  11  *  are met:
  12  *  1. Redistributions of source code must retain the above copyright
  13  *     notice, this list of conditions and the following disclaimer.
  14  *  2. Redistributions in binary form must reproduce the above copyright
  15  *     notice, this list of conditions and the following disclaimer in the
  16  *     documentation and/or other materials provided with the distribution.
  17  *  3. The name of the author may not be used to endorse or promote products
  18  *     derived from this software without specific prior written permission.
  19  *
  20  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR `AS IS'' AND ANY EXPRESS OR
  21  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  22  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  23  * DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
  24  * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  25  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  26  * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  27  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
  28  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
  29  * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  30  * POSSIBILITY OF SUCH DAMAGE.
  31  */
  32
  33 #ifndef lint
  34 static const char rcsid[] =
  35   "$FreeBSD$";
  36 #endif /* not lint */
  37
  38 #include <sys/param.h>
  39 #include <ctype.h>
  40 #include <err.h>
  41 #include <grp.h>
  42 #include <histedit.h>
  43 #include <pwd.h>
  44 #include <stdint.h>
  45 #include <string.h>
  46 #include <time.h>
  47 #include <timeconv.h>
  48
  49 #include <ufs/ufs/dinode.h>
  50 #include <ufs/ufs/dir.h>
  51 #include <ufs/ffs/fs.h>
  52
  53 #include "fsdb.h"
  54 #include "fsck.h"
  55
  56 static void usage(void) __dead2;
  57 int cmdloop(void);
  58 static int compare_blk32(uint32_t *wantedblk, uint32_t curblk);
  59 static int compare_blk64(uint64_t *wantedblk, uint64_t curblk);
  60 static int founddatablk(uint64_t blk);
  61 static int find_blks32(uint32_t *buf, int size, uint32_t *blknum);
  62 static int find_blks64(uint64_t *buf, int size, uint64_t *blknum);
  63 static int find_indirblks32(uint32_t blk, int ind_level, uint32_t *blknum);
  64 static int find_indirblks64(uint64_t blk, int ind_level, uint64_t *blknum);
  65
  66 static void
  67 usage(void)
  68 {
  69         fprintf(stderr, "usage: fsdb [-d] [-f] [-r] fsname\n");
  70         exit(1);
  71 }
  72
  73 int returntosingle;
  74 char nflag;
  75
  76 /*
  77  * We suck in lots of fsck code, and just pick & choose the stuff we want.
  78  *
  79  * fsreadfd is set up to read from the file system, fswritefd to write to
  80  * the file system.
  81  */
  82 int
  83 main(int argc, char *argv[])
  84 {
  85         int ch, rval;
  86         char *fsys = NULL;
  87
  88         while (-1 != (ch = getopt(argc, argv, "fdr"))) {
  89                 switch (ch) {
  90                 case 'f':
  91                         /* The -f option is left for historical
  92                          * reasons and has no meaning.
  93                          */
  94                         break;
  95                 case 'd':
  96                         debug++;
  97                         break;
  98                 case 'r':
  99                         nflag++; /* "no" in fsck, readonly for us */
 100                         break;
 101                 default:
 102                         usage();
 103                 }
 104         }
 105         argc -= optind;
 106         argv += optind;
 107         if (argc != 1)
 108                 usage();
 109         else
 110                 fsys = argv[0];
 111
 112         sblock_init();
 113         if (!setup(fsys))
 114                 errx(1, "cannot set up file system `%s'", fsys);
 115         printf("%s file system `%s'\nLast Mounted on %s\n",
 116                nflag? "Examining": "Editing", fsys, sblock.fs_fsmnt);
 117         rval = cmdloop();
 118         if (!nflag) {
 119                 sblock.fs_clean = 0;    /* mark it dirty */
 120                 sbdirty();
 121                 ckfini(0);
 122                 printf("*** FILE SYSTEM MARKED DIRTY\n");
 123                 printf("*** BE SURE TO RUN FSCK TO CLEAN UP ANY DAMAGE\n");
 124                 printf("*** IF IT WAS MOUNTED, RE-MOUNT WITH -u -o reload\n");
 125         }
 126         exit(rval);
 127 }
 128
 129 #define CMDFUNC(func) int func(int argc, char *argv[])
 130 #define CMDFUNCSTART(func) int func(int argc, char *argv[])
 131
 132 CMDFUNC(helpfn);
 133 CMDFUNC(focus);                         /* focus on inode */
 134 CMDFUNC(active);                        /* print active inode */
 135 CMDFUNC(blocks);                        /* print blocks for active inode */
 136 CMDFUNC(focusname);                     /* focus by name */
 137 CMDFUNC(zapi);                          /* clear inode */
 138 CMDFUNC(uplink);                        /* incr link */
 139 CMDFUNC(downlink);                      /* decr link */
 140 CMDFUNC(linkcount);                     /* set link count */
 141 CMDFUNC(quit);                          /* quit */
 142 CMDFUNC(findblk);                       /* find block */
 143 CMDFUNC(ls);                            /* list directory */
 144 CMDFUNC(rm);                            /* remove name */
 145 CMDFUNC(ln);                            /* add name */
 146 CMDFUNC(newtype);                       /* change type */
 147 CMDFUNC(chmode);                        /* change mode */
 148 CMDFUNC(chlen);                         /* change length */
 149 CMDFUNC(chaflags);                      /* change flags */
 150 CMDFUNC(chgen);                         /* change generation */
 151 CMDFUNC(chowner);                       /* change owner */
 152 CMDFUNC(chgroup);                       /* Change group */
 153 CMDFUNC(back);                          /* pop back to last ino */
 154 CMDFUNC(chbtime);                       /* Change btime */
 155 CMDFUNC(chmtime);                       /* Change mtime */
 156 CMDFUNC(chctime);                       /* Change ctime */
 157 CMDFUNC(chatime);                       /* Change atime */
 158 CMDFUNC(chinum);                        /* Change inode # of dirent */
 159 CMDFUNC(chname);                        /* Change dirname of dirent */
 160 CMDFUNC(chsize);                        /* Change size */
 161
 162 struct cmdtable cmds[] = {
 163         { "help", "Print out help", 1, 1, FL_RO, helpfn },
 164         { "?", "Print out help", 1, 1, FL_RO, helpfn },
 165         { "inode", "Set active inode to INUM", 2, 2, FL_RO, focus },
 166         { "clri", "Clear inode INUM", 2, 2, FL_WR, zapi },
 167         { "lookup", "Set active inode by looking up NAME", 2, 2, FL_RO | FL_ST, focusname },
 168         { "cd", "Set active inode by looking up NAME", 2, 2, FL_RO | FL_ST, focusname },
 169         { "back", "Go to previous active inode", 1, 1, FL_RO, back },
 170         { "active", "Print active inode", 1, 1, FL_RO, active },
 171         { "print", "Print active inode", 1, 1, FL_RO, active },
 172         { "blocks", "Print block numbers of active inode", 1, 1, FL_RO, blocks },
 173         { "uplink", "Increment link count", 1, 1, FL_WR, uplink },
 174         { "downlink", "Decrement link count", 1, 1, FL_WR, downlink },
 175         { "linkcount", "Set link count to COUNT", 2, 2, FL_WR, linkcount },
 176         { "findblk", "Find inode owning disk block(s)", 2, 33, FL_RO, findblk},
 177         { "ls", "List current inode as directory", 1, 1, FL_RO, ls },
 178         { "rm", "Remove NAME from current inode directory", 2, 2, FL_WR | FL_ST, rm },
 179         { "del", "Remove NAME from current inode directory", 2, 2, FL_WR | FL_ST, rm },
 180         { "ln", "Hardlink INO into current inode directory as NAME", 3, 3, FL_WR | FL_ST, ln },
 181         { "chinum", "Change dir entry number INDEX to INUM", 3, 3, FL_WR, chinum },
 182         { "chname", "Change dir entry number INDEX to NAME", 3, 3, FL_WR | FL_ST, chname },
 183         { "chtype", "Change type of current inode to TYPE", 2, 2, FL_WR, newtype },
 184         { "chmod", "Change mode of current inode to MODE", 2, 2, FL_WR, chmode },
 185         { "chlen", "Change length of current inode to LENGTH", 2, 2, FL_WR, chlen },
 186         { "chown", "Change owner of current inode to OWNER", 2, 2, FL_WR, chowner },
 187         { "chgrp", "Change group of current inode to GROUP", 2, 2, FL_WR, chgroup },
 188         { "chflags", "Change flags of current inode to FLAGS", 2, 2, FL_WR, chaflags },
 189         { "chgen", "Change generation number of current inode to GEN", 2, 2, FL_WR, chgen },
 190         { "chsize", "Change size of current inode to SIZE", 2, 2, FL_WR, chsize },
 191         { "btime", "Change btime of current inode to BTIME", 2, 2, FL_WR, chbtime },
 192         { "mtime", "Change mtime of current inode to MTIME", 2, 2, FL_WR, chmtime },
 193         { "ctime", "Change ctime of current inode to CTIME", 2, 2, FL_WR, chctime },
 194         { "atime", "Change atime of current inode to ATIME", 2, 2, FL_WR, chatime },
 195         { "quit", "Exit", 1, 1, FL_RO, quit },
 196         { "q", "Exit", 1, 1, FL_RO, quit },
 197         { "exit", "Exit", 1, 1, FL_RO, quit },
 198         { NULL, 0, 0, 0, 0, NULL },
 199 };
 200
 201 int
 202 helpfn(int argc, char *argv[])
 203 {
 204     struct cmdtable *cmdtp;
 205
 206     printf("Commands are:\n%-10s %5s %5s   %s\n",
 207            "command", "min args", "max args", "what");
 208
 209     for (cmdtp = cmds; cmdtp->cmd; cmdtp++)
 210         printf("%-10s %5u %5u   %s\n",
 211                 cmdtp->cmd, cmdtp->minargc-1, cmdtp->maxargc-1, cmdtp->helptxt);
 212     return 0;
 213 }
 214
 215 char *
 216 prompt(EditLine *el)
 217 {
 218     static char pstring[64];
 219     snprintf(pstring, sizeof(pstring), "fsdb (inum: %ju)> ",
 220         (uintmax_t)curinum);
 221     return pstring;
 222 }
 223
 224
 225 int
 226 cmdloop(void)
 227 {
 228     char *line;
 229     const char *elline;
 230     int cmd_argc, rval = 0, known;
 231 #define scratch known
 232     char **cmd_argv;
 233     struct cmdtable *cmdp;
 234     History *hist;
 235     EditLine *elptr;
 236     HistEvent he;
 237
 238     curinode = ginode(ROOTINO);
 239     curinum = ROOTINO;
 240     printactive(0);
 241
 242     hist = history_init();
 243     history(hist, &he, H_SETSIZE, 100); /* 100 elt history buffer */
 244
 245     elptr = el_init("fsdb", stdin, stdout, stderr);
 246     el_set(elptr, EL_EDITOR, "emacs");
 247     el_set(elptr, EL_PROMPT, prompt);
 248     el_set(elptr, EL_HIST, history, hist);
 249     el_source(elptr, NULL);
 250
 251     while ((elline = el_gets(elptr, &scratch)) != NULL && scratch != 0) {
 252         if (debug)
 253             printf("command `%s'\n", elline);
 254
 255         history(hist, &he, H_ENTER, elline);
 256
 257         line = strdup(elline);
 258         cmd_argv = crack(line, &cmd_argc);
 259         /*
 260          * el_parse returns -1 to signal that it's not been handled
 261          * internally.
 262          */
 263         if (el_parse(elptr, cmd_argc, (const char **)cmd_argv) != -1)
 264             continue;
 265         if (cmd_argc) {
 266             known = 0;
 267             for (cmdp = cmds; cmdp->cmd; cmdp++) {
 268                 if (!strcmp(cmdp->cmd, cmd_argv[0])) {
 269                     if ((cmdp->flags & FL_WR) == FL_WR && nflag)
 270                         warnx("`%s' requires write access", cmd_argv[0]),
 271                             rval = 1;
 272                     else if (cmd_argc >= cmdp->minargc &&
 273                         cmd_argc <= cmdp->maxargc)
 274                         rval = (*cmdp->handler)(cmd_argc, cmd_argv);
 275                     else if (cmd_argc >= cmdp->minargc &&
 276                         (cmdp->flags & FL_ST) == FL_ST) {
 277                         strcpy(line, elline);
 278                         cmd_argv = recrack(line, &cmd_argc, cmdp->maxargc);
 279                         rval = (*cmdp->handler)(cmd_argc, cmd_argv);
 280                     } else
 281                         rval = argcount(cmdp, cmd_argc, cmd_argv);
 282                     known = 1;
 283                     break;
 284                 }
 285             }
 286             if (!known)
 287                 warnx("unknown command `%s'", cmd_argv[0]), rval = 1;
 288         } else
 289             rval = 0;
 290         free(line);
 291         if (rval < 0)
 292             /* user typed "quit" */
 293             return 0;
 294         if (rval)
 295             warnx("rval was %d", rval);
 296     }
 297     el_end(elptr);
 298     history_end(hist);
 299     return rval;
 300 }
 301
 302 union dinode *curinode;
 303 ino_t curinum, ocurrent;
 304
 305 #define GETINUM(ac,inum)    inum = strtoul(argv[ac], &cp, 0); \
 306     if (inum < ROOTINO || inum > maxino || cp == argv[ac] || *cp != '\0' ) { \
 307         printf("inode %ju out of range; range is [%ju,%ju]\n",          \
 308             (uintmax_t)inum, (uintmax_t)ROOTINO, (uintmax_t)maxino);    \
 309         return 1; \
 310     }
 311
 312 /*
 313  * Focus on given inode number
 314  */
 315 CMDFUNCSTART(focus)
 316 {
 317     ino_t inum;
 318     char *cp;
 319
 320     GETINUM(1,inum);
 321     curinode = ginode(inum);
 322     ocurrent = curinum;
 323     curinum = inum;
 324     printactive(0);
 325     return 0;
 326 }
 327
 328 CMDFUNCSTART(back)
 329 {
 330     curinum = ocurrent;
 331     curinode = ginode(curinum);
 332     printactive(0);
 333     return 0;
 334 }
 335
 336 CMDFUNCSTART(zapi)
 337 {
 338     ino_t inum;
 339     union dinode *dp;
 340     char *cp;
 341
 342     GETINUM(1,inum);
 343     dp = ginode(inum);
 344     clearinode(dp);
 345     inodirty(dp);
 346     if (curinode)                       /* re-set after potential change */
 347         curinode = ginode(curinum);
 348     return 0;
 349 }
 350
 351 CMDFUNCSTART(active)
 352 {
 353     printactive(0);
 354     return 0;
 355 }
 356
 357 CMDFUNCSTART(blocks)
 358 {
 359     printactive(1);
 360     return 0;
 361 }
 362
 363 CMDFUNCSTART(quit)
 364 {
 365     return -1;
 366 }
 367
 368 CMDFUNCSTART(uplink)
 369 {
 370     if (!checkactive())
 371         return 1;
 372     DIP_SET(curinode, di_nlink, DIP(curinode, di_nlink) + 1);
 373     printf("inode %ju link count now %d\n",
 374         (uintmax_t)curinum, DIP(curinode, di_nlink));
 375     inodirty(curinode);
 376     return 0;
 377 }
 378
 379 CMDFUNCSTART(downlink)
 380 {
 381     if (!checkactive())
 382         return 1;
 383     DIP_SET(curinode, di_nlink, DIP(curinode, di_nlink) - 1);
 384     printf("inode %ju link count now %d\n",
 385         (uintmax_t)curinum, DIP(curinode, di_nlink));
 386     inodirty(curinode);
 387     return 0;
 388 }
 389
 390 const char *typename[] = {
 391     "unknown",
 392     "fifo",
 393     "char special",
 394     "unregistered #3",
 395     "directory",
 396     "unregistered #5",
 397     "blk special",
 398     "unregistered #7",
 399     "regular",
 400     "unregistered #9",
 401     "symlink",
 402     "unregistered #11",
 403     "socket",
 404     "unregistered #13",
 405     "whiteout",
 406 };
 407
 408 int diroff;
 409 int slot;
 410
 411 int
 412 scannames(struct inodesc *idesc)
 413 {
 414         struct direct *dirp = idesc->id_dirp;
 415
 416         printf("slot %d off %d ino %d reclen %d: %s, `%.*s'\n",
 417                slot++, diroff, dirp->d_ino, dirp->d_reclen,
 418                typename[dirp->d_type], dirp->d_namlen, dirp->d_name);
 419         diroff += dirp->d_reclen;
 420         return (KEEPON);
 421 }
 422
 423 CMDFUNCSTART(ls)
 424 {
 425     struct inodesc idesc;
 426     checkactivedir();                   /* let it go on anyway */
 427
 428     slot = 0;
 429     diroff = 0;
 430     idesc.id_number = curinum;
 431     idesc.id_func = scannames;
 432     idesc.id_type = DATA;
 433     idesc.id_fix = IGNORE;
 434     ckinode(curinode, &idesc);
 435     curinode = ginode(curinum);
 436
 437     return 0;
 438 }
 439
 440 static int findblk_numtofind;
 441 static int wantedblksize;
 442
 443 CMDFUNCSTART(findblk)
 444 {
 445     ino_t inum, inosused;
 446     uint32_t *wantedblk32;
 447     uint64_t *wantedblk64;
 448     struct bufarea *cgbp;
 449     struct cg *cgp;
 450     int c, i, is_ufs2;
 451
 452     wantedblksize = (argc - 1);
 453     is_ufs2 = sblock.fs_magic == FS_UFS2_MAGIC;
 454     ocurrent = curinum;
 455
 456     if (is_ufs2) {
 457         wantedblk64 = calloc(wantedblksize, sizeof(uint64_t));
 458         if (wantedblk64 == NULL)
 459             err(1, "malloc");
 460         for (i = 1; i < argc; i++)
 461             wantedblk64[i - 1] = dbtofsb(&sblock, strtoull(argv[i], NULL, 0));
 462     } else {
 463         wantedblk32 = calloc(wantedblksize, sizeof(uint32_t));
 464         if (wantedblk32 == NULL)
 465             err(1, "malloc");
 466         for (i = 1; i < argc; i++)
 467             wantedblk32[i - 1] = dbtofsb(&sblock, strtoull(argv[i], NULL, 0));
 468     }
 469     findblk_numtofind = wantedblksize;
 470     /*
 471      * sblock.fs_ncg holds a number of cylinder groups.
 472      * Iterate over all cylinder groups.
 473      */
 474     for (c = 0; c < sblock.fs_ncg; c++) {
 475         /*
 476          * sblock.fs_ipg holds a number of inodes per cylinder group.
 477          * Calculate a highest inode number for a given cylinder group.
 478          */
 479         inum = c * sblock.fs_ipg;
 480         /* Read cylinder group. */
 481         cgbp = cgget(c);
 482         cgp = cgbp->b_un.b_cg;
 483         /*
 484          * Get a highest used inode number for a given cylinder group.
 485          * For UFS1 all inodes initialized at the newfs stage.
 486          */
 487         if (is_ufs2)
 488             inosused = cgp->cg_initediblk;
 489         else
 490             inosused = sblock.fs_ipg;
 491
 492         for (; inosused > 0; inum++, inosused--) {
 493             /* Skip magic inodes: 0, WINO, ROOTINO. */
 494             if (inum < ROOTINO)
 495                 continue;
 496             /*
 497              * Check if the block we are looking for is just an inode block.
 498              *
 499              * ino_to_fsba() - get block containing inode from its number.
 500              * INOPB() - get a number of inodes in one disk block.
 501              */
 502             if (is_ufs2 ?
 503                 compare_blk64(wantedblk64, ino_to_fsba(&sblock, inum)) :
 504                 compare_blk32(wantedblk32, ino_to_fsba(&sblock, inum))) {
 505                 printf("block %llu: inode block (%ju-%ju)\n",
 506                     (unsigned long long)fsbtodb(&sblock,
 507                         ino_to_fsba(&sblock, inum)),
 508                     (uintmax_t)(inum / INOPB(&sblock)) * INOPB(&sblock),
 509                     (uintmax_t)(inum / INOPB(&sblock) + 1) * INOPB(&sblock));
 510                 findblk_numtofind--;
 511                 if (findblk_numtofind == 0)
 512                     goto end;
 513             }
 514             /* Get on-disk inode aka dinode. */
 515             curinum = inum;
 516             curinode = ginode(inum);
 517             /* Find IFLNK dinode with allocated data blocks. */
 518             switch (DIP(curinode, di_mode) & IFMT) {
 519             case IFDIR:
 520             case IFREG:
 521                 if (DIP(curinode, di_blocks) == 0)
 522                     continue;
 523                 break;
 524             case IFLNK:
 525                 {
 526                     uint64_t size = DIP(curinode, di_size);
 527                     if (size > 0 && size < sblock.fs_maxsymlinklen &&
 528                         DIP(curinode, di_blocks) == 0)
 529                         continue;
 530                     else
 531                         break;
 532                 }
 533             default:
 534                 continue;
 535             }
 536             /* Look through direct data blocks. */
 537             if (is_ufs2 ?
 538                 find_blks64(curinode->dp2.di_db, NDADDR, wantedblk64) :
 539                 find_blks32(curinode->dp1.di_db, NDADDR, wantedblk32))
 540                 goto end;
 541             for (i = 0; i < NIADDR; i++) {
 542                 /*
 543                  * Does the block we are looking for belongs to the
 544                  * indirect blocks?
 545                  */
 546                 if (is_ufs2 ?
 547                     compare_blk64(wantedblk64, curinode->dp2.di_ib[i]) :
 548                     compare_blk32(wantedblk32, curinode->dp1.di_ib[i]))
 549                     if (founddatablk(is_ufs2 ? curinode->dp2.di_ib[i] :
 550                         curinode->dp1.di_ib[i]))
 551                         goto end;
 552                 /*
 553                  * Search through indirect, double and triple indirect
 554                  * data blocks.
 555                  */
 556                 if (is_ufs2 ? (curinode->dp2.di_ib[i] != 0) :
 557                     (curinode->dp1.di_ib[i] != 0))
 558                     if (is_ufs2 ?
 559                         find_indirblks64(curinode->dp2.di_ib[i], i,
 560                             wantedblk64) :
 561                         find_indirblks32(curinode->dp1.di_ib[i], i,
 562                             wantedblk32))
 563                         goto end;
 564             }
 565         }
 566     }
 567 end:
 568     curinum = ocurrent;
 569     curinode = ginode(curinum);
 570     return 0;
 571 }
 572
 573 static int
 574 compare_blk32(uint32_t *wantedblk, uint32_t curblk)
 575 {
 576     int i;
 577
 578     for (i = 0; i < wantedblksize; i++) {
 579         if (wantedblk[i] != 0 && wantedblk[i] == curblk) {
 580             wantedblk[i] = 0;
 581             return 1;
 582         }
 583     }
 584     return 0;
 585 }
 586
 587 static int
 588 compare_blk64(uint64_t *wantedblk, uint64_t curblk)
 589 {
 590     int i;
 591
 592     for (i = 0; i < wantedblksize; i++) {
 593         if (wantedblk[i] != 0 && wantedblk[i] == curblk) {
 594             wantedblk[i] = 0;
 595             return 1;
 596         }
 597     }
 598     return 0;
 599 }
 600
 601 static int
 602 founddatablk(uint64_t blk)
 603 {
 604
 605     printf("%llu: data block of inode %ju\n",
 606         (unsigned long long)fsbtodb(&sblock, blk), (uintmax_t)curinum);
 607     findblk_numtofind--;
 608     if (findblk_numtofind == 0)
 609         return 1;
 610     return 0;
 611 }
 612
 613 static int
 614 find_blks32(uint32_t *buf, int size, uint32_t *wantedblk)
 615 {
 616     int blk;
 617     for (blk = 0; blk < size; blk++) {
 618         if (buf[blk] == 0)
 619             continue;
 620         if (compare_blk32(wantedblk, buf[blk])) {
 621             if (founddatablk(buf[blk]))
 622                 return 1;
 623         }
 624     }
 625     return 0;
 626 }
 627
 628 static int
 629 find_indirblks32(uint32_t blk, int ind_level, uint32_t *wantedblk)
 630 {
 631 #define MAXNINDIR      (MAXBSIZE / sizeof(uint32_t))
 632     uint32_t idblk[MAXNINDIR];
 633     int i;
 634
 635     blread(fsreadfd, (char *)idblk, fsbtodb(&sblock, blk), (int)sblock.fs_bsize);
 636     if (ind_level <= 0) {
 637         if (find_blks32(idblk, sblock.fs_bsize / sizeof(uint32_t), wantedblk))
 638             return 1;
 639     } else {
 640         ind_level--;
 641         for (i = 0; i < sblock.fs_bsize / sizeof(uint32_t); i++) {
 642             if (compare_blk32(wantedblk, idblk[i])) {
 643                 if (founddatablk(idblk[i]))
 644                     return 1;
 645             }
 646             if (idblk[i] != 0)
 647                 if (find_indirblks32(idblk[i], ind_level, wantedblk))
 648                     return 1;
 649         }
 650     }
 651 #undef MAXNINDIR
 652     return 0;
 653 }
 654
 655 static int
 656 find_blks64(uint64_t *buf, int size, uint64_t *wantedblk)
 657 {
 658     int blk;
 659     for (blk = 0; blk < size; blk++) {
 660         if (buf[blk] == 0)
 661             continue;
 662         if (compare_blk64(wantedblk, buf[blk])) {
 663             if (founddatablk(buf[blk]))
 664                 return 1;
 665         }
 666     }
 667     return 0;
 668 }
 669
 670 static int
 671 find_indirblks64(uint64_t blk, int ind_level, uint64_t *wantedblk)
 672 {
 673 #define MAXNINDIR      (MAXBSIZE / sizeof(uint64_t))
 674     uint64_t idblk[MAXNINDIR];
 675     int i;
 676
 677     blread(fsreadfd, (char *)idblk, fsbtodb(&sblock, blk), (int)sblock.fs_bsize);
 678     if (ind_level <= 0) {
 679         if (find_blks64(idblk, sblock.fs_bsize / sizeof(uint64_t), wantedblk))
 680             return 1;
 681     } else {
 682         ind_level--;
 683         for (i = 0; i < sblock.fs_bsize / sizeof(uint64_t); i++) {
 684             if (compare_blk64(wantedblk, idblk[i])) {
 685                 if (founddatablk(idblk[i]))
 686                     return 1;
 687             }
 688             if (idblk[i] != 0)
 689                 if (find_indirblks64(idblk[i], ind_level, wantedblk))
 690                     return 1;
 691         }
 692     }
 693 #undef MAXNINDIR
 694     return 0;
 695 }
 696
 697 int findino(struct inodesc *idesc); /* from fsck */
 698 static int dolookup(char *name);
 699
 700 static int
 701 dolookup(char *name)
 702 {
 703     struct inodesc idesc;
 704
 705     if (!checkactivedir())
 706             return 0;
 707     idesc.id_number = curinum;
 708     idesc.id_func = findino;
 709     idesc.id_name = name;
 710     idesc.id_type = DATA;
 711     idesc.id_fix = IGNORE;
 712     if (ckinode(curinode, &idesc) & FOUND) {
 713         curinum = idesc.id_parent;
 714         curinode = ginode(curinum);
 715         printactive(0);
 716         return 1;
 717     } else {
 718         warnx("name `%s' not found in current inode directory", name);
 719         return 0;
 720     }
 721 }
 722
 723 CMDFUNCSTART(focusname)
 724 {
 725     char *p, *val;
 726
 727     if (!checkactive())
 728         return 1;
 729
 730     ocurrent = curinum;
 731
 732     if (argv[1][0] == '/') {
 733         curinum = ROOTINO;
 734         curinode = ginode(ROOTINO);
 735     } else {
 736         if (!checkactivedir())
 737             return 1;
 738     }
 739     for (p = argv[1]; p != NULL;) {
 740         while ((val = strsep(&p, "/")) != NULL && *val == '\0');
 741         if (val) {
 742             printf("component `%s': ", val);
 743             fflush(stdout);
 744             if (!dolookup(val)) {
 745                 curinode = ginode(curinum);
 746                 return(1);
 747             }
 748         }
 749     }
 750     return 0;
 751 }
 752
 753 CMDFUNCSTART(ln)
 754 {
 755     ino_t inum;
 756     int rval;
 757     char *cp;
 758
 759     GETINUM(1,inum);
 760
 761     if (!checkactivedir())
 762         return 1;
 763     rval = makeentry(curinum, inum, argv[2]);
 764     if (rval)
 765             printf("Ino %ju entered as `%s'\n", (uintmax_t)inum, argv[2]);
 766     else
 767         printf("could not enter name? weird.\n");
 768     curinode = ginode(curinum);
 769     return rval;
 770 }
 771
 772 CMDFUNCSTART(rm)
 773 {
 774     int rval;
 775
 776     if (!checkactivedir())
 777         return 1;
 778     rval = changeino(curinum, argv[1], 0);
 779     if (rval & ALTERED) {
 780         printf("Name `%s' removed\n", argv[1]);
 781         return 0;
 782     } else {
 783         printf("could not remove name ('%s')? weird.\n", argv[1]);
 784         return 1;
 785     }
 786 }
 787
 788 long slotcount, desired;
 789
 790 int
 791 chinumfunc(struct inodesc *idesc)
 792 {
 793         struct direct *dirp = idesc->id_dirp;
 794
 795         if (slotcount++ == desired) {
 796             dirp->d_ino = idesc->id_parent;
 797             return STOP|ALTERED|FOUND;
 798         }
 799         return KEEPON;
 800 }
 801
 802 CMDFUNCSTART(chinum)
 803 {
 804     char *cp;
 805     ino_t inum;
 806     struct inodesc idesc;
 807
 808     slotcount = 0;
 809     if (!checkactivedir())
 810         return 1;
 811     GETINUM(2,inum);
 812
 813     desired = strtol(argv[1], &cp, 0);
 814     if (cp == argv[1] || *cp != '\0' || desired < 0) {
 815         printf("invalid slot number `%s'\n", argv[1]);
 816         return 1;
 817     }
 818
 819     idesc.id_number = curinum;
 820     idesc.id_func = chinumfunc;
 821     idesc.id_fix = IGNORE;
 822     idesc.id_type = DATA;
 823     idesc.id_parent = inum;             /* XXX convenient hiding place */
 824
 825     if (ckinode(curinode, &idesc) & FOUND)
 826         return 0;
 827     else {
 828         warnx("no %sth slot in current directory", argv[1]);
 829         return 1;
 830     }
 831 }
 832
 833 int
 834 chnamefunc(struct inodesc *idesc)
 835 {
 836         struct direct *dirp = idesc->id_dirp;
 837         struct direct testdir;
 838
 839         if (slotcount++ == desired) {
 840             /* will name fit? */
 841             testdir.d_namlen = strlen(idesc->id_name);
 842             if (DIRSIZ(NEWDIRFMT, &testdir) <= dirp->d_reclen) {
 843                 dirp->d_namlen = testdir.d_namlen;
 844                 strcpy(dirp->d_name, idesc->id_name);
 845                 return STOP|ALTERED|FOUND;
 846             } else
 847                 return STOP|FOUND;      /* won't fit, so give up */
 848         }
 849         return KEEPON;
 850 }
 851
 852 CMDFUNCSTART(chname)
 853 {
 854     int rval;
 855     char *cp;
 856     struct inodesc idesc;
 857
 858     slotcount = 0;
 859     if (!checkactivedir())
 860         return 1;
 861
 862     desired = strtoul(argv[1], &cp, 0);
 863     if (cp == argv[1] || *cp != '\0') {
 864         printf("invalid slot number `%s'\n", argv[1]);
 865         return 1;
 866     }
 867
 868     idesc.id_number = curinum;
 869     idesc.id_func = chnamefunc;
 870     idesc.id_fix = IGNORE;
 871     idesc.id_type = DATA;
 872     idesc.id_name = argv[2];
 873
 874     rval = ckinode(curinode, &idesc);
 875     if ((rval & (FOUND|ALTERED)) == (FOUND|ALTERED))
 876         return 0;
 877     else if (rval & FOUND) {
 878         warnx("new name `%s' does not fit in slot %s\n", argv[2], argv[1]);
 879         return 1;
 880     } else {
 881         warnx("no %sth slot in current directory", argv[1]);
 882         return 1;
 883     }
 884 }
 885
 886 struct typemap {
 887     const char *typename;
 888     int typebits;
 889 } typenamemap[]  = {
 890     {"file", IFREG},
 891     {"dir", IFDIR},
 892     {"socket", IFSOCK},
 893     {"fifo", IFIFO},
 894 };
 895
 896 CMDFUNCSTART(newtype)
 897 {
 898     int type;
 899     struct typemap *tp;
 900
 901     if (!checkactive())
 902         return 1;
 903     type = DIP(curinode, di_mode) & IFMT;
 904     for (tp = typenamemap;
 905          tp < &typenamemap[nitems(typenamemap)];
 906          tp++) {
 907         if (!strcmp(argv[1], tp->typename)) {
 908             printf("setting type to %s\n", tp->typename);
 909             type = tp->typebits;
 910             break;
 911         }
 912     }
 913     if (tp == &typenamemap[nitems(typenamemap)]) {
 914         warnx("type `%s' not known", argv[1]);
 915         warnx("try one of `file', `dir', `socket', `fifo'");
 916         return 1;
 917     }
 918     DIP_SET(curinode, di_mode, DIP(curinode, di_mode) & ~IFMT);
 919     DIP_SET(curinode, di_mode, DIP(curinode, di_mode) | type);
 920     inodirty(curinode);
 921     printactive(0);
 922     return 0;
 923 }
 924
 925 CMDFUNCSTART(chlen)
 926 {
 927     int rval = 1;
 928     long len;
 929     char *cp;
 930
 931     if (!checkactive())
 932         return 1;
 933
 934     len = strtol(argv[1], &cp, 0);
 935     if (cp == argv[1] || *cp != '\0' || len < 0) {
 936         warnx("bad length `%s'", argv[1]);
 937         return 1;
 938     }
 939
 940     DIP_SET(curinode, di_size, len);
 941     inodirty(curinode);
 942     printactive(0);
 943     return rval;
 944 }
 945
 946 CMDFUNCSTART(chmode)
 947 {
 948     int rval = 1;
 949     long modebits;
 950     char *cp;
 951
 952     if (!checkactive())
 953         return 1;
 954
 955     modebits = strtol(argv[1], &cp, 8);
 956     if (cp == argv[1] || *cp != '\0' || (modebits & ~07777)) {
 957         warnx("bad modebits `%s'", argv[1]);
 958         return 1;
 959     }
 960
 961     DIP_SET(curinode, di_mode, DIP(curinode, di_mode) & ~07777);
 962     DIP_SET(curinode, di_mode, DIP(curinode, di_mode) | modebits);
 963     inodirty(curinode);
 964     printactive(0);
 965     return rval;
 966 }
 967
 968 CMDFUNCSTART(chaflags)
 969 {
 970     int rval = 1;
 971     u_long flags;
 972     char *cp;
 973
 974     if (!checkactive())
 975         return 1;
 976
 977     flags = strtoul(argv[1], &cp, 0);
 978     if (cp == argv[1] || *cp != '\0' ) {
 979         warnx("bad flags `%s'", argv[1]);
 980         return 1;
 981     }
 982
 983     if (flags > UINT_MAX) {
 984         warnx("flags set beyond 32-bit range of field (%lx)\n", flags);
 985         return(1);
 986     }
 987     DIP_SET(curinode, di_flags, flags);
 988     inodirty(curinode);
 989     printactive(0);
 990     return rval;
 991 }
 992
 993 CMDFUNCSTART(chgen)
 994 {
 995     int rval = 1;
 996     long gen;
 997     char *cp;
 998
 999     if (!checkactive())
1000         return 1;
1001
1002     gen = strtol(argv[1], &cp, 0);
1003     if (cp == argv[1] || *cp != '\0' ) {
1004         warnx("bad gen `%s'", argv[1]);
1005         return 1;
1006     }
1007
1008     if (gen > INT_MAX || gen < INT_MIN) {
1009         warnx("gen set beyond 32-bit range of field (%lx)\n", gen);
1010         return(1);
1011     }
1012     DIP_SET(curinode, di_gen, gen);
1013     inodirty(curinode);
1014     printactive(0);
1015     return rval;
1016 }
1017
1018 CMDFUNCSTART(chsize)
1019 {
1020     int rval = 1;
1021     off_t size;
1022     char *cp;
1023
1024     if (!checkactive())
1025         return 1;
1026
1027     size = strtoll(argv[1], &cp, 0);
1028     if (cp == argv[1] || *cp != '\0') {
1029         warnx("bad size `%s'", argv[1]);
1030         return 1;
1031     }
1032
1033     if (size < 0) {
1034         warnx("size set to negative (%jd)\n", (intmax_t)size);
1035         return(1);
1036     }
1037     DIP_SET(curinode, di_size, size);
1038     inodirty(curinode);
1039     printactive(0);
1040     return rval;
1041 }
1042
1043 CMDFUNCSTART(linkcount)
1044 {
1045     int rval = 1;
1046     int lcnt;
1047     char *cp;
1048
1049     if (!checkactive())
1050         return 1;
1051
1052     lcnt = strtol(argv[1], &cp, 0);
1053     if (cp == argv[1] || *cp != '\0' ) {
1054         warnx("bad link count `%s'", argv[1]);
1055         return 1;
1056     }
1057     if (lcnt > USHRT_MAX || lcnt < 0) {
1058         warnx("max link count is %d\n", USHRT_MAX);
1059         return 1;
1060     }
1061
1062     DIP_SET(curinode, di_nlink, lcnt);
1063     inodirty(curinode);
1064     printactive(0);
1065     return rval;
1066 }
1067
1068 CMDFUNCSTART(chowner)
1069 {
1070     int rval = 1;
1071     unsigned long uid;
1072     char *cp;
1073     struct passwd *pwd;
1074
1075     if (!checkactive())
1076         return 1;
1077
1078     uid = strtoul(argv[1], &cp, 0);
1079     if (cp == argv[1] || *cp != '\0' ) {
1080         /* try looking up name */
1081         if ((pwd = getpwnam(argv[1]))) {
1082             uid = pwd->pw_uid;
1083         } else {
1084             warnx("bad uid `%s'", argv[1]);
1085             return 1;
1086         }
1087     }
1088
1089     DIP_SET(curinode, di_uid, uid);
1090     inodirty(curinode);
1091     printactive(0);
1092     return rval;
1093 }
1094
1095 CMDFUNCSTART(chgroup)
1096 {
1097     int rval = 1;
1098     unsigned long gid;
1099     char *cp;
1100     struct group *grp;
1101
1102     if (!checkactive())
1103         return 1;
1104
1105     gid = strtoul(argv[1], &cp, 0);
1106     if (cp == argv[1] || *cp != '\0' ) {
1107         if ((grp = getgrnam(argv[1]))) {
1108             gid = grp->gr_gid;
1109         } else {
1110             warnx("bad gid `%s'", argv[1]);
1111             return 1;
1112         }
1113     }
1114
1115     DIP_SET(curinode, di_gid, gid);
1116     inodirty(curinode);
1117     printactive(0);
1118     return rval;
1119 }
1120
1121 int
1122 dotime(char *name, time_t *secp, int32_t *nsecp)
1123 {
1124     char *p, *val;
1125     struct tm t;
1126     int32_t nsec;
1127     p = strchr(name, '.');
1128     if (p) {
1129         *p = '\0';
1130         nsec = strtoul(++p, &val, 0);
1131         if (val == p || *val != '\0' || nsec >= 1000000000 || nsec < 0) {
1132                 warnx("invalid nanoseconds");
1133                 goto badformat;
1134         }
1135     } else
1136         nsec = 0;
1137     if (strlen(name) != 14) {
1138 badformat:
1139         warnx("date format: YYYYMMDDHHMMSS[.nsec]");
1140         return 1;
1141     }
1142     *nsecp = nsec;
1143
1144     for (p = name; *p; p++)
1145         if (*p < '0' || *p > '9')
1146             goto badformat;
1147
1148     p = name;
1149 #define VAL() ((*p++) - '0')
1150     t.tm_year = VAL();
1151     t.tm_year = VAL() + t.tm_year * 10;
1152     t.tm_year = VAL() + t.tm_year * 10;
1153     t.tm_year = VAL() + t.tm_year * 10 - 1900;
1154     t.tm_mon = VAL();
1155     t.tm_mon = VAL() + t.tm_mon * 10 - 1;
1156     t.tm_mday = VAL();
1157     t.tm_mday = VAL() + t.tm_mday * 10;
1158     t.tm_hour = VAL();
1159     t.tm_hour = VAL() + t.tm_hour * 10;
1160     t.tm_min = VAL();
1161     t.tm_min = VAL() + t.tm_min * 10;
1162     t.tm_sec = VAL();
1163     t.tm_sec = VAL() + t.tm_sec * 10;
1164     t.tm_isdst = -1;
1165
1166     *secp = mktime(&t);
1167     if (*secp == -1) {
1168         warnx("date/time out of range");
1169         return 1;
1170     }
1171     return 0;
1172 }
1173
1174 CMDFUNCSTART(chbtime)
1175 {
1176     time_t secs;
1177     int32_t nsecs;
1178
1179     if (dotime(argv[1], &secs, &nsecs))
1180         return 1;
1181     if (sblock.fs_magic == FS_UFS1_MAGIC)
1182         return 1;
1183     curinode->dp2.di_birthtime = _time_to_time64(secs);
1184     curinode->dp2.di_birthnsec = nsecs;
1185     inodirty(curinode);
1186     printactive(0);
1187     return 0;
1188 }
1189
1190 CMDFUNCSTART(chmtime)
1191 {
1192     time_t secs;
1193     int32_t nsecs;
1194
1195     if (dotime(argv[1], &secs, &nsecs))
1196         return 1;
1197     if (sblock.fs_magic == FS_UFS1_MAGIC)
1198         curinode->dp1.di_mtime = _time_to_time32(secs);
1199     else
1200         curinode->dp2.di_mtime = _time_to_time64(secs);
1201     DIP_SET(curinode, di_mtimensec, nsecs);
1202     inodirty(curinode);
1203     printactive(0);
1204     return 0;
1205 }
1206
1207 CMDFUNCSTART(chatime)
1208 {
1209     time_t secs;
1210     int32_t nsecs;
1211
1212     if (dotime(argv[1], &secs, &nsecs))
1213         return 1;
1214     if (sblock.fs_magic == FS_UFS1_MAGIC)
1215         curinode->dp1.di_atime = _time_to_time32(secs);
1216     else
1217         curinode->dp2.di_atime = _time_to_time64(secs);
1218     DIP_SET(curinode, di_atimensec, nsecs);
1219     inodirty(curinode);
1220     printactive(0);
1221     return 0;
1222 }
1223
1224 CMDFUNCSTART(chctime)
1225 {
1226     time_t secs;
1227     int32_t nsecs;
1228
1229     if (dotime(argv[1], &secs, &nsecs))
1230         return 1;
1231     if (sblock.fs_magic == FS_UFS1_MAGIC)
1232         curinode->dp1.di_ctime = _time_to_time32(secs);
1233     else
1234         curinode->dp2.di_ctime = _time_to_time64(secs);
1235     DIP_SET(curinode, di_ctimensec, nsecs);
1236     inodirty(curinode);
1237     printactive(0);
1238     return 0;
1239 }