lib/cntl.c

   1 /*
   2 cntl.c - implementation of the elf_cntl(3) function.
   3 Copyright (C) 1995 - 1998 Michael Riepe
   4
   5 This library is free software; you can redistribute it and/or
   6 modify it under the terms of the GNU Library General Public
   7 License as published by the Free Software Foundation; either
   8 version 2 of the License, or (at your option) any later version.
   9
  10 This library is distributed in the hope that it will be useful,
  11 but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13 Library General Public License for more details.
  14
  15 You should have received a copy of the GNU Library General Public
  16 License along with this library; if not, write to the Free Software
  17 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
  18 */
  19
  20 #include <private.h>
  21
  22 #ifndef lint
  23 static const char rcsid[] = "@(#) $Id: cntl.c,v 1.7 2008/05/23 08:15:34 michael Exp $";
  24 #endif /* lint */
  25
  26 int
  27 elf_cntl(Elf *elf, Elf_Cmd cmd) {
  28     Elf_Scn *scn;
  29     Elf *child;
  30
  31     if (!elf) {
  32         return -1;
  33     }
  34     elf_assert(elf->e_magic == ELF_MAGIC);
  35     if (cmd == ELF_C_FDREAD) {
  36         if (!elf->e_readable) {
  37             seterr(ERROR_WRONLY);
  38             return -1;
  39         }
  40     }
  41     else if (cmd != ELF_C_FDDONE) {
  42         seterr(ERROR_INVALID_CMD);
  43         return -1;
  44     }
  45     if (elf->e_disabled) {
  46         return 0;
  47     }
  48     if (elf->e_kind == ELF_K_AR) {
  49         for (child = elf->e_members; child; child = child->e_link) {
  50             elf_assert(elf == child->e_parent);
  51             if (elf_cntl(child, cmd)) {
  52                 return -1;
  53             }
  54         }
  55     }
  56     else if (elf->e_kind == ELF_K_ELF && cmd == ELF_C_FDREAD) {
  57         if (!elf->e_ehdr && !_elf_cook(elf)) {
  58             return -1;
  59         }
  60         for (scn = elf->e_scn_1; scn; scn = scn->s_link) {
  61             if (scn->s_index == SHN_UNDEF || scn->s_type == SHT_NULL) {
  62                 continue;
  63             }
  64             else if (!elf_getdata(scn, NULL)) {
  65                 return -1;
  66             }
  67         }
  68     }
  69     elf->e_disabled = 1;
  70     return 0;
  71 }