texlive[67855] Build/source/texk/web2c: [CWEB] Purge single-use

[commits+ascherer at tug.org]

Revision: 67855
          http://tug.org/svn/texlive?view=revision&revision=67855
Author:   ascherer
Date:     2023-08-09 11:04:34 +0200 (Wed, 09 Aug 2023)
Log Message:
-----------
[CWEB] Purge single-use macro.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ctangleboot.cin
    trunk/Build/source/texk/web2c/cwebdir/ctangle.c
    trunk/Build/source/texk/web2c/cwebdir/ctangle.w
    trunk/Build/source/texk/web2c/cwebdir/cweave.w

Modified: trunk/Build/source/texk/web2c/ctangleboot.cin
===================================================================
--- trunk/Build/source/texk/web2c/ctangleboot.cin	2023-08-08 23:43:13 UTC (rev 67854)
+++ trunk/Build/source/texk/web2c/ctangleboot.cin	2023-08-09 09:04:34 UTC (rev 67855)
@@ -143,7 +143,7 @@
 #define macro_end (cur_text+1) ->tok_start \
 
 #define C_printf(c,a) fprintf(C_file,c,a) 
-#define C_putc(c) putc((int) (c) ,C_file)  \
+#define C_putc(c) fputc((int) (c) ,C_file)  \
 
 #define translit_length 10 \
 

Modified: trunk/Build/source/texk/web2c/cwebdir/ctangle.c
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctangle.c	2023-08-08 23:43:13 UTC (rev 67854)
+++ trunk/Build/source/texk/web2c/cwebdir/ctangle.c	2023-08-09 09:04:34 UTC (rev 67855)
@@ -129,7 +129,7 @@
 #define macro_end (cur_text+1) ->tok_start \
 
 #define C_printf(c,a) fprintf(C_file,c,a) 
-#define C_putc(c) putc((int) (c) ,C_file)  \
+#define C_putc(c) fputc((int) (c) ,C_file)  \
 
 #define translit_length 10 \
 

Modified: trunk/Build/source/texk/web2c/cwebdir/ctangle.w
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctangle.w	2023-08-08 23:43:13 UTC (rev 67854)
+++ trunk/Build/source/texk/web2c/cwebdir/ctangle.w	2023-08-09 09:04:34 UTC (rev 67855)
@@ -580,7 +580,7 @@
 @ @d macro_end (cur_text+1)->tok_start /* end of |macro| replacement text */
 @#
 @d C_printf(c,a) fprintf(C_file,c,a)
- at d C_putc(c) putc((int)(c),C_file) /* isn't \CEE/ wonderfully consistent? */
+ at d C_putc(c) fputc((int)(c),C_file) /* isn't \CEE/ wonderfully consistent? */
 
 @c
 static void

Modified: trunk/Build/source/texk/web2c/cwebdir/cweave.w
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cweave.w	2023-08-08 23:43:13 UTC (rev 67854)
+++ trunk/Build/source/texk/web2c/cwebdir/cweave.w	2023-08-09 09:04:34 UTC (rev 67855)
@@ -1347,9 +1347,8 @@
 of commented-out text).
 
 @d c_line_write(c) fflush(active_file),fwrite(out_buf+1,sizeof(char),c,active_file)
- at d tex_putc(c) putc(c,active_file)
- at d tex_new_line() putc('\n',active_file)
 @d tex_printf(c) fprintf(active_file,"%s",c)
+ at d tex_putc(c) fputc(c,active_file)
 @d tex_puts(c) fputs(c,active_file)
 
 @<Predecl...@>=
@@ -1367,7 +1366,7 @@
     while (j>out_buf && *j==' ') j--;
   c_line_write(j-out_buf);
   if (per_cent) tex_putc('%');
-  tex_new_line(); out_line++;
+  tex_putc('\n'); out_line++;
   if (carryover)
     while (j>out_buf)
       if (*j--=='%' && (j==out_buf || *j!='\\')) {