code.vuplus.com Git - vuplus_webkit/blob - Tools/Scripts/make-script-test-wrappers

   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
  31 use strict;
  32
  33 use FindBin;
  34 use lib $FindBin::Bin;
  35
  36 use File::Basename;
  37 use File::Find;
  38 use Getopt::Long;
  39 use webkitdirs;
  40
  41 sub directoryFilter;
  42 sub findTemplateFiles(@);
  43
  44 my $showHelp;
  45
  46 my $result = GetOptions(
  47     "help"       => \$showHelp,
  48 );
  49
  50 if (!$result || $showHelp) {
  51     print STDERR basename($0) . " [-h|--help] [path ...]\n";
  52     exit 1;
  53 }
  54
  55 setConfiguration();
  56 my $productDir = productDir();
  57
  58 chdirWebKit();
  59
  60 my @templates = findTemplateFiles(@ARGV);
  61
  62 for 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
 118 exit 0;
 119
 120 sub directoryFilter
 121 {
 122     return () if basename($File::Find::dir) eq ".svn";
 123     return @_;
 124 }
 125
 126 sub 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 }