texlive[54845] Build/source/texk/web2c/tiedir: [TIE] Push recent

[commits+ascherer at tug.org]

Revision: 54845
          http://tug.org/svn/texlive?view=revision&revision=54845
Author:   ascherer
Date:     2020-04-23 14:16:07 +0200 (Thu, 23 Apr 2020)
Log Message:
-----------
[TIE] Push recent changes from tie.w to tie.w2c.ch.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/tiedir/ChangeLog
    trunk/Build/source/texk/web2c/tiedir/tie-w2c.ch
    trunk/Build/source/texk/web2c/tiedir/tie.w

Modified: trunk/Build/source/texk/web2c/tiedir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/tiedir/ChangeLog	2020-04-23 00:58:59 UTC (rev 54844)
+++ trunk/Build/source/texk/web2c/tiedir/ChangeLog	2020-04-23 12:16:07 UTC (rev 54845)
@@ -1,6 +1,6 @@
 2018-01-18  Karl Berry  <karl at tug.org>
 
-	* tie.w (print, print_ln): printf %s instead of direct string
+	* tie-w2c.w (print, print_ln): printf %s instead of direct string
 	(from Debian).
 
 2014-02-12  Peter Breitenlohner  <peb at mppmu.mpg.de>

Modified: trunk/Build/source/texk/web2c/tiedir/tie-w2c.ch
===================================================================
--- trunk/Build/source/texk/web2c/tiedir/tie-w2c.ch	2020-04-23 00:58:59 UTC (rev 54844)
+++ trunk/Build/source/texk/web2c/tiedir/tie-w2c.ch	2020-04-23 12:16:07 UTC (rev 54845)
@@ -28,6 +28,18 @@
 /* we don't think that anyone needs more than 32 change files,
 @z
 
+ at x
+ at d print(a)  fprintf(term_out,a) /* `|print|' means write on the terminal */
+ at y
+ at d print(a)  fprintf(term_out,"%s",a) /* `|print|' means write on the terminal */
+ at z
+
+ at x
+ at d print_ln(v)  {fprintf(term_out,v);term_new_line;}
+ at y
+ at d print_ln(v)  {fprintf(term_out,"%s",v);term_new_line;}
+ at z
+
 @x -- add to global includes.
 #include <stdio.h>
 @y
@@ -163,4 +175,4 @@
 @y
       default: /* Anything except spotless, troublesome, or fatal is a bug. */
       case fatal: msg="That was a fatal error, my friend";  break;
- at z
\ No newline at end of file
+ at z

Modified: trunk/Build/source/texk/web2c/tiedir/tie.w
===================================================================
--- trunk/Build/source/texk/web2c/tiedir/tie.w	2020-04-23 00:58:59 UTC (rev 54844)
+++ trunk/Build/source/texk/web2c/tiedir/tie.w	2020-04-23 12:16:07 UTC (rev 54845)
@@ -25,7 +25,6 @@
 %		also repaired loop control for end of changes test (92-09-24)
 % Version 2.4 included <stdlib.h> instead of <malloc.h> when
 %		used with ANSI-C				   (92-12-17)
-% See ChangeLog for further changes.
 
 % Here is TeX material that gets inserted after \input cwebmac
 
@@ -458,7 +457,7 @@
 
 @^system dependencies@>
 @d term_out  stdout
- at d print(a)  fprintf(term_out,"%s",a) /* `|print|' means write on the terminal */
+ at d print(a)  fprintf(term_out,a) /* `|print|' means write on the terminal */
 @d print2(a,b)  fprintf(term_out,a,b) /* same with two arguments */
 @d print3(a,b,c)  fprintf(term_out,a,b,c) /* same with three arguments */
 @d print_c(v)  fputc(v,term_out); /* print a single character */
@@ -465,7 +464,7 @@
 @d new_line(v)  fputc('\n',v) /* start new line */
 @d term_new_line  new_line(term_out)
 	/* start new line of the terminal */
- at d print_ln(v)  {fprintf(term_out,"%s",v);term_new_line;}
+ at d print_ln(v)  {fprintf(term_out,v);term_new_line;}
 	/* `|print|' and then start new line */
 @d print2_ln(a,b)  {print2(a,b);term_new_line;} /* same with two arguments */
 @d print3_ln(a,b,c)  {print3(a,b,c);term_new_line;}