Home | History | Annotate | Download | only in strace
      1 /*
      2  * Copyright (c) 1991, 1992 Paul Kranenburg <pk (at) cs.few.eur.nl>
      3  * Copyright (c) 1993 Branko Lankester <branko (at) hacktic.nl>
      4  * Copyright (c) 1993, 1994, 1995, 1996 Rick Sladkey <jrs (at) world.std.com>
      5  * Copyright (c) 1996-1999 Wichert Akkerman <wichert (at) cistron.nl>
      6  * Copyright (c) 2005-2015 Dmitry V. Levin <ldv (at) altlinux.org>
      7  * Copyright (c) 2014-2017 The strace developers.
      8  * All rights reserved.
      9  *
     10  * Redistribution and use in source and binary forms, with or without
     11  * modification, are permitted provided that the following conditions
     12  * are met:
     13  * 1. Redistributions of source code must retain the above copyright
     14  *    notice, this list of conditions and the following disclaimer.
     15  * 2. Redistributions in binary form must reproduce the above copyright
     16  *    notice, this list of conditions and the following disclaimer in the
     17  *    documentation and/or other materials provided with the distribution.
     18  * 3. The name of the author may not be used to endorse or promote products
     19  *    derived from this software without specific prior written permission.
     20  *
     21  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
     22  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     23  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
     24  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
     25  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
     26  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
     27  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
     28  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
     29  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
     30  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     31  */
     32 
     33 #include "defs.h"
     34 
     35 #include DEF_MPERS_TYPE(kernel_dirent)
     36 
     37 #include MPERS_DEFS
     38 
     39 #define D_NAME_LEN_MAX 256
     40 
     41 static void
     42 print_old_dirent(struct tcb *const tcp, const kernel_ulong_t addr)
     43 {
     44 	kernel_dirent d;
     45 
     46 	if (umove_or_printaddr(tcp, addr, &d))
     47 		return;
     48 
     49 	tprintf("{d_ino=%llu, d_off=%llu, d_reclen=%u, d_name=",
     50 		zero_extend_signed_to_ull(d.d_ino),
     51 		zero_extend_signed_to_ull(d.d_off), d.d_reclen);
     52 	if (d.d_reclen > D_NAME_LEN_MAX)
     53 		d.d_reclen = D_NAME_LEN_MAX;
     54 	printpathn(tcp, addr + offsetof(kernel_dirent, d_name), d.d_reclen);
     55 	tprints("}");
     56 }
     57 
     58 SYS_FUNC(readdir)
     59 {
     60 	if (entering(tcp)) {
     61 		printfd(tcp, tcp->u_arg[0]);
     62 		tprints(", ");
     63 	} else {
     64 		if (tcp->u_rval == 0)
     65 			printaddr(tcp->u_arg[1]);
     66 		else
     67 			print_old_dirent(tcp, tcp->u_arg[1]);
     68 		/* Not much point in printing this out, it is always 1. */
     69 		if (tcp->u_arg[2] != 1)
     70 			tprintf(", %" PRI_klu, tcp->u_arg[2]);
     71 	}
     72 	return 0;
     73 }
     74 
     75 SYS_FUNC(getdents)
     76 {
     77 	unsigned int i, len, dents = 0;
     78 	unsigned char *buf;
     79 
     80 	if (entering(tcp)) {
     81 		printfd(tcp, tcp->u_arg[0]);
     82 		return 0;
     83 	}
     84 
     85 	const unsigned int count = tcp->u_arg[2];
     86 
     87 	if (syserror(tcp) || !verbose(tcp)) {
     88 		tprints(", ");
     89 		printaddr(tcp->u_arg[1]);
     90 		tprintf(", %u", count);
     91 		return 0;
     92 	}
     93 
     94 	/* Beware of insanely large or too small values in tcp->u_rval */
     95 	if (tcp->u_rval > 1024*1024)
     96 		len = 1024*1024;
     97 	else if (tcp->u_rval < (int) sizeof(kernel_dirent))
     98 		len = 0;
     99 	else
    100 		len = tcp->u_rval;
    101 
    102 	if (len) {
    103 		buf = malloc(len);
    104 		if (!buf || umoven(tcp, tcp->u_arg[1], len, buf) < 0) {
    105 			tprints(", ");
    106 			printaddr(tcp->u_arg[1]);
    107 			tprintf(", %u", count);
    108 			free(buf);
    109 			return 0;
    110 		}
    111 	} else {
    112 		buf = NULL;
    113 	}
    114 
    115 	tprints(",");
    116 	if (!abbrev(tcp))
    117 		tprints(" [");
    118 	for (i = 0; len && i <= len - sizeof(kernel_dirent); ) {
    119 		kernel_dirent *d = (kernel_dirent *) &buf[i];
    120 
    121 		if (!abbrev(tcp)) {
    122 			int oob = d->d_reclen < sizeof(kernel_dirent) ||
    123 				  i + d->d_reclen - 1 >= len;
    124 			int d_name_len = oob ? len - i : d->d_reclen;
    125 			d_name_len -= offsetof(kernel_dirent, d_name) + 1;
    126 			if (d_name_len > D_NAME_LEN_MAX)
    127 				d_name_len = D_NAME_LEN_MAX;
    128 
    129 			tprintf("%s{d_ino=%llu, d_off=%llu, d_reclen=%u"
    130 				", d_name=", i ? ", " : "",
    131 				zero_extend_signed_to_ull(d->d_ino),
    132 				zero_extend_signed_to_ull(d->d_off),
    133 				d->d_reclen);
    134 
    135 			print_quoted_cstring(d->d_name, d_name_len);
    136 
    137 			tprints(", d_type=");
    138 			if (oob)
    139 				tprints("?");
    140 			else
    141 				printxval(dirent_types, buf[i + d->d_reclen - 1], "DT_???");
    142 			tprints("}");
    143 		}
    144 		dents++;
    145 		if (d->d_reclen < sizeof(kernel_dirent)) {
    146 			tprints_comment("d_reclen < sizeof(struct dirent)");
    147 			break;
    148 		}
    149 		i += d->d_reclen;
    150 	}
    151 	if (!abbrev(tcp))
    152 		tprints("]");
    153 	else
    154 		tprintf_comment("%u entries", dents);
    155 	tprintf(", %u", count);
    156 	free(buf);
    157 	return 0;
    158 }
    159