Commit | Line | Data |
---|---|---|
1da177e4 | 1 | #! /usr/bin/perl -w |
b2441318 | 2 | # SPDX-License-Identifier: GPL-2.0 |
1da177e4 LT |
3 | |
4 | ||
5 | # convert an Intel HEX file into a set of C records usable by the firmware | |
6 | # loading code in usb-serial.c (or others) | |
7 | ||
8 | # accepts the .hex file(s) on stdin, a basename (to name the initialized | |
9 | # array) as an argument, and prints the .h file to stdout. Typical usage: | |
10 | # perl ezusb_convert.pl foo <foo.hex >fw_foo.h | |
11 | ||
12 | ||
13 | my $basename = $ARGV[0]; | |
14 | die "no base name specified" unless $basename; | |
15 | ||
16 | while (<STDIN>) { | |
17 | # ':' <len> <addr> <type> <len-data> <crc> '\r' | |
18 | # len, type, crc are 2-char hex, addr is 4-char hex. type is 00 for | |
19 | # normal records, 01 for EOF | |
20 | my($lenstring, $addrstring, $typestring, $reststring, $doscrap) = | |
21 | /^:(\w\w)(\w\w\w\w)(\w\w)(\w+)(\r?)$/; | |
22 | die "malformed line: $_" unless $reststring; | |
23 | last if $typestring eq '01'; | |
24 | my($len) = hex($lenstring); | |
25 | my($addr) = hex($addrstring); | |
26 | my(@bytes) = unpack("C*", pack("H".(2*$len), $reststring)); | |
27 | #pop(@bytes); # last byte is a CRC | |
28 | push(@records, [$addr, \@bytes]); | |
29 | } | |
30 | ||
31 | @sorted_records = sort { $a->[0] <=> $b->[0] } @records; | |
32 | ||
33 | print <<"EOF"; | |
34 | /* | |
35 | * ${basename}_fw.h | |
36 | * | |
37 | * Generated from ${basename}.s by ezusb_convert.pl | |
38 | * This file is presumed to be under the same copyright as the source file | |
39 | * from which it was derived. | |
40 | */ | |
41 | ||
42 | EOF | |
43 | ||
44 | print "static const struct ezusb_hex_record ${basename}_firmware[] = {\n"; | |
45 | foreach $r (@sorted_records) { | |
46 | printf("{ 0x%04x,\t%d,\t{", $r->[0], scalar(@{$r->[1]})); | |
47 | print join(", ", map {sprintf('0x%02x', $_);} @{$r->[1]}); | |
48 | print "} },\n"; | |
49 | } | |
50 | print "{ 0xffff,\t0,\t{0x00} }\n"; | |
51 | print "};\n"; |