1563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark#!/usr/bin/perl -w 2563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 3563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# Copyright (C) 2006 Apple Computer, Inc. All rights reserved. 4563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# Copyright (C) 2006 Mark Rowe <opendarwin.org@bdash.net.nz>. All rights reserved. 5563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# 6563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# Redistribution and use in source and binary forms, with or without 7563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# modification, are permitted provided that the following conditions 8563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# are met: 9563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# 10563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# 1. Redistributions of source code must retain the above copyright 11563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# notice, this list of conditions and the following disclaimer. 12563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# 2. Redistributions in binary form must reproduce the above copyright 13563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# notice, this list of conditions and the following disclaimer in the 14563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# documentation and/or other materials provided with the distribution. 15563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# 3. Neither the name of Apple Computer, Inc. ("Apple") nor the names of 16563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# its contributors may be used to endorse or promote products derived 17563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# from this software without specific prior written permission. 18563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# 19563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY 20563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 21563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 22563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY 23563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 24563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 25563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND 26563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 27563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 28563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 29563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 30563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# Creates the launcher WebKit.app with bundled frameworks. 31563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 32563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarkuse strict; 33563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 34563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarkuse FindBin; 35563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarkuse lib "$FindBin::Bin/../Scripts"; 36563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarkuse webkitdirs; 37563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 38563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarkmy @xcodeBuildArguments = XcodeOptions(); 39563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarkmy $nightlyLauncherTemplatePath = "$FindBin::Bin/../WebKitLauncher"; 40563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarkmy $nightlyLauncherStagingPath = productDir() . "/WebKit.app"; 41563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 42563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarksub buildNightlyLauncher 43563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark{ 44563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark chdir($nightlyLauncherTemplatePath); 45563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark system("xcodebuild", "clean", "-alltargets", @xcodeBuildArguments, @ARGV) == 0 or die "Failed cleaning WebKitLauncher project"; 46563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark system("xcodebuild", @xcodeBuildArguments, @ARGV) == 0 or die "Failed building WebKitLauncher project"; 47563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark chdirWebKit(); 48563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark} 49563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 50563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarksub currentRevision 51563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark{ 52563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my $sourceDir = sourceDir(); 53563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark if (isSVNDirectory($sourceDir)) { 54563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark return currentSVNRevision(); 55563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } elsif (isGitDirectory($sourceDir)) { 56563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my $gitLog = `cd $sourceDir && LC_ALL=C git log --grep='git-svn-id: ' -n 1 | grep git-svn-id:`; 57563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark (my $revision) = ($gitLog =~ m/ +git-svn-id: .+@(\d+) /g); 58563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark return $revision; 59563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 60563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark} 61563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 62563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarksub currentBranch 63563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark{ 64563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my $sourceDir = sourceDir(); 65563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my ($url, $branch); 66563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark if (isSVNDirectory($sourceDir)) { 67563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my $svnInfo = `LC_ALL=C svn info $sourceDir | grep URL:`; 68563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark ($url) = ($svnInfo =~ m/URL: (.+)/g); 69563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } elsif (isGitDirectory($sourceDir)) { 70563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my $gitLog = `cd $sourceDir && LC_ALL=C git log --grep='git-svn-id: ' -n 1 | grep git-svn-id:`; 71563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark ($url) = ($gitLog =~ m/ +git-svn-id: (.+)@\d+ /g); 72563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 73563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark ($branch) = ($url =~ m/\/webkit\/(trunk|branches\/[^\/]+)/); 74563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark die "Unable to determine current SVN branch in $sourceDir" unless (defined $branch); 75563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark $branch =~ s/^branches\///; 76563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark return $branch; 77563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark} 78563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 79563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarksub copyNightlyLauncher 80563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark{ 81563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my $revision = currentRevision(); 82563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my $branch = currentBranch(); 83563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 84563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my $infoPlist = "$nightlyLauncherStagingPath/Contents/Info.plist"; 85563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my $versionFile = "$nightlyLauncherStagingPath/Contents/Resources/VERSION"; 86563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my $branchFile = "$nightlyLauncherStagingPath/Contents/Resources/BRANCH"; 87563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my $data; 88563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark open(IN, $infoPlist) or die "Couldn't open Info.plist in built application for reading"; 89563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark { 90563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark undef $/; 91563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark $data = <IN>; 92563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 93563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark close(IN); 94563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark open(OUT, ">$infoPlist") or die "Couldn't open Info.plist in built application for writing"; 95563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark $data =~ s/VERSION/$revision/g; 96563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark print OUT $data; 97563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark close(OUT); 98563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 99563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark open(OUT, ">$versionFile") or die "Couldn't open VERSION in built application for writing"; 100563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark print OUT "$revision\n"; 101563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark close(OUT); 102563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 103563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark open(OUT, ">$branchFile") or die "Couldn't open BRANCH in built application for writing"; 104563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark print OUT "$branch\n"; 105563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark close(OUT); 106563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 107563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my @frameworks = ("JavaScriptCore", "JavaScriptGlue", "WebCore", "WebKit"); 108563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark for my $framework (@frameworks) { 109563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark system("ditto", productDir() . "/$framework.framework", "$nightlyLauncherStagingPath/Contents/Resources/$framework.framework") == 0 or die "Failed copying $framework.framework into $nightlyLauncherStagingPath"; 110563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 111563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark} 112563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 113563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarkmy $b = currentBranch(); 114563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarkmy $r = currentRevision(); 115563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarkprint "Branch: ", $b, "\n"; 116563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarkprint "Revision: ", $r, "\n"; 117563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 118563af33bc48281d19dce701398dbb88cb54fd7ecCary ClarkchdirWebKit(); 119563af33bc48281d19dce701398dbb88cb54fd7ecCary ClarkbuildNightlyLauncher(); 120563af33bc48281d19dce701398dbb88cb54fd7ecCary ClarkcopyNightlyLauncher(); 121