1 files changed, 44 insertions, 0 deletions
diff --git a/admin/diff-tar-files b/admin/diff-tar-files
new file mode 100755
index 00000000000..6536a5e109f
--- /dev/null
+++ b/admin/diff-tar-files
@@ -0,0 +1,44 @@
+#! /bin/sh
+
+# 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.
+
+if [ $# != 2 ]; then
+    cat <<EOF
+Usage: $0 OLD-TAR NEW-TAR
+
+Print a diff of the files in OLD-TAR and NEW-TAR.  Used for checking
+the contents of Emacs tar files.
+EOF
+    exit 1;
+fi
+
+old_tar=$1
+new_tar=$2
+
+old_tmp=/tmp/old.$$
+new_tmp=/tmp/new.$$
+trap "rm -f $old_tmp $new_tmp; exit 1" 1 2 15
+
+tar tzf $old_tar | sed -e 's,^[^/]*,,' | sort > $old_tmp
+tar tzf $new_tar | sed -e 's,^[^/]*,,' | sort > $new_tmp
+diff -u $old_tmp $new_tmp
+rm -f $new_tmp $old_tmp
+
+