diff options
Diffstat (limited to 'Master/tlpkg/libexec/ctan2tds')
| -rwxr-xr-x | Master/tlpkg/libexec/ctan2tds | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds index 5e920332ab3..a05f129581b 100755 --- a/Master/tlpkg/libexec/ctan2tds +++ b/Master/tlpkg/libexec/ctan2tds @@ -1403,6 +1403,7 @@ chomp (my $ctan_root = `tlpkginfo --ctan-root`); %prehook = ( 'a2ping' => '&PREHOOK_a2ping', 'apa6' => '&PREHOOK_apa6', + 'apa7' => '&PREHOOK_apa7', 'cals' => '&PREHOOK_cals', 'chess' => '&PREHOOK_chess', 'clojure-pamphlet' => '&PREHOOK_clojure_pamphlet', @@ -4296,17 +4297,19 @@ sub runjob { my $lastline = $output[$#output-1]; print "runjob mktextfm last output line: $lastline\n"; # it's too verbose to print the full mf run of every font. - # but if mktextfm failed, show that. + # but if mktextfm failed, show it. print `cat $Jobid.log` if $status != 0; - $status = 0; # do not worry if the bitmap failed, e.g., grtt10.mf. + $#status = 0; # do not worry if the bitmap failed, e.g., grtt10.mf. } else { print `cat $Jobid.log`; } close (TMP); system ("$RM -f /tmp/$Jobid.log; mv $Jobid.log /tmp"); # save last log - die "goodbye, exit status $status for $job\n" + die "*** goodbye, exit status $status for $job\n" if $status != 0; + die "*** goodbye, files could not be generated for $job\n" + if "@output" =~ /can't write on file/; } return $status; } @@ -5531,6 +5534,11 @@ sub PREHOOK_apa6 { &SYSTEM ("mkdir config pseudoTeX"); } +sub PREHOOK_apa7 { + print "PREHOOK_$package - subdirectories needed for dtx\n"; + &SYSTEM ("mkdir config"); +} + sub PREHOOK_cals { print "PREHOOK_$package - flatten only cals subdir\n"; &SYSTEM ("$MV cals/* ."); |