diff options
Diffstat (limited to 'Master')
-rw-r--r-- | Master/texmf-dist/doc/man/man1/texfot.1 | 2 | ||||
-rw-r--r-- | Master/texmf-dist/doc/man/man1/texfot.man1.pdf | bin | 30397 -> 30175 bytes | |||
-rwxr-xr-x | Master/texmf-dist/scripts/texfot/texfot.pl | 19 |
3 files changed, 12 insertions, 9 deletions
diff --git a/Master/texmf-dist/doc/man/man1/texfot.1 b/Master/texmf-dist/doc/man/man1/texfot.1 index 3691e276fcc..8d59a59bbdd 100644 --- a/Master/texmf-dist/doc/man/man1/texfot.1 +++ b/Master/texmf-dist/doc/man/man1/texfot.1 @@ -133,7 +133,7 @@ .\" ======================================================================== .\" .IX Title "TEXFOT 1" -.TH TEXFOT 1 "2019-06-30" "texfot" "Karl Berry" +.TH TEXFOT 1 "2020-03-10" "texfot" "Karl Berry" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l diff --git a/Master/texmf-dist/doc/man/man1/texfot.man1.pdf b/Master/texmf-dist/doc/man/man1/texfot.man1.pdf Binary files differindex 0108b96443f..bff64e32851 100644 --- a/Master/texmf-dist/doc/man/man1/texfot.man1.pdf +++ b/Master/texmf-dist/doc/man/man1/texfot.man1.pdf diff --git a/Master/texmf-dist/scripts/texfot/texfot.pl b/Master/texmf-dist/scripts/texfot/texfot.pl index 3915539d486..e49d5f1efc9 100755 --- a/Master/texmf-dist/scripts/texfot/texfot.pl +++ b/Master/texmf-dist/scripts/texfot/texfot.pl @@ -1,5 +1,5 @@ #!/usr/bin/env perl -# $Id: texfot,v 1.38 2019/06/30 22:59:39 karl Exp $ +# $Id: texfot,v 1.40 2020/03/10 22:35:15 karl Exp $ # Invoke a TeX command, filtering all but interesting terminal output; # do not look at the log or check any output files. # Exit status is that of the subprogram. @@ -8,7 +8,7 @@ # # Public domain. Originally written 2014 by Karl Berry. -my $ident = '$Id: texfot,v 1.38 2019/06/30 22:59:39 karl Exp $'; +my $ident = '$Id: texfot,v 1.40 2020/03/10 22:35:15 karl Exp $'; (my $prg = $0) =~ s,^.*/,,; select STDERR; $| = 1; # no buffering select STDOUT; $| = 1; @@ -83,7 +83,7 @@ sub main { # It's not ideal to read all of stdout and then all of stderr; it would # be better to intermix them in the original order of child output. - # this is simpler than other ways of avoiding possible deadlock (such + # But this is simpler than other ways of avoiding possible deadlock (such # as select, sysread, etc.). &debug ("processing stdout from child"); &process_output (\*TEXOUT, ""); @@ -104,9 +104,10 @@ sub main { -# Read filehandle $FH; print lines that we want to stdout, prefixed by -# $PREFIX. If $PREFIX is null, omit lines by default; if $PREFIX is -# non-null, print lines by default. +# Read filehandle $FH, printing lines that we want to stdout, +# prefixed by $PREFIX. +# If $PREFIX is null (happens for processing stdout), omit lines by default; +# if $PREFIX is non-null (processing stderr), print lines by default. # sub process_output { my ($fh,$prefix) = @_; @@ -118,7 +119,8 @@ sub process_output { warn "\n" if $opt_debug; # get blank line without texfot: prefix &debug ("looking at line: $_"); - &debug ("checking if have print_next (is $print_next)\n"); + + &debug ("checking if have print_next (= $print_next)\n"); if ($print_next) { &debug (" printing next ($print_next)\n"); print $prefix; @@ -132,8 +134,9 @@ sub process_output { LaTeX\ Warning:\ You\ have\ requested\ package |LaTeX\ Font\ Warning:\ Some\ font\ shapes |LaTeX\ Font\ Warning:\ Size\ substitutions - |Package\ caption\ Warning:\ Unsupported\ document\ class + |Package\ caption\ Warning:\ Un(supported|known)\ document\ class |Package\ fixltx2e\ Warning:\ fixltx2e\ is\ not\ required + |Package\ layouts\ Warning:\ Layout\ scale |Package\ frenchb?\.ldf\ Warning:\ (Figures|The\ definition) |\*\*\*\ Reloading\ Xunicode\ for\ encoding # spurious *** |This\ is\ `?(epsf\.tex|.*\.sty|TAP) # so what |