Blame tests/arsymtest.c

Packit Service 97d2fb
/* Copyright (C) 1999, 2000, 2002 Red Hat, Inc.
Packit Service 97d2fb
   This file is part of elfutils.
Packit Service 97d2fb
   Written by Ulrich Drepper <drepper@redhat.com>, 1999.
Packit Service 97d2fb
Packit Service 97d2fb
   This file is free software; you can redistribute it and/or modify
Packit Service 97d2fb
   it under the terms of the GNU General Public License as published by
Packit Service 97d2fb
   the Free Software Foundation; either version 3 of the License, or
Packit Service 97d2fb
   (at your option) any later version.
Packit Service 97d2fb
Packit Service 97d2fb
   elfutils is distributed in the hope that it will be useful, but
Packit Service 97d2fb
   WITHOUT ANY WARRANTY; without even the implied warranty of
Packit Service 97d2fb
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Packit Service 97d2fb
   GNU General Public License for more details.
Packit Service 97d2fb
Packit Service 97d2fb
   You should have received a copy of the GNU General Public License
Packit Service 97d2fb
   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
Packit Service 97d2fb
Packit Service 97d2fb
#include <config.h>
Packit Service 97d2fb
Packit Service 97d2fb
#include <fcntl.h>
Packit Service 97d2fb
#include <libelf.h>
Packit Service 97d2fb
#include <stdio.h>
Packit Service 97d2fb
#include <stdlib.h>
Packit Service 97d2fb
#include <unistd.h>
Packit Service 97d2fb
Packit Service 97d2fb
Packit Service 97d2fb
int
Packit Service 97d2fb
main (int argc, char *argv[])
Packit Service 97d2fb
{
Packit Service 97d2fb
  int fd;
Packit Service 97d2fb
  FILE *fp;
Packit Service 97d2fb
  Elf *elf;
Packit Service 97d2fb
  Elf_Arsym *arsym;
Packit Service 97d2fb
  size_t narsym;
Packit Service 97d2fb
Packit Service 97d2fb
  if (argc < 3)
Packit Service 97d2fb
    exit (1);
Packit Service 97d2fb
Packit Service 97d2fb
  /* Open the archive.  */
Packit Service 97d2fb
  fd = open (argv[1], O_RDONLY);
Packit Service 97d2fb
  if (fd == -1)
Packit Service 97d2fb
    {
Packit Service 97d2fb
      printf ("Cannot open input file: %m");
Packit Service 97d2fb
      exit (1);
Packit Service 97d2fb
    }
Packit Service 97d2fb
Packit Service 97d2fb
  /* Open the output file.  */
Packit Service 97d2fb
  fp = fopen (argv[2], "w");
Packit Service 97d2fb
  if (fp == NULL)
Packit Service 97d2fb
    {
Packit Service 97d2fb
      printf ("Cannot open output file: %m");
Packit Service 97d2fb
      exit (1);
Packit Service 97d2fb
    }
Packit Service 97d2fb
Packit Service 97d2fb
  /* Set the ELF version.  */
Packit Service 97d2fb
  elf_version (EV_CURRENT);
Packit Service 97d2fb
Packit Service 97d2fb
  /* Create an ELF descriptor.  */
Packit Service 97d2fb
  elf = elf_begin (fd, ELF_C_READ, NULL);
Packit Service 97d2fb
  if (elf == NULL)
Packit Service 97d2fb
    {
Packit Service 97d2fb
      printf ("Cannot create ELF descriptor: %s\n", elf_errmsg (-1));
Packit Service 97d2fb
      exit (1);
Packit Service 97d2fb
    }
Packit Service 97d2fb
Packit Service 97d2fb
  /* If it is no archive punt.  */
Packit Service 97d2fb
  if (elf_kind (elf) != ELF_K_AR)
Packit Service 97d2fb
    {
Packit Service 97d2fb
      printf ("`%s' is no archive\n", argv[1]);
Packit Service 97d2fb
      exit (1);
Packit Service 97d2fb
    }
Packit Service 97d2fb
Packit Service 97d2fb
  /* Now get the index of the archive.  */
Packit Service 97d2fb
  arsym = elf_getarsym (elf, &narsym);
Packit Service 97d2fb
  if (arsym == NULL)
Packit Service 97d2fb
    {
Packit Service 97d2fb
      printf ("Cannot get archive index: %s\n", elf_errmsg (-1));
Packit Service 97d2fb
      exit (1);
Packit Service 97d2fb
    }
Packit Service 97d2fb
Packit Service 97d2fb
  /* If there is no element in the index do nothing.  There always is
Packit Service 97d2fb
     an empty entry at the end which is included in the count and
Packit Service 97d2fb
     which we want to skip.  */
Packit Service 97d2fb
  if (narsym-- > 1)
Packit Service 97d2fb
    while (narsym-- > 0)
Packit Service 97d2fb
      {
Packit Service 97d2fb
	Elf *subelf;
Packit Service 97d2fb
	Elf_Arhdr *arhdr;
Packit Service 97d2fb
Packit Service 97d2fb
	if (elf_rand (elf, arsym[narsym].as_off) != arsym[narsym].as_off)
Packit Service 97d2fb
	  {
Packit Service 97d2fb
	    printf ("random access for symbol `%s' fails: %s\n",
Packit Service 97d2fb
		    arsym[narsym].as_name, elf_errmsg (-1));
Packit Service 97d2fb
	    exit (1);
Packit Service 97d2fb
	  }
Packit Service 97d2fb
Packit Service 97d2fb
	subelf = elf_begin (fd, ELF_C_READ, elf);
Packit Service 97d2fb
	if (subelf == NULL)
Packit Service 97d2fb
	  {
Packit Service 97d2fb
	    printf ("Cannot create ELF descriptor for archive member: %s\n",
Packit Service 97d2fb
		    elf_errmsg (-1));
Packit Service 97d2fb
	    exit (1);
Packit Service 97d2fb
	  }
Packit Service 97d2fb
Packit Service 97d2fb
	arhdr = elf_getarhdr (subelf);
Packit Service 97d2fb
	if (arhdr == NULL)
Packit Service 97d2fb
	  {
Packit Service 97d2fb
	    printf ("Cannot get archive header for element `%s': %s\n",
Packit Service 97d2fb
		    arsym[narsym].as_name, elf_errmsg (-1));
Packit Service 97d2fb
	    exit (1);
Packit Service 97d2fb
	  }
Packit Service 97d2fb
Packit Service 97d2fb
	/* Now print what we actually want.  */
Packit Service 97d2fb
	fprintf (fp, "%s in %s\n", arsym[narsym].as_name, arhdr->ar_name);
Packit Service 97d2fb
Packit Service 97d2fb
	/* Free the ELF descriptor.  */
Packit Service 97d2fb
	if (elf_end (subelf) != 0)
Packit Service 97d2fb
	  {
Packit Service 97d2fb
	    printf ("Error while freeing subELF descriptor: %s\n",
Packit Service 97d2fb
		    elf_errmsg (-1));
Packit Service 97d2fb
	    exit (1);
Packit Service 97d2fb
	  }
Packit Service 97d2fb
      }
Packit Service 97d2fb
Packit Service 97d2fb
  /* Free the ELF descriptor.  */
Packit Service 97d2fb
  if (elf_end (elf) != 0)
Packit Service 97d2fb
    {
Packit Service 97d2fb
      printf ("Error while freeing ELF descriptor: %s\n", elf_errmsg (-1));
Packit Service 97d2fb
      exit (1);
Packit Service 97d2fb
    }
Packit Service 97d2fb
Packit Service 97d2fb
  close (fd);
Packit Service 97d2fb
  fclose (fp);
Packit Service 97d2fb
Packit Service 97d2fb
  return 0;
Packit Service 97d2fb
}