Added an update-webkit option to override the ../Internal check.
authormitz@apple.com <mitz@apple.com@268f45cc-cd09-0410-ab3c-d52691b4dbfc>
Mon, 18 Aug 2014 21:44:24 +0000 (21:44 +0000)
committermitz@apple.com <mitz@apple.com@268f45cc-cd09-0410-ab3c-d52691b4dbfc>
Mon, 18 Aug 2014 21:44:24 +0000 (21:44 +0000)
Part of https://bugs.webkit.org/show_bug.cgi?id=135815

Reviewed by Tim Horton.

* Scripts/update-webkit:
Added an explicit --internal option to control updating ../Internal, defaulting to whether
../Internal exists.
(runSvnUpdate): Moved to webkitdirs.pm.
(runGitUpdate): Ditto.
* Scripts/webkitdirs.pm:
(runSvnUpdateAndResolveChangeLogs): Moved runSvnUpdate from update-webkit and renamed to this.
(runGitUpdate): Moved from update-webkit.

git-svn-id: https://svn.webkit.org/repository/webkit/trunk@172728 268f45cc-cd09-0410-ab3c-d52691b4dbfc

Tools/ChangeLog
Tools/Scripts/update-webkit
Tools/Scripts/webkitdirs.pm

index 5d8db22..0bb094b 100644 (file)
@@ -1,3 +1,19 @@
+2014-08-18  Dan Bernstein  <mitz@apple.com>
+
+        Added an update-webkit option to override the ../Internal check.
+        Part of https://bugs.webkit.org/show_bug.cgi?id=135815
+
+        Reviewed by Tim Horton.
+
+        * Scripts/update-webkit:
+        Added an explicit --internal option to control updating ../Internal, defaulting to whether
+        ../Internal exists.
+        (runSvnUpdate): Moved to webkitdirs.pm.
+        (runGitUpdate): Ditto.
+        * Scripts/webkitdirs.pm:
+        (runSvnUpdateAndResolveChangeLogs): Moved runSvnUpdate from update-webkit and renamed to this.
+        (runGitUpdate): Moved from update-webkit.
+
 2014-08-18  Pratik Solanki  <psolanki@apple.com>
 
         Make update-webkit more lenient for pure git svn repositories
index 9058ac3..8d4b183 100755 (executable)
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# Copyright (C) 2005, 2006, 2007, 2008, 2009, 2013 Apple Inc. All rights reserved.
+# Copyright (C) 2005-2009, 2013, 2014 Apple Inc. All rights reserved.
 # Copyright (C) 2009 Google Inc. All rights reserved.
 # Copyright (C) 2011 Brent Fulgham. All rights reserved.
 #
@@ -39,9 +39,6 @@ use Getopt::Long;
 use VCSUtils;
 use webkitdirs;
 
-sub runSvnUpdate();
-sub runGitUpdate();
-
 # Handle options
 my $quiet = '';
 my $showHelp;
@@ -52,12 +49,15 @@ chdirWebKit();
 
 # FIXME: Remove the check for ../Internal once Apple-internal users of this script pass --no-auxiliary-libs
 my $auxiliaryLibs = ! -d "../Internal";
+# FIXME: http://webkit.org/b/135815 update-webkit should not check for the presence of Apple's Internal directory
+my $internal = -d "../Internal";
 
 my $getOptionsResult = GetOptions(
     'h|help'  => \$showHelp,
     'q|quiet' => \$quiet,
     'auxiliary-libs!' => \$auxiliaryLibs,
-); 
+    'internal!' => \$internal,
+);
 
 if (!$getOptionsResult || $showHelp) {
     print STDERR <<__END__;
@@ -65,7 +65,7 @@ Usage: @{[ basename($0) ]} [options]
   -h|--help                 show the help message
   -q|--quiet                pass -q to svn update for quiet updates
   --[no-]auxiliary-libs     [don\'t] update the auxiliary libraries for Windows (default: update)
-  --wincairo                also update dependencies of the WinCairo port
+  --[no-]internal           [don\'t] update ../Internal (default: update if it exists)
 __END__
     exit 1;
 }
@@ -77,13 +77,13 @@ push @svnOptions, '-q' if $quiet;
 push @svnOptions, qw(--accept postpone) if isSVNVersion16OrNewer();
 
 print "Updating OpenSource\n" unless $quiet;
-runSvnUpdate() if isSVN();
+runSvnUpdateAndResolveChangeLogs(@svnOptions) if isSVN();
 runGitUpdate() if isGit();
 
-if (-d "../Internal") {
+if ($internal) {
     chdir("../Internal");
     print "Updating Internal\n" unless $quiet;
-    runSvnUpdate() if isSVNDirectory(".");
+    runSvnUpdateAndResolveChangeLogs(@svnOptions) if isSVNDirectory(".");
     runGitUpdate() if isGitDirectory(".");
 }
 
@@ -98,39 +98,3 @@ if (isAppleWinWebKit() && $auxiliaryLibs) {
 setupAppleWinEnv() if isAppleWinWebKit();
 
 exit 0;
-
-sub runSvnUpdate()
-{
-    open UPDATE, "-|", "svn", "update", @svnOptions or die;
-    my @conflictedChangeLogs;
-    while (my $line = <UPDATE>) {
-        print $line;
-        $line =~ m/^C\s+(.+?)[\r\n]*$/;
-        if ($1) {
-          my $filename = normalizePath($1);
-          push @conflictedChangeLogs, $filename if basename($filename) eq "ChangeLog";
-        }
-    }
-    close UPDATE or die;
-
-    if (@conflictedChangeLogs) {
-        print "Attempting to merge conflicted ChangeLogs.\n";
-        my $resolveChangeLogsPath = File::Spec->catfile(dirname($0), "resolve-ChangeLogs");
-        (system($resolveChangeLogsPath, "--no-warnings", @conflictedChangeLogs) == 0)
-            or die "Could not open resolve-ChangeLogs script: $!.\n";
-    }
-}
-
-sub runGitUpdate()
-{
-    # Doing a git fetch first allows setups with svn-remote.svn.fetch = trunk:refs/remotes/origin/master
-    # to perform the rebase much much faster.
-    system("git", "fetch");
-    if (isGitSVN()) {
-        system("git", "svn", "rebase") == 0 or die;
-    } else {
-        # This will die if branch.$BRANCHNAME.merge isn't set, which is
-        # almost certainly what we want.
-        system("git", "pull") == 0 or die;
-    }
-}
index 9813d9a..51217c2 100755 (executable)
@@ -2520,4 +2520,41 @@ sub formatBuildTime($)
     return sprintf("%02dm:%02ds", $buildMins, $buildSecs);
 }
 
+sub runSvnUpdateAndResolveChangeLogs(@)
+{
+    my @svnOptions = @_;
+    open UPDATE, "-|", "svn", "update", @svnOptions or die;
+    my @conflictedChangeLogs;
+    while (my $line = <UPDATE>) {
+        print $line;
+        $line =~ m/^C\s+(.+?)[\r\n]*$/;
+        if ($1) {
+          my $filename = normalizePath($1);
+          push @conflictedChangeLogs, $filename if basename($filename) eq "ChangeLog";
+        }
+    }
+    close UPDATE or die;
+
+    if (@conflictedChangeLogs) {
+        print "Attempting to merge conflicted ChangeLogs.\n";
+        my $resolveChangeLogsPath = File::Spec->catfile(dirname($0), "resolve-ChangeLogs");
+        (system($resolveChangeLogsPath, "--no-warnings", @conflictedChangeLogs) == 0)
+            or die "Could not open resolve-ChangeLogs script: $!.\n";
+    }
+}
+
+sub runGitUpdate()
+{
+    # Doing a git fetch first allows setups with svn-remote.svn.fetch = trunk:refs/remotes/origin/master
+    # to perform the rebase much much faster.
+    system("git", "fetch");
+    if (isGitSVN()) {
+        system("git", "svn", "rebase") == 0 or die;
+    } else {
+        # This will die if branch.$BRANCHNAME.merge isn't set, which is
+        # almost certainly what we want.
+        system("git", "pull") == 0 or die;
+    }
+}
+
 1;