1 #!/usr/bin/perl -w 2 3 # Copyright (C) 2007 Apple Inc. All rights reserved. 4 # 5 # Redistribution and use in source and binary forms, with or without 6 # modification, are permitted provided that the following conditions 7 # are met: 8 # 1. Redistributions of source code must retain the above copyright 9 # notice, this list of conditions and the following disclaimer. 10 # 2. Redistributions in binary form must reproduce the above copyright 11 # notice, this list of conditions and the following disclaimer in the 12 # documentation and/or other materials provided with the distribution. 13 # 14 # THIS SOFTWARE IS PROVIDED BY APPLE COMPUTER, INC. ``AS IS'' AND ANY 15 # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 16 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 17 # PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL APPLE COMPUTER, INC. OR 18 # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, 19 # EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, 20 # PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 21 # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY 22 # OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 23 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 24 # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 25 26 use strict; 27 28 open TEMPLATE, "<resources/TEMPLATE.html"; 29 my $template = do { local $/; <TEMPLATE> }; 30 close TEMPLATE; 31 32 open DRIVER_TEMPLATE, "<resources/driver-TEMPLATE.html"; 33 my $driverTemplate = do { local $/; <DRIVER_TEMPLATE> }; 34 close DRIVER_TEMPLATE; 35 36 open RESULTS_TEMPLATE, "<resources/results-TEMPLATE.html"; 37 my $resultsTemplate = do { local $/; <RESULTS_TEMPLATE> }; 38 close RESULTS_TEMPLATE; 39 40 my @suites = ("sunspider-0.9", "sunspider-0.9.1"); 41 42 foreach my $suite (@suites) { 43 44 my @tests = (); 45 my @categories = (); 46 my %uniqueCategories = (); 47 48 mkdir "hosted/${suite}"; 49 50 open TESTLIST, "<./tests/${suite}/LIST"; 51 while (<TESTLIST>) { 52 chomp; 53 next unless $_; 54 push @tests, $_; 55 my $category = $_; 56 $category =~ s/-.*//; 57 if (!$uniqueCategories{$category}) { 58 push @categories, $category; 59 $uniqueCategories{$category} = $category; 60 } 61 } 62 close TESTLIST; 63 64 my @testContents = (); 65 for my $test (@tests) { 66 my $name = "${test}"; 67 68 open SCRIPT, "<tests/${suite}/${test}.js"; 69 my $script = do { local $/; <SCRIPT> }; 70 close SCRIPT; 71 72 my $output = $template; 73 $output =~ s/\@NAME\@/${name}/g; 74 $output =~ s/\@SCRIPT\@/${script}/g; 75 $output =~ s/\\/\\\\/g; 76 $output =~ s/"/\\"/g; 77 $output =~ s/\n/\\n\\\n/g; 78 $output = $output; 79 push @testContents, $output; 80 } 81 82 my $output = $driverTemplate; 83 $output =~ s/\@SUITE\@/${suite}/g; 84 85 open OUTPUT, ">hosted/${suite}/driver.html"; 86 print OUTPUT $output; 87 close OUTPUT; 88 89 $output = $resultsTemplate; 90 $output =~ s/\@SUITE\@/${suite}/g; 91 92 open OUTPUT, ">hosted/${suite}/results.html"; 93 print OUTPUT $output; 94 close OUTPUT; 95 96 my $prefix = "var tests = [ " . join(", ", map { '"' . $_ . '"' } @tests) . " ];\n"; 97 $prefix .= "var categories = [ " . join(", ", map { '"' . $_ . '"' } @categories) . " ];\n"; 98 99 open PREFIX, ">hosted/${suite}/sunspider-test-prefix.js"; 100 print PREFIX $prefix; 101 close PREFIX; 102 103 my $contents = "var testContents = [ " . join(", ", map { '"' . $_ . '"' } @testContents) . " ];\n"; 104 105 open CONTENTS, ">hosted/${suite}/sunspider-test-contents.js"; 106 print CONTENTS $contents; 107 close CONTENTS; 108 } 109 110 system("cp resources/sunspider-analyze-results.js hosted"); 111 system("cp resources/sunspider-compare-results.js hosted"); 112 print "hosted/sunspider.html is ready to use.\n"; 113
