cvs/contrib/check_cvs.in

219 #      a)  Get the revision history for the file.
223 #      b)  For Each revision try to retrieve that version
264     foreach my $revision ( @int_revisions )
266         print( "\t\tLooking at Revision: $revision\n" ) if( $verbose );
267         if( !check_revision( $file, $revision ) )
269             print( "\t$file is corrupted in revision: $revision\n" ) if( $verbose );
283 #      To retrieve a array of revision numbers.
286 #      $file - The file to retrieve the revision numbers for
292 #      On Success - Reference to the list of revision numbers
307     my $revision;
315         #rlog outputs a "----" line before the actual revision
317         #happen to start with revision
324 	if( ( !$ignore ) && ( ( $revision ) = m/^revision (\S+)/ ) )
326             push( @revisions, $revision );
347 #      Given a file and a revision number ensure that we can
352 #      $revision - The revision to look at.
366 #        -r - The revision of the file that we would like to look at.
373     my( $file, $revision ) = @_;
379     my $ret_code = 0xffff & system( "cvs co -n -p -r $revision \"$file\" > /dev/null 2>&1" );
405 #      on 1.4 of the file.  The first branches revision number
409 #      we are only interested in the earliest revision number
410 #      and the highest revision number on a branch.
435     foreach my $revision( @revisions )
438         ( $branch_number, $branch_rev ) = branch_split( $revision );
485 #      in duplication that will cause cvs to check a revision multiple
486 #      times.  For Instance revision 1.1.1.1 should be prefered
487 #      to be checked over revision 1.1, as that v1.1.1.1 can
548 #      To Find a interesting branch revision.
558 #      $branch_rev    - The particular revision we are looking
599 #      To Find a interesting mainline revision.
610 #        it is replace with new $branch_rev.  Else ignore revision
614 #      $branch_rev    - The particular revision we are looking
669 #      Determine the number of elements in a revision number
671 #      the revision 1.2.3.4 would have 4 elements
672 #      the revision 1.2.4.5.6.7 would have 6 elements
675 #      $branch - The revision to look at.
704 #      To split up a revision number up into the branch part and
711 #      $revision - The revision to look at.
717 #      ( $branch, $revision ) -
718 #      $branch - The branch part of the revision number
719 #      $revision - The revision part of the revision number
727     my( $revision ) = @_;
733     @split_rev = split /\./, $revision;