#!/usr/bin/perl -w # Copyright (C) 2015 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. AND ITS CONTRIBUTORS ``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 ITS 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. use strict; use Getopt::Long; use File::Basename; use File::Path; our $inputDirectory; our $outputDirectory; our $outputScriptName; our $outputStylesheetName; our $derivedSourcesDirectory; our $htmlDirectory; our $htmlFile; our $strip; GetOptions('output-dir=s' => \$outputDirectory, 'output-script-name=s' => \$outputScriptName, 'output-style-name=s' => \$outputStylesheetName, 'derived-sources-dir=s' => \$derivedSourcesDirectory, 'input-dir=s' => \$inputDirectory, 'input-html-dir=s' => \$htmlDirectory, 'input-html=s' => \$htmlFile, 'strip' => \$strip); unless (defined $htmlFile and defined $derivedSourcesDirectory and defined $outputDirectory and (defined $strip or defined $outputScriptName or defined $outputStylesheetName)) { print "Usage: $0 --input-html --derived-sources-dir --output-dir [--output-script-name ] [--output-style-name ] [--strip]\n"; exit; } $htmlDirectory = dirname($htmlFile) unless $htmlDirectory; our $htmlContents; { local $/; open HTML, $htmlFile or die; $htmlContents = ; close HTML; } $htmlContents =~ m/(.*)<\/head>/si; our $headContents = $1; mkpath $outputDirectory; sub concatenateFiles($$$) { my $filename = shift; my $tagExpression = shift; my $concatenatedTag = shift; my $fileCount = 0; open OUT, ">", "$outputDirectory/$filename" or die "Can't open $outputDirectory/$filename: $!"; while ($headContents =~ m/$tagExpression/gi) { local $/; open IN, "$htmlDirectory/$1" or open IN, "$derivedSourcesDirectory/$1" or die "Can't open $htmlDirectory/$1: $!"; print OUT "\n" if $fileCount++; print OUT "/* $1 */\n\n"; print OUT ; close IN; } close OUT; # Don't use \s so we can control the newlines we consume. my $replacementExpression = "([\t ]*)" . $tagExpression . "[\t ]*\n+"; if (defined $strip) { # Just strip all occurrences of the pattern. $headContents =~ s/$replacementExpression//gi; } else { # Replace the first occurrence with a token so we can inject the concatenated tag in the same place # as the first file that got consolidated. This makes sure we preserve some order if there are other # items in the head that we didn't consolidate. $headContents =~ s/$replacementExpression/$1%CONCATENATED%\n/i; $headContents =~ s/$replacementExpression//gi; $headContents =~ s/%CONCATENATED%/$concatenatedTag/; } } my $inputDirectoryPattern = "(?!External\/)[^\"]*"; $inputDirectoryPattern = $inputDirectory . "\/[^\"]*" if $inputDirectory; concatenateFiles($outputStylesheetName, "", "") if defined $outputStylesheetName; concatenateFiles($outputScriptName, "") if defined $outputScriptName; $htmlContents =~ s/.*<\/head>/$headContents<\/head>/si; open HTML, ">", "$outputDirectory/" . basename($htmlFile) or die "Can't open $outputDirectory/" . basename($htmlFile) . ": $!"; print HTML $htmlContents; close HTML;