| Server IP : 79.136.114.73 / Your IP : 216.73.216.191 Web Server : Apache/2.4.7 (Ubuntu) PHP/5.5.9-1ubuntu4.29 OpenSSL/1.0.1f System : Linux b8009 3.13.0-170-generic #220-Ubuntu SMP Thu May 9 12:40:49 UTC 2019 x86_64 User : www-data ( 33) PHP Version : 5.5.9-1ubuntu4.29 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /lib/modules/3.13.0-49-generic/build/drivers/usb/serial/ |
Upload File : |
#! /usr/bin/perl -w
# convert an Intel HEX file into a set of C records usable by the firmware
# loading code in usb-serial.c (or others)
# accepts the .hex file(s) on stdin, a basename (to name the initialized
# array) as an argument, and prints the .h file to stdout. Typical usage:
# perl ezusb_convert.pl foo <foo.hex >fw_foo.h
my $basename = $ARGV[0];
die "no base name specified" unless $basename;
while (<STDIN>) {
# ':' <len> <addr> <type> <len-data> <crc> '\r'
# len, type, crc are 2-char hex, addr is 4-char hex. type is 00 for
# normal records, 01 for EOF
my($lenstring, $addrstring, $typestring, $reststring, $doscrap) =
/^:(\w\w)(\w\w\w\w)(\w\w)(\w+)(\r?)$/;
die "malformed line: $_" unless $reststring;
last if $typestring eq '01';
my($len) = hex($lenstring);
my($addr) = hex($addrstring);
my(@bytes) = unpack("C*", pack("H".(2*$len), $reststring));
#pop(@bytes); # last byte is a CRC
push(@records, [$addr, \@bytes]);
}
@sorted_records = sort { $a->[0] <=> $b->[0] } @records;
print <<"EOF";
/*
* ${basename}_fw.h
*
* Generated from ${basename}.s by ezusb_convert.pl
* This file is presumed to be under the same copyright as the source file
* from which it was derived.
*/
EOF
print "static const struct ezusb_hex_record ${basename}_firmware[] = {\n";
foreach $r (@sorted_records) {
printf("{ 0x%04x,\t%d,\t{", $r->[0], scalar(@{$r->[1]}));
print join(", ", map {sprintf('0x%02x', $_);} @{$r->[1]});
print "} },\n";
}
print "{ 0xffff,\t0,\t{0x00} }\n";
print "};\n";