texlive[54241] trunk: texfot (11mar20)
commits+karl at tug.org
commits+karl at tug.org
Wed Mar 11 22:18:30 CET 2020
Revision: 54241
http://tug.org/svn/texlive?view=revision&revision=54241
Author: karl
Date: 2020-03-11 22:18:30 +0100 (Wed, 11 Mar 2020)
Log Message:
-----------
texfot (11mar20)
Modified Paths:
--------------
trunk/Build/source/texk/texlive/linked_scripts/texfot/texfot.pl
trunk/Master/texmf-dist/doc/man/man1/texfot.1
trunk/Master/texmf-dist/doc/man/man1/texfot.man1.pdf
trunk/Master/texmf-dist/scripts/texfot/texfot.pl
Modified: trunk/Build/source/texk/texlive/linked_scripts/texfot/texfot.pl
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/texfot/texfot.pl 2020-03-11 21:18:14 UTC (rev 54240)
+++ trunk/Build/source/texk/texlive/linked_scripts/texfot/texfot.pl 2020-03-11 21:18:30 UTC (rev 54241)
@@ -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 @@
# 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 @@
-# 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 @@
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 @@
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
Modified: trunk/Master/texmf-dist/doc/man/man1/texfot.1
===================================================================
--- trunk/Master/texmf-dist/doc/man/man1/texfot.1 2020-03-11 21:18:14 UTC (rev 54240)
+++ trunk/Master/texmf-dist/doc/man/man1/texfot.1 2020-03-11 21:18:30 UTC (rev 54241)
@@ -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
Modified: trunk/Master/texmf-dist/doc/man/man1/texfot.man1.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/scripts/texfot/texfot.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texfot/texfot.pl 2020-03-11 21:18:14 UTC (rev 54240)
+++ trunk/Master/texmf-dist/scripts/texfot/texfot.pl 2020-03-11 21:18:30 UTC (rev 54241)
@@ -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 @@
# 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 @@
-# 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 @@
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 @@
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
More information about the tex-live-commits
mailing list.