OpenWrt – Blame information for rev 1
?pathlinks?
Rev | Author | Line No. | Line |
---|---|---|---|
1 | office | 1 | #!/usr/bin/env perl |
2 | # |
||
3 | # srecimage.pl - script to convert a binary image into srec |
||
4 | # Copyright (c) 2015 - Jo-Philipp Wich <jo@mein.io> |
||
5 | # |
||
6 | # This script is in the public domain. |
||
7 | |||
8 | use strict; |
||
9 | |||
10 | my ($input, $output, $offset) = @ARGV; |
||
11 | |||
12 | if (!defined($input) || !-f $input || !defined($output) || |
||
13 | !defined($offset) || $offset !~ /^(0x)?[a-fA-F0-9]+$/) { |
||
14 | die "Usage: $0 <input file> <output file> <load address>\n"; |
||
15 | } |
||
16 | |||
17 | sub srec |
||
18 | { |
||
19 | my ($type, $addr, $data, $len) = @_; |
||
20 | my @addrtypes = qw(%04X %04X %06X %08X %08X %04X %06X %08X %06X %04X); |
||
21 | my $addrstr = sprintf $addrtypes[$type], $addr; |
||
22 | |||
23 | $len = length($data) if ($len <= 0); |
||
24 | $len += 1 + (length($addrstr) / 2); |
||
25 | |||
26 | my $sum = $len; |
||
27 | |||
28 | foreach my $byte (unpack('C*', pack('H*', $addrstr)), unpack('C*', $data)) |
||
29 | { |
||
30 | $sum += $byte; |
||
31 | } |
||
32 | |||
33 | return sprintf "S%d%02X%s%s%02X\r\n", |
||
34 | $type, $len, $addrstr, uc(unpack('H*', $data)), ~($sum & 0xFF) & 0xFF; |
||
35 | } |
||
36 | |||
37 | |||
38 | open(IN, '<:raw', $input) || die "Unable to open $input: $!\n"; |
||
39 | open(OUT, '>:raw', $output) || die "Unable to open $output: $!\n"; |
||
40 | |||
41 | my ($basename) = $output =~ m!([^/]+)$!; |
||
42 | |||
43 | print OUT srec(0, 0, $basename, 0); |
||
44 | |||
45 | my $off = hex($offset); |
||
46 | my $len; |
||
47 | |||
48 | while (defined($len = read(IN, my $buf, 16)) && $len > 0) |
||
49 | { |
||
50 | print OUT srec(3, $off, $buf, $len); |
||
51 | $off += $len; |
||
52 | } |
||
53 | |||
54 | print OUT srec(7, hex($offset), "", 0); |
||
55 | |||
56 | close OUT; |
||
57 | close IN; |