usr.bin/stat/stat.c

   1 /*
   2  * Copyright (c) 2002 The NetBSD Foundation, Inc.
   3  * All rights reserved.
   4  *
   5  * This code is derived from software contributed to The NetBSD Foundation
   6  * by Andrew Brown.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  * 1. Redistributions of source code must retain the above copyright
  12  *    notice, this list of conditions and the following disclaimer.
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  *
  17  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  18  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  19  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  20  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  21  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  22  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  23  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  24  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  25  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  26  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  27  * POSSIBILITY OF SUCH DAMAGE.
  28  *
  29  * $NetBSD: stat.c,v 1.33 2011/01/15 22:54:10 njoly Exp $
  30  * $OpenBSD: stat.c,v 1.14 2009/06/24 09:44:25 sobrado Exp $
  31  * $FreeBSD: head/usr.bin/stat/stat.c 265893 2014-05-11 18:49:18Z thomas $
  32  */
  33
  34 #if HAVE_CONFIG_H
  35 #include "config.h"
  36 #else  /* HAVE_CONFIG_H */
  37 #define HAVE_STRUCT_STAT_ST_FLAGS 1
  38 #define HAVE_STRUCT_STAT_ST_GEN 1
  39 #define HAVE_STRUCT_STAT_ST_BIRTHTIME 0
  40 #define HAVE_STRUCT_STAT_ST_MTIMENSEC 1
  41 #define HAVE_DEVNAME 1
  42 #endif /* HAVE_CONFIG_H */
  43
  44 #include <sys/param.h>
  45 #include <sys/types.h>
  46 #include <sys/stat.h>
  47 #include <sys/mount.h>
  48
  49 #include <ctype.h>
  50 #include <err.h>
  51 #include <errno.h>
  52 #include <grp.h>
  53 #include <limits.h>
  54 #include <paths.h>
  55 #include <pwd.h>
  56 #include <stdio.h>
  57 #include <stdlib.h>
  58 #include <string.h>
  59 #include <time.h>
  60 #include <unistd.h>
  61
  62 #if HAVE_STRUCT_STAT_ST_FLAGS
  63 #define DEF_F "%#Xf "
  64 #define RAW_F "%f "
  65 #define SHELL_F " st_flags=%f"
  66 #else /* HAVE_STRUCT_STAT_ST_FLAGS */
  67 #define DEF_F
  68 #define RAW_F
  69 #define SHELL_F
  70 #endif /* HAVE_STRUCT_STAT_ST_FLAGS */
  71
  72 #if HAVE_STRUCT_STAT_ST_BIRTHTIME
  73 #define DEF_B "\"%SB\" "
  74 #define RAW_B "%B "
  75 #define SHELL_B "st_birthtime=%B "
  76 #else /* HAVE_STRUCT_STAT_ST_BIRTHTIME */
  77 #define DEF_B
  78 #define RAW_B
  79 #define SHELL_B
  80 #endif /* HAVE_STRUCT_STAT_ST_BIRTHTIME */
  81
  82 #if HAVE_STRUCT_STAT_ST_ATIM
  83 #define st_atimespec st_atim
  84 #define st_ctimespec st_ctim
  85 #define st_mtimespec st_mtim
  86 #endif /* HAVE_STRUCT_STAT_ST_ATIM */
  87
  88 #define DEF_FORMAT \
  89         "%d %i %Sp %l %Su %Sg %r %z \"%Sa\" \"%Sm\" \"%Sc\" " DEF_B \
  90         "%k %b " DEF_F "%N"
  91 #define RAW_FORMAT      "%d %i %#p %l %u %g %r %z %a %m %c " RAW_B \
  92         "%k %b " RAW_F "%N"
  93 #define LS_FORMAT       "%Sp %l %Su %Sg %Z %Sm %N%SY"
  94 #define LSF_FORMAT      "%Sp %l %Su %Sg %Z %Sm %N%T%SY"
  95 #define SHELL_FORMAT \
  96         "st_dev=%d st_ino=%i st_mode=%#p st_nlink=%l " \
  97         "st_uid=%u st_gid=%g st_rdev=%r st_size=%z " \
  98         "st_atime=%a st_mtime=%m st_ctime=%c " SHELL_B \
  99         "st_blksize=%k st_blocks=%b" SHELL_F
 100 #define LINUX_FORMAT \
 101         "  File: \"%N\"%n" \
 102         "  Size: %-11z  FileType: %HT%n" \
 103         "  Mode: (%OMp%03OLp/%.10Sp)         Uid: (%5u/%8Su)  Gid: (%5g/%8Sg)%n" \
 104         "Device: %Hd,%Ld   Inode: %i    Links: %l%n" \
 105         "Access: %Sa%n" \
 106         "Modify: %Sm%n" \
 107         "Change: %Sc"
 108
 109 #define TIME_FORMAT     "%b %e %T %Y"
 110
 111 #define FLAG_POUND      0x01
 112 #define FLAG_SPACE      0x02
 113 #define FLAG_PLUS       0x04
 114 #define FLAG_ZERO       0x08
 115 #define FLAG_MINUS      0x10
 116
 117 /*
 118  * These format characters must all be unique, except the magic one.
 119  */
 120 #define FMT_MAGIC       '%'
 121 #define FMT_DOT         '.'
 122
 123 #define SIMPLE_NEWLINE  'n'
 124 #define SIMPLE_TAB      't'
 125 #define SIMPLE_PERCENT  '%'
 126 #define SIMPLE_NUMBER   '@'
 127
 128 #define FMT_POUND       '#'
 129 #define FMT_SPACE       ' '
 130 #define FMT_PLUS        '+'
 131 #define FMT_ZERO        '0'
 132 #define FMT_MINUS       '-'
 133
 134 #define FMT_DECIMAL     'D'
 135 #define FMT_OCTAL       'O'
 136 #define FMT_UNSIGNED    'U'
 137 #define FMT_HEX         'X'
 138 #define FMT_FLOAT       'F'
 139 #define FMT_STRING      'S'
 140
 141 #define FMTF_DECIMAL    0x01
 142 #define FMTF_OCTAL      0x02
 143 #define FMTF_UNSIGNED   0x04
 144 #define FMTF_HEX        0x08
 145 #define FMTF_FLOAT      0x10
 146 #define FMTF_STRING     0x20
 147
 148 #define HIGH_PIECE      'H'
 149 #define MIDDLE_PIECE    'M'
 150 #define LOW_PIECE       'L'
 151
 152 #define SHOW_realpath   'R'
 153 #define SHOW_st_dev     'd'
 154 #define SHOW_st_ino     'i'
 155 #define SHOW_st_mode    'p'
 156 #define SHOW_st_nlink   'l'
 157 #define SHOW_st_uid     'u'
 158 #define SHOW_st_gid     'g'
 159 #define SHOW_st_rdev    'r'
 160 #define SHOW_st_atime   'a'
 161 #define SHOW_st_mtime   'm'
 162 #define SHOW_st_ctime   'c'
 163 #define SHOW_st_btime   'B'
 164 #define SHOW_st_size    'z'
 165 #define SHOW_st_blocks  'b'
 166 #define SHOW_st_blksize 'k'
 167 #define SHOW_st_flags   'f'
 168 #define SHOW_st_gen     'v'
 169 #define SHOW_symlink    'Y'
 170 #define SHOW_filetype   'T'
 171 #define SHOW_filename   'N'
 172 #define SHOW_sizerdev   'Z'
 173
 174 static void     usage(const char *) __dead2;
 175 static void     output(const struct stat *, const char *,
 176                     const char *, int, int);
 177 static int      format1(const struct stat *,    /* stat info */
 178                     const char *,               /* the file name */
 179                     const char *, int,          /* the format string itself */
 180                     char *, size_t,             /* a place to put the output */
 181                     int, int, int, int,         /* the parsed format */
 182                     int, int);
 183 static int      hex2byte(const char [2]);
 184 #if HAVE_STRUCT_STAT_ST_FLAGS
 185 static char     *xfflagstostr(unsigned long);
 186 #endif
 187
 188 static const char *timefmt;
 189 static int linkfail;
 190
 191 #define addchar(s, c, nl) \
 192         do { \
 193                 fputc((c), (s)); \
 194                 (*nl) = ((c) == '\n'); \
 195         } while (0/*CONSTCOND*/)
 196
 197 int
 198 main(int argc, char *argv[])
 199 {
 200         struct stat st;
 201         int ch, rc, errs, am_readlink;
 202         int lsF, fmtchar, usestat, nfs_handle, fn, nonl, quiet;
 203         const char *statfmt, *options, *synopsis;
 204         char dname[sizeof _PATH_DEV + MNAMELEN] = _PATH_DEV;
 205         fhandle_t fhnd;
 206         const char *file;
 207
 208         am_readlink = 0;
 209         lsF = 0;
 210         fmtchar = '\0';
 211         usestat = 0;
 212         nfs_handle = 0;
 213         nonl = 0;
 214         quiet = 0;
 215         linkfail = 0;
 216         statfmt = NULL;
 217         timefmt = NULL;
 218
 219         if (strcmp(getprogname(), "readlink") == 0) {
 220                 am_readlink = 1;
 221                 options = "fn";
 222                 synopsis = "[-fn] [file ...]";
 223                 statfmt = "%Y";
 224                 fmtchar = 'f';
 225                 quiet = 1;
 226         } else {
 227                 options = "f:FHlLnqrst:x";
 228                 synopsis = "[-FLnq] [-f format | -l | -r | -s | -x] "
 229                     "[-t timefmt] [file|handle ...]";
 230         }
 231
 232         while ((ch = getopt(argc, argv, options)) != -1)
 233                 switch (ch) {
 234                 case 'F':
 235                         lsF = 1;
 236                         break;
 237                 case 'H':
 238                         nfs_handle = 1;
 239                         break;
 240                 case 'L':
 241                         usestat = 1;
 242                         break;
 243                 case 'n':
 244                         nonl = 1;
 245                         break;
 246                 case 'q':
 247                         quiet = 1;
 248                         break;
 249                 case 'f':
 250                         if (am_readlink) {
 251                                 statfmt = "%R";
 252                                 break;
 253                         }
 254                         statfmt = optarg;
 255                         /* FALLTHROUGH */
 256                 case 'l':
 257                 case 'r':
 258                 case 's':
 259                 case 'x':
 260                         if (fmtchar != 0)
 261                                 errx(1, "can't use format '%c' with '%c'",
 262                                     fmtchar, ch);
 263                         fmtchar = ch;
 264                         break;
 265                 case 't':
 266                         timefmt = optarg;
 267                         break;
 268                 default:
 269                         usage(synopsis);
 270                 }
 271
 272         argc -= optind;
 273         argv += optind;
 274         fn = 1;
 275
 276         if (fmtchar == '\0') {
 277                 if (lsF)
 278                         fmtchar = 'l';
 279                 else {
 280                         fmtchar = 'f';
 281                         statfmt = DEF_FORMAT;
 282                 }
 283         }
 284
 285         if (lsF && fmtchar != 'l')
 286                 errx(1, "can't use format '%c' with -F", fmtchar);
 287
 288         switch (fmtchar) {
 289         case 'f':
 290                 /* statfmt already set */
 291                 break;
 292         case 'l':
 293                 statfmt = lsF ? LSF_FORMAT : LS_FORMAT;
 294                 break;
 295         case 'r':
 296                 statfmt = RAW_FORMAT;
 297                 break;
 298         case 's':
 299                 statfmt = SHELL_FORMAT;
 300                 break;
 301         case 'x':
 302                 statfmt = LINUX_FORMAT;
 303                 if (timefmt == NULL)
 304                         timefmt = "%c";
 305                 break;
 306         default:
 307                 usage(synopsis);
 308                 /*NOTREACHED*/
 309         }
 310
 311         if (timefmt == NULL)
 312                 timefmt = TIME_FORMAT;
 313
 314         errs = 0;
 315         do {
 316                 if (argc == 0) {
 317                         if (fdevname_r(STDIN_FILENO, dname +
 318                             sizeof _PATH_DEV - 1, MNAMELEN) == 0)
 319                                 file = dname;
 320                         else
 321                                 file = "(stdin)";
 322                         rc = fstat(STDIN_FILENO, &st);
 323                 } else {
 324                         int j;
 325
 326                         file = argv[0];
 327                         if (nfs_handle) {
 328                                 rc = 0;
 329                                 bzero(&fhnd, sizeof(fhnd));
 330                                 j = MIN(2 * sizeof(fhnd), strlen(file));
 331                                 if ((j & 1) != 0) {
 332                                         rc = -1;
 333                                 } else {
 334                                         while (j) {
 335                                                 rc = hex2byte(&file[j - 2]);
 336                                                 if (rc == -1)
 337                                                         break;
 338                                                 ((char*) &fhnd)[j / 2 - 1] = rc;
 339                                                 j -= 2;
 340                                         }
 341                                 }
 342                                 if (rc == -1)
 343                                         errno = EINVAL;
 344                                 else
 345                                         rc = fhstat(&fhnd, &st);
 346
 347                         } else if (usestat) {
 348                                 /*
 349                                  * Try stat() and if it fails, fall back to
 350                                  * lstat() just in case we're examining a
 351                                  * broken symlink.
 352                                  */
 353                                 if ((rc = stat(file, &st)) == -1 &&
 354                                     errno == ENOENT &&
 355                                     (rc = lstat(file, &st)) == -1)
 356                                         errno = ENOENT;
 357                         }
 358                         else
 359                                 rc = lstat(file, &st);
 360                 }
 361
 362                 if (rc == -1) {
 363                         errs = 1;
 364                         linkfail = 1;
 365                         if (!quiet)
 366                                 warn("%s: stat", file);
 367                 }
 368                 else
 369                         output(&st, file, statfmt, fn, nonl);
 370
 371                 argv++;
 372                 argc--;
 373                 fn++;
 374         } while (argc > 0);
 375
 376         return (am_readlink ? linkfail : errs);
 377 }
 378
 379 #if HAVE_STRUCT_STAT_ST_FLAGS
 380 /*
 381  * fflagstostr() wrapper that leaks only once
 382  */
 383 static char *
 384 xfflagstostr(unsigned long fflags)
 385 {
 386         static char *str = NULL;
 387
 388         if (str != NULL)
 389                 free(str);
 390
 391         str = fflagstostr(fflags);
 392         if (str == NULL)
 393                 err(1, "fflagstostr");
 394         return (str);
 395 }
 396 #endif /* HAVE_STRUCT_STAT_ST_FLAGS */
 397
 398 static void
 399 usage(const char *synopsis)
 400 {
 401
 402         fprintf(stderr, "usage: %s %s\n", getprogname(), synopsis);
 403         exit(1);
 404 }
 405
 406 /*
 407  * Parses a format string.
 408  */
 409 static void
 410 output(const struct stat *st, const char *file,
 411     const char *statfmt, int fn, int nonl)
 412 {
 413         int flags, size, prec, ofmt, hilo, what;
 414         char buf[PATH_MAX + 4 + 1];
 415         const char *subfmt;
 416         int nl, t, i;
 417
 418         nl = 1;
 419         while (*statfmt != '\0') {
 420
 421                 /*
 422                  * Non-format characters go straight out.
 423                  */
 424                 if (*statfmt != FMT_MAGIC) {
 425                         addchar(stdout, *statfmt, &nl);
 426                         statfmt++;
 427                         continue;
 428                 }
 429
 430                 /*
 431                  * The current format "substring" starts here,
 432                  * and then we skip the magic.
 433                  */
 434                 subfmt = statfmt;
 435                 statfmt++;
 436
 437                 /*
 438                  * Some simple one-character "formats".
 439                  */
 440                 switch (*statfmt) {
 441                 case SIMPLE_NEWLINE:
 442                         addchar(stdout, '\n', &nl);
 443                         statfmt++;
 444                         continue;
 445                 case SIMPLE_TAB:
 446                         addchar(stdout, '\t', &nl);
 447                         statfmt++;
 448                         continue;
 449                 case SIMPLE_PERCENT:
 450                         addchar(stdout, '%', &nl);
 451                         statfmt++;
 452                         continue;
 453                 case SIMPLE_NUMBER: {
 454                         char num[12], *p;
 455
 456                         snprintf(num, sizeof(num), "%d", fn);
 457                         for (p = &num[0]; *p; p++)
 458                                 addchar(stdout, *p, &nl);
 459                         statfmt++;
 460                         continue;
 461                 }
 462                 }
 463
 464                 /*
 465                  * This must be an actual format string.  Format strings are
 466                  * similar to printf(3) formats up to a point, and are of
 467                  * the form:
 468                  *
 469                  *      %       required start of format
 470                  *      [-# +0] opt. format characters
 471                  *      size    opt. field width
 472                  *      .       opt. decimal separator, followed by
 473                  *      prec    opt. precision
 474                  *      fmt     opt. output specifier (string, numeric, etc.)
 475                  *      sub     opt. sub field specifier (high, middle, low)
 476                  *      datum   required field specifier (size, mode, etc)
 477                  *
 478                  * Only the % and the datum selector are required.  All data
 479                  * have reasonable default output forms.  The "sub" specifier
 480                  * only applies to certain data (mode, dev, rdev, filetype).
 481                  * The symlink output defaults to STRING, yet will only emit
 482                  * the leading " -> " if STRING is explicitly specified.  The
 483                  * sizerdev datum will generate rdev output for character or
 484                  * block devices, and size output for all others.
 485                  */
 486                 flags = 0;
 487                 do {
 488                         if      (*statfmt == FMT_POUND)
 489                                 flags |= FLAG_POUND;
 490                         else if (*statfmt == FMT_SPACE)
 491                                 flags |= FLAG_SPACE;
 492                         else if (*statfmt == FMT_PLUS)
 493                                 flags |= FLAG_PLUS;
 494                         else if (*statfmt == FMT_ZERO)
 495                                 flags |= FLAG_ZERO;
 496                         else if (*statfmt == FMT_MINUS)
 497                                 flags |= FLAG_MINUS;
 498                         else
 499                                 break;
 500                         statfmt++;
 501                 } while (1/*CONSTCOND*/);
 502
 503                 size = -1;
 504                 if (isdigit((unsigned)*statfmt)) {
 505                         size = 0;
 506                         while (isdigit((unsigned)*statfmt)) {
 507                                 size = (size * 10) + (*statfmt - '0');
 508                                 statfmt++;
 509                                 if (size < 0)
 510                                         goto badfmt;
 511                         }
 512                 }
 513
 514                 prec = -1;
 515                 if (*statfmt == FMT_DOT) {
 516                         statfmt++;
 517
 518                         prec = 0;
 519                         while (isdigit((unsigned)*statfmt)) {
 520                                 prec = (prec * 10) + (*statfmt - '0');
 521                                 statfmt++;
 522                                 if (prec < 0)
 523                                         goto badfmt;
 524                         }
 525                 }
 526
 527 #define fmtcase(x, y)           case (y): (x) = (y); statfmt++; break
 528 #define fmtcasef(x, y, z)       case (y): (x) = (z); statfmt++; break
 529                 switch (*statfmt) {
 530                         fmtcasef(ofmt, FMT_DECIMAL,     FMTF_DECIMAL);
 531                         fmtcasef(ofmt, FMT_OCTAL,       FMTF_OCTAL);
 532                         fmtcasef(ofmt, FMT_UNSIGNED,    FMTF_UNSIGNED);
 533                         fmtcasef(ofmt, FMT_HEX,         FMTF_HEX);
 534                         fmtcasef(ofmt, FMT_FLOAT,       FMTF_FLOAT);
 535                         fmtcasef(ofmt, FMT_STRING,      FMTF_STRING);
 536                 default:
 537                         ofmt = 0;
 538                         break;
 539                 }
 540
 541                 switch (*statfmt) {
 542                         fmtcase(hilo, HIGH_PIECE);
 543                         fmtcase(hilo, MIDDLE_PIECE);
 544                         fmtcase(hilo, LOW_PIECE);
 545                 default:
 546                         hilo = 0;
 547                         break;
 548                 }
 549
 550                 switch (*statfmt) {
 551                         fmtcase(what, SHOW_realpath);
 552                         fmtcase(what, SHOW_st_dev);
 553                         fmtcase(what, SHOW_st_ino);
 554                         fmtcase(what, SHOW_st_mode);
 555                         fmtcase(what, SHOW_st_nlink);
 556                         fmtcase(what, SHOW_st_uid);
 557                         fmtcase(what, SHOW_st_gid);
 558                         fmtcase(what, SHOW_st_rdev);
 559                         fmtcase(what, SHOW_st_atime);
 560                         fmtcase(what, SHOW_st_mtime);
 561                         fmtcase(what, SHOW_st_ctime);
 562                         fmtcase(what, SHOW_st_btime);
 563                         fmtcase(what, SHOW_st_size);
 564                         fmtcase(what, SHOW_st_blocks);
 565                         fmtcase(what, SHOW_st_blksize);
 566                         fmtcase(what, SHOW_st_flags);
 567                         fmtcase(what, SHOW_st_gen);
 568                         fmtcase(what, SHOW_symlink);
 569                         fmtcase(what, SHOW_filetype);
 570                         fmtcase(what, SHOW_filename);
 571                         fmtcase(what, SHOW_sizerdev);
 572                 default:
 573                         goto badfmt;
 574                 }
 575 #undef fmtcasef
 576 #undef fmtcase
 577
 578                 t = format1(st,
 579                      file,
 580                      subfmt, statfmt - subfmt,
 581                      buf, sizeof(buf),
 582                      flags, size, prec, ofmt, hilo, what);
 583
 584                 for (i = 0; i < t && i < (int)(sizeof(buf) - 1); i++)
 585                         addchar(stdout, buf[i], &nl);
 586
 587                 continue;
 588
 589         badfmt:
 590                 errx(1, "%.*s: bad format",
 591                     (int)(statfmt - subfmt + 1), subfmt);
 592         }
 593
 594         if (!nl && !nonl)
 595                 fputc('\n', stdout);
 596         fflush(stdout);
 597 }
 598
 599 /*
 600  * Arranges output according to a single parsed format substring.
 601  */
 602 static int
 603 format1(const struct stat *st,
 604     const char *file,
 605     const char *fmt, int flen,
 606     char *buf, size_t blen,
 607     int flags, int size, int prec, int ofmt,
 608     int hilo, int what)
 609 {
 610         u_int64_t data;
 611         char *stmp, lfmt[24], tmp[20];
 612         const char *sdata;
 613         char smode[12], sid[12], path[PATH_MAX + 4];
 614         struct passwd *pw;
 615         struct group *gr;
 616         const struct timespec *tsp;
 617         struct timespec ts;
 618         struct tm *tm;
 619         int l, small, formats;
 620
 621         tsp = NULL;
 622         formats = 0;
 623         small = 0;
 624
 625         /*
 626          * First, pick out the data and tweak it based on hilo or
 627          * specified output format (symlink output only).
 628          */
 629         switch (what) {
 630         case SHOW_st_dev:
 631         case SHOW_st_rdev:
 632                 small = (sizeof(st->st_dev) == 4);
 633                 data = (what == SHOW_st_dev) ? st->st_dev : st->st_rdev;
 634 #if HAVE_DEVNAME
 635                 sdata = (what == SHOW_st_dev) ?
 636                     devname(st->st_dev, S_IFBLK) :
 637                     devname(st->st_rdev,
 638                     S_ISCHR(st->st_mode) ? S_IFCHR :
 639                     S_ISBLK(st->st_mode) ? S_IFBLK :
 640                     0U);
 641                 if (sdata == NULL)
 642                         sdata = "???";
 643 #endif /* HAVE_DEVNAME */
 644                 if (hilo == HIGH_PIECE) {
 645                         data = major(data);
 646                         hilo = 0;
 647                 }
 648                 else if (hilo == LOW_PIECE) {
 649                         data = minor((unsigned)data);
 650                         hilo = 0;
 651                 }
 652                 formats = FMTF_DECIMAL | FMTF_OCTAL | FMTF_UNSIGNED | FMTF_HEX |
 653 #if HAVE_DEVNAME
 654                     FMTF_STRING;
 655 #else /* HAVE_DEVNAME */
 656                     0;
 657 #endif /* HAVE_DEVNAME */
 658                 if (ofmt == 0)
 659                         ofmt = FMTF_UNSIGNED;
 660                 break;
 661         case SHOW_st_ino:
 662                 small = (sizeof(st->st_ino) == 4);
 663                 data = st->st_ino;
 664                 sdata = NULL;
 665                 formats = FMTF_DECIMAL | FMTF_OCTAL | FMTF_UNSIGNED | FMTF_HEX;
 666                 if (ofmt == 0)
 667                         ofmt = FMTF_UNSIGNED;
 668                 break;
 669         case SHOW_st_mode:
 670                 small = (sizeof(st->st_mode) == 4);
 671                 data = st->st_mode;
 672                 strmode(st->st_mode, smode);
 673                 stmp = smode;
 674                 l = strlen(stmp);
 675                 if (stmp[l - 1] == ' ')
 676                         stmp[--l] = '\0';
 677                 if (hilo == HIGH_PIECE) {
 678                         data >>= 12;
 679                         stmp += 1;
 680                         stmp[3] = '\0';
 681                         hilo = 0;
 682                 }
 683                 else if (hilo == MIDDLE_PIECE) {
 684                         data = (data >> 9) & 07;
 685                         stmp += 4;
 686                         stmp[3] = '\0';
 687                         hilo = 0;
 688                 }
 689                 else if (hilo == LOW_PIECE) {
 690                         data &= 0777;
 691                         stmp += 7;
 692                         stmp[3] = '\0';
 693                         hilo = 0;
 694                 }
 695                 sdata = stmp;
 696                 formats = FMTF_DECIMAL | FMTF_OCTAL | FMTF_UNSIGNED | FMTF_HEX |
 697                     FMTF_STRING;
 698                 if (ofmt == 0)
 699                         ofmt = FMTF_OCTAL;
 700                 break;
 701         case SHOW_st_nlink:
 702                 small = (sizeof(st->st_dev) == 4);
 703                 data = st->st_nlink;
 704                 sdata = NULL;
 705                 formats = FMTF_DECIMAL | FMTF_OCTAL | FMTF_UNSIGNED | FMTF_HEX;
 706                 if (ofmt == 0)
 707                         ofmt = FMTF_UNSIGNED;
 708                 break;
 709         case SHOW_st_uid:
 710                 small = (sizeof(st->st_uid) == 4);
 711                 data = st->st_uid;
 712                 if ((pw = getpwuid(st->st_uid)) != NULL)
 713                         sdata = pw->pw_name;
 714                 else {
 715                         snprintf(sid, sizeof(sid), "(%ld)", (long)st->st_uid);
 716                         sdata = sid;
 717                 }
 718                 formats = FMTF_DECIMAL | FMTF_OCTAL | FMTF_UNSIGNED | FMTF_HEX |
 719                     FMTF_STRING;
 720                 if (ofmt == 0)
 721                         ofmt = FMTF_UNSIGNED;
 722                 break;
 723         case SHOW_st_gid:
 724                 small = (sizeof(st->st_gid) == 4);
 725                 data = st->st_gid;
 726                 if ((gr = getgrgid(st->st_gid)) != NULL)
 727                         sdata = gr->gr_name;
 728                 else {
 729                         snprintf(sid, sizeof(sid), "(%ld)", (long)st->st_gid);
 730                         sdata = sid;
 731                 }
 732                 formats = FMTF_DECIMAL | FMTF_OCTAL | FMTF_UNSIGNED | FMTF_HEX |
 733                     FMTF_STRING;
 734                 if (ofmt == 0)
 735                         ofmt = FMTF_UNSIGNED;
 736                 break;
 737         case SHOW_st_atime:
 738                 tsp = &st->st_atimespec;
 739                 /* FALLTHROUGH */
 740         case SHOW_st_mtime:
 741                 if (tsp == NULL)
 742                         tsp = &st->st_mtimespec;
 743                 /* FALLTHROUGH */
 744         case SHOW_st_ctime:
 745                 if (tsp == NULL)
 746                         tsp = &st->st_ctimespec;
 747                 /* FALLTHROUGH */
 748 #if HAVE_STRUCT_STAT_ST_BIRTHTIME
 749         case SHOW_st_btime:
 750                 if (tsp == NULL)
 751                         tsp = &st->st_birthtimespec;
 752 #endif /* HAVE_STRUCT_STAT_ST_BIRTHTIME */
 753                 ts = *tsp;              /* copy so we can muck with it */
 754                 small = (sizeof(ts.tv_sec) == 4);
 755                 data = ts.tv_sec;
 756                 tm = localtime(&ts.tv_sec);
 757                 if (tm == NULL) {
 758                         ts.tv_sec = 0;
 759                         tm = localtime(&ts.tv_sec);
 760                 }
 761                 strftime(path, sizeof(path), timefmt, tm);
 762                 sdata = path;
 763                 formats = FMTF_DECIMAL | FMTF_OCTAL | FMTF_UNSIGNED | FMTF_HEX |
 764                     FMTF_FLOAT | FMTF_STRING;
 765                 if (ofmt == 0)
 766                         ofmt = FMTF_DECIMAL;
 767                 break;
 768         case SHOW_st_size:
 769                 small = (sizeof(st->st_size) == 4);
 770                 data = st->st_size;
 771                 sdata = NULL;
 772                 formats = FMTF_DECIMAL | FMTF_OCTAL | FMTF_UNSIGNED | FMTF_HEX;
 773                 if (ofmt == 0)
 774                         ofmt = FMTF_UNSIGNED;
 775                 break;
 776         case SHOW_st_blocks:
 777                 small = (sizeof(st->st_blocks) == 4);
 778                 data = st->st_blocks;
 779                 sdata = NULL;
 780                 formats = FMTF_DECIMAL | FMTF_OCTAL | FMTF_UNSIGNED | FMTF_HEX;
 781                 if (ofmt == 0)
 782                         ofmt = FMTF_UNSIGNED;
 783                 break;
 784         case SHOW_st_blksize:
 785                 small = (sizeof(st->st_blksize) == 4);
 786                 data = st->st_blksize;
 787                 sdata = NULL;
 788                 formats = FMTF_DECIMAL | FMTF_OCTAL | FMTF_UNSIGNED | FMTF_HEX;
 789                 if (ofmt == 0)
 790                         ofmt = FMTF_UNSIGNED;
 791                 break;
 792 #if HAVE_STRUCT_STAT_ST_FLAGS
 793         case SHOW_st_flags:
 794                 small = (sizeof(st->st_flags) == 4);
 795                 data = st->st_flags;
 796                 sdata = xfflagstostr(st->st_flags);
 797                 if (*sdata == '\0')
 798                         sdata = "-";
 799                 formats = FMTF_DECIMAL | FMTF_OCTAL | FMTF_UNSIGNED | FMTF_HEX |
 800                     FMTF_STRING;
 801                 if (ofmt == 0)
 802                         ofmt = FMTF_UNSIGNED;
 803                 break;
 804 #endif /* HAVE_STRUCT_STAT_ST_FLAGS */
 805 #if HAVE_STRUCT_STAT_ST_GEN
 806         case SHOW_st_gen:
 807                 small = (sizeof(st->st_gen) == 4);
 808                 data = st->st_gen;
 809                 sdata = NULL;
 810                 formats = FMTF_DECIMAL | FMTF_OCTAL | FMTF_UNSIGNED | FMTF_HEX;
 811                 if (ofmt == 0)
 812                         ofmt = FMTF_UNSIGNED;
 813                 break;
 814 #endif /* HAVE_STRUCT_STAT_ST_GEN */
 815         case SHOW_realpath:
 816                 small = 0;
 817                 data = 0;
 818                 if (file == NULL) {
 819                         strlcpy(path, "(stdin)", sizeof(path));
 820                         sdata = path;
 821                 } else {
 822                         snprintf(path, sizeof(path), " -> ");
 823                         if (realpath(file, path + 4) == NULL) {
 824                                 linkfail = 1;
 825                                 l = 0;
 826                                 path[0] = '\0';
 827                         }
 828                         sdata = path + (ofmt == FMTF_STRING ? 0 : 4);
 829                 }
 830
 831                 formats = FMTF_STRING;
 832                 if (ofmt == 0)
 833                         ofmt = FMTF_STRING;
 834                 break;
 835         case SHOW_symlink:
 836                 small = 0;
 837                 data = 0;
 838                 if (S_ISLNK(st->st_mode)) {
 839                         snprintf(path, sizeof(path), " -> ");
 840                         l = readlink(file, path + 4, sizeof(path) - 4 - 1);
 841                         if (l == -1) {
 842                                 linkfail = 1;
 843                                 l = 0;
 844                                 path[0] = '\0';
 845                         }
 846                         path[l + 4] = '\0';
 847                         sdata = path + (ofmt == FMTF_STRING ? 0 : 4);
 848                 }
 849                 else {
 850                         linkfail = 1;
 851                         sdata = "";
 852                 }
 853                 formats = FMTF_STRING;
 854                 if (ofmt == 0)
 855                         ofmt = FMTF_STRING;
 856                 break;
 857         case SHOW_filetype:
 858                 small = 0;
 859                 data = 0;
 860                 sdata = "";
 861                 if (hilo == 0 || hilo == LOW_PIECE) {
 862                         switch (st->st_mode & S_IFMT) {
 863                         case S_IFIFO:   sdata = "|";    break;
 864                         case S_IFDIR:   sdata = "/";    break;
 865                         case S_IFREG:
 866                                 if (st->st_mode &
 867                                     (S_IXUSR | S_IXGRP | S_IXOTH))
 868                                         sdata = "*";
 869                                 break;
 870                         case S_IFLNK:   sdata = "@";    break;
 871                         case S_IFSOCK:  sdata = "=";    break;
 872 #ifdef S_IFWHT
 873                         case S_IFWHT:   sdata = "%";    break;
 874 #endif /* S_IFWHT */
 875 #ifdef S_IFDOOR
 876                         case S_IFDOOR:  sdata = ">";    break;
 877 #endif /* S_IFDOOR */
 878                         }
 879                         hilo = 0;
 880                 }
 881                 else if (hilo == HIGH_PIECE) {
 882                         switch (st->st_mode & S_IFMT) {
 883                         case S_IFIFO:   sdata = "Fifo File";            break;
 884                         case S_IFCHR:   sdata = "Character Device";     break;
 885                         case S_IFDIR:   sdata = "Directory";            break;
 886                         case S_IFBLK:   sdata = "Block Device";         break;
 887                         case S_IFREG:   sdata = "Regular File";         break;
 888                         case S_IFLNK:   sdata = "Symbolic Link";        break;
 889                         case S_IFSOCK:  sdata = "Socket";               break;
 890 #ifdef S_IFWHT
 891                         case S_IFWHT:   sdata = "Whiteout File";        break;
 892 #endif /* S_IFWHT */
 893 #ifdef S_IFDOOR
 894                         case S_IFDOOR:  sdata = "Door";                 break;
 895 #endif /* S_IFDOOR */
 896                         default:        sdata = "???";                  break;
 897                         }
 898                         hilo = 0;
 899                 }
 900                 formats = FMTF_STRING;
 901                 if (ofmt == 0)
 902                         ofmt = FMTF_STRING;
 903                 break;
 904         case SHOW_filename:
 905                 small = 0;
 906                 data = 0;
 907                 strlcpy(path, file, sizeof(path));
 908                 sdata = path;
 909                 formats = FMTF_STRING;
 910                 if (ofmt == 0)
 911                         ofmt = FMTF_STRING;
 912                 break;
 913         case SHOW_sizerdev:
 914                 if (S_ISCHR(st->st_mode) || S_ISBLK(st->st_mode)) {
 915                         char majdev[20], mindev[20];
 916                         int l1, l2;
 917
 918                         l1 = format1(st,
 919                             file,
 920                             fmt, flen,
 921                             majdev, sizeof(majdev),
 922                             flags, size, prec,
 923                             ofmt, HIGH_PIECE, SHOW_st_rdev);
 924                         l2 = format1(st,
 925                             file,
 926                             fmt, flen,
 927                             mindev, sizeof(mindev),
 928                             flags, size, prec,
 929                             ofmt, LOW_PIECE, SHOW_st_rdev);
 930                         return (snprintf(buf, blen, "%.*s,%.*s",
 931                             l1, majdev, l2, mindev));
 932                 }
 933                 else {
 934                         return (format1(st,
 935                             file,
 936                             fmt, flen,
 937                             buf, blen,
 938                             flags, size, prec,
 939                             ofmt, 0, SHOW_st_size));
 940                 }
 941                 /*NOTREACHED*/
 942         default:
 943                 errx(1, "%.*s: bad format", (int)flen, fmt);
 944         }
 945
 946         /*
 947          * If a subdatum was specified but not supported, or an output
 948          * format was selected that is not supported, that's an error.
 949          */
 950         if (hilo != 0 || (ofmt & formats) == 0)
 951                 errx(1, "%.*s: bad format", (int)flen, fmt);
 952
 953         /*
 954          * Assemble the format string for passing to printf(3).
 955          */
 956         lfmt[0] = '\0';
 957         strcat(lfmt, "%");
 958         if (flags & FLAG_POUND)
 959                 strcat(lfmt, "#");
 960         if (flags & FLAG_SPACE)
 961                 strcat(lfmt, " ");
 962         if (flags & FLAG_PLUS)
 963                 strcat(lfmt, "+");
 964         if (flags & FLAG_MINUS)
 965                 strcat(lfmt, "-");
 966         if (flags & FLAG_ZERO)
 967                 strcat(lfmt, "0");
 968
 969         /*
 970          * Only the timespecs support the FLOAT output format, and that
 971          * requires work that differs from the other formats.
 972          */
 973         if (ofmt == FMTF_FLOAT) {
 974                 /*
 975                  * Nothing after the decimal point, so just print seconds.
 976                  */
 977                 if (prec == 0) {
 978                         if (size != -1) {
 979                                 snprintf(tmp, sizeof(tmp), "%d", size);
 980                                 strcat(lfmt, tmp);
 981                         }
 982                         strcat(lfmt, "lld");
 983                         return (snprintf(buf, blen, lfmt,
 984                             (long long)ts.tv_sec));
 985                 }
 986
 987                 /*
 988                  * Unspecified precision gets all the precision we have:
 989                  * 9 digits.
 990                  */
 991                 if (prec == -1)
 992                         prec = 9;
 993
 994                 /*
 995                  * Adjust the size for the decimal point and the digits
 996                  * that will follow.
 997                  */
 998                 size -= prec + 1;
 999
1000                 /*
1001                  * Any leftover size that's legitimate will be used.
1002                  */
1003                 if (size > 0) {
1004                         snprintf(tmp, sizeof(tmp), "%d", size);
1005                         strcat(lfmt, tmp);
1006                 }
1007                 /* Seconds: time_t cast to long long. */
1008                 strcat(lfmt, "lld");
1009
1010                 /*
1011                  * The stuff after the decimal point always needs zero
1012                  * filling.
1013                  */
1014                 strcat(lfmt, ".%0");
1015
1016                 /*
1017                  * We can "print" at most nine digits of precision.  The
1018                  * rest we will pad on at the end.
1019                  *
1020                  * Nanoseconds: long.
1021                  */
1022                 snprintf(tmp, sizeof(tmp), "%dld", prec > 9 ? 9 : prec);
1023                 strcat(lfmt, tmp);
1024
1025                 /*
1026                  * For precision of less that nine digits, trim off the
1027                  * less significant figures.
1028                  */
1029                 for (; prec < 9; prec++)
1030                         ts.tv_nsec /= 10;
1031
1032                 /*
1033                  * Use the format, and then tack on any zeroes that
1034                  * might be required to make up the requested precision.
1035                  */
1036                 l = snprintf(buf, blen, lfmt, (long long)ts.tv_sec, ts.tv_nsec);
1037                 for (; prec > 9 && l < (int)blen; prec--, l++)
1038                         strcat(buf, "0");
1039                 return (l);
1040         }
1041
1042         /*
1043          * Add on size and precision, if specified, to the format.
1044          */
1045         if (size != -1) {
1046                 snprintf(tmp, sizeof(tmp), "%d", size);
1047                 strcat(lfmt, tmp);
1048         }
1049         if (prec != -1) {
1050                 snprintf(tmp, sizeof(tmp), ".%d", prec);
1051                 strcat(lfmt, tmp);
1052         }
1053
1054         /*
1055          * String output uses the temporary sdata.
1056          */
1057         if (ofmt == FMTF_STRING) {
1058                 if (sdata == NULL)
1059                         errx(1, "%.*s: bad format", (int)flen, fmt);
1060                 strcat(lfmt, "s");
1061                 return (snprintf(buf, blen, lfmt, sdata));
1062         }
1063
1064         /*
1065          * Ensure that sign extension does not cause bad looking output
1066          * for some forms.
1067          */
1068         if (small && ofmt != FMTF_DECIMAL)
1069                 data = (u_int32_t)data;
1070
1071         /*
1072          * The four "numeric" output forms.
1073          */
1074         strcat(lfmt, "ll");
1075         switch (ofmt) {
1076         case FMTF_DECIMAL:      strcat(lfmt, "d");      break;
1077         case FMTF_OCTAL:        strcat(lfmt, "o");      break;
1078         case FMTF_UNSIGNED:     strcat(lfmt, "u");      break;
1079         case FMTF_HEX:          strcat(lfmt, "x");      break;
1080         }
1081
1082         return (snprintf(buf, blen, lfmt, data));
1083 }
1084
1085
1086 #define hex2nibble(c) (c <= '9' ? c - '0' : toupper(c) - 'A' + 10)
1087 static int
1088 hex2byte(const char c[2]) {
1089         if (!(ishexnumber(c[0]) && ishexnumber(c[1])))
1090                 return -1;
1091         return (hex2nibble(c[0]) << 4) + hex2nibble(c[1]);
1092 }