#!/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);