summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2008-05-09 10:55:18 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2008-05-09 10:55:18 +0000
commite1a12f117a34c45907f2aee336edb289fca4a967 (patch)
tree62a2552757cd2b8ad0ba82a34fed3bcc16655474 /Master
parent7d31c344eec7d1f264e5ac60b9930009037f4fb6 (diff)
new --list-not-treated-normal option
git-svn-id: svn://tug.org/texlive/trunk@7985 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/tlpkg/bin/tlpkg-ctan-check21
1 files changed, 18 insertions, 3 deletions
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index e2c65d47731..5881e4400d7 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -214,14 +214,29 @@ sub main
$OPT{"verbose"} = 1;
- if ($ARGV[0] eq "--list-not-treated") {
+ # Two options for listing the not-treated packages:
+ # 1. list them all with --list-not-treated
+ # 2. list only the 'normal' ones with --list-non-treated-normal
+ # 'Normal' excludes meta-packages and binary packages,
+ # resulting in a shorter, hence less scaring list.
+ $non_normal = '^0+texlive|^bin-|^collection-|^scheme-|^texlive-'
+ . '|alpha-linux$|hppa-hpux$|i386-darwin$|i386-freebsd$|i386-linux$'
+ . '|i386-openbsd$|i386-solaris$|mips-irix$|powerpc-aix$|powerpc-darwin$'
+ . '|powerpc-linux$|sparc-linux$|sparc-solaris$|win32$|x86_64-linux$';
+
+ if (($ARGV[0] eq "--list-not-treated")
+ or (my $normal_only = ($ARGV[0] eq "--list-not-treated-normal"))) {
@AllTLP = $tlpdb->list_packages;
my @nottreatedtlp=();
foreach my $b (@AllTLP) {
my @foo = grep(/^$b$/, @WorkingTLP);
- if ($#foo < 0) { push @nottreatedtlp, $b ; }
+ if ($#foo < 0) {
+ push (@nottreatedtlp, $b)
+ unless ($normal_only and ($b =~ /$non_normal/)) ;
+ }
}
- print "List of tlps which are not in ctan-check:\n";
+ print "List of", $normal_only ? " 'normal' " : " ",
+ "tlps which are not in ctan-check:\n";
foreach (@nottreatedtlp) {
print "$_\n";
}