1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/tools/performance/layout/Footer.pl Wed Dec 31 06:09:35 2014 +0100
1.3 @@ -0,0 +1,193 @@
1.4 +##########################################################################################
1.5 +#
1.6 +# This Source Code Form is subject to the terms of the Mozilla Public
1.7 +# License, v. 2.0. If a copy of the MPL was not distributed with this
1.8 +# file, You can obtain one at http://mozilla.org/MPL/2.0/.
1.9 +
1.10 +
1.11 +#------------------------------------------------------------------------------
1.12 +sub debug_print {
1.13 + foreach $str (@_){
1.14 +# print( $str );
1.15 + }
1.16 +}
1.17 +
1.18 +#------------------------------------------------------------------------------
1.19 +@ARGV;
1.20 +$buildRoot = $ARGV[0];
1.21 +#$buildIDFile = '< '.$buildRoot.'\bin\chrome\locales\en-US\navigator\locale\navigator.dtd';
1.22 +$PullID = $ARGV[1];
1.23 +
1.24 +#------------------------------------------------------------------------------
1.25 +# Variables for the values in the AVERAGES.TXT file
1.26 +# NOTE this is the order they appear in the file
1.27 +$Num_Entries = 0;
1.28 +$Avg_Parse_Time = 0;
1.29 +$Avg_Parse_Time_Percentage = 0;
1.30 +$Avg_Content_Time = 0;
1.31 +$Avg_Content_Time_Percentage = 0;
1.32 +$Avg_Frame_Time = 0;
1.33 +$Avg_Frame_Time_Percentage = 0;
1.34 +$Avg_Style_Time = 0;
1.35 +$Avg_Style_Time_Percentage = 0;
1.36 +$Avg_Reflow_Time = 0;
1.37 +$Avg_Reflow_Time_Percentage = 0;
1.38 +$Avg_TotalLayout_Time = 0;
1.39 +$Avg_TotalLayout_Time_Percentage = 0;
1.40 +$Avg_TotalPageLoad_Time = 0;
1.41 +$count = 0;
1.42 +@List;
1.43 +@temp;
1.44 +
1.45 +#------------------------------------------------------------------------------
1.46 +# Get the BuildID
1.47 +#open (XUL_FILE, $buildIDFile) or die "Unable to open BuildID file $buildIDFile (footer.pl)";
1.48 +#$BuildNo = "";
1.49 +#$LineList;
1.50 +#while (<XUL_FILE>)
1.51 +#{
1.52 +# $ThisLine = $_;
1.53 +# chop ($ThisLine);
1.54 +# if (/Build ID/){
1.55 +# @LineList = split (/\"/, $ThisLine);
1.56 +# $BuildNo = $LineList[1];
1.57 +# }
1.58 +#}
1.59 +#$BuildNo =~ s/"//g;
1.60 +#$BuildNo =~ s/[>]//g;
1.61 +#close (XUL_FILE);
1.62 +#debug_print ($BuildNo);
1.63 +
1.64 +#------------------------------------------------------------------------------
1.65 +# Process the averages file: get the number of entries
1.66 +# and divide out the accumulated values
1.67 +#
1.68 +open (AVERAGE, "< Average.txt") or die "Unable to open average.txt (Footer.pl)";
1.69 +while (<AVERAGE>)
1.70 +{
1.71 + $ThisLine = $_;
1.72 + chop ($ThisLine);
1.73 +
1.74 + if( /Num Entries:/ ){
1.75 + @list = split( / /, $ThisLine );
1.76 + $Num_Entries = $list[2];
1.77 + debug_print( "Num Entries in Footer: $Num_Entries\n" );
1.78 + } else {
1.79 + if( $Num_Entries != 0 ){
1.80 + @temp = split (/ /, $ThisLine);
1.81 + $List[$count] = $temp[2];
1.82 + $List[$count] = $List[$count] / $Num_Entries;
1.83 + debug_print( "Averaged entry: $temp[2] / $Num_Entries = $List[$count]\n" );
1.84 + $count ++;
1.85 + } else {
1.86 + print( "Number of entries is 0: this is either a bad file or the universe has imploded\n" );
1.87 + die;
1.88 + }
1.89 + }
1.90 +}
1.91 +close (AVERAGE);
1.92 +
1.93 +#------------------------------------------------------------------------------
1.94 +# Now put the values to the table
1.95 +#
1.96 +open (TABLE_FILE, ">>table.html") or die "Cannot open the file table.html";
1.97 +
1.98 +print (TABLE_FILE "<tr>");
1.99 +print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");
1.100 +print (TABLE_FILE "<center><b><font size =+1>Average</font></b></center>");
1.101 +print (TABLE_FILE "</td>");
1.102 +
1.103 +$Avg_Parse_Time = @List [0];
1.104 +debug_print ("$Avg_Parse_Time\n");
1.105 +print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");
1.106 +printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Parse_Time);
1.107 +print (TABLE_FILE "</td>");
1.108 +
1.109 +$Avg_Parse_Time_Percentage = @List [1];
1.110 +debug_print ("$Avg_Parse_Time_Percentage\n");
1.111 +print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");
1.112 +printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Parse_Time_Percentage);
1.113 +print (TABLE_FILE "</td>");
1.114 +
1.115 +$Avg_Content_Time = @List [2];
1.116 +debug_print ("$Avg_Content_Time\n");
1.117 +print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");
1.118 +printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Content_Time);
1.119 +print (TABLE_FILE "</td>");
1.120 +
1.121 +$Avg_Content_Time_Percentage = @List [3];
1.122 +debug_print ("$Avg_Content_Time_Percentage\n");
1.123 +print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");
1.124 +printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Content_Time_Percentage);
1.125 +print (TABLE_FILE "</td>");
1.126 +
1.127 +$Avg_Frame_Time = @List [4];
1.128 +debug_print ("$Avg_Frame_Time\n");
1.129 +print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");
1.130 +printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Frame_Time);
1.131 +print (TABLE_FILE "</td>");
1.132 +
1.133 +$Avg_Frame_Time_Percentage = @List [5];
1.134 +debug_print ("$Avg_Frame_Time_Percentage\n");
1.135 +print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");
1.136 +printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Frame_Time_Percentage);
1.137 +print (TABLE_FILE "</td>");
1.138 +
1.139 +$Avg_Style_Time = @List [6];
1.140 +debug_print ("$Avg_Style_Time\n");
1.141 +print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");
1.142 +printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Style_Time);
1.143 +print (TABLE_FILE "</td>");
1.144 +
1.145 +$Avg_Style_Time_Percentage = @List [7];
1.146 +debug_print ("$Avg_Style_Time_Percentage\n");
1.147 +print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");
1.148 +printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Style_Time_Percentage);
1.149 +print (TABLE_FILE "</td>");
1.150 +
1.151 +$Avg_Reflow_Time = @List [8];
1.152 +debug_print ("$Avg_Reflow_Time\n");
1.153 +print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");
1.154 +printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Reflow_Time);
1.155 +print (TABLE_FILE "</td>");
1.156 +
1.157 +$Avg_Reflow_Time_Percentage = @List [9];
1.158 +debug_print ("$Avg_Reflow_Time_Percentage\n");
1.159 +print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");
1.160 +printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_Reflow_Time_Percentage);
1.161 +print (TABLE_FILE "</td>");
1.162 +
1.163 +$Avg_TotalLayout_Time = @List [10];
1.164 +debug_print ("$Avg_TotalLayout_Time\n");
1.165 +print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");
1.166 +printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_TotalLayout_Time);
1.167 +print (TABLE_FILE "</td>");
1.168 +
1.169 +$Avg_TotalLayout_Time_Percentage = @List [11];
1.170 +debug_print ("$Avg_TotalLayout_Time_Percentage\n");
1.171 +print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");
1.172 +printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_TotalLayout_Time_Percentage);
1.173 +print (TABLE_FILE "</td>");
1.174 +
1.175 +$Avg_TotalPageLoad_Time = @List [12];
1.176 +debug_print ("$Avg_TotalPageLoad_Time\n");
1.177 +print (TABLE_FILE "<td BGCOLOR='#CCFFFF'>");
1.178 +printf (TABLE_FILE "<center>%4.2f</center></B></FONT>",$Avg_TotalPageLoad_Time);
1.179 +print (TABLE_FILE "</td>");
1.180 +
1.181 +print (TABLE_FILE "</tr>");
1.182 +print (TABLE_FILE "</table>");
1.183 +print (TABLE_FILE "</html>");
1.184 +
1.185 +close (TABLE_FILE);
1.186 +
1.187 +#------------------------------------------------------------------------------
1.188 +# Now create the History file entries
1.189 +# FORMAT: "pullID, buildID, ParseTime, ParsePer, ContentTime, ContentPer, FrameTime, FramePer,
1.190 +# StyleTime, StylePer, ReflowTime, ReflowPer, LayoutTime, LayoutPer, TotalTime"
1.191 +#
1.192 +open (HISTORY, ">> History.txt" ) or die "History file could not be opened: no history will be written\n";
1.193 +print(HISTORY "$PullID,$BuildNo,$Avg_Parse_Time,$Avg_Parse_Time_Percentage,$Avg_Content_Time,$Avg_Content_Time_Percentage,");
1.194 +print(HISTORY "$Avg_Frame_Time,$Avg_Frame_Time_Percentage,$Avg_Style_Time,$Avg_Style_Time_Percentage,$Avg_Reflow_Time,$Avg_Reflow_Time_Percentage,");
1.195 +print(HISTORY "$Avg_TotalLayout_Time,$Avg_TotalLayout_Time_Percentage,$Avg_TotalPageLoad_Time\n");
1.196 +close(HISTORY);
