diff options
| -rwxr-xr-x | Build/tools/tpm-ctan-check | 56 |
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; |