Open64: osprey/libelf/lib/cntl.c Source File

00001 /*
00002  * Copyright 2005 PathScale, Inc.  All Rights Reserved.
00003  */
00004 
00005 /*
00006 cntl.c - implementation of the elf_cntl(3) function.
00007 Copyright (C) 1995 - 1998 Michael Riepe <michael@stud.uni-hannover.de>
00008 
00009 This library is free software; you can redistribute it and/or
00010 modify it under the terms of the GNU Library General Public
00011 License as published by the Free Software Foundation; either
00012 version 2 of the License, or (at your option) any later version.
00013 
00014 This library is distributed in the hope that it will be useful,
00015 but WITHOUT ANY WARRANTY; without even the implied warranty of
00016 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00017 Library General Public License for more details.
00018 
00019 You should have received a copy of the GNU Library General Public
00020 License along with this library; if not, write to the Free Software
00021 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
00022 */
00023 
00024 #include <private.h>
00025 
00026 #ifndef lint
00027 static const char rcsid[] = "@(#) $Id: cntl.c,v 1.1.1.1 2005/10/21 19:00:00 marcel Exp $";
00028 #endif /* lint */
00029 
00030 int
00031 elf_cntl(Elf *elf, Elf_Cmd cmd) {
00032     Elf_Scn *scn;
00033     Elf *child;
00034 
00035     if (!elf) {
00036   return -1;
00037     }
00038     elf_assert(elf->e_magic == ELF_MAGIC);
00039     if (cmd == ELF_C_FDREAD) {
00040   if (!elf->e_readable) {
00041       seterr(ERROR_WRONLY);
00042       return -1;
00043   }
00044     }
00045     else if (cmd != ELF_C_FDDONE) {
00046   seterr(ERROR_INVALID_CMD);
00047   return -1;
00048     }
00049     if (elf->e_disabled) {
00050   return 0;
00051     }
00052     if (elf->e_kind == ELF_K_AR) {
00053   for (child = elf->e_members; child; child = child->e_link) {
00054       elf_assert(elf == child->e_parent);
00055       if (elf_cntl(child, cmd)) {
00056     return -1;
00057       }
00058   }
00059     }
00060     else if (elf->e_kind == ELF_K_ELF && cmd == ELF_C_FDREAD) {
00061   if (!elf->e_ehdr && !_elf_cook(elf)) {
00062       return -1;
00063   }
00064   for (scn = elf->e_scn_1; scn; scn = scn->s_link) {
00065       if (scn->s_index == SHN_UNDEF || scn->s_type == SHT_NULL) {
00066     continue;
00067       }
00068       else if (!elf_getdata(scn, NULL)) {
00069     return -1;
00070       }
00071   }
00072     }
00073     elf->e_disabled = 1;
00074     return 0;
00075 }