texlive[55343] Build/source/texk/web2c: [WEB2C] Improve typography of
commits+ascherer at tug.org
commits+ascherer at tug.org
Sat May 30 18:54:36 CEST 2020
Revision: 55343
http://tug.org/svn/texlive?view=revision&revision=55343
Author: ascherer
Date: 2020-05-30 18:54:36 +0200 (Sat, 30 May 2020)
Log Message:
-----------
[WEB2C] Improve typography of WEB sources.
Modified Paths:
--------------
trunk/Build/source/texk/web2c/ChangeLog
trunk/Build/source/texk/web2c/bibtex.ch
trunk/Build/source/texk/web2c/dvicopy.ch
trunk/Build/source/texk/web2c/dvitype.ch
trunk/Build/source/texk/web2c/gftodvi.ch
trunk/Build/source/texk/web2c/gftopk.ch
trunk/Build/source/texk/web2c/gftype.ch
trunk/Build/source/texk/web2c/mft.ch
trunk/Build/source/texk/web2c/pktogf.ch
trunk/Build/source/texk/web2c/pltotf.ch
trunk/Build/source/texk/web2c/tangle.ch
trunk/Build/source/texk/web2c/tftopl.ch
trunk/Build/source/texk/web2c/vftovp.ch
trunk/Build/source/texk/web2c/vptovf.ch
trunk/Build/source/texk/web2c/weave.ch
Modified: trunk/Build/source/texk/web2c/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ChangeLog 2020-05-29 22:18:11 UTC (rev 55342)
+++ trunk/Build/source/texk/web2c/ChangeLog 2020-05-30 16:54:36 UTC (rev 55343)
@@ -1,3 +1,21 @@
+2020-05-30 Andreas Scherer <https://ascherer.github.io>
+
+ * bibtex.ch,
+ * dvicopy.ch,
+ * dvitype.ch,
+ * gftodvi.ch,
+ * gftopk.ch,
+ * gftype.ch,
+ * mft.ch,
+ * pktogf.ch,
+ * pltotf.ch,
+ * tangle.ch,
+ * tftopl.ch,
+ * vftovp.ch,
+ * vptovf.ch,
+ * weave.ch: 'do_nothing' for something; this improves the
+ typographic output of the WEB sources with changes applied.
+
2020-05-25 Andreas Scherer <https://ascherer.github.io>
* bibtex.ch,
Modified: trunk/Build/source/texk/web2c/bibtex.ch
===================================================================
--- trunk/Build/source/texk/web2c/bibtex.ch 2020-05-29 22:18:11 UTC (rev 55342)
+++ trunk/Build/source/texk/web2c/bibtex.ch 2020-05-30 16:54:36 UTC (rev 55343)
@@ -1621,7 +1621,7 @@
getopt_return_val := getopt_long_only (argc, argv, '', long_options,
address_of (option_index));
if getopt_return_val = -1 then begin
- {End of arguments; we exit the loop below.} ;
+ do_nothing; {End of arguments; we exit the loop below.}
end else if getopt_return_val = "?" then begin
usage (my_name);
Modified: trunk/Build/source/texk/web2c/dvicopy.ch
===================================================================
--- trunk/Build/source/texk/web2c/dvicopy.ch 2020-05-29 22:18:11 UTC (rev 55342)
+++ trunk/Build/source/texk/web2c/dvicopy.ch 2020-05-30 16:54:36 UTC (rev 55343)
@@ -523,7 +523,7 @@
getopt_return_val := getopt_long_only (argc, argv, '', long_options,
address_of (option_index));
if getopt_return_val = -1 then begin
- {End of arguments; we exit the loop below.} ;
+ do_nothing; {End of arguments; we exit the loop below.}
end else if getopt_return_val = "?" then begin
usage (my_name);
Modified: trunk/Build/source/texk/web2c/dvitype.ch
===================================================================
--- trunk/Build/source/texk/web2c/dvitype.ch 2020-05-29 22:18:11 UTC (rev 55342)
+++ trunk/Build/source/texk/web2c/dvitype.ch 2020-05-30 16:54:36 UTC (rev 55343)
@@ -513,7 +513,7 @@
getopt_return_val := getopt_long_only (argc, argv, '', long_options,
address_of (option_index));
if getopt_return_val = -1 then begin
- {End of arguments; we exit the loop below.} ;
+ do_nothing; {End of arguments; we exit the loop below.}
end else if getopt_return_val = "?" then begin
usage (my_name);
Modified: trunk/Build/source/texk/web2c/gftodvi.ch
===================================================================
--- trunk/Build/source/texk/web2c/gftodvi.ch 2020-05-29 22:18:11 UTC (rev 55342)
+++ trunk/Build/source/texk/web2c/gftodvi.ch 2020-05-30 16:54:36 UTC (rev 55343)
@@ -613,7 +613,7 @@
getopt_return_val := getopt_long_only (argc, argv, '', long_options,
address_of (option_index));
if getopt_return_val = -1 then begin
- {End of arguments; we exit the loop below.} ;
+ do_nothing; {End of arguments; we exit the loop below.}
end else if getopt_return_val = "?" then begin
usage (my_name);
Modified: trunk/Build/source/texk/web2c/gftopk.ch
===================================================================
--- trunk/Build/source/texk/web2c/gftopk.ch 2020-05-29 22:18:11 UTC (rev 55342)
+++ trunk/Build/source/texk/web2c/gftopk.ch 2020-05-30 16:54:36 UTC (rev 55343)
@@ -389,6 +389,7 @@
Parse a Unix-style command line.
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
+ at d do_nothing == {empty statement}
@<Define |parse_arguments|@> =
procedure parse_arguments;
@@ -404,7 +405,7 @@
getopt_return_val := getopt_long_only (argc, argv, '', long_options,
address_of (option_index));
if getopt_return_val = -1 then begin
- {End of arguments; we exit the loop below.} ;
+ do_nothing; {End of arguments; we exit the loop below.}
end else if getopt_return_val = "?" then begin
usage (my_name); {|getopt| has already given an error message.}
Modified: trunk/Build/source/texk/web2c/gftype.ch
===================================================================
--- trunk/Build/source/texk/web2c/gftype.ch 2020-05-29 22:18:11 UTC (rev 55342)
+++ trunk/Build/source/texk/web2c/gftype.ch 2020-05-30 16:54:36 UTC (rev 55343)
@@ -426,6 +426,7 @@
Parse a Unix-style command line.
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
+ at d do_nothing == {empty statement}
@<Define |parse_arguments|@> =
procedure parse_arguments;
@@ -440,7 +441,7 @@
getopt_return_val := getopt_long_only (argc, argv, '', long_options,
address_of (option_index));
if getopt_return_val = -1 then begin
- {End of arguments; we exit the loop below.} ;
+ do_nothing; {End of arguments; we exit the loop below.}
end else if getopt_return_val = "?" then begin
usage (my_name);
Modified: trunk/Build/source/texk/web2c/mft.ch
===================================================================
--- trunk/Build/source/texk/web2c/mft.ch 2020-05-29 22:18:11 UTC (rev 55342)
+++ trunk/Build/source/texk/web2c/mft.ch 2020-05-30 16:54:36 UTC (rev 55343)
@@ -988,7 +988,7 @@
getopt_return_val := getopt_long_only (argc, argv, '', long_options,
address_of (option_index));
if getopt_return_val = -1 then begin
- {End of arguments; we exit the loop below.} ;
+ do_nothing; {End of arguments; we exit the loop below.}
end else if getopt_return_val = "?" then begin
usage (my_name);
Modified: trunk/Build/source/texk/web2c/pktogf.ch
===================================================================
--- trunk/Build/source/texk/web2c/pktogf.ch 2020-05-29 22:18:11 UTC (rev 55342)
+++ trunk/Build/source/texk/web2c/pktogf.ch 2020-05-30 16:54:36 UTC (rev 55343)
@@ -458,7 +458,7 @@
getopt_return_val := getopt_long_only (argc, argv, '', long_options,
address_of (option_index));
if getopt_return_val = -1 then begin
- {End of arguments; we exit the loop below.} ;
+ do_nothing; {End of arguments; we exit the loop below.}
end else if getopt_return_val = "?" then begin
usage (my_name);
Modified: trunk/Build/source/texk/web2c/pltotf.ch
===================================================================
--- trunk/Build/source/texk/web2c/pltotf.ch 2020-05-29 22:18:11 UTC (rev 55342)
+++ trunk/Build/source/texk/web2c/pltotf.ch 2020-05-30 16:54:36 UTC (rev 55343)
@@ -272,7 +272,7 @@
getopt_return_val := getopt_long_only (argc, argv, '', long_options,
address_of (option_index));
if getopt_return_val = -1 then begin
- {End of arguments; we exit the loop below.} ;
+ do_nothing; {End of arguments; we exit the loop below.}
end else if getopt_return_val = "?" then begin
usage (my_name);
Modified: trunk/Build/source/texk/web2c/tangle.ch
===================================================================
--- trunk/Build/source/texk/web2c/tangle.ch 2020-05-29 22:18:11 UTC (rev 55342)
+++ trunk/Build/source/texk/web2c/tangle.ch 2020-05-30 16:54:36 UTC (rev 55343)
@@ -670,7 +670,7 @@
getopt_return_val := getopt_long_only (argc, argv, '', long_options,
address_of (option_index));
if getopt_return_val = -1 then begin
- {End of arguments; we exit the loop below.} ;
+ do_nothing; {End of arguments; we exit the loop below.}
end else if getopt_return_val = "?" then begin
usage (my_name);
Modified: trunk/Build/source/texk/web2c/tftopl.ch
===================================================================
--- trunk/Build/source/texk/web2c/tftopl.ch 2020-05-29 22:18:11 UTC (rev 55342)
+++ trunk/Build/source/texk/web2c/tftopl.ch 2020-05-30 16:54:36 UTC (rev 55343)
@@ -347,7 +347,7 @@
getopt_return_val := getopt_long_only (argc, argv, '', long_options,
address_of (option_index));
if getopt_return_val = -1 then begin
- {End of arguments; we exit the loop below.} ;
+ do_nothing; {End of arguments; we exit the loop below.}
end else if getopt_return_val = "?" then begin
usage (my_name);
Modified: trunk/Build/source/texk/web2c/vftovp.ch
===================================================================
--- trunk/Build/source/texk/web2c/vftovp.ch 2020-05-29 22:18:11 UTC (rev 55342)
+++ trunk/Build/source/texk/web2c/vftovp.ch 2020-05-30 16:54:36 UTC (rev 55343)
@@ -562,7 +562,8 @@
getopt_return_val := getopt_long_only (argc, argv, '', long_options,
address_of (option_index));
if getopt_return_val = -1 then begin
- {End of arguments; we exit the loop below.} ;
+ do_nothing; {End of arguments; we exit the loop below.}
+
end else if getopt_return_val = "?" then begin
usage (my_name);
Modified: trunk/Build/source/texk/web2c/vptovf.ch
===================================================================
--- trunk/Build/source/texk/web2c/vptovf.ch 2020-05-29 22:18:11 UTC (rev 55342)
+++ trunk/Build/source/texk/web2c/vptovf.ch 2020-05-30 16:54:36 UTC (rev 55343)
@@ -246,7 +246,7 @@
getopt_return_val := getopt_long_only (argc, argv, '', long_options,
address_of (option_index));
if getopt_return_val = -1 then begin
- {End of arguments; we exit the loop below.} ;
+ do_nothing; {End of arguments; we exit the loop below.}
end else if getopt_return_val = "?" then begin
usage (my_name); {|getopt| has already given an error message.}
Modified: trunk/Build/source/texk/web2c/weave.ch
===================================================================
--- trunk/Build/source/texk/web2c/weave.ch 2020-05-29 22:18:11 UTC (rev 55342)
+++ trunk/Build/source/texk/web2c/weave.ch 2020-05-30 16:54:36 UTC (rev 55343)
@@ -364,7 +364,7 @@
getopt_return_val := getopt_long_only (argc, argv, '', long_options,
address_of (option_index));
if getopt_return_val = -1 then begin
- {End of arguments; we exit the loop below.} ;
+ do_nothing; {End of arguments; we exit the loop below.}
end else if getopt_return_val = "?" then begin
usage (my_name);
More information about the tex-live-commits
mailing list.