diff options
Diffstat (limited to 'Master/tlpkg/libexec/ctan2tds')
| -rwxr-xr-x | Master/tlpkg/libexec/ctan2tds | 74 |
1 files changed, 28 insertions, 46 deletions
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds index efbe40d4a4e..3048cb8c7e9 100755 --- a/Master/tlpkg/libexec/ctan2tds +++ b/Master/tlpkg/libexec/ctan2tds @@ -451,7 +451,8 @@ chdir $startdir || die "chdir($startdir) failed: $!"; # back to raw 'pst-fun', "&MAKEpst", 'pst-func', "&MAKEpst", 'pst-gantt', "&MAKEpst", - 'pst-geo', "&MAKEpstgeo", + 'pst-geo', "&MAKEpst", + 'pst-geo-compress', "die 'skipping, in pst-geo, check with hvoss'", 'pst-ghsb', "&MAKEpst", 'pst-gr3d', "&MAKEpst", 'pst-grad', "&MAKEpst", @@ -609,15 +610,16 @@ chdir $startdir || die "chdir($startdir) failed: $!"; # back to raw 'impatient' => '&POSTimpatient', 'interactiveworkbook' => '&POSTinteractiveworkbook', 'knuth' => '&POSTknuth', - 'koma-script' => '&POSTkoma', + 'koma-script' => '&POSTkomascript', 'latex2man' => '&POSTlatex2man', 'lithuanian' => '&POSTlithuanian', 'montex' => '&POSTmontex', 'pgf' => '&POSTpgf', 'pst-cox' => '&POSTpstcox', + 'pst-geo' => '&POSTpstgeo', 'splitindex' => '&POSTsplitindex', 'xecyr' => '&POSTxecyr', - 'xetex-pstricks' => '&POSTxetex_pstricks', + 'xetex-pstricks' => '&POSTxetexpstricks', 'zhspacing' => '&POSTzhspacing', 'zhmetrics' => '&POSTzhmetrics', ); @@ -1255,7 +1257,6 @@ $standardmakeindex='\.ist'; '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', @@ -3283,6 +3284,7 @@ sub MAKEbeebe { &SYSTEM("rm *"); } + # pstricks packages usually support both plain and latex. # sub MAKEpst @@ -3310,40 +3312,11 @@ sub MAKEpst &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"); + my $postaction = $posthook{$package}; + eval ($postaction) if $postaction; } - sub MAKEfontinst { &xchdir ($packagedir); @@ -3677,7 +3650,7 @@ sub POSTknuth &SYSTEM ("rm -rf etc mf mfware tex/tex.web tex/trip* texware web/*.web"); } -sub POSTkoma +sub POSTkomascript { print "POST$package - removing symlinks\n"; &SYSTEM ("find $DEST -type l | xargs --no-run-if-empty rm"); @@ -3731,15 +3704,6 @@ sub POSTpgf &SYSTEM ("$RM $DEST/README"); } -# has to be post instead of specialman because we use the tds.zip. -sub POSTsplitindex -{ - print "POST$package - mv man page\n"; - my $mydest = "$TOPDEST/texmf/doc/man/man1/"; - &xmkdir ($mydest); - &SYSTEM ("$MV doc/latex/splitindex/$package.1 $mydest"); -} - sub POSTpstcox { print "POST$package - mv latex .sty, doc Gallery\n"; @@ -3753,6 +3717,24 @@ sub POSTpstcox &SYSTEM ("mv -v pst-coxcoor?* pst-coxcoor"); } +sub POSTpstgeo +{ + print "POST$package - mv data, doc\n"; + &SYSTEM ("$MV data/pst*compress.pl ."); + &SYSTEM ("$RM dataII/pst*compress.pl"); + &SYSTEM ("$MV data dataII $DEST/tex/generic/pst-geo/"); + &SYSTEM ("$MV doc/* ."); +} + +# has to be post instead of specialman because we use the tds.zip. +sub POSTsplitindex +{ + print "POST$package - mv man page\n"; + my $mydest = "$TOPDEST/texmf/doc/man/man1/"; + &xmkdir ($mydest); + &SYSTEM ("$MV doc/latex/splitindex/$package.1 $mydest"); +} + sub POSTxecyr { print "POST$package - handling bat, moving language.dat.add from runtime\n"; @@ -3764,7 +3746,7 @@ sub POSTxecyr &SYSTEM ("$MV $DEST/bin/xecyr/*.bat $wdir/"); } -sub POSTxetex_pstricks +sub POSTxetexpstricks { print "POST$package - need tex/ level\n"; &xchdir ($DEST); |