ezusb_convert.pl (1597B)
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";