1 /* $NetBSD: nlist_aout.c,v 1.10 2018/01/23 21:06:25 sevan Exp $ */
2
3 /*-
4 * Copyright (c) 1990, 1993
5 * The Regents of the University of California. All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. Neither the name of the University nor the names of its contributors
16 * may be used to endorse or promote products derived from this software
17 * without specific prior written permission.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * SUCH DAMAGE.
30 */
31
32 /*-
33 * Copyright (c) 1996 Christopher G. Demetriou. All rights reserved.
34 *
35 * Redistribution and use in source and binary forms, with or without
36 * modification, are permitted provided that the following conditions
37 * are met:
38 * 1. Redistributions of source code must retain the above copyright
39 * notice, this list of conditions and the following disclaimer.
40 * 2. Redistributions in binary form must reproduce the above copyright
41 * notice, this list of conditions and the following disclaimer in the
42 * documentation and/or other materials provided with the distribution.
43 * 3. All advertising materials mentioning features or use of this software
44 * must display the following acknowledgement:
45 * This product includes software developed by the University of
46 * California, Berkeley and its contributors.
47 * 4. Neither the name of the University nor the names of its contributors
48 * may be used to endorse or promote products derived from this software
49 * without specific prior written permission.
50 *
51 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
52 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
53 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
54 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
55 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
56 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
57 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
58 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
59 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
60 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
61 * SUCH DAMAGE.
62 */
63
64 #include <sys/cdefs.h>
65 #ifndef lint
66 #if 0
67 static char sccsid[] = "from: @(#)nlist.c 8.1 (Berkeley) 6/6/93";
68 #else
69 __RCSID("$NetBSD: nlist_aout.c,v 1.10 2018/01/23 21:06:25 sevan Exp $");
70 #endif
71 #endif /* not lint */
72
73 #include <sys/param.h>
74
75 #include <a.out.h>
76 #include <db.h>
77 #include <err.h>
78 #include <errno.h>
79 #include <fcntl.h>
80 #include <kvm.h>
81 #include <limits.h>
82 #include <stdio.h>
83 #include <stdlib.h>
84 #include <string.h>
85 #include <unistd.h>
86
87 #include "extern.h"
88
89 #ifdef NLIST_AOUT
90
91 typedef struct nlist NLIST;
92 #define _strx n_un.n_strx
93 #define _name n_un.n_name
94
95 #define badfmt(str) \
96 do { \
97 warnx("%s: %s: %s", kfile, str, strerror(EFTYPE)); \
98 punt(); \
99 } while (0)
100
101 static void badread(int, char *);
102 static u_long get_kerntext(const char *kfn);
103
104 static const char *kfile;
105
106 int
create_knlist_aout(const char * name,DB * db)107 create_knlist_aout(const char *name, DB *db)
108 {
109 int nsyms;
110 struct exec ebuf;
111 FILE *fp;
112 NLIST nbuf;
113 DBT data, key;
114 int fd, nr, strsize;
115 u_long kerntextoff;
116 char *strtab, buf[1024];
117
118 kfile = name;
119 if ((fd = open(name, O_RDONLY, 0)) < 0) {
120 warn("%s", kfile);
121 punt();
122 }
123
124 /* Read in exec structure. */
125 nr = read(fd, &ebuf, sizeof(struct exec));
126 if (nr != sizeof(struct exec)) {
127 (void)close(fd);
128 return (-1);
129 }
130
131 /* Check magic number. */
132 if (N_BADMAG(ebuf)) {
133 (void)close(fd);
134 return (-1);
135 }
136
137 /*
138 * We've recognized it as an a.out binary. From here
139 * on out, all errors are fatal.
140 */
141
142 /* Check symbol count. */
143 if (!ebuf.a_syms)
144 badfmt("stripped");
145
146 /* Seek to string table. */
147 if (lseek(fd, N_STROFF(ebuf), SEEK_SET) == -1)
148 badfmt("corrupted string table");
149
150 /* Read in the size of the symbol table. */
151 nr = read(fd, (char *)&strsize, sizeof(strsize));
152 if (nr != sizeof(strsize))
153 badread(nr, "no symbol table");
154
155 /* Read in the string table. */
156 strsize -= sizeof(strsize);
157 if (!(strtab = malloc(strsize))) {
158 warn("malloc");
159 punt();
160 }
161 if ((nr = read(fd, strtab, strsize)) != strsize)
162 badread(nr, "corrupted symbol table");
163
164 /* Seek to symbol table. */
165 if (!(fp = fdopen(fd, "r"))) {
166 warn("%s", name);
167 punt();
168 }
169 if (fseek(fp, N_SYMOFF(ebuf), SEEK_SET) == -1) {
170 warn("%s", name);
171 punt();
172 }
173
174 data.data = (u_char *)&nbuf;
175 data.size = sizeof(NLIST);
176
177 kerntextoff = get_kerntext(name);
178
179 /* Read each symbol and enter it into the database. */
180 nsyms = ebuf.a_syms / sizeof(struct nlist);
181 while (nsyms--) {
182 if (fread((char *)&nbuf, sizeof (NLIST), 1, fp) != 1) {
183 if (feof(fp))
184 badfmt("corrupted symbol table");
185 warn("%s", name);
186 punt();
187 }
188 if (!nbuf._strx || nbuf.n_type&N_STAB)
189 continue;
190
191 key.data = (u_char *)strtab + nbuf._strx - sizeof(long);
192 key.size = strlen((char *)key.data);
193 if (db->put(db, &key, &data, 0)) {
194 warn("record enter");
195 punt();
196 }
197
198 if (strcmp((char *)key.data, VRS_SYM) == 0) {
199 long cur_off, voff;
200 /*
201 * Calculate offset relative to a normal (non-kernel)
202 * a.out. Kerntextoff is where the kernel is really
203 * loaded; N_TXTADDR is where a normal file is loaded.
204 * From there, locate file offset in text or data.
205 */
206 voff = nbuf.n_value - kerntextoff + N_TXTADDR(ebuf);
207 if ((nbuf.n_type & N_TYPE) == N_TEXT)
208 voff += N_TXTOFF(ebuf) - N_TXTADDR(ebuf);
209 else
210 voff += N_DATOFF(ebuf) - N_DATADDR(ebuf);
211 cur_off = ftell(fp);
212 if (fseek(fp, voff, SEEK_SET) == -1)
213 badfmt("corrupted string table");
214
215 /*
216 * Read version string up to, and including newline.
217 * This code assumes that a newline terminates the
218 * version line.
219 */
220 if (fgets(buf, sizeof(buf), fp) == NULL)
221 badfmt("corrupted string table");
222
223 key.data = (u_char *)VRS_KEY;
224 key.size = sizeof(VRS_KEY) - 1;
225 data.data = (u_char *)buf;
226 data.size = strlen(buf);
227 if (db->put(db, &key, &data, 0)) {
228 warn("record enter");
229 punt();
230 }
231
232 /* Restore to original values. */
233 data.data = (u_char *)&nbuf;
234 data.size = sizeof(NLIST);
235 if (fseek(fp, cur_off, SEEK_SET) == -1)
236 badfmt("corrupted string table");
237 }
238 }
239 (void)fclose(fp);
240
241 return (0);
242 }
243
244 static void
badread(int nr,char * p)245 badread(int nr, char *p)
246 {
247 if (nr < 0) {
248 warn("%s", kfile);
249 punt();
250 }
251 badfmt(p);
252 }
253
254 /*
255 * Instead of compiling in KERNTEXTOFF or KERNBASE, try to
256 * determine the text start address from a standard symbol.
257 * For backward compatibility, use the old compiled-in way
258 * when the standard symbol name is not found.
259 */
260 static u_long
get_kerntext(const char * name)261 get_kerntext(const char *name)
262 {
263 struct nlist nl[2];
264
265 memset((caddr_t)nl, 0, sizeof(nl));
266 nl[0].n_un.n_name = "_kernel_text";
267
268 if (nlist(name, nl) != 0) {
269 warnx("%s: %s symbol missing",
270 name, nl[0].n_un.n_name);
271 punt();
272 }
273
274 return (nl[0].n_value);
275 }
276 #endif /* NLIST_AOUT */
277