WebKitTools:
authorddkilzer <ddkilzer@268f45cc-cd09-0410-ab3c-d52691b4dbfc>
Sun, 25 Jun 2006 19:39:22 +0000 (19:39 +0000)
committerddkilzer <ddkilzer@268f45cc-cd09-0410-ab3c-d52691b4dbfc>
Sun, 25 Jun 2006 19:39:22 +0000 (19:39 +0000)
        Reviewed by Darin.

        http://bugzilla.opendarwin.org/show_bug.cgi?id=9571
        Teach svn-apply and svn-unapply to handle directory adds and removes better

        * Scripts/svn-apply: Handle directory adds more intelligently.  Handle directory removes.
        * Scripts/svn-unapply: Handle undoing both directory adds and removes.

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

WebKitTools/ChangeLog
WebKitTools/Scripts/svn-apply
WebKitTools/Scripts/svn-unapply

index 1338894f53ac4e0e49583d94fc217dff409ad710..b9d38fdf053e391f484b50ca9a0782c42d566449 100644 (file)
@@ -1,3 +1,13 @@
+2006-06-25  David Kilzer  <ddkilzer@kilzer.net>
+
+        Reviewed by Darin.
+
+        http://bugzilla.opendarwin.org/show_bug.cgi?id=9571
+        Teach svn-apply and svn-unapply to handle directory adds and removes better
+
+        * Scripts/svn-apply: Handle directory adds more intelligently.  Handle directory removes.
+        * Scripts/svn-unapply: Handle undoing both directory adds and removes.
+
 2006-06-25  Timothy Hatcher  <timothy@apple.com>
 
         Reviewed by Darin.
index 947be6a48fd7902b7f1cfb8c52e85a078c52520a..b209114a69188ca03afa87c2bb1cfc320b628374 100755 (executable)
 # Differences from invoking "patch -p0":
 #
 #   Handles added files (does a svn add).
+#   Handles added directories (does a svn add).
 #   Handles removed files (does a svn rm).
+#   Handles removed directories--those with no more files or directories left in them
+#       (does a svn rm).
 #   Has mode where it will roll back to svn version numbers in the patch file so svn
 #       can do a 3-way merge.
 #   Paths from Index: lines are used rather than the paths on the patch lines, which
@@ -61,7 +64,10 @@ use MIME::Base64;
 sub addDirectoriesIfNeeded($);
 sub applyPatch($$;$);
 sub handleBinaryChange($$);
+sub isDirectoryEmptyForRemoval($);
 sub patch($);
+sub removeDirectoriesIfNeeded();
+sub svnStatus($);
 
 my $merge = 0;
 my $showHelp = 0;
@@ -70,8 +76,14 @@ if (!GetOptions("merge!" => \$merge, "help!" => \$showHelp) || $showHelp) {
     exit 1;
 }
 
-my $startDir = getcwd();
+my %removeDirectoryIgnoreList = (
+    '.' => 1,
+    '..' => 1,
+    '.svn' => 1,
+    '_svn' => 1,
+);
 
+my %checkedDirectories;
 my @patches;
 my %versions;
 
@@ -115,8 +127,36 @@ for $patch (@patches) {
     patch($patch);
 }
 
+removeDirectoriesIfNeeded();
+
 exit 0;
 
+sub addDirectoriesIfNeeded($)
+{
+    my ($path) = @_;
+    my @dirs = File::Spec->splitdir($path);
+    my $dir = ".";
+    while (scalar @dirs) {
+        $dir = File::Spec->catdir($dir, shift @dirs);
+        next if (exists $checkedDirectories{$dir});
+        if (! -e $dir) {
+            mkdir $dir or die "Failed to create required directory '$dir' for path '$path'\n";
+            system "svn", "add", $dir;
+            $checkedDirectories{$dir} = 1;
+        }
+        elsif (-d $dir) {
+            my $svnOutput = svnStatus($dir);
+            if ($svnOutput && substr($svnOutput, 0, 1) eq "?") {
+                system "svn", "add", $dir;
+            }
+            $checkedDirectories{$dir} = 1;
+        }
+        else {
+            die "'$dir' is not a directory";
+        }
+    }
+}
+
 sub applyPatch($$;$)
 {
     my ($patch, $fullPath, $options) = @_;
@@ -127,12 +167,59 @@ sub applyPatch($$;$)
     close PATCH;
 }
 
+sub handleBinaryChange($$)
+{
+    my ($fullPath, $contents) = @_;
+    if ($contents =~ m#((\n[A-Za-z0-9+/]{76})+\n[A-Za-z0-9+/=]{4,76}\n)\n#) {
+        # Addition or Modification
+        open FILE, ">", $fullPath or die;
+        print FILE decode_base64($1);
+        close FILE;
+        my $svnOutput = svnStatus($fullPath);
+        if ($svnOutput && substr($svnOutput, 0, 1) eq "?") {
+            # Addition
+            system "svn", "add", $fullPath;
+        } else {
+            # Modification
+            print $svnOutput if $svnOutput;
+        }
+    } else {
+        # Deletion
+        system "svn", "rm", $fullPath;
+    }
+}
+
+sub isDirectoryEmptyForRemoval($)
+{
+    my ($dir) = @_;
+    opendir DIR, $dir or die "Could not open '$dir' to list files: $?";
+    my @files = grep {
+        if (exists $removeDirectoryIgnoreList{$_}) {
+            0;
+        }
+        elsif (! -d File::Spec->catdir($dir, $_)) {
+            1;
+        }
+        else {
+            my $svnOutput = svnStatus(File::Spec->catdir($dir, $_));
+            if ($svnOutput && substr($svnOutput, 0, 1) eq "D") {
+                0;
+            }
+            else {
+                1;
+            }
+        }
+    } readdir DIR;
+    closedir DIR;
+    return scalar(@files) == 0;
+}
+
 sub patch($)
 {
     my ($patch) = @_;
     return if !$patch;
 
-    $patch =~ m|^Index: ([^\n]+)| or die "Failed to find Index: in \"$patch\"\n";
+    $patch =~ m|^Index: ([^\n]+)| or die "Failed to find 'Index:' in \"$patch\"\n";
     my $fullPath = $1;
 
     my $deletion = 0;
@@ -182,40 +269,27 @@ sub patch($)
     }
 }
 
-sub handleBinaryChange($$)
+sub removeDirectoriesIfNeeded()
 {
-    my ($fullPath, $contents) = @_;
-    if ($contents =~ m#((\n[A-Za-z0-9+/]{76})+\n[A-Za-z0-9+/=]{4,76}\n)\n#) {
-        # Addition or Modification
-        open FILE, ">", $fullPath or die;
-        print FILE decode_base64($1);
-        close FILE;
-        open SVN, "svn stat '$fullPath' |" or die;
-        my $svnStatus = <SVN>;
-        close SVN;
-        if (substr($svnStatus, 0 ,1) eq "?") {
-            # Addition
-            system "svn", "add", $fullPath;
-        } else {
-            # Modification
-            print $svnStatus;
+    foreach my $dir (reverse sort keys %checkedDirectories) {
+        if (isDirectoryEmptyForRemoval($dir)) {
+            my $svnOutput;
+            open SVN, "svn rm '$dir' |" or die;
+            # Only save the last line since Subversion lists all changed statuses below $dir
+            while (<SVN>) {
+                $svnOutput = $_;
+            }
+            close SVN;
+            print $svnOutput;
         }
-    } else {
-        # Deletion
-        system "svn", "rm", $fullPath;
     }
 }
 
-sub addDirectoriesIfNeeded($)
+sub svnStatus($)
 {
-    my ($path) = @_;
-    my @dirs = File::Spec->splitdir($path);
-    while (my $dir = shift @dirs) {
-        if (! -x $dir) {
-            mkdir $dir or die "Failed create required directory: $dir for path: $path\n";
-            system "svn", "add", $dir;
-        }
-        chdir $dir or die "Failed to chdir to $dir\n";
-    }
-    chdir $startDir or die "Failed to chdir to $startDir\n";
+    my ($fullPath) = @_;
+    open SVN, "svn status --non-interactive --non-recursive '$fullPath' |" or die;
+    my $svnStatus = <SVN>;
+    close SVN;
+    return $svnStatus;
 }
index c4bb348461e3d7c3884f7f9c5b5f39dd80ef2a52..85d21421ab48bd1c055049269f5ed7d9cd17ee7e 100755 (executable)
@@ -31,7 +31,9 @@
 # Differences from invoking "patch -p0 -R":
 #
 #   Handles added files (does a svn rm). 
-#   Handles removed files (does a svn add). 
+#   Handles added directories (does a svn rm and a rmdir).
+#   Handles removed files (does a svn revert). 
+#   Handles removed directories (does a svn revert). 
 #   Paths from Index: lines are used rather than the paths on the patch lines, which
 #       makes patches generated by "cvs diff" work (increasingly unimportant since we
 #       use Subversion now).
 #   Notice a patch that's being unapplied at the "wrong level" and make it work anyway.
 #   Do a dry run on the whole patch and don't do anything if part of the patch is
 #       going to fail (probably too strict unless we do the ChangeLog thing).
-#   Remove new directories that were previously added by svn-apply.
 
 use strict;
 use warnings;
 
 use Cwd;
 use File::Basename;
+use File::Spec;
 use Getopt::Long;
 
 sub patch($);
+sub revertDirectories();
+sub svnStatus($);
 sub unapplyPatch($$;$);
 
 my $showHelp = 0;
@@ -65,7 +69,7 @@ if (!GetOptions("help!" => \$showHelp) || $showHelp) {
     exit 1;
 }
 
-my $startDir = getcwd();
+my %directoriesToCheck;
 
 my $indexPath;
 my $patch;
@@ -91,17 +95,9 @@ while (<>) {
 }
 patch($patch);
 
-exit 0;
+revertDirectories();
 
-sub unapplyPatch($$;$)
-{
-    my ($patch, $fullPath, $options) = @_;
-    $options = [] if (! $options);
-    my $command = "patch " . join(" ", "-p0", "-R", @{$options});
-    open PATCH, "| $command" or die "Failed to patch $fullPath\n";
-    print PATCH $patch;
-    close PATCH;
-}
+exit 0;
 
 sub patch($)
 {
@@ -110,6 +106,7 @@ sub patch($)
 
     $patch =~ m|^Index: ([^\n]+)| or die "Failed to find Index: in \"$patch\"\n";
     my $fullPath = $1;
+    $directoriesToCheck{dirname($fullPath)} = 1;
 
     my $deletion = 0;
     my $addition = 0;
@@ -138,3 +135,53 @@ sub patch($)
         system "svn", "revert", $fullPath;
     }
 }
+
+sub revertDirectories()
+{
+    my %checkedDirectories;
+    foreach my $path (reverse sort keys %directoriesToCheck) {
+        my @dirs = File::Spec->splitdir($path);
+        while (scalar @dirs) {
+            my $dir = File::Spec->catdir(@dirs);
+            pop(@dirs);
+            next if (exists $checkedDirectories{$dir});
+            if (-d $dir) {
+                my $svnOutput = svnStatus($dir);
+                if ($svnOutput && substr($svnOutput, 0, 1) eq "A") {
+                   system "svn", "revert", $dir;
+                   rmdir $dir;
+                }
+                elsif ($svnOutput && substr($svnOutput, 0, 1) eq "D") {
+                   system "svn", "revert", $dir;
+                }
+                else {
+                    # Modification
+                    print $svnOutput if $svnOutput;
+                }
+                $checkedDirectories{$dir} = 1;
+            }
+            else {
+                die "'$dir' is not a directory";
+            }
+        }
+    }
+}
+
+sub svnStatus($)
+{
+    my ($fullPath) = @_;
+    open SVN, "svn status --non-interactive --non-recursive '$fullPath' |" or die;
+    my $svnStatus = <SVN>;
+    close SVN;
+    return $svnStatus;
+}
+
+sub unapplyPatch($$;$)
+{
+    my ($patch, $fullPath, $options) = @_;
+    $options = [] if (! $options);
+    my $command = "patch " . join(" ", "-p0", "-R", @{$options});
+    open PATCH, "| $command" or die "Failed to patch $fullPath\n";
+    print PATCH $patch;
+    close PATCH;
+}