From 128beadceee66d94d2a2ccce5a9d336dec111b48 Mon Sep 17 00:00:00 2001
From: Andreas Scherer <andreas_tex@freenet.de>
Date: Mon, 13 Apr 2020 08:06:22 +0000
Subject: Add 'gettext' comment in section 6 of the main programs.

git-svn-id: svn://tug.org/texlive/trunk@54716 c570f23f-e606-0410-a88d-b1316a301751
---
 Build/source/texk/web2c/ctangleboot.cin    | 23 ++++++++++++-----------
 Build/source/texk/web2c/cwebdir/comm-w2c.h |  9 ++++++++-
 2 files changed, 20 insertions(+), 12 deletions(-)

(limited to 'Build/source/texk')

diff --git a/Build/source/texk/web2c/ctangleboot.cin b/Build/source/texk/web2c/ctangleboot.cin
index 2f5eb33da90..e5fdf4dcb34 100644
--- a/Build/source/texk/web2c/ctangleboot.cin
+++ b/Build/source/texk/web2c/ctangleboot.cin
@@ -8,7 +8,7 @@
 #line 83 "cwebdir/ctangle.w"
 
 /*:2*//*6:*/
-#line 45 "cwebdir/comm-w2c.h"
+#line 52 "cwebdir/comm-w2c.h"
 
 #ifndef HAVE_GETTEXT
 #define HAVE_GETTEXT 0
@@ -51,7 +51,8 @@
 #define cweave 1
 #define ctwill 2 \
 
-#define _(STRING) gettext(STRING) 
+#define _(STRING) gettext(STRING)  \
+
 #define and_and 04
 #define lt_lt 020
 #define gt_gt 021
@@ -174,7 +175,7 @@ extern int program;
 extern int phase;
 
 /*:5*//*7:*/
-#line 79 "cwebdir/comm-w2c.h"
+#line 86 "cwebdir/comm-w2c.h"
 
 extern char section_text[];
 extern char*section_text_end;
@@ -182,7 +183,7 @@ extern char*id_first;
 extern char*id_loc;
 
 /*:7*//*8:*/
-#line 94 "cwebdir/comm-w2c.h"
+#line 101 "cwebdir/comm-w2c.h"
 
 extern char buffer[];
 extern char*buffer_end;
@@ -190,7 +191,7 @@ extern char*loc;
 extern char*limit;
 
 /*:8*//*9:*/
-#line 109 "cwebdir/comm-w2c.h"
+#line 116 "cwebdir/comm-w2c.h"
 
 typedef struct name_info{
 char*byte_start;
@@ -224,7 +225,7 @@ extern void print_section_name(name_pointer);
 extern void sprint_section_name(char*,name_pointer);
 
 /*:9*//*10:*/
-#line 150 "cwebdir/comm-w2c.h"
+#line 157 "cwebdir/comm-w2c.h"
 
 extern int history;
 extern int wrap_up(void);
@@ -233,7 +234,7 @@ extern void fatal(const char*,const char*);
 extern void overflow(const char*);
 
 /*:10*//*11:*/
-#line 165 "cwebdir/comm-w2c.h"
+#line 172 "cwebdir/comm-w2c.h"
 
 extern int include_depth;
 extern FILE*file[];
@@ -257,7 +258,7 @@ extern void check_complete(void);
 extern void reset_input(void);
 
 /*:11*//*12:*/
-#line 188 "cwebdir/comm-w2c.h"
+#line 195 "cwebdir/comm-w2c.h"
 
 extern sixteen_bits section_count;
 extern boolean changed_section[];
@@ -265,14 +266,14 @@ extern boolean change_pending;
 extern boolean print_where;
 
 /*:12*//*13:*/
-#line 201 "cwebdir/comm-w2c.h"
+#line 208 "cwebdir/comm-w2c.h"
 
 extern int argc;
 extern char**argv;
 extern boolean flags[];
 
 /*:13*//*14:*/
-#line 213 "cwebdir/comm-w2c.h"
+#line 220 "cwebdir/comm-w2c.h"
 
 extern FILE*C_file;
 extern FILE*tex_file;
@@ -282,7 +283,7 @@ extern FILE*check_file;
 extern FILE*active_file;
 
 /*:14*//*15:*/
-#line 223 "cwebdir/comm-w2c.h"
+#line 230 "cwebdir/comm-w2c.h"
 
 extern void common_init(void);
 extern void print_stats(void);
diff --git a/Build/source/texk/web2c/cwebdir/comm-w2c.h b/Build/source/texk/web2c/cwebdir/comm-w2c.h
index a5b968abfd5..e03516f2bb0 100644
--- a/Build/source/texk/web2c/cwebdir/comm-w2c.h
+++ b/Build/source/texk/web2c/cwebdir/comm-w2c.h
@@ -41,7 +41,14 @@ typedef uint16_t sixteen_bits;
 extern int program; /* \.{CWEAVE} or \.{CTANGLE} or \.{CTWILL}? */
 extern int phase; /* which phase are we in? */
 
-@ @d _(STRING) gettext(STRING)
+@ You may have noticed that almost all \.{"strings"} in the \.{CWEB} sources
+are placed in the context of the `|_|'~macro.  This is just a shortcut for the
+`|gettext|' function from the ``GNU~gettext utilities.'' For systems that do
+not have this library installed, we wrap things for neutral behavior without
+internationalization.
+
+@d _(STRING) gettext(STRING)
+
 @<Include files@>=
 #ifndef HAVE_GETTEXT
 #define HAVE_GETTEXT 0
-- 
cgit v1.2.3