tools/performance/startup/newWindowStats.bat

   1 @rem = ('
   2 @perl newWindowStats.bat %1 %2 %3 %4 %5 %6
   3 @goto done
   4 @rem ');
   5
   6 #<perl>
   7 # Get numbers from stdin.
   8 @start = ();
   9 @end   = ();
  10 while (<>) {
  11   if ( /^(\d+\.?\d*)\:\s*nsXULWindow created/ ) {
  12      $#start += 1;
  13      @start[ $#start ] = $1;
  14   }
  15   if ( /^(\d+\.?\d*)\:\s*nsXULWindow loaded and visible/ ) {
  16       $#end += 1;
  17       @end[ $#end ] = $1;
  18       # Ignore the first two windows (hidden window and first window).
  19       if ( $#end > 2 ) {
  20          # Display simple ascii graph.
  21          $len = int ( ( $end[$#end] - $start[$#end] + 0.005 ) * 100 );
  22          print '*' x ($len%80), " ", $end[$#end]-$start[$#end],"\n";
  23       }
  24   }
  25 }
  26 $sum = 0.0;
  27 # Ignore the first two windows (hidden window and first window).
  28 foreach $i (3..$#start) {
  29   $sum += $end[$i] - $start[$i];
  30 }
  31 $avg = $sum/($#start-2);
  32 printf "avg window open time for %d windows: %f\n", $#start-2, $avg;
  33 #</perl>
  34
  35 @rem = ('
  36 :done
  37 @rem ');