[CWEB] Purge single-use macro.

git-svn-id: svn://tug.org/texlive/trunk/Build/source@67855 c570f23f-e606-0410-a88d-b1316a301751
TeX-Live · Aug 9, 2023 · deec859 · deec859
1 parent 13c57ad
commit deec859
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 6 deletions.
diff --git a/texk/web2c/ctangleboot.cin b/texk/web2c/ctangleboot.cin
@@ -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 \
 

diff --git a/texk/web2c/cwebdir/ctangle.c b/texk/web2c/cwebdir/ctangle.c
@@ -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 \
 

diff --git a/texk/web2c/cwebdir/ctangle.w b/texk/web2c/cwebdir/ctangle.w
@@ -580,7 +580,7 @@ static void out_char(eight_bits);
 @ @d macro_end (cur_text+1)->tok_start /* end of |macro| replacement text */
 @#
 @d C_printf(c,a) fprintf(C_file,c,a)
-@d C_putc(c) putc((int)(c),C_file) /* isn't \CEE/ wonderfully consistent? */
+@d C_putc(c) fputc((int)(c),C_file) /* isn't \CEE/ wonderfully consistent? */
 
 @c
 static void

diff --git a/texk/web2c/cwebdir/cweave.w b/texk/web2c/cwebdir/cweave.w
@@ -1347,9 +1347,8 @@ carried over to the next line (so that \TEX/ will ignore the completion
 of commented-out text).
 
 @d c_line_write(c) fflush(active_file),fwrite(out_buf+1,sizeof(char),c,active_file)
-@d tex_putc(c) putc(c,active_file)
-@d tex_new_line() putc('\n',active_file)
 @d tex_printf(c) fprintf(active_file,"%s",c)
+@d tex_putc(c) fputc(c,active_file)
 @d tex_puts(c) fputs(c,active_file)
 
 @<Predecl...@>=
@@ -1367,7 +1366,7 @@ boolean per_cent,boolean carryover)
     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!='\\')) {