3 # Enhanced sccs diff utility for use with vc mode.
4 # This version is more compatible with rcsdiff(1).
6 # Copyright (C) 1992, 1993, 1995, 1997, 2001, 2002, 2003, 2004,
7 # 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
9 # This file is part of GNU Emacs.
11 # GNU Emacs is free software; you can redistribute it and/or modify
12 # it under the terms of the GNU General Public License as published by
13 # the Free Software Foundation; either version 3, or (at your option)
16 # GNU Emacs is distributed in the hope that it will be useful,
17 # but WITHOUT ANY WARRANTY; without even the implied warranty of
18 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 # GNU General Public License for more details.
21 # You should have received a copy of the GNU General Public License
22 # along with GNU Emacs; see the file COPYING. If not, write to the
23 # Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
24 # Boston, MA 02110-1301, USA.
28 usage
="$0: Usage: vcdiff [--brief] [-q] [-r<sid1>] [-r<sid2>] [diffopts] sccsfile..."
30 # Now that we use `sccs get' rather than just `get', we don't need this.
31 # PATH=$PATH:/usr/ccs/bin:/usr/sccs:/usr/xpg4/bin # common SCCS hangouts
52 ?
*) echo "$usage" >&2; exit 2 ;;
78 trap 'status=2; exit' 1 2 13 15
79 trap 'rm -f $rev1 $rev2 || status=2; exit $status' 0
88 rev1
=`mktemp /tmp/geta.XXXXXXXX`
89 sccs get
-s -p -k $sid1 "$f" > $rev1 &&
92 workfile
=`expr " /$f" : '.*/s.\(.*\)'`
95 rev2
=`mktemp /tmp/getb.XXXXXXXX`
96 sccs get
-s -p -k $sid2 "$f" > $rev2
100 $echo $DIFF $options $rev1 $workfile >&2
101 $DIFF $options $rev1 $workfile
106 echo "$0: $f is not an SCCS file" >&2
109 if test $status -lt $s
114 # arch-tag: 4344ba3a-bcbe-4f77-971c-f43c1606953a