git-mv.perl

   1 #!/usr/bin/perl
   2 #
   3 # Copyright 2005, Ryan Anderson <ryan@michonline.com>
   4 #                 Josef Weidendorfer <Josef.Weidendorfer@gmx.de>
   5 #
   6 # This file is licensed under the GPL v2, or a later version
   7 # at the discretion of Linus Torvalds.
   8
   9
  10 use warnings;
  11 use strict;
  12 use Getopt::Std;
  13
  14 sub usage() {
  15         print <<EOT;
  16 $0 [-f] [-n] <source> <dest>
  17 $0 [-f] [-k] [-n] <source> ... <dest directory>
  18
  19 In the first form, source must exist and be either a file,
  20 symlink or directory, dest must not exist. It renames source to dest.
  21 In the second form, the last argument has to be an existing
  22 directory; the given sources will be moved into this directory.
  23
  24 Updates the git cache to reflect the change.
  25 Use "git commit" to make the change permanently.
  26
  27 Options:
  28   -f   Force renaming/moving, even if target exists
  29   -k   Continue on error by skipping
  30        not-existing or not revision-controlled source
  31   -n   Do nothing; show what would happen
  32 EOT
  33         exit(1);
  34 }
  35
  36 # Sanity checks:
  37 my $GIT_DIR = $ENV{'GIT_DIR'} || ".git";
  38
  39 unless ( -d $GIT_DIR && -d $GIT_DIR . "/objects" &&
  40         -d $GIT_DIR . "/objects/" && -d $GIT_DIR . "/refs") {
  41     print "Git repository not found.";
  42     usage();
  43 }
  44
  45
  46 our ($opt_n, $opt_f, $opt_h, $opt_k, $opt_v);
  47 getopts("hnfkv") || usage;
  48 usage() if $opt_h;
  49 @ARGV >= 1 or usage;
  50
  51 my (@srcArgs, @dstArgs, @srcs, @dsts);
  52 my ($src, $dst, $base, $dstDir);
  53
  54 my $argCount = scalar @ARGV;
  55 if (-d $ARGV[$argCount-1]) {
  56         $dstDir = $ARGV[$argCount-1];
  57         @srcArgs = @ARGV[0..$argCount-2];
  58
  59         foreach $src (@srcArgs) {
  60                 $base = $src;
  61                 $base =~ s/^.*\///;
  62                 $dst = "$dstDir/". $base;
  63                 push @dstArgs, $dst;
  64         }
  65 }
  66 else {
  67     if ($argCount != 2) {
  68         print "Error: moving to directory '"
  69             . $ARGV[$argCount-1]
  70             . "' not possible; not exisiting\n";
  71         usage;
  72     }
  73     @srcArgs = ($ARGV[0]);
  74     @dstArgs = ($ARGV[1]);
  75     $dstDir = "";
  76 }
  77
  78 my (@allfiles,@srcfiles,@dstfiles);
  79 my $safesrc;
  80 my %overwritten;
  81
  82 $/ = "\0";
  83 open(F,"-|","git-ls-files","-z")
  84         or die "Failed to open pipe from git-ls-files: " . $!;
  85
  86 @allfiles = map { chomp; $_; } <F>;
  87 close(F);
  88
  89
  90 my ($i, $bad);
  91 while(scalar @srcArgs > 0) {
  92     $src = shift @srcArgs;
  93     $dst = shift @dstArgs;
  94     $bad = "";
  95
  96     if ($opt_v) {
  97         print "Checking rename of '$src' to '$dst'\n";
  98     }
  99
 100     unless (-f $src || -l $src || -d $src) {
 101         $bad = "bad source '$src'";
 102     }
 103
 104     $overwritten{$dst} = 0;
 105     if (($bad eq "") && -e $dst) {
 106         $bad = "destination '$dst' already exists";
 107         if (-f $dst && $opt_f) {
 108             print "Warning: $bad; will overwrite!\n";
 109             $bad = "";
 110             $overwritten{$dst} = 1;
 111         }
 112     }
 113
 114     if (($bad eq "") && ($src eq $dstDir)) {
 115         $bad = "can not move directory '$src' into itself";
 116     }
 117
 118     if ($bad eq "") {
 119         $safesrc = quotemeta($src);
 120         @srcfiles = grep /^$safesrc(\/|$)/, @allfiles;
 121         if (scalar @srcfiles == 0) {
 122             $bad = "'$src' not under version control";
 123         }
 124     }
 125
 126     if ($bad ne "") {
 127         if ($opt_k) {
 128             print "Warning: $bad; skipping\n";
 129             next;
 130         }
 131         print "Error: $bad\n";
 132         usage();
 133     }
 134     push @srcs, $src;
 135     push @dsts, $dst;
 136 }
 137
 138 # Final pass: rename/move
 139 my (@deletedfiles,@addedfiles,@changedfiles);
 140 while(scalar @srcs > 0) {
 141     $src = shift @srcs;
 142     $dst = shift @dsts;
 143
 144     if ($opt_n || $opt_v) { print "Renaming $src to $dst\n"; }
 145     if (!$opt_n) {
 146         rename($src,$dst)
 147             or die "rename failed: $!";
 148     }
 149
 150     $safesrc = quotemeta($src);
 151     @srcfiles = grep /^$safesrc(\/|$)/, @allfiles;
 152     @dstfiles = @srcfiles;
 153     s/^$safesrc(\/|$)/$dst$1/ for @dstfiles;
 154
 155     push @deletedfiles, @srcfiles;
 156     if (scalar @srcfiles == 1) {
 157         if ($overwritten{$dst} ==1) {
 158             push @changedfiles, $dst;
 159         } else {
 160             push @addedfiles, $dst;
 161         }
 162     }
 163     else {
 164         push @addedfiles, @dstfiles;
 165     }
 166 }
 167
 168 if ($opt_n) {
 169         print "Changed  : ". join(", ", @changedfiles) ."\n";
 170         print "Adding   : ". join(", ", @addedfiles) ."\n";
 171         print "Deleting : ". join(", ", @deletedfiles) ."\n";
 172         exit(1);
 173 }
 174
 175 my $rc;
 176 if (scalar @changedfiles >0) {
 177         $rc = system("git-update-index","--",@changedfiles);
 178         die "git-update-index failed to update changed files with code $?\n" if $rc;
 179 }
 180 if (scalar @addedfiles >0) {
 181         $rc = system("git-update-index","--add","--",@addedfiles);
 182         die "git-update-index failed to add new names with code $?\n" if $rc;
 183 }
 184 $rc = system("git-update-index","--remove","--",@deletedfiles);
 185 die "git-update-index failed to remove old names with code $?\n" if $rc;