openwrt/scripts/brcmImage.pl

163 lines
3.8 KiB
Perl
Executable File

#!/usr/bin/env perl
#
# Copyright (C) 2009 Henk Vergonet <Henk.Vergonet@gmail.com>
#
# 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.
#
# This program 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 General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
# Description:
# Replacement for brcmImagebuilder
#
# Disclaimer:
# Use this software at your own risk.
#
# Changelog:
# 2009-01-01 Henk.Vergonet at gmail.com
#
use strict;
use Getopt::Std;
use Compress::Zlib;
my $version = "0.1";
my %arg = (
o => 'bcm963xx_fs_kernel',
b => 'OpenWrt',
c => '6348',
s => 64,
f => 0xbfc00000,
x => 0x00010000,
a => 0x80010000,
e => 0x80010000,
i => 2,
);
my $prog = $0;
$prog =~ s/^.*\///;
getopts("r:k:o:lc:b:s:f:i:a:e:tpvh", \%arg);
die "usage: $prog ~opts~
-r <file> : input rootfs file
-k <file> : input kernel file
-o <file> : output image file, default $arg{o}
-l : littleendian system, default ".($arg{l} ? 'yes' : 'no')."
-c <chipid> : default $arg{c}
-b <boardid> : default $arg{b}
-s <size_kb> : erase sise flash, default $arg{s}
-f <baseaddr> : flash base, default ".sprintf('0x%x', $arg{f})."
-x <cfelen> : length of cfe, default ".sprintf('0x%x', $arg{x})."
-i : 2=dual image, default $arg{i}
-a <loadaddr> : Kernel load address, default ".sprintf('0x%x', $arg{a})."
-e <entryaddr>: Kernel entry address, default ".sprintf('0x%x', $arg{e})."
-t : Prefix kernel with load,entry,size
-p : Add a 'gOtO' partition
-v : be more verbose
-h : help, version $version
EXAMPLES:
$prog -k kern -r rootfs
" if $arg{h} || !$arg{k} || !$arg{r};
sub Read_Image
{
open my $fh, $_[0] or die "open $_[0]: $!";
local $/; # Set input to "slurp" mode.
my $buf = <$fh>;
close $fh;
return $buf;
}
sub Padlen
{
my $p = $_[0] % $_[1];
return ($p ? $_[1] - $p : 0);
}
sub Pad
{
my ($buf, $off, $bs) = @_[0..2];
$buf .= chr(255) x Padlen(length($buf) + $off, $bs);
return $buf;
}
sub bcmImage
{
my ($k, $f) = @_[0..1];
my $tmp = $arg{x} + 0x100 + $arg{f};
# regular: rootfs+kernel
my ($img, $fa, $ka) = ( $f.$k, $tmp, $tmp + length($f) );
# test: kernel+rootfs
# my ($img, $fa, $ka) = ( $k.$f, $tmp + length($k), $tmp );
$fa = 0 unless length($f);
my $hdr = pack("a4a20a14a6a16a2a10a12a10a12a10a12a10a2a2a74Na16",
'6',
'LinuxInside',
'ver. 2.0',
$arg{c},
$arg{b},
($arg{l} ? '0' : '1'),
length($img),
'0',
'0',
$fa,
length($f),
$ka,
length($k),
($arg{i}==2 ? '1' : '0'),
'', # if 1, the image is INACTIVE; if 0, active
'',
~crc32($k, crc32($f)),
'');
$hdr .= pack('Na16', ~crc32($hdr), '');
printf "kernel at 0x%x length 0x%x(%u)\n", $ka, length($k), length($k)
if $arg{v};
printf "rootfs at 0x%x length 0x%x(%u)\n", $fa, length($f), length($f)
if $arg{v};
open(FO, ">$arg{o}");
print FO $hdr;
print FO $img;
close FO;
}
# MAIN
my $kern = Read_Image $arg{k};
my $root = Read_Image $arg{r};
$kern = pack('NNN', $arg{a}, $arg{e}, length($kern)).$kern if $arg{t};
# specific fixup for the CFE that expects rootfs-kernel order
if ($arg{p}) {
$kern = Pad($kern, 0x10c, $arg{s} * 1024);
my $dummy_root = pack('a4NN',
'gOtO',
length($kern)+12,
length($root)+Padlen(length($root), $arg{s} * 1024)
);
$kern .= $root;
$root = $dummy_root;
}
bcmImage($kern, $root);