URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [binutils/] [sysdump.c] - Blame information for rev 853

Go to most recent revision | Details | Compare with Previous | View Log


/* Sysroff object format dumper.
   Copyright 1994, 1995, 1998, 1999, 2000, 2001, 2002, 2003, 2005, 2007
   Free Software Foundation, Inc.
 
   This file is part of GNU Binutils.
 
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 3 of the License, or
   (at your option) any later version.
 
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
 
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
   02110-1301, USA.  */
 
 
/* Written by Steve Chamberlain <sac@cygnus.com>.
 
 This program reads a SYSROFF object file and prints it in an
 almost human readable form to stdout.  */
 
#include "sysdep.h"
#include "bfd.h"
#include "safe-ctype.h"
#include "libiberty.h"
#include "getopt.h"
#include "bucomm.h"
#include "sysroff.h"
 
static int dump = 1;
static int segmented_p;
static int code;
static int addrsize = 4;
static FILE *file;
 
static void dh (unsigned char *, int);
static void itheader (char *, int);
static void p (void);
static void tabout (void);
static void pbarray (barray *);
static int getone (int);
static int opt (int);
static void must (int);
static void tab (int, char *);
static void dump_symbol_info (void);
static void derived_type (void);
static void module (void);
static void show_usage (FILE *, int);
 
extern int main (int, char **);
 
static char *
getCHARS (unsigned char *ptr, int *idx, int size, int max)
{
  int oc = *idx / 8;
  char *r;
  int b = size;
 
  if (b >= max)
    return "*undefined*";
 
  if (b == 0)
    {
      /* Got to work out the length of the string from self.  */
      b = ptr[oc++];
      (*idx) += 8;
    }
 
  *idx += b * 8;
  r = xcalloc (b + 1, 1);
  memcpy (r, ptr + oc, b);
  r[b] = 0;
 
  return r;
}
 
static void
dh (unsigned char *ptr, int size)
{
  int i;
  int j;
  int span = 16;
 
  printf ("\n************************************************************\n");
 
  for (i = 0; i < size; i += span)
    {
      for (j = 0; j < span; j++)
        {
          if (j + i < size)
            printf ("%02x ", ptr[i + j]);
          else
            printf ("   ");
        }
 
      for (j = 0; j < span && j + i < size; j++)
        {
          int c = ptr[i + j];
 
          if (c < 32 || c > 127)
            c = '.';
          printf ("%c", c);
        }
 
      printf ("\n");
    }
}
 
static int
fillup (unsigned char *ptr)
{
  int size;
  int sum;
  int i;
 
  size = getc (file);
  if (size == EOF
      || size <= 2)
    return 0;
 
  size -= 2;
  if (fread (ptr, size, 1, file) != 1)
    return 0;
 
  sum = code + size + 2;
 
  for (i = 0; i < size; i++)
    sum += ptr[i];
 
  if ((sum & 0xff) != 0xff)
    printf ("SUM IS %x\n", sum);
 
  if (dump)
    dh (ptr, size);
 
  return size;
}
 
static barray
getBARRAY (unsigned char *ptr, int *idx, int dsize ATTRIBUTE_UNUSED,
           int max ATTRIBUTE_UNUSED)
{
  barray res;
  int i;
  int byte = *idx / 8;
  int size = ptr[byte++];
 
  res.len = size;
  res.data = (unsigned char *) xmalloc (size);
 
  for (i = 0; i < size; i++)
    res.data[i] = ptr[byte++];
 
  return res;
}
 
static int
getINT (unsigned char *ptr, int *idx, int size, int max)
{
  int n = 0;
  int byte = *idx / 8;
 
  if (byte >= max)
    return 0;
 
  if (size == -2)
    size = addrsize;
 
  if (size == -1)
    size = 0;
 
  switch (size)
    {
    case 0:
      return 0;
    case 1:
      n = (ptr[byte]);
      break;
    case 2:
      n = (ptr[byte + 0] << 8) + ptr[byte + 1];
      break;
    case 4:
      n = (ptr[byte + 0] << 24) + (ptr[byte + 1] << 16) + (ptr[byte + 2] << 8) + (ptr[byte + 3]);
      break;
    default:
      abort ();
    }
 
  *idx += size * 8;
  return n;
}
 
static int
getBITS (unsigned char *ptr, int *idx, int size, int max)
{
  int byte = *idx / 8;
  int bit = *idx % 8;
 
  if (byte >= max)
    return 0;
 
  *idx += size;
 
  return (ptr[byte] >> (8 - bit - size)) & ((1 << size) - 1);
}
 
static void
itheader (char *name, int code)
{
  printf ("\n%s 0x%02x\n", name, code);
}
 
static int indent;
 
static void
p (void)
{
  int i;
 
  for (i = 0; i < indent; i++)
    printf ("| ");
 
  printf ("> ");
}
 
static void
tabout (void)
{
  p ();
}
 
static void
pbarray (barray *y)
{
  int x;
 
  printf ("%d (", y->len);
 
  for (x = 0; x < y->len; x++)
    printf ("(%02x %c)", y->data[x],
            ISPRINT (y->data[x]) ? y->data[x] : '.');
 
  printf (")\n");
}
 
#define SYSROFF_PRINT
#define SYSROFF_SWAP_IN
 
#include "sysroff.c"
 
/* FIXME: sysinfo, which generates sysroff.[ch] from sysroff.info, can't
   hack the special case of the tr block, which has no contents.  So we
   implement our own functions for reading in and printing out the tr
   block.  */
 
#define IT_tr_CODE      0x7f
 
static void
sysroff_swap_tr_in (void)
{
  unsigned char raw[255];
 
  memset (raw, 0, 255);
  fillup (raw);
}
 
static void
sysroff_print_tr_out (void)
{
  itheader ("tr", IT_tr_CODE);
}
 
static int
getone (int type)
{
  int c = getc (file);
 
  code = c;
 
  if ((c & 0x7f) != type)
    {
      ungetc (c, file);
      return 0;
    }
 
  switch (c & 0x7f)
    {
    case IT_cs_CODE:
      {
        struct IT_cs dummy;
        sysroff_swap_cs_in (&dummy);
        sysroff_print_cs_out (&dummy);
      }
      break;
 
    case IT_dln_CODE:
      {
        struct IT_dln dummy;
        sysroff_swap_dln_in (&dummy);
        sysroff_print_dln_out (&dummy);
      }
      break;
 
    case IT_hd_CODE:
      {
        struct IT_hd dummy;
        sysroff_swap_hd_in (&dummy);
        addrsize = dummy.afl;
        sysroff_print_hd_out (&dummy);
      }
      break;
 
    case IT_dar_CODE:
      {
        struct IT_dar dummy;
        sysroff_swap_dar_in (&dummy);
        sysroff_print_dar_out (&dummy);
      }
      break;
 
    case IT_dsy_CODE:
      {
        struct IT_dsy dummy;
        sysroff_swap_dsy_in (&dummy);
        sysroff_print_dsy_out (&dummy);
      }
      break;
 
    case IT_dfp_CODE:
      {
        struct IT_dfp dummy;
        sysroff_swap_dfp_in (&dummy);
        sysroff_print_dfp_out (&dummy);
      }
      break;
 
    case IT_dso_CODE:
      {
        struct IT_dso dummy;
        sysroff_swap_dso_in (&dummy);
        sysroff_print_dso_out (&dummy);
      }
      break;
 
    case IT_dpt_CODE:
      {
        struct IT_dpt dummy;
        sysroff_swap_dpt_in (&dummy);
        sysroff_print_dpt_out (&dummy);
      }
      break;
 
    case IT_den_CODE:
      {
        struct IT_den dummy;
        sysroff_swap_den_in (&dummy);
        sysroff_print_den_out (&dummy);
      }
      break;
 
    case IT_dbt_CODE:
      {
        struct IT_dbt dummy;
        sysroff_swap_dbt_in (&dummy);
        sysroff_print_dbt_out (&dummy);
      }
      break;
 
    case IT_dty_CODE:
      {
        struct IT_dty dummy;
        sysroff_swap_dty_in (&dummy);
        sysroff_print_dty_out (&dummy);
      }
      break;
 
    case IT_un_CODE:
      {
        struct IT_un dummy;
        sysroff_swap_un_in (&dummy);
        sysroff_print_un_out (&dummy);
      }
      break;
 
    case IT_sc_CODE:
      {
        struct IT_sc dummy;
        sysroff_swap_sc_in (&dummy);
        sysroff_print_sc_out (&dummy);
      }
      break;
 
    case IT_er_CODE:
      {
        struct IT_er dummy;
        sysroff_swap_er_in (&dummy);
        sysroff_print_er_out (&dummy);
      }
      break;
 
    case IT_ed_CODE:
      {
        struct IT_ed dummy;
        sysroff_swap_ed_in (&dummy);
        sysroff_print_ed_out (&dummy);
      }
      break;
 
    case IT_sh_CODE:
      {
        struct IT_sh dummy;
        sysroff_swap_sh_in (&dummy);
        sysroff_print_sh_out (&dummy);
      }
      break;
 
    case IT_ob_CODE:
      {
        struct IT_ob dummy;
        sysroff_swap_ob_in (&dummy);
        sysroff_print_ob_out (&dummy);
      }
      break;
 
    case IT_rl_CODE:
      {
        struct IT_rl dummy;
        sysroff_swap_rl_in (&dummy);
        sysroff_print_rl_out (&dummy);
      }
      break;
 
    case IT_du_CODE:
      {
        struct IT_du dummy;
        sysroff_swap_du_in (&dummy);
 
        sysroff_print_du_out (&dummy);
      }
      break;
 
    case IT_dus_CODE:
      {
        struct IT_dus dummy;
        sysroff_swap_dus_in (&dummy);
        sysroff_print_dus_out (&dummy);
      }
      break;
 
    case IT_dul_CODE:
      {
        struct IT_dul dummy;
        sysroff_swap_dul_in (&dummy);
        sysroff_print_dul_out (&dummy);
      }
      break;
 
    case IT_dss_CODE:
      {
        struct IT_dss dummy;
        sysroff_swap_dss_in (&dummy);
        sysroff_print_dss_out (&dummy);
      }
      break;
 
    case IT_hs_CODE:
      {
        struct IT_hs dummy;
        sysroff_swap_hs_in (&dummy);
        sysroff_print_hs_out (&dummy);
      }
      break;
 
    case IT_dps_CODE:
      {
        struct IT_dps dummy;
        sysroff_swap_dps_in (&dummy);
        sysroff_print_dps_out (&dummy);
      }
      break;
 
    case IT_tr_CODE:
      sysroff_swap_tr_in ();
      sysroff_print_tr_out ();
      break;
 
    case IT_dds_CODE:
      {
        struct IT_dds dummy;
 
        sysroff_swap_dds_in (&dummy);
        sysroff_print_dds_out (&dummy);
      }
      break;
 
    default:
      printf ("GOT A %x\n", c);
      return 0;
      break;
    }
 
  return 1;
}
 
static int
opt (int x)
{
  return getone (x);
}
 
static void
must (int x)
{
  if (!getone (x))
    printf ("WANTED %x!!\n", x);
}
 
static void
tab (int i, char *s)
{
  indent += i;
 
  if (s)
    {
      p ();
      printf (s);
      printf ("\n");
    }
}
 
static void
dump_symbol_info (void)
{
  tab (1, "SYMBOL INFO");
 
  while (opt (IT_dsy_CODE))
    {
      if (opt (IT_dty_CODE))
        {
          must (IT_dbt_CODE);
          derived_type ();
          must (IT_dty_CODE);
        }
    }
 
  tab (-1, "");
}
 
static void
derived_type (void)
{
  tab (1, "DERIVED TYPE");
 
  while (1)
    {
      if (opt (IT_dpp_CODE))
        {
          dump_symbol_info ();
          must (IT_dpp_CODE);
        }
      else if (opt (IT_dfp_CODE))
        {
          dump_symbol_info ();
          must (IT_dfp_CODE);
        }
      else if (opt (IT_den_CODE))
        {
          dump_symbol_info ();
          must (IT_den_CODE);
        }
      else if (opt (IT_den_CODE))
        {
          dump_symbol_info ();
          must (IT_den_CODE);
        }
      else if (opt (IT_dds_CODE))
        {
          dump_symbol_info ();
          must (IT_dds_CODE);
        }
      else if (opt (IT_dar_CODE))
        {
        }
      else if (opt (IT_dpt_CODE))
        {
        }
      else if (opt (IT_dul_CODE))
        {
        }
      else if (opt (IT_dse_CODE))
        {
        }
      else if (opt (IT_dot_CODE))
        {
        }
      else
        break;
    }
 
  tab (-1, "");
}
 
static void
module (void)
{
  int c = 0;
  int l = 0;
 
  tab (1, "MODULE***\n");
 
  do
    {
      c = getc (file);
      ungetc (c, file);
 
      c &= 0x7f;
    }
  while (getone (c) && c != IT_tr_CODE);
 
  tab (-1, "");
 
  c = getc (file);
  while (c != EOF)
    {
      printf ("%02x ", c);
      l++;
      if (l == 32)
        {
          printf ("\n");
          l = 0;
        }
      c = getc (file);
    }
}
 
char *program_name;
 
static void
show_usage (FILE *file, int status)
{
  fprintf (file, _("Usage: %s [option(s)] in-file\n"), program_name);
  fprintf (file, _("Print a human readable interpretation of a SYSROFF object file\n"));
  fprintf (file, _(" The options are:\n\
  -h --help        Display this information\n\
  -v --version     Print the program's version number\n"));
 
  if (REPORT_BUGS_TO[0] && status == 0)
    fprintf (file, _("Report bugs to %s\n"), REPORT_BUGS_TO);
  exit (status);
}
 
int
main (int ac, char **av)
{
  char *input_file = NULL;
  int opt;
  static struct option long_options[] =
  {
    {"help", no_argument, 0, 'h'},
    {"version", no_argument, 0, 'V'},
    {NULL, no_argument, 0, 0}
  };
 
#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
  setlocale (LC_MESSAGES, "");
#endif
#if defined (HAVE_SETLOCALE)
  setlocale (LC_CTYPE, "");
#endif
  bindtextdomain (PACKAGE, LOCALEDIR);
  textdomain (PACKAGE);
 
  program_name = av[0];
  xmalloc_set_program_name (program_name);
 
  expandargv (&ac, &av);
 
  while ((opt = getopt_long (ac, av, "HhVv", long_options, (int *) NULL)) != EOF)
    {
      switch (opt)
        {
        case 'H':
        case 'h':
          show_usage (stdout, 0);
          /*NOTREACHED*/
        case 'v':
        case 'V':
          print_version ("sysdump");
          exit (0);
          /*NOTREACHED*/
        case 0:
          break;
        default:
          show_usage (stderr, 1);
          /*NOTREACHED*/
        }
    }
 
  /* The input and output files may be named on the command line.  */
 
  if (optind < ac)
    input_file = av[optind];
 
  if (!input_file)
    fatal (_("no input file specified"));
 
  file = fopen (input_file, FOPEN_RB);
 
  if (!file)
    fatal (_("cannot open input file %s"), input_file);
 
  module ();
  return 0;
}

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [binutils/] [sysdump.c] - Blame information for rev 853

Line No.	Rev	Author	Line
1	38	julius	`/* Sysroff object format dumper.`
2			`Copyright 1994, 1995, 1998, 1999, 2000, 2001, 2002, 2003, 2005, 2007`
3			`Free Software Foundation, Inc.`
4
5			`This file is part of GNU Binutils.`
6
7			`This program is free software; you can redistribute it and/or modify`
8			`it under the terms of the GNU General Public License as published by`
9			`the Free Software Foundation; either version 3 of the License, or`
10			`(at your option) any later version.`
11
12			`This program is distributed in the hope that it will be useful,`
13			`but WITHOUT ANY WARRANTY; without even the implied warranty of`
14			`MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the`
15			`GNU General Public License for more details.`
16
17			`You should have received a copy of the GNU General Public License`
18			`along with this program; if not, write to the Free Software`
19			`Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA`
20			`02110-1301, USA. */`
21
22
23			`/* Written by Steve Chamberlain <sac@cygnus.com>.`
24
25			`This program reads a SYSROFF object file and prints it in an`
26			`almost human readable form to stdout. */`
27
28			`#include "sysdep.h"`
29			`#include "bfd.h"`
30			`#include "safe-ctype.h"`
31			`#include "libiberty.h"`
32			`#include "getopt.h"`
33			`#include "bucomm.h"`
34			`#include "sysroff.h"`
35
36			`static int dump = 1;`
37			`static int segmented_p;`
38			`static int code;`
39			`static int addrsize = 4;`
40			`static FILE *file;`
41
42			`static void dh (unsigned char *, int);`
43			`static void itheader (char *, int);`
44			`static void p (void);`
45			`static void tabout (void);`
46			`static void pbarray (barray *);`
47			`static int getone (int);`
48			`static int opt (int);`
49			`static void must (int);`
50			`static void tab (int, char *);`
51			`static void dump_symbol_info (void);`
52			`static void derived_type (void);`
53			`static void module (void);`
54			`static void show_usage (FILE *, int);`
55
56			`extern int main (int, char **);`
57
58			`static char *`
59			`getCHARS (unsigned char ptr, int idx, int size, int max)`
60			`{`
61			`int oc = *idx / 8;`
62			`char *r;`
63			`int b = size;`
64
65			`if (b >= max)`
66			`return "undefined";`
67
68			`if (b == 0)`
69			`{`
70			`/* Got to work out the length of the string from self. */`
71			`b = ptr[oc++];`
72			`(*idx) += 8;`
73			`}`
74
75			`idx += b 8;`
76			`r = xcalloc (b + 1, 1);`
77			`memcpy (r, ptr + oc, b);`
78			`r[b] = 0;`
79
80			`return r;`
81			`}`
82
83			`static void`
84			`dh (unsigned char *ptr, int size)`
85			`{`
86			`int i;`
87			`int j;`
88			`int span = 16;`
89
90			`printf ("\n************************************************************\n");`
91
92			`for (i = 0; i < size; i += span)`
93			`{`
94			`for (j = 0; j < span; j++)`
95			`{`
96			`if (j + i < size)`
97			`printf ("%02x ", ptr[i + j]);`
98			`else`
99			`printf (" ");`
100			`}`
101
102			`for (j = 0; j < span && j + i < size; j++)`
103			`{`
104			`int c = ptr[i + j];`
105
106			`if (c < 32 \|\| c > 127)`
107			`c = '.';`
108			`printf ("%c", c);`
109			`}`
110
111			`printf ("\n");`
112			`}`
113			`}`
114
115			`static int`
116			`fillup (unsigned char *ptr)`
117			`{`
118			`int size;`
119			`int sum;`
120			`int i;`
121
122			`size = getc (file);`
123			`if (size == EOF`
124			`\|\| size <= 2)`
125			`return 0;`
126
127			`size -= 2;`
128			`if (fread (ptr, size, 1, file) != 1)`
129			`return 0;`
130
131			`sum = code + size + 2;`
132
133			`for (i = 0; i < size; i++)`
134			`sum += ptr[i];`
135
136			`if ((sum & 0xff) != 0xff)`
137			`printf ("SUM IS %x\n", sum);`
138
139			`if (dump)`
140			`dh (ptr, size);`
141
142			`return size;`
143			`}`
144
145			`static barray`
146			`getBARRAY (unsigned char ptr, int idx, int dsize ATTRIBUTE_UNUSED,`
147			`int max ATTRIBUTE_UNUSED)`
148			`{`
149			`barray res;`
150			`int i;`
151			`int byte = *idx / 8;`
152			`int size = ptr[byte++];`
153
154			`res.len = size;`
155			`res.data = (unsigned char *) xmalloc (size);`
156
157			`for (i = 0; i < size; i++)`
158			`res.data[i] = ptr[byte++];`
159
160			`return res;`
161			`}`
162
163			`static int`
164			`getINT (unsigned char ptr, int idx, int size, int max)`
165			`{`
166			`int n = 0;`
167			`int byte = *idx / 8;`
168
169			`if (byte >= max)`
170			`return 0;`
171
172			`if (size == -2)`
173			`size = addrsize;`
174
175			`if (size == -1)`
176			`size = 0;`
177
178			`switch (size)`
179			`{`
180			`case 0:`
181			`return 0;`
182			`case 1:`
183			`n = (ptr[byte]);`
184			`break;`
185			`case 2:`
186			`n = (ptr[byte + 0] << 8) + ptr[byte + 1];`
187			`break;`
188			`case 4:`
189			`n = (ptr[byte + 0] << 24) + (ptr[byte + 1] << 16) + (ptr[byte + 2] << 8) + (ptr[byte + 3]);`
190			`break;`
191			`default:`
192			`abort ();`
193			`}`
194
195			`idx += size 8;`
196			`return n;`
197			`}`
198
199			`static int`
200			`getBITS (unsigned char ptr, int idx, int size, int max)`
201			`{`
202			`int byte = *idx / 8;`
203			`int bit = *idx % 8;`
204
205			`if (byte >= max)`
206			`return 0;`
207
208			`*idx += size;`
209
210			`return (ptr[byte] >> (8 - bit - size)) & ((1 << size) - 1);`
211			`}`
212
213			`static void`
214			`itheader (char *name, int code)`
215			`{`
216			`printf ("\n%s 0x%02x\n", name, code);`
217			`}`
218
219			`static int indent;`
220
221			`static void`
222			`p (void)`
223			`{`
224			`int i;`
225
226			`for (i = 0; i < indent; i++)`
227			`printf ("\| ");`
228
229			`printf ("> ");`
230			`}`
231
232			`static void`
233			`tabout (void)`
234			`{`
235			`p ();`
236			`}`
237
238			`static void`
239			`pbarray (barray *y)`
240			`{`
241			`int x;`
242
243			`printf ("%d (", y->len);`
244
245			`for (x = 0; x < y->len; x++)`
246			`printf ("(%02x %c)", y->data[x],`
247			`ISPRINT (y->data[x]) ? y->data[x] : '.');`
248
249			`printf (")\n");`
250			`}`
251
252			`#define SYSROFF_PRINT`
253			`#define SYSROFF_SWAP_IN`
254
255			`#include "sysroff.c"`
256
257			`/* FIXME: sysinfo, which generates sysroff.[ch] from sysroff.info, can't`
258			`hack the special case of the tr block, which has no contents. So we`
259			`implement our own functions for reading in and printing out the tr`
260			`block. */`
261
262			`#define IT_tr_CODE 0x7f`
263
264			`static void`
265			`sysroff_swap_tr_in (void)`
266			`{`
267			`unsigned char raw[255];`
268
269			`memset (raw, 0, 255);`
270			`fillup (raw);`
271			`}`
272
273			`static void`
274			`sysroff_print_tr_out (void)`
275			`{`
276			`itheader ("tr", IT_tr_CODE);`
277			`}`
278
279			`static int`
280			`getone (int type)`
281			`{`
282			`int c = getc (file);`
283
284			`code = c;`
285
286			`if ((c & 0x7f) != type)`
287			`{`
288			`ungetc (c, file);`
289			`return 0;`
290			`}`
291
292			`switch (c & 0x7f)`
293			`{`
294			`case IT_cs_CODE:`
295			`{`
296			`struct IT_cs dummy;`
297			`sysroff_swap_cs_in (&dummy);`
298			`sysroff_print_cs_out (&dummy);`
299			`}`
300			`break;`
301
302			`case IT_dln_CODE:`
303			`{`
304			`struct IT_dln dummy;`
305			`sysroff_swap_dln_in (&dummy);`
306			`sysroff_print_dln_out (&dummy);`
307			`}`
308			`break;`
309
310			`case IT_hd_CODE:`
311			`{`
312			`struct IT_hd dummy;`
313			`sysroff_swap_hd_in (&dummy);`
314			`addrsize = dummy.afl;`
315			`sysroff_print_hd_out (&dummy);`
316			`}`
317			`break;`
318
319			`case IT_dar_CODE:`
320			`{`
321			`struct IT_dar dummy;`
322			`sysroff_swap_dar_in (&dummy);`
323			`sysroff_print_dar_out (&dummy);`
324			`}`
325			`break;`
326
327			`case IT_dsy_CODE:`
328			`{`
329			`struct IT_dsy dummy;`
330			`sysroff_swap_dsy_in (&dummy);`
331			`sysroff_print_dsy_out (&dummy);`
332			`}`
333			`break;`
334
335			`case IT_dfp_CODE:`
336			`{`
337			`struct IT_dfp dummy;`
338			`sysroff_swap_dfp_in (&dummy);`
339			`sysroff_print_dfp_out (&dummy);`
340			`}`
341			`break;`
342
343			`case IT_dso_CODE:`
344			`{`
345			`struct IT_dso dummy;`
346			`sysroff_swap_dso_in (&dummy);`
347			`sysroff_print_dso_out (&dummy);`
348			`}`
349			`break;`
350
351			`case IT_dpt_CODE:`
352			`{`
353			`struct IT_dpt dummy;`
354			`sysroff_swap_dpt_in (&dummy);`
355			`sysroff_print_dpt_out (&dummy);`
356			`}`
357			`break;`
358
359			`case IT_den_CODE:`
360			`{`
361			`struct IT_den dummy;`
362			`sysroff_swap_den_in (&dummy);`
363			`sysroff_print_den_out (&dummy);`
364			`}`
365			`break;`
366
367			`case IT_dbt_CODE:`
368			`{`
369			`struct IT_dbt dummy;`
370			`sysroff_swap_dbt_in (&dummy);`
371			`sysroff_print_dbt_out (&dummy);`
372			`}`
373			`break;`
374
375			`case IT_dty_CODE:`
376			`{`
377			`struct IT_dty dummy;`
378			`sysroff_swap_dty_in (&dummy);`
379			`sysroff_print_dty_out (&dummy);`
380			`}`
381			`break;`
382
383			`case IT_un_CODE:`
384			`{`
385			`struct IT_un dummy;`
386			`sysroff_swap_un_in (&dummy);`
387			`sysroff_print_un_out (&dummy);`
388			`}`
389			`break;`
390
391			`case IT_sc_CODE:`
392			`{`
393			`struct IT_sc dummy;`
394			`sysroff_swap_sc_in (&dummy);`
395			`sysroff_print_sc_out (&dummy);`
396			`}`
397			`break;`
398
399			`case IT_er_CODE:`
400			`{`
401			`struct IT_er dummy;`
402			`sysroff_swap_er_in (&dummy);`
403			`sysroff_print_er_out (&dummy);`
404			`}`
405			`break;`
406
407			`case IT_ed_CODE:`
408			`{`
409			`struct IT_ed dummy;`
410			`sysroff_swap_ed_in (&dummy);`
411			`sysroff_print_ed_out (&dummy);`
412			`}`
413			`break;`
414
415			`case IT_sh_CODE:`
416			`{`
417			`struct IT_sh dummy;`
418			`sysroff_swap_sh_in (&dummy);`
419			`sysroff_print_sh_out (&dummy);`
420			`}`
421			`break;`
422
423			`case IT_ob_CODE:`
424			`{`
425			`struct IT_ob dummy;`
426			`sysroff_swap_ob_in (&dummy);`
427			`sysroff_print_ob_out (&dummy);`
428			`}`
429			`break;`
430
431			`case IT_rl_CODE:`
432			`{`
433			`struct IT_rl dummy;`
434			`sysroff_swap_rl_in (&dummy);`
435			`sysroff_print_rl_out (&dummy);`
436			`}`
437			`break;`
438
439			`case IT_du_CODE:`
440			`{`
441			`struct IT_du dummy;`
442			`sysroff_swap_du_in (&dummy);`
443
444			`sysroff_print_du_out (&dummy);`
445			`}`
446			`break;`
447
448			`case IT_dus_CODE:`
449			`{`
450			`struct IT_dus dummy;`
451			`sysroff_swap_dus_in (&dummy);`
452			`sysroff_print_dus_out (&dummy);`
453			`}`
454			`break;`
455
456			`case IT_dul_CODE:`
457			`{`
458			`struct IT_dul dummy;`
459			`sysroff_swap_dul_in (&dummy);`
460			`sysroff_print_dul_out (&dummy);`
461			`}`
462			`break;`
463
464			`case IT_dss_CODE:`
465			`{`
466			`struct IT_dss dummy;`
467			`sysroff_swap_dss_in (&dummy);`
468			`sysroff_print_dss_out (&dummy);`
469			`}`
470			`break;`
471
472			`case IT_hs_CODE:`
473			`{`
474			`struct IT_hs dummy;`
475			`sysroff_swap_hs_in (&dummy);`
476			`sysroff_print_hs_out (&dummy);`
477			`}`
478			`break;`
479
480			`case IT_dps_CODE:`
481			`{`
482			`struct IT_dps dummy;`
483			`sysroff_swap_dps_in (&dummy);`
484			`sysroff_print_dps_out (&dummy);`
485			`}`
486			`break;`
487
488			`case IT_tr_CODE:`
489			`sysroff_swap_tr_in ();`
490			`sysroff_print_tr_out ();`
491			`break;`
492
493			`case IT_dds_CODE:`
494			`{`
495			`struct IT_dds dummy;`
496
497			`sysroff_swap_dds_in (&dummy);`
498			`sysroff_print_dds_out (&dummy);`
499			`}`
500			`break;`
501
502			`default:`
503			`printf ("GOT A %x\n", c);`
504			`return 0;`
505			`break;`
506			`}`
507
508			`return 1;`
509			`}`
510
511			`static int`
512			`opt (int x)`
513			`{`
514			`return getone (x);`
515			`}`
516
517			`static void`
518			`must (int x)`
519			`{`
520			`if (!getone (x))`
521			`printf ("WANTED %x!!\n", x);`
522			`}`
523
524			`static void`
525			`tab (int i, char *s)`
526			`{`
527			`indent += i;`
528
529			`if (s)`
530			`{`
531			`p ();`
532			`printf (s);`
533			`printf ("\n");`
534			`}`
535			`}`
536
537			`static void`
538			`dump_symbol_info (void)`
539			`{`
540			`tab (1, "SYMBOL INFO");`
541
542			`while (opt (IT_dsy_CODE))`
543			`{`
544			`if (opt (IT_dty_CODE))`
545			`{`
546			`must (IT_dbt_CODE);`
547			`derived_type ();`
548			`must (IT_dty_CODE);`
549			`}`
550			`}`
551
552			`tab (-1, "");`
553			`}`
554
555			`static void`
556			`derived_type (void)`
557			`{`
558			`tab (1, "DERIVED TYPE");`
559
560			`while (1)`
561			`{`
562			`if (opt (IT_dpp_CODE))`
563			`{`
564			`dump_symbol_info ();`
565			`must (IT_dpp_CODE);`
566			`}`
567			`else if (opt (IT_dfp_CODE))`
568			`{`
569			`dump_symbol_info ();`
570			`must (IT_dfp_CODE);`
571			`}`
572			`else if (opt (IT_den_CODE))`
573			`{`
574			`dump_symbol_info ();`
575			`must (IT_den_CODE);`
576			`}`
577			`else if (opt (IT_den_CODE))`
578			`{`
579			`dump_symbol_info ();`
580			`must (IT_den_CODE);`
581			`}`
582			`else if (opt (IT_dds_CODE))`
583			`{`
584			`dump_symbol_info ();`
585			`must (IT_dds_CODE);`
586			`}`
587			`else if (opt (IT_dar_CODE))`
588			`{`
589			`}`
590			`else if (opt (IT_dpt_CODE))`
591			`{`
592			`}`
593			`else if (opt (IT_dul_CODE))`
594			`{`
595			`}`
596			`else if (opt (IT_dse_CODE))`
597			`{`
598			`}`
599			`else if (opt (IT_dot_CODE))`
600			`{`
601			`}`
602			`else`
603			`break;`
604			`}`
605
606			`tab (-1, "");`
607			`}`
608
609			`static void`
610			`module (void)`
611			`{`
612			`int c = 0;`
613			`int l = 0;`
614
615			`tab (1, "MODULE***\n");`
616
617			`do`
618			`{`
619			`c = getc (file);`
620			`ungetc (c, file);`
621
622			`c &= 0x7f;`
623			`}`
624			`while (getone (c) && c != IT_tr_CODE);`
625
626			`tab (-1, "");`
627
628			`c = getc (file);`
629			`while (c != EOF)`
630			`{`
631			`printf ("%02x ", c);`
632			`l++;`
633			`if (l == 32)`
634			`{`
635			`printf ("\n");`
636			`l = 0;`
637			`}`
638			`c = getc (file);`
639			`}`
640			`}`
641
642			`char *program_name;`
643
644			`static void`
645			`show_usage (FILE *file, int status)`
646			`{`
647			`fprintf (file, _("Usage: %s [option(s)] in-file\n"), program_name);`
648			`fprintf (file, _("Print a human readable interpretation of a SYSROFF object file\n"));`
649			`fprintf (file, _(" The options are:\n\`
650			`-h --help Display this information\n\`
651			`-v --version Print the program's version number\n"));`
652
653			`if (REPORT_BUGS_TO[0] && status == 0)`
654			`fprintf (file, _("Report bugs to %s\n"), REPORT_BUGS_TO);`
655			`exit (status);`
656			`}`
657
658			`int`
659			`main (int ac, char **av)`
660			`{`
661			`char *input_file = NULL;`
662			`int opt;`
663			`static struct option long_options[] =`
664			`{`
665			`{"help", no_argument, 0, 'h'},`
666			`{"version", no_argument, 0, 'V'},`
667			`{NULL, no_argument, 0, 0}`
668			`};`
669
670			`#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)`
671			`setlocale (LC_MESSAGES, "");`
672			`#endif`
673			`#if defined (HAVE_SETLOCALE)`
674			`setlocale (LC_CTYPE, "");`
675			`#endif`
676			`bindtextdomain (PACKAGE, LOCALEDIR);`
677			`textdomain (PACKAGE);`
678
679			`program_name = av[0];`
680			`xmalloc_set_program_name (program_name);`
681
682			`expandargv (&ac, &av);`
683
684			`while ((opt = getopt_long (ac, av, "HhVv", long_options, (int *) NULL)) != EOF)`
685			`{`
686			`switch (opt)`
687			`{`
688			`case 'H':`
689			`case 'h':`
690			`show_usage (stdout, 0);`
691			`/NOTREACHED/`
692			`case 'v':`
693			`case 'V':`
694			`print_version ("sysdump");`
695			`exit (0);`
696			`/NOTREACHED/`
697			`case 0:`
698			`break;`
699			`default:`
700			`show_usage (stderr, 1);`
701			`/NOTREACHED/`
702			`}`
703			`}`
704
705			`/* The input and output files may be named on the command line. */`
706
707			`if (optind < ac)`
708			`input_file = av[optind];`
709
710			`if (!input_file)`
711			`fatal (_("no input file specified"));`
712
713			`file = fopen (input_file, FOPEN_RB);`
714
715			`if (!file)`
716			`fatal (_("cannot open input file %s"), input_file);`
717
718			`module ();`
719			`return 0;`
720			`}`