(bootstrap-prepare): Also chmod cal-loaddefs.el.
[emacs.git] / admin / revdiff
blob9e47a1eba2c7083281fda79159397ebe65e1b27e
1 #! /usr/bin/perl
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)
11 # any later version.
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.
23 use File::Basename;
25 if (@ARGV < 3)
27 print <<USAGE;
28 revdiff FILE OLD NEW
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
37 and OLD +/- <number>.
39 Examples:
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.
45 USAGE
46 exit 1;
49 $file = shift @ARGV;
50 $old = shift @ARGV;
52 sub diffit
54 my ($old, $new) = @_;
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 ($)
61 my ($file) = @_;
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";
67 my $rev;
68 while ($line = <IN>)
70 if ($line =~ m,/$base/([^/]+),)
72 $rev = $1;
73 break;
76 die "Cannot determine current revision of $file" unless $rev;
77 close (IN);
78 return $rev;
81 if ($old eq "-")
83 $old = current_revision ($file);
85 elsif ($old =~ /^-(\d+)$/)
87 my $offset = $1;
88 $old = current_revision ($file);
89 die "Internal error" unless $old =~ /(.*)\.(\d+)$/;
90 my $minor = $2 - $offset;
91 $old = sprintf ("%d.%d", $1, $minor);
94 while (@ARGV)
96 my $new = shift @ARGV;
97 if ($new =~ /^[+]\d+$/)
99 my $n = $new;
100 for ($i = 0; $i < $n; ++$i)
102 unless ($old =~ /(.*)\.(\d+)$/)
104 die "Internal error";
106 my $j = $2 + 1;
107 $new = "$1.$j";
108 diffit ($old, $new);
109 $old = $new;
112 elsif ($new =~ /^[-]\d+$/)
114 my $n = - $new;
115 for ($i = 0; $i < $n; ++$i)
117 unless ($old =~ /(.*)\.(\d+)$/)
119 die "Internal error";
121 my $j = $2 - 1;
122 $new = "$1.$j";
123 diffit ($new, $old);
124 $old = $new;
127 else
129 diffit ($old, $new);
130 $old = $new;
134 # Local Variables:
135 # mode: cperl
136 # End:
138 # arch-tag: 2798b20d-c7f2-4c78-8378-7bb529c36a09