1 /* Sysroff object format dumper.
2 Copyright 1994, 1995, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
4 This file is part of GNU Binutils.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
22 /* Written by Steve Chamberlain <sac@cygnus.com>.
24 This program reads a SYSROFF object file and prints it in an
25 almost human readable form to stdout. */
29 #include "safe-ctype.h"
32 #include <libiberty.h>
37 static int segmented_p;
39 static int addrsize = 4;
42 static void dh PARAMS ((unsigned char *, int));
43 static void itheader PARAMS ((char *, int));
44 static void p PARAMS ((void));
45 static void tabout PARAMS ((void));
46 static void pbarray PARAMS ((barray *));
47 static int getone PARAMS ((int));
48 static int opt PARAMS ((int));
49 static void must PARAMS ((int));
50 static void tab PARAMS ((int, char *));
51 static void dump_symbol_info PARAMS ((void));
52 static void derived_type PARAMS ((void));
53 static void module PARAMS ((void));
54 static void show_usage PARAMS ((FILE *, int));
55 static void show_help PARAMS ((void));
57 extern char *getCHARS PARAMS ((unsigned char *, int *, int, int));
58 extern int fillup PARAMS ((char *));
59 extern barray getBARRAY PARAMS ((unsigned char *, int *, int, int));
60 extern int getINT PARAMS ((unsigned char *, int *, int, int));
61 extern int getBITS PARAMS ((char *, int *, int, int));
62 extern void sysroff_swap_tr_in PARAMS ((void));
63 extern void sysroff_print_tr_out PARAMS ((void));
64 extern int main PARAMS ((int, char **));
67 getCHARS (ptr, idx, size, max)
83 /* Got to work out the length of the string from self */
89 r = xcalloc (b + 1, 1);
90 memcpy (r, ptr + oc, b);
104 printf ("\n************************************************************\n");
106 for (i = 0; i < size; i += span)
108 for (j = 0; j < span; j++)
111 printf ("%02x ", ptr[i + j]);
116 for (j = 0; j < span && j + i < size; j++)
119 if (c < 32 || c > 127)
134 size = getc (file) - 2;
135 fread (ptr, 1, size, file);
136 sum = code + size + 2;
137 for (i = 0; i < size; i++)
142 if ((sum & 0xff) != 0xff)
144 printf ("SUM IS %x\n", sum);
153 getBARRAY (ptr, idx, dsize, max)
156 int dsize ATTRIBUTE_UNUSED;
157 int max ATTRIBUTE_UNUSED;
162 int size = ptr[byte++];
164 res.data = (unsigned char *) xmalloc (size);
165 for (i = 0; i < size; i++)
167 res.data[i] = ptr[byte++];
173 getINT (ptr, idx, size, max)
198 n = (ptr[byte + 0] << 8) + ptr[byte + 1];
201 n = (ptr[byte + 0] << 24) + (ptr[byte + 1] << 16) + (ptr[byte + 2] << 8) + (ptr[byte + 3]);
211 getBITS (ptr, idx, size, max)
224 return (ptr[byte] >> (8 - bit - size)) & ((1 << size) - 1);
228 itheader (name, code)
232 printf ("\n%s 0x%02x\n", name, code);
240 for (i = 0; i < indent; i++)
258 printf ("%d (", y->len);
259 for (x = 0; x < y->len; x++)
261 printf ("(%02x %c)", y->data[x],
262 ISPRINT (y->data[x]) ? y->data[x] : '.');
267 #define SYSROFF_PRINT
268 #define SYSROFF_SWAP_IN
273 * FIXME: sysinfo, which generates sysroff.[ch] from sysroff.info, can't
274 * hack the special case of the tr block, which has no contents. So we
275 * implement our own functions for reading in and printing out the tr
279 #define IT_tr_CODE 0x7f
290 sysroff_print_tr_out()
292 itheader("tr", IT_tr_CODE);
302 if ((c & 0x7f) != type)
313 sysroff_swap_cs_in (&dummy);
314 sysroff_print_cs_out (&dummy);
320 sysroff_swap_dln_in (&dummy);
321 sysroff_print_dln_out (&dummy);
327 sysroff_swap_hd_in (&dummy);
328 addrsize = dummy.afl;
329 sysroff_print_hd_out (&dummy);
335 sysroff_swap_dar_in (&dummy);
336 sysroff_print_dar_out (&dummy);
342 sysroff_swap_dsy_in (&dummy);
343 sysroff_print_dsy_out (&dummy);
349 sysroff_swap_dfp_in (&dummy);
350 sysroff_print_dfp_out (&dummy);
356 sysroff_swap_dso_in (&dummy);
357 sysroff_print_dso_out (&dummy);
363 sysroff_swap_dpt_in (&dummy);
364 sysroff_print_dpt_out (&dummy);
370 sysroff_swap_den_in (&dummy);
371 sysroff_print_den_out (&dummy);
377 sysroff_swap_dbt_in (&dummy);
378 sysroff_print_dbt_out (&dummy);
384 sysroff_swap_dty_in (&dummy);
385 sysroff_print_dty_out (&dummy);
391 sysroff_swap_un_in (&dummy);
392 sysroff_print_un_out (&dummy);
398 sysroff_swap_sc_in (&dummy);
399 sysroff_print_sc_out (&dummy);
405 sysroff_swap_er_in (&dummy);
406 sysroff_print_er_out (&dummy);
412 sysroff_swap_ed_in (&dummy);
413 sysroff_print_ed_out (&dummy);
419 sysroff_swap_sh_in (&dummy);
420 sysroff_print_sh_out (&dummy);
426 sysroff_swap_ob_in (&dummy);
427 sysroff_print_ob_out (&dummy);
433 sysroff_swap_rl_in (&dummy);
434 sysroff_print_rl_out (&dummy);
440 sysroff_swap_du_in (&dummy);
442 sysroff_print_du_out (&dummy);
448 sysroff_swap_dus_in (&dummy);
449 sysroff_print_dus_out (&dummy);
455 sysroff_swap_dul_in (&dummy);
456 sysroff_print_dul_out (&dummy);
462 sysroff_swap_dss_in (&dummy);
463 sysroff_print_dss_out (&dummy);
469 sysroff_swap_hs_in (&dummy);
470 sysroff_print_hs_out (&dummy);
476 sysroff_swap_dps_in (&dummy);
477 sysroff_print_dps_out (&dummy);
482 sysroff_swap_tr_in ();
483 sysroff_print_tr_out ();
489 sysroff_swap_dds_in (&dummy);
490 sysroff_print_dds_out (&dummy);
494 printf ("GOT A %x\n", c);
510 /* This is no longer used. */
515 while (opt (IT_un_CODE))
519 while (getone (IT_sc_CODE))
522 while (getone (IT_er_CODE))
525 while (getone (IT_ed_CODE))
534 /* This is no longer used. */
539 while (getone (IT_sh_CODE))
541 while (getone (IT_ob_CODE))
543 while (getone (IT_rl_CODE))
556 printf ("WANTED %x!!\n", x);
577 tab (1, "SYMBOL INFO");
578 while (opt (IT_dsy_CODE))
580 if (opt (IT_dty_CODE))
593 tab (1, "DERIVED TYPE");
596 if (opt (IT_dpp_CODE))
601 else if (opt (IT_dfp_CODE))
606 else if (opt (IT_den_CODE))
611 else if (opt (IT_den_CODE))
616 else if (opt (IT_dds_CODE))
621 else if (opt (IT_dar_CODE))
624 else if (opt (IT_dpt_CODE))
627 else if (opt (IT_dul_CODE))
630 else if (opt (IT_dse_CODE))
633 else if (opt (IT_dot_CODE))
645 /* This is no longer used. */
650 tab (1, "PROGRAM STRUCTURE");
651 while (opt (IT_dps_CODE))
665 /* This is no longer used. */
670 tab (1, "DEBUG LIST");
674 program_structure ();
688 tab (1, "MODULE***\n");
697 while (getone (c) && c != IT_tr_CODE);
729 show_usage (file, status)
733 fprintf (file, _("Usage: %s [-hV] in-file\n"), program_name);
740 printf (_("%s: Print a human readable interpretation of a SYSROFF object file\n"),
742 show_usage (stdout, 0);
750 char *input_file = NULL;
752 static struct option long_options[] =
754 {"help", no_argument, 0, 'h'},
755 {"version", no_argument, 0, 'V'},
756 {NULL, no_argument, 0, 0}
759 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
760 setlocale (LC_MESSAGES, "");
762 #if defined (HAVE_SETLOCALE)
763 setlocale (LC_CTYPE, "");
765 bindtextdomain (PACKAGE, LOCALEDIR);
766 textdomain (PACKAGE);
768 program_name = av[0];
769 xmalloc_set_program_name (program_name);
771 while ((opt = getopt_long (ac, av, "hV", long_options, (int *) NULL)) != EOF)
779 print_version ("sysdump");
785 show_usage (stderr, 1);
790 /* The input and output files may be named on the command line. */
794 input_file = av[optind];
799 fatal (_("no input file specified"));
802 file = fopen (input_file, FOPEN_RB);
805 fatal (_("cannot open input file %s"), input_file);