Subversion Repositories openrisc

#!/usr/bin/perl -w
use strict;
use IO::File;
 
# (C) 2003-2007 Willem Jan Hengeveld <itsme@xs4all.nl>
# Web: http://www.xs4all.nl/~itsme/
#      http://wiki.xda-developers.com/
#
# $Id$
# 
# perl script to decode srecord files.
# 
# specifically written to decode the radio part updates for the 
# xda1/ htc-wallaby.
#
#   perl srec.pl RSUpgrade.cp64 -l 4 -w -o rsu
#   perl srec.pl monitor_ul_bs.m0 -o mon
 
use Getopt::Long;
my $outfile="out";
my $lenlen=2;
my $dowordswap= 0;
my $maxgap= 1;
GetOptions(
    "o=s" => \$outfile,
    "l=i" => \$lenlen,
    "m=s" => sub { $maxgap= eval($_[1]) },
    "w" => \$dowordswap) 
    or die "Usage: srec [-o=OUTPREFIX] [-l={4|2}] [-w {swap}] [-m=MAXGAP]\n";
my %data;
 
# s-records have the following format:
#   "S" + 1 byte  type
#   2 hex digits :  length  ( of rest of line - incl address and checksum )
#   4,6,8 hex digits address ( for type 1, 2, 3 )
#   hex data [ 0..64 bytes ]
#   checksum [ 1 byte ]   such that unpack('%8C*', pack('H*', $line))==0xff
#            ( or checksum=0xff-sum(otherbytes)
#
#
#   type S0 : version  : char mname[10], byte ver, byte rev, char description[18]
#           or usually : 00 00 + 'HDR'
#   type S1 : 2 byte address + data
#   type S2 : 3 byte address + data
#   type S3 : 4 byte address + data
#   type S5 : 2 byte count of S1, S2, S3 records transmitted
#   type S7 : 4 byte entrypoint address
#   type S8 : 3 byte entrypoint address
#   type S9 : 2 byte entrypoint address
 
while (<>) {
    my $type= hex(substr($_, 1,1));
    my $length= hex(substr($_,2,$lenlen));
 
    my $adrlen= $type eq "1" ? 4 : $type eq "2" ? 6 :  $type eq "3" ? 8 : 0;
    next if (!$adrlen);
    my $address= hex(substr($_,2+$lenlen,$adrlen));
    my $data= pack("H*", substr($_,2+$lenlen+$adrlen, 2*$length-$adrlen-2));
    if ($dowordswap) {
        $data= pack('v*', unpack('n*',$data));
    }
 
    $data{$address}= $data;
}
 
#     |---------|...|
#                  |-----|
#
my @addrs= sort { $a <=> $b } keys %data;
my $fh;
for (0..$#addrs) {
    my $startcur= $addrs[$_];
 
    if ($_>0) {
        my $startlast= $addrs[$_-1];
        my $endlast= length($data{$startlast})+ $startlast;
 
        if ($endlast +$maxgap <= $startcur) {
            printf("  %08lx-%08lx .. gap .. %08lx\n", $startlast, $endlast, $startcur);
 
            $fh->close();
            undef $fh;
        }
        elsif ($endlast < $startcur ) {
            $fh->seek($startcur-$endlast, SEEK_CUR);
        }
        elsif ($endlast > $startcur) {
            printf("WARNING: overlap found: %08lx-%08lx ~ %08lx\n", $startlast, $endlast, $startcur);
            $fh->close();
            undef $fh;
        }
    }
 
    if (!$fh) {
        $fh= IO::File->new(sprintf("%s-%08lx.bin", $outfile, $startcur), "w");
        binmode($fh);
    }
    $fh->print($data{$startcur});
}
$fh->close();
#print map { $data{$_} } sort keys %data;