diff options
Diffstat (limited to 'Master/tlpkg/bin/ctan2tds')
-rwxr-xr-x | Master/tlpkg/bin/ctan2tds | 57 |
1 files changed, 25 insertions, 32 deletions
diff --git a/Master/tlpkg/bin/ctan2tds b/Master/tlpkg/bin/ctan2tds index af7dafcf7cd..429ec583103 100755 --- a/Master/tlpkg/bin/ctan2tds +++ b/Master/tlpkg/bin/ctan2tds @@ -345,6 +345,7 @@ chdir $startdir || die "chdir($startdir) failed: $!"; # back to raw 'refstyle', "&MAKEcopy", 'revtex', "&MAKEflatten", 'sae', "die 'skipping, nosell license'", + 'semaphor', "&MAKEflatten", 'seminar', "&MAKEseminar", 'showexpl', "&MAKEflatten", 'siam', "&MAKEsiam", @@ -425,7 +426,6 @@ chdir $startdir || die "chdir($startdir) failed: $!"; # back to raw 'pdfscreen', 'pdflatex', 'pdfslide', 'pdflatex', 'pl-qx', 'platex', - 'semaphor', 'tex', 'subfig', 'pdflatex', 'texsis', 'tex', 'typespec', 'tex', @@ -453,6 +453,7 @@ $standardsource='\.fdd|\.dtx|\.ins|\.c$|Makefile|\.drv'; 'hyphenex', ".*", 'pgfplots', 'NULL', # keep manual.install.tex in doc/ 'rcs', "$standardsource|rcs.el|src", + 'semaphor', 'NULL', # keep Makefile in doc/ ); %specialfoundry = ( @@ -1036,7 +1037,6 @@ $standardtex='\.cfg|\.sty|\.clo|\.ldf|\.cls|\.def|\.fd$'; 'rcsinfo', 'rcsinfo2html.tex', 'refman', 'layout.tex|\.dtx', 'rlepsf', 'NULL', - 'semaphor', 'example.tex', # 'skak', 'skakdoc.tex', # skak authors upload .ps files 'soul', 'soul.dtx', 'startex', 'NULL', @@ -1145,6 +1145,7 @@ $standardmf='[0-9]\.mf'; 'mfpic', 'grafbase\.mf', 'morse', 'morse10.mf|morse.def', 'ogham', 'ogham\.mf', + 'semaphor', 'NULL', # already made 'skak', 'skak.*[0-9].*\.mf', 'tengwar', 'tengwar\.mf', 'umrand', 'umrand[ab]\.mf', @@ -1153,7 +1154,8 @@ $standardmf='[0-9]\.mf'; # additional mf files to be installed but not run. %specialmfinstall = ( - 'astro', 'astrosym.(cal|cmn|mac|uni|xtr)', + 'astro' => 'astrosym.(cal|cmn|mac|uni|xtr)', + 'semaphor' => '\.mp$', # actually mt1 sources ); # packages which have dvips header files @@ -1641,8 +1643,17 @@ sub doxmt{ # build the font files sub domf { - $mfpatt = $specialmf{$package} || $standardmf; - &runmf ($mfpatt); + $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 { @@ -1747,33 +1758,15 @@ sub buildfilelist { } sub runmf { - my ($mfpatt) = @_; - my $needdir=0; - print "\t Make fonts for $package ($mfpatt)\n"; - for (grep(/$mfpatt/,@filenames)) { - $needdir=1; - ($FileBase,$Filepath,$Filesuffix) = fileparse($_,"\.[A-z]*"); - if (! -e "$FileBase.tfm") { - print "\t\t Make TFM from $_\n"; - &runjob("mktextfm --destdir=`pwd` $FileBase.tfm"); - } - } - - if ($needdir) { - my $mfdir = "$DEST/fonts/source/$Foundry/$package"; - &SYSTEM ("mkdir -p $mfdir"); - # - # don't use $mfpatt since that's only the tfm-able mf files. - &SYSTEM ("$MV *.mf $mfdir"); - if (exists $specialmfinstall{$package}) { - my @inst = grep (/$specialmfinstall{$package}/, @filenames); - &SYSTEM ("$MV @inst $mfdir"); - } - # - &SYSTEM ("$RM *pk"); # not worth the space - - } else { - print "\t (no $mfpatt to runmf)\n"; + my ($mfpatt) = @_; + print "\t Make fonts for $package ($mfpatt)\n"; + for (grep (/$mfpatt/,@filenames)) { + ($FileBase,$Filepath,$Filesuffix) = fileparse ($_,"\.[A-z]*"); + if (! -e "$FileBase.tfm") { + print "\t\t Make TFM from $_\n"; + &runjob("mktextfm --destdir=`pwd` $FileBase.tfm"); + &SYSTEM ("$RM *pk"); # not worth the space + } } } |