diff options
author | Karl Berry <karl@freefriends.org> | 2009-07-24 16:57:38 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-07-24 16:57:38 +0000 |
commit | e5cee0d6a57f5481608d21154b5e4aa06fdc1d05 (patch) | |
tree | d3e1b95c37a31c2721dcfb0f21b540656b4c9395 /Master/tlpkg/bin/tlpkginfo | |
parent | 7e5630813bec518301a3f0ab57792217f3cc8503 (diff) |
new script mkgrkindex (23jul09)
git-svn-id: svn://tug.org/texlive/trunk@14428 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tlpkginfo')
-rwxr-xr-x | Master/tlpkg/bin/tlpkginfo | 28 |
1 files changed, 17 insertions, 11 deletions
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-,,; |