You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
98 lines
3.7 KiB
98 lines
3.7 KiB
/***************************************************************************
|
|
* Copyright (C) 2006-2007 Nicolas Hadacek <hadacek@kde.org> *
|
|
* *
|
|
* This program is free software; you can redistribute it and/or modify *
|
|
* it under the terms of the GNU General Public License as published by *
|
|
* the Free Software Foundation; either version 2 of the License, or *
|
|
* (at your option) any later version. *
|
|
***************************************************************************/
|
|
#include "coff.h"
|
|
|
|
#include <time.h>
|
|
|
|
#include "common/common/misc.h"
|
|
#include "devices/list/device_list.h"
|
|
#include "devices/base/device_group.h"
|
|
#include "devices/pic/base/pic_register.h"
|
|
#include "coff_data.h"
|
|
#include "common/global/pfile.h"
|
|
|
|
//----------------------------------------------------------------------------
|
|
const CoffType::Data CoffType::DATA[Nb_Types] = {
|
|
{ "archive", I18N_NOOP("Archive") },
|
|
{ "object", I18N_NOOP("Object") }
|
|
};
|
|
|
|
const Coff::Format::Data Coff::Format::DATA[Nb_Types] = {
|
|
{ 0, I18N_NOOP("Old Microchip"), 0x1234, { 20, 16, 40, 18, 16, 12 } },
|
|
{ 0, I18N_NOOP("PIC30"), 0x1236, { 20, 28, 40, 18, 8, 10 } }, // from PIC30 binutils "coff.h" file
|
|
{ 0, I18N_NOOP("New Microchip"), 0x1240, { 20, 18, 40, 20, 16, 12 } } // (C18 >= 3.0)
|
|
};
|
|
|
|
CoffType Coff::identify(const PURL::Url &url, Log::Base &log)
|
|
{
|
|
PURL::File file(url, log);
|
|
if ( !file.openForRead() ) return CoffType::Nb_Types;
|
|
TQByteArray data = file.readAll();
|
|
if ( log.hasError() ) return CoffType::Nb_Types;
|
|
uint offset = 0;
|
|
Format format;
|
|
TQ_UINT32 magic;
|
|
return identify(data, offset, log, format, magic);
|
|
}
|
|
|
|
CoffType Coff::identify(const TQByteArray &data, uint &offset, Log::Base &log, Format &format, TQ_UINT32 &magic)
|
|
{
|
|
TQString id = "!<arch>\012";
|
|
if ( data.count()>=id.length() ) {
|
|
TQString s = TQString::fromAscii(data.data(), id.length());
|
|
if ( s==id ) {
|
|
offset += id.length();
|
|
return CoffType::Archive;
|
|
}
|
|
}
|
|
if ( !getULong(data, offset, 2, log, magic) ) return CoffType::Nb_Types;
|
|
log.log(Log::DebugLevel::Extra, TQString("COFF format: %1").tqarg(toHexLabel(magic, 4)));
|
|
format = Format::Nb_Types;
|
|
FOR_EACH(Format, f) if ( magic==f.data().magic ) format = f;
|
|
return CoffType::Object;
|
|
}
|
|
|
|
//----------------------------------------------------------------------------
|
|
bool Coff::getULong(const TQByteArray &data, uint &offset, uint nbBytes, Log::Base &log, TQ_UINT32 &v)
|
|
{
|
|
bool ok;
|
|
v = ::getULong(data, offset, nbBytes, &ok);
|
|
if ( !ok ) {
|
|
log.log(Log::LineType::Error, i18n("COFF file is truncated (offset: %1 nbBytes: %2 size:%3).").tqarg(offset).tqarg(nbBytes).tqarg(data.count()));
|
|
return false;
|
|
}
|
|
offset += nbBytes;
|
|
return true;
|
|
}
|
|
|
|
bool Coff::getString(const TQByteArray &data, uint &offset, uint nbChars, Log::Base &log, TQString &name)
|
|
{
|
|
if ( !checkAvailable(data, offset, nbChars) ) {
|
|
log.log(Log::LineType::Error, i18n("COFF file is truncated (offset: %1 nbBytes: %2 size:%3).").tqarg(offset).tqarg(nbChars).tqarg(data.count()));
|
|
return false;
|
|
}
|
|
name = TQString::fromAscii(data.data()+offset, nbChars);
|
|
offset += nbChars;
|
|
return true;
|
|
}
|
|
|
|
//----------------------------------------------------------------------------
|
|
bool Coff::Base::initParse(CoffType type, TQByteArray &data, uint &offset, Log::Base &log)
|
|
{
|
|
PURL::File file(_url, log);
|
|
if ( !file.openForRead() ) return false;
|
|
data = file.readAll();
|
|
if ( log.hasError() ) return false;
|
|
if ( identify(data, offset, log, _format, _magic)!=type ) {
|
|
log.log(Log::LineType::Error, i18n("Could not recognize file (magic number is %1).").tqarg(toHexLabel(_magic, 4)));
|
|
return false;
|
|
}
|
|
return true;
|
|
}
|