From 4bcdf188ddd28090273b1a0d5463b8490bb43474 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 18 Sep 2007 18:08:12 +0000 Subject: move to tlpkg/bin git-svn-id: svn://tug.org/texlive/trunk@4973 c570f23f-e606-0410-a88d-b1316a301751 --- Build/tools/tlpkginfo | 205 --------------------------------------------- Build/tools/tpm-ctan-check | 2 +- 2 files changed, 1 insertion(+), 206 deletions(-) delete mode 100755 Build/tools/tlpkginfo (limited to 'Build/tools') diff --git a/Build/tools/tlpkginfo b/Build/tools/tlpkginfo deleted file mode 100755 index d1e9d3d377e..00000000000 --- a/Build/tools/tlpkginfo +++ /dev/null @@ -1,205 +0,0 @@ -#!/usr/bin/env perl -# $Id$ -# Return information given a TL package name (i.e., a tpm file name). -# We use local copies of CTAN and the TeX Catalogue. -# -exit (&main ()); - -sub main -{ - $CTAN = $ENV{"CTAN"} || "/home/ftp/tex-archive"; - $TMPDIR = $ENV{"TMPDIR"} || "/tmp"; - $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"; - } - - # use explicit catalogue name if given in tlpsrc. - $me = &tlpsrc_find_catalogue ($me) || $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 $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/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; - } - - # prepend ctan root if not an absolute dir (this happens when we make - # a temp dir). - $ctan_dir = "$CTAN/$ctan_dir" if $ctan_dir =~ m,^[^/],; - print "$ctan_dir\n" if $ctan_dir; - return $ctan_dir ? 0 : 1; -} - - - -# If the .tlpsrc file for ME has a catalogue entry, return it. -# Else return empty string. -# -sub tlpsrc_find_catalogue -{ - my ($me) = @_; - - chomp (my $mydir = `dirname $0`); - chomp (my $tlpsrcdir = `cd $mydir/../../Master/tlpkg/tlpsrc && /bin/pwd`); - my $tlpsrc = "$tlpsrcdir/$me.tlpsrc"; - if (! -r $tlpsrc) { - warn "$0: no tlpsrc $tlpsrc\n"; - return ""; - } - - chomp (my $cat = `awk '\$1 == "catalogue" {print \$2}' $tlpsrc`); - return $cat; -} - - - -# 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_loc =~ s,' .*,,; - chomp ($ctan_loc); - - # if the Catalogue lists the path as a single file, there are two - # possibilities: (1) it really is a single file, e.g., texilikecover, - # in which case we copy that file into a temp dir and return that temp - # dir; (2) it is actually in its own directory, e.g., ifxetex, in - # which case we return undef here and let the code above find it. - # (The Catalogue maintainers do not consider this a problem for - # various reasons.) - # - if ($ctan_path =~ /file='true'/) { - return undef if $ctan_path =~ m,/$pkgname/,; # pkg dir somewhere in path - - # ok, we will copy to temp dir. - my $pkgdir = "$TMPDIR/tl.$pkgname"; - system ("rm -rf $pkgdir"); - mkdir ($pkgdir, 0777); - - warn "$0: copying single file:\n"; - warn "$0: $CTAN/$ctan_loc\n"; - unless (system ("cp -p '$CTAN/$ctan_loc' '$pkgdir/'") == 0) { - warn "$0: copy of $CTAN/$ctan_loc to $pkgdir failed?!\n"; - return undef; - } - return $pkgdir; - } - - # ok, we will use the ctan path. - return $ctan_loc; -} diff --git a/Build/tools/tpm-ctan-check b/Build/tools/tpm-ctan-check index 24c867cc5c0..4c45804c5f1 100755 --- a/Build/tools/tpm-ctan-check +++ b/Build/tools/tpm-ctan-check @@ -74,7 +74,7 @@ my @WorkingTPM = qw( ibygrk icsv IEEEconf IEEEtran ifxetex ijmart ijqc image-gallery inlinebib inversepath invoice iopart-num isodoc isorot isotope itnumpar iwona - japanese jeopardy jneurosci jpsj jurabib juramisc + japanese jeopardy jknapltx jneurosci jpsj jurabib juramisc kalender kerkis kerntest keystroke koma-script kpfonts l2picfaq l2tabu-english labelcas labels latex latex-tds latexmp layouts lcd lcg leading leaflet ledmac leftidx lewis lfb lgreek lh -- cgit v1.2.3