--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libraries/clogger/pctools/unhex.pl	Wed Jun 23 15:52:26 2010 +0100
@@ -0,0 +1,100 @@
+#!perl
+# unhex.pl
+# 
+# Copyright (c) 2010 Accenture. All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of the "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+# 
+# Initial Contributors:
+# Accenture - Initial contribution
+#
+
+# Takes a standard hexdump of format:
+# 6640000c: 55 00 39 00 54 cb 00 00 42 41 46 4c 20 2d 20 42 U.9.T...BAFL - B
+# and outputs the concatenation of the ascii bits
+#
+# if -c is specified, it will further try to parse the hexdump as if it is a clogger debug router buffer
+
+if (scalar(@ARGV) == 1 && $ARGV[0] eq "-h")
+	{
+	print << "ENDHELP";
+Syntax: perl unhex.pl [-c]
+Reads a hexdump from stdin, unhexes it and outputs to stdout.
+If -c is specified, attempts to parse the hexdump as a clogger
+RDebug::Print crashdumparea buffer.
+ENDHELP
+	exit 0;
+	}
+my $clogger = scalar(@ARGV) == 1 && $ARGV[0] eq "-c";
+
+my $currentBuf = "";
+
+while($line = <STDIN>)
+	{
+	if ($line =~ /.*: (.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..)  ?(.*)/)
+		{
+		my $hex = $1;
+		my $frag = "";
+		my $strlen = length($hex);
+		#print "strlen = $strlen\n";
+		for (my $i = 0; $i < $strlen; $i+=3)
+			{
+			my $c = hex(substr($hex, $i, 2));
+			#print ("c = $c\n");
+			if (!$clogger)
+				{
+				# Then escape non-ascii
+				if ($c != 13 && $c != 10 && ($c < 32 || $c > 127)) { $c = ord("."); }
+				}
+			$frag = $frag.chr($c);
+			}
+			
+		if (!$clogger)
+			{
+			# Just print it
+			print($frag);
+			}
+		else
+			{
+			if ($frag eq "\0\0\0\0\0\0\0\0" || $frag eq "\3\3\3\3\3\3\3\3")
+				{
+				# This indicates the buffer doesn't have any data in it. 0x03 is used by as-yet unwritten-to chunks, it would appear
+				$frag = "";
+				}
+			$currentBuf .= $frag;
+			my $len = length($currentBuf);
+			my $start = index($currentBuf, "U\0");
+			if ($start == -1) { $start = index($currentBuf, "K\0"); }
+			if ($start == -1) { $start = index($currentBuf, "P\0"); }
+			if ($start == -1 || $start + 8 > $len)
+				{
+				# No header in buf, or not all of it
+				}
+			else
+				{
+				my ($type, $entryLen, $timeStamp) = unpack("a1xvV", substr($currentBuf, $start));
+				#print("type = $type, entryLen = $entryLen, timestamp = $timeStamp\n");
+				
+				if (8 + $start + $entryLen <= $len)
+					{
+					# Check if there was any junk in the buffer before the first header
+					if ($start > 0)
+						{
+						my $s = substr($currentBuf, 0, $start);
+						printf("00000000 $s\n");
+						}
+					$entry = substr($currentBuf, $start + 8, $entryLen);
+					printf("%08x %s\n", $timeStamp, $entry);
+					$currentBuf = substr($currentBuf, $start + 8 + $entryLen);
+					}
+				}
+			}
+		}
+	}
+if (length($currentBuf))
+	{
+	# The log is truncated, so just print what we have unparsed
+	print("$currentBuf\n");
+	}