1 /* Copyright (C) 2007 Red Hat, Inc. 2 This file is part of elfutils. 3 4 This file is free software; you can redistribute it and/or modify 5 it under the terms of the GNU General Public License as published by 6 the Free Software Foundation; either version 3 of the License, or 7 (at your option) any later version. 8 9 elfutils is distributed in the hope that it will be useful, but 10 WITHOUT ANY WARRANTY; without even the implied warranty of 11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12 GNU General Public License for more details. 13 14 You should have received a copy of the GNU General Public License 15 along with this program. If not, see <http://www.gnu.org/licenses/>. */ 16 17 #include <ar.h> 18 #include <fcntl.h> 19 #include <libelf.h> 20 #include <stdio.h> 21 #include <unistd.h> 22 23 24 static int handle (const char *fname); 25 26 27 int 28 main (int argc, char *argv[]) 29 { 30 elf_version (EV_CURRENT); 31 32 int result = 0; 33 if (argc == 1) 34 result = handle ("a.out"); 35 else 36 for (int i = 1; i < argc; ++i) 37 result |= handle (argv[1]); 38 39 return result; 40 } 41 42 43 static int 44 handle (const char *fname) 45 { 46 int fd = open (fname, O_RDONLY); 47 if (fd == -1) 48 { 49 printf ("cannot open '%s': %m\n", fname); 50 return 1; 51 } 52 53 Elf *elf = elf_begin (fd, ELF_C_READ_MMAP, NULL); 54 if (elf == NULL) 55 { 56 printf ("cannot get ELF handling for '%s': %s\n", 57 fname, elf_errmsg (-1)); 58 close (fd); 59 return 1; 60 } 61 62 if (elf_kind (elf) != ELF_K_AR) 63 { 64 printf ("'%s' is no archive\n", fname); 65 elf_end (elf); 66 close (fd); 67 return 1; 68 } 69 70 printf ("%s:\n", fname); 71 Elf *subelf = NULL; 72 Elf_Cmd cmd = ELF_C_READ_MMAP; 73 while ((subelf = elf_begin (fd, cmd, elf)) != NULL) 74 { 75 Elf_Arhdr *arhdr = elf_getarhdr (subelf); 76 if (arhdr == NULL) 77 { 78 printf ("cannot get archive header in '%s': %s\n", 79 fname, elf_errmsg (-1)); 80 elf_end (subelf); 81 elf_end (elf); 82 close (fd); 83 return 1; 84 } 85 86 off_t off = elf_getaroff (subelf); 87 88 printf ("\nOffset %llu\n" 89 " Name %s\n" 90 " Date %ld\n" 91 " UID %d\n" 92 " GID %d\n" 93 " Mode %o\n" 94 " Size %lld\n", 95 (unsigned long long int) off, 96 arhdr->ar_name, (long int) arhdr->ar_date, (int) arhdr->ar_uid, 97 (int) arhdr->ar_gid, 98 (int) arhdr->ar_mode, (long long int) arhdr->ar_size); 99 100 cmd = elf_next (subelf); 101 elf_end (subelf); 102 } 103 104 close (fd); 105 106 return 0; 107 } 108
