3 # Copyright (C) 2006, 2007, 2008 Apple Inc. All rights reserved.
5 # Redistribution and use in source and binary forms, with or without
6 # modification, are permitted provided that the following conditions
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.
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.
29 # Script to generate HTML wrappers for JavaScript tests from templates
34 use lib $FindBin::Bin;
42 sub findTemplateFiles(@);
46 my $result = GetOptions(
50 if (!$result || $showHelp) {
51 print STDERR basename($0) . " [-h|--help]\n";
56 my $productDir = productDir();
60 my @templates = findTemplateFiles(@ARGV);
62 for my $tfile (@templates) {
65 my $templateDirectory;
66 my $templateRelativePath;
67 if ($tpath =~ s:/(script-tests)/TEMPLATE.html$::) {
68 $templateDirectory = $1;
69 $templateRelativePath = $1 . "/TEMPLATE.html";
71 print "Inappropriate position of a template: ${tpath}\n";
81 my $fileFilter = sub {
82 push @files, $File::Find::name if substr($_, -3) eq ".js";
84 find({ preprocess => \&directoryFilter, wanted => $fileFilter }, $templateDirectory);
86 open TEMPLATE, "<${templateRelativePath}";
87 my $template = do { local $/; <TEMPLATE> };
90 my $templateNegative = $template;
91 if (-e "${templateDirectory}/TEMPLATE-n.html") {
92 open TEMPLATE, "<${templateDirectory}/TEMPLATE-n.html";
93 $templateNegative = do { local $/; <TEMPLATE> };
97 for my $file (@files) {
99 $html =~ s:${templateDirectory}/(.*)\.js:$1.html:;
100 next if -f "$html-disabled";
102 system("cat ${file} | tr '\\0' ' ' | grep -q 'successfullyParsed ='");
104 `echo "" >> "${file}"`;
105 `echo "var successfullyParsed = true;" >> "${file}"`;
110 my $output = ($file =~ /-n\.js/) ? $templateNegative : $template;
111 $output =~ s:YOUR_JS_FILE_HERE:$file:;
122 return () if basename($File::Find::dir) eq ".svn";
126 sub findTemplateFiles(@) {
129 my $fileFilter = sub {
130 push @templateFiles, $File::Find::name if $_ eq "TEMPLATE.html";
133 find({ preprocess => \&directoryFilter, wanted => $fileFilter }, "LayoutTests/fast/js");
135 return @templateFiles;