summaryrefslogtreecommitdiff
path: root/Build/source
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2023-08-06 10:42:52 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2023-08-06 10:42:52 +0000
commitad227eed4e8e742e6f0f03be41434b04b562c084 (patch)
tree84ccdfd613d09191a7f27e561dd2e985323d3c8f /Build/source
parentce586b945bfcfe9d0967352ca810a119ba138fd0 (diff)
[CWEB] Hide 'print_text' analytics.
git-svn-id: svn://tug.org/texlive/trunk@67824 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source')
-rw-r--r--Build/source/texk/web2c/cwebdir/ChangeLog8
-rw-r--r--Build/source/texk/web2c/cwebdir/ctwill-hint.ch10
-rw-r--r--Build/source/texk/web2c/cwebdir/ctwill-mini.ch10
-rw-r--r--Build/source/texk/web2c/cwebdir/ctwill-w2c.ch32
-rw-r--r--Build/source/texk/web2c/cwebdir/cweav-w2c.ch32
-rw-r--r--Build/source/texk/web2c/cwebdir/cweave.w14
6 files changed, 39 insertions, 67 deletions
diff --git a/Build/source/texk/web2c/cwebdir/ChangeLog b/Build/source/texk/web2c/cwebdir/ChangeLog
index b852358a7b0..0926728bbde 100644
--- a/Build/source/texk/web2c/cwebdir/ChangeLog
+++ b/Build/source/texk/web2c/cwebdir/ChangeLog
@@ -1,3 +1,11 @@
+2023-08-06 Andreas Scherer <https://ascherer.github.io>
+
+ * ctwill-hint.ch,
+ * ctwill-mini.ch,
+ * ctwill-w2c.ch,
+ * cweav-w2c.ch,
+ * cweave.w: Hide 'print_text' analytics.
+
2023-08-04 Andreas Scherer <https://ascherer.github.io>
* common.bux,
diff --git a/Build/source/texk/web2c/cwebdir/ctwill-hint.ch b/Build/source/texk/web2c/cwebdir/ctwill-hint.ch
index e965ecaccd6..fc7c5849332 100644
--- a/Build/source/texk/web2c/cwebdir/ctwill-hint.ch
+++ b/Build/source/texk/web2c/cwebdir/ctwill-hint.ch
@@ -436,6 +436,7 @@ Section 114.
@ Token lists in |@!tok_mem| are composed of the following kinds of
@y
@ Token lists in |@!tok_mem| are composed of the following kinds of
+@-DEBUG@>
@-p@>
@-res_flag@>
@-section_flag@>
@@ -447,6 +448,15 @@ Section 114.
@$inner_tok_flag {CTWILL}114 =$\T{4}*\\{id\_flag}$@>
@z
+Section 115.
+
+@x l.2221
+@c
+@y
+@c
+@-DEBUG@>
+@z
+
Section 117.
@x
diff --git a/Build/source/texk/web2c/cwebdir/ctwill-mini.ch b/Build/source/texk/web2c/cwebdir/ctwill-mini.ch
index 76d8e8efd80..4f6a424c702 100644
--- a/Build/source/texk/web2c/cwebdir/ctwill-mini.ch
+++ b/Build/source/texk/web2c/cwebdir/ctwill-mini.ch
@@ -1030,6 +1030,7 @@ Section 128.
@ Token lists in |@!tok_mem| are composed of the following kinds of
@y
@ Token lists in |@!tok_mem| are composed of the following kinds of
+@-DEBUG@>
@-p@>
@-res_flag@>
@-section_flag@>
@@ -1041,6 +1042,15 @@ Section 128.
@$inner_tok_flag {CTWILL}128 =$\T{4}*\\{id\_flag}$@>
@z
+Section 129.
+
+@x l.2221
+@c
+@y
+@c
+@-DEBUG@>
+@z
+
Section 131.
@x
diff --git a/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch b/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch
index d3ed71bc14f..d40fb586f4e 100644
--- a/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch
+++ b/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch
@@ -598,44 +598,12 @@ null_scrap.trans=&tok_start[0];
@z
@x
-@d inner_tok_flag (5*id_flag) /* signifies a token list in `\pb' */
-
-@c
-static void
-print_text( /* prints a token list for debugging; not used in |main| */
-@y
-@d inner_tok_flag (5*id_flag) /* signifies a token list in `\pb' */
-
-@<Predecl...@>=
-#if 0
-static void print_text(text_pointer p);
-#endif
-
-@ @c
-#if 0
-static void
-print_text( /* prints a token list for debugging; not used in |main| */
-@z
-
-@x
update_terminal();
@y
puts("|"); update_terminal();
@z
@x
-}
-@y
-}
-#endif
-@z
-
-@x
-@ @<Predecl...@>=@+static void print_text(text_pointer p);
-@y
-@z
-
-@x
the |for| loop below.
@c
diff --git a/Build/source/texk/web2c/cwebdir/cweav-w2c.ch b/Build/source/texk/web2c/cwebdir/cweav-w2c.ch
index 4f94e202e17..231ad7a5d1d 100644
--- a/Build/source/texk/web2c/cwebdir/cweav-w2c.ch
+++ b/Build/source/texk/web2c/cwebdir/cweav-w2c.ch
@@ -273,38 +273,6 @@ tex_puts("cwebma");
@z
@x
-@d inner_tok_flag (5*id_flag) /* signifies a token list in `\pb' */
-
-@c
-static void
-print_text( /* prints a token list for debugging; not used in |main| */
-@y
-@d inner_tok_flag (5*id_flag) /* signifies a token list in `\pb' */
-
-@<Predecl...@>=
-#if 0
-static void print_text(text_pointer p);
-#endif
-
-@ @c
-#if 0
-static void
-print_text( /* prints a token list for debugging; not used in |main| */
-@z
-
-@x
-}
-@y
-}
-#endif
-@z
-
-@x
-@ @<Predecl...@>=@+static void print_text(text_pointer p);
-@y
-@z
-
-@x
@<Cases for |exp|@>=
if (cat1==lbrace || cat1==int_like || cat1==decl) {
make_underlined(pp); big_app(dindent); big_app1(pp);
diff --git a/Build/source/texk/web2c/cwebdir/cweave.w b/Build/source/texk/web2c/cwebdir/cweave.w
index 710dc21236f..fff90af9ca2 100644
--- a/Build/source/texk/web2c/cwebdir/cweave.w
+++ b/Build/source/texk/web2c/cwebdir/cweave.w
@@ -2210,9 +2210,18 @@ translated without line-break controls.
@d tok_flag (4*id_flag) /* signifies a token list */
@d inner_tok_flag (5*id_flag) /* signifies a token list in `\pb' */
+@<Predecl...@>=
+#ifdef DEBUG
+static void print_text(text_pointer p);
+#endif
+
+@ This function prints a token list for debugging;
+it is not used in |main| at this time.
+
@c
+#ifdef DEBUG
static void
-print_text( /* prints a token list for debugging; not used in |main| */
+print_text(
text_pointer p)
{
token_pointer j; /* index into |tok_mem| */
@@ -2237,8 +2246,7 @@ text_pointer p)
}
update_terminal();
}
-
-@ @<Predecl...@>=@+static void print_text(text_pointer p);
+#endif /* |DEBUG| */
@ @<Print token |r|...@>=
switch (r) {