1#!/usr/bin/perl -w 2 3# Copyright (C) 2006 Apple Computer, Inc. All rights reserved. 4# Copyright (C) 2006 Mark Rowe <opendarwin.org@bdash.net.nz>. All rights reserved. 5# 6# Redistribution and use in source and binary forms, with or without 7# modification, are permitted provided that the following conditions 8# are met: 9# 10# 1. Redistributions of source code must retain the above copyright 11# notice, this list of conditions and the following disclaimer. 12# 2. Redistributions in binary form must reproduce the above copyright 13# notice, this list of conditions and the following disclaimer in the 14# documentation and/or other materials provided with the distribution. 15# 3. Neither the name of Apple Computer, Inc. ("Apple") nor the names of 16# its contributors may be used to endorse or promote products derived 17# from this software without specific prior written permission. 18# 19# THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY 20# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 21# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 22# DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY 23# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 24# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 25# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND 26# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 27# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 28# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 29 30# Creates the launcher WebKit.app with bundled frameworks. 31 32use strict; 33 34use FindBin; 35use lib "$FindBin::Bin/../Scripts"; 36use webkitdirs; 37 38my @xcodeBuildArguments = XcodeOptions(); 39my $nightlyLauncherTemplatePath = "$FindBin::Bin/../WebKitLauncher"; 40my $nightlyLauncherStagingPath = productDir() . "/WebKit.app"; 41 42sub buildNightlyLauncher 43{ 44 chdir($nightlyLauncherTemplatePath); 45 system("xcodebuild", "clean", "-alltargets", @xcodeBuildArguments, @ARGV) == 0 or die "Failed cleaning WebKitLauncher project"; 46 system("xcodebuild", @xcodeBuildArguments, @ARGV) == 0 or die "Failed building WebKitLauncher project"; 47 chdirWebKit(); 48} 49 50sub currentRevision 51{ 52 my $sourceDir = sourceDir(); 53 if (isSVNDirectory($sourceDir)) { 54 return currentSVNRevision(); 55 } elsif (isGitDirectory($sourceDir)) { 56 my $gitLog = `cd $sourceDir && LC_ALL=C git log --grep='git-svn-id: ' -n 1 | grep git-svn-id:`; 57 (my $revision) = ($gitLog =~ m/ +git-svn-id: .+@(\d+) /g); 58 return $revision; 59 } 60} 61 62sub currentBranch 63{ 64 my $sourceDir = sourceDir(); 65 my ($url, $branch); 66 if (isSVNDirectory($sourceDir)) { 67 my $svnInfo = `LC_ALL=C svn info $sourceDir | grep URL:`; 68 ($url) = ($svnInfo =~ m/URL: (.+)/g); 69 } elsif (isGitDirectory($sourceDir)) { 70 my $gitLog = `cd $sourceDir && LC_ALL=C git log --grep='git-svn-id: ' -n 1 | grep git-svn-id:`; 71 ($url) = ($gitLog =~ m/ +git-svn-id: (.+)@\d+ /g); 72 } 73 ($branch) = ($url =~ m/\/webkit\/(trunk|branches\/[^\/]+)/); 74 die "Unable to determine current SVN branch in $sourceDir" unless (defined $branch); 75 $branch =~ s/^branches\///; 76 return $branch; 77} 78 79sub copyNightlyLauncher 80{ 81 my $revision = currentRevision(); 82 my $branch = currentBranch(); 83 84 my $infoPlist = "$nightlyLauncherStagingPath/Contents/Info.plist"; 85 my $versionFile = "$nightlyLauncherStagingPath/Contents/Resources/VERSION"; 86 my $branchFile = "$nightlyLauncherStagingPath/Contents/Resources/BRANCH"; 87 my $data; 88 open(IN, $infoPlist) or die "Couldn't open Info.plist in built application for reading"; 89 { 90 undef $/; 91 $data = <IN>; 92 } 93 close(IN); 94 open(OUT, ">$infoPlist") or die "Couldn't open Info.plist in built application for writing"; 95 $data =~ s/VERSION/$revision/g; 96 print OUT $data; 97 close(OUT); 98 99 open(OUT, ">$versionFile") or die "Couldn't open VERSION in built application for writing"; 100 print OUT "$revision\n"; 101 close(OUT); 102 103 open(OUT, ">$branchFile") or die "Couldn't open BRANCH in built application for writing"; 104 print OUT "$branch\n"; 105 close(OUT); 106 107 my @frameworks = ("JavaScriptCore", "JavaScriptGlue", "WebCore", "WebKit"); 108 for my $framework (@frameworks) { 109 system("ditto", productDir() . "/$framework.framework", "$nightlyLauncherStagingPath/Contents/Resources/$framework.framework") == 0 or die "Failed copying $framework.framework into $nightlyLauncherStagingPath"; 110 } 111} 112 113my $b = currentBranch(); 114my $r = currentRevision(); 115print "Branch: ", $b, "\n"; 116print "Revision: ", $r, "\n"; 117 118chdirWebKit(); 119buildNightlyLauncher(); 120copyNightlyLauncher(); 121