diff options
Diffstat (limited to 'Master/tlpkg/libexec/ctan2tds')
| -rwxr-xr-x | Master/tlpkg/libexec/ctan2tds | 33 |
1 files changed, 19 insertions, 14 deletions
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds index 63ffde95d74..45640235d51 100755 --- a/Master/tlpkg/libexec/ctan2tds +++ b/Master/tlpkg/libexec/ctan2tds @@ -1123,6 +1123,7 @@ chomp ($Build = `cd $Master/../Build/source && pwd`); 'skb' => '&PREHOOK_flatten1', 'suftesi' => '&PREHOOK_suftesi', 'texdraw' => '&PREHOOK_texdraw', + 'texfot' => '&PREHOOK_texfot', 'tui' => '&PREHOOK_tui', 'vhistory' => '&PREHOOK_vhistory', 'wsuipa' => '&PREHOOK_wsuipa', @@ -2505,6 +2506,7 @@ $standardxmt='\.xmt'; 'texdef' => '\.pl$', 'texdiff' => 'texdiff$', 'texdirflatten' => 'texdirflatten$', + 'texfot' => 'texfot\.pl$', 'texliveonfly' => '\.py$', 'texloganalyser' => 'texloganalyser', 'typeoutfileinfo' => '\.sh$', @@ -2552,6 +2554,7 @@ $standardxmt='\.xmt'; 'splitindex' => '\.1$', 'sty2dtx' => '\.1$', 'texdiff' => 'texdiff.1', + 'texfot' => '\.1$', 'texdirflatten' => 'texdirflatten.1', 'wheretotrim' => '\.1$', ); @@ -4772,20 +4775,6 @@ sub PREHOOK_fontools { &SYSTEM ("$RM -rf doc"); # remove distributed pdf's } -sub PREHOOK_latex_git_log { - print "PREHOOK_$package - make .1 with pod2man\n"; - &prehook_pod2man ("Robin Schneider", $package); -} - -sub prehook_pod2man { - my ($author,@scripts) = @_; - for my $script (@scripts) { - my $pod2man = qq(pod2man --center="$author" --release="$package") - . ' --section=1'; - &SYSTEM ("$pod2man $script - >$script.1"); - } -} - sub PREHOOK_ibygrk { print "PREHOOK_$package - handle ibycus4.map\n"; # ibygrk has two instances of the same file ibycus4.map; it is @@ -4864,6 +4853,12 @@ sub PREHOOK_texdraw { &SYSTEM ("cd manual && $RM *.c *.h texi2dvi texinfo.tex"); } +sub PREHOOK_texfot { + print "PREHOOK_$package - make .1 with pod2man\n"; + &prehook_pod2man ("Karl Berry", "$package.pl"); + &SYSTEM ("$RM $package.pdf"); +} + sub PREHOOK_tui { print "PREHOOK_$package - flatten only some subdirs\n"; &SYSTEM ("$MV doc/* tex/* ."); @@ -4887,6 +4882,16 @@ sub PREHOOK_wsuipa { } +sub prehook_pod2man { + my ($author,@scripts) = @_; + for my $script (@scripts) { + my $pod2man = qq(pod2man --center="$author" --release="$package") + . ' --section=1'; + (my $base = $script) =~ s,\.pl$,,; + &SYSTEM ("$pod2man $script - >$base.1"); + } +} + sub POSTamscls { print "POST$package - bst/amscls, rm dup sources, restore amsbooka\n"; |