1 files changed, 122 insertions, 0 deletions

diff --git a/admin/revdiff b/admin/revdiff
new file mode 100755
index 00000000000..bdd6a2210ce
--- /dev/null
+++ b/admin/revdiff
@@ -0,0 +1,122 @@
+#! /usr/bin/perl
+
+# Copyright (C) 2001 Free Software Foundation, Inc.
+#
+# This file is part of GNU Emacs.
+#
+# GNU Emacs is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+#
+# GNU Emacs is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with GNU Emacs; see the file COPYING.  If not, write to the
+# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+# Boston, MA 02111-1307, USA.
+
+use File::Basename;
+
+if (@ARGV < 3) 
+{
+  print <<USAGE;
+revdiff FILE OLD NEW
+    
+Get a diff of FILE between revisions OLD and NEW.  Store the
+diff in a file named FILE-OLD-NEW.diff.  If NEW is +<number>
+or -<number>, build diffs between revisions OLD and OLD +/- <number>.
+OLD being `-' means use FILE's current revision.
+
+Examples:
+
+revdiff FILE - -1      get the latest change of FILE
+revdiff FILE 1.500 +2  get diffs 1.500-1.501 and 1.501-1.502.
+
+USAGE
+  exit 1;
+}
+
+$file = shift @ARGV;
+$old  = shift @ARGV;
+
+sub diffit 
+{
+  my ($old, $new) = @_;
+  print "cvs diff -r$old -r$new $file >$file-$old-$new.diff\n";
+  system "cvs diff -r$old -r$new $file >$file-$old-$new.diff";
+}
+
+sub current_revision ($)
+{
+  my ($file) = @_;
+  my $dir = dirname ($file);
+  my $base = basename ($file);
+  my $entries = "$dir/CVS/Entries";
+  die "Can't find $entries" unless -f $entries;
+  open (IN, "<$entries") or die "Cannot open $entries";
+  my $rev;
+  while ($line = <IN>) 
+    {
+      if ($line =~ m,/$base/([^/]+),) 
+        {
+          $rev = $1;
+          break;
+        }
+    }
+  die "Cannot determine current revision of $file" unless $rev;
+  close (IN);
+  return $rev;
+}
+
+if ($old eq "-")
+{
+  $old = current_revision ($file);
+}
+
+while (@ARGV) 
+  {
+    my $new = shift @ARGV;
+    if ($new =~ /^[+]\d+$/)
+      {
+        my $n = $new;
+        for ($i = 0; $i < $n; ++$i) 
+          {
+            unless ($old =~ /(.*)\.(\d+)$/) 
+              {
+                die "Internal error";
+              }
+            my $j = $2 + 1;
+            $new = "$1.$j";
+            diffit ($old, $new);
+            $old = $new;
+          }
+      } 
+    elsif ($new =~ /^[-]\d+$/) 
+      {
+        my $n = - $new;
+        for ($i = 0; $i < $n; ++$i) 
+          {
+            unless ($old =~ /(.*)\.(\d+)$/) 
+              {
+                die "Internal error";
+              }
+            my $j = $2 - 1;
+            $new = "$1.$j";
+            diffit ($new, $old);
+            $old = $new;
+          }
+      }
+    else 
+      {
+        diffit ($old, $new);
+        $old = $new;
+      }
+  }
+
+# Local Variables:
+# mode: cperl
+# End: