| /* |
| * Dump a COFF library (lib) file |
| * |
| * Copyright 2006 Dmitry Timoshkov |
| * |
| * This library is free software; you can redistribute it and/or |
| * modify it under the terms of the GNU Lesser General Public |
| * License as published by the Free Software Foundation; either |
| * version 2.1 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 |
| * Lesser General Public License for more details. |
| * |
| * You should have received a copy of the GNU Lesser General Public |
| * License along with this library; if not, write to the Free Software |
| * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA |
| */ |
| |
| #include "config.h" |
| #include "wine/port.h" |
| |
| #include <stdarg.h> |
| #include <stdio.h> |
| #include <stdlib.h> |
| #ifdef HAVE_UNISTD_H |
| # include <unistd.h> |
| #endif |
| #ifdef HAVE_SYS_TYPES_H |
| # include <sys/types.h> |
| #endif |
| #ifdef HAVE_SYS_MMAN_H |
| #include <sys/mman.h> |
| #endif |
| #include <fcntl.h> |
| |
| #define NONAMELESSUNION |
| #define NONAMELESSSTRUCT |
| #include "windef.h" |
| #include "winbase.h" |
| #include "winnt.h" |
| |
| #include "winedump.h" |
| |
| static void dump_import_object(const IMPORT_OBJECT_HEADER *ioh) |
| { |
| if (ioh->Version >= 1) |
| { |
| #if 0 /* FIXME: supposed to handle uuid.lib but it doesn't */ |
| const ANON_OBJECT_HEADER *aoh = (const ANON_OBJECT_HEADER *)ioh; |
| |
| printf("CLSID {%08x-%04x-%04x-%02X%02X-%02X%02X%02X%02X%02X%02X}", |
| aoh->ClassID.Data1, aoh->ClassID.Data2, aoh->ClassID.Data3, |
| aoh->ClassID.Data4[0], aoh->ClassID.Data4[1], aoh->ClassID.Data4[2], aoh->ClassID.Data4[3], |
| aoh->ClassID.Data4[4], aoh->ClassID.Data4[5], aoh->ClassID.Data4[6], aoh->ClassID.Data4[7]); |
| #endif |
| } |
| else |
| { |
| static const char * const obj_type[] = { "code", "data", "const" }; |
| static const char * const name_type[] = { "ordinal", "name", "no prefix", "undecorate" }; |
| const char *name; |
| |
| printf(" Version : %X\n", ioh->Version); |
| printf(" Machine : %X (%s)\n", ioh->Machine, get_machine_str(ioh->Machine)); |
| printf(" TimeDateStamp: %08X %s\n", ioh->TimeDateStamp, get_time_str(ioh->TimeDateStamp)); |
| printf(" SizeOfData : %08X\n", ioh->SizeOfData); |
| name = (const char *)ioh + sizeof(*ioh); |
| printf(" DLL name : %s\n", name + strlen(name) + 1); |
| printf(" Symbol name : %s\n", name); |
| printf(" Type : %s\n", (ioh->Type < sizeof(obj_type)/sizeof(obj_type[0])) ? obj_type[ioh->Type] : "unknown"); |
| printf(" Name type : %s\n", (ioh->NameType < sizeof(name_type)/sizeof(name_type[0])) ? name_type[ioh->NameType] : "unknown"); |
| printf(" %-13s: %u\n", (ioh->NameType == IMPORT_OBJECT_ORDINAL) ? "Ordinal" : "Hint", ioh->u.Ordinal); |
| printf("\n"); |
| } |
| } |
| |
| static void dump_long_import(const void *base, const IMAGE_SECTION_HEADER *ish, unsigned num_sect) |
| { |
| unsigned i; |
| const DWORD *imp_data5 = NULL; |
| const WORD *imp_data6 = NULL; |
| |
| if (globals.do_dumpheader) |
| printf("Section Table\n"); |
| |
| for (i = 0; i < num_sect; i++) |
| { |
| if (globals.do_dumpheader) |
| dump_section(&ish[i], NULL); |
| |
| if (globals.do_dump_rawdata) |
| { |
| dump_data((const unsigned char *)base + ish[i].PointerToRawData, ish[i].SizeOfRawData, " " ); |
| printf("\n"); |
| } |
| |
| if (!strcmp((const char *)ish[i].Name, ".idata$5")) |
| { |
| imp_data5 = (const DWORD *)((const char *)base + ish[i].PointerToRawData); |
| } |
| else if (!strcmp((const char *)ish[i].Name, ".idata$6")) |
| { |
| imp_data6 = (const WORD *)((const char *)base + ish[i].PointerToRawData); |
| } |
| else if (globals.do_debug && !strcmp((const char *)ish[i].Name, ".debug$S")) |
| { |
| const char *imp_debugS = (const char *)base + ish[i].PointerToRawData; |
| |
| codeview_dump_symbols(imp_debugS, ish[i].SizeOfRawData); |
| printf("\n"); |
| } |
| } |
| |
| if (imp_data5) |
| { |
| WORD ordinal = 0; |
| const char *name = NULL; |
| |
| if (imp_data5[0] & 0x80000000) |
| ordinal = (WORD)(imp_data5[0] & ~0x80000000); |
| |
| if (imp_data6) |
| { |
| if (!ordinal) ordinal = imp_data6[0]; |
| name = (const char *)(imp_data6 + 1); |
| } |
| else |
| { |
| /* FIXME: find out a name in the section's data */ |
| } |
| |
| if (ordinal) |
| { |
| printf(" Symbol name : %s\n", name ? name : "(ordinal import) /* FIXME */"); |
| printf(" %-13s: %u\n", (imp_data5[0] & 0x80000000) ? "Ordinal" : "Hint", ordinal); |
| printf("\n"); |
| } |
| } |
| } |
| |
| enum FileSig get_kind_lib(void) |
| { |
| const char* arch = PRD(0, IMAGE_ARCHIVE_START_SIZE); |
| if (arch && !strncmp(arch, IMAGE_ARCHIVE_START, IMAGE_ARCHIVE_START_SIZE)) |
| return SIG_COFFLIB; |
| return SIG_UNKNOWN; |
| } |
| |
| void lib_dump(void) |
| { |
| long cur_file_pos; |
| const IMAGE_ARCHIVE_MEMBER_HEADER *iamh; |
| |
| cur_file_pos = IMAGE_ARCHIVE_START_SIZE; |
| |
| for (;;) |
| { |
| const IMPORT_OBJECT_HEADER *ioh; |
| long size; |
| |
| if (!(iamh = PRD(cur_file_pos, sizeof(*iamh)))) break; |
| |
| if (globals.do_dumpheader) |
| { |
| printf("Archive member name at %08lx\n", Offset(iamh)); |
| |
| printf("Name %.16s", iamh->Name); |
| if (!strncmp((const char *)iamh->Name, IMAGE_ARCHIVE_LINKER_MEMBER, sizeof(iamh->Name))) |
| { |
| printf(" - %s archive linker member\n", |
| cur_file_pos == IMAGE_ARCHIVE_START_SIZE ? "1st" : "2nd"); |
| } |
| else |
| printf("\n"); |
| printf("Date %.12s %s\n", iamh->Date, get_time_str(strtoul((const char *)iamh->Date, NULL, 10))); |
| printf("UserID %.6s\n", iamh->UserID); |
| printf("GroupID %.6s\n", iamh->GroupID); |
| printf("Mode %.8s\n", iamh->Mode); |
| printf("Size %.10s\n\n", iamh->Size); |
| } |
| |
| cur_file_pos += sizeof(IMAGE_ARCHIVE_MEMBER_HEADER); |
| |
| size = strtoul((const char *)iamh->Size, NULL, 10); |
| size = (size + 1) & ~1; /* align to an even address */ |
| |
| /* FIXME: only import library contents with the short format are |
| * recognized. |
| */ |
| if (!(ioh = PRD(cur_file_pos, sizeof(*ioh)))) break; |
| if (ioh->Sig1 == IMAGE_FILE_MACHINE_UNKNOWN && ioh->Sig2 == IMPORT_OBJECT_HDR_SIG2) |
| { |
| dump_import_object(ioh); |
| } |
| else if (strncmp((const char *)iamh->Name, IMAGE_ARCHIVE_LINKER_MEMBER, sizeof(iamh->Name))) |
| { |
| long expected_size; |
| const IMAGE_FILE_HEADER *fh = (const IMAGE_FILE_HEADER *)ioh; |
| |
| if (globals.do_dumpheader) |
| { |
| dump_file_header(fh); |
| if (fh->SizeOfOptionalHeader) |
| { |
| const IMAGE_OPTIONAL_HEADER32 *oh = (const IMAGE_OPTIONAL_HEADER32 *)((const char *)fh + sizeof(*fh)); |
| dump_optional_header(oh, fh->SizeOfOptionalHeader); |
| } |
| } |
| /* Sanity check */ |
| expected_size = sizeof(*fh) + fh->SizeOfOptionalHeader + fh->NumberOfSections * sizeof(IMAGE_SECTION_HEADER); |
| if (size > expected_size) |
| dump_long_import(fh, (const IMAGE_SECTION_HEADER *)((const char *)fh + sizeof(*fh) + fh->SizeOfOptionalHeader), fh->NumberOfSections); |
| } |
| |
| cur_file_pos += size; |
| } |
| } |