2008-07-02 Geoffrey Garen <ggaren@apple.com>
[WebKit-https.git] / WebKitTools / 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 currentSVNBranch
51 {
52     my $sourceDir = sourceDir();
53     my $svnInfo = `LC_ALL=C svn info $sourceDir | grep URL:`;
54     (my $url) = ($svnInfo =~ m/URL: (.+)/g);
55     (my $branch) = ($url =~ m/\/svn\/webkit\/(trunk|branches\/[^\/]+)/);
56     die "Unable to determine current SVN branch in $sourceDir" unless (defined $branch);
57     $branch =~ s/^branches\///;
58     return $branch
59 }
60
61 sub copyNightlyLauncher
62 {
63     my $revision = currentSVNRevision();
64     my $branch = currentSVNBranch();
65     my $infoPlist = "$nightlyLauncherStagingPath/Contents/Info.plist";
66     my $versionFile = "$nightlyLauncherStagingPath/Contents/Resources/VERSION";
67     my $branchFile = "$nightlyLauncherStagingPath/Contents/Resources/BRANCH";
68     my $data;
69     open(IN, $infoPlist) or die "Couldn't open Info.plist in built application for reading";
70     {
71         undef $/;
72         $data = <IN>;
73     }
74     close(IN);
75     open(OUT, ">$infoPlist") or die "Couldn't open Info.plist in built application for writing";
76     $data =~ s/VERSION/$revision/g;
77     print OUT $data;
78     close(OUT);
79
80     open(OUT, ">$versionFile") or die "Couldn't open VERSION in built application for writing";
81     print OUT "$revision\n";
82     close(OUT);
83
84     open(OUT, ">$branchFile") or die "Couldn't open BRANCH in built application for writing";
85     print OUT "$branch\n";
86     close(OUT);
87
88     my @frameworks = ("JavaScriptCore", "JavaScriptGlue", "WebCore", "WebKit");
89     for my $framework (@frameworks) {
90         system("ditto", productDir() . "/$framework.framework", "$nightlyLauncherStagingPath/Contents/Resources/$framework.framework") == 0 or die "Failed copying $framework.framework into $nightlyLauncherStagingPath";
91     }
92 }
93
94 chdirWebKit();
95 buildNightlyLauncher();
96 copyNightlyLauncher();