?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
newsyslog(8): Further reduce differences with FreeBSD.
[dragonfly.git] / usr.bin / stat / stat.c
blob8380370b0d27998a399082608192b579d7410b38
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 }
DragonFly BSD