#!/usr/bin/env perl
# $Id$
# Public domain.
# Originally written by Sebastian Rahtz.  Comments to tex-live@tug.org.
# 
# A script to TL-install a package from CTAN.
# For a higher-level invocation, see ctan2tl.
# 
# Its default actions, given a "raw" directory copied from CTAN (the
# current directory on invocation), are
#  1. copy everything to texmf-dist/doc/<format>/<package>
#  2. run any .ins files
#  3. run any .mf files through mktextfm
#  4. move .sty/.cls etc files to texmf-dist/tex/<format>/<package>
#  5. move other files to appropriate places in the hierarchy.
#  
# All the patterns for what to move or run can be overridden per-package.

BEGIN {
  ($mydir = $0) =~ s,/[^/]*$,,;
  unshift (@INC, "$mydir/../libexec");
}

use Getopt::Long;
use File::Basename;
use Cwd;

# programs used; must all be on the path
$MV = "mv";
$CP = "cp -p";
$RM = "rm -vf";  # just to get feedback from GNU rm on removals
$INSTALL = "install -D -m 664";

$| = 1;
select ((select (STDERR), $| = 1)[0]);

$startdir = getcwd();  # where we start from (raw dir)
chdir "../tmp.cooked" || die "chdir(../tmp.cooked) failed: $!";
$TDS = getcwd();       # locate destination dir
chdir $startdir || die "chdir($startdir) failed: $!";  # back to raw

# 
# packages to treat entirely on their own, or not at all.
# the code here is evaluated by Perl, so special packages
# can have their own subroutine.
#
%special = (
 'Catalogue',	"&MAKECatalogue",
 'FAQ-en',	"&MAKEFAQen",
 'HA-prosper',	'&MAKEhaprosper',
 'IEEEtran',	"&MAKEIEEEtran",
 'LingTrees',	"die 'skipping, requires python'",
 'SIstyle',	'&MAKEflatten',
 'a4',		"die 'skipping, just a pointer to ntgclass'",
 'aastex',	"&MAKEflatten",
 'aeb_pro',	"die 'skipping, requires new acrobat + complicated'",
 'amscls',	"die 'skipping, ams situation confused'",
 'arabxetex',	'&MAKEflatten',
 'ae',		"&MAKEae",
 'AkkTeX',	"&MAKEflatten",
 'algorithmicx',"&MAKEnosymlinks",
 'allrunes',	"&MAKEflatten",
 'alphabib',	"die 'skipping, shell script, and no doc source?'",
 'ams',		"die 'skipping, update manually to preserve ams fonts'",
 'amsldoc-vn',	"&MAKEflatten",
 'analogclock',	"die 'skipping, requires system font installation",
 'antomega',	"&MAKEflatten",
 'antt',	"&MAKEcopy",
 #'antp',        "&MAKEflatten", # not sure about config.antp yet
 'apacite',	"&MAKEflatten",
 'arabi',	"&MAKEarabi",
 'arabtex',	"&MAKEarabtex",
 'archaic',	"&MAKEwilson",
 'arphic',	"&MAKEarphic",
 'arev',	"&MAKEcopy",
 'ascii',	"&MAKEflatten",
 'astron',	"die 'skipping, nonfree license'",
 'augie',	"&MAKEaugie",
 'aurical',	"&MAKEaurical",
 'aurora',	"die 'skipping, nocommercial license'",
 'bangtex',	"&MAKEflatten",
 'bardiag',	"&MAKEbardiag",
# bbm is split into bbm (fonts) and bbm-macros (macros)
# 'bbm',		"&MAKEbbm",
 'bclogo',	"&MAKEflatten",
 'beamer',	"&MAKEbeamer",
 'beamer-contrib',"&MAKEflatten",
 'beebe',	"die 'skipping, MAKEbeebe needs work, sorry'",
 'bengali',	'&MAKEflatten',
 'bengali-omega',	"die 'skipping, duplicates odev.sty et al.'",
 'bera',	"&MAKEunzipandflatten",
 'bgreek',	"&MAKEcopy",
 'biblatex',	"die 'skipping, still experimental'",
 'biblatex-dw',	"die 'skipping, depends on experimental biblatex'",
 'biblatex-mla',"die 'skipping, depends on experimental biblatex'",
 'bibtopicprefix', "&MAKEflatten",
 'bin-cjkutils',"&MAKEbin_cjkutils",
 'bitfield',	"die 'skipping, obsolete on CTAN'",
 'blanks',	"die 'skipping, unknown license (and c.1992)'",
 'blockdraw_mp',"&MAKEflatten",
 'bnf-plain',	"die 'skipping, unknown license (and c.1992)'",
 'bookhands',	"&MAKEwilson",
 'borceux',	"&MAKEborceux",
 'bridge',	"die 'skipping, latex 2.09'",
 'burmese',	"&MAKEflatten",
 'c90',		"&MAKEc90",
 'calendar',	"die 'skipping, nosell license'",
 'camel',	"die 'skipping, nosell license'",
 'cbfonts',	"&MAKEflatten",
 'cbcoptic',	"&MAKEcbcoptic",
 'cellular',	"die 'skipping, license noinfo, author deceased'",
 'cfr-lm',	"die 'skipping, experimental per author'",
 'changebar',	"&MAKEchangebar",
 #'chemarrow',   "&MAKEflatten", # check about Arrow.vfb
 'chemsym',	"die 'skipping, nonfree'",
 'cheq',	"die 'skipping, nosell license'",
 'china2e',	"die 'skipping, nosell license'",
 'circuit_macros', "die 'skipping, needs m4'",
 'cirth',	"die 'skipping, nosell license'",
 'cjhebrew',	"&MAKEflatten",
 'cjk',		"&MAKEcjk",
 'clock',	"&MAKEflatten",
 'cm-lgc',	'&MAKEcmlgc',
 'cm-super',	"&MAKEflatten",
 'cmastro',	"die 'skipping, noinfo license, author unknown'",
 'cmbright',	"&MAKEflatten",
 'cmcyr',	"&MAKEflatten",
 'colortab',	"die 'skipping, nosell license'",
 'comicsans',	"die 'skipping, Comic Sans is nonfree'",
 'compact',	"die 'skipping, nonfree license'",
 'concmath',	"&MAKEconcmath",
 'context',	"&MAKEcontext",
 'context-account',   "&MAKEcopy",
 'context-bnf',       "&MAKEcopy",
 'context-chromato',  "&MAKEcopy",
 'context-construction-plan', "&MAKEcopy",
 'context-degrade',   "&MAKEcopy",
 'context-french',    "&MAKEcopy",
 'context-games',     "&MAKEcopy",
 'context-gnuplot',   "&MAKEcopy",
 'context-letter',    "&MAKEcopy",
 'context-lettrine',  "&MAKEcopy",
 'context-lilypond',  "&MAKEcopy",
 'context-mathsets',  "&MAKEcopy",
 'context-taspresent',"&MAKEcopy",
 'context-typearea',  "&MAKEcopy",
 'context-vim',       "&MAKEcopy",
 'coptic',	"die 'skipping, it has been replaced by cbcoptic'",
 'corridx',	"die 'skipping, Pascal source'",
 'crosstex',	"die 'skipping for now, investigate self-locating?, sorry'",
 'csplain',	"die 'skipping, too hard to automate'",
 'csvtools',	"&MAKEflatten",
 'ctable',	"&MAKEflatten",
 'ctib',	"&MAKEflatten",
 'cweb',	"die 'skipping, programs'",
 'cyklop',      "&MAKEcopy",
 'deleq',	"die 'skipping, nosell license'",
 'deproc',	"die 'skipping, for latex 2.09'",
 'devanagr',	"&MAKEdevanagr",
 'diagnose',	"&MAKEflatten",
 'dictsym',	"&MAKEunzipandflatten",
 'disser',	"&MAKEdisser",
 'dmfonts',	"die 'skipping, needs work'",
 'dnp',		"&MAKEdnp",
 'dogma',	"die 'skipping, requires nonfree font'",
 'dot2tex',	"die 'skipping, only useful with supporting python setup'",
 'dps',		"die 'skipping, requires acrotex'",
 'dropping',	"die 'skipping, nosell license'",
 'dtk',		"&MAKEflatten",
 'dtxtut',	"&setup",  # straight copy
 'easy',	"&MAKEeasy",
 'ean13isbn',   "&MAKEcopy",
 'ebib',	"die 'skipping, as it is Emacs'",
 'ebong',	"&MAKEebong",
 'ecc',		"&MAKEflatten",
 'eco',		"&MAKEeco",
 'edmac',	"die 'skipping, needs work (unzip xx)'",
 'ednotes',	"&MAKEnosymlinks",
 'eiad',	"&MAKEflatten",
 'elhyphen',	"die 'incorporated in hyph-utf8'",
 'encxvlna',    "&MAKEcopy",
 'enpassant',	"die 'skipping, license unknown'",
 'epic',	"die 'skipping, license unknown and replaced by eepic'",
 'epigrafica',	"&MAKEflatten",
 'epiolmec',	"&MAKEflatten",
 'epix',	"die 'skipping, needs C++'",
 'eplain',	"&MAKEcopy",
 'epstopdf',	"die 'skipping, needs .pl vs. noext + man help, sorry'",
 'eqnarray',	"die 'skipping, nonfree'",
 'esindex',	"die 'skipping, use bezos instead'",
 'eskdx',	"&MAKEeskdx",
 'esvect',	"&MAKEflatten",
 'ethiop',	"&MAKEflatten",
 'euclide',	"&MAKEpst",
 'eulervm',	"&MAKEcopy",
 'eurosym',	"&MAKEflatten",
 #'euenc',	"&MAKEflatten",
 'expressgx',	"&MAKEexpressg",
 'fancyvrb',	"&MAKEfancyvrb",
 'faq-fr',	"die 'skipping, nonfree'",
 'fax',		"die 'skipping, nosell license'",
 'fc',		"&MAKEflatten",
 'featpost',	"&MAKEfeatpost",
 'feynmf',	"&MAKEfeynmf",
 'floatflt',	"die 'skipping, nosell license'",
 'foiltex',     "die 'skipping, nosell license'",
 'flowfram',	"&MAKEflatten",
 'fontinst',	"&MAKEfontinst",
 'footnpag',	"&MAKEfootnpag",
 'fourier',	"&MAKEflatten",
 'fouriernc',	"&MAKEflatten",
 'fp',		"&MAKEfp",
 'fpl',		"&MAKEflatten",
 'frcursive',	"&MAKEflatten",
 'futhark',	"die 'skipping, nonfree license'",
 'futurans',	"die 'skipping, requires nonfree font'",
 'galley',      "die 'skipping, will be included in xpackages later'",
 'garuda-c90',	"&MAKEgaruda_c90",
 'gene',	"die 'skipping, complicated, some have sources, sorry'",
 'genmisc',	"die 'too complicated, sorry'",
 'geomsty',	"die 'skipping, nonfree license'",
 'germbib',	"&MAKEgermbib",
 'gfsartemisia',"&MAKEflatten",
 'gfsbaskerville',"&MAKEflatten",
 'gfsbodoni',   "&MAKEflatten",
 'gfsdidot',    "&MAKEflatten",
 'gfscomplutum',"&MAKEflatten",
 'gfsneohellenic', "&MAKEflatten",
 'gfsporson',   "&MAKEflatten",
 'gfssolomos',  "&MAKEflatten",
 'glhyph',	"die 'merged into hyph-utf8'",
 'graphicxsp',	"die 'skipping, requires adobe distiller'",
 'grnumalt',	"die 'skipping, nonfree'",
 'grtimes',	"die 'skipping, requires nonfree monotype times'",
 'guitbeamer',	"die 'skipping, nonfree'",
 'hfbright',	"&MAKEflatten",
 'hfoldsty',	"&MAKEflatten",
 'hilowres',	"die 'skipping, nonfree'",
 'hyph-utf8',	"&MAKEcopy",
 'hyphen-german',"die 'skipping, part of hyph-utf8'",
 'ibycus-babel',"&MAKEibycusbabel",
 'ibygrk',	"&MAKEflatten",
 'ifacmtg',	"die 'skipping, nonfree license'",
 'indxcite',	"die 'skipping, too old, license suboptimal'",
 'induni-om',	"die 'skipping, for omega, use of pua?'",
 'invoice',	"&MAKEflatten",
 'ipa',		"die 'skipping, part of wsuipa'",
 'iwona',	"&MAKEcopy",
 'jadetex',	"&MAKEjadetex",
 'japanese',	"die 'skipping, requires ptex'",
 'jasthesis',	"die 'skipping, license is unknown'",
 'javadoc',	"die 'skipping, requires java and no source'",
 'jj_game',	"die 'skipping, requires acrotex'",
 'jsclasses',	"die 'skipping, requires nonfree ptex/platex'",
 'kerkis',	"&MAKEflatten",
 'kurier',	"&MAKEcopy",
 'kuvio',	"die 'skipping, nonfree license'",
 'l2a',		"die 'skipping, another old detex, requires compilation'",
 'latex-veryshortguide', "die 'skipping, nosell license'",
 'latexmp',	"&MAKEflatten",
 'lcircuit',	"die 'skipping, license unknown, too old to investigate'",
 'leawood',	"&MAKEflatten",
 'lettre',	"&MAKEflatten",
 'levy',	"die 'skipping, levy not ready, sorry'",
 'lexitex',	"die 'skipping, camel has replaced'",
 'lfb',		"&MAKElfb",
 'lh',		"&MAKEcopy",
 'libertine',	"&MAKEcopy",
 'libris',	"&MAKEcopy",
 'lifia-th',	"die 'skipping, '",
 'linearA',	"&MAKEflatten",
 'lineno',	"&MAKEnosymlinks",
 'literat',	"&MAKEliterat",
 'lithuanian',	"&MAKEflatten",
 'lm',		"&MAKEcopy",
 'lms',		"die 'skipping, nonfree license'",
 'lshort-bulgarian', 	'&MAKElshort',
 'lshort-chinese', 	'&MAKElshort',
 'lshort-english',	'&MAKElshort',
 'lshort-finnish', 	'&MAKElshort',
 'lshort-korean', 	'&MAKElshort',
 'lshort-portuguese', 	'&MAKElshort',
 'lshort-slovenian', 	'&MAKElshort',
 'lshort-turkish', 	'&MAKElshort',
 'lshort-vietnamese', 	'&MAKElshort',
 'ltt',		"&MAKEltt",
 'ltxbase',	"&MAKEbase",
 'ltxmisc',	"die 'skipping, too complicated, sorry'",
 'lxfonts',	"&MAKEcopy",
 'lucida',	"&MAKElucida",
 'makebarcode', "&MAKEcopy",
 'makecell',	"&MAKEnosymlinks",
 'makedtx',	"&MAKEflatten",
 'makor',	"&MAKEbase",
 'manjutex',	"die 'skipping, obsolete on CTAN'", #"&MAKEflatten",
 'manpage',	"die 'skipping, nonfree license'",
 'mathabx',	"&MAKEflatten",
 'marvosym',	"&MAKEnosymlinks",
 'mathdesign',	"&MAKEmathdesign",
 'mathexam',	"&MAKEflatten",
 'mathmode',	"&setup",
 'mathpazo',	"&MAKEmathpazo",
 'matlab',	"die 'skipping, requires nonfree matlab'",
 'mdwfonts',	"die 'skipping, too many tfm duplicates'",
 'meper',	"die 'skipping, requires Java, confused licensed'",
 'metalogo',	"&MAKEflatten",
 'metaobj',	"&MAKEflatten",
 'metauml',	"&MAKEmetauml",
 'mflogo',	"&MAKEmflogo",
 'mfpic',	"&MAKEflatten",
 'minionpro',	"die 'skipping, requires nonfree minion'",
 'misc',	"&MAKEmisc",
 'mkbangtex',	"die 'skipping, no copyright (and python)'",
 'mlbib',	"die 'skipping, bib file names are too generic'",
 'mnhyphn',	"&MAKEmnhyphn",
 'mnsymbol',	"&MAKEflatten",
 'montex',	"&MAKEflatten",
 'morehelp',	"die 'skipping, nonfree license'",
 'morse',	"die 'skipping, nosell license'",
 'movie15',	"&MAKEflatten",
 'mpattern',	"&MAKEmpattern",
 'mpdinbrief',	"die 'skipping, nosell license'",
 'multido',	"&MAKEpst",
 'mwrite',	"die 'skipping, nonfree license",
 'mx'	,	"die 'skipping, author does not recommend system install'",
 'mxd',		"&MAKEflatten",
 'mxedruli',	"&MAKEflatten",
 'nbaskerv',	"die 'skipping, requires nonfree font'",
 'ncctools',	"&MAKEflatten",
 'newsletr',    "&MAKEnewsletr",
 'newthm',	"die 'skipping, obsolete, no longer on ctan'",
 'niceframe',	"die 'skipping, nosell license'",
 'nicetext',	"&MAKEnosymlinks",
 'nohyph',	"die 'skipping, nohyph must be done by hand'",
 'norasi-c90',	"&MAKEnorasi_c90",
 'notes',	"&MAKEnotes",
 'numline',	"die 'skipping, obsolete'",
 'oca',		"die 'skipping, nosell license'",
 'occam',	"die 'skipping, too old and strange'",
 'ocherokee',	"&MAKEflatten",
 'ocr-a',	"die 'skipping, nosell license'",
 'oesch',	"die 'skipping, nosell license'",
 'ofs',		"&MAKEflatten",
 'ogonek',	"die 'skipping, nonfree license'",
 'omegajapanese',"&MAKEflatten",
 'osa',		"die 'skipping, relies on endfloat.cfg and non-unique filenames'",
 'ot2cyr',	"die 'skipping, nonfree font support",
 'otibet',	"&MAKEflatten",
 'oxford',	"die 'skipping, nosell license'",
 'pageno',	"die 'skipping, nosell license'",
 'pandora',	"&MAKEflatten",
 'paradigm',	"die 'skipping, too old, for BLUe'",
 'pb-diagram',	"&MAKEpbdiagram",
 'pclnfss',	"&MAKEpclnfss",
 'pdcmac',	"die 'skipping, needs work'",
 'pdf-forms-tutorial',	"die 'use pdf-forms-tutorial-de or -en'",
 'pdf-forms-tutorial-de',	"&MAKEpdf_forms_tutorial",
 'pdf-forms-tutorial-en',	"&MAKEpdf_forms_tutorial",
 'pdfmarginpar',"&MAKEflatten",
 'pdfrack',	"die 'skipping until someone asks for it'",
 'pdfx',	"&MAKEflatten",
 'pgf',		"&MAKEcopy",
 'pgfplots',	"&MAKEcopy",
 'phaistos',	"&MAKEflatten",
 'phonetic',	"&MAKEphonetic",
 'pict2e',	"&MAKEpict2e",
 'pictex',	"&MAKEpictex",
 'pigpen',	"&MAKEflatten",
 'pinlabel',	"&MAKEnosymlinks",
 'pl-qx',	"&MAKEplqx",
 'poster',	"die 'skipping, nonfree license'",
 'powerdot',	'&MAKEflatten',
 'prerex',	"die 'skipping, needs compilation'",
 'progkeys',	"die 'skipping, noinfo license, author unfindable'",
 'proofs',	"die 'skipping, nosell license'",
 'prosper',	'&MAKEflatten',
 'ps4pdf',	"die 'skipping, obsolete'",
 'psfig',	"die 'skipping, nosell license'",
 'psfragx',	"&MAKEflatten",
 'pslatex',	"&MAKEpslatex",
 'psnfss',	"&MAKEpsnfss",
 'psnfss-addons', "die 'skipping, ?'",
 'psnfssx',	"&MAKEflatten",
 'pst-2dplot',	"&MAKEpst",
 'pst-3d',	"&MAKEpst",
 'pst-3dplot',	"&MAKEpst",
 'pst-asr',	"&MAKEpst",
 'pst-bar',	"&MAKEpst",
 'pst-barcode',	"&MAKEpst",
 'pst-bezier',	"&MAKEpst",
 'pst-blur',	"&MAKEpst",
 'pst-bspline',	"&MAKEpst",
 'pst-circ',	"&MAKEpst",
 'pst-coil',	"&MAKEpst",
 'pst-cox',	"&MAKEflatten",
 'pst-dbicons',	"&MAKEpst",
 'pst-diffraction', "&MAKEpst",
 'pst-eps',	"&MAKEpst",
 'pst-eucl',	"&MAKEpst",
 'pst-fill',	"&MAKEpst",
 'pst-fr3d',	"&MAKEpst",
 'pst-fractal',	"&MAKEpst",
 'pst-fun',	"&MAKEpst",
 'pst-func',	"&MAKEpst",
 'pst-geo',	"&MAKEpstgeo",
 'pst-ghsb',	"&MAKEpst",
 'pst-gr3d',	"&MAKEpst",
 'pst-grad',	"&MAKEpst",
 'pst-infixplot',"&MAKEpst",
 'pst-jftree',	"&MAKEpst",
 'pst-jtree',	"&MAKEpst",
 'pst-labo',	"&MAKEpst",
 'pst-lens',	"&MAKEpst",
 'pst-light3d',	"&MAKEpst",
 'pst-math',	"&MAKEpst",
 'pst-optexp',	"&MAKEpst",
 'pst-ob3d',	"&MAKEpst",
 'pst-optic',	"&MAKEpst",
 'pst-osci',	"&MAKEpst",
 'pst-pad',	"&MAKEpst",
 'pst-pdgr',	"&MAKEpst",
 'pst-poly',	"&MAKEpst",
 'pst-qtree',	"&MAKEpst",
 'pst-sigsys',	"&MAKEpst",
 'pst-slpe',	"&MAKEpst",
 'pst-solides3d',"&MAKEpst",
 'pst-soroban',	"&MAKEpst",
 'pst-spectra',	"&MAKEpst",
 'pst-stru',	"&MAKEpst",
 'pst-support',	"&MAKEpst",
 'pst-text',	"&MAKEpst",
 'pst-tree',	"&MAKEpst",
 'pst-uml',	"&MAKEpst",
 'pst-vue3d',	"&MAKEpst",
 'pstricks',	"&MAKEpstricks",
 'pstricks-add',"&MAKEpst",
 'pxfonts',	"&MAKEflatten",
 'realcalc',	"die 'skipping, nosell license'",
 'references',	"die 'skipping, requires binary'",
 'refstyle',	"&MAKEcopy",
 'resume',	"die 'skipping, nosell license'",
 'revnum',	"die 'skipping, obsolete'",
 'revtex',	"&MAKEflatten",
 'rsfs',	"&MAKEflatten",
 'sae',		"die 'skipping, nosell'",
 'seminar',	"&MAKEseminar",
 'shipunov',	"&MAKEcopy",
 'shortlst',	"die 'skipping, nosell'",
 'showexpl',	"&MAKEflatten",
 'siam',	"&MAKEsiam",
 'skak',	"&MAKEflatten",
 'slidenotes',	"die 'skipping, nonfree'",
 'songs',	"die 'skipping, requires binary'",
 'splitindex',	"die 'skipping, requires binary'",
 'staves',	"&MAKEflatten",
 'stellenbosch',"&MAKEcopy",
 'stex',	"&MAKEflatten",
 'streetex',	"die 'skipping, nonfree'",
 'symbolindex',	"die 'skipping, requires binary'",
 't2',		"&MAKEt2",
 'tamethebeast',"&MAKEtamethebeast",
 'tamil-omega',	"die 'skipping, supports nonfree ISM fonts'", #"&MAKEflatten",
 'taylor',	"die 'skipping, nonfree'",
 'template',    "die 'already part of xpackages'",
 'tengwarscript',"&MAKEflatten",
 'tex-gyre',	"&MAKEcopy",
 'tex-refs',	"die 'skipping, needs work'",
 'texdraw',	"&MAKEtexdraw",
 'texpower',	"&MAKEnosymlinks",
 'texsis',	"&MAKEtexsis",
 'thaifonts',	"die 'skipping, see TODO'",
 'thaifonts-scalable',	"die 'Thai, fontforge format only, skip'",
 'thailatex',	"die 'Thai, requires preprocessor (?), skip'",
 'thsmc',	"die 'skipping, requires nonfree font'",
 'ticket',	"&MAKEflatten",
 'tipa',	"&MAKEtipa",
 'titlepage-uni-dortmund', "die 'needs graphics (too short names) in .'",
 'tksbrief',	"die 'skipping, LaTeX 2.09'",
 'tkz-tab',	"&MAKEflatten",
 'tpcmfont',	"die 'skipping, ?'",
 'translator',	"&MAKEflatten",
 'turnstile',	"&MAKEflatten",
 'tpx',		"die 'skipping, nosource, Windows'",
 'txfonts',	"&MAKEflatten",
 'ucs',		"&MAKEucs",
 'uebungsblatt',"&MAKEflatten",
 'ukrhyph',	"&MAKEukrhyph",
 'umrand',	"die 'skipping, nonfree'",
 'unitsdef',	"&MAKEflatten",
 'velthuis',	"&MAKEcopy",
 'venturisadf',	"&MAKEcopy",
 'vhistory',	"&MAKEflatten",
 'vicentino',	"die 'skipping, nonfree license'",
 'voss-de',	"&MAKEvossde",
 'vrsion',	"die 'skipping, nonfree license'",
 'wadalab',     "&MAKEwadalab",
 'wasy2',	"&MAKEflatten",
 'wntamil',	"die 'skipping, nonfree license'",
 'wordcount',	"&MAKEwordcount",
 'wp-conv',	"die 'skipping, nonfree license'",
 'xbase',       "die 'renamed to xpackages'",
 'xecjk',	"&MAKEcopy",
 'xecolour',	"&MAKEflatten",
 'xecyr',	"&MAKEcopy",
 'xepersian',	"&MAKEflatten",
 'xetex-pstricks',"&MAKEcopy",
 'xfrac',	"die 'skipping, still experimental'", #&MAKEflatten",
 'xinitials',   "die 'will be in xpackages when ready (Morten says)'",
 'xkeyval',	"&MAKExkeyval",
 'xmltex',	"&MAKExmltex",
 'xor',         "die 'will be in xpackages when ready (Morten says)'",
 'xparse',      "die 'already in xpackages'",
 'xtheorem',    "die 'will be in xpackages when ready (Morten says)'",
 'xymtex',	"&MAKExymtex",
 'xypic',	"&MAKExypic",
 'yi4latex',	"die 'skipping, nosell license'",
 'yplan',	"&MAKEnosymlinks",
 'zefonts',	"&MAKEflatten",
 'zwgetfdate',  "&MAKEcopy",
);


%prehook = (
 'cm-super'		=> '&PREHOOK_cm_super',
 'ibygrk'		=> '&PREHOOK_ibygrk',
 'vhistory'		=> '&PREHOOK_vhistory',
 'wsuipa'		=> '&PREHOOK_wsuipa',
);

%specialpostaction = (
 'bibleref'             => '&POSTlatex2html',
 'context-games'        => '&POSTcontext_games',
 'context-lilypond'     => '&POSTcontext_lilypond',
 'coordsys'		=> '&POSTcoordsys',
 'datetime'             => '&POSTlatex2html',
 'doipubmed'            => '&POSTlatex2html',
 'elsarticle'		=> '&POSTelsarticle',
 'fpl'			=> '&POSTfpl',
 'ibygrk'		=> '&POSTibygrk',
 'impatient'		=> '&POSTimpatient',
 'interactiveworkbook'	=> '&POSTinteractiveworkbook',
 'knuth'		=> '&POSTknuth',
 'koma-script'          => '&POSTkoma',
 'latex2man'		=> '&POSTlatex2man',
 'libertine'		=> '&POSTlibertine',
 'lithuanian'		=> '&POSTlithuanian',
 'pgf'			=> '&POSTpgf',
 'pst-cox'		=> '&POSTpstcox',
 'xecjk'		=> '&POSTxecjk',
 'xecyr'		=> '&POSTxecyr',
 'xetex-pstricks'	=> '&POSTxetex_pstricks',
 'xstring'              => '&POSTxstring',
);


$standardsource='\.fdd|\.dtx|\.ins|\.c$|Makefile|configure.*|install-sh|\.drv';
%specialsource= (
 'FAQ-en',		'NULL',
 'ae',			'\.mtx|\.etx|\.tex|clean|go|install|makepl',
 'amsldoc-vn',		'NULL',
 'apl',			".*",    # just get everything, seems simplest
 'arabxetex',		'NULL',  # keep dtx with others, why not
 'bbold',		"$standardsource|fonttabl.sty",
 'blacklettert1',	'\.dtx|\.ins|\.pl|Makefile',
 'carlisle',		'\.dtx|\.ins|ltxtable\.tex',
 'epsf',		'NULL',
 'epslatex-fr',		'NULL',
 'eskdx',		'NULL',  # leave makefiles
 'feynmf',		'feynmf\.pl' . $standardsource,
 'mff',			'\.mfj|\.bat|\.diz',
 'fpl',			'Add|\.sfd|\.pe|\.ps' . $standardsource,
 'hyphenex',		".*",
 'impatient',		'NULL',	# doc package
 'intro-scientific',	'NULL',	# doc package
 'latex2e-help-texinfo','NULL',	# doc package
 'latex2man',		'NULL',	# leave Makefile
 'mpman-ru',		'NULL',	# doc package
 'ot2cyr',		'\.afm|\.etx|' . $standardsource,
 'pdfx',		'rvdtx\.sty|' . $standardsource,
 'patch',		'\.doc',
 'pgfplots',		'NULL',	# keep manual.install.tex in doc/
 'rcs',			'rcs.el|src|' . $standardsource,
 'xlop',		'manual.sty|' . $standardsource,
);

%specialfoundry = (
 'fc',		'jknappen',
 'mfpic',	'metafont',
);
$standardfoundry='public';


%specialdest = (
 'MemoirChapStyles',	'texmf-doc',
 'Type1fonts',		'texmf-doc',
 'a2ping',		'texmf',
 'amsldoc-it',		'texmf-doc',
 'amsldoc-vn',		'texmf-doc',
 'amsthdoc-it',		'texmf-doc',
 'beamer-tut-pt',	'texmf-doc',
 'bin-cjkutils',	'texmf',
 'catalogue',		'texmf-doc',
 'comprehensive',	'texmf-doc',
 'cursolatex',		'texmf-doc',
 'dtxtut',		'texmf-doc',
 'elhyphen',		'texmf',
 'epslatex-fr',		'texmf-doc',
 'es-tex-faq',		'texmf-doc',
 'free-math-font-survey', 'texmf-doc',
 'hyphenex',		'texmf-dist',
 'knuth',		'texmf-doc',
 'l2picfaq',		'texmf-doc',
 'l2tabu-english',	'texmf-doc',
 'lshort-bulgarian',	'texmf-doc',
 'lshort-english',	'texmf-doc',
 'lshort-finnish',	'texmf-doc',
 'lshort-portuguese',	'texmf-doc',
 'lshort-turkish',	'texmf-doc',
 'lshort-vietnamese',	'texmf-doc',
 'lshort-korean',	'texmf-doc',
 'makingtexwork',	'texmf-doc',
 'mathmode',		'texmf-doc',
 'mnhyphn',		'texmf',
 'ntheorem-vn',		'texmf-doc',
 'tamethebeast',	'texmf-doc',
 'tds',			'texmf-doc',
 'tex-refs',		'texmf-doc',
 'visualfaq',		'texmf-doc',
 'voss-de',		'texmf-doc',
 'xypic-tut-pt',	'texmf-doc',
 'wp-conv',		'texmf-doc',
 'xetexref',		'texmf-doc',
);
$standarddest = "texmf-dist";

# 
%specialsourcefmt = (
 'antomega',	'omega',
 'apl',		'fonts',
 'arabxetex',	'xelatex',
 'archaic',	'fonts',
 'arev',	'fonts',
 'arrayjob',	'generic',
 'bidi',	'xelatex',
 'blacklettert1','fonts',
 'blockdraw_mp','metapost',
 'cb',		'fonts',
 'cirth',	'fonts',
 'cirth',	'generic',
 'cjhebrew',	'fonts',
 'cmpica',	'fonts',
 'cryst',	'fonts',
 'dozenal',	'fonts',
 'eplain',	'eplain',
 'epsf',	'generic',
 'eurosym',	'fonts',
 'expressg',	'metapost',
 'fc',		'fonts',
 'feyn',	'fonts',
 'fge',		'fonts',
 'fltpoint',	'generic',
 'fourier',	'fonts',
 'fouriernc',	'fonts',
 'fpl',		'fonts',
 'frcursive',	'fonts',
 'genmisc',	'generic',
 'germbib',	'bibtex',
 'gost',	'bibtex',
 'greenpoint',	'fonts',
 'hfoldsty',	'fonts',
 'hyphenex',	'generic',
 'jadetex',	'jadetex',
 'kixfont',	'fonts',
 'latexmp',	'metapost',
 'leawood',	'fonts',
 'lfb',		'fonts',
 'latexmp',	'metapost',
 'mathdots',	'generic',
 'mkjobtexmf',	'generic',
 'mnhyphn',	'generic',
 'mfpic',	'generic',
 'multido',	'generic',
 'ofs',		'generic',
 'ot2cyr',	'fonts',
 'patch',	'generic',
 'pdcmac',	'plain',
 'philokalia',	'xelatex',
 'pictex',	'generic',
 'pstricks',	'generic',
 'ruhyphen',	'generic',
 'splines',	'metapost',
 't2',		'generic',
 'trajan',	'fonts',
 'universa',	'fonts',
 'variations',	'generic',
 'velthuis',	'fonts',
 'wasy2',	'fonts',
 'xltxtra',	'xelatex',
);
$standardsourcefmt='latex';


%specialfmt = (
 'abbr',	'generic',
 'abstyles',	'generic',
 'antomega',	'omega',
 'arabxetex',	'xelatex',
 'arrayjob',	'generic',
 'barr',	'generic',
 'bghyphen',	'generic',
 'bidi',	'xelatex',
 'cirth',	'generic',
 'dehyph-exptl','generic',
 'dratex',	'generic',
 'edmac',	'generic',
 'eijkhout',	'generic',
 'eplain',	'eplain',
 'epsf',	'generic',
 'esint-type1',	'plain',
 'fenixpar',	'generic',
 'fltpoint',	'generic',
 'fontch',	'plain',
 'genmisc',	'generic',
 'hyplain',	'plain',
 'ibygrk',	'generic',
 'ifxetex',	'generic',
 'jadetex',	'jadetex',
 'mathabx',	'generic',
 'mathdots',	'generic',
 'metatex',	'plain',
 'mfpic',	'generic',
 'midnight',	'generic',
 'mkpattern',	'plain',
 'ocherokee',	'lambda',
 'ofs',		'generic',
 'passivetex',	'xmltex',
 'pdcmac',	'plain',
 'pdf-trans',	'generic',
 'philokalia',	'xelatex',
 'pictex',	'generic',
 'plnfss',	'plain',
 'pstricks',	'generic',
 'pst-cox',	'generic',
 'rsfs',	'plain',
 'ruhyphen',	'generic',
 'shapepar',	'generic',
 'texsis',	'texsis',
 'tugboat-plain','plain',
 'variations',	'generic',
 'vaucanson-g',	'generic',
 'vertex',	'plain',
 'wasy2',	'plain',
 'xetex-def',	'xelatex',
 'xetexfontinfo','xetex',
 'xltxtra',	'xelatex',
 'xmlplay',	'xmltex',
 'xstring',	'generic',
 'xunicode',	'xelatex',
);
$standardfmt='latex';


# packages which need special .tex/.sty files installed
$standardtex='\.(cfg|sty|clo|ldf|cls|def|fd|cmap|4ht)$';
%specialtex= (
 'FAQ-en',	'NULL',
 'abbr',	'\.tex',
 'abstyles',	'apreambl.tex',	# not a4c.sty
 'ae',		'\.fd$|\.sty', 
 'apa',		'\.apa|\.cls',	# not endfloat.cfg
 'apacite',	'\.apc|' . $standardtex,
 'arabtex',	'\.tex|' . $standardtex,
 'babelbib',	'\.bdf|\.sty',
 'bangtex',	'bangfont\.tex|' . $standardtex,
 'bardiag',	'\.bar|\.sty|\.cfg',
 'barr',	'diagxy.tex',
 'base',	'idx.tex|lablst.tex|latexbug.tex|lablst.tex|docstrip.tex|nfssfont.tex|sample2e.tex|small2e.tex|testpage.tex|ltxcheck.tex|\.cfg|\.fd$|\.cls|\.clo|\.ltx|\.sty|\.def|^\.',
 'bbold',	'bbold.sty|\.fd',	# no fonttabl.sty
 'bclogo',	'bc-.*\.(tex|pdf|eps)|\.pst|\.pgf|' . $standardtex,
 'bghyphen',	'\.tex',
 'blockdraw_mp','NULL',		    	# skip .sty's
 'breqn',	'\.sty|\.sym',
 'calxxxx',	'cal.*\.tex',
 'captcont',	'\.sty|[^c]\.cfg',	# omit ltxdoc.cfg, would be system-wide
 'carlisle',	'\.sty|\.ltx',
 'chemstyle',	'\.jdf|' . $standardtex,
 'cirth',	'num\.tex',
 'cjw',	'\.tex|' . $standardtex,
 'clock',	'\.sty|clock\.tex',
 'cmap',	'\.cmap|' . $standardtex,
 'codepage',	'\.sty|\.tex',
 'contour',	'\.cfg|\.sty|\.cnt',
 'ctib',	'\.sty|\.clo|\.ldf|\.cls|\.def|\.fd$|ctib\.tex',
 'custbib',	'\.mbs|\.tex',
 'custom-bib',	'\.mbs|\.tex',
 'cyrillic',	'\.tex|\.sty|\.fd$|\.def',
 'dehyph-exptl','de.*\.tex|\.pat',
 'dialogl',	'\.sty|listouti\.tex',
 'din1505',     'NULL', # no tex files, only natbib.cfg, would be system-wide
 'disser',	'\.rtx|' . $standardtex,
 'dlfltxb',	'\.sty', # no sample.cfg
 'ean',		'ean[0-9]*\.tex',
 'easy',	'easy.*\.sty',		# no mydoc.sty
 'ecv',		'\.sty|\.cls|\.ldf',	# no docstrip.cfg, else system-wide
 'edmac',	'edmac.tex|edstanza.tex|\.sty',
 'eijkhout',	'\.tex',
 'epsf',	'epsf.(tex|sty)',
 'epslatex-fr',	'NULL',
 'esint-type1',	'esint.tex',
 'europecv',	'EuropeFlag|europasslogo|\.cls|\.def',
 'fancytooltips','fancytipmark\..*|' . $standardtex,
 'fltpoint',	'\.sty|\.tex',
 'fontch',	'\.tex',
 'footnpag',	'footnpag\.sty',
 'fragments',	'\.tex|' . $standardtex,
 'frankenstein','\.(sto|stq)|' . $standardtex,
 'genmisc',	'\.sty|\.tex',
 'geometry',	'\.sty|\.clo|\.ldf|\.cls|\.def|\.fd$', # not cfg
 'ginpenc',	'\.gie|\.sty',
 'harvmac',	'mac\.tex',
 'hc',		'\.hld|' . $standardtex,
 'hfoldsty',	'\.sty|\.fd|\.cpa',
 'hyper',	'\.sty|\.hyp',
 'hyplain',	'(hyrules|hy.*plain|hylang)\..*',
 'ibygrk',	'iby4extr.tex|ibycus4.tex|ibycusps.tex|pssetiby.tex|setiby4.tex|tlgsqq.tex|version4.tex|' . $standardtex,
 'insbox',	'insbox.tex',
 'interactiveworkbook',	'NULL', # done in POSTinteractiveworkbook
 'iso10303',	'a.*tex|b.*tex|e.*tex|stp.*tex|\.sty|\.4ht',
 'isodate',	'\.idf|\.sty',
 'isodoc',	'iso.*\.sty',  # not mystyle.sty, etc.
 'jadetex',	'\.ltx|\.def|\.tex|\.ini|\.sty|\.fd',
 'karnaugh',	'kvmacros.tex',
 'kastrup',     'binhex.tex|' . $standardtex,
 'keystroke',	'keystroke_.*|\.sty',
 'kuvio',	'\.tex|\.sty',
 'latex-course','NULL',  # keep doc together
 'lettre',	'\.ins|\.cls',
 'magyar',	'NULL',  # do not install in runtime, conflicts with babel
 'manjutex',	'\.sty|\.clo|\.ldf|\.cls|\.def|\.fd$|manju.tex',
 'mathdots',	'mathdots\.tex|' . $standardtex,
 'metatex',	'metatex.tex',
 'mff',		'\.sty|mf[^f].*\.tex',
 'mfpic',	'mfpic.tex|mfpic.sty|mfppatch.tex',
 'midnight',	'\.tex',
 'mathabx',	'mathabx\.(dcl|tex)|' . $standardtex,
 'mathdots',	'\.mld|' . $standardtex,
 'misc',	'\.sty|\.ltx|\.cls',
 'mkpattern',	'mkpatter.tex',
 'mpman-ru',	'NULL',		# doc package
 'msg',		"-msg\.tex" . $standardtex,
 'nag',		'\.nag|' . $standardtex,
 'nddiss',	'\.sty|\.clo|\.ldf|\.cls|\.def|\.fd$',
 'notes',	'[^s]\.(eps|pdf|png)|' . $standardtex,  # not notes.pdf
 'ntheorem',	'\.sty|\.std',
 'ofs',		'^ofs\.tex|ofsdef\.tex|ofs-.*\.tex|\.sty|a.*\.tex|.*fn\.tex',
 'patch',	'\.tex',
 'pdf-trans',	'pdf-trans.tex',
 'pdfcprot',	'\.cpa|\.sty',
 'pdfscreen',	'overlay.*pdf|but.*pdf|left.*pdf|right\.pdf|pdfscreen.sty',
 'pdfslide',	'\.jpg|\.sty|\.clo|\.cfg|meta.*\.pdf',
 'pdfx',	'\.xmp$|glyph.*tex|pdfx\.sty',
 'petri-nets',	'pnets\.tex|pntext\.tex|\.sty|pndraw\.tex|pnversion\.tex|\.sty|pndraw\.tex',
 'pictex',	'\.sty|\.tex',
 'pigpen',	'pigpen\.tex|' . $standardtex,
 'plgraph',	'\.tex',
 'plnfss',	'\.tex|\.pfd',
 'powerdot',	'\.ps|' . $standardtex,
 'ppchtex',	'm.*tex|m.*sty',
 'prosper',	'\.ps|\.eps|\.sty|\.cls',
 'pstricks',	'pst-*\.tex',
 'pst-bspline',	'pst-bspline\.(tex|sty)',
 'pst-cox',	'pst-cox(coor|eterp)\.tex',
 'pst-geo',	'pst-map.*\.tex|pst-map.*\.sty',
 'pst-infixplot', 'infix-RPN\.tex|pst-infixplot\.tex',
 'pst-text',	'pst-(char|text)\.(tex|sty)',
 'qobitree',	'qobitree.tex',
 'r_und_s',	'\.tex|\.sty',
 'realcalc',	'realcalc.tex',
 'resumemac',	'resumemac.tex',
 'revtex',	'\.sty|\.cls|\.rtx',
 'rlepsf',	'rlepsf.tex',
 'rsfs',	'scrload\.tex|' . $standardtex,
 'seminar',	'\.bug|\.bg2|\.cls|\.sty|2up.tex',
 'shapepar',	'\.sty',  # not def
 'showexpl',	'\.sty|\.clo|\.ldf|\.cls|\.def|\.fd$',  # not cfg
 'splitindex',	'splitindex\.tex|' . $standardtex,
 'spotcolor',	'spotcolor.*\.tex|' . $standardtex,
 'startex',	'\.tex',
 'subfig',	'\.sty|[^c]\.cfg',  # omit ltxdoc.cfg, would be system-wide
 'subfigure',	'\.sty|[^c]\.cfg',  # omit ltxdoc.cfg, would be system-wide
 'syntax',	'syntax\.tex',
 'taylor',	'diagrams.tex',
 'tex-ewd',	'dotnot.tex',
 'texsis',	'\.txs|TXS.*tex|texsis.tex',
 'ticket',	'\.tdf|' . $standardtex,
 'tkz-doc',	'\.cls', # no example.sty
 'tools',	'\.cfg|\.sty|\.clo|\.cls|\.def|\.fd$|.?\.tex|^\.tex$',
 'translator',	'\.dict|translator-language-mappings.tex|' . $standardtex,
 'tugboat-plain','\.cmn|' . $standardtex,
 'universa',	'\.fd|uni\.sty', # not unidoc.sty
 'variations',	'^variations\.tex|' . $standardtex,  # not docvariations.tex
 'varisize',	'\.tex',
 'vaucanson-g',	'\.(def|tex)|' . $standardtex,
 'vertex',	'vertex\.tex|' . $standardtex,
 'vhistory',	'\.sty', # not hyperref.cfg
 'wasy2',	'wasyfont\.tex',
 'wordcount',	'\.tex',
 'xepersian',	'xepersian-mathsdigitspec\.tex|' . $standardtex,
 'xetexfontinfo','\.tex',
 'xlop',	'xlop\.(tex|sty)', # no manual.sty
 'xstring',	'xstring\.tex|' . $standardtex,
 'zefonts',	'\.sty|\.fd',
);


%specialdocfmt = (
 'abbr',	'generic',
 'abstyles',	'bibtex',
 'accfonts',	'fonts',
 'amsldoc-it',	'italian',
 'amsldoc-vn',	'vietnamese',
 'amsthdoc-it',	'italian',
 'antomega',	'omega',
 'arabxetex',	'xelatex',
 'archaic',	'fonts',
 'arev',	'fonts',
 'arrayjob',	'generic',
 'astro',	'fonts',
 'aurical',	'fonts',
 'automata',	'metapost',
 'ascii',	'fonts',
 'barr',	'generic',
 'bbm',		'fonts',
 'beamer-tut-pt','portuguese',
 'bera',	'fonts',
 'bghyphen',	'generic',
 'bibhtml',	'bibtex',
 'bidi',	'xelatex',
 'blacklettert1','fonts',
 'cbfonts',	'fonts',
 'chicago-annote','bibtex',
 'cirth',	'fonts',
 'cjhebrew',	'fonts',
 'cm-super',	'fonts',
 'cmarrows',	'metapost',
 'cursolatex',	'portuguese',
 'dehyph-exptl','generic',
 'devanagr',	'fonts',
 'dictsym',	'fonts',
 'dingbat',	'fonts',
 'dinat',	'bibtex',
 'doublestroke','fonts',
 'dozenal',	'fonts',
 'dratex',	'generic',
 'economic',	'bibtex',
 'edmac',	'generic',
 'eiad',	'fonts',
 'elhyphen',	'generic',
 'elsevier-bib','bibtex',
 'elvish',	'fonts',
 'encxvlna',    'generic',
 'eplain',	'eplain',
 'epsf',	'generic',
 'epslatex-fr',	'french',
 'es-tex-faq',	'spanish',
 'eurosym',	'fonts',
 'expressg',	'metapost',
 'exteps',	'metapost',
 'fc',		'fonts',
 'featpost',	'metapost',
 'fenixpar',	'generic',
 'feyn',	'fonts',
 'fge',		'fonts',
 'fltpoint',	'generic',
 'fontch',	'plain',
 'fourier',	'fonts',
 'fouriernc',	'fonts',
 'fpl',		'fonts',
 'frcursive',	'fonts',
 'genmisc',	'generic',
 'gfsdidot',	'fonts',
 'gfsneohellenic','fonts',
 'germbib',	'bibtex',
 'gost',	'bibtex',
 'greepoint',	'fonts',
 'hfoldsty',	'fonts',
 'hieroglf',	'fonts',
 'hyplain',	'plain',
 'ibygrk',	'fonts',
 'ifxetex',	'generic',
 'ijqc',	'bibtex',
 'impatient-fr','french',
 'iopart-num',	'bibtex',
 'jadetex',	'jadetex',
 'kixfont',	'fonts',
 'l2picfaq',	'german',
 'l2tabu-it',	'italian',
 'l2tabu-spanish',	'spanish',
 'latex2man',	'support',
 'latexmk',	'support',
 'latexmp',	'metapost',
 'leawood',	'fonts',
 'lfb',		'fonts',
 'lnotes',	'chinese',
 'lshort-portuguese',	'portuguese',
 'lshort-spanish',	'spanish',
 'marvosym',	'fonts',
 'mathabx',	'fonts',
 'mathdots',	'generic',
 'metatex',	'plain',
 'metauml',	'metapost',
 'mfpic',	'generic',
 'midnight',	'generic',
 'mkpattern',	'plain',
 'mkjobtexmf',	'generic',
 'mpattern',	'metapost',
 'mpman-ru',	'russian',
 'mxedruli',	'fonts',
 'ntheorem-vn',	'vietnamese',
 'ofs',		'generic',
 'ot2cyr',	'fonts',
 'pacioli',	'fonts',
 'pdcmac',	'plain',
 'pdf-trans',	'generic',
 'pdfcrop',	'support',
 'phaistos',	'fonts',
 'philokalia',	'xelatex',
 'phonetic',	'fonts',
 'pictex',	'generic',
 'plnfss',	'plain',
 'psfrag-italian',	'italian',
 'pst-cox',		'generic',
 'pxfonts',	'fonts',
 'rsfs',	'fonts',
 'shapepar',	'generic',
 'skak',	'latex',
 'skaknew',	'fonts',
 'splines',	'metapost',
 'staves',	'fonts',
 'tamil-omega',	'omega',
 'templates-fenn',	'german',
 'templates-sommer',	'german',
 'texcount',		'support',
 'texloganalyser',	'support',
 'texsis',	'texsis',
 'textpath',	'metapost',
 'trajan',	'fonts',
 'tugboat-plain','plain',
 'txfonts',	'fonts',
 'universa',	'fonts',
 'vancouver',	'bibtex',
 'variations',	'generic',
 'vaucanson-g',	'generic',
 'velthuis',	'generic',
 'vertex',	'plain',
 'voss-de',	'german',
 'wasy2',	'fonts',
 'wsuipa',	'generic',
 'xetexfontinfo','xetex',
 'xltxtra',	'xelatex',
 'xq',		'fonts',
 'xstring',	'generic',
 'xunicode',	'xelatex',
 'xypic-tut-pt','portuguese',
);
$standarddocfmt='latex';


# special cases of which .ins files to run; used to remove
# normal choices, and get the most general.
%specialins = (
 'aastex',	'NULL',  # everything is pregenerated
 'base',	'NULL',
 'bbold',	'bbold.dtx',
 'blacklettert1','NULL',  # don't try to do fontinst
 'bosisio',	'.*\.dtx',
 'carlisle',	'\.ins|ltxtable.tex',
 'ccfonts',	'ccfonts.ins',
 'dotseqn',	'dotseqn.dtx',
 'feynmf',	'feynmf.ins',
 'floatrow',	'floatrow.ins',
 'geometry',	'geometry.dtx',
 'lettre',	'NULL',
 'localloc',	'localloc.dtx',
 'makecell',	'makecell.dtx',
 'namespc',	'namespc.dtx',
 'paper',	'install',
 'parrun',	'parrun.ins',
 'stmaryrd',	'stmaryrd.dtx',
 'tablists',	'tablists.dtx',
 'thesis',	'install.01|install.ndx',
 'turnstile',	'turnstile-en.ins', # skip pt
);
$standardins='\.ins';

%specialinsrunner = (
 'bullcntr',	'latex',  # requires interaction
 'ctable',	'latex',  # requires interaction
 'geometry',	'tex',
 'polski',	'latex',  # requires interaction
 'psfragx',	'latex',  # requires interaction
);
$standardinsrunner="latex -interaction=nonstopmode";

%specialmakeindex= (
 'mpman-ru'	=> 'NULL',	# doc
 'tkz-tab',	=> 'NULL',	# doc
);
$standardmakeindex='\.ist';


# needs special TeX program to run the doc.
%specialTEX = (
 'arabtex',	'tex',
 'barr',	'latex',
 'beamer',	'pdflatex',
 'bytefield',	'pdflatex',
 'esint-type1',	'pdftex',
 'euro-ce',	'tex',
 'floatrow',	'latex',
 'genealogy',	'tex',
 'insbox',	'tex',
 'iso10303',	'pdflatex',
 'mfpic',	'tex',
 'mpattern',	'true',	# requires running mpp, but it's not executable and
                     # anyway it's just a test file.  ignore it.
 'ofs',		'csplain',
 'pdfscreen',	'pdflatex',
 'pdfslide',	'pdflatex',
 'pl-qx',	'platex',
 'subfig',	'pdflatex',
 'texsis',	'tex',
 'typespec',	'tex',
 'wasy2',	'tex',
 'webeq',	'pdflatex',
);


# packages which need special documentation files run
%oldspecialdvi= (
 'barcode2',	'eandoc.tex',
 'bardiag',	'bar.*tex',
 'base',	'.*info.tex|.*guide.*tex|.*news.*tex',
 'blacklettert1','\.dtx',
 'calendar',	'demo.*\.tex|calguide\.tex',
 'carlisle',	'\.dtx|ltxtable.tex',
 'chess',	'\.ltx',
 'circ',	'\.dtx',
 'cirth',	'cirth\.tex',
 'codepage',	'codepage\.drv',
 'crop',	'crop.dtx',
 'ctib',	'ctib4tex.tex',
 'custbib',	'\.dtx',
 'custom-bib',	'\.dtx',
 'dialogl',	'dia-driv\.tex|codialog\.tex',
 'directory',	'\.tex',
 'eepic',	'eepic.tex',
 'ethiop',	'ethiodoc\.tex',
 'euro',	'euro.dtx',
 'fancynum',	'examples.tex',
 'fp',		'example.tex',
 'frcursive',	'.*\.dtx',
 'gatech-thesis', 'gatech-thesis.tex|jules-verne.tex',
 'german',	'germdoc\.tex',
 'insbox',	'demo.tex',
 'isostds',	'isosty.tex',
 'jurabib',	'jbtest.tex',
 'karnaugh',	'kvdoc\.tex',
 'manjutex',	'manjutex.tex',
 'mapcodes',	'mapcode\.drv',
 'mff',		'mffdoc.tex',
 'minutes',	'Sample.tex',
 'ofs',		'ofsdoc-e\.tex|ofsdoc\.tex|ofs-slt\.tex',
 'ogonek',	'togonek\.ltx|\.tex',
 'othello',	'othello\.tex',
 'paper',	'paper.drv',
 'parrun',	'parrun.dtx',
 'petri-nets',	'pndoc\.tex',
 'prosper',	'pros.*tex',
 'pst-3dplot',	'.*-e\.tex|doc-.*.tex|pst-3dplot-doc',
 'pst-bar',	'.*-e\.tex|doc-.*.tex|pst-bar-doc.tex',
 'pst-blur',	'.*-e\.tex|doc-.*.tex|pst-blur-doc.tex',
 'pst-circ',	'.*-e\.tex|doc-.*.tex|pst-circ-doc.tex',
 'pst-fr3d',	'doc-.*.tex|pst-fr3d-doc',
 'pst-func',	'.*-e\.tex|doc-.*.tex|pst-func-doc',
 'pst-geo',	'.*-e\.tex|doc-.*.tex|pst-geo-doc.tex',
 'pst-ghsb',	'.*-e\.tex|doc-.*.tex|pst-ghsb-doc.tex',
 'pst-gr3d',	'.*-e\.tex|doc-.*.tex|pst-gr3d-doc.tex',
 'pst-jftree',	'.*-e\.tex|doc-.*.tex|pst-jftree-doc.tex',
 'pst-lens',	'.*-e\.tex|doc-.*.tex|pst-lens-doc.tex',
 'pst-light3d',	'.*-e\.tex|doc-.*.tex|pst-light3d-doc',
 'pst-math',	'.*-e\.tex|doc-.*.tex|pst-math-doc.tex',
 'pst-optic',	'.*-e\.tex|doc-.*.tex|pst-optic-doc.tex',
 'pst-osci',	'.*-e\.tex|doc-.*.tex|pst-osci-doc.tex',
 'pst-poly',	'.*-e\.tex|doc-.*.tex|pst-poly-doc.tex',
 'pst-slpe',	'.*-e\.tex|doc-.*.tex|pst-slpe-doc.tex',
 'pst-uml',	'.*-e\.tex|doc[-_].*.tex|pst-uml-doc.tex',
 'pst-vue3d',	'.*-e\.tex|doc-.*.tex|pst-vue3d-doc.tex',
 'qobitree',	'example\.tex',
 'rcsinfo',	'rcsinfo2html.tex',
 'refman',	'layout.tex|\.dtx',
 'soul',	'soul.dtx',
 'syntax',	'syntax[a-z].*\.tex',
 'texsis',	'Manual.tex',
 'textmerg',	'tmexamp[[0-9]\.tex',
 'thesis',	'\.drv',
 'timing',	'timing.tex',
 'tipa',	'tipaman\.tex|tipatug\.tex',
 'tools',	'\.dtx',
 'umrand',	'umrand\.tex',
 'ulsy',	'\.dtx',
 'velthuis',	'manual.tex',
 'wasy2',	'wasydoc\.tex',
 'xymtex',	'xymtx200.tex',
 'zefonts',	'zefonts.tex',
);

#$standarddvi='\.tex|\.ltx'; 
%specialdvi = ();
$standarddvi = 'NULL';  # rely on authors/CTAN making pdf's.


# packages which need special MetaPost files
$standardmp = '\.mp$';
%specialmp = (
 'automata',	'automata.mp',	# skip example.mp
 'bpolynomial',	'bpolynomial.mp', # skip examples.mp
 'dviincl',	'fix.*mp',	# skip test-bop.mp
 'epsincl',	'eps.*mp',	# skip testincl.mp
 'feynmp',	'feynmp.mp',
 'latexmp',	'latexmp.mp',
 'mpattern',	'mpattern.mp',	# don't install test.mp
 'mpman-ru',	'NULL',		# doc package
 'polski',	'NULL',		# no sample-*.mp
 'semioneside', 'NULL',		# don't install figure*.mp
 'textpath',    'textpath.mp',	# don't install textpathfigs.mp
);

# packages which need special BibTeX styles installed
%specialcsf= ();
$standardcsf='\.csf';

$standardbst='\.bst';
%specialbst= (
 'umthesis',	'NULL',
);

# packages which need special BibTeX data files (not) installed.
$standardbib = 'NULL';  # almost all bib files are for the doc
#$standardbib='\.bib$'; # $ so we don't find README.bibtex in IEEEtran
%specialbib= (
 'acmconf',	'NULL',
 'aguplus',	'NULL',
 'amsrefs',	'ams.*bib', # not jr.bib
 'apa',		'NULL',
 'arsclassica',	'NULL',
 'babelbib',	'NULL',
 'classicthesis','NULL',
 'dehyph-exptl','NULL',
 'dlfltxb',	'NULL', # don't install doc.
 'doipubmed',	'NULL',
 'economic',	'NULL',
 'eplain',	'NULL',
 'epslatex-fr',	'NULL',
 'gcite',	'NULL',  # bib is for doc
 'germbib',	'NULL',  # no second xampl.bib, test bibs, etc.
 'harvard',	'NULL',
 'ijqc',	'NULL',
 'imtekda',	'NULL',
 'iopart-num',	'NULL',
 'jurarsp',	'NULL',
 'mslapa',	'NULL',
 'munich',	'NULL',
 'pgfplots',	'NULL',  # no manual.bib
 'pgf-soroban',	'NULL',
 'pst-labo',	'NULL',
 'sageep',	'NULL',
 'si',		'NULL',
 'ucthesis',	'NULL',
 'umthesis',	'NULL',
 'uwthesis',	'NULL',
);

# packages which have Metafont sources to run.
$standardmf='[0-9]\.mf';
%specialmf= (
 'astro',	'astrosym.mf',
 'backgammon',	'bg\.mf',
 'cherokee',	'cherokee.mf',
 'circ',	'csybimos\.mf|csycirc\.mf|csydiod\.mf|csyrest\.mf|csywidko\.mf|csysym\.mf|optic\.mf',
 'cirth',	'cir.*\.mf',
 'clock',	'clock.mf',
 'cmcyr',	'NULL', # already made
 'cmpica',	'cmpic.*\.mf',
 'dancers',	'dancers\.mf',
 'dice',	'dice3d\.mf',
 'dingbat',	'\.mf',
 'eiad-ltx',	'NULL', # Fr10.mf and Fbf10.mf don't compile (need cmbase)
 'engwar',	'engwar\.mf',
 'euro-ce',	'eu.*\.mf|ce.*\.mf',
 'feynmf',	'feynmf\.mf',
 'greenpoint',	'greenpoint\.mf',
 'hands',	'hands\.mf',
 'ibygrk',	'NULL',
 'ifsym',	'\.mf|\.gen',
 'logic',	'milstd\.mf',
 'mfpic',	'grafbase\.mf',
 'morse',	'morse10.mf|morse.def',
 'ogham',	'ogham\.mf',
 'skak',	'skak.*[0-9].*\.mf',
 'tengwar',	'tengwar\.mf',
 'umrand',	'umrand[ab]\.mf',
 'xq',		'xq(normal|large)\.mf',
);

# additional mf files to be installed but not run.
%specialmfinstall = (
 'astro'	=> 'astrosym.(cal|cmn|mac|uni|xtr)',
 'cmcyr'	=> '\.mf',	
 'ibygrk'	=> 'ibycus4\.map',	# tex|mf source
);

# packages which have dvips header files
$standardpro='\.pro$';
%specialpro= (
 'cm-super',	'config.cm-super|cm-super.GS',
 'dvipsconfig',	'.*',  # addpsctrl should be in bin, but ...
 'esint-type1',	'config.esint',
 'initials',	'config.*',
 'pspicture',	'pspicture.ps',
 'zefonts',	'slantcm.cfg',
);

$standardmap='\.(map|tec)$';
%specialmap = (
 'kerntest'	=> 'NULL',	# skip test map file
 'ibygrk'	=> 'iby\.map',	# not ibycus4.map, which is tex|mf
);
$standardmapdest = "fonts/map/dvips";
%specialmapdest = (
  'arabxetex' => "fonts/misc/xetex/fontmapping",
  'xepersian' => "fonts/misc/xetex/fontmapping",
);

$standardvmap='\.ali$';
%specialvmap = ();

$standardenc='\.enc';
%specialenc = ();

$standardafm='\.afm';
%specialafm = ();

$standardpfm='\.pfm';
%specialpfm = ();

$standardpfb = '\.pfb|\.inf$';
%specialpfb = (
 'dviincl'	=> 'NULL',	# skip 0dviincl.inf, is a README
 'pigpen'	=> 'pigpen.pfa',
);

$standardttf='\.ttf';
%specialttf= ();

$standardotf='\.otf';
%specialotf= ();

$standardovf='\.ovf';
%specialovf= ();

$standardofm='\.ofm';
%specialofm= ();

$standardovp='\.ovp';
%specialovp= ( 'psfragx',	'NULL',	);

$standardotp='\.otp';
%specialotp= ();

$standardocp='\.ocp';
%specialocp= ();

# packages which have xmltex files
%specialxmt= (
  # 'passivetex',	'\.xmt|fotex.sty',
);
$standardxmt='\.xmt';

# executable scripts to install under texmf*/.../scripts.
# if they should end up in $bindir too,
# add to Build/source/texk/texlive/Makefile.in (and ChangeLog).
%specialscripts = (
 'a2ping'		=> '\.pl$',
 'dviasm'		=> '\.py$',
 'epstopdf'		=> 'epstopdf',
 'latex2man'		=> 'latex2man$',
 'latexmk'		=> '\.pl$',
 'mkjobtexmf'		=> '\.pl$',
 'pdfcrop'		=> '\.pl$',
 'perltex'		=> '\.pl$',
 'pst2pdf'		=> '\.pl$',
 'texcount'		=> '\.pl$',
 'texloganalyser'	=> 'texloganalyser',
 'vpe'			=> '\.pl$',
);

# too painful to install in multiple trees just now.
## packages which have man pages to install.  Assume section 1 for now.
#%specialmans = (
# 'mkjobtexmf'	=> 'mkjobtexmf.man',
#);


# which suffixes to remove after building.  Checked after runins and at
# the end, in the doc directory.
$standardclean = '\.head|\.tmp|\.dvi|\.log|\.out|\.aux|\.toc|\.lof|\.lot'
                . '|\.bbl|\.blg|\.idx|\.ind|\.ilg|\.glo|\.gls|\.loa';
%specialclean  = (
 'a2ping'	=> 'README',  		# not worth whole separate doc subdir
 'accfonts'	=> $standardclean . '|dvips.enc',	# dup enc
 'achemso'	=> "$standardclean|jawltxdoc.sty",	# temp file for doc
 'acmconf'	=> "$standardclean|flushend.sty",	# dup with sttools
 'bbm-macros'	=> $standardclean . '|^bbm$',		# symlink
 'chemscheme'	=> "$standardclean|jawltxdoc.sty",	# temp file for doc
 'chemstyle'	=> "$standardclean|jawltxdoc.sty",	# temp file for doc
 'elvish'	=> '\.pk3',		# no pk files
 'gentle'	=> 'gentle.ps.gz',	# pdf is enough
 'hyph-utf8'	=> 'README',
 'jadetex'	=> $standardclean  # these sty files are in passivetex
		   . '|(dummyels|mlnames|ucharacters|unicode)\.sty',
 'latex2e-help-texinfo' => '\.info',	# must move .info by hand, sigh
 'lshort-spanish'=>'lshort-a5book.pdf',	# a4 is enough
 'mathexam'	=> 'sample.tex~',
 'notes2bib'	=> "$standardclean|jawltxdoc.sty",	# temp file for doc
 'rsc'		=> $standardclean . '|jawltxdoc.sty',	# temp file for doc
 'wsuipa'	=> $standardclean . '|.*pk$',		# premade pk files
);

# if a hash entry is matched here, README.TEXLIVE is created mentioning
# that the files were removed.  These are checked after runins.
%moreclean = (
 'AkkTeX'	=> 'still to do, sorry',
 'bbcard'	=> 'bbcard.tpm',
 'chessboard'	=> 'chessboard.pdf',
 'chessfss'	=> 'chessfonts_gallery.pdf|chessfss.pdf',
 'dateiliste'   => 'dateiliste.README*',	# already in dist
 'dcpic'	=> '.*\.pdf',			# no source
 'din1505'      => 'leitbild3.pdf|normpatsoft.pdf', # no source
 'ecclesiastic' => 'ecclesiastic-sample.pdf',   # no source
 'ednotes'	=> 'perpage.sty',		# copy from bigfoot
 'epslatex-fr'	=> 'R?Danger.eps',
 'flacards'	=> 'flacards.pdf',
 'gfsartemisia'	=> 'A*Specimen.pdf',		# nonfree
 'gfsbaskerville'=>'B*Specimen.pdf',		# nonfree
 'gfsbodoni'	=> 'B*Specimen.pdf',		# nonfree
 'gfscomplutum'	=> 'C*Specimen.pdf',		# nonfree
 'gfsdidot'	=> '[DO]*Specimen.pdf',		# nonfree
 'gfsneohellenic'=>'N*Specimen.pdf', 		# nonfree
 'guitbeamer'	=> 'guitbeamer-de.pdf',
 'jknapltx'	=> 'ubbold.fd', # clashes bbold's Ubbold.fd; sauter bbold fails
 'linguex'	=> 'cgloss4e.sty',		# symlink
 'piechartmp'	=> 'piechartmp.pdf',
 'pst-3dplot'	=> 'tb72voss3d.pdf',		# no source
 'ptptex'       => 'overcite.sty|cite.sty|wrapfig.sty', # duplicated
 'stubs'	=> 'stubs.pdf',
 'susy'		=> 'susy.pdf',			# no source
 'xelibertine'	=> 'xelibertineDoku.pdf',	# no source
 'xskak'	=> 'xskak.pdf',			# no source
);

# 
# Read from config file to make local adjustments to above.
readconfig();

# command line options
$opt_debug = 1;  # verbosity is good
exit 2 unless Getopt::Long::GetOptions (
  "ctan-dir=s",
  "debug!",
  "help",
  "test|n!",
  "version",
);

for (@ARGV) { 
  $packagedir = $_;
  if (! -d $packagedir) {
    warn "$0: $packagedir not a directory, skipping.\n";
    next;
  }

  &set_dir_defaults ($opt_ctan_dir);

  @x = split(/\//,$packagedir);
  $package = pop (@x);
  $DEST_TREE = $specialdest{$package} || $standarddest;

  $TOPDEST = "$TDS/$package";
  $DEST = "$TOPDEST/$DEST_TREE";

  $insrunner = $specialinsrunner{$package} || $standardinsrunner;

  $whichformat = $specialfmt{$package} || $standardfmt;
  $whichdocformat = $specialdocfmt{$package}
                || ($DEST_TREE eq "texmf-doc" ? "english" : $standarddocfmt);

  print "pkg=$package (fmt=$whichformat docfmt=$whichdocformat) -> $DEST\n";
  if (exists $special{$package}) {
    if ($special{$package} =~ s/^die //) {
      # avoid repeating the die message.
      die "$package failed: $special{$package}\n";
    } else {
      print "special: $special{$package}...\n";
      eval $special{$package};
      die "$package failed in $special{$package}: $@" if $@;
    }
  } else {
    &donormal;
  }

  &xchdir ($startdir);
}



# Override our default guess of "latex" if we can intuit from the CTAN
# path, which ctan2tl kindly passes us.
# 
sub set_dir_defaults
{
  my ($ctan_dir) = @_;
  my $guess = "";
  
  if ($ctan_dir =~ m!/graphics/metapost/!) {
    $standarddocfmt = $standardsourcefmt = "metapost";
    $guess = "$standarddocfmt for docfmt/srcfmt";

  } elsif ($ctan_dir =~ m!/macros/xetex/latex/!) {
    $standarddocfmt = $standardsourcefmt = $standardfmt = "xelatex";
    $guess = "$standarddocfmt for fmt/docfmt/srcfmt";

  } elsif ($ctan_dir =~ m!/macros/plain/!) {
    $standarddocfmt = $standardsourcefmt = $standardfmt = "plain";
    $guess = "$standarddocfmt for fmt/docfmt/srcfmt";

  } elsif ($ctan_dir =~ m!/macros/generic/!) {
    $standarddocfmt = $standardsourcefmt = $standardfmt = "generic";
    $guess = "$standarddocfmt for fmt/docfmt/srcfmt";

  } elsif ($ctan_dir =~ m!/(info|help)/!) {
    $standarddest = "texmf-doc";
    $guess = "$standarddest for dest";
  }

  print "\t guessed $guess (based on $ctan_dir)\n" if $guess;
}



sub xchdir
{
  my ($dir) = @_;
  chdir ($dir) || die "chdir($dir) failed: $!";
  chomp (my $pwd = `pwd`);
  print "\t CHDIR $dir (now $pwd)\n";
}

sub xmkdir
{
  my (@dirs) = @_;
  &SYSTEM ("mkdir -p @dirs");
}



# some packages need to intervene at the beginning.
sub run_prehook
{
  my $prehook = $prehook{$package};
  if ($prehook) {
    print "\t PREHOOK: running $prehook\n";
    eval $prehook;
    die "$package failed in $prehook: $@" if $@;
  }
}



# some packages (e.g., vntex) are tl-ready (or near enough).
# 
sub MAKEcopy
{
  my $dest = $_[0] || $DEST;
  my $pdir = $packagedir;

  chomp (my $abspackagedir = `cd $pdir && pwd`);
  print "\t COPY from $abspackagedir to $dest\n";

  &xchdir ($pdir);
  &SYSTEM ("mkdir -p $dest");

  # do the copy.
  &SYSTEM ("$CP -r * $dest");

  # for arev et al., remove symlinks.
  &SYSTEM ("find $dest -type l | xargs --no-run-if-empty rm");

  # ditto assorted other for lm (files are in doc subtree already).  
  -r "$dest/MANIFEST.txt"
  && &SYSTEM ("cd $dest && $RM GUST*.txt MANIFEST.txt README.eng");

  # move README for encxvlna and others
  -r "$dest/README" 
  && &SYSTEM ("$MV $dest/README $dest/doc/$whichdocformat/$package/");

  # move CHANGELOG for stellenbosch.
  -r "$dest/CHANGELOG" 
  && &SYSTEM ("$MV $dest/CHANGELOG $dest/doc/$whichdocformat/$package/");

  # move README.eulervm for eulervm.
  -r "$dest/README.eulervm" 
  && &SYSTEM ("$MV $dest/README.eulervm $dest/doc/$whichdocformat/$package/");

  # for tex-gyre, rename context subdir.  (shouldn't be needed next time.)
  if (-d "$dest/fonts/map/pdftex/context") {
    print "$package: rename context map dir.\n";
    &SYSTEM ("$MV $dest/fonts/map/pdftex/context $dest/fonts/map/pdftex/tex-gyre");
  }

  # for eplain, move info file (with warning).
  if (-r "$dest/doc/$package/doc/eplain.info") {
    warn "WARNING: moving eplain.info to /tmp\n";
    warn " -- YOU must put it in texmf/doc/info!\n";
    &SYSTEM ("$MV $dest/doc/$package/doc/eplain.info /tmp");
  }

  # for velthuis, remove bin dir (with warning).
  if ($package eq "velthuis" && -d "$dest/bin") {
    warn "WARNING: removing bin/ dir in $dest\n";
    warn " -- YOU must deal with it!\n";
    &SYSTEM ("rm -rf $dest/bin");
  }

  # preserve the lm sources.
  if ($package eq "lm") {
    my $srcdir = " $dest/source/$whichdocformat/$package/";
    &SYSTEM ("mkdir -p $srcdir");
    &SYSTEM ("$MV $dest/lm*mt1.zip $srcdir/");
  }

  &xchdir ($DEST);
  &killfiles ($specialclean{$package} || $standardclean);
  &killfiles ($moreclean{$package}, "more") if $moreclean{$package};

  my $postaction = $specialpostaction{$package};
  eval ($postaction) if $postaction;
}


# 
# For most packages, this is the first thing called.  It copies
# everything from $packagedir to the doc directory of the package.
# 
sub setup
{
  my ($ctl) = @_;

  print "doing setup($ctl)...\n";
  # precreate the directories we might need
  $DOCDIR = "$DEST/doc/$whichdocformat/$package";
  &SYSTEM ("mkdir -p $DOCDIR");
  &SYSTEM ("mkdir -p $DEST/tex/$whichformat/$package");
  &SYSTEM ("mkdir -p $DEST/source/$whichdocformat/$package");
  
  # remove README symlinks.
  &SYSTEM ("test -h $packagedir/README && $RM $packagedir/README");

  return if $ctl eq "nocopytodoc";
  # copy everything to the doc directory
  # and work in there.
  &SYSTEM ("$CP -r $packagedir/* $DEST/doc/$whichdocformat/$package");
}

sub donormal
{
   my ($ctrl) = @_;

   print "doing donormal($ctrl)...\n";

   # check for tds-ready packages
   if ( -e "$startdir/$packagedir/TDS_READY" ) {
     print "using TDS_READY tree\n";
     &SYSTEM ("$RM $startdir/$packagedir/TDS_READY");
     &SYSTEM ("mkdir -p $DEST");
     &xchdir ($DEST);
     &SYSTEM ("$CP -r $startdir/$packagedir/* .");
   } else {
     #use the normal procedure

     &setup unless $ctrl eq "nosetup";
     &xchdir ("$DEST/doc/$whichdocformat/$package");
     &run_prehook ($package);

     &buildfilelist;

     # run the .ins files (if any) supplied
     $inspatt = $specialins{$package} || $standardins;
     $Foundry = $specialfoundry{$package} || $standardfoundry;
     &runins($inspatt);

     &killfiles ($moreclean{$package}, "more") if $moreclean{$package};

     # rebuild the list of files in the directory
     &buildfilelist;

     if ($Foundry eq "metafont") {
       &dosimplemf;
     } else {
       &domf;
     }

     &dodvi;
     # rebuild again, as we have .dvi files now
     &buildfilelist;
     &dobst;
     &domp;
     &dobib;
     &doxmt;
     &dotex;
     &runfonts;
     &domakeindex;
     &doomega;
     &dosource;
     &dotype1;
     &doscripts;

     # remove empty directories that we never used.
     &SYSTEM ("rmdir $DEST/*/$whichformat/$package 2>/dev/null");

     &killfiles ($specialclean{$package} || $standardclean);
   }

   # do the postaction in any case (we need to adapt some tds zips)
   my $postaction = $specialpostaction{$package};
   eval ($postaction) if $postaction;
}

sub runins
{
  my ($thispatt) = @_;
  print "\t RUNINS $thispatt\n";
  for (grep (/$thispatt/, @filenames)) { 
    # do not infinite loop on docstrip "output directory", e.g., fltpoint.
    &runjob ("yes | sed 5q | $insrunner $_");
  }

  &killfiles ($specialclean{$package} || $standardclean);
}

sub install
{
  my ($destdir,$thispatt) = @_;
  return unless $thispatt;

  my @files = grep (/$thispatt/, @filenames);  # ugh, @filenames global
  return unless @files;  # avoid lots of useless output

  print "\t INSTALL $thispatt to $destdir\n";
  &xmkdir ($destdir) unless -d $destdir;

  for my $file (@files) {
    next if $file eq "dtx-style.sty";  # this should never be in runtime
    &SYSTEM ("$MV $file $destdir");
  }
}

# build the documentation files
sub dodvi
{
  # packages which are doc themselves rarely rebuild cleanly,
  # and aren't worth it.
  return if $DEST_TREE eq "texmf-doc";
  $dvipatt = $specialdvi{$package} || $standarddvi;
  unless ( "$dvipatt" eq "$standarddvi" ) {
    warn "$0: Building doc: shouldn't need do to that. Please check.";
    &rundvi ($dvipatt);
  }
}

# move the runtime files
sub dotex
{
  my $texpatt = $specialtex{$package} || $standardtex;
  &install("$DEST/tex/$whichformat/$package", $texpatt);
}

# move the makeindex runtime files
sub domakeindex
{
   $makeindexpatt = $specialmakeindex{$package};
   if ($makeindexpatt eq "") { $makeindexpatt=$standardmakeindex; }
   &install("$DEST/makeindex/$package",$makeindexpatt);
}

# BibTeX style files:
sub dobst
{
   $csfpatt = $specialcsf{$package};
   if ($csfpatt eq "") { $csfpatt=$standardcsf; }
   &install("$DEST/bibtex/csf/$package",$csfpatt);
   $bstpatt = $specialbst{$package};
   if ($bstpatt eq "") { $bstpatt=$standardbst; }
   &install("$DEST/bibtex/bst/$package",$bstpatt);
}

# simple MF files, e.g., if specialfoundry eq "metafont".
sub dosimplemf {
   my $mfpatt = $specialmf{$package} || $standardmf;
   &install ("$DEST/metafont/$package", $mfpatt);
}

# MetaPost files:
sub domp {
   $mppatt = $specialmp{$package} || $standardmp;
   &install("$DEST/metapost/$package", $mppatt);
}

# BibTeX bibliography files:
sub dobib
{
  return if ! $specialbib{$package} && $DEST_TREE eq "texmf-doc";
  $bibpatt = $specialbib{$package} || $standardbib;
  &install("$DEST/bibtex/bib/$package", $bibpatt);
}

# source files:
sub dosource
{
  $sourceformat = $specialsourcefmt{$package} || $standardsourcefmt;
  # default to using specialdocfmt, as we do in setup?
  $sourcepatt = $specialsource{$package} || $standardsource;
  &install("$DEST/source/$sourceformat/$package", $sourcepatt);
}


sub doomega
{
   $ovfpatt = $specialovf{$package};
   if ($ovfpatt eq "") { $ovfpatt=$standardovf; }
   &install("$DEST/fonts/ovf/public/$package",$ovfpatt);
   $ofmpatt = $specialofm{$package};
   if ($ofmpatt eq "") { $ofmpatt=$standardofm; }
   &install("$DEST/fonts/ofm/public/$package",$ofmpatt);
   $ovppatt = $specialovp{$package};
   if ($ovppatt eq "") { $ovppatt=$standardovp; }
   &install("$DEST/fonts/ovp/public/$package",$ovppatt);
   $otppatt = $specialotp{$package};
   if ($otppatt eq "") { $otppatt=$standardotp; }
   &install("$DEST/omega/otp/$package",$otppatt);
   $ocppatt = $specialocp{$package};
   if ($ocppatt eq "") { $ocppatt=$standardocp; }
   &install("$DEST/omega/ocp/$package",$ocppatt);
}

# the dvips and font mapping files:
sub dotype1{
   my $encpatt = $specialenc{$package} || $standardenc;
   &install("$DEST/fonts/enc/dvips/$package", $encpatt);

   my $mappatt = $specialmap{$package} || $standardmap;
   my $mapdest = $specialmapdest{$package} || $standardmapdest;
   &install ("$DEST/$mapdest/$package", $mappatt);

   my $vmappatt = $specialvmap{$package} || $standardvmap;
   &install("$DEST/fonts/map/vtex/$package", $vmappatt);

   my $propatt = $specialpro{$package} || $standardpro;
   &install("$DEST/dvips/$package", $propatt);

   my $pfbpatt = $specialpfb{$package} || $standardpfb;
   &install("$DEST/fonts/type1/public/$package", $pfbpatt);

   my $afmpatt = $specialafm{$package} || $standardafm;
   &install("$DEST/fonts/afm/public/$package", $afmpatt);

   my $pfmpatt = $specialpfm{$package} || $standardpfm;
   &install("$DEST/fonts/type1/public/$package", $pfmpatt);

   my $otfpatt = $specialotf{$package} || $standardotf;
   &install("$DEST/fonts/opentype/public/$package", $otfpatt);

   my $ttfpatt = $specialttf{$package} || $standardttf;
   &install("$DEST/fonts/truetype/public/$package", $ttfpatt);
}

# scripts.  Build/source/tex/texlive/Makefile.in installs symlinks
# in the bin directories where appropriate.  Just for simplicitly, let's
# try keeping DEST as texmf when symlinks get installed; otherwise
# (if it gets called as a subprogram) texmf-dist is ok.
# 
sub doscripts
{
   my $scriptpatt = $specialscripts{$package};
   return unless $scriptpatt;
   &install ("$DEST/scripts/$package", $scriptpatt);
   &SYSTEM ("chmod a+x $DEST/scripts/$package/*");
}

# xmltex files
sub doxmt{
   my $xmtpatt = $specialxmt{$package} || $standardxmt;
   &install ("$DEST/tex/xmltex/$package", $xmtpatt);
}

# build the font files
sub domf {
  $mfpatt = $specialmf{$package} || $standardmf;
  &runmf ($mfpatt);

  my $mfdir = "$DEST/fonts/source/$Foundry/$package";
  #
  # don't use $mfpatt since that's only the tfm-able mf files; just
  # install all the .mf files.
  &install ($mfdir, '\.mf$');
  if (exists $specialmfinstall{$package}) {
    &install ($mfdir, $specialmfinstall{$package});
  }
}

sub rundvi {
   local($thispatt) = @_;
   $TEX = $specialTEX{$package};
   if ($TEX eq "") { 
       if ($whichformat eq 'latex') { $TEX="pdflatex"; }
       else { $TEX=$whichformat; }
   }
   if ($TEX eq "generic") { $TEX="pdflatex"; }
   print "\t MAKEDVI $thispatt using $TEX (@filenames)\n";
   for (grep(/$thispatt/,@filenames)) { 
     ($FileBase,$Filepath,$Filesuffix) = fileparse($_,"\.[A-z]*");
     print "found $FileBase\n";
      if (-r "$FileBase.drv" && $Filesuffix eq ".dtx" ) 
          { $Filesuffix=".drv" ; }
      print "\t DOC: run $TEX on $FileBase$Filesuffix\n";
      open(TMP,">$FileBase.aux");
      close(TMP);
      &runjob("TEXMFLOCAL=. $TEX '\\nonstopmode\\input $FileBase$Filesuffix'");
      &runjob("bibtex $FileBase");
      &runjob("TEXMFLOCAL=. $TEX '\\nonstopmode\\input $FileBase$Filesuffix'");
      if ($Filesuffix eq ".drv" || $Filesuffix eq ".dtx" ) {
        &runjob("$CP $startdir/gind.ist .");
        &runjob("makeindex -s gind.ist $FileBase");
        unlink "gind.ist";
      } else {
        &runjob("makeindex $FileBase");
      }
      &runjob("$TEX '\\nonstopmode\\input $FileBase$Filesuffix'");
   }
   print "\t MAKEDVI done\n";
}

# run a &SYSTEM job, and append stderr output to log file
#
sub runjob
{
  my ($job) = @_;
  
  if ($opt_test) {
    print "WOULDRUNJOB $job\n";
  } else {
    my $Jobid = "_$$";
    &SYSTEM ("$job >$Jobid.log 2>&1");
    local *TMP;
    open (TMP, "$Jobid.log") || die "open($Jobid.log) failed: $!";
    my @output = (<TMP>);
    if ($job =~ /^mktextfm/) {
      print $output[$#output-1];  # successfully generated line
    } else {
      print `cat $Jobid.log`;
    }
    close (TMP);
    unlink ("$Jobid.log");
  }
}

# remove all files matching something in $KILLPATT.
# also remove .ps files for which we have a .pdf.
#
# if MORE is true, remove additional files matching something in
# $moreclean and create a README.TEXLIVE which lists the removed files.
#
# This only deletes files in the current directory.  Should fix.
# 
sub killfiles
{
   my ($killpatt,$more) = @_;

   local *DOT;
   opendir (DOT, ".") || die "opendir(.) failed: $! in " . `pwd`;

   my @delfiles = ();
   for (grep (/$killpatt/, readdir (DOT))) { 
     print "\t Removing $_\n";
     if (unlink ($_)) {
       push (@delfiles, $_);
     } else {
       warn "unlink($_) failed: $!";
     }
   }
   
   for (grep (/\.ps$/, @filenames)) { 
     (my $pdf = $_) =~ s/ps$/pdf/;
     next unless grep (/$pdf/, @filenames);
     print "\t Remove ps $_ (since have $pdf)\n";
     unlink ($_) && push (@delfiles, $_);
   }  

   if ($more && @delfiles) {
     # create/update README.TEXLIVE.
     open (RTL, ">README.TEXLIVE") || warn "open(>README.TEXLIVE) failed: $!";
     print RTL <<'EOF';
The following files have been removed in the TeX Live installation of
the current package, typically due to duplication, lack of space, or
missing source code.  You can find these files on CTAN.  If questions or
concerns, email tex-live@tug.org.

EOF
     foreach my $f (@delfiles) {
       print RTL "\t$f\n";
     }
     close RTL;
   }
   &buildfilelist();
}

# rebuild list of input files, e.g., after flattening
sub buildfilelist
{
  print "doing buildfilelist()...\n";
  opendir (DIR ,'.') || die "opendir(.) failed: $!";
  @filenames = grep (!/^\.\.?$/, readdir (DIR));
  closedir (DIR);
}

sub runmf
{
  my ($mfpatt) = @_;
  print "\t doing runmf for $package ($mfpatt)\n";
  for my $file (grep (/$mfpatt/, @filenames)) { 
    ($FileBase,$Filepath,$Filesuffix) = fileparse ($file, "\.[A-z]*");
    if (! -e "$FileBase.tfm") {
      print "\t\t Make TFM from $file\n";
      &runjob ("mktextfm --destdir=`pwd` $FileBase.tfm");
      &SYSTEM ("$RM *pk");  # not worth the space
    }
  }
}

sub runfonts {
   $Foundry = $specialfoundry{$package} || $standardfoundry;
   for (grep(/.vf/,@filenames)) { 
      $needdir=1;
      print "\t\t install VF $_\n";
($FileBase,$Filepath,$Filesuffix) = fileparse($_,"\.[A-z]*");
      if ($needdir) { 
         &SYSTEM("mkdir -p $DEST/fonts/vf/$Foundry/$package");
         $needdir=0;
         }
         &SYSTEM("$MV $FileBase.vf $DEST/fonts/vf/$Foundry/$package  ");
    }
   for (grep(/.tfm/,@filenames)) { 
      $needdir=1;
      print "\t\t INSTALL tfm $_\n";
($FileBase,$Filepath,$Filesuffix) = fileparse($_,"\.[A-z]*");
      if ($needdir) { 
         &SYSTEM("mkdir -p $DEST/fonts/tfm/$Foundry/$package");
         $needdir=0;
         }
         &SYSTEM("$MV $FileBase.tfm $DEST/fonts/tfm/$Foundry/$package  ");
    }
}


sub SYSTEM
{
 local ($job) = @_;
 if ($opt_test) {
   print "\t SYSTEM $job\n";
 } else {
   print "\t SYSTEM $job\n" if $opt_debug;
   system($job);
 }
}


sub MAKEflatten
{
  &setup;
  &xchdir ("$DEST/doc/$whichdocformat/$package");

  print "\t SPECIAL flatten $package\n";

  # cm-super et al. need to intervene at this point.
  &run_prehook ($package);

  # I don't think flattened packages ever want symlinks.
  &SYSTEM ("find . -type l | xargs --no-run-if-empty $RM");

  # mv foo/README to README.foo.  README.txt is for psfragx.
  # Obviously should be generalized to non-README files.
  my $findcmd = "find . -mindepth 2 '(' -name README -o -name README.txt ')'";
  &SYSTEM ("for r in `$findcmd`; do"
           . ' mv $r $r.`basename \`dirname $r\``; done');

  # move all non-directories to top level, but don't accidentally
  # overwrite one with another.
  &SYSTEM ("yes n | find . -mindepth 2 -not -type d -exec mv -i '\{\}' . \\;");

  # remove newly empty directories.
  &SYSTEM ("find -depth -type d -print | xargs rmdir 2>/dev/null");

  # do the usual.
  &buildfilelist;
  &donormal ("nosetup");
}

sub MAKEunzipandflatten {
 &setup;
 chdir("$DEST/doc/$whichdocformat/$package");
 &SYSTEM("unzip -q -o -a $package.zip; rm $package.zip");
 &SYSTEM("$MV */*/*/*/* .; rmdir */*/*/*");
 &SYSTEM("$MV */*/*/* .; rmdir */*/*");
 &SYSTEM("$MV */*/*/* .; rmdir */*/*");
 &SYSTEM("$MV */*/* .; rmdir */*");
 &SYSTEM("$MV */*/* .; rmdir */*");
 &SYSTEM("$MV */* .; rmdir *");
 &buildfilelist;
 &donormal;
}

sub MAKEnosymlinks
{
  &setup;
  chdir("$DEST/doc/$whichdocformat/$package");

  print "\t SPECIAL nosymlinks $package\n";
  &SYSTEM("find . -type l | xargs --no-run-if-empty rm");

  &buildfilelist;
  &donormal ("nosetup");
}

# do some stuff for simple packages with hyphenation files, like
# cbcoptic and ibycus-babel.  The arguments are:
# LANGNAME - full language name, like "coptic" (first arg of .dat line)
# LANGABBREV - abbreviated language name, like "cop" (in .dat filename)
# HYPHFILE - hyphenation .tex file name, like "copthyph.tex"
# 
# General procedure is:
# 
# create: tlpkg/tlpsrc/hyphen-language.tlpsrc
#   (must be done by hand)
# create: texmf/tex/generic/config/language.ll.dat
#   (done here, unless it already exists)
# install pattern file from ctan: texmf/tex/generic/hyphen/langhyph.tex
#   (done here)
# add in: tlpkg/tlpsrc/collection-langwhatever.tlpsrc
#   (must be done by hand)
# 
sub GENMAKEhyphenation
{
 my ($langname,$langabbrev,$hyphfile) = @_;
 &setup;
 &buildfilelist;
 &donormal;
 print "\t SPECIAL $package: install $hyphfile\n";
 my $generichyphdir = "$TOPDEST/texmf/tex/generic/hyphen";
 &SYSTEM("mkdir -p $generichyphdir");
 &SYSTEM("$MV $hyphfile $generichyphdir");
 
 my $genericconfigdir = "$TOPDEST/texmf/tex/generic/config";
 my $configfile = "$genericconfigdir/language.$langabbrev.dat";
 if (! -r $configfile) {
   print "\t SPECIAL $package: create $configfile\n";
   &SYSTEM("mkdir -p $genericconfigdir");
   &SYSTEM("echo $langname $hyphfile >$configfile");
 }

 print "YOU-MUST-DO! $package: create hyphen-$langname.tlpsrc\n";
 print "YOU-MUST-DO! $package: add to collection-langwhatever.tpm\n";
}

sub MAKEcbcoptic
{
  &GENMAKEhyphenation ("coptic", "cop", "copthyph.tex");
}

sub MAKEibycusbabel
{
  &GENMAKEhyphenation ("ibycus", "iby", "ibyhyph.tex");
}

# since existing mongolian is written in a different encoding,
# seems best to keep both?
sub MAKEmnhyphn
{
 &GENMAKEhyphenation ("mongolian2a", "mn2a", "mnhyphn.tex");
}

# we don't want a package named nohyph.  Hmm.
#sub MAKEnohyph
#{
# &GENMAKEhyphenation ("norsk", "no", "nohyphbx.tex");
# &GENMAKEhyphenation ("nynorsk", "no", "nnhyph.tex");
# &GENMAKEhyphenation ("bokmal", "no", "nbhyph.tex");
#}

sub MAKEarabi {
  &xchdir ("$packagedir/arabi/texmf");  # author will remove these next time
  #
  print "\t SPECIAL $package - removing microsoft and nonfree\n";
  &SYSTEM('find -name microsoft -o -name nonfree | xargs rm -rf');
  #
  print "\t SPECIAL $package - rearranging for tds\n";
  &SYSTEM ("mkdir -p tex; mv latex tex");
  &SYSTEM ("$RM tex/latex/arabi/updmap.cfg");
  &SYSTEM ("$MV tex/latex/arabi/bblopts.cfg doc/latex/arabi");
  &SYSTEM ("rm -rf dvips");
  #
  print "\t SPECIAL $package - copying to $DEST\n";
  &SYSTEM ("mkdir -p $DEST");
  &SYSTEM ("$CP -r * $DEST/");
}

sub MAKEarabtex {
  &xchdir ($packagedir);
  #
  print "\t SPECIAL $package: removing top-level links\n";
  &SYSTEM('for f in apatch.sty arabtex.tex hebtex.tex hepatch.sty; do test -h $f && rm -v $f; done');
  #
  print "\t SPECIAL $package: removing top-level tgz's\n";
  &SYSTEM('for f in *.tgz; do rm -v $f; done');
  #
  print "\t SPECIAL $package: renaming arabtex.htm\n";
  &SYSTEM('mv doc/html/arabtex.htm arabtex1.htm');
  &SYSTEM('mv doc/txt/arabtex.htm arabtex2.htm');
  #
  print "\t SPECIAL $package: flatten\n";
  &xchdir ("..");
  &MAKEflatten ();
}

sub MAKEarphic {
  &xchdir ($packagedir);
  # tds-ready tarballs with a top-level dir name.  copy all into new/.
  &SYSTEM ("mkdir -p new");
  for my $tar (<*.tar.*>) {
    (my $tarbase = $tar) =~ s/\.tar.*//;
    &SYSTEM ("tar xf $tar "
             . "&& (cd $tarbase && cp -arf * ../new)"
             . "&& rm -rf $tar $tarbase");
  }
  # move everything from new to the top level.
  &SYSTEM ("mv new/* . && rmdir new");
  #
  # move docs to subdir.
  &SYSTEM ("mv arphic-sampler* doc/fonts/arphic");
  #
  # copy to dest.
  &xchdir ("..");
  &MAKEcopy ();
}

sub MAKEaurical {
  &xchdir ($packagedir);
  #
  # basically have a tds hier to unzip, with some cleanups.
  &SYSTEM ("unzip -q aurical_texmf.zip");
  &SYSTEM ("mkdir -p fonts/source/public/aurical/");
  &SYSTEM ("$MV $DEST/README doc/latex/aurical/");
  &SYSTEM ("$MV aurical_source.zip fonts/source/public/aurical/");
  &SYSTEM ("$RM aurical.pdf aurical_texmf.zip");
  #
  &xchdir ("..");
  &MAKEcopy ();
}

sub MAKEeskdx {
 &setup;
 &xchdir ("$DEST/doc/$whichdocformat/$package");
 print "\t SPECIAL $package: flatten unpacked/ dir (only)\n";
 &SYSTEM ("$MV unpacked/Makefile Makefile.unpacked");
 &SYSTEM ("$MV unpacked/* .");
 &SYSTEM ("rmdir unpacked");
 &buildfilelist;
 &donormal;
}

sub MAKEmathdesign {
  &setup ();
  &xchdir ($DOCDIR);
  #
  # basically have several tds hiers to unzip, with some cleanups.
  print "\t SPECIAL $package: unzip etc.\n";
  for my $zip (<*.zip>) {
    &SYSTEM ("cd $DEST && unzip -q -o $DOCDIR/$zip; $RM $DOCDIR/zip");
  }
  &SYSTEM ("rm -rf commercialfonts");
  &SYSTEM ("mv $DEST/dvips/config $DEST/dvips/mathdesign");
}

sub MAKEmetauml {
 &setup;
 &xchdir ("$DEST/doc/$whichdocformat/$package");
 &SYSTEM ("$MV doc/* examples/* inputs/* .");
 &SYSTEM ("rmdir doc examples inputs");
 &buildfilelist;
 &donormal;
}

sub MAKEmflogo{ 
 &setup;
  chdir("$DEST");
  &runjob("tar xvf $DEST/doc/latex/$package/logofont.tar");
  chdir("$DEST/doc/latex/$package");
  &donormal;
 }

sub MAKEfp {
 &setup;
 chdir("$DEST/doc/$whichdocformat/$package");
 &runjob("mkdir -p $DEST/tex/plain/fp; $CP fp.tex $DEST/tex/plain/fp");
 &donormal;
}

sub MAKEgermbib {
  &xchdir ($packagedir);
  #
  print "\t SPECIAL $package remove symlinks\n";
  &SYSTEM ("find . -type l | xargs --no-run-if-empty rm");
  #
  # we can't conflict with standard apalike.sty.
  print "\t SPECIAL $package rename second apalike.sty\n";
  &SYSTEM ("$MV styles/apalike.sty styles/apalike.germbib_sty");
  #
  # spurious ^M's.
  &SYSTEM ("perl -pie 'tr/\r//' document/btxdoc.tex");
  #
  &xchdir ("..");  
  &MAKEflatten ();
}

sub MAKExkeyval {
  # needs files in both latex and generic.
  &MAKEflatten ();
  print "\t SPECIAL $package moving .tex\n";
  my $generic = "$DEST/tex/generic/$package/";
  &SYSTEM ("mkdir -p $generic; mv *.tex $generic");
}

sub MAKExymtex {
 &setup;
 chdir("$DEST/doc/latex/$package");
 &SYSTEM("$MV doc200/* .");
 &SYSTEM("rmdir doc");
 &buildfilelist;
 &donormal;
}

sub MAKEnewsletr {
  &setup;
  chdir("$DEST/doc/$whichdocformat/$package");
  &SYSTEM ("$MV newsletr.tex $DEST/tex/$whichformat/$package");
  &SYSTEM ("$RM *.dvi");
}

sub MAKEnotes
{
  &setup;
  &xchdir ($DOCDIR);
  &SYSTEM ("make eps png pdf");
  &donormal;
}

sub MAKEpbdiagram {
 &setup;
 chdir("$DEST/doc/latex/$package");
 &SYSTEM("rm -rf mf tfm");
 &buildfilelist;
 &donormal;
}

# copy seminar files.
sub MAKEseminar {
 &SYSTEM("mkdir -p $DEST/tex/latex/$package");
 &SYSTEM("$CP $packagedir/inputs/* $DEST/tex/latex/$package");
 #
 &SYSTEM("mkdir -p $DEST/source/latex/$package");
 &SYSTEM("$CP $packagedir/src/* $DEST/doc/latex/$package");
 #
 &SYSTEM("mkdir -p $DEST/doc/latex/$package");
 &SYSTEM("$CP $packagedir/*read* $packagedir/doc/* $DEST/doc/latex/$package");
}

sub MAKExypic {
# this simply copies source files as per INSTALL instructions
   chdir($packagedir) || die ("ERROR: cannot open directory");
  &runjob("mkdir -p $DEST/fonts/source/$Foundry/xypic");
  &runjob("mkdir -p $DEST/fonts/type1/$Foundry/xypic");
  &runjob("mkdir -p $DEST/fonts/tfm/$Foundry/xypic");
  &runjob("mkdir -p $DEST/fonts/pk/cx/$Foundry/xypic");
  &runjob("mkdir -p $DEST/tex/generic/xypic");
  &runjob("mkdir -p $DEST/dvips/xypic");
  &runjob("mkdir -p $DEST/doc/generic/xypic");
  &runjob("mkdir -p $DEST/source/generic/xypic");
  &runjob("$CP texinputs/* $DEST/tex/generic/xypic");
  &runjob("$CP texfonts/* $DEST/fonts/tfm/$Foundry/xypic");
  &runjob("$CP mfinputs/* $DEST/fonts/source/$Foundry/xypic");
  &runjob("$CP src/* $DEST/doc/generic/xypic");
  &runjob("$CP type1/* $DEST/fonts/type1/$Foundry/xypic");
  &runjob("$CP ps/* $DEST/dvips/xypic");
  &runjob("$CP doc/*.* $DEST/doc/generic/xypic");
  &runjob("$CP [A-Z]* $DEST/doc/generic/xypic");
  open (TMP,">$DEST/texmf-dist/dvips/xypic/config.xyp");
  print TMP "p +xypic.map";
  close(TMP);
# do the PK files
  chdir("pkfonts");
  &buildfilelist;  
  for (@filenames) { 
    if (-d $_) {
        chdir $_;
        s/cx([0-9]*)//;
        $dpi=$1;
 opendir(DIR,'.');
 @ffontnames =grep(!/^\.\.?$/,readdir(DIR));
 closedir(DIR);
        for (@ffontnames) { 
($FileBase,$Filepath,$Filesuffix) = fileparse($_,"\.[A-z0-9]*");
        &SYSTEM("mkdir -p $DEST/fonts/pk/cx/$Foundry/xypic/dpi$dpi");
        &SYSTEM("$MV $_ $DEST/fonts/pk/cx/$Foundry/xypic/dpi$dpi/$FileBase.pk");
               }
       chdir '..';
           }
    }
}


sub MAKEborceux {
 &setup;
 chdir("$DEST/doc/$whichdocformat/$package/user-guides");
 &SYSTEM("$MV -f * $DEST/doc/$whichdocformat/$package");
 chdir("$DEST/doc/$whichdocformat/$package/diagram");
 &SYSTEM("$MV -f * $DEST/tex/$whichformat/$package");
}

sub MAKEconcmath {
 &setup;
 chdir("$DEST/doc/$whichdocformat/$package");
 &SYSTEM("$MV fonts/*/* .");
   &buildfilelist;
   &domf;
   &dodvi;
# rebuild again, as we have .dvi files now
   &buildfilelist;
   &domakeindex;
   &dotex;
   &dosource;
}

sub MAKEplqx {
 &setup;
 chdir("$DEST/doc/$whichdocformat/$package");
 &SYSTEM("$MV tex/* .");
 &SYSTEM("$MV doc/* .");
 &SYSTEM("rmdir doc tex");
 &buildfilelist;
 &donormal;
}

sub MAKEaugie {
 &setup;
 chdir("$DEST/doc/$whichdocformat/$package");
 &SYSTEM("$MV dvips/* .");
 &SYSTEM("$MV tfm/* .");
 &SYSTEM("$MV afm/* .");
 &SYSTEM("$MV doc/* .");
 &SYSTEM("$MV vf/* .");
 &SYSTEM("$MV tex/* .");
 &SYSTEM("$MV type1/* .");
 &SYSTEM("rmdir type1 tex vf afm dvips doc tfm");
 &buildfilelist;
 &donormal;
}

sub MAKEae {
 &setup;
 chdir("$DEST/doc/$whichdocformat/$package");
 &SYSTEM("$MV tfm/* .");
 &SYSTEM("$MV vf/* .");
 &SYSTEM("$MV src/* .");
 &SYSTEM("$MV tex/* .");
 &SYSTEM("rmdir tex vf src tfm");
 &buildfilelist;
 &dosource;
 &dotex;
   &domakeindex;
 &runfonts;
}

sub MAKEdevanagr {
 &xchdir ($packagedir);
 #
 print "\t SPECIAL $package: renaming README files\n";
 &SYSTEM('for f in *; do test -r $f/README && mv $f/README README.$f; done');
 #
 print "\t SPECIAL $package: moving .c and .exe to /tmp\n";
 &SYSTEM('mv bin/devnag.c bin/devnag.exe /tmp');
 #
 print "\t SPECIAL $package: flatten\n";
 &xchdir ("..");
 &MAKEflatten;
 print "YOU-MUST-DO! update /tmp/devnag.c and devnag.exe into Build\n";
}

# We don't want to flatten the templates, only the source.
# 
sub MAKEdisser
{
  &setup;
  &xchdir ("$DEST/doc/$whichdocformat/$package");
  print "\t SPECIAL $package\n";
  &SYSTEM ("$MV -f src/* .");
  &buildfilelist;
  &donormal ("nosetup");
}

sub MAKEeasy {
 &setup;
 chdir("$DEST/doc/$whichdocformat/$package");
 &SYSTEM("rm doc/*.ps");
 &SYSTEM("$MV doc/* $DEST/doc/$whichdocformat/$package");
   &buildfilelist;
   &dodvi;
# rebuild again, as we have .dvi files now
   &buildfilelist;
   &dotex;
   &domakeindex;
   &dosource;
}

sub MAKEebong {
 &xchdir ($packagedir);
 #
 print "\t SPECIAL $package: moving .py to /tmp\n";
 &SYSTEM('mv -v *.py /tmp');
 #
 print "\t SPECIAL $package: flatten\n";
 &xchdir ("..");
 &MAKEflatten;
 print "YOU-MUST-DO! update /tmp/ebong.py into Build\n";
}

sub MAKEfootnpag {
 &setup;
 chdir("$DEST/doc/$whichdocformat/$package");
 &SYSTEM("$MV src/* .");
   &buildfilelist;
   &dodvi;
# rebuild again, as we have .dvi files now
   &buildfilelist;
   &dotex;
   &domakeindex;
   &dosource;
}


sub MAKEeplain {
  print "\t SPECIAL $package\n";
  &setup;
  &xchdir ($DEST);
  rename ("tex/eplain/eplain", "tex/eplain/base");
  &SYSTEM ("$MV $DOCDIR/eplain.tex tex/eplain/base");
  &SYSTEM ("$MV $DOCDIR/btxmac.tex tex/eplain/base");
  &SYSTEM ("$MV $DOCDIR/arrow.tex tex/eplain/base");

  &SYSTEM ("$MV $DOCDIR/doc doc/eplain/base");
  &SYSTEM ("$MV $DOCDIR/[A-L]* $DOCDIR/[M-Z]* doc/eplain/base/");
  unlink ("doc/eplain/base/texinfo.tex");
  
  rename ("source/eplain/eplain", "source/eplain/base");
  &SYSTEM ("$MV $DOCDIR/* source/eplain/base");

}

sub MAKEfeynmf
{
 &setup;
 chdir("$DEST/doc/$whichdocformat/$package");
 &SYSTEM("gunzip manual.ps");
 &buildfilelist;
 &runins('feynmf.ins');
 &buildfilelist;
 &dosimplemf;
 &dodvi;
 &buildfilelist;
 &domp;
 &dotex;
 &domakeindex;
 &dosource;
 killfiles($standardclean);
}

sub MAKEchangebar {
 &setup;
 chdir("$DEST/doc/$whichdocformat/$package");
 &buildfilelist;
 &donormal;
}

sub MAKEsiam
{
 &setup;
 chdir("$DEST/doc/$whichdocformat/$package");
 &buildfilelist;
 &dodvi;
 &buildfilelist;
 &dobst;
 &dotex;
   &domakeindex;
 &dosource;
 &SYSTEM("mkdir -p $DEST/doc/plain/siam");
 &SYSTEM("mkdir -p $DEST/doc/amstex/siam");
 &SYSTEM("mkdir -p $DEST/tex/plain/siam");
 &SYSTEM("mkdir -p $DEST/tex/plain/amstex");
 &SYSTEM("$MV plain/*doc* $DEST/doc/plain/siam");
 &SYSTEM("$MV plain/* $DEST/tex/plain/siam");
 &SYSTEM("$MV amstex/*doc* $DEST/doc/amstex/siam");
 &SYSTEM("$MV amstex/* $DEST/tex/amstex/siam");
 killfiles($standardclean);
}

sub MAKEmisc {
 &setup;
 chdir("$DEST/doc/$whichdocformat/$package");
 &buildfilelist;
 &dotex;
   &domakeindex;
 killfiles($standardclean);
}

sub MAKEtamethebeast {
  my $destdir = "$DEST/doc/english/$package";
  &SYSTEM("mkdir -p $destdir");
  &SYSTEM("$CP -r $packagedir/* $destdir");
}

sub MAKEtexdraw {
 &setup;
 chdir("$DEST/doc/$whichdocformat/$package");
 &buildfilelist;
 &dotex;
   &domakeindex;
 &SYSTEM("mkdir -p $DEST/doc/generic/texdraw");
 &SYSTEM("$MV manual/* $DEST/doc/generic/texdraw");
 killfiles($standardclean);
}

sub MAKEexpressg {
 &setup;
chdir("$DEST/doc/$whichdocformat/$package");
&buildfilelist;
   $inspatt = $specialins{$package};
   &buildfilelist;
   if ($inspatt eq "") { 
        $inspatt=$standardins; 
        }
&runins($inspatt);
 &SYSTEM("mpost expeg.mp");
# rebuild the list of files in the directory
 &buildfilelist;
 &dodvi;
# rebuild again, as we have .dvi files now
 &buildfilelist;
 &runfonts;
&dobst;
 &dobib;
&dotex;
   &domakeindex;
 &dosource;
 &dotype1;
#
# this is a bit weird, but its an easy way to remove
# empty directories that we never used.
#
   &SYSTEM("rmdir $DEST/tex/$whichformat/$package 2> /dev/null");
   &SYSTEM("rmdir $DEST/doc/$whichdocformat/$package 2> /dev/null");
   &SYSTEM("rmdir $DEST/source/$whichformat/$package 2> /dev/null");
   killfiles($standardclean);
}

sub MAKEtipa {
# this simply copies source files
   chdir($packagedir) || die ("ERROR: cannot open directory");
  &runjob("mkdir -p $DEST/fonts/source/$Foundry/tipa");
  &runjob("mkdir -p $DEST/fonts/type1/$Foundry/tipa");
  &runjob("mkdir -p $DEST/fonts/tfm/$Foundry/tipa");
  &runjob("mkdir -p $DEST/fonts/map/dvips/tipa");
  &runjob("mkdir -p $DEST/tex/latex/tipa");
  &runjob("mkdir -p $DEST/doc/fonts/tipa");
  &runjob("mkdir -p $DEST/source/latex/tipa");
  &runjob("$CP dvips/* $DEST/fonts/map/dvips/tipa");
  &runjob("$CP sty/* $DEST/tex/latex/tipa");
  &runjob("$CP tfm/* $DEST/fonts/tfm/$Foundry/tipa");
  &runjob("$CP type1/* $DEST/fonts/type1/$Foundry/tipa");
  &runjob("$CP mf/* $DEST/fonts/source/$Foundry/tipa");
  &runjob("$CP doc/* $DEST/doc/fonts/tipa");
}

sub MAKEpslatex
{
  &xchdir ($packagedir);
  $Foundry = $specialfoundry{$package} || $standardfoundry;
  #
  &runjob("mkdir -p $DEST/tex/latex/pslatex");
  &runjob("$CP latex/* $DEST/tex/latex/pslatex");
  #
  &runjob("mkdir -p $DEST/fonts/tfm/$Foundry/pslatex");
  &runjob("$CP tfm/* $DEST/fonts/tfm/$Foundry/pslatex");
  #
  &runjob("mkdir -p $DEST/fonts/vf/$Foundry/pslatex");
  &runjob("$CP vf/* $DEST/fonts/vf/$Foundry/pslatex");
  #
  &runjob("mkdir -p $DEST/fonts/map/dvips/pslatex");
  &runjob("$CP dvips/* $DEST/fonts/map/dvips/pslatex");
  #
  &runjob("mkdir -p $DEST/source/latex/pslatex");
  &runjob("$CP -r fontinst $DEST/source/latex/pslatex");
  &runjob("$CP -r shell $DEST/source/latex/pslatex");
}

sub MAKEeco {
# this simply copies source files
   chdir($packagedir) || die ("ERROR: cannot open directory");
  &runjob("mkdir -p $DEST/fonts/tfm/$Foundry/eco");
  &runjob("mkdir -p $DEST/fonts/vf/$Foundry/eco");
  &runjob("mkdir -p $DEST/tex/latex/eco");
  &runjob("mkdir -p $DEST/dvips/eco");
  &runjob("mkdir -p $DEST/doc/latex/eco");
  &runjob("$CP src/*sty $DEST/tex/latex/eco");
  &runjob("$CP fd/* $DEST/tex/latex/eco");
  &runjob("$CP tfm/* $DEST/fonts/tfm/$Foundry/eco");
  &runjob("$CP vf/* $DEST/fonts/vf/$Foundry/eco");
  &runjob("$CP -r src/*tex src/*x src/*sh $DEST/doc/latex/eco");
  &runjob("$CP -r [A-Z]* $DEST/doc/latex/eco");
 }

sub MAKEelhyphen {
 &setup;
 &buildfilelist;
 &donormal;

 print "\t SPECIAL $package: lowercase names\n";
 &SYSTEM('for f in GR*hyph*.tex; do mv $f `echo $f | tr A-Z a-z`; done');
 
 print "\t SPECIAL $package: install gr*hyph.tex files\n";
 my $generichyphdir = "$TOPDEST/texmf/tex/generic/hyphen";
 &SYSTEM("mkdir -p $generichyphdir");
 &SYSTEM("$MV gr*hyph*.tex $generichyphdir");

 print "YOU-MUST-DO! $package: update texmf/tex/generic/config/language.gr.dat\n";
 print "YOU-MUST-DO! $package: update texmf/tpm/hyphen-greek.tpm\n";
 print "YOU-MUST-DO! $package: add to texmf/tpm/collection-langgreek.tpm\n";
}

sub MAKECatalogue {
# this simply copies source files
   $DEST="$TDS/catalogue/texmf-doc";
   chdir($packagedir) || die ("ERROR: cannot open directory");
  &runjob("mkdir -p $DEST/doc/english/catalogue");
  &runjob("$CP -r * $DEST/doc/english/catalogue");
  chdir("$DEST/doc/html/catalogue/entries") || die ("ERROR cannot chdir $DEST/doc/english/catalogue/entries");
  &buildfilelist;
   foreach $File (grep(/.html$/,@filenames)) { 
    print "process $File\n";
    open FOO,">$File.new";
    open BAR,"$File";
    while (<BAR>) {
      s|\.\./\.\./\.\.|http://theory.uwinnipeg.ca/scripts/CTAN|g;
      print FOO ;
   }
    close FOO;
    close BAR;
    &SYSTEM("$MV $File.new $File");
  }
 }

sub MAKEFAQen
{
  &donormal ();
  &SYSTEM ("tar xzf FAQ-html.tar.gz && rm FAQ-html.tar.gz");
}

# all the lshort translations are pretty similar.
sub MAKElshort
{
  print "MAKElshort $package\n";
  (my $lang = $package) =~ s,.*-,,;  # lshort-english -> english
  my $destdir = "$DEST/doc/$lang/$package";
  &SYSTEM ("mkdir -p $destdir");
  &SYSTEM ("$CP -r $packagedir/* $destdir");
  # keep only pdf's to save space.
  &SYSTEM ("cd $destdir && $RM lshort*.ps *lshort*.ps.*z* lshort*.dvi* lshort-*-book.zip");
  # remove symlinks such as README.
  &SYSTEM ("cd $destdir && find -type l | xargs --no-run-if-empty rm");
}

sub MAKEltt {
# this simply copies source files
   chdir($packagedir) || die ("ERROR: cannot open directory");
  &runjob("mkdir -p $DEST/doc/ltt");
  &runjob("$CP * $DEST/doc/ltt");
 }

sub MAKEpstricks
{
  # move the directories around.
  &xchdir ($packagedir);
  &xmkdir ("$DEST/doc/generic");
  #
  my $docdir = "$DEST/doc/generic/pstricks";
  &SYSTEM ("$MV doc $docdir");
  #
  # move multiple Changes files out of runtime.
  &runjob("$MV generic/Changes $docdir/Changes.generic");
  &runjob("$MV latex/Changes $docdir/Changes.latex");
  &runjob("$MV dvips/Changes $docdir/Changes.dvips");
  #
  &xmkdir ("$DEST/dvips");
  &SYSTEM ("$MV dvips $DEST/dvips/pstricks");
  #
  &xmkdir ("$DEST/tex/generic");
  &SYSTEM ("$MV generic $DEST/tex/generic/pstricks");
  #
  &xmkdir ("$DEST/tex/latex");
  &SYSTEM ("$MV latex $DEST/tex/latex/pstricks");
}

sub MAKEwilson
{
 &setup;

 my $docdir = "$DEST/doc/$whichdocformat/$package";
 &xchdir ($docdir);

 my $mapdir = "$DEST/fonts/map/dvips/$package";
 -d $mapdir || &SYSTEM ("mkdir -p $mapdir");
 &SYSTEM ("$MV *.map $mapdir");  # archaicprw.map

 opendir (DIR, '.') || die "opendir(.) failed: $!";
 @dirnames = grep (!/^\.\.?$/, readdir (DIR));
 closedir (DIR);

 for my $d (@dirnames) {
   if ($d =~ /\.zip$/) {
     unlink ("$docdir/$d");
     next;
   }
   
   # phaistos and linearA are nothing to do with Wilson's archaic, but
   # are separate packages created by AS.
   if ($d =~ /^(phaistos|linearA)$/) {
     &SYSTEM ("rm -rf $d $docdir/$d");
     next;
   }
   
   my $target = "$docdir/$d";
   next if ! -d $target;  # samples/readme files
   print "\t PROCESS Wilson subdir $d\n";
   &xchdir ($target);

   if ($d) {
     for my $f (glob ("try*"), glob ("*.pdf"), "README") {
       my $dest = "$docdir/";
       $dest .= "$d-" if $f !~ /$d/;
       $dest .= $f;
       &runjob("$MV $f $dest");
     }
   }

   &buildfilelist;
   # run the .ins files (if any) supplied
   $inspatt = $specialins{$package};
   &buildfilelist;
   &runins($inspatt || $standardins);
   &dodvi;
   &domf;
   &dodvi;
# rebuild again, as we have .dvi files now
   &buildfilelist;
   &runfonts;
   &dobst;
   &dobib;
   &dotex;
   &domakeindex;
   &dosource;
   &dotype1;
   killfiles($standardclean);
 }
 killfiles($standardclean);
}

sub MAKEt2
{
  &xchdir ($packagedir);
  &xmkdir ("$DEST/tex/plain");
  &runjob ("$MV cyrplain $DEST/tex/plain");
  #
  &xmkdir ("$DEST/tex/generic/t2");
  &runjob ("$MV cyrfinst $DEST/tex/generic/t2");
  #
  &xmkdir ("$DEST/fonts/enc/t2");
  &runjob ("$CP enc-maps/encfiles/* $DEST/fonts/enc/t2");
  #
  &xmkdir ("$DEST/doc/generic/t2");
  &runjob ("$MV enc-maps/*.* enc-maps/[MR]* $DEST/doc/generic/t2");
  &runjob ("$MV etc examples $DEST/doc/generic/t2");
  #
  &xchdir ("$DEST/doc/generic/t2/etc");
  &xmkdir ("$DEST/tex/latex/t2");
  &runjob ("latex mathtext.ins");
  &runjob ("rm *log; mv *sty $DEST/tex/latex/t2");
 }

# docs in two languages.  The English one is in a separate package,
# mathmode.  Just remove it from the copy when building the German one.
# 
sub MAKEvossde {
  my $docdir = "$DEST/doc/german/$package";
  &SYSTEM("mkdir -p $docdir");
  &SYSTEM("$CP -r $packagedir/* $docdir");
  &SYSTEM("rm -r $docdir/mathmode");
}


# wadalab provides nearly TDS-ready .tar.gz with additional stuff
#
sub MAKEwadalab
{
  print "MAKEwadalab $package - munge tds-ready tarballs\n";
  &setup;
  &xchdir ("$DEST/doc/$whichdocformat/$package");

  # each XX.tar.gz contains a tds-ready tree under XX/texmf: use it
  opendir (HERE, ".") || die "opendir(.) failed: $!";
  my @tarfiles = grep /\.tar\.gz$/, readdir HERE;
  closedir (HERE);
  #  
  my $destfonts = "$DEST/fonts";
  &SYSTEM ("mkdir -p $destfonts");
  foreach my $tarfile (@tarfiles) {
    &SYSTEM ("tar xzf $tarfile && rm $tarfile");
    $tarfile =~ s/\.tar\.gz$//;
    &SYSTEM ("cp -r $tarfile/texmf/* $DEST");
    &SYSTEM ("rm -r $tarfile/texmf && rmdir $tarfile");
  }
  #
  # except the mincho-1-8-* tarball misses the doc/fonts level.
  &SYSTEM ("$MV $DEST/doc/wadalab/* $DEST/doc/fonts/wadalab/");
  #
  # wadalab has a dir of xdelta from the original fonts.  Remove it.
  -d "xdelta" && &SYSTEM ("rm -rf xdelta");
  #
  # rm unused directories.
  &SYSTEM ("rmdir $DEST/*/$whichformat/$package 2>/dev/null");
}


sub MAKEwordcount
{
 &xchdir ($packagedir);
 #
 print "\t SPECIAL $package: moving wordcount.sh to /tmp\n";
 &SYSTEM('mv wordcount.sh /tmp/');
 #
 &xchdir ("..");
 &donormal ();
 #
 print "YOU-MUST-DO! update /tmp/wordcount.sh to source/texk/texlive\n";
}

sub MAKEukrhyph {
  chdir($packagedir) || die ("ERROR: cannot open directory");
  &runjob("mkdir -p $DEST/tex/generic/ukrhyph");
  &runjob("mkdir -p $DEST/doc/generic/ukrhyph");
  &runjob("$CP README $DEST/doc/generic/ukrhyph");
  &runjob("$CP *.* $DEST/tex/generic/ukrhyph");
  &runjob("$MV $DEST/tex/generic/ukrhyph/*.pdf $DEST/doc/generic/ukrhyph");
  &runjob("rm $DEST/tex/generic/ukrhyph/*.ps");
 }

# The jadetex distribution is a mess.  Last updated in 2003, so no point in
# trying to push changes upstream that I can see, though.
sub MAKEjadetex
{
  # Unpack the tarball.
  &SYSTEM ("cd $packagedir && tar xf jadetex*.tar.gz && mv jadetex-*/* .");
  &SYSTEM ("cd $packagedir && (rm -rf jadetex-3* doc/.cvsignore)");
  
  # Get rid of the useless doc/ dir.
  &MAKEflatten ();
  
  # Rename resulting jadetex/jadetex dirs to jadetex/base.
  &xchdir ($DEST);
  for my $dir ("doc", "source", "tex") {
    &SYSTEM ("$MV $dir/jadetex/jadetex $dir/jadetex/base");
  }
  
  # This didn't get flattened since there's a name clash.
  &SYSTEM ("$MV doc/jadetex/base/doc/Makefile doc/jadetex/base");
  
  # Their pdfjadetex.ini predates pdftexconfig.tex.
  my $pdfini = "tex/jadetex/base/pdfjadetex.ini";
  &SYSTEM ("(echo '\\input pdftexconfig.tex'; cat $pdfini) >/tmp/pj$$;
           mv /tmp/pj$$ $pdfini");
}

sub MAKElfb
{
  # remove pregenerated pk files.
  &MAKEflatten ();
  print "\t SPECIAL removing lfb PK files\n";
  &SYSTEM("rm *pk");
}

sub MAKEliterat {
  &xchdir($packagedir);
  &runjob("mkdir -p $DEST/fonts/tfm/paragrap/literat");
  &runjob("mkdir -p $DEST/fonts/vf/paragrap/literat");
  &runjob("mkdir -p $DEST/fonts/type1/paragrap/literat");
  &runjob("mkdir -p $DEST/fonts/afm/paragrap/literat");
  &runjob("mkdir -p $DEST/tex/latex/literat");
  &runjob("mkdir -p $DEST/dvips/literat");
  &runjob("mkdir -p $DEST/doc/fonts/literat");

  &runjob("$CP dvips/* $DEST/dvips/literat");
  &runjob("$CP tex/*tex $DEST/doc/fonts/literat");
  &runjob("$CP psfonts/*pfb $DEST/fonts/type1/paragrap/literat");
  &runjob("$CP psfonts/*inf $DEST/fonts/type1/paragrap/literat");
  &runjob("$CP psfonts/*afm $DEST/fonts/afm/paragrap/literat");
  &runjob("$CP tex/*sty tex/*fd $DEST/tex/latex/literat");
  &runjob("$CP tfm/* $DEST/fonts/tfm/paragrap/literat");
  &runjob("$CP tfm-raw/* $DEST/fonts/tfm/paragrap/literat");
  &runjob("$CP vf/* $DEST/fonts/vf/paragrap/literat");
  &runjob("$CP [A-Z]* insta* license $DEST/doc/fonts/literat");
 }


sub MAKExmltex
{
  &xchdir($packagedir);
  &runjob("mkdir -p $DEST/tex/xmltex/config");
  &runjob("mkdir -p $DEST/tex/xmltex/base");
  &runjob("mkdir -p $DEST/doc/xmltex/base");

  &runjob("$CP *.ini $DEST/tex/xmltex/config");
  &runjob("$CP xmltex.tex *xmt xmltex.cfg $DEST/tex/xmltex/base");
  &runjob("$CP manual* *xml test* *txt  $DEST/doc/xmltex/base");
 }

sub MAKEbase {
  &SYSTEM("mkdir -p $DEST/tex/latex/base");
  &SYSTEM("mkdir -p $DEST/doc/latex/base");
  &SYSTEM("mkdir -p $DEST/doc/latex/base");
  if (-f "$packagedir/00Contents" ) { unlink "$packagedir/00Contents" ; }
  &SYSTEM("$CP -r $packagedir/* $DEST/doc/latex/base");
  chdir($packagedir) || die ("ERROR: cannot open directory");
  $package="base";
  $DEST="$TDS/ltxbase/texmf-dist";
  print "!$whichformat $packagedir ($package) -> $DEST\n";
  &donormal;
 }

sub MAKEfancyvrb {
 &setup;
 chdir("$DEST/doc/latex/$package");
 print "\t SPECIAL $package: move contrib\n";
 &SYSTEM("$MV contrib/README README.contrib");
 &SYSTEM("$MV contrib/* .; rmdir contrib");
 &buildfilelist;
 &donormal("nosetup");
}

sub MAKEfeatpost {
 &setup;
 chdir("$DEST/doc/metapost/$package") 
   || die "chdir($DEST/doc/metapost/$package) failed: $!";
 print "\t SPECIAL $package, leaving most in doc\n";
 @filenames = glob("macro/*.mp");
 &install("$DEST/metapost/featpost", ".mp");
 &SYSTEM("rm -rf system");  # seeing his texmf.cnf will only confuse people
}

sub MAKEucs {
 &setup;
 chdir("$DEST/doc/latex/$package");
 &SYSTEM("$MV data $DEST/tex/latex/ucs");
 &SYSTEM("$MV *def *sty $DEST/tex/latex/ucs");
 &SYSTEM("$MV contrib/* $DEST/tex/latex/ucs");
}

sub MAKEtexsis {
 &setup;
 chdir("$DEST/doc/texsis/$package");
 &SYSTEM("make TXSsite.tex");
 &buildfilelist;
 &donormal;
 &SYSTEM("rm *.ps");
}


sub MAKEIEEEtran {
 print "\t SPECIAL renaming README files, then flatten\n";
 chdir ($packagedir) || die "chdir($packagedir) failed: $!";
 &SYSTEM('for f in *; do test -r $f/README && mv $f/README README.$f; done');
 chdir ("..");
 &MAKEflatten;
 # let's not worry about the fact that the tex run on testflow fails (it
 # wants a paper size); we still get the distributed pdf, which is good enough.
}

sub MAKEbardiag {
 &setup;
 chdir("$DEST/doc/latex/$package");
 &SYSTEM("$MV doc/* .");
 &buildfilelist;
 &donormal;
}


sub MAKEmathpazo {
 &setup;
 chdir("$DEST/doc/latex/$package");
 &SYSTEM("$MV latex/* type1/* afm/* vf/* tfm/* dvips/* .; rmdir latex type1 afm vf tfm dvips");
 &buildfilelist;
 &donormal;
}

sub MAKEhaprosper {
 &setup ("nocopytodoc"); # create dirs but that's all
 chdir("$packagedir");
 &SYSTEM("mkdir -p $DEST");
 print "\t SPECIAL copying HA-prosper\n";
 &SYSTEM("$CP -r README Doc/* $DEST/doc/latex/HA-prosper");
 &SYSTEM("$CP -r Run/* $DEST/tex/latex/HA-prosper");
 &SYSTEM("$CP -r Source/* $DEST/source/latex/HA-prosper");
}

sub MAKEpclnfss {
 chdir("$packagedir");
 &SYSTEM("mkdir -p $DEST/source/fonts/pclnfss");
 &SYSTEM("mkdir -p $DEST/doc/fonts/pclnfss");
 &SYSTEM("$CP -r [A-Z]* $DEST/doc/fonts/pclnfss");
 &SYSTEM("$CP -r fonts $DEST");
 &SYSTEM("$CP -r tex $DEST");
 &SYSTEM("$CP -r src/* tests $DEST/source/fonts/pclnfss");

}

sub MAKEpdf_forms_tutorial
{
  # called for both the en and de versions.  both are the same catalogue
  # entry, which is rather excruciating for us.
  &xchdir ($packagedir);
  
  my $lang;
  my $ll = substr ($package, -2);  # en or de
  if ($ll eq "en") {
    $lang = "english";
  } elsif ($ll eq "de") {
    $lang = "german";
  } else {
   die "unexpected language code for $package: $ll";
  }
  
  my $dest_lang = "$DEST/doc/$lang";
  my $dest_pkg = "$dest_lang/pdf-forms-tutorial-$ll";
  &SYSTEM ("mkdir -p $dest_lang");
  &SYSTEM ("$CP -r $ll $dest_pkg");
  &SYSTEM ("$CP README fdl.txt $dest_pkg");
}

sub MAKEbeamer {
 &xchdir ($packagedir);
 my $destdoc = "$DEST/doc/latex/beamer";
 &SYSTEM ("mkdir -p $destdoc");
 &SYSTEM ("$CP -r * $destdoc");
 &xchdir ($destdoc);
 
 my $desttex = "$DEST/tex/latex/beamer";
 &SYSTEM("mkdir -p $desttex");
 &SYSTEM("$MV base/* themes emulation extensions/multimedia $desttex");
}


# this doesn't work.
sub MAKEbeebe {
 &setup;
 print "\t SPECIAL moving beebe .bib and .bst\n";
 chdir ("$DEST/doc/latex/$package") || die;
 &SYSTEM("mkdir -p $DEST/bibtex/bib/beebe $DEST/bibtex/bst/beebe");
 &SYSTEM("$MV tex*.bib tug*.bib $DEST/bibtex/bib/beebe");
#xx ugh, they aren't there &SYSTEM("$MV *.bst $DEST/bibtex/bst/beebe");
 &SYSTEM("rm *");
 
}
# pstricks packages usually support both plain and latex.
# 
sub MAKEpst
{
   print "\t SPECIAL pst $package starts\n";
   $standardtex = qq{^$package(Obj)?\.(tex|sty)};  # for pst-laboObj.tex
   $whichformat='generic';
   $whichdocformat='generic';
   $specialsourcefmt{$package}='generic';
   $specialsource{$package} = "Makefile|$standardsource";  
   &setup;
   &xchdir("$DEST/doc/$whichdocformat/$package");
   &buildfilelist;

   $inspatt=$standardins if ! $inspatt;
   &runins($inspatt);
   &buildfilelist;
   &dosource;
   &dotex;
   &dotype1;   
   killfiles($standardclean);
   &killfiles ($moreclean{$package}, "more") if $moreclean{$package};
   &SYSTEM("mkdir -p $DEST/tex/latex/$package");
   &SYSTEM("mv $DEST/tex/generic/$package/*sty $DEST/tex/latex/$package");
   &SYSTEM("mv $DEST/doc/generic/$package/*cfg $DEST/tex/latex/$package")
     unless $package eq "pst-pad"; # its showexpl.cfg is for the doc
}

sub MAKEpstgeo
{
   print "\t SPECIAL pst-geo $package starts\n";
   $standardtex = qq{^$package(Obj)?\.(tex|sty)};  # for pst-laboObj.tex
   $whichformat='generic';
   $whichdocformat='generic';
   $specialsourcefmt{$package}='generic';
   &setup;
   &xchdir("$DEST/doc/$whichdocformat/$package");
   -d <*/*/*/*/*/.> && &SYSTEM("$MV -f */*/*/*/* .");
   -d <*/*/*/*/.> && &SYSTEM("$MV -f */*/*/* .");
   -d <*/*/*/.> && &SYSTEM("$MV -f */*/* .");
   -d <*/*/.> && &SYSTEM("$MV -f */*/* .");
   -d <*/.> && &SYSTEM("$MV -f */* .");
   &SYSTEM("find -type d -print | xargs rmdir 2>/dev/null");
   &SYSTEM("find -type f -print >/tmp/find");
   &buildfilelist;

   $inspatt=$standardins if ! $inspatt;
   &runins($inspatt);
   &buildfilelist;
   &dosource;
   &dotex;
   &dotype1;   
   killfiles($standardclean);
   &SYSTEM("mkdir -p $DEST/tex/latex/$package");
   &SYSTEM("mv $DEST/tex/generic/$package/*sty $DEST/tex/latex/$package");
   &SYSTEM("mv $DEST/doc/generic/$package/*sty $DEST/tex/latex/$package");
   &SYSTEM("mv $DEST/doc/generic/$package/*cfg $DEST/tex/latex/$package");
}


sub MAKEfontinst
{
  &xchdir ($packagedir);
  &runjob("mkdir -p $DEST/tex/latex/fontinst");
  &runjob("mkdir -p $DEST/tex/fontinst");
  &runjob("mkdir -p $DEST/source/fontinst");
  &runjob("mkdir -p $DEST/doc/fontinst/base");
  &runjob("$CP -r examples test $DEST/doc/fontinst/base");
  &runjob("$CP -r doc/* README test $DEST/doc/fontinst/base");
  &runjob("$CP -r source $DEST/source/fontinst/base");
  &runjob("$CP -r latex/* $DEST/tex/latex/fontinst");
  &runjob("$CP -r inputs/* $DEST/tex/fontinst");
  print "\t YOU-MUST-DO $package copy fontinst.bat to bin/win32\n";  
}

sub MAKEpsnfss {
  # we use the psnfss.zip from the latex-tds project.
  # But we don't want the actual tfm/vf; TL has many more tfm's (in
  # different packages), and we don't want to mess with that.  So just
  # remove the fonts subdir -- except for the map files, which we do want.
  #
  print "\t SPECIAL $package omit fonts from latex-tds version\n";
  
  # Start with the usual straight copy.
  &MAKEcopy ();

  # Then remove the entire fonts tree.
  &xchdir ("$DEST/fonts");
  &SYSTEM ("rm -rf enc tfm vf");
}


# CJK

sub I
{
  my ($s, $d) = @_;
  &SYSTEM ("$INSTALL $s $DEST/$d");
}

sub MAKEcjk_common
{
  print "\t SPECIAL $package wholesale rearranging for cjk\n";
  
  &xchdir ($packagedir);
  # also need cjk doc tarball.  should move in next release.
  my $cjkdoc = "cjk-?.?.?-doc.tar.gz";
  &SYSTEM ("tar -C cjk-?.?.? -xf $cjkdoc --strip-components=1");
  
  # remove the version number top-level directory.  
  &SYSTEM ("$RM *.tar.gz && $MV cjk-?.?.?/* . && rmdir cjk-?.?.?");
}

sub MAKEcjk
{
  &MAKEcjk_common ();
  require "cjk.pl";   # in tlpkg/libexec
}

sub MAKEbin_cjkutils
{
  &MAKEcjk_common ();
  require "bin-cjkutils.pl";
}

sub MAKEc90
{
  &MAKEcjk_common ();
  require "c90.pl";
}

sub MAKEdnp
{
  &MAKEcjk_common ();
  require "dnp.pl";
}

sub MAKEgaruda_c90
{
  &MAKEcjk_common ();
  require "garuda-c90.pl";
}

sub MAKEnorasi_c90
{
  &MAKEcjk_common ();
  require "norasi-c90.pl";
}


sub MAKEcmlgc
{
 &setup;
 chdir("$DEST/doc/$whichdocformat/$package");
 &SYSTEM("rm -rf vtex");
 &MAKEflatten;
}

sub MAKEphonetic
{
  &setup;
  &xchdir ("$DEST/doc/$whichdocformat/$package");
  
  print "\t SPECIAL MAKE$package\n";
  &SYSTEM ("$MV Doc/2e/* .");

  # do the usual.
  &buildfilelist;
  &donormal ("nosetup");
}

sub MAKEpict2e
{
 &setup;
 chdir("$DEST/doc/$whichdocformat/$package");
   &setup;
   chdir("$DEST/doc/$whichdocformat/$package");
   &buildfilelist;
# run the .ins files (if any) supplied
   $inspatt = $specialins{$package} || $standardins; 
   $Foundry = $specialfoundry{$package} || $standardfoundry; 
   &runins($inspatt);
# rebuild the list of files in the directory
 &SYSTEM("$MV pict2e-example.cfg pict2e.cfg");
   &buildfilelist;
   &dodvi;
# rebuild again, as we have .dvi files now
   &buildfilelist;
   &dotex;
   &dosource;
   &SYSTEM("rmdir $DEST/tex/$whichformat/$package 2> /dev/null");
   &SYSTEM("rmdir $DEST/source/$whichformat/$package 2> /dev/null");
   &SYSTEM("rmdir $DEST/doc/$whichdocformat/$package 2> /dev/null");
   killfiles($standardclean);
}


sub MAKEpictex
{
 &setup;
 chdir ($DOCDIR) || die "chdir($DOCDIR) failed: $!";
 &SYSTEM("rm -rf mathspic");  # separate package
 &SYSTEM("$MV addon/* .; rmdir addon");
 &donormal;
}



sub PREHOOK_cm_super
{
  print "PREHOOK_$package - remove dvipdfm map files\n";
  # We generate our own dvipdfm (not to mention pdftex) map files.
  &SYSTEM ("$RM -rf dvipdfm");
}

sub PREHOOK_ibygrk
{
  print "PREHOOK_$package - handle ibycus4.map\n";
  # ibygrk has two instances of the same file ibycus4.map; it is
  # both tex source and mf source.  the usual method cannot deal, of course.
  &SYSTEM ("$MV fonts/source/public/ibycus4/ibycus4.map .");
  &SYSTEM ("$RM tex/generic/ibycus4/ibycus4.map");
}

sub PREHOOK_vhistory
{
  print "PREHOOK_$package - rm dup file\n";
  &SYSTEM ("$RM doc/sets.sty");
}

sub PREHOOK_wsuipa
{
  print "PREHOOK_$package - rearrange directories, except for doc\n";
  # we can't use flatten because we want to preserve the subdirs inside doc.
  # annoyingly, the same filenames are repeated.
  &SYSTEM ("$MV changes/* doc/* macros/* mf/* pk/* tfm/* .");
}



sub POSTcoordsys
{
  print "POST$package - rename `putfile.' to `putfile.maple'.\n";
  # Apparently dtx insists on always adding the period; this can make
  # vfat filesystems choke.
  &SYSTEM ("$MV putfile. putfile.maple");
}


sub POSTcontext_games
{
  print "POST$package - remove duplicated fonts\n";
  &SYSTEM ("$RM -rf fonts");
}


sub POSTcontext_lilypond
{
  print "POST$package - creating package-level subdirectories\n";
  mkdir ("$DEST/doc/context/third/lilypond");
  &SYSTEM ("$MV $DEST/doc/context/third/t-lilypond.pdf "
    . "$DEST/doc/context/third/lilypond");
  mkdir ("$DEST/tex/context/third/lilypond");
  &SYSTEM ("$MV $DEST/tex/context/third/t-lilypond.tex "
    . "$DEST/tex/context/third/lilypond");
}

sub POSTelsarticle
{
  print "POST$package - move contrib and src/* to source\n";
  &xchdir ("$DEST/doc/$whichdocformat/$package");
  warn `pwd`;
  warn `vdir`;
  my $dest = "$DEST/source/latex/$package";
  &xmkdir ($dest);
  # we don't need two copies of that file
  &SYSTEM ("rm contrib/elsdoc.pdf");
  &SYSTEM ("mv contrib $dest");
  &SYSTEM ("mv src/* $dest");
  &SYSTEM ("mv elsdoc.tex $dest");
  &SYSTEM ("rmdir src");
}

sub POSTfpl
{
  print "POST$package - rename README.source\n";
  &SYSTEM ("$MV README.source $DEST/source/fonts/fpl/README");
}

sub POSTibygrk
{
  print "POST$package - second copy of ibycus4.map\n";
  # after the ibygrk structure has been set up, copy ibycus4.map to the
  # tex dir.
  &SYSTEM ("cd $DEST && $CP fonts/source/public/ibygrk/ibycus4.map "
           . "tex/generic/ibygrk/ibycus4.map");
}

sub POSTimpatient
{
  print "POST$package - remove fr subdirectory\n";
  &SYSTEM ("$RM -r fr");
}

sub POSTinteractiveworkbook
{
  print "POST$package - mv .sty directory\n";
  my $dest = "$DEST/tex/latex/$package";
  &SYSTEM ("mkdir -p $dest");
  &SYSTEM ("$MV interactiveworkbook.sty/* $dest/");
  &SYSTEM ("rmdir interactiveworkbook.sty");
}

sub POSTknuth
{
  print "POST$package - rearranging for texmf-doc\n";
  &xchdir ("$DEST/doc");
  &xmkdir ("english");
  &SYSTEM ("$MV knuth english"); 
  &SYSTEM ("$MV ../source/knuth english/knuth/source");
  &xchdir ("english/knuth");
  #
  # remove nonfree.
  &SYSTEM ("$RM tex/texbook.tex mf/mfbook.tex");
  #
  # remove sources that are in build tree.
  &xchdir ("source");
  &SYSTEM ("rm -rf etc mf mfware tex/tex.web tex/trip* texware web/*.web");
}

sub POSTkoma
{
  print "POST$package - removing symlinks\n";
  &SYSTEM ("find $DEST -type l | xargs --no-run-if-empty rm");
}

sub POSTlatex2html
{
  print "POST$package - moving $package.perl to doc\n";
  my $dest = "$DEST/doc/latex/$package";
  &SYSTEM ("mkdir -p $dest");
  &SYSTEM ("$MV $DEST/scripts/latex2html/styles/$package.perl $dest");
}

sub POSTlatex2man
{
  print "POST$package\n";
  &SYSTEM ("$MV $package.info /tmp");
  print "YOU-MUST-DO! update /tmp/$package.info into texmf/doc/info\n";
}

sub POSTlibertine
{
  print "POST$package - remove duplicates, nosource docs";
  # has to be a post routine instead of moreclean because we have to
  # remove a file in a non-doc directory.
  # 
  # no source for doku.pdf.
  &SYSTEM ("$RM doc/fonts/libertine/libertinedoku.pdf");
  #
  # these files are in babel and/or ibyhyph.
  &SYSTEM ("$RM -rf tex/latex/libertine/babel");
}

sub POSTlithuanian
{
  print "\t SPECIAL $package remove old language support\n";
  #
  # these files are no longer used in TL.
  &SYSTEM ("$RM language.lt.dat $DEST/tex/latex/lithuanian/language.lt.def");
}

sub POSTpgf
{
  print "POST$package - mv generic+latex directories\n";
  &SYSTEM ("cd $DEST && mkdir tex && mv context generic latex plain tex");
}

sub POSTpstcox
{
  print "POST$package - mv latex .sty, doc Gallery\n";
  &SYSTEM ("mkdir -p $DEST/tex/latex/$package");
  &SYSTEM ("mv -v $DEST/doc/generic/$package/*sty $DEST/tex/latex/$package");
  &xchdir ("$DEST/doc/generic/$package");
  &SYSTEM ("mkdir pst-coxeterp/");
  # oops, depends on find order
  &SYSTEM ("mv -v Gallery.tex pst-coxeterp?* pst-coxeterp/");
  &SYSTEM ("mv -v doc/pst-coxcoor/ pst-coxcoor");
  &SYSTEM ("mv -v pst-coxcoor?* pst-coxcoor");
}

sub POSTxecjk
{
  print "POST$package - capitalization, moving non-TDS\n";

  &xmkdir ("$DEST/source/xelatex");
  &SYSTEM ("$MV $DEST/utils/xeCJK $DEST/source/xelatex/xecjk");

  &SYSTEM ("$MV $DEST/tex/xelatex/xeCJK $DEST/tex/xelatex/xecjk");
  &SYSTEM ("$MV $DEST/doc/xelatex/xeCJK $DEST/doc/xelatex/xecjk");
  
  # the one in MAKEcopy doesn't get it because .../xecjk doesn't exist
  # yet.  Not worth a prehook, author should fix.
  &SYSTEM ("$MV $DEST/README $DEST/doc/xelatex/xecjk/README");
}

sub POSTxecyr
{
  print "POST$package - handling bat, moving language.dat.add from runtime\n";
  &SYSTEM ("$MV $DEST/tex/generic/xecyr/language.dat.add"
           . " $DEST/doc/xelatex/xecyr");

  my $wdir = "$TOPDEST/bin/win32";
  &xmkdir ($wdir);
  &SYSTEM ("$MV $DEST/bin/xecyr/*.bat $wdir/");
}

sub POSTxetex_pstricks
{
  print "POST$package - need tex/ level\n";
  &xchdir ($DEST);
  &xmkdir ("tex", "doc/generic/$package");
  &SYSTEM ("$MV README doc/generic/$package");
  &SYSTEM ("$MV generic xelatex xetex tex");
}

sub POSTxstring
{
  print "POST$package - xstring.sty under latex\n";
  &xchdir ($DEST);
  &xmkdir ("tex/latex/$package");
  &SYSTEM ("$MV tex/$whichformat/$package/xstring.sty tex/latex/$package/");
}


# Allow overrides.  In particular, CTAN can change some hashes to make
# packages with licenses that TL doesn't allow.
# 
# Put the config file "ctan2tds-config.pl" in the dir from which you 
# run this script, or better, set the environment variable "CTAN2TDS_CONFIG".
# 
sub readconfig
{
  my ($base,$dir,$ext) = fileparse ($0,'\.pl');

  my $configFileName = "$dir/$base-config.pl";
  $configFileName = $ENV{"CTAN2TDS_CONFIG"} || $configFileName;

  my $result;
  if (-f $configFileName) {
    my $err = "Error: CTAN config file $configFileName";
    $result = eval `cat $configFileName`; # like require, but no look in INC
    die "$err; evaluation in file failed: $@" 
        if $@;
    die "$err; yielded result that is false" 
        unless $result;
  } else {
    $result=1;
  }
  return $result;
}

# vim: set tabstop=8 shiftwidth=2 expandtab: