texlive[67627] Build/source/texk/web2c/cwebdir: [CWEB] Finally make

[commits+ascherer at tug.org]

Revision: 67627
          http://tug.org/svn/texlive?view=revision&revision=67627
Author:   ascherer
Date:     2023-07-14 17:52:29 +0200 (Fri, 14 Jul 2023)
Log Message:
-----------
[CWEB] Finally make use of type 'mode' -- C-style.

'typedef int mode' was never actually used in CWEB 2.7 and up (and, most
likely, down).  However, 'boolean' and the two @definitions isn't quite
correct either.  See line 3907 of WEAVE.WEB for the original intent.

The new 'typedef enum' restores the classic code in C-style.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/cwebdir/ChangeLog
    trunk/Build/source/texk/web2c/cwebdir/ctwill.bux
    trunk/Build/source/texk/web2c/cwebdir/cweave.w

Modified: trunk/Build/source/texk/web2c/cwebdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ChangeLog	2023-07-13 23:43:54 UTC (rev 67626)
+++ trunk/Build/source/texk/web2c/cwebdir/ChangeLog	2023-07-14 15:52:29 UTC (rev 67627)
@@ -1,3 +1,8 @@
+2023-07-14  Andreas Scherer  <https://ascherer.github.io>
+
+	* ctwill.bux,
+	* cweave.w: Finally make use of type 'mode' -- C-style.
+
 2023-07-13  Andreas Scherer  <https://ascherer.github.io>
 
 	* ctang-{bs,w2c}.ch,

Modified: trunk/Build/source/texk/web2c/cwebdir/ctwill.bux
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctwill.bux	2023-07-13 23:43:54 UTC (rev 67626)
+++ trunk/Build/source/texk/web2c/cwebdir/ctwill.bux	2023-07-14 15:52:29 UTC (rev 67627)
@@ -87,6 +87,9 @@
 
 @$cb_show_banner {COMMON.W}99 \&{void} (\,)@>
 
+@$inner {CTWILL}227 =$0$@>
+@$outer {CTWILL}227 =$1$@>
+
 @$kpse_cweb_format "<kpathsea/types.h>" \zip@>
 @$kpse_find_file "<kpathsea/tex-file.h>" \zip@>
 @$versionstring "<lib/lib.h>" \zip@>

Modified: trunk/Build/source/texk/web2c/cwebdir/cweave.w
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cweave.w	2023-07-13 23:43:54 UTC (rev 67626)
+++ trunk/Build/source/texk/web2c/cwebdir/cweave.w	2023-07-14 15:52:29 UTC (rev 67627)
@@ -3763,14 +3763,16 @@
 token is found, so the stack is never empty except when we first begin the
 output process.
 
- at d inner false /* mode value for \CEE/ texts within \TEX/ texts */
- at d outer true /* mode value for \CEE/ texts in sections */
-
+ at s mode int
 @<Typed...@>=
+typedef enum {
+  @!inner, /* value of |mode| for \CEE/ texts within \TEX/ texts */
+  @!outer /* value of |mode| for \CEE/ texts in sections */
+} mode;
 typedef struct {
   token_pointer end_field; /* ending location of token list */
   token_pointer tok_field; /* present location within token list */
-  boolean mode_field; /* interpretation of control tokens */
+  mode mode_field; /* interpretation of control tokens */
 } output_state;
 typedef output_state *stack_pointer;