generate images for old CFE based boards like the Davolink DV201
authorFlorian Fainelli <florian@openwrt.org>
Thu, 29 Jan 2009 14:56:45 +0000 (14:56 +0000)
committerFlorian Fainelli <florian@openwrt.org>
Thu, 29 Jan 2009 14:56:45 +0000 (14:56 +0000)
SVN-Revision: 14264

scripts/brcmImage.pl [new file with mode: 0644]
target/linux/brcm63xx/image/Makefile

diff --git a/scripts/brcmImage.pl b/scripts/brcmImage.pl
new file mode 100644 (file)
index 0000000..9a3acb4
--- /dev/null
@@ -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);
+
index 883c6e5e2cdc6926d1458b91d437d845e1d3f4a9..c9a728bbf294a9be956f81ce53a9f9b03f0153cd 100644 (file)
@@ -45,6 +45,14 @@ define Image/Build/RedBoot
        dd if=$(KDIR)/vmlinux.bin.gz of=$(BIN_DIR)/openwrt-$(1)-vmlinux.gz bs=65536 conv=sync
 endef
 
+define Image/Build/CFEOLD
+       $(TOPDIR)/scripts/brcmImage.pl -t -p    \
+               -b $(2) -c $(3)                 \
+               -k $(KDIR)/vmlinux.lzma.cfe     \
+               -r $(KDIR)/root.$(1)            \
+               -o $(BIN_DIR)/openwrt-$(2)-$(1)-cfe.bin
+endef
+
 define Build/Clean
        $(MAKE) -C lzma-loader clean
 endef
@@ -86,6 +94,8 @@ define Image/Build
        $(call Image/Build/CFE,$(1),96358VW,6358)
        # Comtrend 536
        $(call Image/Build/CFE,$(1),96348GW-11,6348)
+       # Davolink DV201AMR
+       $(call Image/Build/CFEOLD,$(1),DV201AMR,6348)
        # DG834GT
        $(call Image/Build/CFE,$(1),96348GW-10,6348)
        # Sagem F@ST2404