summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/check-file-coverage
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-06 17:45:39 +0000
committerNorbert Preining <preining@logic.at>2008-01-06 17:45:39 +0000
commitcb47f09c0c8e2d04376bd63fb0a75bbef802ab9b (patch)
tree040918193f40eec1535c234e3ca766ac2fb03ad5 /Master/tlpkg/bin/check-file-coverage
parentbdd4b45d0c8aee079d4764e84421cc3a4e431283 (diff)
add ignored files to check-file-coverage
git-svn-id: svn://tug.org/texlive/trunk@6064 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/check-file-coverage')
-rwxr-xr-xMaster/tlpkg/bin/check-file-coverage26
1 files changed, 25 insertions, 1 deletions
diff --git a/Master/tlpkg/bin/check-file-coverage b/Master/tlpkg/bin/check-file-coverage
index 3bf475c5e83..0a38186078f 100755
--- a/Master/tlpkg/bin/check-file-coverage
+++ b/Master/tlpkg/bin/check-file-coverage
@@ -23,6 +23,19 @@ use Getopt::Long;
use Pod::Usage;
use File::Path;
+
+my @IgnorePatterns = qw|support/ source/ setuptl/
+ common.sh$ config.guess$ config.sub$
+ texmf-dist/README$ texmf-doc/README$ texmf/README$
+ texmf-dist/ls-R$ texmf/ls-R$
+ tlpkg/tlpsrc/
+ texmf/lists/
+ .mkisofsrc$ 00INST.TL$ 00LIVE.TL$ autorun.inf$
+ tlpkg/lib/C/ tlpkg/lib/bash/ tlpkg/lib/python/ tlpkg/tests/
+ tlpkg/etc/
+ |;
+
+
chomp (my $opt_master = `cd $::mydir/../.. && pwd`);
our $opt_debug = 0;
my $help = 0;
@@ -59,8 +72,19 @@ sub main
}
my @nothit;
for my $f (keys %tltreefiles) {
+ # if it is mentioned in the tlpdb or is ignored it is considered
+ # as covered, thus, otherwise we push it onto the nothit list
if (!defined($tlpdbf{$f})) {
- push @nothit, $f;
+ my $ignored = 0;
+ foreach my $p (@IgnorePatterns) {
+ if ($f =~ m/^$p/) {
+ $ignored = 1;
+ last;
+ }
+ }
+ if (!$ignored) {
+ push @nothit, $f;
+ }
}
}
if (@nothit) {