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