[Emacs-diffs] /srv/bzr/emacs/trunk r99381: Remove file that only works with CVS, and isn't really needed with

[Glenn Morris]

------------------------------------------------------------
revno: 99381
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2010-01-19 19:49:35 -0800
message:
  Remove file that only works with CVS, and isn't really needed with
  Bazaar (given the in-built revision options of bzr diff).
removed:
  admin/revdiff
modified:
  admin/ChangeLog

=== modified file 'admin/ChangeLog'
--- a/admin/ChangeLog   2010-01-13 08:35:10 +0000
+++ b/admin/ChangeLog   2010-01-20 03:49:35 +0000
@@ -1,3 +1,8 @@
+2010-01-20  Glenn Morris  <address@hidden>
+
+       * revdiff: Remove file that only works with CVS, and isn't really
+       needed with Bazaar (given the in-built revision options of bzr diff).
+
 2010-01-12  Glenn Morris  <address@hidden>
 
        * emacs-pretesters, make-announcement: Use bug-gnu-emacs rather

=== removed file 'admin/revdiff'
--- a/admin/revdiff     2010-01-13 08:35:10 +0000
+++ b/admin/revdiff     1970-01-01 00:00:00 +0000
@@ -1,137 +0,0 @@
-#! /usr/bin/perl
-
-# Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
-#   2010  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 3 of the License, 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.  If not, see <http://www.gnu.org/licenses/>.
-
-
-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 OLD is `-' use FILE's current revision for OLD.  If OLD is
-`-<number>', use the Nth revision before the current one for OLD.
-
-If NEW is +<number> or -<number>, build diffs between revisions OLD
-and OLD +/- <number>.
-
-Examples:
-
-revdiff FILE - -1      get the latest change of FILE
-revdiff FILE -1 +1     also gets 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);
-  }
-elsif ($old =~ /^-(\d+)$/)
-  {
-    my $offset = $1;
-    $old = current_revision ($file);
-    die "Internal error" unless $old =~ /(.*)\.(\d+)$/;
-    my $minor = $2 - $offset;
-    $old = sprintf ("%d.%d", $1, $minor);
-  }
-
-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:
-
-# arch-tag: 2798b20d-c7f2-4c78-8378-7bb529c36a09