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", "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 

   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();