summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2008-06-25 12:43:43 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2008-06-25 12:43:43 +0000
commit1d22fff444d6ffab84d65b382c0780d893b5bf59 (patch)
tree804595a560b828b2f1d1d8f507dda5ae98cd4010 /Master
parent47f4481a23ad516f02cbd8a8bd2a2c180a1ac883 (diff)
new --check-all option
git-svn-id: svn://tug.org/texlive/trunk@9041 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/tlpkg/bin/tlpkg-ctan-check31
1 files changed, 20 insertions, 11 deletions
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index ff3d84838cb..605d173bc7a 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -225,23 +225,18 @@ sub main
if ($ARGV[0] eq "--list-not-treated") {
print "List of tlps which are not in ctan-check:\n";
- # We want to list only the 'normal' packages,
- # that is, exclude meta-packages and binary packages.
- my $non_normal = `ls $TL/bin`;
- $non_normal =~ s/\n/\$|/g;
- $non_normal .= '^0+texlive|^bin-|^collection-|^scheme-|^texlive-';
- foreach my $b ($tlpdb->list_packages) {
+ foreach my $b (&normal_tlps) {
my @foo = grep(/^$b$/, @WorkingTLP);
- print "$b\n" if (($#foo < 0) and ($b !~ /$non_normal/));
+ print "$b\n" if ($#foo < 0);
}
exit 0;
- }
-
- if ($ARGV[0] eq "--check") {
+ } elsif ($ARGV[0] eq "--check") {
$OPT{"verbose"} = 0;
-
# for now, just check the few packages we have worked with.
@ARGV = @WorkingTLP;
+ } elsif ($ARGV[0] eq "--check-all") {
+ $OPT{"verbose"} = 0;
+ @ARGV = &normal_tlps;
}
my $errcount = 0;
@@ -252,6 +247,20 @@ sub main
return $errcount;
}
+# gives a list with only the 'normal' packages,
+# that is, excluding meta-packages and binary packages
+# (and hyphen for the moment)
+sub normal_tlps
+{
+ my @normal;
+ my $non_normal = `ls $TL/bin`;
+ $non_normal =~ s/\n/\$|/g;
+ $non_normal .= '^0+texlive|^bin-|^collection-|^scheme-|^texlive-|^hyphen-';
+ foreach ($tlpdb->list_packages) {
+ push (@normal, $_) unless (/$non_normal/);
+ }
+ return @normal;
+}
# Return 1 if TPM needs updating, 0 if ok.