Commit | Line | Data |
---|---|---|
2fa0b342 DHW |
1 | /*** size.c -- report size of various sections of an executable file */ |
2 | /* Extensions/incompatibilities: | |
3 | o - BSD output has filenames at the end. | |
4 | o - BSD output can appear in different radicies. | |
5 | o - SysV output has less redundant whitespace. Filename comes at end. | |
6 | o - SysV output doesn't show VMA which is always the same as the PMA. | |
7 | o - We also handle core files. | |
8 | o - We also handle archives. | |
9 | If you write shell scripts which manipulate this info then you may be | |
10 | out of luck; there's no +predantic switch. | |
11 | */ | |
12 | #include "sysdep.h" | |
13 | #include "bfd.h" | |
14 | #include "getopt.h" | |
15 | ||
16 | ||
17 | #ifndef BSD_DEFAULT | |
18 | #define BSD_DEFAULT 1 | |
19 | #endif | |
20 | ||
21 | PROTO(void, display_file, (char *filename)); | |
22 | PROTO(void, print_sizes, (bfd *file)); | |
23 | ||
24 | /* Various program options */ | |
25 | ||
26 | enum {decimal, octal, hex} radix = decimal; | |
27 | int berkeley_format = BSD_DEFAULT; /* 0 means use AT&T-style output */ | |
28 | int show_version = 0; | |
29 | int show_help = 0; | |
30 | ||
31 | /* IMPORTS */ | |
32 | extern char *program_version; | |
33 | extern char *program_name; | |
34 | extern char *target; | |
35 | \f | |
36 | /** main and like trivia */ | |
37 | ||
38 | void | |
39 | usage () | |
40 | { | |
41 | fprintf (stderr, "size %s\nUsage: %s -{dox}{AB}V files ...\n", | |
42 | program_version, program_name); | |
43 | fputs("\t+radix={8|10|16} -- select appropriate output radix.\n\ | |
44 | \t-d -- output in decimal\n\ | |
45 | \t-o -- output in octal\n\ | |
46 | \t-x -- output in hex", stderr); | |
47 | fputs("\t+format={Berkeley|SysV} -- select display format.\n\ | |
48 | \t-A -- SysV(AT&T) format\n\ | |
49 | \t-B -- BSD format", stderr); | |
50 | #if BSD_DEFAULT | |
51 | fputs("\t (Default is +format=Berkeley)", stderr); | |
52 | #else | |
53 | fputs("\t (Default is +format=SysV)", stderr); | |
54 | #endif | |
55 | fputs("\t-V, +version -- display program version, etc.\n\ | |
56 | \t+help -- this message\n", stderr); | |
57 | exit(1); | |
58 | } | |
59 | ||
60 | struct option long_options[] = {{"radix", 1, 0, 0}, | |
61 | {"format", 1, 0, 0}, | |
62 | {"version", 0, &show_version, 1}, | |
63 | {"target", 2, NULL, NULL}, | |
64 | {"help", 0, &show_help, 1}, | |
65 | {0, 0, 0, 0}}; | |
66 | ||
67 | int | |
68 | main (argc, argv) | |
69 | int argc; | |
70 | char **argv; | |
71 | { | |
72 | int temp; | |
73 | int c; /* sez which option char */ | |
74 | int option_index = 0; | |
75 | extern int optind; /* steps thru options */ | |
76 | program_name = *argv; | |
77 | ||
78 | while ((c = getopt_long(argc, argv, "ABVdox", long_options, | |
79 | &option_index)) != EOF) | |
80 | switch(c) { | |
81 | case 0: | |
82 | if (!strcmp("format",(long_options[option_index]).name)) { | |
83 | switch(*optarg) { | |
84 | case 'B': case 'b': berkeley_format = 1; break; | |
85 | case 'S': case 's': berkeley_format = 0; break; | |
86 | default: printf("Unknown option to +format: %s\n", optarg); | |
87 | usage(); | |
88 | } | |
89 | break; | |
90 | } | |
91 | ||
92 | if (!strcmp("target",(long_options[option_index]).name)) { | |
93 | target = optarg; | |
94 | break; | |
95 | } | |
96 | ||
97 | if (!strcmp("radix",(long_options[option_index]).name)) { | |
98 | #ifdef ANSI_LIBRARIES | |
99 | temp = strtol(optarg, NULL, 10); | |
100 | #else | |
101 | temp = atol(optarg); | |
102 | #endif | |
103 | switch(temp) { | |
104 | case 10: radix = decimal; break; | |
105 | case 8: radix = octal; break; | |
106 | case 16: radix = hex; break; | |
107 | default: printf("Unknown radix: %s\n", optarg); | |
108 | usage(); | |
109 | } | |
110 | } | |
111 | break; | |
112 | case 'A': berkeley_format = 0; break; | |
113 | case 'B': berkeley_format = 1; break; | |
114 | case 'V': show_version = 1; break; | |
115 | case 'd': radix = decimal; break; | |
116 | case 'x': radix = hex; break; | |
117 | case 'o': radix = octal; break; | |
118 | case '?': usage(); | |
119 | } | |
120 | ||
121 | if (show_version) printf("%s version %s\n", program_name, program_version); | |
122 | if (show_help) usage(); | |
123 | ||
124 | if (berkeley_format) | |
125 | #if 0 /* intel doesn't like bss/stk b/c they don't gave core files */ | |
126 | puts((radix == octal) ? "text\tdata\tbss/stk\toct\thex\tfilename" : | |
127 | "text\tdata\tbss/stk\tdec\thex\tfilename"); | |
128 | #else | |
129 | puts((radix == octal) ? "text\tdata\tbss\toct\thex\tfilename" : | |
130 | "text\tdata\tbss\tdec\thex\tfilename"); | |
131 | #endif | |
132 | if (optind == argc) | |
133 | display_file ("a.out"); | |
134 | else | |
135 | for (; optind < argc;) | |
136 | display_file (argv[optind++]); | |
137 | ||
138 | return 0; | |
139 | } | |
140 | \f | |
141 | /** Display a file's stats */ | |
142 | ||
143 | void | |
144 | display_bfd (abfd) | |
145 | bfd *abfd; | |
146 | { | |
147 | char *core_cmd; | |
148 | ||
149 | if (bfd_check_format(abfd, bfd_archive)) return; | |
150 | ||
151 | if (bfd_check_format(abfd, bfd_object)) { | |
152 | print_sizes(abfd); | |
153 | goto done; | |
154 | } | |
155 | ||
156 | if (bfd_check_format(abfd, bfd_core)) { | |
157 | print_sizes(abfd); | |
158 | fputs(" (core file", stdout); | |
159 | ||
160 | core_cmd = bfd_core_file_failing_command(abfd); | |
161 | if (core_cmd) printf(" invoked as %s", core_cmd); | |
162 | ||
163 | puts(")"); | |
164 | goto done; | |
165 | } | |
166 | ||
167 | printf("Unknown file format: %s.", bfd_get_filename(abfd)); | |
168 | ||
169 | done: | |
170 | ||
171 | ||
172 | printf("\n"); | |
173 | return; | |
174 | } | |
175 | ||
176 | void | |
177 | display_file(filename) | |
178 | char *filename; | |
179 | { | |
180 | bfd *file, *arfile = (bfd *) NULL; | |
181 | ||
182 | file = bfd_openr (filename, target); | |
183 | if (file == NULL) { | |
184 | bfd_perror (filename); | |
185 | return; | |
186 | } | |
187 | ||
188 | if (bfd_check_format(file, bfd_archive) == true) { | |
189 | for(;;) { | |
190 | ||
191 | bfd_error = no_error; | |
192 | ||
193 | arfile = bfd_openr_next_archived_file (file, arfile); | |
194 | if (arfile == NULL) { | |
195 | if (bfd_error != no_more_archived_files) | |
196 | bfd_perror (bfd_get_filename (file)); | |
197 | return; | |
198 | } | |
199 | ||
200 | display_bfd (arfile); | |
201 | /* Don't close the archive elements; we need them for next_archive */ | |
202 | } | |
203 | } | |
204 | else | |
205 | display_bfd (file); | |
206 | ||
207 | bfd_close (file); | |
208 | } | |
209 | \f | |
210 | /* This is what lexical functions are for */ | |
211 | void | |
212 | lprint_number (width, num) | |
213 | int width, num; | |
214 | { | |
215 | printf ((radix == decimal ? "%-*d\t" : | |
216 | ((radix == octal) ? "%-*o\t" : "%-*x\t")), width, num); | |
217 | } | |
218 | ||
219 | void | |
220 | rprint_number(width, num) | |
221 | int width, num; | |
222 | { | |
223 | printf ((radix == decimal ? "%*d\t" : | |
224 | ((radix == octal) ? "%*o\t" : "%*x\t")), width, num); | |
225 | } | |
226 | ||
227 | static char *bss_section_name = ".bss"; | |
228 | static char *data_section_name = ".data"; | |
229 | static char *stack_section_name = ".stack"; | |
230 | static char *text_section_name = ".text"; | |
231 | ||
232 | void print_berkeley_format(abfd) | |
233 | bfd *abfd; | |
234 | { | |
235 | sec_ptr bsssection = NULL; | |
236 | sec_ptr datasection = NULL; | |
237 | sec_ptr textsection = NULL; | |
238 | unsigned long bsssize = 0; | |
239 | unsigned long datasize = 0; | |
240 | unsigned long textsize = 0; | |
241 | unsigned long total = 0; | |
242 | ||
243 | ||
244 | if ((textsection = bfd_get_section_by_name (abfd, text_section_name)) | |
245 | != NULL) { | |
246 | textsize = bfd_section_size (abfd, textsection); | |
247 | } | |
248 | ||
249 | if ((datasection = bfd_get_section_by_name (abfd, data_section_name)) | |
250 | != NULL) { | |
251 | datasize = bfd_section_size(abfd, datasection); | |
252 | } | |
253 | ||
254 | if (bfd_get_format (abfd) == bfd_object) { | |
255 | if ((bsssection = bfd_get_section_by_name (abfd, bss_section_name)) | |
256 | != NULL) { | |
257 | bsssize = bfd_section_size(abfd, bsssection); | |
258 | } | |
259 | } else { | |
260 | if ((bsssection = bfd_get_section_by_name (abfd, stack_section_name)) | |
261 | != NULL) { | |
262 | bsssize = bfd_section_size(abfd, bsssection); | |
263 | } | |
264 | } | |
265 | ||
266 | total = textsize + datasize + bsssize; | |
267 | ||
268 | lprint_number (7, textsize); | |
269 | lprint_number (7, datasize); | |
270 | lprint_number (7, bsssize); | |
271 | printf (((radix == octal) ? "%-7o\t%-7x\t" : "%-7d\t%-7x\t"), total, total); | |
272 | ||
273 | fputs(bfd_get_filename(abfd), stdout); | |
274 | if (abfd->my_archive) printf (" (ex %s)", abfd->my_archive->filename); | |
275 | } | |
276 | ||
277 | /* I REALLY miss lexical functions! */ | |
278 | int svi_total = 0; | |
279 | ||
280 | void | |
281 | sysv_internal_printer(file, sec) | |
282 | bfd *file; | |
283 | sec_ptr sec; | |
284 | { | |
285 | int size = bfd_section_size (file, sec); | |
286 | ||
287 | svi_total += size; | |
288 | ||
289 | printf ("%-12s", bfd_section_name(file, sec)); | |
290 | rprint_number (8, size); | |
291 | printf(" "); | |
292 | rprint_number (8, bfd_section_vma(file, sec)); | |
293 | printf ("\n"); | |
294 | } | |
295 | ||
296 | void | |
297 | print_sysv_format(file) | |
298 | bfd *file; | |
299 | { | |
300 | svi_total = 0; | |
301 | ||
302 | printf ("%s ", bfd_get_filename (file)); | |
303 | if (file->my_archive) printf (" (ex %s)", file->my_archive->filename); | |
304 | ||
305 | puts(":\nsection\t\tsize\t addr"); | |
306 | bfd_map_over_sections (file, sysv_internal_printer, NULL); | |
307 | ||
308 | printf("Total "); | |
309 | rprint_number(8, svi_total); | |
310 | printf("\n"); printf("\n"); | |
311 | } | |
312 | ||
313 | void | |
314 | print_sizes(file) | |
315 | bfd *file; | |
316 | { | |
317 | if (berkeley_format) | |
318 | print_berkeley_format(file); | |
319 | else print_sysv_format(file); | |
320 | } |