You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
128 lines
2.3 KiB
128 lines
2.3 KiB
15 years ago
|
#! /usr/bin/env perl
|
||
|
|
|
||
|
|
# Offline check for extra in a checked-out
|
||
|
|
# CVS module. Sirtaj Singh Kang <taj@kde.org> May 2000.
|
||
|
|
# Usage:
|
||
|
|
# noncvsfiles <module dir>...
|
||
|
|
|
||
|
|
@dirqueue = @ARGV;
|
||
|
|
%entries = ();
|
||
|
|
@files = ();
|
||
|
|
|
||
|
|
sub processEntries
|
||
|
|
{
|
||
|
|
my ( $dir ) = @_;
|
||
|
|
|
||
|
|
open( ENTRIES, $dir."/CVS/Entries" )
|
||
|
|
|| warn "Couldn't read '$dir/CVS/Entries'";
|
||
|
|
|
||
|
|
while( <ENTRIES> ) {
|
||
|
|
if ( m#^\s*D/([^/]+)/# ) {
|
||
|
|
push ( @dirqueue, "$dir/$1" );
|
||
|
|
$entries{ "$dir/$1" } = 1;
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
|
||
|
|
next unless m#^\s*/([^/]+)/([\d\.]*)/([^/]+)/#;
|
||
|
|
|
||
|
|
$fname = $1;
|
||
|
|
$ver = $2;
|
||
|
|
$stamp = $3;
|
||
|
|
|
||
|
|
$entries{ "$dir/$fname" } = $stamp;
|
||
|
|
}
|
||
|
|
|
||
|
|
close( ENTRIES );
|
||
|
|
|
||
|
|
open( IGNORE, $dir."/.cvsignore" ) || return;
|
||
|
|
|
||
|
|
while( <IGNORE> ) {
|
||
|
|
chomp;
|
||
|
|
s/^\s+//;
|
||
|
|
s/\s+$//;
|
||
|
|
$entries{ "$dir/$_" } = "ignored";
|
||
|
|
}
|
||
|
|
|
||
|
|
close( IGNORE );
|
||
|
|
}
|
||
|
|
|
||
|
|
# month assoc array for name -> index lookups
|
||
|
|
$mctr = 0;
|
||
|
|
|
||
|
|
foreach $month ( @monthlist ) {
|
||
|
|
$months{ $month } = $mctr;
|
||
|
|
$mctr++;
|
||
|
|
}
|
||
|
|
|
||
|
|
# Try current directory if none specified
|
||
|
|
|
||
|
|
if( $#dirqueue < 0 ) {
|
||
|
|
push( @dirqueue, "." );
|
||
|
|
}
|
||
|
|
|
||
|
|
# process directory queue, filling entries hash
|
||
|
|
foreach $dir ( @dirqueue ) {
|
||
|
|
processEntries( $dir );
|
||
|
|
|
||
|
|
open( FILES, 'find "'.$dir.'" | grep -v "/CVS"|' )
|
||
|
|
|| die "Couldn't find files in $dir";
|
||
|
|
|
||
|
|
while( <FILES> ) {
|
||
|
|
chop;
|
||
|
|
next if $_ eq '.';
|
||
|
|
next if m/\/\.#/; #ignore .#blah
|
||
|
|
push @files, $_;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
#foreach my $entry ( sort keys %entries )
|
||
|
|
#{
|
||
|
|
# print $entry,"\n";
|
||
|
|
#}
|
||
|
|
|
||
|
|
my $lastfile = "";
|
||
|
|
|
||
|
|
foreach my $file ( sort @files )
|
||
|
|
{
|
||
|
|
next if $file eq $lastfile;
|
||
|
|
$lastfile = $file;
|
||
|
|
|
||
|
|
if ( !exists $entries{ $file } ) {
|
||
|
|
print $file,"\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
=head1 NAME
|
||
|
|
|
||
|
|
noncvslist -- List all files in a checked out CVS module that are not
|
||
|
|
known by the CVS server.
|
||
|
|
|
||
|
|
=head1 SYNOPSIS
|
||
|
|
|
||
|
|
When the current directory is a CVS module:
|
||
|
|
|
||
|
|
noncvslist
|
||
|
|
|
||
|
|
Checking checked out subdirectories:
|
||
|
|
|
||
|
|
noncvslist [<dir>...]
|
||
|
|
|
||
|
|
=head1 DESCRIPTION
|
||
|
|
|
||
|
|
This script will list all files and directories in the module(s) that are
|
||
|
|
not listed in the CVS/Entries files. These may be files created during builds,
|
||
|
|
new un-added sources files etc. It is a useful housekeeping tool.
|
||
|
|
|
||
|
|
=head1 EXAMPLES
|
||
|
|
|
||
|
|
Assuming baseline/ has kdelibs/ and kdebase/ checked out within it:
|
||
|
|
|
||
|
|
cd baseline/kdelibs; noncvslist
|
||
|
|
cd baseline; noncvslist kdelibs kdebase
|
||
|
|
|
||
|
|
=head1 AUTHOR
|
||
|
|
|
||
|
|
Sirtaj Singh Kang <taj@kde.org>
|
||
|
|
|
||
|
|
=cut
|