scripts/brcmImage.pl

   1 #!/usr/bin/perl
   2 #
   3 #    Copyright (C) 2009 Henk Vergonet <Henk.Vergonet@gmail.com>
   4 #
   5 #    This program is free software; you can redistribute it and/or modify
   6 #    it under the terms of the GNU General Public License as published by
   7 #    the Free Software Foundation; either version 2 of the License, or
   8 #    (at your option) any later version.
   9 #
  10 #    This program is distributed in the hope that it will be useful,
  11 #    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 #    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 #    GNU General Public License for more details.
  14 #
  15 #    You should have received a copy of the GNU General Public License
  16 #    along with this program; if not, write to the Free Software
  17 #    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18 #
  19
  20 # Description:
  21 #   Replacement for brcmImagebuilder
  22 #
  23 # Disclaimer:
  24 #   Use this software at your own risk.
  25 #
  26 # Changelog:
  27 #   2009-01-01  Henk.Vergonet at gmail.com
  28 #
  29 use strict;
  30 use Getopt::Std;
  31 use Compress::Zlib;
  32
  33 my $version = "0.1";
  34 my %arg = (
  35         o => 'bcm963xx_fs_kernel',
  36         b => 'OpenWrt',
  37         c => '6348',
  38         s => 64,
  39         f => 0xbfc00000,
  40         x => 0x00010000,
  41         a => 0x80010000,
  42         e => 0x80010000,
  43         i => 2,
  44 );
  45 my $prog = $0;
  46 $prog =~ s/^.*\///;
  47 getopts("r:k:o:lc:b:s:f:i:a:e:tpvh", \%arg);
  48
  49 die "usage: $prog ~opts~
  50
  51   -r <file>     : input rootfs file
  52   -k <file>     : input kernel file
  53   -o <file>     : output image file, default $arg{o}
  54   -l            : littleendian system, default ".($arg{l} ? 'yes' : 'no')."
  55   -c <chipid>   : default $arg{c}
  56   -b <boardid>  : default $arg{b}
  57   -s <size_kb>  : erase sise flash, default $arg{s}
  58   -f <baseaddr> : flash base, default ".sprintf('0x%x', $arg{f})."
  59   -x <cfelen>   : length of cfe, default ".sprintf('0x%x', $arg{x})."
  60   -i            : 2=dual image, default $arg{i}
  61
  62   -a <loadaddr> : Kernel load address, default ".sprintf('0x%x', $arg{a})."
  63   -e <entryaddr>: Kernel entry address, default ".sprintf('0x%x', $arg{e})."
  64   -t            : Prefix kernel with load,entry,size
  65
  66   -p            : Add a 'gOtO' partition
  67
  68   -v            : be more verbose
  69   -h            : help, version $version
  70
  71 EXAMPLES:
  72     $prog -k kern -r rootfs
  73 " if $arg{h} || !$arg{k} || !$arg{r};
  74
  75 sub Read_Image
  76 {
  77         open my $fh, $_[0] or die "open $_[0]: $!";
  78         local $/;       # Set input to "slurp" mode.
  79         my $buf = <$fh>;
  80         close $fh;
  81         return $buf;
  82 }
  83
  84 sub Padlen
  85 {
  86         my $p = $_[0] % $_[1];
  87         return ($p ? $_[1] - $p : 0);
  88 }
  89
  90 sub Pad
  91 {
  92         my ($buf, $off, $bs) = @_[0..2];
  93         $buf .= chr(255) x Padlen(length($buf) + $off, $bs);
  94         return $buf;
  95 }
  96
  97 sub bcmImage
  98 {
  99         my ($k, $f) = @_[0..1];
 100         my $tmp = $arg{x} + 0x100 + $arg{f};
 101
 102         # regular: rootfs+kernel
 103         my ($img, $fa, $ka) = ( $f.$k, $tmp, $tmp + length($f) );
 104
 105         # test: kernel+rootfs
 106 #       my ($img, $fa, $ka) = ( $k.$f, $tmp + length($k), $tmp );
 107
 108         $fa = 0 unless length($f);
 109
 110         my $hdr = pack("a4a20a14a6a16a2a10a12a10a12a10a12a10a2a2a74Na16",
 111                 '6',
 112                 'LinuxInside',
 113                 'ver. 2.0',
 114                 $arg{c},
 115                 $arg{b},
 116                 ($arg{l} ? '0' : '1'),
 117                 length($img),
 118                 '0',
 119                 '0',
 120                 $fa,
 121                 length($f),
 122                 $ka,
 123                 length($k),
 124                 ($arg{i}==2 ? '1' : '0'),
 125                 '',             # if 1, the image is INACTIVE; if 0, active
 126                 '',
 127                 ~crc32($k, crc32($f)),
 128                 '');
 129         $hdr .= pack('Na16', ~crc32($hdr), '');
 130
 131         printf "kernel at 0x%x length 0x%x(%u)\n", $ka, length($k), length($k)
 132                 if $arg{v};
 133         printf "rootfs at 0x%x length 0x%x(%u)\n", $fa, length($f), length($f)
 134                 if $arg{v};
 135
 136         open(FO, ">$arg{o}");
 137         print FO $hdr;
 138         print FO $img;
 139         close FO;
 140 }
 141
 142 # MAIN
 143
 144 my $kern = Read_Image $arg{k};
 145 my $root = Read_Image $arg{r};
 146
 147 $kern = pack('NNN', $arg{a}, $arg{e}, length($kern)).$kern if $arg{t};
 148
 149 # specific fixup for the CFE that expects rootfs-kernel order
 150 if ($arg{p}) {
 151         $kern = Pad($kern, 0x10c, $arg{s} * 1024);
 152         my $dummy_root = pack('a4NN',
 153                         'gOtO',
 154                         length($kern)+12,
 155                         length($root)+Padlen(length($root), $arg{s} * 1024)
 156         );
 157         $kern .= $root;
 158         $root = $dummy_root;
 159 }
 160
 161 bcmImage($kern, $root);
 162