tools/performance/layout/collect.pl

   1 #!/usr/bin/perl -w
   2
   3 %::Sites = ();
   4
   5 @::Categories = (
   6     Content,
   7     Reflow,
   8     Frame,
   9     Style,
  10     Parse,
  11     DTD,
  12     Tokenize,
  13     Total
  14     );
  15
  16 $::CurrentSite = "";
  17
  18 LINE: while (<>) {
  19     if (/^\*\*\* Timing layout processes on url: '(.*)'/) {
  20         # This will generate a URL that looks something like:
  21         #
  22         #   file:///foo/bar/website/index.html
  23         #
  24         # So, we'll parse out the ``website'' part...
  25         my @parts = split('/', $1);
  26         $::CurrentSite = $parts[$#parts - 1];
  27
  28         if (! $::Sites{$::CurrentSite}) {
  29             $::Sites{$::CurrentSite} = {};
  30         }
  31         next LINE;
  32     }
  33
  34     next LINE unless $::CurrentSite;
  35
  36     CATEGORY: foreach $category (@::Categories) {
  37         next CATEGORY unless (/$category/);
  38
  39         # The "real time" is indicated in HH:MM:SS.mmmm format
  40         my ($h,$m,$s,$ms) = /Real time (..):(..):(..)\.(....)/;
  41         my $real = $ms;
  42         $real += $s * 1000;
  43         $real += $m * 1000 * 60;
  44         $real += $h * 1000 * 60 * 60;
  45
  46         # The "CPU time" is indicated in m.uuu format
  47         my ($cpu) = /CP time (.*\....)/;
  48
  49         my $site = $::Sites{$::CurrentSite};
  50         if (! $site->{$category}) {
  51             $site->{$category} = { Count => 0, Real => 0, CPU => 0, Real2 => 0, CPU2 => 0 };
  52         }
  53
  54         $site->{$category}->{Count} += 1;
  55         $site->{$category}->{Real}  += $real;
  56         $site->{$category}->{CPU}   += $cpu;
  57         $site->{$category}->{Real2} += $real * $real;
  58         $site->{$category}->{CPU2}  += $cpu * $cpu;
  59     }
  60 }
  61
  62 my $bgcolor0 = '#999999';
  63 my $bgcolor1 = '#777777';
  64
  65 my $bgcolor;
  66
  67 print "<table border='0' cellpadding='2' cellspacing='0'>\n";
  68
  69 print "<tr>\n";
  70 print "  <td rowspan='2' valign='bottom'>Site</td>\n";
  71
  72 $bgcolor = $bgcolor0;
  73 foreach $category (@::Categories) {
  74     print "  <td bgcolor='$bgcolor' align='center' colspan='4'>$category</td>\n";
  75     $bgcolor = ($bgcolor eq $bgcolor0) ? $bgcolor1 : $bgcolor0;
  76 }
  77 print "</tr>\n";
  78
  79 print "<tr>\n";
  80
  81 $bgcolor = $bgcolor0;
  82 foreach $category (@::Categories) {
  83     print "  <td bgcolor='$bgcolor' align='center' colspan='2'>CPU</td> <td bgcolor='$bgcolor' align='center' colspan='2'>Real</td>\n";
  84     $bgcolor = ($bgcolor eq $bgcolor0) ? $bgcolor1 : $bgcolor0;
  85 }
  86 print "</tr>\n";
  87
  88 foreach $sitename (sort(keys(%::Sites))) {
  89     print "<tr>\n";
  90
  91     my $site = $::Sites{$sitename};
  92     print "  <td>$sitename</td>\n";
  93
  94     $bgcolor = $bgcolor0;
  95     foreach $category (@::Categories) {
  96         my $count = $site->{$category}->{Count};
  97         my $real  = $site->{$category}->{Real};
  98         my $cpu   = $site->{$category}->{CPU};
  99         my $real2 = $site->{$category}->{Real2};
 100         my $cpu2  = $site->{$category}->{CPU2};
 101
 102         my $realdev = 0;
 103         my $cpudev = 0;
 104
 105         if ($count) {
 106             if ($count > 1) {
 107                 $realdev = sqrt( ( $real2 * $count - $real * $real ) / ( $count * ( $count - 1 ) ) );
 108                 $cpudev  = sqrt( ( $cpu2 * $count - $cpu * $cpu ) / ( $count * ( $count - 1 ) ) );
 109             }
 110
 111             $real /= $count;
 112             $cpu /= $count;
 113         }
 114         else {
 115             $count = 0;
 116             $real = 0;
 117             $cpu = 0;
 118         }
 119
 120         printf "  <td bgcolor='$bgcolor' align='right'>%0.2lf</td><td bgcolor='$bgcolor' align='left'>&plusmn;%0.2lf</td>\n", $cpu, $cpudev;
 121         printf "  <td bgcolor='$bgcolor' align='right'>%0.2lf</td><td bgcolor='$bgcolor' align='left'>&plusmn;%0.2lf</td>", $real, $realdev;
 122
 123         $bgcolor = ($bgcolor eq $bgcolor0) ? $bgcolor1 : $bgcolor0;
 124     }
 125
 126     print "</tr>\n";
 127 }
 128
 129 print "</table>\n";
 130