tests/arls.c

   1 #include <ar.h>
   2 #include <fcntl.h>
   3 #include <libelf.h>
   4 #include <stdio.h>
   5 #include <unistd.h>
   6
   7
   8 static int handle (const char *fname);
   9
  10
  11 int
  12 main (int argc, char *argv[])
  13 {
  14   elf_version (EV_CURRENT);
  15
  16   int result = 0;
  17   if (argc == 1)
  18     result = handle ("a.out");
  19   else
  20     for (int i = 1; i < argc; ++i)
  21       result |= handle (argv[1]);
  22
  23   return result;
  24 }
  25
  26
  27 static int
  28 handle (const char *fname)
  29 {
  30   int fd = open (fname, O_RDONLY);
  31   if (fd == -1)
  32     {
  33       printf ("cannot open '%s': %m\n", fname);
  34       return 1;
  35     }
  36
  37   Elf *elf = elf_begin (fd, ELF_C_READ_MMAP, NULL);
  38   if (elf == NULL)
  39     {
  40       printf ("cannot get ELF handling for '%s': %s\n",
  41               fname, elf_errmsg (-1));
  42       close (fd);
  43       return 1;
  44     }
  45
  46   if (elf_kind (elf) != ELF_K_AR)
  47     {
  48       printf ("'%s' is no archive\n", fname);
  49       elf_end (elf);
  50       close (fd);
  51       return 1;
  52     }
  53
  54   printf ("%s:\n", fname);
  55   Elf *subelf = NULL;
  56   Elf_Cmd cmd = ELF_C_READ_MMAP;
  57   while ((subelf = elf_begin (fd, cmd, elf)) != NULL)
  58     {
  59       Elf_Arhdr *arhdr = elf_getarhdr (subelf);
  60       if (arhdr == NULL)
  61         {
  62           printf ("cannot get archive header in '%s': %s\n",
  63                   fname, elf_errmsg (-1));
  64           elf_end (subelf);
  65           elf_end (elf);
  66           close (fd);
  67           return 1;
  68         }
  69
  70       off_t off = elf_getaroff (subelf);
  71
  72       printf ("\nOffset    %llu\n"
  73               "  Name    %s\n"
  74               "  Date    %ld\n"
  75               "  UID     %d\n"
  76               "  GID     %d\n"
  77               "  Mode    %o\n"
  78               "  Size    %lld\n",
  79               (unsigned long long int) off,
  80               arhdr->ar_name, (long int) arhdr->ar_date, (int) arhdr->ar_uid,
  81               (int) arhdr->ar_gid,
  82               (int) arhdr->ar_mode, (long long int) arhdr->ar_size);
  83
  84       cmd = elf_next (subelf);
  85       elf_end (subelf);
  86     }
  87
  88   close (fd);
  89
  90   return 0;
  91 }