File Coverage

blib/lib/ITM.pm

Criterion	Covered	Total	%
statement	62	69	89.8
branch	22	28	78.5
condition	12	15	80.0
subroutine	18	21	85.7
pod	0	10	0.0
total	114	143	79.7

package ITM;
our $AUTHORITY = 'cpan:GETTY';
# ABSTRACT: ITM/SWD deserializer
$ITM::VERSION = '0.002';
use strict;
use warnings;
use bytes;
use Carp qw( croak );
use Exporter 'import';
use List::Util qw( sum );

use ITM::Sync;
use ITM::Overflow;
use ITM::Instrumentation;
use ITM::HardwareSource;

sub ITM_SYNC            { 1 }
sub ITM_OVERFLOW        { 2 }
sub ITM_TIMESTAMP       { 3 }
sub ITM_EXTENSION       { 4 }
sub ITM_RESERVED        { 5 }
sub ITM_INSTRUMENTATION { 6 }
sub ITM_HARDWARE_SOURCE { 7 }

our @EXPORT = qw(

  ITM_SYNC ITM_OVERFLOW ITM_TIMESTAMP ITM_EXTENSION ITM_RESERVED ITM_INSTRUMENTATION ITM_HARDWARE_SOURCE

  itm_header itm_parse

);

sub itm_size {
  my ( $b0, $b1 ) = @_;
  return 1 if $b0 && !$b1;
  return 2 if !$b0 && $b1;
  return 4 if $b0 && $b1;
}

sub itm_header {
  my ( $byte ) = @_;
  my @b = split(//,unpack('b8',$byte));
  my $bits = join('',reverse(@b));
  if ($bits eq '00000000' || $bits eq '10000000') {
    return { type => ITM_SYNC, size => 0 };
  } elsif ($b[0] == 0 && $b[1] == 0) { # Not Instrument / Hardware Source
    return { type => ITM_OVERFLOW, size => 0 };
  } elsif ($b[2] == 0) {
    return { type => ITM_INSTRUMENTATION, size => itm_size(@b[0..1]), source => ord(pack('b*',join('',@b[3..7]))) };
  } elsif ($b[2] == 1) {
    return { type => ITM_HARDWARE_SOURCE, size => itm_size(@b[0..1]), source => ord(pack('b*',join('',@b[3..7]))) };
  }
  return undef;
}

sub itm_parse {
  my ( @args ) = @_;
  if (!ref $args[0]) {
    my ( $header_byte, @data ) = split(//,$args[0]);
    return _itm_parse(itm_header($header_byte), join("",@data));
  } else {
    return _itm_parse(@args);
  }
  croak(__PACKAGE__."::itm_parse Unknown parameter count");
}

sub _itm_parse {
  my ( $header, $payload ) = @_;
  if ((defined $payload ? length($payload) : 0) != $header->{size}) {
    croak(__PACKAGE__."::itm_parse given payload doesn't fit required size");
  }
  delete $header->{size};
  if ( $header->{type} == ITM_SYNC ) {
    return ITM::Sync->new( %{$header} );
  } elsif ( $header->{type} == ITM_OVERFLOW ) {
    return ITM::Overflow->new( %{$header} );
  } elsif ( $header->{type} == ITM_INSTRUMENTATION ) {
    return ITM::Instrumentation->new( %{$header}, payload => $payload );
  } elsif ( $header->{type} == ITM_HARDWARE_SOURCE ) {
    return ITM::HardwareSource->new( %{$header}, payload => $payload );
  }
}

1;

__END__