r4876 - developers/werner/greg

[werner at docs.openmoko.org]

Author: werner
Date: 2008-12-16 22:56:18 +0100 (Tue, 16 Dec 2008)
New Revision: 4876

Added:
   developers/werner/greg/ds.pl
Log:
Dumper for raw whitespace-separated hex bytes.



Added: developers/werner/greg/ds.pl
===================================================================
--- developers/werner/greg/ds.pl	                        (rev 0)
+++ developers/werner/greg/ds.pl	2008-12-16 21:56:18 UTC (rev 4876)
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+
+while (<>) {
+    chop;
+    if (/([[:xdigit:]]{2}\s+){4,}/) {
+	push(@r, split /\s+/);
+    }
+}
+for ($i = 0; $i != 0x70; $i++) {
+    next if $i == 0x2c || $i == 0x51 || $i == 0x58 || $i == 0x6f;
+    push(@v, sprintf("%02x", $i), "0x".$r[$i]);
+}
+system("./greg pcf50633.greg ".join(" ", @v));


Property changes on: developers/werner/greg/ds.pl
___________________________________________________________________
Name: svn:executable
   + *