TwlToolsRED/build/tools/AccessLogConverter/read_command_text.pl

#!/usr/bin/perl --

use strict;

my $file = $ARGV[0] or die "Usage: $0 [TXT File]\n\n";

open IN, $file or die "Cannot open $file.\n";

my $start = 0;
my $size = 0;

my $step = 0;
my $addr = 0;

my $bkup = 0;

my $line = 0;
my $readcount = 0;

while (<IN>) {
    my @data = split /\t/;
    $line++;
    # pre-read
    if ( $step == 0 ) {
        if ( $data[2] == 1 && $data[3] == 1 )
        {
            $step = 1;
            if ( $bkup == 1 ) {
                print "<<BACKUP ACCESS>>\n" ;
                $bkup = 0;
            }
        }
        # backup access
        if ( $data[2] == 1 && $data[3] == 0 )
        {
            $bkup = 1;
        }
    }
    # read
    elsif ( $step == 1 ) {
        if ( hex($data[4]) == 0xB7 ) {
            $step++;
            $addr = 0; # initialize
            $readcount++;
#            printf "READ COMMAND 0x%02x\n", hex($data[4]);
        } else {
            if( hex($data[4]) != 0xB8 ) { # IDƒŠ<C692>[ƒh
                printf "<<INVALID :0x%02x>>\n", hex($data[4]);
                printf "Read: 0x%08x-0x%08x (%6d bytes)\n", $start, $start+$size-1, $size if ($start);
                $start = 0;
                $size = 0;
            }
            $step = 0; # restart
        }
    }
    # first address
    elsif ( $step == 2 || $step == 3 || $step == 4 || $step == 5 ) {
        $addr = $addr*256 + hex($data[4]);
        if ( $step == 5 ) {
            if ( $start + $size == $addr) {
                $size += 512;
            } else {
                printf "Read: 0x%08x-0x%08x (%6d bytes)\n", $start, $start+$size-1, $size if ($start);
                $start = $addr;
                $size = 512;
            }
#            $step = 0; # restart
        } else {
#            $step++;
        }
        $step++;
    }
    # dummy access
    elsif ( $step == 6 || $step == 7 || $step == 8) {
        if ( $step == 8 ) {
            $step = 0; # restart
        } else {
            $step++;
        }
    }
}
close IN;

if ($start) {
    printf "Read: 0x%08x-0x%08x (%6d bytes)\n", $start, $start+$size-1, $size
} elsif ($readcount == 0) {
    printf "Never read.\n";
}
if ( $bkup == 1 ) {
    print "<<BACKUP ACCESS>>\n" ;
}