← Back to branch summary

~ubuntu-branches/ubuntu/raring/qtwebkit-source/raring-proposed

« back to all changes in this revision

Viewing changes to Tools/BuildSlaveSupport/build-launcher-app

  • Committer: Package Import Robot
  • Author(s): Jonathan Riddell
  • Date: 2013-02-18 14:24:18 UTC
  • Revision ID: package-import@ubuntu.com-20130218142418-eon0jmjg3nj438uy
Tags: upstream-2.3
Import upstream version 2.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
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();