summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpkginfo
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-07-24 16:57:38 +0000
committerKarl Berry <karl@freefriends.org>2009-07-24 16:57:38 +0000
commite5cee0d6a57f5481608d21154b5e4aa06fdc1d05 (patch)
treed3e1b95c37a31c2721dcfb0f21b540656b4c9395 /Master/tlpkg/bin/tlpkginfo
parent7e5630813bec518301a3f0ab57792217f3cc8503 (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-xMaster/tlpkg/bin/tlpkginfo28
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-,,;