3 # Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
4 # Free Software Foundation, Inc.
6 # This file is part of GNU Emacs.
8 # GNU Emacs is free software; you can redistribute it and/or modify
9 # it under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 3, or (at your option)
13 # GNU Emacs is distributed in the hope that it will be useful,
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with GNU Emacs; see the file COPYING. If not, write to the
20 # Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
21 # Boston, MA 02110-1301, USA.
30 Get a diff of FILE between revisions OLD and NEW. Store the
31 diff in a file named FILE-OLD-NEW.diff.
33 If OLD is `-' use FILE's current revision for OLD. If OLD is
34 `-<number>', use the Nth revision before the current one for OLD.
36 If NEW is +<number> or -<number>, build diffs between revisions OLD
41 revdiff FILE - -1 get the latest change of FILE
42 revdiff FILE -1 +1 also gets the latest change of FILE
43 revdiff FILE 1.500 +2 get diffs 1.500-1.501 and 1.501-1.502.
55 print "cvs diff -r$old -r$new $file >$file-$old-$new.diff\n";
56 system "cvs diff -r$old -r$new $file >$file-$old-$new.diff";
59 sub current_revision
($)
62 my $dir = dirname
($file);
63 my $base = basename
($file);
64 my $entries = "$dir/CVS/Entries";
65 die "Can't find $entries" unless -f
$entries;
66 open (IN
, "<$entries") or die "Cannot open $entries";
70 if ($line =~ m
,/$base/([^/]+),)
76 die "Cannot determine current revision of $file" unless $rev;
83 $old = current_revision
($file);
85 elsif ($old =~ /^-(\d+)$/)
88 $old = current_revision
($file);
89 die "Internal error" unless $old =~ /(.*)\.(\d+)$/;
90 my $minor = $2 - $offset;
91 $old = sprintf ("%d.%d", $1, $minor);
96 my $new = shift @ARGV;
97 if ($new =~ /^[+]\d+$/)
100 for ($i = 0; $i < $n; ++$i)
102 unless ($old =~ /(.*)\.(\d+)$/)
104 die "Internal error";
112 elsif ($new =~ /^[-]\d+$/)
115 for ($i = 0; $i < $n; ++$i)
117 unless ($old =~ /(.*)\.(\d+)$/)
119 die "Internal error";
138 # arch-tag: 2798b20d-c7f2-4c78-8378-7bb529c36a09