From 959e9f97cdaac774b530a375a1fe8bcfe7ac1f5b Mon Sep 17 00:00:00 2001 From: Tom Date: Wed, 11 Jan 2012 13:56:26 +0100 Subject: cleanup --- Src/osmoconbb/src/host/osmocon/memdump_convert.pl | 29 ----------------------- 1 file changed, 29 deletions(-) delete mode 100755 Src/osmoconbb/src/host/osmocon/memdump_convert.pl (limited to 'Src/osmoconbb/src/host/osmocon/memdump_convert.pl') diff --git a/Src/osmoconbb/src/host/osmocon/memdump_convert.pl b/Src/osmoconbb/src/host/osmocon/memdump_convert.pl deleted file mode 100755 index 3d18a0b..0000000 --- a/Src/osmoconbb/src/host/osmocon/memdump_convert.pl +++ /dev/null @@ -1,29 +0,0 @@ -#!/usr/bin/perl - -my $num_line = 0; -my $num_hex = 0; -my $oldaddr; - -while (my $line = ) { - chomp($line); - $num_line++; - my (@hex) = $line =~ /(\w{8}): (\w{8}) (\w{8}) (\w{8}) (\w{8}) (\w{8}) (\w{8}) (\w{8}) (\w{8})/; - my $addr = hex(shift @hex); - if ($addr != 0 && $addr != $oldaddr + 0x20) { - printf(STDERR "gap of %u between 0x%08x and 0x%08x\n%s\n", - $addr - $oldaddr, $addr, $oldaddr, $line); - } - foreach my $h (@hex) { - $num_hex++; - # poor mans endian conversion - my ($a, $b, $c, $d) = $h =~/(\w\w)(\w\w)(\w\w)(\w\w)/; - my $h_reorder = $d . $c . $b . $a; - # convert into actual binary number - my $tmp = pack('H8', $h_reorder); - syswrite(STDOUT, $tmp, 4); - } - $oldaddr = $addr; -} - -printf(STDERR "num lines/num hex: %u/%u\n", $num_line, $num_hex); - -- cgit v1.2.3-55-g7522