/*+
−
cntl.c - implementation of the elf_cntl(3) function.+
−
Copyright (C) 1995 - 1998 Michael Riepe+
−
+
−
This library is free software; you can redistribute it and/or+
−
modify it under the terms of the GNU Library General Public+
−
License as published by the Free Software Foundation; either+
−
version 2 of the License, or (at your option) any later version.+
−
+
−
This library is distributed in the hope that it will be useful,+
−
but WITHOUT ANY WARRANTY; without even the implied warranty of+
−
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU+
−
Library General Public License for more details.+
−
+
−
You should have received a copy of the GNU Library General Public+
−
License along with this library; if not, write to the Free Software+
−
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA+
−
*/+
−
+
−
#include <private.h>+
−
+
−
#ifndef lint+
−
static const char rcsid[] = "@(#) $Id: cntl.c,v 1.6 2005/05/21 15:39:21 michael Exp $";+
−
#endif /* lint */+
−
+
−
int+
−
elf_cntl(Elf *elf, Elf_Cmd cmd) {+
−
    Elf_Scn *scn;+
−
    Elf *child;+
−
+
−
    if (!elf) {+
−
	return -1;+
−
    }+
−
    elf_assert(elf->e_magic == ELF_MAGIC);+
−
    if (cmd == ELF_C_FDREAD) {+
−
	if (!elf->e_readable) {+
−
	    seterr(ERROR_WRONLY);+
−
	    return -1;+
−
	}+
−
    }+
−
    else if (cmd != ELF_C_FDDONE) {+
−
	seterr(ERROR_INVALID_CMD);+
−
	return -1;+
−
    }+
−
    if (elf->e_disabled) {+
−
	return 0;+
−
    }+
−
    if (elf->e_kind == ELF_K_AR) {+
−
	for (child = elf->e_members; child; child = child->e_link) {+
−
	    elf_assert(elf == child->e_parent);+
−
	    if (elf_cntl(child, cmd)) {+
−
		return -1;+
−
	    }+
−
	}+
−
    }+
−
    else if (elf->e_kind == ELF_K_ELF && cmd == ELF_C_FDREAD) {+
−
	if (!elf->e_ehdr && !_elf_cook(elf)) {+
−
	    return -1;+
−
	}+
−
	for (scn = elf->e_scn_1; scn; scn = scn->s_link) {+
−
	    if (scn->s_index == SHN_UNDEF || scn->s_type == SHT_NULL) {+
−
		continue;+
−
	    }+
−
	    else if (!elf_getdata(scn, NULL)) {+
−
		return -1;+
−
	    }+
−
	}+
−
    }+
−
    elf->e_disabled = 1;+
−
    return 0;+
−
}+
−