diff options
Diffstat (limited to 'Build/cdbuild/ctan2tds.pl')
-rwxr-xr-x | Build/cdbuild/ctan2tds.pl | 30 |
1 files changed, 23 insertions, 7 deletions
diff --git a/Build/cdbuild/ctan2tds.pl b/Build/cdbuild/ctan2tds.pl index ef6e92885d7..f1ae4ea2d50 100755 --- a/Build/cdbuild/ctan2tds.pl +++ b/Build/cdbuild/ctan2tds.pl @@ -1043,10 +1043,10 @@ $standardbib='\.bib$'; # $ so we don't find README.bibtex in IEEEtran 'umthesis', 'NULL', ); -# packages which have Metafont sources to compile or install. +# packages which have Metafont sources to run. $standardmf='[0-9]\.mf'; %specialmf= ( - 'astro', 'astro.mf', + 'astro', 'astrosym.mf', 'backgammon', 'bg\.mf', 'cherokee', 'cherokee.mf', 'circ', 'csybimos\.mf|csycirc\.mf|csydiod\.mf|csyrest\.mf|csywidko\.mf|csysym\.mf|optic\.mf', @@ -1075,6 +1075,11 @@ $standardmf='[0-9]\.mf'; 'xq', 'xq(normal|large)\.mf', ); +# additional mf files to be installed but not run. +%specialmfinstall = ( + 'astro', 'astrosym.(cal|cmn|mac|uni|xtr)', +); + # packages which have dvips header files $standardpro='\.pro'; %specialpro= ( @@ -1210,8 +1215,10 @@ sub set_dir_defaults my ($ctan_dir) = @_; my $changed = 1; - if ($ctan_dir =~ m!/graphics/metapost!) { + if ($ctan_dir =~ m!/graphics/metapost/!) { $standardfmt = $standarddocfmt = $standardsourcefmt = "metapost"; + } elsif ($ctan_dir =~ m!/fonts/!) { + $standardfmt = $standarddocfmt = $standardsourcefmt = "fonts"; } else { $changed = 0; } @@ -1592,13 +1599,22 @@ sub runmf { &runjob("mktextfm --destdir=`pwd` $FileBase.tfm"); } } + if ($needdir) { - &SYSTEM("mkdir -p $DEST/fonts/source/$Foundry/$package"); + my $mfdir = "$DEST/fonts/source/$Foundry/$package"; + &SYSTEM ("mkdir -p $mfdir"); + # # don't use $mfpatt since that's only the tfm-able mf files. - &runjob("$MV *.mf $DEST/fonts/source/$Foundry/$package"); - &SYSTEM("rm -f *pk"); # not worth the space + &SYSTEM ("$MV *.mf $mfdir"); + if (exists $specialmfinstall{$package}) { + my @inst = grep (/$specialmfinstall{$package}/, @filenames); + &SYSTEM ("$MV @inst $mfdir"); + } + # + &SYSTEM ("rm -f *pk"); # not worth the space + } else { - print "\t (no $mfpatt)\n"; + print "\t (no $mfpatt to runmf)\n"; } } |