projects
/
x300-pci
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a6974bd
)
less cluttered display of data
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 17 Jun 2016 07:28:47 +0000
(09:28 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 17 Jun 2016 07:28:47 +0000
(09:28 +0200)
openocd-jtag-boundary-scan.pl
patch
|
blob
|
history
diff --git
a/openocd-jtag-boundary-scan.pl
b/openocd-jtag-boundary-scan.pl
index
aa4ea26
..
1b58b0d
100755
(executable)
--- a/
openocd-jtag-boundary-scan.pl
+++ b/
openocd-jtag-boundary-scan.pl
@@
-9,6
+9,7
@@
use Storable;
my $openocd_remote = shift @ARGV || 'picam:4444';
my $bsdl_file = $ENV{BSDL} || '_3128at100.bsd';
my $openocd_remote = shift @ARGV || 'picam:4444';
my $bsdl_file = $ENV{BSDL} || '_3128at100.bsd';
+$bsdl_file = '3064at44.bsd'; # XXX
my $BOUNDARY_LENGTH = 288;
my $entity;
my $BOUNDARY_LENGTH = 288;
my $entity;
@@
-76,6
+77,15
@@
my @sort = sort {
$aa <=> $bb } keys %$io2bit;
warn "# sort = ",dump(@sort);
$aa <=> $bb } keys %$io2bit;
warn "# sort = ",dump(@sort);
+sub bits {
+ my $bits = shift;
+ $bits =~ s/0/ /;
+ $bits =~ s/^(.)0/$1 /;
+ $bits =~ s/^1/I/;
+ $bits =~ s/^(.)1/$1./;
+ return $bits;
+}
+
my $last_bits = '';
sub print_io {
my $bits = shift;
my $last_bits = '';
sub print_io {
my $bits = shift;
@@
-92,7
+102,7
@@
sub print_io {
if ( defined $o ) {
my $l = $b = substr($bits, $o, 3);
$l = substr($last_bits,$o,3) if $last_bits;
if ( defined $o ) {
my $l = $b = substr($bits, $o, 3);
$l = substr($last_bits,$o,3) if $last_bits;
- printf "%-3d %-3d %-5s %3s %3s | ", $pin, $o, $io,
$b, $b ne $l ? $l : ''
+ printf "%-3d %-3d %-5s %3s %3s | ", $pin, $o, $io,
bits($b), bits($b ne $l ? $l : '')
} else {
printf "%-3d ... %-5s %3s %3s | ", $pin, $io, '', '';
}
} else {
printf "%-3d ... %-5s %3s %3s | ", $pin, $io, '', '';
}