fw_builder/bundle-tools/extract_head.pl

#!/usr/bin/perl
#
# This script extracts the header bytes of an original format, needed by fwpack
# Copyright (C) 2005  Wilmer van der Gaast <wilmer@gaast.net>
# 
# This program is free software; you can redistribute it and/or
# modify it under the terms of the second version of the GNU
# General Public License as published by the Free Software
# Foundation.
# 
# 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., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
#

@imgs = <*.WYE *.CPQ *.wye *.cpq>;
if( scalar( @ARGV ) >= 1 )
{
	$fn = $ARGV[0];
}
elsif( scalar( @imgs ) == 0 )
{
	print( 'Hmm, can\'t find any possible firmware bundle file. Please pass one as an' . "\n" .
	       'argument or copy it to this directory.' . "\n" );
	exit( 1 );
}
elsif( scalar( @imgs ) > 1 )
{
	print( 'Found the following firmware bundles:' . "\n" .
	       join( ' ', @imgs ) . "\n" .
	       'Which one should be used to copy the headers?' . "\n" );
	chomp( $fn = <STDIN> );
}
else
{
	$fn = $imgs[0];
}

open( IMG, '<', $fn ) or die( 'Can\'t open input file ' . $fn );
$n = sysread( IMG, $head, 0x59 );
close( IMG );

if( substr( $head, 3, 4 ) ne 'BndL' )
{
	print( STDERR 'Hmm, that doesn\'t look like a bundle file!' . "\n" );
}

if( ord( substr( $head, 0xf, 1 ) ) == 0 )
{
	print( STDERR 'Hmm, that looks like an add-on bundle file!' . "\n" );
}

## Let's just set these to something bogus, fwpack is supposed to fill them in.
substr( $head, 0x13, 4 ) = pack( 'cccc', 0xaa, 0xaa, 0xaa, 0xaa );
substr( $head, 0x37, 8 ) = pack( 'cccccccc', 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa );
@head = split( '', $head );

open( FWHEAD, '>', 'fwhead.h' ) or die( 'Can\'t open output file fwhead.h' );
print( FWHEAD '/* Auto-generated from ' . $fn . ' */' . "\n" );
print( FWHEAD 'u_int8_t fhead[0x59] = { ' );
for $i ( 0 .. ( scalar( @head ) - 1 ) )
{
	printf( FWHEAD '0x%02x', ord $head[$i] );
	if( $i < ( scalar( @head ) - 1 ) )
	{
		print( FWHEAD ',' );
	}
	if( ( $i % 16 ) == 15 )
	{
		$n = 0;
		print( FWHEAD "\n" . ( ' ' x 25 ) );
	}
	else
	{
		print( FWHEAD ' ' );
	}
}
print( FWHEAD '};' . "\n" );
close( FWHEAD );

print( 'fwhead.h successfully created' . "\n" );
1	niro	658	#!/usr/bin/perl
2			#
3			# This script extracts the header bytes of an original format, needed by fwpack
4			# Copyright (C) 2005 Wilmer van der Gaast <wilmer@gaast.net>
5			#
6			# This program is free software; you can redistribute it and/or
7			# modify it under the terms of the second version of the GNU
8			# General Public License as published by the Free Software
9			# Foundation.
10			#
11			# This program is distributed in the hope that it will be useful,
12			# but WITHOUT ANY WARRANTY; without even the implied warranty of
13			# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14			# GNU General Public License for more details.
15			#
16			# You should have received a copy of the GNU General Public License
17			# along with this program; if not, write to the Free Software
18			# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
19			#
20
21			@imgs = <.WYE .CPQ .wye .cpq>;
22			if( scalar( @ARGV ) >= 1 )
23			{
24			$fn = $ARGV[0];
25			}
26			elsif( scalar( @imgs ) == 0 )
27			{
28			print( 'Hmm, can\'t find any possible firmware bundle file. Please pass one as an' . "\n" .
29			'argument or copy it to this directory.' . "\n" );
30			exit( 1 );
31			}
32			elsif( scalar( @imgs ) > 1 )
33			{
34			print( 'Found the following firmware bundles:' . "\n" .
35			join( ' ', @imgs ) . "\n" .
36			'Which one should be used to copy the headers?' . "\n" );
37			chomp( $fn = <STDIN> );
38			}
39			else
40			{
41			$fn = $imgs[0];
42			}
43
44			open( IMG, '<', $fn ) or die( 'Can\'t open input file ' . $fn );
45			$n = sysread( IMG, $head, 0x59 );
46			close( IMG );
47
48			if( substr( $head, 3, 4 ) ne 'BndL' )
49			{
50			print( STDERR 'Hmm, that doesn\'t look like a bundle file!' . "\n" );
51			}
52
53			if( ord( substr( $head, 0xf, 1 ) ) == 0 )
54			{
55			print( STDERR 'Hmm, that looks like an add-on bundle file!' . "\n" );
56			}
57
58			## Let's just set these to something bogus, fwpack is supposed to fill them in.
59			substr( $head, 0x13, 4 ) = pack( 'cccc', 0xaa, 0xaa, 0xaa, 0xaa );
60			substr( $head, 0x37, 8 ) = pack( 'cccccccc', 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa );
61			@head = split( '', $head );
62
63			open( FWHEAD, '>', 'fwhead.h' ) or die( 'Can\'t open output file fwhead.h' );
64			print( FWHEAD '/* Auto-generated from ' . $fn . ' */' . "\n" );
65			print( FWHEAD 'u_int8_t fhead[0x59] = { ' );
66			for $i ( 0 .. ( scalar( @head ) - 1 ) )
67			{
68			printf( FWHEAD '0x%02x', ord $head[$i] );
69			if( $i < ( scalar( @head ) - 1 ) )
70			{
71			print( FWHEAD ',' );
72			}
73			if( ( $i % 16 ) == 15 )
74			{
75			$n = 0;
76			print( FWHEAD "\n" . ( ' ' x 25 ) );
77			}
78			else
79			{
80			print( FWHEAD ' ' );
81			}
82			}
83			print( FWHEAD '};' . "\n" );
84			close( FWHEAD );
85
86			print( 'fwhead.h successfully created' . "\n" );