1#!/usr/bin/perl -w 2 3# Copyright (C) 2006, 2007, 2008 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# 9# 1. Redistributions of source code must retain the above copyright 10# notice, this list of conditions and the following disclaimer. 11# 2. Redistributions in binary form must reproduce the above copyright 12# notice, this list of conditions and the following disclaimer in the 13# documentation and/or other materials provided with the distribution. 14# 3. Neither the name of Apple Computer, Inc. ("Apple") nor the names of 15# its contributors may be used to endorse or promote products derived 16# from this software without specific prior written permission. 17# 18# THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY 19# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 20# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 21# DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY 22# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 23# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 24# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND 25# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 26# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 27# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 28 29# Script to generate HTML wrappers for JavaScript tests from templates 30 31use strict; 32 33use FindBin; 34use lib $FindBin::Bin; 35 36use File::Basename; 37use File::Find; 38use Getopt::Long; 39use webkitdirs; 40 41sub directoryFilter; 42sub findTemplateFiles(@); 43 44my $showHelp; 45 46my $result = GetOptions( 47 "help" => \$showHelp, 48); 49 50if (!$result || $showHelp) { 51 print STDERR basename($0) . " [-h|--help] [path ...]\n"; 52 exit 1; 53} 54 55setConfiguration(); 56my $productDir = productDir(); 57 58chdirWebKit(); 59 60my @templates = findTemplateFiles(@ARGV); 61 62for my $tfile (@templates) { 63 64 my $tpath = $tfile; 65 my $templateDirectory; 66 my $templateRelativePath; 67 if ($tpath =~ s:/(script-tests)/TEMPLATE.html$::) { 68 $templateDirectory = $1; 69 $templateRelativePath = $1 . "/TEMPLATE.html"; 70 } else { 71 print "Inappropriate position of a template: ${tpath}\n"; 72 next; 73 } 74 75 print "${tpath}\n"; 76 77 chdirWebKit(); 78 chdir($tpath); 79 80 my @files; 81 my $fileFilter = sub { 82 push @files, $File::Find::name if substr($_, -3) eq ".js"; 83 }; 84 find({ preprocess => \&directoryFilter, wanted => $fileFilter }, $templateDirectory); 85 86 open TEMPLATE, "<${templateRelativePath}"; 87 my $template = do { local $/; <TEMPLATE> }; 88 close TEMPLATE; 89 90 my $templateNegative = $template; 91 if (-e "${templateDirectory}/TEMPLATE-n.html") { 92 open TEMPLATE, "<${templateDirectory}/TEMPLATE-n.html"; 93 $templateNegative = do { local $/; <TEMPLATE> }; 94 close TEMPLATE; 95 } 96 97 for my $file (@files) { 98 my $html = $file; 99 $html =~ s:${templateDirectory}/(.*)\.js:$1.html:; 100 next if -f "$html-disabled"; 101 102 system("cat ${file} | tr '\\0' ' ' | grep -q 'successfullyParsed ='"); 103 if ($? != 0) { 104 `echo "" >> "${file}"`; 105 `echo "var successfullyParsed = true;" >> "${file}"`; 106 } 107 108 print " ${html}\n"; 109 open HTML, ">$html"; 110 my $output = ($file =~ /-n\.js/) ? $templateNegative : $template; 111 $output =~ s:YOUR_JS_FILE_HERE:$file:; 112 print HTML $output; 113 114 close HTML; 115 } 116} 117 118exit 0; 119 120sub directoryFilter 121{ 122 return () if basename($File::Find::dir) eq ".svn"; 123 return @_; 124} 125 126sub findTemplateFiles(@) { 127 my @args = @_; 128 my @templateFiles; 129 130 push @args, "LayoutTests" if scalar(@args) == 0; 131 132 my @paths = map { -f $_ ? dirname($_) : $_ } @args; 133 134 my $fileFilter = sub { 135 push @templateFiles, $File::Find::name if $_ eq "TEMPLATE.html"; 136 }; 137 138 find({ preprocess => \&directoryFilter, wanted => $fileFilter }, @paths); 139 140 return @templateFiles; 141} 142