diff options
Diffstat (limited to 'Master/tlpkg/libexec/ctan2tds')
-rwxr-xr-x | Master/tlpkg/libexec/ctan2tds | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds index 4a09e216f89..6ab7e0f1d2a 100755 --- a/Master/tlpkg/libexec/ctan2tds +++ b/Master/tlpkg/libexec/ctan2tds @@ -1742,6 +1742,7 @@ chomp (my $ctan_root = `tlpkginfo --ctan-root`); 'mflogo' => '&POST_rmsymlink', 'moderncv' => '&POST_deref_symlink', 'montex' => '&POSTmontex', + 'mpchess' => '&POST_onelevel', 'mpfonts' => '&POSTmpfonts', 'mptopdf' => '&POSTmptopdf', 'musixtex' => '&POSTmusixtex', @@ -7605,7 +7606,7 @@ sub POSTzhmetrics { # sub POST_onelevel { print "POST_onelevel ($package) - handle doc/source/tex directories\n"; - for my $dir ("opentype", "source", "tex", "latex", "lualatex", "luatex") { + for my $dir (qw(latex lualatex luatex metapost opentype source tex)) { next unless -d $dir; # theoretically we should use $whichformat, $sourceformat, # but in practice they are always the same. @@ -7613,13 +7614,16 @@ sub POST_onelevel { my $destdir = $dir; if ($dir =~ /(lua)?(la)?tex/) { $destdir = "tex/$which"; + } elsif ($dir =~ /metapost/) { + $format = ""; # metapost/PKGNAME } elsif ($dir =~ /opentype/) { $destdir = "fonts"; - $format = $dir; # but fonts tree is structured differently + my $foundry = $specialfoundry{$package} || $standardfoundry; + $format = "$foundry/$dir"; # fonts/opentype/public/PKGNAME } &rename_with_mkdir ($dir, "$DEST/$destdir/$format/$package"); } - # move files in doc/ up to cwd. If there are clashes, will error out. + # move files in doc[s]/ up to cwd. If there are clashes, will error out. &xsystem ("$MV doc/* .") if -d "doc"; &xsystem ("$MV docs/* .") if -d "docs"; } |