#!/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]);
  } else {
    die "Usage: $0 --ctan-dir PKGNAME  (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;  
  
  # 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/coptic/$me",			# cbcoptic
      "info/math/voss/$me",			# mathmode
      "info/lshort/$menodash",			# lshort-english
      "info/bibtex/$me",				# tamethebeast
      "info/symbols/$me",				# comprehensive
      "info/$me",					# Type1fonts
      "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 = "info/biblio" if $me eq "beebe";
    $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 = "language/basque" if $me eq "hyphen-basque";
    $ctan_dir = "language/hyphenation" if $me eq "hyphen-german";
    $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 <ctan path...> 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='/,,p" $catfile`;
  return undef unless $ctan_path;  # in case it's not present at all
  
  # if it's just a single file, we aren't prepared to deal with it.
  # ifxetex, for example, is given as a single file even though it has
  # its own directory, so we find it with the code above.  (The
  # Catalogue maintainers do not consider this a problem for various reasons.)
  return undef if $ctan_path =~ /file='true'/;
  
  # ok, we will use the ctan path.  chop off any options, etc.
  $ctan_path =~ s,'/>,,;
  $ctan_path =~ s,' .*,,;
  chomp ($ctan_path);

  return $ctan_path;
}