qi-hardware/wernermisc
1
0
Fork 0
mirror of git://projects.qi-hardware.com/wernermisc.git synced 2024-11-15 08:50:38 +02:00
Code

m1rc3/norruption/2/bcmp: compare bitstreams and highlight differences

Browse Source
This commit is contained in:
Werner Almesberger 2011-10-11 12:02:58 -03:00
parent ddd8338e25
commit 04e7d1186d
1 changed files with 59 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
m1rc3/norruption/2/bscmp Executable file
View File

@ -0,0 +1,59 @@
#!/usr/bin/perl
$REF = "standby.fpg"; # reference bitstream
$LEN = 0x78dd0; # cut off trailing junk
open(FILE, $REF) || die "$REF: $!";
$ref = substr(join("", <FILE>), 0, $LEN);
close FILE;
die "reference bitstream is too short" unless length $ref == $LEN;
for (@ARGV) {
open(FILE, $_) || die "$_: $!";
$c{$_} = substr(join("", <FILE>), 0, $LEN);
close FILE;
die "$_ is too short" unless length $c{$_} == $LEN;
}
# @@@ not quite perfect - we should extract the cycle numbers and sort by them
for (sort keys %c) {
$n = 0;
@a = ();
for ($i = 0; $i != $LEN; $i += 2) {
next unless substr($ref, $i, 2) ne substr($c{$_}, $i, 2);
$r = unpack("B*", substr($ref, $i, 2));
$c = unpack("B*", substr($c{$_}, $i, 2));
if (defined $s{$i}) {
$s = " " x 26;
} else {
$s = sprintf("%05x ", $i);
for ($j = 19; $j >= 0; $j--) {
$s .= $i & (1 << $j) ? "1" : "_";
}
}
$s .= " | ";
for ($j = 0; $j != 16; $j++) {
$s .= " " if $j == 8;
$s .= substr($r, $j, 1) ?
substr($c, $j, 1) ? "1" : "0" :
substr($c, $j, 1) ? die : "_";
# substr($c, $j, 1) ? "\033[7m \033[m" : "_";
}
if ($i >= 0x10) { # count only fatal corruptions
push(@a, $i);
$n++;
} else {
$s .= " | $_\n";
}
$s{$i} .= $s;
}
for $a (@a) {
$s{$a} .= " | $_ ($n)\n";
}
}
for (sort { $a <=> $b } keys %s) {
print $s{$_};
}