diff options
Diffstat (limited to 'Master/tlpkg/bin/ctan2tds')
-rwxr-xr-x | Master/tlpkg/bin/ctan2tds | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/Master/tlpkg/bin/ctan2tds b/Master/tlpkg/bin/ctan2tds index 4ed181f3a21..2ba9a760e16 100755 --- a/Master/tlpkg/bin/ctan2tds +++ b/Master/tlpkg/bin/ctan2tds @@ -340,6 +340,7 @@ chdir $startdir || die "chdir($startdir) failed: $!"; # back to raw 'phaistos', "&MAKEflatten", 'pict2e', "&MAKEpict2e", 'pictex', "&MAKEpictex", + 'pigpen', "&MAKEflatten", 'pinlabel', "&MAKEnosymlinks", 'pl-qx', "&MAKEplqx", 'poster', "die 'skipping, nonfree license'", @@ -442,6 +443,7 @@ chdir $startdir || die "chdir($startdir) failed: $!"; # back to raw 'tpcmfont', "die 'skipping, ?'", 'translator', "&MAKEflatten", 'turnstile', "&MAKEflatten", + 'tpx', "die 'skipping, nosource, Windows'", 'txfonts', "&MAKEflatten", 'ucs', "&MAKEucs", 'uebungsblatt',"&MAKEflatten", @@ -812,6 +814,7 @@ $standardtex='\.(cfg|sty|clo|ldf|cls|def|fd|cmap|4ht)$'; 'pdfx', '\.xmp$|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, @@ -1289,6 +1292,7 @@ $standardpfm='\.pfm'; $standardpfb = '\.pfb|\.inf$'; %specialpfb = ( 'dviincl' => 'NULL', # skip 0dviincl.inf, is a README + 'pigpen' => 'pigpen.pfa', ); $standardttf='\.ttf'; @@ -2029,14 +2033,18 @@ sub MAKEflatten # 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. - &SYSTEM ("for r in `find . -mindepth 2 '(' -name README -o -name README.txt ')'`; do" + # 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 '\{\}' . \\;"); + &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"); |