bfd/core.c

   1 /* Core file generic interface routines for BFD.
   2    Copyright (C) 1990-1991 Free Software Foundation, Inc.
   3    Written by Cygnus Support.
   4
   5 This file is part of BFD, the Binary File Descriptor library.
   6
   7 This program is free software; you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation; either version 2 of the License, or
  10 (at your option) any later version.
  11
  12 This program is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with this program; if not, write to the Free Software
  19 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  20
  21 /*doc*
  22 @section Core files
  23 Buff output this facinating topic
  24 */
  25
  26 #include "bfd.h"
  27 #include "sysdep.h"
  28 #include "libbfd.h"
  29
  30 /** Some core file info commands */
  31
  32 /*proto* bfd_core_file_failing_command
  33 Returns a read-only string explaining what program was running when
  34 it failed and produced the core file being read
  35
  36 *; PROTO(CONST char *, bfd_core_file_failing_command, (bfd *));
  37 */
  38
  39 CONST char *
  40 DEFUN(bfd_core_file_failing_command,(abfd),
  41       bfd *abfd)
  42 {
  43   if (abfd->format != bfd_core) {
  44     bfd_error = invalid_operation;
  45     return NULL;
  46   }
  47   return BFD_SEND (abfd, _core_file_failing_command, (abfd));
  48 }
  49
  50 /*proto* bfd_core_file_failing_signal
  51 Returns the signal number which caused the core dump which generated
  52 the file the BFD is attached to.
  53
  54 *; PROTO(int, bfd_core_file_failing_signal, (bfd *));
  55 */
  56 int
  57 bfd_core_file_failing_signal (abfd)
  58      bfd *abfd;
  59 {
  60   if (abfd->format != bfd_core) {
  61     bfd_error = invalid_operation;
  62     return 0;
  63   }
  64   return BFD_SEND (abfd, _core_file_failing_signal, (abfd));
  65 }
  66
  67
  68 /*proto* core_file_matches_executable_p
  69 Returns @code{true} if the core file attached to @var{core_bfd} was
  70 generated by a run of the executable file attached to @var{exec_bfd},
  71 or else @code{false}.
  72 *; PROTO(boolean, core_file_matches_executable_p,
  73     (bfd *core_bfd, bfd *exec_bfd));
  74 */
  75 boolean
  76 core_file_matches_executable_p (core_bfd, exec_bfd)
  77      bfd *core_bfd, *exec_bfd;
  78 {
  79   if ((core_bfd->format != bfd_core) || (exec_bfd->format != bfd_object)) {
  80     bfd_error = wrong_format;
  81     return false;
  82   }
  83
  84   return BFD_SEND (core_bfd, _core_file_matches_executable_p, (core_bfd, exec_bfd));
  85 }