1:33 p.m.
User: ben
Date: 05/02/07 14:33:22
Modified: xemacs-builds/ben cvs-merge-diff
Added: xemacs-builds/ben ChangeLog
Log:
Update cvs-merge-diff to handle removed files in local ws
cvs-merge-diff: Add -debug option and output debug info if so.
Correctly handle (as much as possible) the case where the
repository file was removed in the local workspace and
changed in the repository revisions being merged in.
Revision Changes Path
1.3 +79 -18 XEmacs/xemacs-builds/ben/cvs-merge-diff
Index: cvs-merge-diff
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/ben/cvs-merge-diff,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- cvs-merge-diff 2004/11/13 23:01:09 1.2
+++ cvs-merge-diff 2005/02/07 13:33:22 1.3
＠＠ -4,11 +4,11 ＠＠
### cvs-merge-diff --- Show the diff between various versions of a file
-## Copyright (C) 2001, 2003, 2004 Ben Wing.
+## Copyright (C) 2001, 2003, 2004, 2005 Ben Wing.
## Author: Ben Wing <ben(a)xemacs.org>
## Maintainer: Ben Wing <ben(a)xemacs.org>
-## Current Version: $Revision: 1.2 $
+## Current Version: $Revision: 1.3 $
## This file is part of XEmacs.
＠＠ -82,13 +82,15 ＠＠
my ＠SAVE_ARGV = ＠ARGV;
my %options;
-GetDiffOptions (\%options, 'from=s', 'to=s',);
+GetDiffOptions (\%options, 'from=s', 'to=s', 'debug');
die $usage if $options{"help"};
+my $debug = $options{"debug"} || defined $ENV{VERBOSE} || defined
$ENV{DEBUG};
+
# extract options, but eliminate -from=X, -to=X
-my ＠OPTIONS = grep (!/(-|--|\+)(from|to)=/,
+my ＠OPTIONS = grep (!/(-|--|\+)(debug|from=|to=)/,
＠SAVE_ARGV[0 .. (＠SAVE_ARGV - ＠ARGV - 1)]);
# eliminate -from X, -to X
＠＠ -115,9 +117,13 ＠＠
$spec1 =~ /^([zabcd]|([0-9]+))$/i and
$spec2 =~ /^([zabcd]|([0-9]+))$/i);
-my ($filez, $filea, $fileb, $filec, $filed, $filetmp);
+my ($filez, $filea, $fileb, $filec, $filed, $filetmp, $killedthis);
my $cvsstatus = `cvs status $file`;
+print "`cvs status file`:\n$cvsstatus" if $debug;
+
+my ($name, $path) = fileparse ($file);
+
# To find the various versions:
# B = look for files named .#FILE(.[0-9]+)+ and take the most recent one.
＠＠ -130,31 +136,80 ＠＠
die "File $file unknown to CVS" if $cvsstatus =~ /Status: Unknown/;
-if ($spec1 =~ /c/i || $spec2 =~ /c/i) {
- ($filec) = ($cvsstatus =~ /Working revision:\s*([0-9.]+)$/m);
-}
+sub Value { return defined $_[0] ? $_[0] : "(undefined)"; }
+
+if ($spec1 =~ /[bc]/i || $spec2 =~ /[bc]/i) {
+ ($killedthis, $filec) = ($cvsstatus =~ /Working revision:\s*(-?)([0-9.]+)$/m);
+ die "Can't parse working revision?" if !$filec;
+
+ if ($killedthis)
+ {
+ $filea = $filec;
+ print "Revision A (common ancestor): " . Value($filea) . "\n"
if $debug;
+ ($filec) = ($cvsstatus =~ /Repository revision:\s*([0-9.]+)\s/);
+
+ die "Can't parse repository revision?" if !$filec;
+
+ print "Revision C (repository change merged in): " . Value($filec) .
"\n"
+ if $debug;
+
+ print <<EOF;
+WARNING: File has been removed in this repository.
+
+Impossible to determine repository change merged into workspace.
+Assuming current repository revision $filec as merged revision.
+It may also be impossible to determine the common ancestor, if
+multiple merges have occurred in this workspace, since deletion
+of the file. Assuming revision $filea as common ancestor. If
+these values are wrong, then they err on the conservative side
+(i.e. being too early for the common ancestor and too late for
+the merged revision), so diffs between them will show all the
+actual diffs and possibly some extra ones.
+
+EOF
+ }
+ else
+ {
+ print "Revision C (repository change merged in): " . Value($filec) .
"\n"
+ if $debug;
+ }
+ }
-sub sort_dot_pound_files { -M $a <=> -M $b; }
+sub sort_dot_pound_files { -M "$path$a" <=> -M "$path$b"; }
if ($spec1 =~ /[baz]/i || $spec2 =~ /[baz]/i) {
- opendir DIR, ".";
- my ＠files = grep /^\.\#$file(.[0-9]+)+/, readdir DIR;
- closedir DIR;
- ＠files = sort sort_dot_pound_files ＠files;
- $fileb = $files[0];
- die "No merge in progress on $file" if !$fileb;
- ($filea = $fileb) =~ s/^\.\#$file.//;
+ if (!$killedthis)
+ {
+ opendir DIR, $path;
+ my ＠files = grep /^\.\#$name(.[0-9]+)+/, readdir DIR;
+ closedir DIR;
+ print "Found dot-files: ＠files\n" if $debug;
+ ＠files = sort sort_dot_pound_files ＠files;
+ $fileb = $files[0];
+ print "File B (pre-merge in this workspace): " . Value($fileb) .
"\n"
+ if $debug;
+ die "No merge in progress on $file" if !$fileb;
+ ($filea = $fileb) =~ s/^\.\#$name.//;
+ print "Revision A (common ancestor): " . Value($filea) . "\n"
if $debug;
+ $fileb = "$path$fileb";
+ }
+ else
+ {
+ $fileb = "/dev/null";
+ }
($filez = $filea) =~ s/(\d+)$/$1-1/e;
if ($filez =~ /\.0$/) {
$filez =~ s/\.\d+\.\d+$//;
}
+ print "Revision Z (common ancestor's parent): " . Value($filez) .
"\n"
+ if $debug;
}
sub getfile {
return $filea if ($_[0] =~ /a/i);
return $fileb if ($_[0] =~ /b/i);
return $filec if ($_[0] =~ /c/i);
- return $file if ($_[0] =~ /d/i);
+ return "$path$name" if ($_[0] =~ /d/i);
return $filez if ($_[0] =~ /z/i);
($filetmp = $filec) =~ s/(\d+)$/$1-$_[0]/e, return $filetmp
if ($_[0] =~ /[0-9]/i);
＠＠ -171,20 +226,26 ＠＠
if ($spec1_is_rev && $spec2_is_rev) {
# We are diffing two repository revisions.
+ print "Executing: cvs diff -u ＠OPTIONS -r $file1 -r $file2 $file\n" if
$debug;
system "cvs diff -u ＠OPTIONS -r $file1 -r $file2 $file";
} elsif (!$spec1_is_rev && !$spec2_is_rev) {
# We are diffing two real files.
+ print "Executing: diff -u ＠OPTIONS $file1 $file2\n" if $debug;
system "diff -u ＠OPTIONS $file1 $file2";
} else {
# We are diffing a repository revision and a real file. Fetch the
# repository revision.
- my $tmpfile = "/tmp/$file.$$";
+ my $tmpfile = "/tmp/$name.$$";
if ($spec1_is_rev) {
+ print "Executing: cvs update -p -r $file1 $file > $tmpfile\n" if
$debug;
system "cvs update -p -r $file1 $file > $tmpfile";
+ print "diff -u ＠OPTIONS $tmpfile $file2\n" if $debug;
system "diff -u ＠OPTIONS $tmpfile $file2";
system "rm $tmpfile";
} else {
+ print "cvs update -p -r $file2 $file > $tmpfile\n" if $debug;
system "cvs update -p -r $file2 $file > $tmpfile";
+ print "diff -u ＠OPTIONS $file1 $tmpfile\n" if $debug;
system "diff -u ＠OPTIONS $file1 $tmpfile";
system "rm $tmpfile";
}
1.1 XEmacs/xemacs-builds/ben/ChangeLog
Index: ChangeLog
===================================================================
2005-02-07 Ben Wing <ben(a)xemacs.org>
* cvs-merge-diff:
* cvs-merge-diff (Value):
* cvs-merge-diff (sort_dot_pound_files):
* cvs-merge-diff (getfile):
Add -debug option and output debug info if so.
Correctly handle (as much as possible) the case where the
repository file was removed in the local workspace and
changed in the repository revisions being merged in.