1/* Copyright (C) 1998, 1999, 2000, 2001, 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 <errno.h>
21#include <error.h>
22#include <fcntl.h>
23#include <gelf.h>
24#include <inttypes.h>
25#include <stdio.h>
26#include <stdlib.h>
27#include <unistd.h>
28
29
30/* Prototypes for local functions.  */
31static int handle_section (Elf *elf, Elf_Scn *scn);
32static void print_bytes (Elf_Data *data);
33static void print_symtab (Elf *elf, Elf_Data *data);
34
35
36int
37main (int argc, char *argv[])
38{
39  Elf *elf;
40  int fd;
41  int cnt;
42
43  if (argc <= 1)
44    exit (1);
45
46  /* Open the test file.  This is given as the first parameter to the
47     program.  */
48  fd = open (argv[1], O_RDONLY);
49  if (fd == -1)
50    error (EXIT_FAILURE, errno, "cannot open input file `%s'", argv[1]);
51
52  /* Set the library versio we expect.  */
53  elf_version (EV_CURRENT);
54
55  /* Create the ELF descriptor.  */
56  elf = elf_begin (fd, ELF_C_READ, NULL);
57  if (elf == NULL)
58    error (EXIT_FAILURE, 0, "cannot create ELF descriptor: %s",
59	   elf_errmsg (0));
60
61  /* Now proces all the sections mentioned in the rest of the command line.  */
62  for (cnt = 2; cnt < argc; ++cnt)
63    if (handle_section (elf, elf_getscn (elf, atoi (argv[cnt]))) != 0)
64      /* When we encounter an error stop immediately.  */
65      error (EXIT_FAILURE, 0, "while processing section %d: %s", cnt,
66	   elf_errmsg (0));
67
68  /* Close the descriptor.  */
69  if (elf_end (elf) != 0)
70    error (EXIT_FAILURE, 0, "failure while closing ELF descriptor: %s",
71	   elf_errmsg (0));
72
73  return 0;
74}
75
76
77static int
78handle_section (Elf *elf, Elf_Scn *scn)
79{
80  GElf_Ehdr *ehdr;
81  GElf_Ehdr ehdr_mem;
82  GElf_Shdr *shdr;
83  GElf_Shdr shdr_mem;
84  Elf_Data *data;
85
86  /* First get the ELF and section header.  */
87  ehdr = gelf_getehdr (elf, &ehdr_mem);
88  shdr = gelf_getshdr (scn, &shdr_mem);
89  if (ehdr == NULL || shdr == NULL)
90    return 1;
91
92  /* Print the information from the ELF section header.   */
93  printf ("name      = %s\n"
94	  "type      = %" PRId32 "\n"
95	  "flags     = %" PRIx64 "\n"
96	  "addr      = %" PRIx64 "\n"
97	  "offset    = %" PRIx64 "\n"
98	  "size      = %" PRId64 "\n"
99	  "link      = %" PRId32 "\n"
100	  "info      = %" PRIx32 "\n"
101	  "addralign = %" PRIx64 "\n"
102	  "entsize   = %" PRId64 "\n",
103	  elf_strptr (elf, ehdr->e_shstrndx, shdr->sh_name),
104	  shdr->sh_type,
105	  shdr->sh_flags,
106	  shdr->sh_addr,
107	  shdr->sh_offset,
108	  shdr->sh_size,
109	  shdr->sh_link,
110	  shdr->sh_info,
111	  shdr->sh_addralign,
112	  shdr->sh_entsize);
113
114  /* Get the section data now.  */
115  data = elf_getdata (scn, NULL);
116  if (data == NULL)
117    return 1;
118
119  /* Now proces the different section types accordingly.  */
120  switch (shdr->sh_type)
121    {
122    case SHT_SYMTAB:
123      print_symtab (elf, data);
124      break;
125
126    case SHT_PROGBITS:
127    default:
128      print_bytes (data);
129      break;
130    }
131
132  /* Separate form the next section.  */
133  puts ("");
134
135  /* All done correctly.  */
136  return 0;
137}
138
139
140static void
141print_bytes (Elf_Data *data)
142{
143  size_t size = data->d_size;
144  off_t offset = data->d_off;
145  unsigned char *buf = (unsigned char *) data->d_buf;
146  size_t cnt;
147
148  for (cnt = 0; cnt < size; cnt += 16)
149    {
150      size_t inner;
151
152      printf ("%*Zx: ", sizeof (size_t) == 4 ? 8 : 16, (size_t) offset + cnt);
153
154      for (inner = 0; inner < 16 && cnt + inner < size; ++inner)
155	printf (" %02hhx", buf[cnt + inner]);
156
157      puts ("");
158    }
159}
160
161
162static void
163print_symtab (Elf *elf, Elf_Data *data)
164{
165  int class = gelf_getclass (elf);
166  size_t nsym = data->d_size / (class == ELFCLASS32
167				? sizeof (Elf32_Sym) : sizeof (Elf64_Sym));
168  size_t cnt;
169
170  for (cnt = 0; cnt < nsym; ++cnt)
171    {
172      GElf_Sym sym_mem;
173      GElf_Sym *sym = gelf_getsym (data, cnt, &sym_mem);
174
175      printf ("%5Zu: %*" PRIx64 " %6" PRIx64 " %4d\n",
176	      cnt,
177	      class == ELFCLASS32 ? 8 : 16,
178	      sym->st_value,
179	      sym->st_size,
180	      GELF_ST_TYPE (sym->st_info));
181    }
182}
183