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         # remove any trailing slash
  58         $dstDir =~ s/\/$//;
  59         @srcArgs = @ARGV[0..$argCount-2];
  60
  61         foreach $src (@srcArgs) {
  62                 $base = $src;
  63                 $base =~ s/^.*\///;
  64                 $dst = "$dstDir/". $base;
  65                 push @dstArgs, $dst;
  66         }
  67 }
  68 else {
  69     if ($argCount != 2) {
  70         print "Error: moving to directory '"
  71             . $ARGV[$argCount-1]
  72             . "' not possible; not exisiting\n";
  73         usage;
  74     }
  75     @srcArgs = ($ARGV[0]);
  76     @dstArgs = ($ARGV[1]);
  77     $dstDir = "";
  78 }
  79
  80 my (@allfiles,@srcfiles,@dstfiles);
  81 my $safesrc;
  82 my (%overwritten, %srcForDst);
  83
  84 $/ = "\0";
  85 open(F,"-|","git-ls-files","-z")
  86         or die "Failed to open pipe from git-ls-files: " . $!;
  87
  88 @allfiles = map { chomp; $_; } <F>;
  89 close(F);
  90
  91
  92 my ($i, $bad);
  93 while(scalar @srcArgs > 0) {
  94     $src = shift @srcArgs;
  95     $dst = shift @dstArgs;
  96     $bad = "";
  97
  98     if ($opt_v) {
  99         print "Checking rename of '$src' to '$dst'\n";
 100     }
 101
 102     unless (-f $src || -l $src || -d $src) {
 103         $bad = "bad source '$src'";
 104     }
 105
 106     $overwritten{$dst} = 0;
 107     if (($bad eq "") && -e $dst) {
 108         $bad = "destination '$dst' already exists";
 109         if (-f $dst && $opt_f) {
 110             print "Warning: $bad; will overwrite!\n";
 111             $bad = "";
 112             $overwritten{$dst} = 1;
 113         }
 114     }
 115
 116     if (($bad eq "") && ($src eq $dstDir)) {
 117         $bad = "can not move directory '$src' into itself";
 118     }
 119
 120     if ($bad eq "") {
 121         $safesrc = quotemeta($src);
 122         @srcfiles = grep /^$safesrc(\/|$)/, @allfiles;
 123         if (scalar @srcfiles == 0) {
 124             $bad = "'$src' not under version control";
 125         }
 126     }
 127
 128     if ($bad eq "") {
 129        if (defined $srcForDst{$dst}) {
 130            $bad = "can not move '$src' to '$dst'; already target of ";
 131            $bad .= "'".$srcForDst{$dst}."'";
 132        }
 133        else {
 134            $srcForDst{$dst} = $src;
 135        }
 136     }
 137
 138     if ($bad ne "") {
 139         if ($opt_k) {
 140             print "Warning: $bad; skipping\n";
 141             next;
 142         }
 143         print "Error: $bad\n";
 144         usage();
 145     }
 146     push @srcs, $src;
 147     push @dsts, $dst;
 148 }
 149
 150 # Final pass: rename/move
 151 my (@deletedfiles,@addedfiles,@changedfiles);
 152 while(scalar @srcs > 0) {
 153     $src = shift @srcs;
 154     $dst = shift @dsts;
 155
 156     if ($opt_n || $opt_v) { print "Renaming $src to $dst\n"; }
 157     if (!$opt_n) {
 158         rename($src,$dst)
 159             or die "rename failed: $!";
 160     }
 161
 162     $safesrc = quotemeta($src);
 163     @srcfiles = grep /^$safesrc(\/|$)/, @allfiles;
 164     @dstfiles = @srcfiles;
 165     s/^$safesrc(\/|$)/$dst$1/ for @dstfiles;
 166
 167     push @deletedfiles, @srcfiles;
 168     if (scalar @srcfiles == 1) {
 169         if ($overwritten{$dst} ==1) {
 170             push @changedfiles, $dst;
 171         } else {
 172             push @addedfiles, $dst;
 173         }
 174     }
 175     else {
 176         push @addedfiles, @dstfiles;
 177     }
 178 }
 179
 180 if ($opt_n) {
 181         print "Changed  : ". join(", ", @changedfiles) ."\n";
 182         print "Adding   : ". join(", ", @addedfiles) ."\n";
 183         print "Deleting : ". join(", ", @deletedfiles) ."\n";
 184         exit(1);
 185 }
 186
 187 my $rc;
 188 if (scalar @changedfiles >0) {
 189         $rc = system("git-update-index","--",@changedfiles);
 190         die "git-update-index failed to update changed files with code $?\n" if $rc;
 191 }
 192 if (scalar @addedfiles >0) {
 193         $rc = system("git-update-index","--add","--",@addedfiles);
 194         die "git-update-index failed to add new names with code $?\n" if $rc;
 195 }
 196 $rc = system("git-update-index","--remove","--",@deletedfiles);
 197 die "git-update-index failed to remove old names with code $?\n" if $rc;