my version of the scripts

git-svn-id: svn://tug.org/texlive/trunk@2422 c570f23f-e606-0410-a88d-b1316a301751

3 files changed, 7 insertions, 270 deletions

diff --git a/Build/tools/etc/ctan2tl.new b/Build/tools/etc/ctan2tl.new
deleted file mode 100755
index 1a486865b34..00000000000
--- a/Build/tools/etc/ctan2tl.new
+++ /dev/null
@@ -1,168 +0,0 @@
-#!/bin/sh
-# $Id: ctan2tl 2084 2006-09-05 22:03:38Z karl $
-# Public domain.  Originally written 2005, Karl Berry.
-#
-# Initial attempt at pushing a ctan directory into TL.
-# See ./README for a bit more info.
-# 
-# Basic usage: ctan2tl TLPKGNAME
-# --place to include final `place' invocation (repository adds/removes).
-# --no-ctan if already have files in ../cdbuild/raw/PKG.
-# Unlikely to work without GNU utilities.
-# 
-# This does not actually commit anything to the repository.  Without
-# --place, it doesn't even create any files in the repository outside of
-# cdbuild/{raw,cooked}.
-
-unset CDPATH  # avoid extraneous output
-
-mydir=`cd \`dirname $0\` && pwd`  # Build/tools
-raw=$mydir/../cdbuild/raw
-test -d $raw || mkdir $raw
-cd $raw || exit 1
-
-if test "x$1" = x--place; then
-  place_chicken=
-  shift
-else
-  place_chicken=-n
-fi
-
-if test "x$1" = x--no-ctan; then
-  copy_from_ctan=false
-  shift
-else
-  copy_from_ctan=true
-fi
-
-pkg=$1
-if test -z "$pkg"; then
-  echo "$0: no TL package name specified." >&2
-  exit 1
-fi
-
-ctan_dir1=`tlpkginfo --ctan-dir $pkg`
-if test -z "$ctan_dir1"; then
-  echo "$0: can't find CTAN directory for $pkg." >&2
-  exit 1
-fi
-echo "$0: ctan dir for $pkg is $ctan_dir1"
-
-if $copy_from_ctan; then
-
-# remove whatever old stuff we might have.
-rm -rf $pkg
-
-# An important special case: the latex-tds project contains tds-ready
-# zip files for the base latex distribution and amslatex.
-# We want to use them.
-corelatex_tds_pkglist="babel|cyrillic|graphics|latex|psnfss|tools"
-amslatex_tds_pkglist="ams|amscls|amsltx2|amsmath|amsrefs"  # dup in tlpkginfo
-latex_tds_pkglist="latex-tds|$amslatex_tds_pkglist|$corelatex_tds_pkglist"
-
-if echo "$pkg" | egrep "^($latex_tds_pkglist)\$" >/dev/null; then
-  mkdir $pkg
-  ctan_root=`tlpkginfo --ctan-root`
-  #
-  # complications: the latex-tds package, for our purposes, is the
-  # sources for the tools that do the process; that's in the zip file
-  # source.zip, in the latex-tds directory.  Similarly, the zip file for
-  # latex itself is named "base.zip".  Finally, amslatex.zip actually
-  # contains several packages (= directories) -- such as ams, amscls,
-  # etc.  AMS sets it up that way.
-  # 
-  if test $pkg = latex-tds; then
-    zipname=source.zip
-  elif test $pkg = latex; then
-    zipname=base.zip
-  elif echo "$pkg" | egrep "^($amslatex_tds_pkglist)\$" >/dev/null; then
-    zipname=amslatex.zip
-  else
-    zipname=$pkg.zip
-  fi
-  (cd $pkg && unzip -qq $ctan_root/macros/latex/contrib/latex-tds/$zipname)
-
-elif test "$pkg" = rsc; then
-  # single bst file.
-  mkdir -p $pkg
-  cp -p $ctan_dir1 $pkg
-  
-elif test "$pkg" = genmisc; then
-  # do not copy subdirs, symlinks, or any files but .sty and .tex
-  # (that is, no patch.doc or pmat.zip).
-  mkdir -p $pkg
-  cp -p \
-    `find $ctan_dir1/* '(' -type d -o -type l ')' -prune -o \
-                          '(' -name '*.sty' -o -name *.tex ')' -print` \
-    $pkg
-
-else
-  # normal case (/. to deref symlinks, e.g., arabtex)
-  cp -pr $ctan_dir1/. $pkg
-fi
-
-# Another special case: annoyingly, tugboat plain and tugboat latex are
-# stored in two different places on ctan.  we'll assume we're invoked
-# with the latex dir, and now arrange to also copy in the plain stuff to
-# a `plain' subdirectory, which ctan2tds.pl has a further special case
-# to handle.  Maybe we'll come across other cases like this, in which
-# case we can generalize this.
-# 
-if test "$pkg" = tugboat; then
-  ctan_dir2=`echo $ctan_dir1 | sed s/latex/plain/`
-  destdir2=$pkg/plain
-  cp -r $ctan_dir2 $destdir2
-fi
-
-fi  # end of copying from CTAN.
-
-
-# 
-printf "\n   ctan2tds\n"
-rm -rf ../cooked/$pkg
-test -d ../cooked || mkdir ../cooked
-../ctan2tds.pl $pkg || exit 1
-
-cd ../cooked || exit 1
-printf "\n\f cooked\n"
-find -depth -type d | xargs rmdir 2>/dev/null
-find $pkg \! -type d -printf "%TY%Tm%Td.%TH%TM %p\n" | sort -r +1
-
-# compare to tpm.
-Master=../../../Master
-tpmfile=`ls $Master/texmf*/tpm/$pkg.tpm 2>/dev/null`
-if test -z "$tpmfile"; then
-  echo "$0: no tpm file for $pkg in `cd $Master; pwd`." >&2
-else
-  printf "\nBEGIN COMPARE DATA"
-  printf "\n\f new vs. present $tpmfile\n"
-  rm -f /tmp/pkgfiles.*
-  # remove leading text in case of lines starting with texmf.
-  # Then assume all actual files do start with texmf.
-  sed -n -e '/TPM:.*Files/,$s,^texmf,./texmf,p' $tpmfile \
-  | grep -v '\.tpm$' \
-  | sort >/tmp/pkgfiles.tpm
-  #
-  # list of files in the new package we've just cooked.
-  (cd $pkg && find \! -type d -print) | grep -v '/cooked/' \
-  | sort >/tmp/pkgfiles.new
-  #
-  comm -3 /tmp/pkgfiles.new /tmp/pkgfiles.tpm
-  #
-  for common_file in `comm -12 /tmp/pkgfiles.new /tmp/pkgfiles.tpm`; do
-    diff --ignore-all-space -u0 $Master/$common_file $pkg/$common_file
-  done >/tmp/tldiff
-  diff_lines=`wc -l </tmp/tldiff`
-  diff_lines=`expr $diff_lines / 2`
-  printf "CMP: %d common files, ~%d lines different (/tmp/tldiff)\n" \
-    `comm -12 /tmp/pkgfiles.new /tmp/pkgfiles.tpm | wc -l` $diff_lines
-  printf "\nEND COMPARE DATA\n"
-fi
-
-printf "\n\f place $place_chicken\n"
-rm -rf $pkg.done
-../place $place_chicken $pkg
-status=$?
-
-rm -rf ../raw/$pkg
-exit $status
diff --git a/Build/tools/etc/do_check b/Build/tools/etc/do_check
index 867d939fb62..14603b124e5 100644
--- a/Build/tools/etc/do_check
+++ b/Build/tools/etc/do_check
@@ -1,6 +1,9 @@
 
+PATH=/src/TeX/texlive-svn/Build/tools:$PATH
+export PATH
+
 for i in $(cat missing-tpms) ; do
   bn=$(basename $i .tpm)
   echo -n "TPM: $bn "
-  ./ctan2tl.new $bn 2>&1 | perl ./check-ctan2tl-output.pl
+  ctan2tl.new $bn 2>&1 | perl ./check-ctan2tl-output.pl
 done
diff --git a/Build/tools/etc/reindent-workingtpm.pl b/Build/tools/etc/reindent-workingtpm.pl
index 0c42b724b3e..c7f2cedad45 100644
--- a/Build/tools/etc/reindent-workingtpm.pl
+++ b/Build/tools/etc/reindent-workingtpm.pl
@@ -1,106 +1,8 @@
 
 my @WorkingTPM = qw(
-        12many
-        a0poster aastex abbr abc abstract accfonts acmtrans acronym
-          active-conf aguplus algorithm2e algorithmicx algorithms
-          alnumsec ams amscls amsldoc-it amsltx2 amsmath amsrefs
-          amsthdoc-it apacite appendix arabtex archaic arcs arev
-          armenian arrayjob arydshln ascii assignment attachfile
-          aurical
-        babelbib beamer beamer-tut-pt beebe begriff betababel bezos
-          bghyphen bibhtml bibleref bibtopic bibunits bigfoot
-          birthday bitfield blacklettert1 blindtext booklet bophook
-          boxhandler breakurl bussproofs bytefield
-        caption carlisle cbcoptic ccaption cdpbundl cellspace
-          changebar chappg chem-journal chemcompounds cherokee circ
-          citeref cjhebrew clefval clock cmdtrack cmll colorinfo
-          colortbl commath compactbib complexity comprehensive
-          computational-complexity cool coollist coolstr cooltooltips
-          coordsys courier-scaled courseoutline coursepaper coverpage
-          crop csquotes ctable cursolatex curve curve2e curves
-          custom-bib cvsty cyrillic
-        dancers dashbox dateiliste datetime dcpic decimal digiconfigs
-          dinat dingbat directory dk-bib doipubmed dottex
-          draftwatermark dramatist dtxtut dvdcoll dvipsconfig dyntree
-        ebong eCards economic ednotes eemeir egameps egplot eijkhout
-          ellipsis elpres elsevier emulateapj endfloat endheads
-          engrec enumitem envbig epiolmec epsf eqparbox es-tex-faq
-          ESIEEcv esint esint-type1 eskd eskdx eso-pic etaremune
-          ethiop ethiop-t1 euro europecv eurosans everypage exam
-          examdesign examplep exercise expressg extarrows exteps
-          extpfeil extsizes
-        faktor fancyhdr fancynum fax featpost filecontents fixme
-          flagderiv flippdf floatflt floatrow flowfram fltpoint
-          fmtcount fncychap foekfont fontch fontspec forloop formular
-          fourier fp free-math-font-survey frenchle fribrief functan
-        galois gatech-thesis genmisc genmpage germbib ginpenc
-          glossary gnuplottex gost graphics graphicx-psmin greenpoint
-          grnumalt GuIT
-        HA-prosper hands hepthesis hhtensor hitec hrlatex hvfloat
-          hyperref hyperxmp hyphen-base hyphen-basque hyphen-german
-          hyphen-greek hyphen-norwegian hyphen-ukenglish
-          hyphen-usorbian hyplain
-        ibygrk icsv IEEEconf IEEEtran ifxetex inlinebib invoice
-          iopart-num isorot isotope
-        jneurosci jpsj juramisc
-        kalender kerkis keystroke koma-script
-        l2picfaq l2tabu-english labelcas labels latex latex-tds
-          layouts lcd lcg leaflet leawood ledmac lewis lfb lgreek lh
-          limap linearA lineno lipsum listings listliketab lkproof
-          logpap lsc lshort-bulgarian lshort-dutch lshort-english
-          lshort-finnish lshort-french lshort-german lshort-italian
-          lshort-japanese lshort-korean lshort-mongolian
-          lshort-polish lshort-portuguese lshort-slovak
-          lshort-spanish lshort-thai lshort-turkish lshort-ukrainian
-          lshort-vietnamese ltablex ltabptch ltxindex ltxmisc
-        mafr magyar mailing makebox makecell makecirc makeglos
-          makeplot maple marginnote mathdots mathmode maybemath
-          mcaption mceinleger mdwtools memoir MemoirChapStyles mentis
-          menu metaobj metaplot metatex metauml mfpic mftinc mhchem
-          mhs microtype minipage-marginpar minitoc minitoc mla-paper
-          moderncv movie15 msg multicap munich muthesis mwcls mwrite
-        nag natbib nath nature ncclatex ncctools newlfm nih noitcrul
-          nomencl nomentbl ntgclass ntheorem-vn numline numprint
-        oberdiek ocr-latex octavo ofs ogham oldstyle opcit
-        papercdcase paresse parrun pauldoc pdf-trans pdfcprot
-          pdfpages pdfscreen pdftex-def perception perltex permute
-          pgf phaistos pict2e pictex pittetd placeins plari plates
-          poemscol polynom powerdot ppr-prv pracjourn preprint
-          prettyref preview probsoln program protocol pseudocode
-          psfrag psnfss pspicture pst-3d pst-3dplot pst-bar
-          pst-barcode pst-blur pst-eucl pst-fr3d pst-func pst-labo
-          pst-lens pst-math pst-optic pst-osci pst-pdf pst-pdgr
-          pst-slpe pst-uml pstricks pstricks-add
-        qcm qtree
-        randbild rccol rcsinfo refstyle resume robustcommand
-          robustindex rsc rtkinenc rtklage
-        sae sauerj sauterfonts savefnmark savesym savetrees scale
-          scalebar scientificpaper sciposter screenplay script
-          sectionbox sectsty semantic semaphor seminar semioneside
-          seqsplit setspace sf298 sffms sgame shadbox shapepar
-          shorttoc showdim showexpl showlabels sidecap sides siggraph
-          SIstyle SIunits skaknew slideshow smalltableof smartref
-          snapshot songbook sort-by-letters soul sparklines spie
-          splines splitbib splitindex spotcolor sprite srcltx sseq
-          ssqquote stack stage stdclsdv stdpage stellenbosch struktex
-          sttools subeqn subeqnarray subfig subfloat substr sudoku
-          sudokubundle sugconf supertabular svn svn-multi svninfo
-          swebib syntax syntrace synttree
-        t-angles Tabbing tableaux tabulary tabvar talk tamethebeast
-          tengwarscript tensor teubner tex-refs texmate texshade
-          textcase textfit textopo textpos thesis-titlepage-fhac
-          thumb thumbpdf ticket titlefoot titlesec titling tocbibind
-          tocloft todo tokenizer toolbox tools totpages tracking
-          trajan trfsigns trsym tugboat twoup Type1fonts typedref
-          typogrid
-        ucthesis uhrzeit uiucthesis umich-thesis umlaute underlin
-          undertilde units unitsdef upquote ushort
-        vancouver variations varindex vector velthuis verse versions
-          vhistory visualfaq vmargin volumes vpe
-        wallpaper warning warpcol williams wordlike wrapfig
-        xcolor xifthen xkeyval xltxtra xq xtab xyling xypic-tut-pt
-          xytree
-        york-thesis
+	enter the current list of working tpm from
+	tpm-ctan-check here before calling this script
+	then copy the output back to tpm-ctan-check
     );