1 /* $NetBSD: ldd_elfxx.c,v 1.6 2012/07/08 00:53:44 matt 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_elfxx.c,v 1.6 2012/07/08 00:53:44 matt 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 static void print_needed(Obj_Entry *, const char *, const char *); 88 static void fmtprint(const char *, Obj_Entry *, const char *, const char *); 89 90 /* 91 * elfxx_ldd() - bit-size independent ELF ldd implementation. 92 * returns 0 on success and -1 on failure. 93 */ 94 int 95 ELFNAME(ldd)(int fd, char *path, const char *fmt1, const char *fmt2) 96 { 97 struct stat st; 98 99 if (lseek(fd, 0, SEEK_SET) < 0 || 100 fstat(fd, &st) < 0) { 101 _rtld_error("%s: %s", path, strerror(errno)); 102 return -1; 103 } 104 105 _rtld_pagesz = sysconf(_SC_PAGESIZE); 106 107 #ifdef RTLD_ARCH_SUBDIR 108 _rtld_add_paths(path, &_rtld_default_paths, 109 RTLD_DEFAULT_LIBRARY_PATH "/" RTLD_ARCH_SUBDIR); 110 #endif 111 _rtld_add_paths(path, &_rtld_default_paths, RTLD_DEFAULT_LIBRARY_PATH); 112 113 _rtld_paths = NULL; 114 _rtld_trust = (st.st_mode & (S_ISUID | S_ISGID)) == 0; 115 if (_rtld_trust) 116 _rtld_add_paths(path, &_rtld_paths, getenv("LD_LIBRARY_PATH")); 117 118 _rtld_process_hints(path, &_rtld_paths, &_rtld_xforms, _PATH_LD_HINTS); 119 _rtld_objmain = _rtld_map_object(xstrdup(path), fd, &st); 120 if (_rtld_objmain == NULL) 121 return -1; 122 123 _rtld_objmain->path = xstrdup(path); 124 _rtld_digest_dynamic(path, _rtld_objmain); 125 126 /* Link the main program into the list of objects. */ 127 *_rtld_objtail = _rtld_objmain; 128 _rtld_objtail = &_rtld_objmain->next; 129 ++_rtld_objmain->refcount; 130 131 (void) _rtld_load_needed_objects(_rtld_objmain, 0); 132 133 if (fmt1 == NULL) 134 printf("%s:\n", _rtld_objmain->path); 135 main_local = path; 136 main_progname = _rtld_objmain->path; 137 print_needed(_rtld_objmain, fmt1, fmt2); 138 139 while (_rtld_objlist != NULL) { 140 Obj_Entry *obj = _rtld_objlist; 141 _rtld_objlist = obj->next; 142 while (obj->rpaths != NULL) { 143 const Search_Path *rpath = obj->rpaths; 144 obj->rpaths = rpath->sp_next; 145 xfree(__UNCONST(rpath->sp_path)); 146 xfree(__UNCONST(rpath)); 147 } 148 while (obj->needed != NULL) { 149 const Needed_Entry *needed = obj->needed; 150 obj->needed = needed->next; 151 xfree(__UNCONST(needed)); 152 } 153 (void) munmap(obj->mapbase, obj->mapsize); 154 xfree(obj->path); 155 xfree(obj); 156 } 157 158 _rtld_objmain = NULL; 159 _rtld_objtail = &_rtld_objlist; 160 /* Need to free _rtld_paths? */ 161 162 return 0; 163 } 164 165 void 166 fmtprint(const char *libname, Obj_Entry *obj, const char *fmt1, 167 const char *fmt2) 168 { 169 const char *libpath = obj ? obj->path : "not found"; 170 char libnamebuf[200]; 171 char *libmajor = NULL; 172 const char *fmt; 173 char *cp; 174 int c; 175 176 if (strncmp(libname, "lib", 3) == 0 && 177 (cp = strstr(libname, ".so")) != NULL) { 178 size_t i = cp - (libname + 3); 179 180 if (i >= sizeof(libnamebuf)) 181 i = sizeof(libnamebuf) - 1; 182 (void)memcpy(libnamebuf, libname + 3, i); 183 libnamebuf[i] = '\0'; 184 if (cp[3] && isdigit((unsigned char)cp[4])) 185 libmajor = &cp[4]; 186 libname = libnamebuf; 187 } 188 189 if (fmt1 == NULL) 190 fmt1 = libmajor != NULL ? 191 "\t-l%o.%m => %p\n" : 192 "\t-l%o => %p\n"; 193 if (fmt2 == NULL) 194 fmt2 = "\t%o => %p\n"; 195 196 fmt = libname == libnamebuf ? fmt1 : fmt2; 197 while ((c = *fmt++) != '\0') { 198 switch (c) { 199 default: 200 putchar(c); 201 continue; 202 case '\\': 203 switch (c = *fmt) { 204 case '\0': 205 continue; 206 case 'n': 207 putchar('\n'); 208 break; 209 case 't': 210 putchar('\t'); 211 break; 212 } 213 break; 214 case '%': 215 switch (c = *fmt) { 216 case '\0': 217 continue; 218 case '%': 219 default: 220 putchar(c); 221 break; 222 case 'A': 223 printf("%s", main_local); 224 break; 225 case 'a': 226 printf("%s", main_progname); 227 break; 228 case 'o': 229 printf("%s", libname); 230 break; 231 case 'm': 232 printf("%s", libmajor); 233 break; 234 case 'n': 235 /* XXX: not supported for elf */ 236 break; 237 case 'p': 238 printf("%s", libpath); 239 break; 240 case 'x': 241 printf("%p", obj ? obj->mapbase : 0); 242 break; 243 } 244 break; 245 } 246 ++fmt; 247 } 248 } 249 250 void 251 print_needed(Obj_Entry *obj, const char *fmt1, const char *fmt2) 252 { 253 const Needed_Entry *needed; 254 255 for (needed = obj->needed; needed != NULL; needed = needed->next) { 256 const char *libname = obj->strtab + needed->name; 257 258 if (needed->obj != NULL) { 259 if (!needed->obj->printed) { 260 fmtprint(libname, needed->obj, fmt1, fmt2); 261 needed->obj->printed = 1; 262 print_needed(needed->obj, fmt1, fmt2); 263 } 264 } else { 265 fmtprint(libname, needed->obj, fmt1, fmt2); 266 } 267 } 268 } 269