/tools/performance/layout/Header.pl

http://github.com/zpao/v8monkey · Perl · 183 lines · 111 code · 9 blank · 63 comment · 2 complexity · f69d3abc49989f3716046f3da6feaabd MD5 · raw file 

    

  1. ##########################################################################################
    2. 

  2. #
    3. 

  3. # ***** BEGIN LICENSE BLOCK *****
    4. 

  4. # Version: MPL 1.1/GPL 2.0/LGPL 2.1
    5. 

  5. #
    6. 

  6. # The contents of this file are subject to the Mozilla Public License Version
    7. 

  7. # 1.1 (the "License"); you may not use this file except in compliance with
    8. 

  8. # the License. You may obtain a copy of the License at
    9. 

  9. # http://www.mozilla.org/MPL/
    10. 

  10. #
    11. 

  11. # Software distributed under the License is distributed on an "AS IS" basis,
    12. 

  12. # WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
    13. 

  13. # for the specific language governing rights and limitations under the
    14. 

  14. # License.
    15. 

  15. #
    16. 

  16. # The Original Code is mozilla.org code.
    17. 

  17. #
    18. 

  18. # The Initial Developer of the Original Code is
    19. 

  19. # Netscape Communications Corporation.
    20. 

  20. # Portions created by the Initial Developer are Copyright (C) 1998
    21. 

  21. # the Initial Developer. All Rights Reserved.
    22. 

  22. #
    23. 

  23. # Contributor(s):
    24. 

  24. #   2/10/00 attinasi
    25. 

  25. #
    26. 

  26. # Alternatively, the contents of this file may be used under the terms of
    27. 

  27. # either the GNU General Public License Version 2 or later (the "GPL"), or
    28. 

  28. # the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
    29. 

  29. # in which case the provisions of the GPL or the LGPL are applicable instead
    30. 

  30. # of those above. If you wish to allow use of your version of this file only
    31. 

  31. # under the terms of either the GPL or the LGPL, and not to allow others to
    32. 

  32. # use your version of this file under the terms of the MPL, indicate your
    33. 

  33. # decision by deleting the provisions above and replace them with the notice
    34. 

  34. # and other provisions required by the GPL or the LGPL. If you do not delete
    35. 

  35. # the provisions above, a recipient may use your version of this file under
    36. 

  36. # the terms of any one of the MPL, the GPL or the LGPL.
    37. 

  37. #
    38. 

  38. # ***** END LICENSE BLOCK *****
    39. 

  39. 

  40. #############################################
    41. 

  41. # User-defined variables
    42. 

  42. #
    43. 

  43. $machineStats = "WinNT 4.0 (sp5), 450 MHz, 128mg RAM";
    44. 

  44. #
    45. 

  45. #############################################
    46. 

  46. 

  47. sub debug_print {
    48. 

  48.   foreach $str (@_){
    49. 

  49. #    print( $str );
    50. 

  50.   }
    51. 

  51. }
    52. 

  52. 

  53. @ARGV;
    54. 

  54. #$buildRoot = $ARGV[0];
    55. 

  55. #$buildIDFile = '< '.$buildRoot.'\bin\chrome\locales\en-US\navigator\locale\navigator.dtd';
    56. 

  56. $pullDate = $ARGV[1];
    57. 

  57. $useClockTime = $ARGV[2];
    58. 

  58. 

  59. #open (XUL_FILE, $buildIDFile) or die "Unable to open BuildID file $buildIDFile (header.pl)";
    60. 

  60. #$BuildNo = "";
    61. 

  61. #$LineList;
    62. 

  62. #while (<XUL_FILE>)
    63. 

  63. #{
    64. 

  64. #  $ThisLine = $_;
    65. 

  65. #  chop ($ThisLine);
    66. 

  66. #  if (/Build ID/){
    67. 

  67. #    @LineList = split (/\"/, $ThisLine);
    68. 

  68. #    $BuildNo = $LineList[1];
    69. 

  69. #  }
    70. 

  70. #}
    71. 

  71. #$BuildNo =~ s/"//g;
    72. 

  72. #$BuildNo =~ s/[>]//g;
    73. 

  73. #close (XUL_FILE);
    74. 

  74. #debug_print ($BuildNo);
    75. 

  75. 

  76. #############################################
    77. 

  77. 

  78. ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)=localtime;
    79. 

  79. %weekday= (
    80. 

  80.   "1", "$day",
    81. 

  81.   '2', 'Tuesday',
    82. 

  82.   '3', 'Wednesday',
    83. 

  83.   '4', 'Thursday',
    84. 

  84.   '5', 'Friday',
    85. 

  85.   '6', 'Saturday',
    86. 

  86.   '7', 'Sunday',
    87. 

  87. );
    88. 

  88. $mon += 1;
    89. 

  89. $year += 1900;
    90. 

  90. 

  91. open (TABLE_FILE, ">table.html");
    92. 

  92. 

  93. print (TABLE_FILE "<center><b><font size=+2>Top 40 Sites - File Load Performance Metrics</font></b></center>");
    94. 

  94. print (TABLE_FILE "<center><b><font size=+2>Seamonkey Win32</font></B></Center>");
    95. 

  95. print (TABLE_FILE "<BR>");
    96. 

  96. print (TABLE_FILE "<center><font size=+2 color=maroon>$pullDate</font></center>");
    97. 

  97. print (TABLE_FILE "<BR><center><b><font size=+1>");
    98. 

  98. print (TABLE_FILE "$weekday{$wday} ");
    99. 

  99. print (TABLE_FILE "$mon/$mday/$year ");
    100. 

  100. printf (TABLE_FILE "%02d:%02d:%02d", $hour, $min, $sec);
    101. 

  101. print (TABLE_FILE "</font></b></center>");
    102. 

  102. print (TABLE_FILE "<BR>");
    103. 

  103. print (TABLE_FILE "<B><CENTER><font size=-1>\n");
    104. 

  104. print (TABLE_FILE "$machineStats\n"); 
    105. 

  105. print (TABLE_FILE "<BR>");
    106. 

  106. if($useClockTime){
    107. 

  107.   print (TABLE_FILE "Time is reported in Seconds of Clock time");
    108. 

  108. } else {
    109. 

  109.   print (TABLE_FILE "Time is reported in Seconds of CPU time");
    110. 

  110. }
    111. 

  111. print (TABLE_FILE "</font></CENTER></B>\n");
    112. 

  112. print (TABLE_FILE "<BR>\n\n");
    113. 

  113. 

  114. print (TABLE_FILE "<table BORDER COLS=15 WIDTH='90%' BGCOLOR='#CCFFFF'>");
    115. 

  115. print (TABLE_FILE "<tr>");
    116. 

  116. print (TABLE_FILE "<td WIDTH='25%'></td>");
    117. 

  117. print (TABLE_FILE "<td COLSPAN='2' BGCOLOR='#CCFFFF'>");
    118. 

  118. print (TABLE_FILE "<center><b>Parsing</b></center>");
    119. 

  119. print (TABLE_FILE "</td>");
    120. 

  120. print (TABLE_FILE "<td COLSPAN='2' BGCOLOR='#CCFFFF'>");
    121. 

  121. print (TABLE_FILE "<center><b>Content Creation</b></center>");
    122. 

  122. print (TABLE_FILE "</td>");
    123. 

  123. print (TABLE_FILE "<td COLSPAN='2' BGCOLOR='#CCFFFF'>");
    124. 

  124. print (TABLE_FILE "<center><b>Frame Creation</b></center>");
    125. 

  125. print (TABLE_FILE "</td>");
    126. 

  126. print (TABLE_FILE "<td COLSPAN='2' BGCOLOR='#CCFFFF'>");
    127. 

  127. print (TABLE_FILE "<center><b>Style Resolution</b></center>");
    128. 

  128. print (TABLE_FILE "</td>");
    129. 

  129. print (TABLE_FILE "<td COLSPAN='2' BGCOLOR='#CCFFFF'>");
    130. 

  130. print (TABLE_FILE "<center><b>Reflow</b></center>");
    131. 

  131. print (TABLE_FILE "</td>");
    132. 

  132. print (TABLE_FILE "<td COLSPAN='2' BGCOLOR='#CCFFFF'>");
    133. 

  133. print (TABLE_FILE "<center><b>Total Layout Time</b></center>");
    134. 

  134. print (TABLE_FILE "</td>");
    135. 

  135. print (TABLE_FILE "<td COLSPAN='2' BGCOLOR='#CCFFFF'>");
    136. 

  136. print (TABLE_FILE "<center><b>Total Page Load Time</b></center>");
    137. 

  137. print (TABLE_FILE "</td>");
    138. 

  138. print (TABLE_FILE "</tr>");
    139. 

  139. print (TABLE_FILE "<tr>");
    140. 

  140. print (TABLE_FILE "<td COLSPAN='1' WIDTH='25%' BGCOLOR='#CCFFFF'>");
    141. 

  141. print (TABLE_FILE "<center><b>Sites</b></center>");
    142. 

  142. print (TABLE_FILE "</td>");
    143. 

  143. print (TABLE_FILE "<td COLSPAN='1' WIDTH='25%' BGCOLOR='#CCFFFF'>");
    144. 

  144. print (TABLE_FILE "<center><b>Time</b></center>");
    145. 

  145. print (TABLE_FILE "</td>");
    146. 

  146. print (TABLE_FILE "<td COLSPAN='1' WIDTH='25%' BGCOLOR='#CCFFFF'>");
    147. 

  147. print (TABLE_FILE "<center><b>%</b></center>");
    148. 

  148. print (TABLE_FILE "</td>");
    149. 

  149. print (TABLE_FILE "<td COLSPAN='1' WIDTH='25%' BGCOLOR='#CCFFFF'>");
    150. 

  150. print (TABLE_FILE "<center><b>Time</b></center>");
    151. 

  151. print (TABLE_FILE "</td>");
    152. 

  152. print (TABLE_FILE "<td COLSPAN='1' WIDTH='25%' BGCOLOR='#CCFFFF'>");
    153. 

  153. print (TABLE_FILE "<center><b>%</b></center>");
    154. 

  154. print (TABLE_FILE "</td>");
    155. 

  155. print (TABLE_FILE "<td COLSPAN='1' WIDTH='25%' BGCOLOR='#CCFFFF'>");
    156. 

  156. print (TABLE_FILE "<center><b>Time</b></center>");
    157. 

  157. print (TABLE_FILE "</td>");
    158. 

  158. print (TABLE_FILE "<td COLSPAN='1' WIDTH='25%' BGCOLOR='#CCFFFF'>");
    159. 

  159. print (TABLE_FILE "<center><b>%</b></center>");
    160. 

  160. print (TABLE_FILE "</td>");
    161. 

  161. print (TABLE_FILE "<td COLSPAN='1' WIDTH='25%' BGCOLOR='#CCFFFF'>");
    162. 

  162. print (TABLE_FILE "<center><b>Time</b></center>");
    163. 

  163. print (TABLE_FILE "</td>");
    164. 

  164. print (TABLE_FILE "<td COLSPAN='1' WIDTH='25%' BGCOLOR='#CCFFFF'>");
    165. 

  165. print (TABLE_FILE "<center><b>%</b></center>");
    166. 

  166. print (TABLE_FILE "</td>");
    167. 

  167. print (TABLE_FILE "<td COLSPAN='1' WIDTH='25%' BGCOLOR='#CCFFFF'>");
    168. 

  168. print (TABLE_FILE "<center><b>Time</b></center>");
    169. 

  169. print (TABLE_FILE "</td>");
    170. 

  170. print (TABLE_FILE "<td COLSPAN='1' WIDTH='25%' BGCOLOR='#CCFFFF'>");
    171. 

  171. print (TABLE_FILE "<center><b>%</b></center>");
    172. 

  172. print (TABLE_FILE "</td>");
    173. 

  173. print (TABLE_FILE "<td COLSPAN='1' WIDTH='25%' BGCOLOR='#CCFFFF'>");
    174. 

  174. print (TABLE_FILE "<center><b>Time</b></center>");
    175. 

  175. print (TABLE_FILE "</td>");
    176. 

  176. print (TABLE_FILE "<td COLSPAN='1' WIDTH='25%' BGCOLOR='#CCFFFF'>");
    177. 

  177. print (TABLE_FILE "<center><b>%</b></center>");
    178. 

  178. print (TABLE_FILE "</td>");
    179. 

  179. print (TABLE_FILE "<td COLSPAN='1' WIDTH='25%' BGCOLOR='#CCFFFF'>");
    180. 

  180. print (TABLE_FILE "<center><b>Time</b></center>");
    181. 

  181. print (TABLE_FILE "</td>");
    182. 

  182. print (TABLE_FILE "</tr>\n\n");
    183. 

  183. close (TABLE_FILE);
    184.