uniconf/wvconfemutrace.pl

   1 #! /usr/bin/perl -w
   2
   3 use strict;
   4
   5 my %entries;
   6 my $binary = shift(@ARGV);
   7
   8 while(my $line = <>) {
   9   next unless $line =~ m/^TRACE:/;
  10   chomp($line);
  11   my(undef, $type, $section, $key, $cookie, @backtrace) = split(/:/, $line);
  12
  13   if($type eq 'add') {
  14     $entries{$section} = {} if !defined($entries{$section});
  15     $entries{$section}{$key} = {} if !defined($entries{$section}{$key});
  16
  17     $entries{$section}{$key}{$cookie} = \@backtrace;
  18   } elsif($type eq 'del') {
  19     $entries{$section}{$key}{$cookie} = undef;
  20   } else {
  21     die("unknown type");
  22   }
  23 }
  24
  25 foreach my $section (sort(keys(%entries))) {
  26   foreach my $key (sort(keys(%{$entries{$section}}))) {
  27     foreach my $cookie (sort(keys(%{$entries{$section}{$key}}))) {
  28       if(defined($entries{$section}{$key}{$cookie})) {
  29         print "[$section]$key -> $cookie:\n";
  30         shift(@{$entries{$section}{$key}{$cookie}});
  31         foreach my $frame (@{$entries{$section}{$key}{$cookie}}) {
  32           $frame =~ s/\+0x[0-9a-f]+\)/)/;
  33           $frame =~ s/\) \[(.*)\]$/)/;
  34           #my $line = `addr2line -e $binary $1`;
  35           #chomp($line);
  36
  37           print "\t$1: $frame\n", ;
  38         }
  39       }
  40     }
  41   }
  42 }
  43