tpm-ctan-check: add --list-not-treated-tpm option

git-svn-id: svn://tug.org/texlive/trunk@2310 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 38 insertions, 18 deletions

diff --git a/Build/tools/tpm-ctan-check b/Build/tools/tpm-ctan-check
index 3b179efd354..00f84d8119b 100755
--- a/Build/tools/tpm-ctan-check
+++ b/Build/tools/tpm-ctan-check
@@ -3,25 +3,9 @@
 # Public domain.  Originally written 2005, Karl Berry.
 # Check if a package in TL has any changes on CTAN.  Just the beginnings.
 
-chomp (my $mydir = `dirname $0`);
-chomp ($mydir = `cd $mydir && pwd`);
-chomp ($TL = `cd $mydir/../../Master && pwd`);
-chdir ($TL) || die "chdir($TL) failed: $!";
-
-exit (&main ());
+use File::Basename;
 
-sub main
-{
-  $OPT{"verbose"} = 1;
-  
-  # xx read FILES.last7days, determine CTAN changes, map to TL packages
-  # xx alternatively, check all tpm's
-  if ($ARGV[0] eq "--check") {
-    $OPT{"verbose"} = 0;
-
-    # xx but for now, just check the few packages we have worked with.
-    # xx don't check babel, heiko patched it.
-    @ARGV = qw(
+my @WorkingTPM = qw(
        12many ESIEEcv GuIT HA-prosper IEEEconf IEEEtran
        MemoirChapStyles SIstyle SIunits Tabbing Type1fonts
        a0poster aastex abbr abc abstract
@@ -109,6 +93,42 @@ sub main
 #mathspic # inside pictex later
 #mpattern # not up-to-date on CTAN wrote author 28may05.
 #plnfss # only a zip file on CTAN
+
+
+
+chomp (my $mydir = `dirname $0`);
+chomp ($mydir = `cd $mydir && pwd`);
+chomp ($TL = `cd $mydir/../../Master && pwd`);
+chdir ($TL) || die "chdir($TL) failed: $!";
+
+exit (&main ());
+
+sub main
+{
+  $OPT{"verbose"} = 1;
+  
+  if ($ARGV[0] eq "--list-not-treated-tpm") {
+    @AllTPM = glob("{texmf-dist,texmf-doc,texmf}/tpm/*.tpm");
+    my @nottreatedtpm=();
+    foreach (@AllTPM) {
+      my $b = basename($_,".tpm");
+      my @foo = grep(/^$b$/, @WorkingTPM);
+      if ($#foo < 0) { push @nottreatedtpm, $_ ; }
+    }
+    print "List of tpms which are not in ctan-tpm-check:\n";
+    foreach (@nottreatedtpm) {
+      print "$_\n";
+    }
+    exit 0;
+  }
+  # xx read FILES.last7days, determine CTAN changes, map to TL packages
+  # xx alternatively, check all tpm's
+  if ($ARGV[0] eq "--check") {
+    $OPT{"verbose"} = 0;
+
+    # xx but for now, just check the few packages we have worked with.
+    # xx don't check babel, heiko patched it.
+    @ARGV = @WorkingTPM;
   }
 
   my $errcount = 0;