diff options
| author | Steve Block <steveblock@google.com> | 2011-05-06 11:45:16 +0100 |
|---|---|---|
| committer | Steve Block <steveblock@google.com> | 2011-05-12 13:44:10 +0100 |
| commit | cad810f21b803229eb11403f9209855525a25d57 (patch) | |
| tree | 29a6fd0279be608e0fe9ffe9841f722f0f4e4269 /WebCore/combine-javascript-resources | |
| parent | 121b0cf4517156d0ac5111caf9830c51b69bae8f (diff) | |
| download | external_webkit-cad810f21b803229eb11403f9209855525a25d57.zip external_webkit-cad810f21b803229eb11403f9209855525a25d57.tar.gz external_webkit-cad810f21b803229eb11403f9209855525a25d57.tar.bz2 | |
Merge WebKit at r75315: Initial merge by git.
Change-Id: I570314b346ce101c935ed22a626b48c2af266b84
Diffstat (limited to 'WebCore/combine-javascript-resources')
| -rwxr-xr-x | WebCore/combine-javascript-resources | 81 |
1 files changed, 0 insertions, 81 deletions
diff --git a/WebCore/combine-javascript-resources b/WebCore/combine-javascript-resources deleted file mode 100755 index 428b6b7..0000000 --- a/WebCore/combine-javascript-resources +++ /dev/null @@ -1,81 +0,0 @@ -#!/usr/bin/perl -w - -# Copyright (C) 2008 Apple Inc. All Rights Reserved. -# -# Redistribution and use in source and binary forms, with or without -# modification, are permitted provided that the following conditions -# are met: -# 1. Redistributions of source code must retain the above copyright -# notice, this list of conditions and the following disclaimer. -# 2. Redistributions in binary form must reproduce the above copyright -# notice, this list of conditions and the following disclaimer in the -# documentation and/or other materials provided with the distribution. -# -# THIS SOFTWARE IS PROVIDED BY APPLE INC. ``AS IS'' AND ANY -# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL APPLE INC. OR -# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, -# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, -# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR -# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY -# OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE -# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -# Script to combine multiple JavaScript files into one file, based on -# the script tags in the head of an input HTML file. - -use strict; -use Getopt::Long; -use File::Basename; -use File::Path; - -my $generatedScriptsDirectory; -my $outputDirectory; -my $scriptName; -my $htmlFile; - -GetOptions('output-dir=s' => \$outputDirectory, - 'output-script-name=s' => \$scriptName, - 'generated-scripts-dir=s' => \$generatedScriptsDirectory, - 'input-html=s' => \$htmlFile); - -unless (defined $htmlFile and defined $scriptName and defined $outputDirectory) { - print "Usage: $0 --input-html <path> --output-dir path --output-script-name <name>\n"; - exit; -} - -my $htmlDirectory = dirname($htmlFile); -my $htmlContents; - -{ - local $/; - open HTML, $htmlFile or die; - $htmlContents = <HTML>; - close HTML; -} - -$htmlContents =~ m/<head>(.*)<\/head>/si; -my $headContents = $1; - -mkpath $outputDirectory; -open SCRIPT_OUT, ">", "$outputDirectory/$scriptName" or die "Can't open $outputDirectory/$scriptName: $!"; - -while ($headContents =~ m/<script.*src="([^"]*)"[^>]*>/gi) { - local $/; - open SCRIPT_IN, "$generatedScriptsDirectory/$1" or open SCRIPT_IN, "$htmlDirectory/$1" or die "Can't open $htmlDirectory/$1: $!"; - print SCRIPT_OUT "/* $1 */\n\n"; - print SCRIPT_OUT <SCRIPT_IN>; - close SCRIPT_IN; -} - -close SCRIPT_OUT; - -$headContents =~ s/<script.*src="[^"]*"[^>]*><\/script>\s*//gi; -$headContents .= "<script type=\"text/javascript\" src=\"$scriptName\"></script>\n"; -$htmlContents =~ s/<head>.*<\/head>/<head>$headContents<\/head>/si; - -open HTML, ">", "$outputDirectory/" . basename($htmlFile) or die "Can't open $outputDirectory/" . basename($htmlFile) . ": $!"; -print HTML $htmlContents; -close HTML; |