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