Update copyright to LGPL on all files
[dyninst.git] / symtabAPI / src / Archive-elf.C
1 /*
2  * Copyright (c) 1996-2009 Barton P. Miller
3  * 
4  * We provide the Paradyn Parallel Performance Tools (below
5  * described as "Paradyn") on an AS IS basis, and do not warrant its
6  * validity or performance.  We reserve the right to update, modify,
7  * or discontinue this software at any time.  We shall have no
8  * obligation to supply such updates or modifications or any other
9  * form of support to you.
10  * 
11  * By your use of Paradyn, you understand and agree that we (or any
12  * other person or entity with proprietary rights in Paradyn) are
13  * under no obligation to provide either maintenance services,
14  * update services, notices of latent defects, or correction of
15  * defects for Paradyn.
16  * 
17  * This library is free software; you can redistribute it and/or
18  * modify it under the terms of the GNU Lesser General Public
19  * License as published by the Free Software Foundation; either
20  * version 2.1 of the License, or (at your option) any later version.
21  * 
22  * This library is distributed in the hope that it will be useful,
23  * but WITHOUT ANY WARRANTY; without even the implied warranty of
24  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
25  * Lesser General Public License for more details.
26  * 
27  * You should have received a copy of the GNU Lesser General Public
28  * License along with this library; if not, write to the Free Software
29  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
30  */
31
32 #include <ar.h>
33
34 #include "symtabAPI/h/Symtab.h"
35 #include "symtabAPI/h/Archive.h"
36 #include "symtabAPI/src/Object.h"
37
38 using namespace Dyninst;
39 using namespace Dyninst::SymtabAPI;
40
41 extern char errorLine[];
42
43 static SymtabError serr;
44 static std::string errMsg;
45
46 SymtabError Archive::getLastError()
47 {
48     return serr;
49 }
50
51 std::string Archive::printError(SymtabError serr)
52 {
53    switch (serr){
54       case Obj_Parsing:
55          return "Failed to parse the Archive"+errMsg;
56       case No_Such_Member:
57                 return "Member not found" + errMsg;
58       case Not_An_Archive:
59                 return "File is not an archive";
60       default:
61          return "Unknown Error";
62         }       
63 }               
64                        
65 Archive::Archive(std::string &filename, bool &err) :
66    basePtr(NULL)
67 {
68    mf  = MappedFile::createMappedFile(filename);
69    Elf_Cmd cmd = ELF_C_READ;
70    Elf_Arhdr *archdr;;
71    Elf_X *arf = new Elf_X(mf->getFD(), cmd);
72    if(elf_kind(arf->e_elfp()) != ELF_K_AR){
73        serr  = Not_An_Archive;
74        err = false;
75        return;
76    }
77    basePtr = (void *)arf;
78    Elf_X *newelf = new Elf_X(mf->getFD(), cmd, arf);
79    while(1){
80        if(!newelf->e_elfp())
81            break;
82        archdr = elf_getarhdr(newelf->e_elfp());
83        string member_name = archdr->ar_name;
84        if(elf_kind(newelf->e_elfp()) == ELF_K_ELF){
85            memberToOffsetMapping[member_name] = elf_getbase(newelf->e_elfp()) - sizeof(struct ar_hdr);
86            //parse it lazily
87            membersByName[member_name] = NULL;
88        }
89        Elf_X *elfhandle = arf->e_next(newelf);
90        newelf->end();
91        newelf = elfhandle;
92    }
93    err = true;
94 }
95
96 #if 0
97 //For elf looks like we need a file descriptor for parsing archives
98 //So return error unable to parse archive
99 Archive::Archive(char *mem_image, size_t size, bool &err) : basePtr(NULL)
100 {
101     err = false;
102 }
103 #endif
104
105
106
107 Archive::~Archive()
108 {
109    dyn_hash_map <std::string, Symtab *>::iterator iter = membersByName.begin();
110    for (; iter!=membersByName.end();iter++) {
111       if (iter->second)
112          delete (iter->second);
113    }
114    memberToOffsetMapping.clear();
115    for (unsigned i = 0; i < allArchives.size(); i++) {
116       if (allArchives[i] == this)
117          allArchives.erase(allArchives.begin()+i);
118    }
119
120    if (mf) 
121    {
122       MappedFile::closeMappedFile(mf);
123    }
124 }