diff options
author | Andreas Scherer <andreas_tex@freenet.de> | 2023-08-06 10:42:52 +0000 |
---|---|---|
committer | Andreas Scherer <andreas_tex@freenet.de> | 2023-08-06 10:42:52 +0000 |
commit | ad227eed4e8e742e6f0f03be41434b04b562c084 (patch) | |
tree | 84ccdfd613d09191a7f27e561dd2e985323d3c8f /Build/source | |
parent | ce586b945bfcfe9d0967352ca810a119ba138fd0 (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/ChangeLog | 8 | ||||
-rw-r--r-- | Build/source/texk/web2c/cwebdir/ctwill-hint.ch | 10 | ||||
-rw-r--r-- | Build/source/texk/web2c/cwebdir/ctwill-mini.ch | 10 | ||||
-rw-r--r-- | Build/source/texk/web2c/cwebdir/ctwill-w2c.ch | 32 | ||||
-rw-r--r-- | Build/source/texk/web2c/cwebdir/cweav-w2c.ch | 32 | ||||
-rw-r--r-- | Build/source/texk/web2c/cwebdir/cweave.w | 14 |
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) { |