code.delx.au - gnu-emacs/blob - admin/diff-tar-files

   1 #! /bin/sh
   2
   3 # Copyright (C) 2001, 2006 Free Software Foundation, Inc.
   4 #
   5 # This file is part of GNU Emacs.
   6 #
   7 # GNU Emacs is free software; you can redistribute it and/or modify
   8 # it under the terms of the GNU General Public License as published by
   9 # the Free Software Foundation; either version 2, or (at your option)
  10 # any later version.
  11 #
  12 # GNU Emacs is distributed in the hope that it will be useful,
  13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 # GNU General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU General Public License
  18 # along with GNU Emacs; see the file COPYING.  If not, write to the
  19 # Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  20 # Boston, MA 02110-1301, USA.
  21
  22 if [ $# != 2 ]; then
  23     cat <<EOF
  24 Usage: $0 OLD-TAR NEW-TAR
  25
  26 Print a diff of the files in OLD-TAR and NEW-TAR.  Used for checking
  27 the contents of Emacs tar files.
  28 EOF
  29     exit 1;
  30 fi
  31
  32 old_tar=$1
  33 new_tar=$2
  34
  35 old_tmp=/tmp/old.$$
  36 new_tmp=/tmp/new.$$
  37 trap "rm -f $old_tmp $new_tmp; exit 1" 1 2 15
  38
  39 tar tzf $old_tar | sed -e 's,^[^/]*,,' | sort > $old_tmp
  40 tar tzf $new_tar | sed -e 's,^[^/]*,,' | sort > $new_tmp
  41 diff -u $old_tmp $new_tmp
  42 rm -f $new_tmp $old_tmp
  43
  44
  45 # arch-tag: ef2c96e2-ea67-4668-925c-d9a6f3d205cf