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.