From e5cee0d6a57f5481608d21154b5e4aa06fdc1d05 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 24 Jul 2009 16:57:38 +0000 Subject: new script mkgrkindex (23jul09) git-svn-id: svn://tug.org/texlive/trunk@14428 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/tlpkginfo | 28 +++++++++++++++++----------- 1 file changed, 17 insertions(+), 11 deletions(-) (limited to 'Master/tlpkg/bin/tlpkginfo') diff --git a/Master/tlpkg/bin/tlpkginfo b/Master/tlpkg/bin/tlpkginfo index 7b9718a422c..49598411774 100755 --- a/Master/tlpkg/bin/tlpkginfo +++ b/Master/tlpkg/bin/tlpkginfo @@ -55,22 +55,28 @@ sub main # sub find_ctan_dir { - my ($me) = @_; - return 1 unless $me; + my ($pkgname) = @_; + return 1 unless $pkgname; # use explicit catalogue name if given in tlpsrc. - $me = &tlpsrc_find_catalogue ($me) || $me; - - # ctan (and latex-tds) bundles all ams packages together, - # but we use separate tlp names. - $me = "amslatex" if $me =~ /^($amslatex_tds_pkgs)$/; + my $me = &tlpsrc_find_catalogue ($pkgname); + if (! $me) { + if ($pkgname =~ /^($amslatex_tds_pkgs)$/) { + # ctan (and latex-tds) bundles all ams packages together, + # but we use separate tlp names. + $me = "amslatex" ; + } elsif ($pkgname =~ /^($cjk_pkgs)$/) { + $me = "cjk"; # likewise CJK + } elsif ($pkgname eq "mkgrkindex") { + $me = "greek-makeindex"; # use directory name + } else { + $me = $pkgname; # usually the same + } + } - # Likewise CJK. - $me = "cjk" if $me =~ /^($cjk_pkgs)$/; - # The CTAN path to a package is sometimes stored in the TeX Catalogue, # but old entries don't have it, etc. Still, we want to use it if present. - my $ctan_dir = &catalogue_find_ctan_path ($me) unless $me eq "cc-pl"; + my $ctan_dir = &catalogue_find_ctan_path ($me); if (! $ctan_dir) { # fall back on many special cases (my $menobin = $me) =~ s,^bin-,,; -- cgit v1.2.3