#!/usr/bin/env python3

import os
import re
import subprocess

def main():
    fd = open('build/ntsc-final/pd.z64', 'wb+')

    # The retail ROM contains truncated duplicates of some segments.
    # For example, the real boot segment is at 0x1000 - 0x3050, but the tail end
    # of it is repeated at 0x2ea6c - 0x30a60. The truncated parts are not read
    # by the ROM; they are likely a side effect of Rare's linker copying things
    # around in the ROM.
    write_binary(fd, 0x2ea1c, get_boot())
    write_binary(fd, 0x30a6c, get_lib()[:0x8df0])
    write_binary(fd, 0x157120, get_unknown())

    write_binary(fd, 0, get_header())
    write_binary(fd, 0x40, get_rspboot())
    write_binary(fd, 0x1000, get_boot())
    write_binary(fd, 0x3050, get_lib())
    write_binary(fd, 0x39850, get_gamedata())
    write_binary(fd, 0x4e850, get_inflate())
    write_binary(fd, 0x4fc40, get_gamezips())
    write_binary(fd, 0x7f2388, get_fonts())
    write_binary(fd, 0x80a250, get_sfxctl())
    write_binary(fd, 0x839dd0, get_sfxtbl())
    write_binary(fd, 0xcfbf30, get_seqctl())
    write_binary(fd, 0xd05f90, get_seqtbl())
    write_binary(fd, 0xe82000, get_midi())
    write_files(fd)
    write_binary(fd, 0x1d5ca00, get_filenames())
    write_binary(fd, 0x1d65f40, get_textures())
    fd.close()

def write_binary(fd, address, binary):
    fd.seek(address)
    fd.write(binary)

def get_header():
    binary = bytearray()
    binary.extend(b'\x80\x37\x12\x40') # Identifier
    binary.extend(b'\x00\x00\x00\x0f') # Clock rate
    binary.extend(b'\x80\x00\x10\x00') # Program counter
    binary.extend(b'\x00\x00\x14\x49') # Release address
    binary.extend(b'\x00\x00\x00\x00') # CRC 1
    binary.extend(b'\x00\x00\x00\x00') # CRC 2
    binary.extend(b'\x00\x00\x00\x00')
    binary.extend(b'\x00\x00\x00\x00')
    binary.extend(b'Perfect Dark        ')
    binary.extend(b'\x00\x00\x00\x00')
    binary.extend(b'\x00\x00\x00')
    binary.extend(b'NPDE')
    binary.extend(b'\x01')
    return binary

def get_rspboot():
    return getfilecontents('extracted/ntsc-final/ucode/rspboot.bin')

def get_boot():
    return getfilecontents('build/ntsc-final/ucode/boot.bin')

def get_lib():
    return zip('build/ntsc-final/ucode/lib.bin')

def get_gamedata():
    return zip('build/ntsc-final/ucode/gamedata.bin')

def get_inflate():
    return getfilecontents('build/ntsc-final/ucode/inflate.bin')

def get_gamezips():
    return getfilecontents('build/ntsc-final/ucode/gamezips.bin')

def get_unknown():
    return getfrombaserom(0x157120, 0x69b268)

def get_fonts():
    return getfrombaserom(0x7f2388, 0x17ec8)

def get_sfxctl():
    return getfilecontents('extracted/ntsc-final/audio/sfx.ctl')

def get_sfxtbl():
    return getfilecontents('extracted/ntsc-final/audio/sfx.tbl')

def get_seqctl():
    return getfilecontents('extracted/ntsc-final/audio/music.ctl')

def get_seqtbl():
    return getfilecontents('extracted/ntsc-final/audio/music.tbl')

def get_midi():
    return getfilecontents('extracted/ntsc-final/audio/sequences.bin')

def write_files(fd):
    start = getlinkervariable('_filesSegmentRomStart')
    end = getlinkervariable('_filesSegmentRomEnd')

    write_binary(fd, 0xed83a0, getfromldbin(start, end - start))

def get_filenames():
    return getfilecontents('build/ntsc-final/ucode/filenames.bin')

def get_textures():
    return getfrombaserom(0x01d65f40, 0x29a0c0)

def getfilecontents(filename):
    fd = open(filename, 'rb')
    binary = fd.read()
    fd.close()
    return binary

def getfrombaserom(offset, len):
    fd = open('pd.ntsc-final.z64', 'rb')
    fd.seek(offset)
    binary = fd.read(len)
    fd.close()
    return binary

def getfromldbin(offset, len):
    fd = open('build/ntsc-final/pd.bin', 'rb')
    fd.seek(offset)
    binary = fd.read(len)
    fd.close()
    return binary

def zip(filename):
    return subprocess.check_output(['tools/rarezip', filename])

def getlinkervariable(varname):
    if 'TOOLCHAIN' in os.environ:
        cmd = '%s-objdump' % os.environ['TOOLCHAIN']
    else:
        cmd = 'mips64-elf-objdump'

    objdump = subprocess.check_output([cmd, 'build/ntsc-final/pd.elf', '-t']).decode('utf-8')

    matches = re.findall(r'^([0-9a-f]+) .*? %s$' % varname, objdump, re.MULTILINE)
    return int(matches[0], 16)

main()