remove no-longer-used xxxpl and amslatex code.

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

1 files changed, 3 insertions, 30 deletions

diff --git a/Master/tlpkg/bin/tlpkginfo b/Master/tlpkg/bin/tlpkginfo
index 20b181d0bb7..67fc1e0f392 100755
--- a/Master/tlpkg/bin/tlpkginfo
+++ b/Master/tlpkg/bin/tlpkginfo
@@ -23,8 +23,6 @@ sub main {
   }
 }
 
-
-
 sub tlpkgrevision {
   # output and exit codes:
   # repository not found or no modules available there
@@ -61,7 +59,7 @@ sub tlpkgrevision {
   exit(0);
 }
 
-
+
 sub ctaninfo {
   $CTAN = $ENV{"CTAN"} || "/home/ftp/tex-archive";
   $TMPDIR = $ENV{"TMPDIR"} || "/tmp";
@@ -80,10 +78,6 @@ sub ctaninfo {
   $oberdiek_tds = "hyperref|oberdiek";
 
   # special packages from latex-tds project; used by prepare()
-  #$amslatex_tds_pkgs = "xamscls|xamsmath|xamsrefs";   # from amslatex.tds
-  $amslatex_tds_pkgs = '';  # silence $^W as it is used further down there
-  #$amsfonts_tds_pkgs = "amsfonts";
-  # (amstex and amsfonts handled from the original.)
   $latex_tds_pkgs  = "latex-tds";
   $latex_tds_pkgs .= "|psnfss"; # cyrillic|graphics|latex|tools on their own
   $latex_tds_pkgs .= "|knuth";             		      # other
@@ -384,10 +378,6 @@ sub prepare {
   } elsif ($pkg eq "pgf") {
     $tds_path = "$CTAN/install/graphics/pgf/base/pgf.tds.zip";
 
-  } elsif ($pkg eq "xxxpl") {
-    # not tds, but we need to combine with plpsfont; see below.
-    $tds_path = "$CTAN/language/polish/pl-mf.zip";
-
   # ...and except for files in latex-tds...
   } elsif ($pkg =~ /^($latex_tds_pkgs)$/) {
     $tds_path = "$latex_tds_dir/$pkg.tds.zip";
@@ -404,25 +394,8 @@ sub prepare {
   system ("chmod -R a+rX $tmpdir");
   
   # put a sentinel file for ctan2tds' donormal() to work.
-  system ("echo $tds_path >$tmpdir/TDS_READY");
-
-  # fixups ... the amslatex packages are all bundled together,
-  # we now have to remove the unwanted ones.
-  if ($pkg =~ /^($amslatex_tds_pkgs)$/) {
-    chdir ($tmpdir) || die "chdir($tmpdir) failed: $!";
-    my @deldir = ();
-    # List of subsubdirectories, at the package level.
-    chomp (my @dirlist = `find */*/* -type d | sort -u`);
-    for my $dir (@dirlist) {
-      next if $dir =~ m!$pkg$!;  # keep matching directories
-      next if $pkg eq "amscls" && $dir =~ m,bst/ams$,;  # ams{alpha,plain}.bst
-      push (@deldir, $dir);
-    }
-    system ("rm -rf @deldir");       # discard the rest
-
-  } elsif ($pkg =~ /^(enctex|plxxx)$/) {
-    unlink ("$tmpdir/TDS_READY"); # not tds
-  }
+  system ("echo $tds_path >$tmpdir/TDS_READY")
+    unless $pkg =~ /^(enctex)$/; # not tds
 
   return $tmpdir;
 }