Orange Pi5 kernel

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