bin/diffdecvs

   1 #! /bin/sh
   2 # $Id$
   3
   4 if [ $# -ge 2 ];then
   5         echo >&2 "Syntax: $0 [<diff>]"
   6         exit 1
   7 fi
   8
   9 prog='
  10         $wasdiff-- if $wasdiff;
  11         $wasdiff=3 if /^diff -/;
  12         # Do not substitute already existing "./"... or "/dev/null".
  13         s{^(\Q---\E )(?:gdb-[^/]*/|[.]/)?}{$1./} if $wasdiff==2;
  14         s{^(\Q+++\E )(?:gdb-[^/]*/|[.]/)?}{$1./} if $wasdiff==1;
  15         next if /^[?]/;
  16         next if /^Index:/;
  17         next if /^={67}$/;
  18         next if /^RCS file:/;
  19         next if /^retrieving revision /;
  20         next if /^diff -/;
  21         print;
  22 '
  23 if [ $# -eq 1 ];then
  24         exec perl -ne "$prog" -i "$1"
  25 else
  26         exec perl -ne "$prog"
  27 fi