99 lines
3.3 KiB
Perl
Executable file
99 lines
3.3 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
# find-not-in-dir.plx -*- Perl -*-
|
|
# Possible bug: only -type f and -type d are checked
|
|
# Copyright (C) 2001, 2002, 2003, 2004, 2008, 2011 Bradley M. Kuhn <bkuhn@ebb.org>
|
|
# Copyright (C) 2011 Denver Gingerich <denver@ossguy.com>
|
|
#
|
|
# This software's license gives you freedom; you can copy, convey,
|
|
# propogate, redistribute and/or modify this program under the terms of
|
|
# the GNU General Public License (GPL) as published by the Free
|
|
# Software Foundation (FSF), either version 3 of the License, or (at your
|
|
# option) any later version of the GPL published by the FSF.
|
|
#
|
|
# This program is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
# General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program in a file in the toplevel directory called
|
|
# "GPLv3". If not, see <http://www.gnu.org/licenses/>.
|
|
#
|
|
use strict;
|
|
use warnings;
|
|
|
|
######################################################################
|
|
sub FindAndSortOutput {
|
|
use File::Find;
|
|
|
|
my($type, $dir, $output, $ignoreRegex, $includeRegex, $filterRewrite) = @_;
|
|
my @files;
|
|
|
|
my $buildList = sub {
|
|
my $val = $_;
|
|
chomp $val;
|
|
$val =~ s/$filterRewrite// if defined $filterRewrite;
|
|
if ($type eq "NON-REGULAR") {
|
|
push(@files, $val) unless -f $_;
|
|
} elsif ($type eq "FILES") {
|
|
push(@files, $val) if -f $_;
|
|
} elsif ($type eq "DIRECTORY") {
|
|
push(@files, $val) if -d $_;
|
|
} else {
|
|
die "Unknown type requested: $type";
|
|
}
|
|
};
|
|
|
|
find({ wanted => $buildList, no_chdir => 1}, $dir);
|
|
|
|
if (defined $output) {
|
|
open(FILE_OUTPUT, ">$output") or
|
|
die "$0: unable to open temporary output file, $output: $!";
|
|
}
|
|
|
|
my @sortedChompedFiles;
|
|
foreach my $file (sort {$a cmp $b } @files) {
|
|
chomp $file;
|
|
next if defined $ignoreRegex and $file =~ /$ignoreRegex/;
|
|
next if defined $includeRegex and $file !~ /$includeRegex/;
|
|
push(@sortedChompedFiles, $file);
|
|
print FILE_OUTPUT "$file\n" if defined $output;
|
|
}
|
|
close FILE_OUTPUT if defined $output;
|
|
die "unable to write to output file: $output: $! ($?)"
|
|
if $? != 0 and defined $output;
|
|
|
|
return @sortedChompedFiles;
|
|
}
|
|
######################################################################
|
|
if (@ARGV < 2) {
|
|
print STDERR "usage: $0 <DIRECTORY_OF_FILES_TO_EXCLUDE> <DIRECTORY> ... <DIRECTORY>\n";
|
|
exit 1;
|
|
}
|
|
my $excludeDirectory = shift @ARGV;
|
|
my(@directories) = @ARGV;
|
|
|
|
my($type, $dir, $output, $ignoreRegex, $includeRegex, $filterRewrite) = @_;
|
|
|
|
my(@ignoredFiles) = FindAndSortOutput("FILES", $excludeDirectory, undef,
|
|
'(?:/\.svn/|~$)');
|
|
|
|
my %ignoredFiles;
|
|
foreach my $file (@ignoredFiles) {
|
|
$file =~ s%.*/([^/]+)$%$1%;
|
|
$ignoredFiles{$file} = 1;
|
|
}
|
|
my @files;
|
|
|
|
foreach my $dir (@directories) {
|
|
push(@files, FindAndSortOutput("FILES", $dir, undef, '(?:/\.svn/|~$)'));
|
|
}
|
|
foreach my $file (@files) {
|
|
print "$file\n" unless defined $ignoredFiles{$file};
|
|
$ignoredFiles{$file} = 1; # Ignore the ones we've already printed so they aren't printed again.
|
|
}
|
|
###############################################################################
|
|
#
|
|
# Local variables:
|
|
# compile-command: "perl -c find-not-in-dir.plx"
|
|
# End:
|