1 /* Copyright (C) 1998, 1999, 2000, 2002 Red Hat, Inc.
2 This file is part of elfutils.
3 Written by Ulrich Drepper <drepper@redhat.com>, 1998.
4
5 This file is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 3 of the License, or
8 (at your option) any later version.
9
10 elfutils is distributed in the hope that it will be useful, but
11 WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
14
15 You should have received a copy of the GNU General Public License
16 along with this program. If not, see <http://www.gnu.org/licenses/>. */
17
18 #include <config.h>
19
20 #include <fcntl.h>
21 #include <gelf.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <string.h>
25 #include <time.h>
26 #include <unistd.h>
27 #include "system.h"
28
29
30 static const char *machines[] =
31 {
32 #define MACHINE(name) [name] = #name
33 MACHINE (EM_NONE),
34 MACHINE (EM_M32),
35 MACHINE (EM_SPARC),
36 MACHINE (EM_386),
37 MACHINE (EM_68K),
38 MACHINE (EM_88K),
39 MACHINE (EM_860),
40 MACHINE (EM_MIPS),
41 MACHINE (EM_MIPS_RS3_LE),
42 MACHINE (EM_PARISC),
43 MACHINE (EM_VPP500),
44 MACHINE (EM_SPARC32PLUS),
45 MACHINE (EM_960),
46 MACHINE (EM_PPC),
47 MACHINE (EM_PPC64),
48 MACHINE (EM_V800),
49 MACHINE (EM_FR20),
50 MACHINE (EM_RH32),
51 MACHINE (EM_RCE),
52 MACHINE (EM_ARM),
53 MACHINE (EM_FAKE_ALPHA),
54 MACHINE (EM_SH),
55 MACHINE (EM_SPARCV9),
56 MACHINE (EM_TRICORE),
57 MACHINE (EM_ARC),
58 MACHINE (EM_H8_300),
59 MACHINE (EM_H8_300H),
60 MACHINE (EM_H8S),
61 MACHINE (EM_H8_500),
62 MACHINE (EM_IA_64),
63 MACHINE (EM_MIPS_X),
64 MACHINE (EM_COLDFIRE),
65 MACHINE (EM_68HC12),
66 MACHINE (EM_MMA),
67 MACHINE (EM_PCP),
68 MACHINE (EM_NCPU),
69 MACHINE (EM_NDR1),
70 MACHINE (EM_STARCORE),
71 MACHINE (EM_ME16),
72 MACHINE (EM_ST100),
73 MACHINE (EM_TINYJ),
74 MACHINE (EM_FX66),
75 MACHINE (EM_ST9PLUS),
76 MACHINE (EM_ST7),
77 MACHINE (EM_68HC16),
78 MACHINE (EM_68HC11),
79 MACHINE (EM_68HC08),
80 MACHINE (EM_68HC05),
81 MACHINE (EM_SVX),
82 MACHINE (EM_ST19),
83 MACHINE (EM_VAX)
84 };
85
86
87 int
main(int argc,char * argv[])88 main (int argc, char *argv[])
89 {
90 int fd;
91 Elf *elf;
92 Elf_Cmd cmd;
93 size_t n;
94 int arg = 1;
95 int verbose = 0;
96
97 /* Recognize optional verbosity flag. */
98 if (arg < argc && strcmp (argv[arg], "-v") == 0)
99 {
100 verbose = 1;
101 ++arg;
102 }
103
104 /* Any more arguments available. */
105 if (arg >= argc)
106 error (EXIT_FAILURE, 0, "No input file given");
107
108 /* Open the input file. */
109 fd = open (argv[arg], O_RDONLY);
110 if (fd == -1)
111 {
112 perror ("cannot open input file");
113 exit (1);
114 }
115
116 /* Set the ELF version we are using here. */
117 if (elf_version (EV_CURRENT) == EV_NONE)
118 {
119 puts ("ELF library too old");
120 exit (1);
121 }
122
123 /* Start reading the file. */
124 cmd = ELF_C_READ;
125 elf = elf_begin (fd, cmd, NULL);
126 if (elf == NULL)
127 {
128 printf ("elf_begin: %s\n", elf_errmsg (-1));
129 exit (1);
130 }
131
132 /* If it is no archive punt. */
133 if (elf_kind (elf) != ELF_K_AR)
134 {
135 printf ("%s is not an archive\n", argv[1]);
136 exit (1);
137 }
138
139 if (verbose)
140 {
141 /* The verbose variant. We print a lot of information. */
142 Elf *subelf;
143 char buf[100];
144 time_t t;
145
146 /* Get the elements of the archive one after the other. */
147 while ((subelf = elf_begin (fd, cmd, elf)) != NULL)
148 {
149 /* The the header for this element. */
150 Elf_Arhdr *arhdr = elf_getarhdr (subelf);
151
152 if (arhdr == NULL)
153 {
154 printf ("cannot get arhdr: %s\n", elf_errmsg (-1));
155 break;
156 }
157
158 switch (elf_kind (subelf))
159 {
160 case ELF_K_ELF:
161 fputs ("ELF file:\n", stdout);
162 break;
163
164 case ELF_K_AR:
165 fputs ("archive:\n", stdout);
166 break;
167
168 default:
169 fputs ("unknown file:\n", stdout);
170 break;
171 }
172
173 /* Print general information. */
174 t = arhdr->ar_date;
175 strftime (buf, sizeof buf, "%Y-%m-%dT%H:%M:%S%z", gmtime (&t));
176 printf (" name : \"%s\"\n"
177 " time : %s\n"
178 " uid : %ld\n"
179 " gid : %ld\n"
180 " mode : %o\n"
181 " size : %ld\n"
182 " rawname : \"%s\"\n",
183 arhdr->ar_name,
184 buf,
185 (long int) arhdr->ar_uid,
186 (long int) arhdr->ar_gid,
187 arhdr->ar_mode,
188 (long int) arhdr->ar_size,
189 arhdr->ar_rawname);
190
191 /* For ELF files we can provide some more information. */
192 if (elf_kind (subelf) == ELF_K_ELF)
193 {
194 GElf_Ehdr ehdr;
195
196 /* Get the ELF header. */
197 if (gelf_getehdr (subelf, &ehdr) == NULL)
198 printf (" *** cannot get ELF header: %s\n", elf_errmsg (-1));
199 else
200 {
201 printf (" binary class : %s\n",
202 ehdr.e_ident[EI_CLASS] == ELFCLASS32
203 ? "ELFCLASS32" : "ELFCLASS64");
204 printf (" data encoding: %s\n",
205 ehdr.e_ident[EI_DATA] == ELFDATA2LSB
206 ? "ELFDATA2LSB" : "ELFDATA2MSB");
207 printf (" binary type : %s\n",
208 ehdr.e_type == ET_REL
209 ? "relocatable"
210 : (ehdr.e_type == ET_EXEC
211 ? "executable"
212 : (ehdr.e_type == ET_DYN
213 ? "dynamic"
214 : "core file")));
215 printf (" machine : %s\n",
216 (ehdr.e_machine >= (sizeof (machines)
217 / sizeof (machines[0]))
218 || machines[ehdr.e_machine] == NULL)
219 ? "???"
220 : machines[ehdr.e_machine]);
221 }
222 }
223
224 /* Get next archive element. */
225 cmd = elf_next (subelf);
226 if (elf_end (subelf) != 0)
227 printf ("error while freeing sub-ELF descriptor: %s\n",
228 elf_errmsg (-1));
229 }
230 }
231 else
232 {
233 /* The simple version. Only print a bit of information. */
234 Elf_Arsym *arsym = elf_getarsym (elf, &n);
235
236 if (n == 0)
237 printf ("no symbol table in archive: %s\n", elf_errmsg (-1));
238 else
239 {
240 --n;
241
242 while (n-- > 0)
243 printf ("name = \"%s\", offset = %ld, hash = %lx\n",
244 arsym[n].as_name, (long int) arsym[n].as_off,
245 arsym[n].as_hash);
246 }
247 }
248
249 /* Free the ELF handle. */
250 if (elf_end (elf) != 0)
251 printf ("error while freeing ELF descriptor: %s\n", elf_errmsg (-1));
252
253 /* Close the underlying file. */
254 close (fd);
255
256 return 0;
257 }
258