diff options
Diffstat (limited to 'Master/tlpkg/libexec/ctan2tds')
-rwxr-xr-x | Master/tlpkg/libexec/ctan2tds | 32 |
1 files changed, 25 insertions, 7 deletions
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds index dbe5605b43a..612a1460e66 100755 --- a/Master/tlpkg/libexec/ctan2tds +++ b/Master/tlpkg/libexec/ctan2tds @@ -1741,6 +1741,7 @@ chomp (my $ctan_root = `tlpkginfo --ctan-root`); 'musixtex' => '&POSTmusixtex', 'musixtnt' => '&POSTmusixtnt', 'niceframe' => '&POST_rmsymlink', + 'novel' => '&POSTnovel', 'numericplots' => '&POSTnumericplots', 'nwejm' => '&POSTnwejm', 'optex' => '&POSToptex', @@ -7238,6 +7239,21 @@ sub POSTmusixtnt { &SYSTEM ("$RM -rf windows"); } +sub POSTnovel { + print "POST$package - mv subdirs\n"; + # similar to onelevel, but the main tree has deep subdirs, + # so have to handle it separately. don't bother trying to generalize. + + my $srcdir = "fonts/opentype/$package"; + &rename_with_mkdir ($srcdir, "$DEST/$srcdir"); + + $srcdir = "tex/lualatex/$package"; + &rename_with_mkdir ($srcdir, "$DEST/$srcdir"); + + # move files in doc/ up to cwd. If there are clashes, will error out. + &xsystem ("$MV doc/* .") if -d "doc"; +} + sub POSTnumericplots { print "POST$package - mv latex subdir\n"; &SYSTEM ("$MV latex $DEST/tex/latex/$package"); @@ -7471,7 +7487,7 @@ sub POSTtikz_cd { } sub POSTtikz_ext { - print "POST$package - per-format subdirs\n" + print "POST$package - per-format subdirs\n"; &xmkdir ("$DEST/tex/generic", "$DEST/tex/latex", "$DEST/tex/plain"); &SYSTEM ("$MV tex/generic $DEST/tex/generic/$package"); &SYSTEM ("$MV tex/latex $DEST/tex/latex/$package"); @@ -7581,7 +7597,7 @@ sub POST_onelevel { next unless -d $dir; # theoretically we should use $whichformat, $sourceformat, # but in practice they are always the same. - $destdir = $dir eq "luatex" ? "tex" : $dir; + my $destdir = $dir eq "luatex" ? "tex" : $dir; &rename_with_mkdir ($dir, "$DEST/$destdir/$whichdocformat/$package"); } # move files in doc/ up to cwd. If there are clashes, will error out. @@ -7589,12 +7605,12 @@ sub POST_onelevel { } sub POST_otherformat { - print "POST$package - move macros up a level\n"; + print "POST_otherformat ($package) - move tex/ dirs up a level\n"; &SYSTEM ("$MV $DEST/tex/$package/$package/* $DEST/tex/$package/"); } sub POST_preserve_postcode { - print "POST$package - preserve tlpostcode/$package-tlpost.pl\n"; + print "POST_preserve_postcode ($package) - preserve tlpostcode/$package-tlpost.pl\n"; my $dirpath = "tlpkg/tlpostcode"; my $dest = "$TOPDEST/$dirpath"; &xmkdir ($dest); @@ -7602,7 +7618,7 @@ sub POST_preserve_postcode { } sub POST_preserve_man { - print "POST$package - preserve man pages\n"; + print "POST_preserve_man ($package) - preserve man pages\n"; &preserve_man_pages ($package); } @@ -7614,6 +7630,7 @@ sub POST_preserve_man { # on CTAN, else doc/*/$package. sub POST_do_man { my ($src_mandir) = @_; + print "POST_do_man - src_mandir = $src_mandir\n"; if ($src_mandir) { ; # explicitly specified, ok. @@ -7646,6 +7663,7 @@ sub POST_do_man { } sub POST_preserve_bin { + print "POST_preserve_bin - binaries = @_\n"; # the pmx package, among others, includes binaries made from Build, # and normal scripts and support files. The latter can get updated # without needing to update the former, so we support it. Which means @@ -7672,12 +7690,12 @@ sub POST_preserve_bin { } sub POST_rmsymlink { - print "POST$package - removing symlinks\n"; + print "POST_rmsymlink ($package) - removing symlinks\n"; &SYSTEM ("find $DEST -type l | xargs --no-run-if-empty $RM"); } sub POST_deref_symlink { - print "POST$package - dereferencing symlinks\n"; + print "POST_deref_symlink ($package) - dereferencing symlinks\n"; &SYSTEM ("find $DEST -type l | xargs deref-symlinks"); } |