diff options
author | Karl Berry <karl@freefriends.org> | 2023-05-14 22:19:41 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2023-05-14 22:19:41 +0000 |
commit | d18d21a758787aaa6047f5cce6441ea014016e3c (patch) | |
tree | 7604a77584fa79c550563b65e4f1468f4eebf784 /Master/tlpkg/libexec | |
parent | e4616cf8d3d0715fd8c78ba8c663f940d58512a9 (diff) |
context-handlecsv
git-svn-id: svn://tug.org/texlive/trunk@67115 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/libexec')
-rwxr-xr-x | Master/tlpkg/libexec/ctan2tds | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds index d6128bb5822..e809e44cb1a 100755 --- a/Master/tlpkg/libexec/ctan2tds +++ b/Master/tlpkg/libexec/ctan2tds @@ -1588,6 +1588,7 @@ chomp (my $ctan_root = `tlpkginfo --ctan-root`); 'cm-super' => '&PREHOOK_cm_super', 'cmextra' => '&PREHOOK_cmextra', 'concrete' => '&PREHOOK_concrete', + 'context-handlecsv' => '&PREHOOK_context_handlecsv', 'ctan-o-mat' => '&PREHOOK_ctan_o_mat', 'dynblocks' => '&PREHOOK_flatten1', 'easyfloats' => '&PREHOOK_flatten1', @@ -4166,7 +4167,7 @@ sub preserve_man_pages { sub run_prehook { my $prehook = $prehook{$package}; if ($prehook) { - print "\t PREHOOK: running $prehook\n"; + print "\t PREHOOK: running $prehook in " . `pwd`; eval $prehook; die "$package failed in $prehook: $@" if $@; print "\t PREHOOK: finished $prehook\n"; @@ -4190,6 +4191,12 @@ sub MAKEcopy { # do the copy. &SYSTEM ("$CP -r * $dest"); + # allow for playing around after the copy. The prehook stuff was + # invented before the following special cases; not worth cleaning up. + # Many of them would be better as posthooks anyway. + &xchdir ($dest); + &run_prehook (); + my $docdir = "$dest/doc/$whichdocformat/$package/"; &xmkdir ($docdir); @@ -6134,6 +6141,11 @@ sub PREHOOK_concrete { # symlinks will get removed afterward by MAKEflatten. } +sub PREHOOK_context_handlecsv { + print "PREHOOK_$package - remove top level\n"; + &SYSTEM ("$MV handlecsv-context-suite/* ."); +} + sub PREHOOK_ctan_o_mat { print "PREHOOK_$package - make .1 with pod2man\n"; &prehook_pod2man ("Gerd Neugebauer", "$package.pl"); @@ -6751,7 +6763,7 @@ sub build_scripts_copy { } sub POST_context_contrib { - print "POST_context_contrib for $package - move top-level files file\n"; + print "POST_context_contrib for $package - move top-level files\n"; (my $context_package = $package) =~ s/^context-//; my $destdir = "$DEST/doc/context/third/$context_package"; &mv_with_mkdir ("LICENSE", "$DEST/doc/context/third/$context_package"); |