rcsfixup #5

eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
  & eval 'exec perl -S $0 $argv:q'
  if 0;
#  THE PRECEEDING STUFF EXECS perl via $PATH
# -*-Fundamental-*-

my $path = shift;

open(FO, "<$path") || die "open(\"<$path\"): $!";
open(FN, ">$path.new") || die "open(\">$path.new\"): $!";

# Hmmm. Should we be more discrimiating about where we are in the RCS
# file when we clobber these, so as to avoid inadvertantly whacking
# revision content!?
#

while (<FO>)
  {
#    if (/^expand\s+\@c\@;/) { next; }
#    if (/^expand\s+\@bx\@/) { $_ =~ s/\@bx\@/\@b\@/; } # Fall through
    if (/^mergepoint\d+\s+.*;$/) { next; }    
    if (/^filename\s+.*;$/) { next; }    
    if (/^permissions\s+\d+;$/) { next; }    
    if (/^commitid\s+[a-f\d]+;$/) { next; }    
    if (/^kopt\s+[a-z]+;$/) { next; }    
    if (/^deltatype\s+[a-z]+;$/) { next; }    
    print FN;
    if (/^desc$/) { last; }
  }

while (<FO>)
  { print FN; }

rename($path, "$path.old") || die;
rename("$path.new", "$path") || die;

print STDERR "$path\n";

exit 0;