From 045966d4e958666aa9b26f693a02137312a11ac4 Mon Sep 17 00:00:00 2001 From: Jo-Philipp Wich Date: Thu, 28 May 2015 15:53:55 +0000 Subject: [PATCH] scripts: add srecimage.pl, a script to convert binaries to SREC format Signed-off-by: Jo-Philipp Wich SVN-Revision: 45808 --- scripts/srecimage.pl | 57 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 57 insertions(+) create mode 100755 scripts/srecimage.pl diff --git a/scripts/srecimage.pl b/scripts/srecimage.pl new file mode 100755 index 0000000000..a68aa61f5b --- /dev/null +++ b/scripts/srecimage.pl @@ -0,0 +1,57 @@ +#!/usr/bin/env perl +# +# srecimage.pl - script to convert a binary image into srec +# Copyright (c) 2015 - Jo-Philipp Wich +# +# This script is in the public domain. + +use strict; + +my ($input, $output, $offset) = @ARGV; + +if (!defined($input) || !-f $input || !defined($output) || + !defined($offset) || $offset !~ /^(0x)?[a-fA-F0-9]+$/) { + die "Usage: $0 \n"; +} + +sub srec +{ + my ($type, $addr, $data, $len) = @_; + my @addrtypes = qw(%04X %04X %06X %08X %08X %04X %06X %08X %06X %04X); + my $addrstr = sprintf $addrtypes[$type], $addr; + + $len = length($data) if ($len <= 0); + $len += 1 + (length($addrstr) / 2); + + my $sum = $len; + + foreach my $byte (unpack('C*', pack('H*', $addrstr)), unpack('C*', $data)) + { + $sum += $byte; + } + + return sprintf "S%d%02X%s%s%02X\r\n", + $type, $len, $addrstr, uc(unpack('H*', $data)), ~($sum & 0xFF) & 0xFF; +} + + +open(IN, '<:raw', $input) || die "Unable to open $input: $!\n"; +open(OUT, '>:raw', $output) || die "Unable to open $output: $!\n"; + +my ($basename) = $output =~ m!([^/]+)$!; + +print OUT srec(0, 0, $basename, 0); + +my $off = hex($offset); +my $len; + +while (defined($len = read(IN, my $buf, 16)) && $len > 0) +{ + print OUT srec(3, $off, $buf, $len); + $off += $len; +} + +print OUT srec(7, hex($offset), "", 0); + +close OUT; +close IN;