tools/trace-malloc/merge.pl

   1 #!/usr/bin/perl
   2
   3 $argv = $ARGV[0];
   4 open( bloatFile, $argv ) or die "Can't open $argv: $!\n";
   5 while (<bloatFile>) {
   6     if (/name=/) {
   7         ($td,$name,$func,$a,$ntd) = split(/>/, $_);
   8         ($fname, $memSize) = split( /&nbsp;/, $func );
   9         ($trash, $linkName) = split( /"/, $name );
  10         $namesLinks{$fname} = $linkName;
  11         if ($namesSizes{$fname}) {
  12             $namesSizes{$fname} = $namesSizes{$fname} + $memSize;
  13         }
  14         else {
  15             $namesSizes{$fname} = $memSize;
  16         }
  17     }
  18 }
  19
  20 $argv = $ARGV[1];
  21 if ($argv)
  22 {
  23     open( bloatFile, $argv ) or die "Can't open $argv: $!\n";
  24     while (<bloatFile>) {
  25         if (/name=/) {
  26             ($td,$name,$func,$a,$ntd) = split(/>/, $_);
  27             ($fname, $memSize) = split( /&nbsp;/, $func );
  28             $namesSizes{$fname} = $namesSizes{$fname} - $memSize;
  29         }
  30     }
  31 }
  32
  33 sub byvalue { $namesSizes{$b} <=> $namesSizes{$a} }
  34
  35
  36 print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">';
  37 print "\n<html><head>\n";
  38 print "<title>Bloat Blame Delta</title>\n";
  39 print '<link rel="stylesheet" type="text/css" href="blame.css">';
  40 print "\n</head>\n<body>\n<table>\n";
  41 print "<thead><tr><td>Memory Allocated</td><td>Function Name</td><td>Link</td></tr></thead>\n";
  42
  43 foreach $key (sort byvalue keys %namesSizes) {
  44     if ($namesSizes{$key})
  45     {
  46         print "<tr>\n";
  47         print '  <td>', $namesSizes{$key},"</td>\n";
  48         print "  <td> <a href=\"$ARGV[0]#$namesLinks{$key}\">", $key,  "</a></td>\n";
  49         print "</tr>\n"
  50     }
  51 }
  52
  53 print "</table>\n</body></html>";