mirror of
https://frontier.innolan.net/github/amigaos-cross-toolchain6.git
synced 2024-10-19 10:29:55 +00:00
Tool for dumping Amiga Hunk file structure.
This commit is contained in:
Krystian Bacławski
263
tools/dumphunks.py
Executable file
263
tools/dumphunks.py
Executable file
@ -0,0 +1,263 @@
|
||||
#!/usr/bin/env python
|
||||
|
||||
from collections import namedtuple
|
||||
import inspect
|
||||
import struct
|
||||
import sys
|
||||
|
||||
|
||||
class HunkMap(object):
|
||||
# Any hunks that have the HUNKB_ADVISORY bit set will be ignored if they
|
||||
# aren't understood. When ignored, they're treated like HUNK_DEBUG hunks.
|
||||
# NOTE: this handling of HUNKB_ADVISORY started as of V39 dos.library! If
|
||||
# lading such executables is attempted under <V39 dos, it will fail with a
|
||||
# bad hunk type.
|
||||
HUNKB_ADVISORY = 29
|
||||
HUNKB_CHIP = 30
|
||||
HUNKB_FAST = 31
|
||||
HUNKF_ADVISORY = 1 << HUNKB_ADVISORY
|
||||
HUNKF_CHIP = 1 << HUNKB_CHIP
|
||||
HUNKF_FAST = 1 << HUNKB_FAST
|
||||
|
||||
HUNK_UNIT = 999
|
||||
HUNK_NAME = 1000
|
||||
HUNK_CODE = 1001
|
||||
HUNK_DATA = 1002
|
||||
HUNK_BSS = 1003
|
||||
HUNK_RELOC32 = 1004
|
||||
HUNK_RELOC16 = 1005
|
||||
HUNK_RELOC8 = 1006
|
||||
HUNK_EXT = 1007
|
||||
HUNK_SYMBOL = 1008
|
||||
HUNK_DEBUG = 1009
|
||||
HUNK_END = 1010
|
||||
HUNK_HEADER = 1011
|
||||
HUNK_OVERLAY = 1013
|
||||
HUNK_BREAK = 1014
|
||||
HUNK_DREL32 = 1015
|
||||
HUNK_DREL16 = 1016
|
||||
HUNK_DREL8 = 1017
|
||||
HUNK_LIB = 1018
|
||||
HUNK_INDEX = 1019
|
||||
HUNK_RELOC32SHORT = 1020
|
||||
HUNK_RELRELOC32 = 1021
|
||||
HUNK_ABSRELOC16 = 1022
|
||||
|
||||
@classmethod
|
||||
def GetName(cls, number):
|
||||
number &= 0x1fffffff
|
||||
|
||||
for name, value in inspect.getmembers(cls):
|
||||
if name.startswith('HUNK_'):
|
||||
if value == number:
|
||||
return name
|
||||
|
||||
raise ValueError('Unknown Hunk: %d' % number)
|
||||
|
||||
@classmethod
|
||||
def GetFlags(cls, number):
|
||||
flags = []
|
||||
|
||||
for name, value in inspect.getmembers(cls):
|
||||
if name.startswith('HUNKF_'):
|
||||
if value & number:
|
||||
flags.append(name)
|
||||
|
||||
return flags
|
||||
|
||||
|
||||
class HunkExtMap(object):
|
||||
EXT_SYMB = 0 # symbol table
|
||||
EXT_DEF = 1 # relocatable definition
|
||||
EXT_ABS = 2 # Absolute definition
|
||||
EXT_RES = 3 # no longer supported
|
||||
EXT_REF32 = 129 # 32 bit absolute reference to symbol
|
||||
EXT_COMMON = 130 # 32 bit absolute reference to COMMON block
|
||||
EXT_REF16 = 131 # 16 bit PC-relative reference to symbol
|
||||
EXT_REF8 = 132 # 8 bit PC-relative reference to symbol
|
||||
EXT_DEXT32 = 133 # 32 bit data relative reference
|
||||
EXT_DEXT16 = 134 # 16 bit data relative reference
|
||||
EXT_DEXT8 = 135 # 8 bit data relative reference
|
||||
EXT_RELREF32 = 136 # 32 bit PC-relative reference to symbol
|
||||
EXT_RELCOMMON = 137 # 32 bit PC-relative reference to COMMON block
|
||||
EXT_ABSREF16 = 138 # 16 bit absolute reference to symbol
|
||||
EXT_ABSREF8 = 139 # 8 bit absolute reference to symbol
|
||||
|
||||
@classmethod
|
||||
def GetName(cls, number):
|
||||
for name, value in inspect.getmembers(cls):
|
||||
if name.startswith('EXT_'):
|
||||
if value == number:
|
||||
return name
|
||||
raise ValueError('Unknown HunkExt: %d' % number)
|
||||
|
||||
|
||||
class Hunk(namedtuple('Hunk', 'name data flags')):
|
||||
def __repr__(self):
|
||||
if self.data:
|
||||
if self.flags:
|
||||
flags = ', flags=%s' % '|'.join(self.flags)
|
||||
else:
|
||||
flags = ''
|
||||
return '%s(%r%s)' % (self.name, self.data, flags)
|
||||
else:
|
||||
return self.name
|
||||
|
||||
|
||||
Header = namedtuple('Header', 'residents hunks first last specifiers')
|
||||
|
||||
|
||||
class HunkParser(object):
|
||||
def __init__(self, hunkfile):
|
||||
self.data = hunkfile.read()
|
||||
self.index = 0
|
||||
|
||||
def ReadLong(self):
|
||||
data = struct.unpack('>I', self.data[self.index : self.index + 4])[0]
|
||||
self.index += 4
|
||||
return data
|
||||
|
||||
def ReadInt(self):
|
||||
data = struct.unpack('>i', self.data[self.index : self.index + 4])[0]
|
||||
self.index += 4
|
||||
return data
|
||||
|
||||
def ReadBytes(self, n = None):
|
||||
if n is None:
|
||||
n = self.ReadLong() * 4
|
||||
data = self.data[self.index : self.index + n]
|
||||
self.index += n
|
||||
return data
|
||||
|
||||
def ReadString(self, n = None):
|
||||
return self.ReadBytes(n).strip('\0')
|
||||
|
||||
def ReadSymbol(self, length):
|
||||
symbol = self.ReadString(length)
|
||||
value = self.ReadInt()
|
||||
return {symbol : value}
|
||||
|
||||
def ReadSymbols(self):
|
||||
symbols = []
|
||||
|
||||
while True:
|
||||
length = self.ReadLong() * 4
|
||||
|
||||
if not length:
|
||||
break
|
||||
|
||||
symbols.append(self.ReadSymbol(length))
|
||||
|
||||
return symbols
|
||||
|
||||
def ReadSymbolRefs(self, length):
|
||||
symbol = self.ReadString(length)
|
||||
count = self.ReadLong()
|
||||
refs = [self.ReadLong() for i in range(count)]
|
||||
return {symbol : refs}
|
||||
|
||||
def ReadHunkExt(self):
|
||||
hunks = []
|
||||
|
||||
while True:
|
||||
longs = self.ReadLong()
|
||||
|
||||
if not longs:
|
||||
break
|
||||
|
||||
length = (longs & 0xffffff) * 4
|
||||
extName = HunkExtMap.GetName(longs >> 24)
|
||||
|
||||
if extName in ['EXT_DEF', 'EXT_ABS', 'EXT_REL']:
|
||||
data = self.ReadSymbol(length)
|
||||
elif extName in ['EXT_REF32', 'EXT_REF16', 'EXT_REF8',
|
||||
'EXT_DEXT32', 'EXT_DEXT16', 'EXT_DEXT8']:
|
||||
data = self.ReadSymbolRefs(length)
|
||||
else:
|
||||
raise NotImplementedError('%s not handled.' % extName)
|
||||
|
||||
hunks.append(Hunk(extName, data, 0))
|
||||
|
||||
return hunks
|
||||
|
||||
def ReadRelocs(self):
|
||||
relocs = {}
|
||||
|
||||
while True:
|
||||
longs = self.ReadLong()
|
||||
|
||||
if not longs:
|
||||
break
|
||||
|
||||
hunkRef = self.ReadLong()
|
||||
offsets = [self.ReadLong() for i in range(longs)]
|
||||
relocs.update({hunkRef : offsets})
|
||||
|
||||
return relocs
|
||||
|
||||
def ReadHeader(self):
|
||||
residents = []
|
||||
|
||||
while True:
|
||||
longs = self.ReadLong()
|
||||
|
||||
if not longs:
|
||||
break
|
||||
|
||||
residents.append(self.ReadString(longs * 4))
|
||||
|
||||
hunks = self.ReadLong()
|
||||
first = self.ReadLong()
|
||||
last = self.ReadLong()
|
||||
specifiers = [self.ReadLong() for i in range(last - first + 1)]
|
||||
|
||||
return Header(residents, hunks, first, last, specifiers)
|
||||
|
||||
def Parse(self):
|
||||
hunks = []
|
||||
|
||||
while self.index < len(self.data):
|
||||
hunkId = self.ReadLong()
|
||||
|
||||
try:
|
||||
flags = HunkMap.GetFlags(hunkId)
|
||||
name = HunkMap.GetName(hunkId)
|
||||
except ValueError:
|
||||
print 'Parse error at position %d.' % self.index
|
||||
raise
|
||||
|
||||
if name == 'HUNK_END':
|
||||
data = None
|
||||
elif name == 'HUNK_EXT':
|
||||
data = self.ReadHunkExt()
|
||||
elif name == 'HUNK_SYMBOL':
|
||||
data = self.ReadSymbols()
|
||||
elif name == 'HUNK_HEADER':
|
||||
data = self.ReadHeader()
|
||||
elif name in ['HUNK_NAME', 'HUNK_UNIT']:
|
||||
data = self.ReadString()
|
||||
elif name in ['HUNK_CODE', 'HUNK_DATA', 'HUNK_DEBUG', 'HUNK_INDEX']:
|
||||
data = self.ReadBytes()
|
||||
elif name in ['HUNK_BSS', 'HUNK_LIB']:
|
||||
data = self.ReadLong() * 4
|
||||
elif name in ['HUNK_RELOC32', 'HUNK_RELOC16', 'HUNK_RELOC8',
|
||||
'HUNK_DREL32', 'HUNK_DREL16', 'HUNK_DREL8']:
|
||||
data = self.ReadRelocs()
|
||||
else:
|
||||
raise NotImplementedError('%s not handled.' % name)
|
||||
|
||||
hunks.append(Hunk(name, data, flags))
|
||||
|
||||
return hunks
|
||||
|
||||
|
||||
for path in sys.argv[1:]:
|
||||
with open(path) as hunkfile:
|
||||
parser = HunkParser(hunkfile)
|
||||
for hunk in parser.Parse():
|
||||
if hunk.name == 'HUNK_EXT':
|
||||
print hunk.name
|
||||
for hunkExt in hunk.data:
|
||||
print ' ', hunkExt
|
||||
else:
|
||||
print hunk
|
||||
Reference in New Issue
Block a user