texfot

git-svn-id: svn://tug.org/texlive/trunk@33155 c570f23f-e606-0410-a88d-b1316a301751

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";