#!/usr/bin/env perl # $Id$ # Return information given a TL package name (i.e., a tpm file name). # Currently just the ctan directory for package, but maybe we'll do more # later. # exit (&main ()); sub main { $CTAN = $ENV{"CTAN"} || "/home/ftp/tex-archive"; $CATALOGUE = $ENV{"TEX_CATALOGUE"} || "/home/httpd/html/catalogue/entries"; -d "$CATALOGUE/k" || die "$0: TEX_CATALOGUE ($CATALOGUE) must point to entries/ subdir" . " of a TeX Catalogue checkout.\n"; if ($ARGV[0] eq "--ctan-dir") { return &find_ctan_dir ($ARGV[1]); } elsif ($ARGV[0] eq "--ctan-root") { print "$CTAN\n"; return 0; } else { die "Usage: $0 --ctan-dir PKGNAME or --ctan-root (not @ARGV)\n"; } } # # Return 0 for success if we find a path (and print it on stdout), else # return 1. # sub find_ctan_dir { my ($me) = @_; return 1 unless $me; # regrettably, this list of amslatex packages is duplicated in ctan2tl. # unavoidable since ctan throws them all together, but we don't want # to, to preserve the package-per-directory name. if ($me =~ /^(ams|amscls|amsltx2|amsmath|amsrefs)$/) { $me = "amslatex"; } # 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); if (! $ctan_dir) { # fall back on many special cases (my $menobin = $me) =~ s,^bin-,,; (my $menodash = $me) =~ s,^.*-,,; (my $menopowerdot = $me) =~ s,^powerdot-,,; (my $menotype1 = $me) =~ s,-type1$,,; for my $dir ( "macros/latex/contrib/$me", # most everything "macros/latex/contrib/\L$me", # HA-prosper "macros/latex/contrib/powerdot/contrib/$menopowerdot", # powerdot-doc-vn "macros/latex/exptl/$me", # semioneside "macros/latex/required/$me", # babel "macros/plain/$me", # plnfss "macros/xetex/latex/$me", # xetex "macros/generic/$me", # abbr "macros/generic/diagrams/$me", # circ "macros/$me", # eplain "support/$me", # thumbpdf "support/$menobin", # bin-thumbpdf "language/vietnamese/$me/unpacked", # vntex "language/hyphenation/$me", # bghyphen "language/hebrew/$me", # cjhebrew "language/greek/package-babel/$me", # ibycus-babel "language/devanagari/$me", # velthuis "language/croatian/$me", # hrlatex "language/coptic/$me", # cbcoptic "info/spanish/$me", # guia-bibtex "info/symbols/$me", # comprehensive "info/math/voss/$me", # mathmode "info/lshort/$menodash", # lshort-english "info/bibtex/$me", # tamethebeast "info/$me", # Type1fonts "help/$me", # es-tex-faq "graphics/$me", # sparklines "graphics/metapost/contrib/macros/$me", # mpattern "graphics/pstricks/contrib/pedigree/$me", # pst-pdgr "graphics/pstricks/contrib/$me", # pstricks-add "fonts/$me", # MnSymbol "fonts/utilities/$me", # accfonts "fonts/ps-type1/$me", # cm-super "fonts/ps-type1/$menotype1", # esint-type1 "fonts/greek/$me", # lfb "fonts/gothic/$me", # blacklettert1 "fonts/cyrillic/$me/texmf", # lh "fonts/chess/$me", # skaknew "biblio/bibtex/contrib/$me", # dk-bib ) { if (-d "$CTAN/$dir") { $ctan_dir = $dir; last; } } # names totally dissimilar $ctan_dir = "fonts/fourier-GUT" if $me eq "fourier"; $ctan_dir = "graphics/pdftex" if $me eq "pdftex-def"; $ctan_dir = "info/biblio" if $me eq "beebe"; $ctan_dir = "info/epslatex/french" if $me eq "epslatex-fr"; $ctan_dir = "info/italian/amsldoc" if $me eq "amsldoc-it"; $ctan_dir = "info/italian/amsthdoc" if $me eq "amsthdoc-it"; $ctan_dir = "info/tex-references" if $me eq "tex-refs"; $ctan_dir = "info/translations/vn" if $me eq "ntheorem-vn"; $ctan_dir = "language/armenian/armtex" if $me eq "armenian"; $ctan_dir = "language/basque" if $me eq "hyphen-basque"; $ctan_dir = "language/hungarian/babel" if $me eq "magyar"; $ctan_dir = "language/hyphenation/elhyphen" if $me eq "hyphen-greek"; $ctan_dir = "macros/latex/contrib/misc" if $me eq "ltxmisc"; $ctan_dir = "macros/generic" if $me eq "genmisc"; # do last, for sake of subdirs above. $ctan_dir = "language/hyphenation" if $me =~ /^hyphen-/ && ! $ctan_dir; } print "$CTAN/$ctan_dir\n" if $ctan_dir; return $ctan_dir ? 0 : 1; } # look up ctan path for given package name in catalogue entry. # xml is too hard to parse, so just look for the entry. # Sometimes there is a single file, but worry about that later. # # Return the ctan path if found (without leading /), or undef. # sub catalogue_find_ctan_path { my ($pkgname) = @_; my $firstchar = substr ($pkgname, 0, 1); my $catfile = "$CATALOGUE/$firstchar/$pkgname.xml"; return undef unless -r $catfile; # get the raw line from the catalogue file. (let's hope it's one line.) my $ctan_path = `sed -n "s,^ *,,; $ctan_path =~ s,' .*,,; chomp ($ctan_path); return $ctan_path; }