1#! /usr/bin/perl -w
 2# SPDX-License-Identifier: GPL-2.0
 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
13my $basename = $ARGV[0];
14die "no base name specified" unless $basename;
15
16while (<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
33print <<"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
42EOF
43
44print "static const struct ezusb_hex_record ${basename}_firmware[] = {\n";
45foreach $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}
50print "{ 0xffff,\t0,\t{0x00} }\n";
51print "};\n";

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