diff options
| author | Ben Murdoch <benm@google.com> | 2011-06-02 12:07:03 +0100 |
|---|---|---|
| committer | Ben Murdoch <benm@google.com> | 2011-06-10 10:47:21 +0100 |
| commit | 2daae5fd11344eaa88a0d92b0f6d65f8d2255c00 (patch) | |
| tree | e4964fbd1cb70599f7718ff03e50ea1dab33890b /Source/WebCore/combine-javascript-resources | |
| parent | 87bdf0060a247bfbe668342b87e0874182e0ffa9 (diff) | |
| download | external_webkit-2daae5fd11344eaa88a0d92b0f6d65f8d2255c00.zip external_webkit-2daae5fd11344eaa88a0d92b0f6d65f8d2255c00.tar.gz external_webkit-2daae5fd11344eaa88a0d92b0f6d65f8d2255c00.tar.bz2 | |
Merge WebKit at r84325: Initial merge by git.
Change-Id: Ic1a909300ecc0a13ddc6b4e784371d2ac6e3d59b
Diffstat (limited to 'Source/WebCore/combine-javascript-resources')
| -rwxr-xr-x | Source/WebCore/combine-javascript-resources | 81 |
1 files changed, 0 insertions, 81 deletions
diff --git a/Source/WebCore/combine-javascript-resources b/Source/WebCore/combine-javascript-resources deleted file mode 100755 index 428b6b7..0000000 --- a/Source/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; |