texlive[55334] Build/source/texk/web2c/ctiedir: {CTIE] C and CWEB

[commits+ascherer at tug.org]

Revision: 55334
          http://tug.org/svn/texlive?view=revision&revision=55334
Author:   ascherer
Date:     2020-05-29 19:45:03 +0200 (Fri, 29 May 2020)
Log Message:
-----------
{CTIE] C and CWEB refreshing for ctie.w.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ctiedir/ChangeLog
    trunk/Build/source/texk/web2c/ctiedir/ctie-k.ch

Modified: trunk/Build/source/texk/web2c/ctiedir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ctiedir/ChangeLog	2020-05-29 14:26:24 UTC (rev 55333)
+++ trunk/Build/source/texk/web2c/ctiedir/ChangeLog	2020-05-29 17:45:03 UTC (rev 55334)
@@ -1,3 +1,7 @@
+2020-05-29  Andreas Scherer  <https://ascherer.github.io>
+
+	* ctie-k.ch: C and CWEB refreshing for ctie.w.
+
 2020-04-30  Andreas Scherer  <https://ascherer.github.io>
 
 	* ctie-k.ch: More editorial modifications for ctie.w.

Modified: trunk/Build/source/texk/web2c/ctiedir/ctie-k.ch
===================================================================
--- trunk/Build/source/texk/web2c/ctiedir/ctie-k.ch	2020-05-29 14:26:24 UTC (rev 55333)
+++ trunk/Build/source/texk/web2c/ctiedir/ctie-k.ch	2020-05-29 17:45:03 UTC (rev 55334)
@@ -19,12 +19,34 @@
 
 @x l.19 Add macro definitions
 \def\title{The CTIE processor}
+\def\botofcontents{%
+\vfill
+$\copyright$ 2002,2003 Julian Gilbey
 @y
 \def\Kpathsea/{{\mc KPATHSEA\spacefactor1000}}
 
 \def\title{The CTIE processor}
+\def\covernote{\vbox{\ninerm\noindent
+$\copyright$ 2002,2003 Julian Gilbey
 @z
 
+ at x l.37
+}
+ at y
+}}
+ at z
+
+ at x l.81
+ at d copyright 
+    "Copyright 2002,2003 Julian Gilbey.  All rights reserved.  There is no warranty.\n\
+Run with the --version option for other important information."
+ at y
+ at d copyright
+    "Copyright 2002,2003 Julian Gilbey."@|
+    "  All rights reserved.  There is no warranty.\n"@|
+    "Run with the --version option for other important information."
+ at z
+
 @x l.102
 main(argc, argv)
         int argc; string *argv;
@@ -103,6 +125,22 @@
 This variable must be initialised.
 @z
 
+ at x l.158
+ at d spotless 0
+ at d troublesome 1
+ at d fatal 2
+
+@<Global variables@>=
+int history=spotless;
+ at y
+@<Global variables@>=
+typedef enum {
+    spotless,
+    troublesome,
+    fatal } return_code;
+static return_code history=spotless;
+ at z
+
 @x l.170 The kpathsea include files must be first.
 predefined as we include the \.{stdio.h} definitions.
 
@@ -311,6 +349,14 @@
 int wrap_up (void)
 @z
 
+ at x l.667
+    if (history > spotless) return 1;
+    else return 0;
+ at y
+    if (history > spotless) return EXIT_FAILURE;
+    else return EXIT_SUCCESS;
+ at z
+
 @x l.674
 int wrap_up();
 @y
@@ -490,6 +536,12 @@
     fprintf(stderr, "Usage: ctie -m|-c outfile master changefile(s)\n");
 @z
 
+ at x l.1111
+    exit(1);
+ at y
+    exit(EXIT_FAILURE);
+ at z
+
 @x l.1119 Add Web2C version to banner string
 printf("%s\n", banner); /* print a ``banner line'' */
 @y
@@ -537,6 +589,12 @@
     const_string *message=CTIEHELP;
 @z
 
+ at x l.1248
+    exit(0);
+ at y
+    exit(EXIT_SUCCESS);
+ at z
+
 @x l.1253
 void print_version_and_exit(name, version)
         string name, version;
@@ -568,7 +626,7 @@
     puts ("Primary author of CTIE: Julian Gilbey.");
     puts ("Kpathsea written by Karl Berry and others.");
 
-    exit (0);
+    exit (EXIT_SUCCESS);
 }
 @z