Cross Reference: /src/external/gpl2/xcvs/dist/contrib/validate

Lines Matching refs:REVISION
45 will cause each and every revision's integrity to be verified.  This resolves
46 to the most recent revision on each branch and the first and last revisions on
63 Check out each and every revision rather than just the I<important> ones.
65 below) on a checked out copy of each and every revision.
77 copy of each I<important> revision of each RCS archive in CVSROOT.  Executed
78 scripts are passed C<CVSROOT FILE REVISION FNO>, where C<CVSROOT> is what
81 C<REVISION> is the revision of the checked out file, and C<FNO> is the file
83 contents of revision C<REVISION> of C<FILE>.  An evaluated C<SCRIPT> will find
115         or die "Revision $_[2] of $_[0]/$_[1],v is bad, bad, bad!"'
379 #      a)  Get the revision history for the file.
383 #      b)  For each revision call &check_revision on the file.
426     foreach my $revision ( @int_revisions )
428         verbose( "\t\tLooking at Revision: $revision\n" );
429         if( !check_revision( $file, $revision, $finfo, $rinfo ) )
431             verbose( "\t$file is corrupted in revision: $revision\n" );
444 #      To retrieve an array of revision numbers.
447 #      $file - The file to retrieve the revision numbers for
453 #      On Success - A hash of revision info, indexed by revision numbers.
469 	my $revision;
480 			if( ( $revision ) = $line =~ /^revision (.*?)(\tlocked by: \S+;)?$/ )
482   				unless($revision =~ m/^\d+\.\d+(?:\.\d+\.\d+)*$/)
484 					push @invalid_revs, { 'file' => $file, 'rev' => $revision };
485 					verbose( "Adding invalid revision `$revision' of file `$file' to invalid revs list.\n" );
492 			# We require ---- before a ^revision tag, not a revision
501 				$rinfo{$revision} =
510 				die "Couldn't read date/author/state for revision $revision\n"
527 		# rlog outputs a "----" line before the actual revision
529 		# happen to start with revision
541 			verbose( "Revision $_: " );
560 #      Given a file and a revision number ensure that we can check out that
564 #      and stored in @scripts), run them on the checked out revision.  If
570 #      $revision - The revision to look at.
573 #                  For instance, $rinfo->{$revision}->{'date'} contains the
574 #                  date revision $revision
588 #        -r - The revision of the file that we would like to look at.
589 #        -ko - Get the revision exactly as checked in - do not allow
597     my( $file, $revision, $finfo, $rinfo ) = @_;
603     my $command = "cvs -d $cvsroot co$kwmode -npr $revision \"$file\"";
618 				my $status = system $script, $cvsroot, $file, $revision,
620 				warn "`$script $cvsroot $file $revision "
628 				@_ = ($cvsroot, $file, $revision, $fh);
630 				warn "script $count ($cvsroot, $file, $revision, $fh) exited abnormally: $@"
666 #      on 1.4 of the file.  The first branches revision number
670 #      we are only interested in the earliest revision number
671 #      and the highest revision number on a branch.
695     foreach my $revision( @revisions )
697         ( $branch_number, $branch_rev ) = branch_split( $revision );
732 #      To split up a revision number up into the branch part and
739 #      $revision - The revision to look at.
745 #      ( $branch, $revision ) - 
746 #      $branch - The branch part of the revision number 
747 #      $revision - The revision part of the revision number
755     my( $revision ) = @_;
761     @split_rev = split /\./, $revision;
OpenGrok
