summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2006-10-12 01:30:20 +0000
committerNorbert Preining <preining@logic.at>2006-10-12 01:30:20 +0000
commit9078ab149a4827ec032de77b4d8b4ff8f48f4628 (patch)
tree0129025d90d743f80a27b363e327586b136fb7ac
parente019e49dd7fa93bb7c60bea2d66ac668ebf1b72a (diff)
tpm-ctan-check: add --list-not-treated-tpm option
git-svn-id: svn://tug.org/texlive/trunk@2310 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xBuild/tools/tpm-ctan-check56
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;