#

# Copyright (c) 2004-2009 Nokia Corporation and/or its subsidiary(-ies).

# All rights reserved.

# This component and the accompanying materials are made available

# under the terms of the License "Eclipse Public License v1.0"

# which accompanies this distribution, and is available

# at the URL "http://www.eclipse.org/legal/epl-v10.html".

#

# Initial Contributors:

# Nokia Corporation - initial contribution.

#

# Contributors:

#

# Description: 

# Concatenate an extension ROM onto the core ROM.

# Works for ROMBUILD XIP ROMs and ROFSBUILD non-XIP ROMs

#

use strict;

if (@ARGV<2 || @ARGV>3)

	{

#........1.........2.........3.........4.........5.........6.........7.....

	print <<USAGE_EOF;

Usage:

  addextension  <kernelRom> <extensionRom> [<outputfile>]

If <extensionRom> doesn\'t exist, addextension will try concatenating

the <kernelrom> and <extensionrom> names.

If no <outputfile> is specified, the default is sys\$rom.bin

USAGE_EOF

	exit(1);

	}

my $kernelROM = @ARGV[0];

my $extensionROM = @ARGV[1];

my $outputfile = "sys\$rom.bin";

$outputfile = @ARGV[2] if (@ARGV==3);

open KERNEL, "<$kernelROM" or die "Cannot open $kernelROM";

binmode KERNEL;

if (!open EXTENSION, "<$extensionROM")

    {

    open EXTENSION , "<$kernelROM$extensionROM" or

	die "Cannot open $extensionROM or $kernelROM$extensionROM";

    $extensionROM = $kernelROM.$extensionROM;

    }

binmode EXTENSION;

open RESULT, ">$outputfile" or die "Cannot open $outputfile for output";

binmode RESULT;

print "Writing $kernelROM + $extensionROM to $outputfile\n";

my $reproheader = "";

read KERNEL, $reproheader, 256;

if ($reproheader !~ /^EPOC....ROM/)

	{

	seek KERNEL, 0, 0;  # No REPRO header, rewind back to the start

	$reproheader = "";

	}

my $kerneldata;

read KERNEL, $kerneldata, 4096;

my $kernelsize;

my $imagesize;

if ($kerneldata =~ /^ROFS/)

	{

	$imagesize = unpack "V", substr($kerneldata, 0x24, 4);

	$kernelsize = unpack "V", substr($kerneldata, 0x2c, 4);

	printf "ROFS size:              0x%08x ", ($imagesize);

	}

else

	{

	$kernelsize = unpack "V", substr($kerneldata, 0x90, 4);

	}

printf "\nCore ROM maximium size: 0x%08x", $kernelsize;

if ($reproheader ne "")

	{

	# Add REPRO header to output, but update image size

	my $tmp;

	read(EXTENSION, $tmp, 128);

	seek EXTENSION, 0, 0;

	my $extensionsize = unpack "V", substr($tmp, 0x10, 4);

	substr($reproheader, 0x18, 4) = pack "V", $extensionsize+$kernelsize;

	syswrite RESULT, $reproheader;

	}

$kernelsize -= syswrite RESULT, $kerneldata;

while (read(KERNEL, $kerneldata, 4096))

    {

    $kernelsize -= syswrite RESULT, $kerneldata, $kernelsize;

    }

close KERNEL;

# Pad the data to the full size of the kernel ROM image

$kerneldata = "\377\377\377\377";				# 4

$kerneldata = $kerneldata.$kerneldata.$kerneldata.$kerneldata;	# 16

$kerneldata = $kerneldata.$kerneldata.$kerneldata.$kerneldata;	# 64

$kerneldata = $kerneldata.$kerneldata.$kerneldata.$kerneldata;	# 256

$kerneldata = $kerneldata.$kerneldata.$kerneldata.$kerneldata;	# 1024

$kerneldata = $kerneldata.$kerneldata.$kerneldata.$kerneldata;	# 4096

while ($kernelsize > 0)

    {

    $kernelsize -= syswrite RESULT, $kerneldata, $kernelsize;

    }

# Stick the extension ROM on the end

my $extensiondata;

while (read(EXTENSION, $extensiondata, 4096))

    {

    syswrite RESULT, $extensiondata;

    }

close RESULT;