Tools/BuildSlaveSupport/build-launcher-app

   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
  32 use strict;
  33
  34 use FindBin;
  35 use lib "$FindBin::Bin/../Scripts";
  36 use webkitdirs;
  37
  38 my @xcodeBuildArguments = XcodeOptions();
  39 my $nightlyLauncherTemplatePath = "$FindBin::Bin/../WebKitLauncher";
  40 my $nightlyLauncherStagingPath = productDir() . "/WebKit.app";
  41
  42 sub 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
  50 sub 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
  62 sub 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
  79 sub 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", "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
 113 my $b = currentBranch();
 114 my $r = currentRevision();
 115 print "Branch: ", $b, "\n";
 116 print "Revision: ", $r, "\n";
 117
 118 chdirWebKit();
 119 buildNightlyLauncher();
 120 copyNightlyLauncher();