wine/tools/winedump/lib.c
2015-04-03 11:22:10 +09:00

275 lines
9.1 KiB
C

/*
* 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;
}
}