Home | History | Annotate | Download | only in strace
      1 /*
      2  * Copyright (c) 1999-2003 Ulrich Drepper <drepper (at) redhat.com>
      3  * Copyright (c) 2004 David S. Miller <davem (at) nuts.davemloft.net>
      4  * Copyright (c) 2003-2005 Roland McGrath <roland (at) redhat.com>
      5  * Copyright (c) 2007 Jan Kratochvil <jan.kratochvil (at) redhat.com>
      6  * Copyright (c) 2009 Denys Vlasenko <dvlasenk (at) redhat.com>
      7  * Copyright (c) 2009-2010 Andreas Schwab <schwab (at) linux-m68k.org>
      8  * Copyright (c) 2012 H.J. Lu <hongjiu.lu (at) intel.com>
      9  * Copyright (c) 2005-2015 Dmitry V. Levin <ldv (at) altlinux.org>
     10  * All rights reserved.
     11  *
     12  * Redistribution and use in source and binary forms, with or without
     13  * modification, are permitted provided that the following conditions
     14  * are met:
     15  * 1. Redistributions of source code must retain the above copyright
     16  *    notice, this list of conditions and the following disclaimer.
     17  * 2. Redistributions in binary form must reproduce the above copyright
     18  *    notice, this list of conditions and the following disclaimer in the
     19  *    documentation and/or other materials provided with the distribution.
     20  * 3. The name of the author may not be used to endorse or promote products
     21  *    derived from this software without specific prior written permission.
     22  *
     23  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
     24  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     25  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
     26  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
     27  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
     28  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
     29  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
     30  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
     31  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
     32  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     33  */
     34 
     35 #ifndef DO_PRINTSTAT
     36 # define DO_PRINTSTAT do_printstat
     37 #endif
     38 
     39 #ifndef STRUCT_STAT
     40 # define STRUCT_STAT struct stat
     41 #endif
     42 
     43 #ifndef STAT_MAJOR
     44 # define STAT_MAJOR(x) major(x)
     45 #endif
     46 
     47 #ifndef STAT_MINOR
     48 # define STAT_MINOR(x) minor(x)
     49 #endif
     50 
     51 static void
     52 DO_PRINTSTAT(struct tcb *tcp, const STRUCT_STAT *statbuf)
     53 {
     54 	if (!abbrev(tcp)) {
     55 		tprintf("{st_dev=makedev(%u, %u), st_ino=%llu, st_mode=%s, ",
     56 			(unsigned int) STAT_MAJOR(statbuf->st_dev),
     57 			(unsigned int) STAT_MINOR(statbuf->st_dev),
     58 			(unsigned long long) statbuf->st_ino,
     59 			sprintmode(statbuf->st_mode));
     60 		tprintf("st_nlink=%u, st_uid=%u, st_gid=%u, ",
     61 			(unsigned int) statbuf->st_nlink,
     62 			(unsigned int) statbuf->st_uid,
     63 			(unsigned int) statbuf->st_gid);
     64 #ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
     65 		tprintf("st_blksize=%u, ", (unsigned int) statbuf->st_blksize);
     66 #endif
     67 #ifdef HAVE_STRUCT_STAT_ST_BLOCKS
     68 		tprintf("st_blocks=%llu, ",
     69 			(unsigned long long) statbuf->st_blocks);
     70 #endif
     71 	} else {
     72 		tprintf("{st_mode=%s, ", sprintmode(statbuf->st_mode));
     73 	}
     74 
     75 	switch (statbuf->st_mode & S_IFMT) {
     76 	case S_IFCHR: case S_IFBLK:
     77 #ifdef HAVE_STRUCT_STAT_ST_RDEV
     78 		tprintf("st_rdev=makedev(%u, %u), ",
     79 			(unsigned int) STAT_MAJOR(statbuf->st_rdev),
     80 			(unsigned int) STAT_MINOR(statbuf->st_rdev));
     81 #else /* !HAVE_STRUCT_STAT_ST_RDEV */
     82 		tprintf("st_size=makedev(%u, %u), ",
     83 			(unsigned int) STAT_MAJOR(statbuf->st_size),
     84 			(unsigned int) STAT_MINOR(statbuf->st_size));
     85 #endif /* !HAVE_STRUCT_STAT_ST_RDEV */
     86 		break;
     87 	default:
     88 		tprintf("st_size=%llu, ",
     89 			(unsigned long long) statbuf->st_size);
     90 		break;
     91 	}
     92 
     93 	if (!abbrev(tcp)) {
     94 		const bool cast = sizeof(statbuf->st_atime) == sizeof(int);
     95 
     96 		tprints("st_atime=");
     97 		tprints(sprinttime(cast ? (time_t) (int) statbuf->st_atime:
     98 					  (time_t) statbuf->st_atime));
     99 #ifdef HAVE_STRUCT_STAT_ST_ATIME_NSEC
    100 		if (statbuf->st_atime_nsec)
    101 			tprintf(".%09lu", (unsigned long) statbuf->st_atime_nsec);
    102 #endif
    103 		tprints(", st_mtime=");
    104 		tprints(sprinttime(cast ? (time_t) (int) statbuf->st_mtime:
    105 					  (time_t) statbuf->st_mtime));
    106 #ifdef HAVE_STRUCT_STAT_ST_MTIME_NSEC
    107 		if (statbuf->st_mtime_nsec)
    108 			tprintf(".%09lu", (unsigned long) statbuf->st_mtime_nsec);
    109 #endif
    110 		tprints(", st_ctime=");
    111 		tprints(sprinttime(cast ? (time_t) (int) statbuf->st_ctime:
    112 					  (time_t) statbuf->st_ctime));
    113 #ifdef HAVE_STRUCT_STAT_ST_CTIME_NSEC
    114 		if (statbuf->st_ctime_nsec)
    115 			tprintf(".%09lu", (unsigned long) statbuf->st_ctime_nsec);
    116 #endif
    117 #ifdef HAVE_STRUCT_STAT_ST_FLAGS
    118 		tprintf(", st_flags=%u", (unsigned int) statbuf->st_flags);
    119 #endif
    120 #ifdef HAVE_STRUCT_STAT_ST_FSTYPE
    121 		tprintf(", st_fstype=%.*s",
    122 			(int) sizeof statbuf->st_fstype, statbuf->st_fstype);
    123 #endif
    124 #ifdef HAVE_STRUCT_STAT_ST_GEN
    125 		tprintf(", st_gen=%u", (unsigned int) statbuf->st_gen);
    126 #endif
    127 		tprints("}");
    128 	} else {
    129 		tprints("...}");
    130 	}
    131 }
    132 
    133 #undef STAT_MINOR
    134 #undef STAT_MAJOR
    135 #undef STRUCT_STAT
    136 #undef DO_PRINTSTAT
    137