texlive[67824] Build/source/texk/web2c/cwebdir: [CWEB] Hide
commits+ascherer at tug.org
commits+ascherer at tug.org
Sun Aug 6 12:42:52 CEST 2023
Revision: 67824
http://tug.org/svn/texlive?view=revision&revision=67824
Author: ascherer
Date: 2023-08-06 12:42:52 +0200 (Sun, 06 Aug 2023)
Log Message:
-----------
[CWEB] Hide 'print_text' analytics.
Modified Paths:
--------------
trunk/Build/source/texk/web2c/cwebdir/ChangeLog
trunk/Build/source/texk/web2c/cwebdir/ctwill-hint.ch
trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch
trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch
trunk/Build/source/texk/web2c/cwebdir/cweav-w2c.ch
trunk/Build/source/texk/web2c/cwebdir/cweave.w
Modified: trunk/Build/source/texk/web2c/cwebdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ChangeLog 2023-08-05 23:47:31 UTC (rev 67823)
+++ trunk/Build/source/texk/web2c/cwebdir/ChangeLog 2023-08-06 10:42:52 UTC (rev 67824)
@@ -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,
Modified: trunk/Build/source/texk/web2c/cwebdir/ctwill-hint.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctwill-hint.ch 2023-08-05 23:47:31 UTC (rev 67823)
+++ trunk/Build/source/texk/web2c/cwebdir/ctwill-hint.ch 2023-08-06 10:42:52 UTC (rev 67824)
@@ -436,6 +436,7 @@
@ 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
+ at -DEBUG@>
@-p@>
@-res_flag@>
@-section_flag@>
@@ -447,6 +448,15 @@
@$inner_tok_flag {CTWILL}114 =$\T{4}*\\{id\_flag}$@>
@z
+Section 115.
+
+ at x l.2221
+ at c
+ at y
+ at c
+ at -DEBUG@>
+ at z
+
Section 117.
@x
Modified: trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch 2023-08-05 23:47:31 UTC (rev 67823)
+++ trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch 2023-08-06 10:42:52 UTC (rev 67824)
@@ -1030,6 +1030,7 @@
@ 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
+ at -DEBUG@>
@-p@>
@-res_flag@>
@-section_flag@>
@@ -1041,6 +1042,15 @@
@$inner_tok_flag {CTWILL}128 =$\T{4}*\\{id\_flag}$@>
@z
+Section 129.
+
+ at x l.2221
+ at c
+ at y
+ at c
+ at -DEBUG@>
+ at z
+
Section 131.
@x
Modified: trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch 2023-08-05 23:47:31 UTC (rev 67823)
+++ trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch 2023-08-06 10:42:52 UTC (rev 67824)
@@ -598,26 +598,6 @@
@z
@x
- at d inner_tok_flag (5*id_flag) /* signifies a token list in `\pb' */
-
- at c
-static void
-print_text( /* prints a token list for debugging; not used in |main| */
- at y
- at 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| */
- at z
-
- at x
update_terminal();
@y
puts("|"); update_terminal();
@@ -624,18 +604,6 @@
@z
@x
-}
- at y
-}
-#endif
- at z
-
- at x
-@ @<Predecl...@>=@+static void print_text(text_pointer p);
- at y
- at z
-
- at x
the |for| loop below.
@c
Modified: trunk/Build/source/texk/web2c/cwebdir/cweav-w2c.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cweav-w2c.ch 2023-08-05 23:47:31 UTC (rev 67823)
+++ trunk/Build/source/texk/web2c/cwebdir/cweav-w2c.ch 2023-08-06 10:42:52 UTC (rev 67824)
@@ -273,38 +273,6 @@
@z
@x
- at d inner_tok_flag (5*id_flag) /* signifies a token list in `\pb' */
-
- at c
-static void
-print_text( /* prints a token list for debugging; not used in |main| */
- at y
- at 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| */
- at z
-
- at x
-}
- at y
-}
-#endif
- at z
-
- at x
-@ @<Predecl...@>=@+static void print_text(text_pointer p);
- at y
- at z
-
- at x
@<Cases for |exp|@>=
if (cat1==lbrace || cat1==int_like || cat1==decl) {
make_underlined(pp); big_app(dindent); big_app1(pp);
Modified: trunk/Build/source/texk/web2c/cwebdir/cweave.w
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cweave.w 2023-08-05 23:47:31 UTC (rev 67823)
+++ trunk/Build/source/texk/web2c/cwebdir/cweave.w 2023-08-06 10:42:52 UTC (rev 67824)
@@ -2210,9 +2210,18 @@
@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,9 +2246,8 @@
}
update_terminal();
}
+#endif /* |DEBUG| */
-@ @<Predecl...@>=@+static void print_text(text_pointer p);
-
@ @<Print token |r|...@>=
switch (r) {
case math_rel: printf("\\mathrel{"@q}@>); break;
More information about the tex-live-commits
mailing list.