diff options
| author | Andreas Scherer <andreas_tex@freenet.de> | 2023-08-09 09:04:34 +0000 |
|---|---|---|
| committer | Andreas Scherer <andreas_tex@freenet.de> | 2023-08-09 09:04:34 +0000 |
| commit | 0417760c35aec9fcfe626b2815bb492f547bdee0 (patch) | |
| tree | ee8cc041917d62f75cee073987762e3e4fb540a4 /Build/source/texk/web2c/cwebdir | |
| parent | eea4e178e4dcdf3509345fd6eb97e0681132709b (diff) | |
[CWEB] Purge single-use macro.
git-svn-id: svn://tug.org/texlive/trunk@67855 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/cwebdir')
| -rw-r--r-- | Build/source/texk/web2c/cwebdir/ctangle.c | 2 | ||||
| -rw-r--r-- | Build/source/texk/web2c/cwebdir/ctangle.w | 2 | ||||
| -rw-r--r-- | Build/source/texk/web2c/cwebdir/cweave.w | 5 |
3 files changed, 4 insertions, 5 deletions
diff --git a/Build/source/texk/web2c/cwebdir/ctangle.c b/Build/source/texk/web2c/cwebdir/ctangle.c index a060e8f678c..89ad410abf6 100644 --- a/Build/source/texk/web2c/cwebdir/ctangle.c +++ b/Build/source/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/Build/source/texk/web2c/cwebdir/ctangle.w b/Build/source/texk/web2c/cwebdir/ctangle.w index 98c1a40f598..005af4817f5 100644 --- a/Build/source/texk/web2c/cwebdir/ctangle.w +++ b/Build/source/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/Build/source/texk/web2c/cwebdir/cweave.w b/Build/source/texk/web2c/cwebdir/cweave.w index 4391d95c397..a17cfc2b626 100644 --- a/Build/source/texk/web2c/cwebdir/cweave.w +++ b/Build/source/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!='\\')) { |