From 151e09fa8bfbc7d8091329179c1688f92415d642 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 8 Aug 2017 20:43:00 +0000 Subject: texfot (8aug17) git-svn-id: svn://tug.org/texlive/trunk@44991 c570f23f-e606-0410-a88d-b1316a301751 --- .../texk/texlive/linked_scripts/texfot/texfot.pl | 15 +++++++------ Master/texmf-dist/doc/man/man1/texfot.1 | 24 +++++++++------------ Master/texmf-dist/doc/man/man1/texfot.man1.pdf | Bin 30927 -> 16690 bytes Master/texmf-dist/doc/support/texfot/README | 4 ++-- Master/texmf-dist/scripts/texfot/texfot.pl | 15 +++++++------ 5 files changed, 30 insertions(+), 28 deletions(-) diff --git a/Build/source/texk/texlive/linked_scripts/texfot/texfot.pl b/Build/source/texk/texlive/linked_scripts/texfot/texfot.pl index 48b9f0e9a8f..4a310cf1b30 100755 --- a/Build/source/texk/texlive/linked_scripts/texfot/texfot.pl +++ b/Build/source/texk/texlive/linked_scripts/texfot/texfot.pl @@ -1,5 +1,5 @@ #!/usr/bin/env perl -# $Id: texfot,v 1.32 2016/02/09 19:13:22 karl Exp $ +# $Id: texfot,v 1.37 2017/07/25 15:06:53 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.32 2016/02/09 19:13:22 karl Exp $'; +my $ident = '$Id: texfot,v 1.37 2017/07/25 15:06:53 karl Exp $'; (my $prg = $0) =~ s,^.*/,,; select STDERR; $| = 1; # no buffering select STDOUT; $| = 1; @@ -134,12 +134,13 @@ sub process_output { |LaTeX\ Font\ Warning:\ Size\ substitutions |Package\ caption\ Warning:\ Unsupported\ document\ class |Package\ fixltx2e\ Warning:\ fixltx2e\ is\ not\ required - |Package\ frenchb\.ldf\ Warning:\ (Figures|The\ definition) - |Reloading\ Xunicode\ for\ encoding # spurious *** - |This\ is.*(epsf\.tex|\.sty) # so what + |Package\ frenchb?\.ldf\ Warning:\ (Figures|The\ definition) + |\*\*\*\ Reloading\ Xunicode\ for\ encoding # spurious *** + |This\ is\ `?(epsf\.tex|.*\.sty|TAP) # so what |pdfTeX\ warning:.*inclusion:\ fou #nd PDF version ... |pdfTeX\ warning:.*inclusion:\ mul #tiple pdfs with page group |libpng\ warning:\ iCCP:\ Not\ recognizing + |!\ $ )/x; # don't anchor user ignores, leave it up to them. @@ -152,9 +153,10 @@ sub process_output { if (/^( .*?:[0-9]+: # usual file:lineno: form |! # usual ! form + |>\ [^<] # from \show..., but not "> \ [^<] # from \show..., but not "> 0, we'll generate index entries on stderr for .\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index .\" entries marked with X<> in POD. Of course, you'll have to process the .\" output yourself in some meaningful fashion. @@ -54,20 +54,16 @@ .\" Avoid warning from groff about undefined register 'F'. .de IX .. -.nr rF 0 -.if \n(.g .if rF .nr rF 1 -.if (\n(rF:(\n(.g==0)) \{ -. if \nF \{ -. de IX -. tm Index:\\$1\t\\n%\t"\\$2" +.if !\nF .nr F 0 +.if \nF>0 \{\ +. de IX +. tm Index:\\$1\t\\n%\t"\\$2" .. -. if !\nF==2 \{ -. nr % 0 -. nr F 2 -. \} +. if !\nF==2 \{\ +. nr % 0 +. nr F 2 . \} .\} -.rr rF .\" .\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2). .\" Fear. Run. Save yourself. No user-serviceable parts. @@ -133,7 +129,7 @@ .\" ======================================================================== .\" .IX Title "TEXFOT 1" -.TH TEXFOT 1 "2016-02-09" "texfot" "Karl Berry" +.TH TEXFOT 1 "2017-07-25" "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 index a5feee6c9b3..d19d82fba0f 100644 Binary files a/Master/texmf-dist/doc/man/man1/texfot.man1.pdf and b/Master/texmf-dist/doc/man/man1/texfot.man1.pdf differ diff --git a/Master/texmf-dist/doc/support/texfot/README b/Master/texmf-dist/doc/support/texfot/README index 81b84dc9283..05c1b5b3291 100644 --- a/Master/texmf-dist/doc/support/texfot/README +++ b/Master/texmf-dist/doc/support/texfot/README @@ -12,5 +12,5 @@ Supposedly it is possible to add options to either groff or ps2pdf Originally written in 2014. Released to the public domain. -Author: Karl Berry -Home page: http://ctan.org/pkg/texfot +Author and maintainer: Karl Berry +Home page: https://ctan.org/pkg/texfot diff --git a/Master/texmf-dist/scripts/texfot/texfot.pl b/Master/texmf-dist/scripts/texfot/texfot.pl index 48b9f0e9a8f..4a310cf1b30 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.32 2016/02/09 19:13:22 karl Exp $ +# $Id: texfot,v 1.37 2017/07/25 15:06:53 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.32 2016/02/09 19:13:22 karl Exp $'; +my $ident = '$Id: texfot,v 1.37 2017/07/25 15:06:53 karl Exp $'; (my $prg = $0) =~ s,^.*/,,; select STDERR; $| = 1; # no buffering select STDOUT; $| = 1; @@ -134,12 +134,13 @@ sub process_output { |LaTeX\ Font\ Warning:\ Size\ substitutions |Package\ caption\ Warning:\ Unsupported\ document\ class |Package\ fixltx2e\ Warning:\ fixltx2e\ is\ not\ required - |Package\ frenchb\.ldf\ Warning:\ (Figures|The\ definition) - |Reloading\ Xunicode\ for\ encoding # spurious *** - |This\ is.*(epsf\.tex|\.sty) # so what + |Package\ frenchb?\.ldf\ Warning:\ (Figures|The\ definition) + |\*\*\*\ Reloading\ Xunicode\ for\ encoding # spurious *** + |This\ is\ `?(epsf\.tex|.*\.sty|TAP) # so what |pdfTeX\ warning:.*inclusion:\ fou #nd PDF version ... |pdfTeX\ warning:.*inclusion:\ mul #tiple pdfs with page group |libpng\ warning:\ iCCP:\ Not\ recognizing + |!\ $ )/x; # don't anchor user ignores, leave it up to them. @@ -152,9 +153,10 @@ sub process_output { if (/^( .*?:[0-9]+: # usual file:lineno: form |! # usual ! form + |>\ [^<] # from \show..., but not "> \ [^<] # from \show..., but not ">