Add trace parsing script.

1 files changed, 101 insertions, 0 deletions

diff --git a/src/build/trace/trace_parse b/src/build/trace/trace_parse
new file mode 100755
index 000000000..b36dcb68f
--- /dev/null
+++ b/src/build/trace/trace_parse
@@ -0,0 +1,101 @@
+#!/usr/bin/perl
+
+use strict;
+my $buf;
+
+my $memory_file = shift;
+my $syms_file = "./img/hbicore.syms";
+my $search_path = "./obj/";
+
+# Print header.
+printf "-------------------------------------------------------------------------------\n";
+printf "%8s %6s %5s %8s %4s %s\n",
+    "Sec", "Usec",
+    "PID", "Comp", "Line",
+    "Entry Data";
+printf "-------------------------------------------------------------------------------\n";
+
+
+
+open MEMORY, $memory_file || die "Cannot open $memory_file";
+binmode MEMORY;
+
+# Find pointer for trace buffer instance.
+my $first_page = hex ((split ",",`grep ",Singleton<TraceBuffer>::instance()::instance" $syms_file`)[1]);
+
+seek MEMORY, $first_page, 0;
+read MEMORY, $buf, 8;
+$first_page = unpack "Q>1", $buf;
+
+# Iterate over all the trace pages.
+while (0 != $first_page)
+{
+    printf "Buffer Page: 0x%08x - ", $first_page;
+    
+    # Read page size (in bytes)
+    seek MEMORY, $first_page + 8, 0;
+    read MEMORY, $buf, 8;
+    my $page_size = unpack "Q>1", $buf;
+    if ($page_size > 4096) { $page_size = 4096; }
+    printf "%d bytes\n", $page_size;
+
+    while ($page_size)
+    {
+        read MEMORY, $buf, 32;
+        my ($comp, $tid, $len, $hash, $timestamp, $line, $unused) =
+            unpack "Q>1 S>1 S>1 L>1 Q>1 L>1 L>1", $buf;
+
+        if (0 == $hash)
+        {
+            $page_size = 0;
+        }
+        else
+        {
+            my $hash_string = 
+                `find $search_path -name "*.hash" | xargs grep $hash`;
+            chomp $hash_string;
+            my ($unused, $format, $file) = split /\|\|/, $hash_string;
+            $page_size -= 32;
+            
+            # Read extra words.
+            my @extra_words = ();
+            while ($len)
+            {
+                read MEMORY, $buf, 8;
+                my $data = unpack "Q>1", $buf;
+                $len -= 8;
+                $page_size -= 8;
+
+                push @extra_words, $data;
+            }
+
+            # Read component string.
+            if (0 != $comp)
+            {
+                my $loc = tell MEMORY;
+                seek MEMORY, $comp, 0;
+                $/ = "\0";
+                $comp = <MEMORY>;
+                seek MEMORY, $loc, 0;
+            }
+
+            # Calculate time in seconds.
+            my $timesec = int($timestamp / 512000000);
+            my $timeusec = int(($timestamp - ($timesec * 512000000)) / 512);
+
+            printf "%08d.%06d|%5d|%8s|%4d|$format\n", 
+                $timesec, $timeusec,
+                $tid,
+                $comp,
+                $line,
+                @extra_words;
+        }
+    }
+
+    # Find pointer to next page.
+    seek MEMORY, $first_page, 0;
+    read MEMORY, $buf, 8;
+    $first_page = unpack "Q>1", $buf;
+}
+
+close MEMORY;