rcsfixup #1

  • //
  • guest/
  • perforce_software/
  • archived/
  • utils/
  • cvs2p4/
  • bin/
  • rcsfixup
  • View
  • Commits
  • Open Download .zip Download (1 KB)
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;
# Change User Description Committed
#1 8160 michael Archive obsolete CVS to Perforce converter.
See the Perforce KB and website for an updated CVS to Perforce converter.
//guest/perforce_software/utils/cvs2p4/bin/rcsfixup
#3 7274 Richard Geiger Integrate dev changes to become 3.1
#2 5649 Richard Geiger Integrate 3.0b5, b6 changes...
#1 4354 Richard Geiger Integrate 2.4 changes.
//guest/richard_geiger/utils/cvs2p4/bin/rcsfixup
#1 4279 Richard Geiger Add rcsfixup to strip RCS lines that Perforce won't like...