| /* |
| * 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 |
| |
| #include "windef.h" |
| #include "winbase.h" |
| #include "winnt.h" |
| |
| #include "winedump.h" |
| |
| static inline USHORT ushort_bswap(USHORT s) |
| { |
| return (s >> 8) | (s << 8); |
| } |
| |
| static inline ULONG ulong_bswap(ULONG l) |
| { |
| return ((ULONG)ushort_bswap((USHORT)l) << 16) | ushort_bswap((USHORT)(l >> 16)); |
| } |
| |
| static void dump_import_object(const IMPORT_OBJECT_HEADER *ioh) |
| { |
| if (ioh->Version == 0) |
| { |
| 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) |
| { |
| BOOL first_linker_member = TRUE; |
| unsigned long cur_file_pos, long_names_size = 0; |
| const IMAGE_ARCHIVE_MEMBER_HEADER *iamh; |
| const char *long_names = NULL; |
| |
| cur_file_pos = IMAGE_ARCHIVE_START_SIZE; |
| |
| for (;;) |
| { |
| const IMPORT_OBJECT_HEADER *ioh; |
| unsigned 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", first_linker_member ? "1st" : "2nd"); |
| } |
| else |
| { |
| if (long_names && iamh->Name[0] == '/') |
| { |
| unsigned long long_names_offset = atol((const char *)&iamh->Name[1]); |
| if (long_names_offset < long_names_size) |
| printf("%s\n", long_names + long_names_offset); |
| } |
| 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 */ |
| |
| 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))) |
| { |
| const DWORD *offset = (const DWORD *)ioh; |
| const char *name; |
| DWORD i, count; |
| |
| if (first_linker_member) /* 1st archive linker member, BE format */ |
| { |
| count = ulong_bswap(*offset++); |
| name = (const char *)(offset + count); |
| printf("%u public symbols\n", count); |
| for (i = 0; i < count; i++) |
| { |
| printf("%8x %s\n", ulong_bswap(offset[i]), name); |
| name += strlen(name) + 1; |
| } |
| printf("\n"); |
| } |
| else /* 2nd archive linker member, LE format */ |
| { |
| const WORD *idx; |
| |
| count = *offset++; |
| printf("%u offsets\n", count); |
| for (i = 0; i < count; i++) |
| { |
| printf("%8x %8x\n", i, offset[i]); |
| } |
| printf("\n"); |
| |
| offset += count; |
| count = *offset++; |
| idx = (const WORD *)offset; |
| name = (const char *)(idx + count); |
| printf("%u public symbols\n", count); |
| for (i = 0; i < count; i++) |
| { |
| printf("%8x %s\n", idx[i], name); |
| name += strlen(name) + 1; |
| } |
| printf("\n"); |
| } |
| } |
| else if (!strncmp((const char *)iamh->Name, IMAGE_ARCHIVE_LONGNAMES_MEMBER, sizeof(iamh->Name))) |
| { |
| long_names = PRD(cur_file_pos, size); |
| long_names_size = size; |
| } |
| else |
| { |
| unsigned 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); |
| } |
| |
| first_linker_member = FALSE; |
| cur_file_pos += size; |
| } |
| } |