Florian Fainelli
16 years ago
parent
d7cb033a04
commit
c2c0d74f67
@ -0,0 +1,162 @@ |
|||||||
|
#!/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); |
||||||
|
|
||||||
Loading…
Reference in new issue