diff options
author | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2008-05-09 10:55:18 +0000 |
---|---|---|
committer | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2008-05-09 10:55:18 +0000 |
commit | e1a12f117a34c45907f2aee336edb289fca4a967 (patch) | |
tree | 62a2552757cd2b8ad0ba82a34fed3bcc16655474 /Master | |
parent | 7d31c344eec7d1f264e5ac60b9930009037f4fb6 (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-x | Master/tlpkg/bin/tlpkg-ctan-check | 21 |
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"; } |