diff options
Diffstat (limited to 'Build/cdbuild/ctan2tds.pl')
-rwxr-xr-x | Build/cdbuild/ctan2tds.pl | 77 |
1 files changed, 47 insertions, 30 deletions
diff --git a/Build/cdbuild/ctan2tds.pl b/Build/cdbuild/ctan2tds.pl index 53a35a7a6e2..6f1b91dfbcd 100755 --- a/Build/cdbuild/ctan2tds.pl +++ b/Build/cdbuild/ctan2tds.pl @@ -220,6 +220,7 @@ chdir $startdir || die "chdir($startdir) failed: $!"; 'pst-math', "&MAKEpst", 'pst-optic', "&MAKEpst", 'pst-osci', "&MAKEpst", + 'pst-pdgr', "&MAKEpst", 'pst-poly', "&MAKEpst", 'pst-slpe', "&MAKEpst", 'pst-uml', "&MAKEpst", @@ -893,7 +894,6 @@ else $whichdocformat = $specialdocfmt{$package} || ($dest eq "texmf-doc" ? "english" : $standarddocfmt); - print "\n----------------------------------\n"; print "<$whichformat> <$whichdocformat> $packagedir ($package) -> $DEST\n"; if ($special{$package} ne "") { eval $special{$package}; @@ -910,6 +910,14 @@ else } +sub xchdir +{ + my ($dir) = @_; + chdir ($dir) || die "chdir($dir) failed: $!"; + print "ctan2tds.pl: chdir($dir)\n"; +} + + # some packages (e.g., vntex) are tl-ready. # @@ -2111,24 +2119,37 @@ sub MAKElfb { } sub MAKElh { -# this simply copies source files - chdir($packagedir) || die ("ERROR: cannot open directory"); -&runjob("mkdir -p $DEST/fonts/source/lh"); -&runjob("mkdir -p $DEST/doc/fonts/lh"); -&runjob("mkdir -p $DEST/source/fonts/lh"); -&runjob("$CP -r doc/* $DEST/doc/fonts/lh"); -&runjob("$CP -r INSTALL *.* tex $DEST/doc/fonts/lh"); -&runjob("$CP -r mf/* $DEST/fonts/source/lh"); - -chdir("tex"); + # this simply copies source files and then runs tex to make .mf's. + &xchdir ($packagedir); + # + &runjob("mkdir -p $DEST/doc/fonts"); + &runjob("$CP -r doc/fonts/lh $DEST/doc/fonts"); + # + &runjob("mkdir -p $DEST/fonts/source"); + &runjob("$CP -r fonts/source/lh $DEST/fonts/source"); + + &runjob("mkdir -p $DEST/source/fonts"); + &runjob("$CP -r source/lh $DEST/source/fonts"); + + &xchdir ("$DEST/source/fonts/lh/tex"); + &runjob("mkdir -p wrk"); # 99allenc.tex wants to write there + &runjob ("tex 99allenc.tex"); +# &inst_lh_fonts ("01cm-lh","lcy"); +# &inst_lh_fonts ("03cm-wn","ot2"); +# &inst_lh_fonts ("11ex-rx","x2"); +# &inst_lh_fonts ("12ex-la","t2a"); +# &inst_lh_fonts ("13ex-lb","t2b"); +# &inst_lh_fonts ("14ex-lc","t2c"); +# &inst_lh_fonts ("15ex-ld","t2d"); +} - &inst_lh_fonts ("12ex-la","t2a"); - &inst_lh_fonts ("13ex-lb","t2b"); - &inst_lh_fonts ("14ex-lc","t2c"); - &inst_lh_fonts ("15ex-ld","t2d"); - &inst_lh_fonts ("11ex-rx","x2"); - &inst_lh_fonts ("03cm-wn","ot2"); - &inst_lh_fonts ("01cm-lh","lcy"); +sub inst_lh_fonts { + my ($texfile,$dir) = @_; + &runjob("tex $texfile "); + &runjob("rm -f $texfile.dvi $texfile.log"); + &runjob("mkdir -p $DEST/fonts/source/lh/lh-$dir"); + &runjob("$CP wrk/*.mf $DEST/fonts/source/lh/lh-$dir"); + &runjob("rm -r wrk/*"); } sub MAKElucida { @@ -2319,13 +2340,16 @@ sub MAKEbeebe { &SYSTEM("rm *"); } +# pstricks packages usually support both plain and latex. +# sub MAKEpst { - print "\t SPECIAL $package starts\n"; + print "\t SPECIAL pst $package starts\n"; $standardtex = qq{^$package\.(tex|sty)}; $whichformat='generic'; $whichdocformat='generic'; + $specialsourcefmt{$package}='generic'; &setup; - chdir("$DEST/doc/$whichdocformat/$package"); + &xchdir("$DEST/doc/$whichdocformat/$package"); &buildfilelist; $inspatt=$standardins if ! $inspatt; @@ -2335,19 +2359,12 @@ sub MAKEpst { &dotex; &dotype1; killfiles($cleanpatt); - &SYSTEM("mkdir -p $DEST/tex/latex/$package; mv $DEST/tex/generic/$package/*sty $DEST/tex/latex/$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"); } -sub inst_lh_fonts { - local($texfile,$dir) = @_; -&runjob("tex $texfile "); -&runjob("rm -f $texfile.dvi $texfile.log"); -&runjob("mkdir -p $DEST/fonts/source/lh/lh-$dir"); -&runjob("$CP wrk/*.mf $DEST/fonts/source/lh/lh-$dir"); -&runjob("rm -r wrk/*"); -} - sub MAKEfontinst { chdir("$packagedir"); &runjob("mkdir -p $DEST/tex/latex/fontinst"); |