source: branches/2.2.2/mindi-busybox/coreutils/stat.c @ 1247

Last change on this file since 1247 was 821, checked in by Bruno Cornec, 14 years ago

Addition of busybox 1.2.1 as a mindi-busybox new package
This should avoid delivering binary files in mindi not built there (Fedora and Debian are quite serious about that)

File size: 14.7 KB
Line 
1/* vi:set ts=4:*/
2/*
3 * stat -- display file or file system status
4 *
5 * Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation.
6 * Copyright (C) 2005 by Erik Andersen <andersen@codepoet.org>
7 * Copyright (C) 2005 by Mike Frysinger <vapier@gentoo.org>
8 *
9 * Written by Michael Meskes
10 * Taken from coreutils and turned into a busybox applet by Mike Frysinger
11 *
12 * Licensed under GPLv2 or later, see file LICENSE in this tarball for details.
13 */
14
15#include <stdio.h>
16#include <stdint.h>
17#include <sys/types.h>
18#include <pwd.h>
19#include <grp.h>
20#include <sys/vfs.h>
21#include <time.h>
22#include <getopt.h> /* optind */
23#include <sys/stat.h>
24#include <sys/statfs.h>
25#include <sys/statvfs.h>
26#include <string.h>
27#include "busybox.h"
28
29/* vars to control behavior */
30#define OPT_TERSE 2
31#define OPT_DEREFERENCE 4
32static long flags;
33
34static char const *file_type(struct stat const *st)
35{
36    /* See POSIX 1003.1-2001 XCU Table 4-8 lines 17093-17107
37     * for some of these formats.
38     * To keep diagnostics grammatical in English, the
39     * returned string must start with a consonant.
40     */
41    if (S_ISREG(st->st_mode))  return st->st_size == 0 ? "regular empty file" : "regular file";
42    if (S_ISDIR(st->st_mode))  return "directory";
43    if (S_ISBLK(st->st_mode))  return "block special file";
44    if (S_ISCHR(st->st_mode))  return "character special file";
45    if (S_ISFIFO(st->st_mode)) return "fifo";
46    if (S_ISLNK(st->st_mode))  return "symbolic link";
47    if (S_ISSOCK(st->st_mode)) return "socket";
48    if (S_TYPEISMQ(st))        return "message queue";
49    if (S_TYPEISSEM(st))       return "semaphore";
50    if (S_TYPEISSHM(st))       return "shared memory object";
51#ifdef S_TYPEISTMO
52    if (S_TYPEISTMO(st))       return "typed memory object";
53#endif
54    return "weird file";
55}
56
57static char const *human_time(time_t t)
58{
59    static char *str;
60    str = ctime(&t);
61    str[strlen(str)-1] = '\0';
62    return str;
63}
64
65/* Return the type of the specified file system.
66 * Some systems have statfvs.f_basetype[FSTYPSZ]. (AIX, HP-UX, and Solaris)
67 * Others have statfs.f_fstypename[MFSNAMELEN]. (NetBSD 1.5.2)
68 * Still others have neither and have to get by with f_type (Linux).
69 */
70static char const *human_fstype(long f_type)
71{
72    int i;
73    static const struct types {
74        long type;
75        const char *fs;
76    } humantypes[] = {
77        { 0xADFF,     "affs" },
78        { 0x1Cd1,     "devpts" },
79        { 0x137D,     "ext" },
80        { 0xEF51,     "ext2" },
81        { 0xEF53,     "ext2/ext3" },
82        { 0x3153464a, "jfs" },
83        { 0x58465342, "xfs" },
84        { 0xF995E849, "hpfs" },
85        { 0x9660,     "isofs" },
86        { 0x4000,     "isofs" },
87        { 0x4004,     "isofs" },
88        { 0x137F,     "minix" },
89        { 0x138F,     "minix (30 char.)" },
90        { 0x2468,     "minix v2" },
91        { 0x2478,     "minix v2 (30 char.)" },
92        { 0x4d44,     "msdos" },
93        { 0x4006,     "fat" },
94        { 0x564c,     "novell" },
95        { 0x6969,     "nfs" },
96        { 0x9fa0,     "proc" },
97        { 0x517B,     "smb" },
98        { 0x012FF7B4, "xenix" },
99        { 0x012FF7B5, "sysv4" },
100        { 0x012FF7B6, "sysv2" },
101        { 0x012FF7B7, "coh" },
102        { 0x00011954, "ufs" },
103        { 0x012FD16D, "xia" },
104        { 0x5346544e, "ntfs" },
105        { 0x1021994,  "tmpfs" },
106        { 0x52654973, "reiserfs" },
107        { 0x28cd3d45, "cramfs" },
108        { 0x7275,     "romfs" },
109        { 0x858458f6, "romfs" },
110        { 0x73717368, "squashfs" },
111        { 0x62656572, "sysfs" },
112        { 0, "UNKNOWN" }
113    };
114    for (i=0; humantypes[i].type; ++i)
115        if (humantypes[i].type == f_type)
116            break;
117    return humantypes[i].fs;
118}
119
120#ifdef CONFIG_FEATURE_STAT_FORMAT
121/* print statfs info */
122static void print_statfs(char *pformat, size_t buf_len, char m,
123             char const *filename, void const *data)
124{
125    struct statfs const *statfsbuf = data;
126
127    switch (m) {
128    case 'n':
129        strncat(pformat, "s", buf_len);
130        printf(pformat, filename);
131        break;
132    case 'i':
133        strncat(pformat, "Lx", buf_len);
134        printf(pformat, statfsbuf->f_fsid);
135        break;
136    case 'l':
137        strncat(pformat, "lu", buf_len);
138        printf(pformat, statfsbuf->f_namelen);
139        break;
140    case 't':
141        strncat(pformat, "lx", buf_len);
142        printf(pformat, (unsigned long int) (statfsbuf->f_type));  /* no equiv. */
143        break;
144    case 'T':
145        strncat(pformat, "s", buf_len);
146        printf(pformat, human_fstype(statfsbuf->f_type));
147        break;
148    case 'b':
149        strncat(pformat, "jd", buf_len);
150        printf(pformat, (intmax_t) (statfsbuf->f_blocks));
151        break;
152    case 'f':
153        strncat(pformat, "jd", buf_len);
154        printf(pformat, (intmax_t) (statfsbuf->f_bfree));
155        break;
156    case 'a':
157        strncat(pformat, "jd", buf_len);
158        printf(pformat, (intmax_t) (statfsbuf->f_bavail));
159        break;
160    case 'S':
161    case 's':
162        strncat(pformat, "lu", buf_len);
163        printf(pformat, (unsigned long int) (statfsbuf->f_bsize));
164        break;
165    case 'c':
166        strncat(pformat, "jd", buf_len);
167        printf(pformat, (intmax_t) (statfsbuf->f_files));
168        break;
169    case 'd':
170        strncat(pformat, "jd", buf_len);
171        printf(pformat, (intmax_t) (statfsbuf->f_ffree));
172        break;
173    default:
174        strncat(pformat, "c", buf_len);
175        printf(pformat, m);
176        break;
177    }
178}
179
180/* print stat info */
181static void print_stat(char *pformat, size_t buf_len, char m,
182               char const *filename, void const *data)
183{
184#define TYPE_SIGNED(t) (! ((t) 0 < (t) -1))
185    struct stat *statbuf = (struct stat *) data;
186    struct passwd *pw_ent;
187    struct group *gw_ent;
188
189    switch (m) {
190    case 'n':
191        strncat(pformat, "s", buf_len);
192        printf(pformat, filename);
193        break;
194    case 'N':
195        strncat(pformat, "s", buf_len);
196        if (S_ISLNK(statbuf->st_mode)) {
197            char *linkname = xreadlink(filename);
198            if (linkname == NULL) {
199                bb_perror_msg("cannot read symbolic link '%s'", filename);
200                return;
201            }
202            /*printf("\"%s\" -> \"%s\"", filename, linkname); */
203            printf(pformat, filename);
204            printf(" -> ");
205            printf(pformat, linkname);
206        } else {
207            printf(pformat, filename);
208        }
209        break;
210    case 'd':
211        strncat(pformat, "ju", buf_len);
212        printf(pformat, (uintmax_t) statbuf->st_dev);
213        break;
214    case 'D':
215        strncat(pformat, "jx", buf_len);
216        printf(pformat, (uintmax_t) statbuf->st_dev);
217        break;
218    case 'i':
219        strncat(pformat, "ju", buf_len);
220        printf(pformat, (uintmax_t) statbuf->st_ino);
221        break;
222    case 'a':
223        strncat(pformat, "lo", buf_len);
224        printf(pformat, (unsigned long int) (statbuf->st_mode & (S_ISUID|S_ISGID|S_ISVTX|S_IRWXU|S_IRWXG|S_IRWXO)));
225        break;
226    case 'A':
227        strncat(pformat, "s", buf_len);
228        printf(pformat, bb_mode_string(statbuf->st_mode));
229        break;
230    case 'f':
231        strncat(pformat, "lx", buf_len);
232        printf(pformat, (unsigned long int) statbuf->st_mode);
233        break;
234    case 'F':
235        strncat(pformat, "s", buf_len);
236        printf(pformat, file_type(statbuf));
237        break;
238    case 'h':
239        strncat(pformat, "lu", buf_len);
240        printf(pformat, (unsigned long int) statbuf->st_nlink);
241        break;
242    case 'u':
243        strncat(pformat, "lu", buf_len);
244        printf(pformat, (unsigned long int) statbuf->st_uid);
245        break;
246    case 'U':
247        strncat(pformat, "s", buf_len);
248        setpwent();
249        pw_ent = getpwuid(statbuf->st_uid);
250        printf(pformat, (pw_ent != 0L) ? pw_ent->pw_name : "UNKNOWN");
251        break;
252    case 'g':
253        strncat(pformat, "lu", buf_len);
254        printf(pformat, (unsigned long int) statbuf->st_gid);
255        break;
256    case 'G':
257        strncat(pformat, "s", buf_len);
258        setgrent();
259        gw_ent = getgrgid(statbuf->st_gid);
260        printf(pformat, (gw_ent != 0L) ? gw_ent->gr_name : "UNKNOWN");
261        break;
262    case 't':
263        strncat(pformat, "lx", buf_len);
264        printf(pformat, (unsigned long int) major(statbuf->st_rdev));
265        break;
266    case 'T':
267        strncat(pformat, "lx", buf_len);
268        printf(pformat, (unsigned long int) minor(statbuf->st_rdev));
269        break;
270    case 's':
271        strncat(pformat, "ju", buf_len);
272        printf(pformat, (uintmax_t) (statbuf->st_size));
273        break;
274    case 'B':
275        strncat(pformat, "lu", buf_len);
276        printf(pformat, (unsigned long int) 512); //ST_NBLOCKSIZE
277        break;
278    case 'b':
279        strncat(pformat, "ju", buf_len);
280        printf(pformat, (uintmax_t) statbuf->st_blocks);
281        break;
282    case 'o':
283        strncat(pformat, "lu", buf_len);
284        printf(pformat, (unsigned long int) statbuf->st_blksize);
285        break;
286    case 'x':
287        strncat(pformat, "s", buf_len);
288        printf(pformat, human_time(statbuf->st_atime));
289        break;
290    case 'X':
291        strncat(pformat, TYPE_SIGNED(time_t) ? "ld" : "lu", buf_len);
292        printf(pformat, (unsigned long int) statbuf->st_atime);
293        break;
294    case 'y':
295        strncat(pformat, "s", buf_len);
296        printf(pformat, human_time(statbuf->st_mtime));
297        break;
298    case 'Y':
299        strncat(pformat, TYPE_SIGNED(time_t) ? "ld" : "lu", buf_len);
300        printf(pformat, (unsigned long int) statbuf->st_mtime);
301        break;
302    case 'z':
303        strncat(pformat, "s", buf_len);
304        printf(pformat, human_time(statbuf->st_ctime));
305        break;
306    case 'Z':
307        strncat(pformat, TYPE_SIGNED(time_t) ? "ld" : "lu", buf_len);
308        printf(pformat, (unsigned long int) statbuf->st_ctime);
309        break;
310    default:
311        strncat(pformat, "c", buf_len);
312        printf(pformat, m);
313        break;
314    }
315}
316
317static void print_it(char const *masterformat, char const *filename,
318             void (*print_func) (char *, size_t, char, char const *, void const *),
319             void const *data)
320{
321    char *b;
322
323    /* create a working copy of the format string */
324    char *format = bb_xstrdup(masterformat);
325
326    /* Add 2 to accommodate our conversion of the stat `%s' format string
327     * to the printf `%llu' one.  */
328    size_t n_alloc = strlen(format) + 2 + 1;
329    char *dest = xmalloc(n_alloc);
330
331    b = format;
332    while (b) {
333        char *p = strchr(b, '%');
334        if (p != NULL) {
335            size_t len;
336            *p++ = '\0';
337            fputs(b, stdout);
338
339            len = strspn(p, "#-+.I 0123456789");
340            dest[0] = '%';
341            memcpy(dest + 1, p, len);
342            dest[1 + len] = 0;
343            p += len;
344
345            b = p + 1;
346            switch (*p) {
347                case '\0':
348                    b = NULL;
349                    /* fall through */
350                case '%':
351                    putchar('%');
352                    break;
353                default:
354                    print_func(dest, n_alloc, *p, filename, data);
355                    break;
356            }
357
358        } else {
359            fputs(b, stdout);
360            b = NULL;
361        }
362    }
363
364    free(format);
365    free(dest);
366}
367#endif
368
369/* Stat the file system and print what we find.  */
370static int do_statfs(char const *filename, char const *format)
371{
372    struct statfs statfsbuf;
373
374    if (statfs(filename, &statfsbuf) != 0) {
375        bb_perror_msg("cannot read file system information for '%s'", filename);
376        return 0;
377    }
378
379#ifdef CONFIG_FEATURE_STAT_FORMAT
380    if (format == NULL)
381        format = (flags & OPT_TERSE
382            ? "%n %i %l %t %s %b %f %a %c %d\n"
383            : "  File: \"%n\"\n"
384              "    ID: %-8i Namelen: %-7l Type: %T\n"
385              "Block size: %-10s\n"
386              "Blocks: Total: %-10b Free: %-10f Available: %a\n"
387              "Inodes: Total: %-10c Free: %d\n");
388    print_it(format, filename, print_statfs, &statfsbuf);
389#else
390
391    format = (flags & OPT_TERSE
392        ? "%s %llx %lu "
393        : "  File: \"%s\"\n"
394          "    ID: %-8Lx Namelen: %-7lu ");
395    printf(format,
396           filename,
397           statfsbuf.f_fsid,
398           statfsbuf.f_namelen);
399
400    if (flags & OPT_TERSE)
401        printf("%lx ", (unsigned long int) (statfsbuf.f_type));
402    else
403        printf("Type: %s\n", human_fstype(statfsbuf.f_type));
404
405    format = (flags & OPT_TERSE
406        ? "%lu %ld %ld %ld %ld %ld\n"
407        : "Block size: %-10lu\n"
408          "Blocks: Total: %-10jd Free: %-10jd Available: %jd\n"
409          "Inodes: Total: %-10jd Free: %jd\n");
410    printf(format,
411           (unsigned long int) (statfsbuf.f_bsize),
412           (intmax_t) (statfsbuf.f_blocks),
413           (intmax_t) (statfsbuf.f_bfree),
414           (intmax_t) (statfsbuf.f_bavail),
415           (intmax_t) (statfsbuf.f_files),
416           (intmax_t) (statfsbuf.f_ffree));
417#endif
418
419    return 1;
420}
421
422/* stat the file and print what we find */
423static int do_stat(char const *filename, char const *format)
424{
425    struct stat statbuf;
426
427    if ((flags & OPT_DEREFERENCE ? stat : lstat) (filename, &statbuf) != 0) {
428        bb_perror_msg("cannot stat '%s'", filename);
429        return 0;
430    }
431
432#ifdef CONFIG_FEATURE_STAT_FORMAT
433    if (format == NULL) {
434        if (flags & OPT_TERSE) {
435            format = "%n %s %b %f %u %g %D %i %h %t %T %X %Y %Z %o\n";
436        } else {
437            if (S_ISBLK(statbuf.st_mode) || S_ISCHR(statbuf.st_mode)) {
438                format =
439                    "  File: \"%N\"\n"
440                    "  Size: %-10s\tBlocks: %-10b IO Block: %-6o %F\n"
441                    "Device: %Dh/%dd\tInode: %-10i  Links: %-5h"
442                    " Device type: %t,%T\n"
443                    "Access: (%04a/%10.10A)  Uid: (%5u/%8U)   Gid: (%5g/%8G)\n"
444                    "Access: %x\n" "Modify: %y\n" "Change: %z\n";
445            } else {
446                format =
447                    "  File: \"%N\"\n"
448                    "  Size: %-10s\tBlocks: %-10b IO Block: %-6o %F\n"
449                    "Device: %Dh/%dd\tInode: %-10i  Links: %h\n"
450                    "Access: (%04a/%10.10A)  Uid: (%5u/%8U)   Gid: (%5g/%8G)\n"
451                    "Access: %x\n" "Modify: %y\n" "Change: %z\n";
452            }
453        }
454    }
455    print_it(format, filename, print_stat, &statbuf);
456#else
457    if (flags & OPT_TERSE) {
458        printf("%s %ju %ju %lx %lu %lu %jx %ju %lu %lx %lx %lu %lu %lu %lu\n",
459               filename,
460               (uintmax_t) (statbuf.st_size),
461               (uintmax_t) statbuf.st_blocks,
462               (unsigned long int) statbuf.st_mode,
463               (unsigned long int) statbuf.st_uid,
464               (unsigned long int) statbuf.st_gid,
465               (uintmax_t) statbuf.st_dev,
466               (uintmax_t) statbuf.st_ino,
467               (unsigned long int) statbuf.st_nlink,
468               (unsigned long int) major(statbuf.st_rdev),
469               (unsigned long int) minor(statbuf.st_rdev),
470               (unsigned long int) statbuf.st_atime,
471               (unsigned long int) statbuf.st_mtime,
472               (unsigned long int) statbuf.st_ctime,
473               (unsigned long int) statbuf.st_blksize
474        );
475    } else {
476        char *linkname = NULL;
477
478        struct passwd *pw_ent;
479        struct group *gw_ent;
480        setgrent();
481        gw_ent = getgrgid(statbuf.st_gid);
482        setpwent();
483        pw_ent = getpwuid(statbuf.st_uid);
484
485        if (S_ISLNK(statbuf.st_mode))
486            linkname = xreadlink(filename);
487        if (linkname)
488            printf("  File: \"%s\" -> \"%s\"\n", filename, linkname);
489        else
490            printf("  File: \"%s\"\n", filename);
491
492        printf("  Size: %-10ju\tBlocks: %-10ju IO Block: %-6lu %s\n"
493               "Device: %jxh/%jud\tInode: %-10ju  Links: %-5lu",
494               (uintmax_t) (statbuf.st_size),
495               (uintmax_t) statbuf.st_blocks,
496               (unsigned long int) statbuf.st_blksize,
497               file_type(&statbuf),
498               (uintmax_t) statbuf.st_dev,
499               (uintmax_t) statbuf.st_dev,
500               (uintmax_t) statbuf.st_ino,
501               (unsigned long int) statbuf.st_nlink);
502        if (S_ISBLK(statbuf.st_mode) || S_ISCHR(statbuf.st_mode))
503            printf(" Device type: %lx,%lx\n",
504                   (unsigned long int) major(statbuf.st_rdev),
505                   (unsigned long int) minor(statbuf.st_rdev));
506        else
507            putchar('\n');
508        printf("Access: (%04lo/%10.10s)  Uid: (%5lu/%8s)   Gid: (%5lu/%8s)\n"
509               "Access: %s\n" "Modify: %s\n" "Change: %s\n",
510               (unsigned long int) (statbuf.st_mode & (S_ISUID|S_ISGID|S_ISVTX|S_IRWXU|S_IRWXG|S_IRWXO)),
511               bb_mode_string(statbuf.st_mode),
512               (unsigned long int) statbuf.st_uid,
513               (pw_ent != 0L) ? pw_ent->pw_name : "UNKNOWN",
514               (unsigned long int) statbuf.st_gid,
515               (gw_ent != 0L) ? gw_ent->gr_name : "UNKNOWN",
516               human_time(statbuf.st_atime),
517               human_time(statbuf.st_mtime),
518               human_time(statbuf.st_ctime));
519    }
520#endif
521    return 1;
522}
523
524int stat_main(int argc, char **argv)
525{
526    int i;
527    char *format = NULL;
528    int ok = 1;
529    int (*statfunc)(char const *, char const *) = do_stat;
530
531    flags = bb_getopt_ulflags(argc, argv, "ftL"
532    USE_FEATURE_STAT_FORMAT("c:", &format)
533    );
534
535    if (flags & 1)                /* -f */
536        statfunc = do_statfs;
537    if (argc == optind)           /* files */
538        bb_show_usage();
539
540    for (i = optind; i < argc; ++i)
541        ok &= statfunc(argv[i], format);
542
543    return (ok ? EXIT_SUCCESS : EXIT_FAILURE);
544}
Note: See TracBrowser for help on using the repository browser.