15c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)#!/usr/bin/perl -w 25c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 35c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# Copyright (C) 2007 Apple Inc. All rights reserved. 45c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# 55c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# Redistribution and use in source and binary forms, with or without 65c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# modification, are permitted provided that the following conditions 75c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# are met: 85c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# 1. Redistributions of source code must retain the above copyright 95c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# notice, this list of conditions and the following disclaimer. 105c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# 2. Redistributions in binary form must reproduce the above copyright 115c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# notice, this list of conditions and the following disclaimer in the 125c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# documentation and/or other materials provided with the distribution. 135c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# 145c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# THIS SOFTWARE IS PROVIDED BY APPLE COMPUTER, INC. ``AS IS'' AND ANY 155c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 165c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 175c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL APPLE COMPUTER, INC. OR 185c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, 195c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, 205c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 215c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY 225c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 235c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 245c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 255c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 265c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)use strict; 275c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 285c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)open TEMPLATE, "<resources/TEMPLATE.html"; 295c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)my $template = do { local $/; <TEMPLATE> }; 305c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)close TEMPLATE; 315c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 325c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)open DRIVER_TEMPLATE, "<resources/driver-TEMPLATE.html"; 335c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)my $driverTemplate = do { local $/; <DRIVER_TEMPLATE> }; 345c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)close DRIVER_TEMPLATE; 355c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 365c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)open RESULTS_TEMPLATE, "<resources/results-TEMPLATE.html"; 375c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)my $resultsTemplate = do { local $/; <RESULTS_TEMPLATE> }; 385c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)close RESULTS_TEMPLATE; 395c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 405c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)my @suites = ("sunspider-0.9", "sunspider-0.9.1", "sunspider-1.0"); 415c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 425c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)foreach my $suite (@suites) { 435c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 445c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my @tests = (); 455c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my @categories = (); 465c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my %uniqueCategories = (); 475c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 485c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) mkdir "hosted/${suite}"; 495c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 505c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) open TESTLIST, "<./tests/${suite}/LIST"; 515c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) while (<TESTLIST>) { 525c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) chomp; 535c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) next unless $_; 545c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) push @tests, $_; 555c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my $category = $_; 565c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $category =~ s/-.*//; 575c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) if (!$uniqueCategories{$category}) { 585c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) push @categories, $category; 595c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $uniqueCategories{$category} = $category; 605c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) } 615c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) } 625c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) close TESTLIST; 635c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 645c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my @testContents = (); 655c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) for my $test (@tests) { 665c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my $name = "${test}"; 675c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 685c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) open SCRIPT, "<tests/${suite}/${test}.js"; 695c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my $script = do { local $/; <SCRIPT> }; 705c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) close SCRIPT; 715c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 725c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my $output = $template; 735c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $output =~ s/\@NAME\@/${name}/g; 745c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $output =~ s/\@SCRIPT\@/${script}/g; 755c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $output =~ s/\\/\\\\/g; 765c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $output =~ s/"/\\"/g; 775c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $output =~ s/\n/\\n\\\n/g; 785c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $output = $output; 795c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) push @testContents, $output; 805c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) } 815c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 825c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my $output = $driverTemplate; 835c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $output =~ s/\@SUITE\@/${suite}/g; 845c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 855c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) open OUTPUT, ">hosted/${suite}/driver.html"; 865c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) print OUTPUT $output; 875c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) close OUTPUT; 885c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 895c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $output = $resultsTemplate; 905c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $output =~ s/\@SUITE\@/${suite}/g; 915c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 925c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) open OUTPUT, ">hosted/${suite}/results.html"; 935c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) print OUTPUT $output; 945c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) close OUTPUT; 955c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 965c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my $prefix = "var tests = [ " . join(", ", map { '"' . $_ . '"' } @tests) . " ];\n"; 975c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $prefix .= "var categories = [ " . join(", ", map { '"' . $_ . '"' } @categories) . " ];\n"; 985c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 995c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) open PREFIX, ">hosted/${suite}/sunspider-test-prefix.js"; 1005c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) print PREFIX $prefix; 1015c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) close PREFIX; 1025c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 1035c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my $contents = "var testContents = [ " . join(", ", map { '"' . $_ . '"' } @testContents) . " ];\n"; 1045c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 1055c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) open CONTENTS, ">hosted/${suite}/sunspider-test-contents.js"; 1065c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) print CONTENTS $contents; 1075c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) close CONTENTS; 1085c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)} 1095c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 1105c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)system("cp resources/sunspider-analyze-results.js hosted"); 1115c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)system("cp resources/sunspider-compare-results.js hosted"); 1125c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)print "hosted/sunspider.html is ready to use.\n"; 113