From 1d22fff444d6ffab84d65b382c0780d893b5bf59 Mon Sep 17 00:00:00 2001 From: Manuel Pégourié-Gonnard Date: Wed, 25 Jun 2008 12:43:43 +0000 Subject: new --check-all option git-svn-id: svn://tug.org/texlive/trunk@9041 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/tlpkg-ctan-check | 31 ++++++++++++++++++++----------- 1 file changed, 20 insertions(+), 11 deletions(-) (limited to 'Master/tlpkg/bin') 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. -- cgit v1.2.3