texlive[67180] Build/source/texk/web2c: [CWEB] End the last change

commits+ascherer at tug.org commits+ascherer at tug.org
Sun May 21 20:01:44 CEST 2023


Revision: 67180
          http://tug.org/svn/texlive?view=revision&revision=67180
Author:   ascherer
Date:     2023-05-21 20:01:44 +0200 (Sun, 21 May 2023)
Log Message:
-----------
[CWEB] End the last change with out_mode==post.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ctiedir/ctie-k.ch
    trunk/Build/source/texk/web2c/tiedir/tie-w2c.ch

Modified: trunk/Build/source/texk/web2c/ctiedir/ctie-k.ch
===================================================================
--- trunk/Build/source/texk/web2c/ctiedir/ctie-k.ch	2023-05-21 17:03:29 UTC (rev 67179)
+++ trunk/Build/source/texk/web2c/ctiedir/ctie-k.ch	2023-05-21 18:01:44 UTC (rev 67180)
@@ -571,10 +571,10 @@
 if (out_mode==post) /* last line has been changed */
     fprintf(out_file, "@@z\n");
 @y
+if (out_mode==pre) /* last line has been deleted */
+    fprintf(out_file, "@@y\n"), out_mode=post;
 if (out_mode==post) /* last line has been changed */
     fprintf(out_file, "@@z\n");
-else if (out_mode==pre) /* last line has been deleted */
-    fprintf(out_file, "@@y\n@@z\n");
 @z
 
 @x l.1106

Modified: trunk/Build/source/texk/web2c/tiedir/tie-w2c.ch
===================================================================
--- trunk/Build/source/texk/web2c/tiedir/tie-w2c.ch	2023-05-21 17:03:29 UTC (rev 67179)
+++ trunk/Build/source/texk/web2c/tiedir/tie-w2c.ch	2023-05-21 18:01:44 UTC (rev 67180)
@@ -418,16 +418,14 @@
    new_line(out_file);
    }
 @y
+if (out_mode==pre) { /* last line has been deleted */
+   fputc(map_xchr(@'@@'),out_file); fputc(map_xchr(@'y'),out_file);
+   new_line(out_file); out_mode=post;
+   }
 if (out_mode==post) { /* last line has been changed */
    fputc(map_xchr(@'@@'),out_file); fputc(map_xchr(@'z'),out_file);
    new_line(out_file);
    }
-else if (out_mode==pre) { /* last line has been deleted */
-   fputc(map_xchr(@'@@'),out_file); fputc(map_xchr(@'y'),out_file);
-   new_line(out_file);
-   fputc(map_xchr(@'@@'),out_file); fputc(map_xchr(@'z'),out_file);
-   new_line(out_file);
-   }
 @z
 
 Section 55



More information about the tex-live-commits mailing list.