1/* Copyright (C) 1998, 1999, 2000, 2001, 2002, 2005 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 <fcntl.h>
22#include <gelf.h>
23#include <stdio.h>
24#include <stdlib.h>
25#include <string.h>
26
27int
28main (int argc, char *argv[])
29{
30  Elf *elf;
31  int fd;
32  GElf_Ehdr ehdr;
33  int cnt;
34
35  if (argc < 2)
36    {
37      puts ("missing parameter");
38      exit (1);
39    }
40
41  fd = open (argv[1], O_RDONLY);
42  if (fd == -1)
43    {
44      printf ("cannot open \"%s\": %s\n", argv[1], strerror (errno));
45      exit (1);
46    }
47
48  elf_version (EV_CURRENT);
49
50  elf = elf_begin (fd, ELF_C_READ, NULL);
51  if (elf == NULL)
52    {
53      printf ("cannot open ELF file: %s\n", elf_errmsg (-1));
54      exit (1);
55    }
56
57  if (elf_kind (elf) != ELF_K_ELF)
58    {
59      printf ("\"%s\" is not an ELF file\n", argv[1]);
60      exit (1);
61    }
62
63  if (gelf_getehdr (elf, &ehdr) == NULL)
64    {
65      printf ("cannot get the ELF header: %s\n", elf_errmsg (-1));
66      exit (1);
67    }
68
69  printf ("idx type    %*s %*s %*s %*s %*s  align flags\n",
70	  gelf_getclass (elf) == ELFCLASS32 ? 9 : 17, "offset",
71	  gelf_getclass (elf) == ELFCLASS32 ? 10 : 18, "vaddr",
72	  gelf_getclass (elf) == ELFCLASS32 ? 10 : 18, "paddr",
73	  gelf_getclass (elf) == ELFCLASS32 ? 9 : 12, "filesz",
74	  gelf_getclass (elf) == ELFCLASS32 ? 9 : 12, "memsz");
75
76  for (cnt = 0; cnt < ehdr.e_phnum; ++cnt)
77    {
78      static const char *typenames[] =
79      {
80	[PT_NULL] = "NULL",
81	[PT_LOAD] = "LOAD",
82	[PT_DYNAMIC] = "DYNAMIC",
83	[PT_INTERP] = "INTERP",
84	[PT_NOTE] = "NOTE",
85	[PT_SHLIB] = "SHLIB",
86	[PT_PHDR] = "PHDR"
87      };
88      GElf_Phdr mem;
89      GElf_Phdr *phdr = gelf_getphdr (elf, cnt, &mem);
90      char buf[19];
91      const char *p_type = typenames[phdr->p_type];
92
93      /* If we don't know the name of the type we use the number value.  */
94      if (phdr->p_type >= PT_NUM)
95	{
96	  snprintf (buf, sizeof (buf), "%x", phdr->p_type);
97	  p_type = buf;
98	}
99
100      printf ("%3d %-7s %#0*llx %#0*llx %#0*llx %#0*llx %#0*llx %#6llx ",
101	      cnt, p_type,
102	      gelf_getclass (elf) == ELFCLASS32 ? 9 : 17,
103	      (unsigned long long int) phdr->p_offset,
104	      gelf_getclass (elf) == ELFCLASS32 ? 10 : 18,
105	      (unsigned long long int) phdr->p_vaddr,
106	      gelf_getclass (elf) == ELFCLASS32 ? 10 : 18,
107	      (unsigned long long int) phdr->p_paddr,
108	      gelf_getclass (elf) == ELFCLASS32 ? 9 : 12,
109	      (unsigned long long int) phdr->p_filesz,
110	      gelf_getclass (elf) == ELFCLASS32 ? 9 : 12,
111	      (unsigned long long int) phdr->p_memsz,
112	      (unsigned long long int) phdr->p_align);
113
114      putc_unlocked ((phdr->p_flags & PF_X) ? 'X' : ' ', stdout);
115      putc_unlocked ((phdr->p_flags & PF_W) ? 'W' : ' ', stdout);
116      putc_unlocked ((phdr->p_flags & PF_R) ? 'R' : ' ', stdout);
117
118      putc_unlocked ('\n', stdout);
119
120      if (phdr->p_type == PT_INTERP)
121	{
122	  /* We can show the user the name of the interpreter.  */
123	  size_t maxsize;
124	  char *filedata = elf_rawfile (elf, &maxsize);
125
126	  if (filedata != NULL && phdr->p_offset < maxsize)
127	    printf ("\t[Requesting program interpreter: %s]\n",
128		    filedata + phdr->p_offset);
129	}
130    }
131
132  if (elf_end (elf) != 0)
133    {
134      printf ("error while freeing ELF descriptor: %s\n", elf_errmsg (-1));
135      exit (1);
136    }
137
138  return 0;
139}
140