From 20fc515964a6f64b0bdda761b5acedf22fa85a0c Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 11 Oct 2015 21:52:59 +0000 Subject: remove no-longer-used xxxpl and amslatex code. git-svn-id: svn://tug.org/texlive/trunk@38614 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/tlpkginfo | 33 +++------------------------------ 1 file changed, 3 insertions(+), 30 deletions(-) (limited to 'Master/tlpkg') 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; } -- cgit v1.2.3