usr.bin/ldd/ldd.c

   1 /*      $NetBSD: ldd.c,v 1.11 2009/11/17 18:44:33 skrll Exp $   */
   2
   3 /*-
   4  * Copyright (c) 1998, 2000 The NetBSD Foundation, Inc.
   5  * All rights reserved.
   6  *
   7  * This code is derived from software contributed to The NetBSD Foundation
   8  * by Paul Kranenburg.
   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  *
  19  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  20  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  21  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  22  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  23  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  24  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  25  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  26  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  27  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  28  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  29  * POSSIBILITY OF SUCH DAMAGE.
  30  */
  31
  32 /*
  33  * Copyright 1996 John D. Polstra.
  34  * Copyright 1996 Matt Thomas <matt@3am-software.com>
  35  * All rights reserved.
  36  *
  37  * Redistribution and use in source and binary forms, with or without
  38  * modification, are permitted provided that the following conditions
  39  * are met:
  40  * 1. Redistributions of source code must retain the above copyright
  41  *    notice, this list of conditions and the following disclaimer.
  42  * 2. Redistributions in binary form must reproduce the above copyright
  43  *    notice, this list of conditions and the following disclaimer in the
  44  *    documentation and/or other materials provided with the distribution.
  45  * 3. All advertising materials mentioning features or use of this software
  46  *    must display the following acknowledgement:
  47  *      This product includes software developed by John Polstra.
  48  * 4. The name of the author may not be used to endorse or promote products
  49  *    derived from this software without specific prior written permission.
  50  *
  51  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  52  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  53  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  54  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  55  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  56  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  57  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  58  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  59  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  60  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  61  */
  62
  63 #include <sys/cdefs.h>
  64 #ifndef lint
  65 __RCSID("$NetBSD: ldd.c,v 1.11 2009/11/17 18:44:33 skrll Exp $");
  66 #endif /* not lint */
  67
  68 #include <sys/types.h>
  69 #include <sys/mman.h>
  70 #include <sys/wait.h>
  71
  72 #include <dirent.h>
  73 #include <err.h>
  74 #include <errno.h>
  75 #include <fcntl.h>
  76 #include <stdarg.h>
  77 #include <stdio.h>
  78 #include <stdlib.h>
  79 #include <string.h>
  80 #include <unistd.h>
  81 #include <ctype.h>
  82
  83 #include "debug.h"
  84 #include "rtld.h"
  85 #include "ldd.h"
  86
  87 /*
  88  * Data declarations.
  89  */
  90 static char *error_message;     /* Message for dlopen(), or NULL */
  91 bool _rtld_trust;               /* False for setuid and setgid programs */
  92 Obj_Entry *_rtld_objlist;       /* Head of linked list of shared objects */
  93 Obj_Entry **_rtld_objtail = &_rtld_objlist;
  94                                 /* Link field of last object in list */
  95 Obj_Entry *_rtld_objmain;       /* The main program shared object */
  96 size_t _rtld_pagesz;
  97
  98 Search_Path *_rtld_default_paths;
  99 Search_Path *_rtld_paths;
 100 Library_Xform *_rtld_xforms;
 101
 102 static void usage(void) __dead;
 103 char *main_local;
 104 char *main_progname;
 105
 106 static void
 107 usage(void)
 108 {
 109         fprintf(stderr, "Usage: %s [-f <format 1>] [-f <format 2>] <filename>"
 110                 " ...\n", getprogname());
 111         exit(1);
 112 }
 113
 114 int
 115 main(int argc, char **argv)
 116 {
 117         const char *fmt1 = NULL, *fmt2 = NULL;
 118         int c;
 119
 120 #ifdef DEBUG
 121         debug = 1;
 122 #endif
 123         while ((c = getopt(argc, argv, "f:o")) != -1) {
 124                 switch (c) {
 125                 case 'f':
 126                         if (fmt1) {
 127                                 if (fmt2)
 128                                         errx(1, "Too many formats");
 129                                 fmt2 = optarg;
 130                         } else
 131                                 fmt1 = optarg;
 132                         break;
 133                 case 'o':
 134                         if (fmt1 || fmt2)
 135                                 errx(1, "Cannot use -o and -f together");
 136                         fmt1 = "%a:-l%o.%m => %p\n";
 137                         break;
 138                 default:
 139                         usage();
 140                         /*NOTREACHED*/
 141                 }
 142         }
 143         argc -= optind;
 144         argv += optind;
 145
 146         if (argc <= 0) {
 147                 usage();
 148                 /*NOTREACHED*/
 149         }
 150
 151         for (; argc != 0; argc--, argv++) {
 152                 int fd;
 153
 154                 fd = open(*argv, O_RDONLY);
 155                 if (fd == -1) {
 156                         warn("%s", *argv);
 157                         continue;
 158                 }
 159                 if (elf_ldd(fd, *argv, fmt1, fmt2) == -1
 160                     /* Alpha never had 32 bit support. */
 161 #if defined(_LP64) && !defined(__alpha__)
 162                     && elf32_ldd(fd, *argv, fmt1, fmt2) == -1
 163 #ifdef __mips__
 164                     && elf32_ldd_compat(fd, *argv, fmt1, fmt2) == -1
 165 #endif
 166 #endif
 167                     )
 168                         warnx("%s", error_message);
 169                 close(fd);
 170         }
 171
 172         return 0;
 173 }
 174
 175 /*
 176  * Error reporting function.  Use it like printf.  If formats the message
 177  * into a buffer, and sets things up so that the next call to dlerror()
 178  * will return the message.
 179  */
 180 void
 181 _rtld_error(const char *fmt, ...)
 182 {
 183         static char buf[512];
 184         va_list ap;
 185         va_start(ap, fmt);
 186         xvsnprintf(buf, sizeof buf, fmt, ap);
 187         error_message = buf;
 188         va_end(ap);
 189 }
 190
 191 char *
 192 dlerror()
 193 {
 194         char *msg = error_message;
 195         error_message = NULL;
 196         return msg;
 197 }
 198
 199 void
 200 fmtprint(const char *libname, Obj_Entry *obj, const char *fmt1,
 201     const char *fmt2)
 202 {
 203         const char *libpath = obj ? obj->path : "not found";
 204         char libnamebuf[200];
 205         char *libmajor = NULL;
 206         const char *fmt;
 207         char *cp;
 208         int c;
 209
 210         if (strncmp(libname, "lib", 3) == 0 &&
 211             (cp = strstr(libname, ".so")) != NULL) {
 212                 int i = cp - (libname + 3);
 213
 214                 if (i >= sizeof(libnamebuf))
 215                         i = sizeof(libnamebuf) - 1;
 216                 (void)memcpy(libnamebuf, libname + 3, i);
 217                 libnamebuf[i] = '\0';
 218                 if (cp[3] && isdigit((unsigned char)cp[4]))
 219                         libmajor = &cp[4];
 220                 libname = libnamebuf;
 221         }
 222
 223         if (fmt1 == NULL)
 224                 fmt1 = libmajor != NULL ?
 225                     "\t-l%o.%m => %p\n" :
 226                     "\t-l%o => %p\n";
 227         if (fmt2 == NULL)
 228                 fmt2 = "\t%o => %p\n";
 229
 230         fmt = libname == libnamebuf ? fmt1 : fmt2;
 231         while ((c = *fmt++) != '\0') {
 232                 switch (c) {
 233                 default:
 234                         putchar(c);
 235                         continue;
 236                 case '\\':
 237                         switch (c = *fmt) {
 238                         case '\0':
 239                                 continue;
 240                         case 'n':
 241                                 putchar('\n');
 242                                 break;
 243                         case 't':
 244                                 putchar('\t');
 245                                 break;
 246                         }
 247                         break;
 248                 case '%':
 249                         switch (c = *fmt) {
 250                         case '\0':
 251                                 continue;
 252                         case '%':
 253                         default:
 254                                 putchar(c);
 255                                 break;
 256                         case 'A':
 257                                 printf("%s", main_local);
 258                                 break;
 259                         case 'a':
 260                                 printf("%s", main_progname);
 261                                 break;
 262                         case 'o':
 263                                 printf("%s", libname);
 264                                 break;
 265                         case 'm':
 266                                 printf("%s", libmajor);
 267                                 break;
 268                         case 'n':
 269                                 /* XXX: not supported for elf */
 270                                 break;
 271                         case 'p':
 272                                 printf("%s", libpath);
 273                                 break;
 274                         case 'x':
 275                                 printf("%p", obj ? obj->mapbase : 0);
 276                                 break;
 277                         }
 278                         break;
 279                 }
 280                 ++fmt;
 281         }
 282 }
 283
 284 void
 285 print_needed(Obj_Entry *obj, const char *fmt1, const char *fmt2)
 286 {
 287         const Needed_Entry *needed;
 288
 289         for (needed = obj->needed; needed != NULL; needed = needed->next) {
 290                 const char *libname = obj->strtab + needed->name;
 291
 292                 if (needed->obj != NULL) {
 293                         print_needed(needed->obj, fmt1, fmt2);
 294                         if (!needed->obj->printed) {
 295                                 fmtprint(libname, needed->obj, fmt1, fmt2);
 296                                 needed->obj->printed = 1;
 297                         }
 298                 } else {
 299                         fmtprint(libname, needed->obj, fmt1, fmt2);
 300                 }
 301         }
 302 }