163 lines
3.8 KiB
Perl
Executable File
163 lines
3.8 KiB
Perl
Executable File
#!/usr/bin/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);
|
|
|