#! /bin/sh
# $Id$

if [ $# -ge 2 ];then
	echo >&2 "Syntax: $0 [<diff>]"
	exit 1
fi

prog='
	$wasdiff-- if $wasdiff;
	$wasdiff=3 if /^diff -/;
	# Do not substitute already existing "./"... or "/dev/null".
	s{^(\Q---\E )(?:gdb-[^/]*/|[.]/)?}{$1./} if $wasdiff==2;
	s{^(\Q+++\E )(?:gdb-[^/]*/|[.]/)?}{$1./} if $wasdiff==1;
	next if /^[?]/;
	next if /^Index:/;
	next if /^={67}$/;
	next if /^RCS file:/;
	next if /^retrieving revision /;
	next if /^diff -/;
	print;
'
if [ $# -eq 1 ];then
	exec perl -ne "$prog" -i "$1"
else
	exec perl -ne "$prog"
fi