WebCore/combine-javascript-resources

   1 #!/usr/bin/perl -w
   2
   3 # Copyright (C) 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 # 1. Redistributions of source code must retain the above copyright
   9 #    notice, this list of conditions and the following disclaimer.
  10 # 2. Redistributions in binary form must reproduce the above copyright
  11 #    notice, this list of conditions and the following disclaimer in the
  12 #    documentation and/or other materials provided with the distribution.
  13 #
  14 # THIS SOFTWARE IS PROVIDED BY APPLE INC. ``AS IS'' AND ANY
  15 # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  16 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  17 # PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL APPLE INC. OR
  18 # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
  19 # EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
  20 # PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
  21 # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
  22 # OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  23 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
  24 # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  25
  26 # Script to combine multiple JavaScript files into one file, based on
  27 # the script tags in the head of an input HTML file.
  28
  29 use strict;
  30 use Getopt::Long;
  31 use File::Basename;
  32 use File::Path;
  33
  34 my $outputDirectory;
  35 my $scriptName;
  36 my $htmlFile;
  37
  38 GetOptions('output-dir=s' => \$outputDirectory,
  39            'output-script-name=s' => \$scriptName,
  40            'input-html=s' => \$htmlFile);
  41
  42 unless (defined $htmlFile and defined $scriptName and defined $outputDirectory) {
  43     print "Usage: $0 --input-html <path> --output-dir path --output-script-name <name>\n";
  44     exit;
  45 }
  46
  47 my $htmlDirectory = dirname($htmlFile);
  48 my $htmlContents;
  49
  50 {
  51     local $/;
  52     open HTML, $htmlFile or die;
  53     $htmlContents = <HTML>;
  54     close HTML;
  55 }
  56
  57 $htmlContents =~ m/<head>(.*)<\/head>/si;
  58 my $headContents = $1;
  59
  60 mkpath $outputDirectory;
  61 open SCRIPT_OUT, ">", "$outputDirectory/$scriptName" or die "Can't open $outputDirectory/$scriptName: $!";
  62
  63 while ($headContents =~ m/<script.*src="([^"]*)"[^>]*>/gi) {
  64     local $/;
  65     open SCRIPT_IN, "$htmlDirectory/$1" or die "Can't open $htmlDirectory/$1: $!";
  66     print SCRIPT_OUT "/* $1 */\n\n";
  67     print SCRIPT_OUT <SCRIPT_IN>;
  68     close SCRIPT_IN;
  69 }
  70
  71 close SCRIPT_OUT;
  72
  73 $headContents =~ s/<script.*src="[^"]*"[^>]*><\/script>\s*//gi;
  74 $headContents .= "<script type=\"text/javascript\" src=\"$scriptName\"></script>\n";
  75 $htmlContents =~ s/<head>.*<\/head>/<head>$headContents<\/head>/si;
  76
  77 open HTML, ">", "$outputDirectory/" . basename($htmlFile) or die "Can't open $outputDirectory/" . basename($htmlFile) . ": $!";
  78 print HTML $htmlContents;
  79 close HTML;