xref: /netbsd-src/usr.bin/ldd/ldd_elfxx.c (revision 274254cdae52594c1aa480a736aef78313d15c9c)
1 /*	$NetBSD: ldd_elfxx.c,v 1.2 2009/02/03 03:01:02 mrg 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.2 2009/02/03 03:01:02 mrg Exp $");
66 #endif /* not lint */
67 
68 #include <sys/types.h>
69 #include <sys/mman.h>
70 #include <sys/wait.h>
71 
72 #include <a.out.h>
73 #include <dirent.h>
74 #include <err.h>
75 #include <errno.h>
76 #include <fcntl.h>
77 #include <stdarg.h>
78 #include <stdio.h>
79 #include <stdlib.h>
80 #include <string.h>
81 #include <unistd.h>
82 #include <ctype.h>
83 
84 #include "debug.h"
85 #include "rtld.h"
86 #include "ldd.h"
87 
88 /*
89  * elfxx_ldd() - bit-size independant ELF ldd implementation.
90  * returns 0 on success and -1 on failure.
91  */
92 int
93 ELFNAME(ldd)(int fd, char *path, char *fmt1, char *fmt2)
94 {
95 	struct stat st;
96 
97 	if (lseek(fd, 0, SEEK_SET) < 0 ||
98 	    fstat(fd, &st) < 0) {
99 		_rtld_error("%s: %s", path, strerror(errno));
100 		return -1;
101 	}
102 
103 	_rtld_pagesz = sysconf(_SC_PAGESIZE);
104 
105 #ifdef RTLD_ARCH_SUBDIR
106 	_rtld_add_paths(path, &_rtld_default_paths,
107 	    RTLD_DEFAULT_LIBRARY_PATH "/" RTLD_ARCH_SUBDIR);
108 #endif
109 	_rtld_add_paths(path, &_rtld_default_paths, RTLD_DEFAULT_LIBRARY_PATH);
110 
111 	_rtld_paths = NULL;
112 	_rtld_trust = (st.st_mode & (S_ISUID | S_ISGID)) == 0;
113 	if (_rtld_trust)
114 		_rtld_add_paths(path, &_rtld_paths, getenv("LD_LIBRARY_PATH"));
115 
116 	_rtld_process_hints(path, &_rtld_paths, &_rtld_xforms, _PATH_LD_HINTS);
117 	_rtld_objmain = _rtld_map_object(xstrdup(path), fd, &st);
118 	if (_rtld_objmain == NULL)
119 		return -1;
120 
121 	_rtld_objmain->path = xstrdup(path);
122 	_rtld_digest_dynamic(path, _rtld_objmain);
123 
124 	/* Link the main program into the list of objects. */
125 	*_rtld_objtail = _rtld_objmain;
126 	_rtld_objtail = &_rtld_objmain->next;
127 	++_rtld_objmain->refcount;
128 
129 	(void) _rtld_load_needed_objects(_rtld_objmain, 0);
130 
131 	if (fmt1 == NULL)
132 		printf("%s:\n", _rtld_objmain->path);
133 	main_local = path;
134 	main_progname = _rtld_objmain->path;
135 	print_needed(_rtld_objmain, fmt1, fmt2);
136 
137 	while (_rtld_objlist != NULL) {
138 		Obj_Entry *obj = _rtld_objlist;
139 		_rtld_objlist = obj->next;
140 		while (obj->rpaths != NULL) {
141 			const Search_Path *rpath = obj->rpaths;
142 			obj->rpaths = rpath->sp_next;
143 			xfree(__UNCONST(rpath->sp_path));
144 			xfree(__UNCONST(rpath));
145 		}
146 		while (obj->needed != NULL) {
147 			const Needed_Entry *needed = obj->needed;
148 			obj->needed = needed->next;
149 			xfree(__UNCONST(needed));
150 		}
151 		(void) munmap(obj->mapbase, obj->mapsize);
152 		xfree(obj->path);
153 		xfree(obj);
154 	}
155 
156 	_rtld_objmain = NULL;
157 	_rtld_objtail = &_rtld_objlist;
158 	/* Need to free _rtld_paths? */
159 
160 	return 0;
161 }
162