xref: /netbsd-src/usr.bin/ldd/ldd_elfxx.c (revision b1c86f5f087524e68db12794ee9c3e3da1ab17a0)
1 /*	$NetBSD: ldd_elfxx.c,v 1.4 2009/09/07 04:49:03 dholland 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.4 2009/09/07 04:49:03 dholland 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  * elfxx_ldd() - bit-size independant ELF ldd implementation.
89  * returns 0 on success and -1 on failure.
90  */
91 int
92 ELFNAME(ldd)(int fd, char *path, const char *fmt1, const char *fmt2)
93 {
94 	struct stat st;
95 
96 	if (lseek(fd, 0, SEEK_SET) < 0 ||
97 	    fstat(fd, &st) < 0) {
98 		_rtld_error("%s: %s", path, strerror(errno));
99 		return -1;
100 	}
101 
102 	_rtld_pagesz = sysconf(_SC_PAGESIZE);
103 
104 #ifdef RTLD_ARCH_SUBDIR
105 	_rtld_add_paths(path, &_rtld_default_paths,
106 	    RTLD_DEFAULT_LIBRARY_PATH "/" RTLD_ARCH_SUBDIR);
107 #endif
108 	_rtld_add_paths(path, &_rtld_default_paths, RTLD_DEFAULT_LIBRARY_PATH);
109 
110 	_rtld_paths = NULL;
111 	_rtld_trust = (st.st_mode & (S_ISUID | S_ISGID)) == 0;
112 	if (_rtld_trust)
113 		_rtld_add_paths(path, &_rtld_paths, getenv("LD_LIBRARY_PATH"));
114 
115 	_rtld_process_hints(path, &_rtld_paths, &_rtld_xforms, _PATH_LD_HINTS);
116 	_rtld_objmain = _rtld_map_object(xstrdup(path), fd, &st);
117 	if (_rtld_objmain == NULL)
118 		return -1;
119 
120 	_rtld_objmain->path = xstrdup(path);
121 	_rtld_digest_dynamic(path, _rtld_objmain);
122 
123 	/* Link the main program into the list of objects. */
124 	*_rtld_objtail = _rtld_objmain;
125 	_rtld_objtail = &_rtld_objmain->next;
126 	++_rtld_objmain->refcount;
127 
128 	(void) _rtld_load_needed_objects(_rtld_objmain, 0);
129 
130 	if (fmt1 == NULL)
131 		printf("%s:\n", _rtld_objmain->path);
132 	main_local = path;
133 	main_progname = _rtld_objmain->path;
134 	print_needed(_rtld_objmain, fmt1, fmt2);
135 
136 	while (_rtld_objlist != NULL) {
137 		Obj_Entry *obj = _rtld_objlist;
138 		_rtld_objlist = obj->next;
139 		while (obj->rpaths != NULL) {
140 			const Search_Path *rpath = obj->rpaths;
141 			obj->rpaths = rpath->sp_next;
142 			xfree(__UNCONST(rpath->sp_path));
143 			xfree(__UNCONST(rpath));
144 		}
145 		while (obj->needed != NULL) {
146 			const Needed_Entry *needed = obj->needed;
147 			obj->needed = needed->next;
148 			xfree(__UNCONST(needed));
149 		}
150 		(void) munmap(obj->mapbase, obj->mapsize);
151 		xfree(obj->path);
152 		xfree(obj);
153 	}
154 
155 	_rtld_objmain = NULL;
156 	_rtld_objtail = &_rtld_objlist;
157 	/* Need to free _rtld_paths? */
158 
159 	return 0;
160 }
161