texlive[67833] Build/source/texk/web2c/cwebdir: [CWEB] Try to restore
commits+ascherer at tug.org
commits+ascherer at tug.org
Mon Aug 7 20:11:52 CEST 2023
Revision: 67833
http://tug.org/svn/texlive?view=revision&revision=67833
Author: ascherer
Date: 2023-08-07 20:11:52 +0200 (Mon, 07 Aug 2023)
Log Message:
-----------
[CWEB] Try to restore section count.
New material for section 19.
Modified Paths:
--------------
trunk/Build/source/texk/web2c/cwebdir/common.bux
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-bs.ch
trunk/Build/source/texk/web2c/cwebdir/cweav-pc.ch
trunk/Build/source/texk/web2c/cwebdir/cweav-w2c.ch
trunk/Build/source/texk/web2c/cwebdir/cweav-w32.ch
trunk/Build/source/texk/web2c/cwebdir/cweave.w
Modified: trunk/Build/source/texk/web2c/cwebdir/common.bux
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/common.bux 2023-08-07 15:44:19 UTC (rev 67832)
+++ trunk/Build/source/texk/web2c/cwebdir/common.bux 2023-08-07 18:11:52 UTC (rev 67833)
@@ -12,14 +12,14 @@
@$ilk {CWEAVE.W}11 \\{dummy.Ilk}@>
-@$xmem {CWEAVE.W}22 \&{xref\_info} [\,]@>
+@$xmem {CWEAVE.W}23 \&{xref\_info} [\,]@>
-@$xref {CWEAVE.W}23 \\{equiv\_or\_xref}@>
+@$xref {CWEAVE.W}24 \\{equiv\_or\_xref}@>
-@$init_node {CWEAVE.W}31 \&{void} (\,)@>
-@$names_match {CWEAVE.W}31 \&{boolean} (\,)@>
+@$init_node {CWEAVE.W}32 \&{void} (\,)@>
+@$names_match {CWEAVE.W}32 \&{boolean} (\,)@>
-@$print_stats {CWEAVE.W}269 \&{void} (\,)@>
+@$print_stats {CWEAVE.W}270 \&{void} (\,)@>
@$kpse_set_program_name "<kpathsea/progname.h>" \zip@>
@$kpse_find_file "<kpathsea/tex-file.h>" \zip@>
Modified: trunk/Build/source/texk/web2c/cwebdir/ctwill-hint.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctwill-hint.ch 2023-08-07 15:44:19 UTC (rev 67832)
+++ trunk/Build/source/texk/web2c/cwebdir/ctwill-hint.ch 2023-08-07 18:11:52 UTC (rev 67833)
@@ -27,8 +27,8 @@
@$ctwill {CTWILL}3 \&{enum} \&{cweb}@>
@$cweave {CTWILL}3 \&{enum} \&{cweb}@>
-@$inner {CTWILL}206 \&{enum} \&{mode}@>
-@$outer {CTWILL}206 \&{enum} \&{mode}@>
+@$inner {CTWILL}207 \&{enum} \&{mode}@>
+@$outer {CTWILL}207 \&{enum} \&{mode}@>
@z
Section 2.
@@ -38,8 +38,8 @@
@y
@ \.{CWEAVE} has a fairly straightforward outline. It operates in
@%
-@$show_banner {CTWILL}15 =\\{flags}[\.{'b'}]@>
-@$show_progress {CTWILL}15 =\\{flags}[\.{'p'}]@>
+@$show_banner {CTWILL}16 =\\{flags}[\.{'b'}]@>
+@$show_progress {CTWILL}16 =\\{flags}[\.{'p'}]@>
@z
Section 5.
@@ -156,7 +156,7 @@
@$long_buf_size {CTWILL}17 =$\\{buf\_size}+\\{longest\_name}$@>
@z
-Section 19.
+Section 20.
@x
@* Data structures exclusive to {\tt CWEAVE}.
@@ -165,7 +165,7 @@
@-a@>
@z
-Section 21.
+Section 22.
@x
@ The other large memory area in \.{CWEAVE} keeps the cross-reference data.
@@ -175,7 +175,7 @@
@-x@>
@z
-Section 23.
+Section 24.
@x
@d file_flag (3*cite_flag)
@@ -183,13 +183,13 @@
@-file_flag@>
@-def_flag@>
@-xref@>
-@$file_flag {CTWILL}23 =$\T{3}*\\{cite\_flag}{}$@>
-@$def_flag {CTWILL}23 =$\T{2}*\\{cite\_flag}{}$@>
-@$xref {CTWILL}23 =\\{equiv\_or\_xref}@>
+@$file_flag {CTWILL}24 =$\T{3}*\\{cite\_flag}{}$@>
+@$def_flag {CTWILL}24 =$\T{2}*\\{cite\_flag}{}$@>
+@$xref {CTWILL}24 =\\{equiv\_or\_xref}@>
@d file_flag (3*cite_flag)
@z
-Section 24.
+Section 25.
@x
@ A new cross-reference for an identifier is formed by calling |new_xref|,
@@ -199,10 +199,10 @@
@-c@>
@-p@>
@-no_xref@>
-@$no_xref {CTWILL}24 =$\R\\{make\_xrefs}$@>
+@$no_xref {CTWILL}25 =$\R\\{make\_xrefs}$@>
@z
-Section 35.
+Section 36.
@x
@d underline '\n' /* this code will be intercepted without confusion */
@@ -210,11 +210,11 @@
@d underline '\n' /* this code will be intercepted without confusion */
@-begin_comment@>
@-underline@>
-@$begin_comment {CTWILL}35 =\.{'\\t'}@>
-@$underline {CTWILL}35 =\.{'\\n'}@>
+@$begin_comment {CTWILL}36 =\.{'\\t'}@>
+@$underline {CTWILL}36 =\.{'\\n'}@>
@z
-Section 41.
+Section 42.
CTWILL hickups on comment and produces unmatched '$' in mini-index.
@@ -224,7 +224,7 @@
skip_TeX(void)
@z
-Section 43.
+Section 44.
@x
@ As one might expect, |get_next| consists mostly of a big switch
@@ -231,10 +231,10 @@
@y
@ As one might expect, |get_next| consists mostly of a big switch
@-c@>
-@$c {CTWILL}43 \&{eight\_bits}@>
+@$c {CTWILL}44 \&{eight\_bits}@>
@z
-Section 44.
+Section 45.
@x
@ @<Predecl...@>=@+static eight_bits get_next(void);
@@ -243,17 +243,17 @@
@-get_next@>
@z
-Section 45.
+Section 46.
@x
@d left_preproc ord /* begins a preprocessor command */
@y
@-left_preproc@>
-@$left_preproc {CTWILL}45 =\\{ord}@>
+@$left_preproc {CTWILL}46 =\\{ord}@>
@d left_preproc ord /* begins a preprocessor command */
@z
-Section 51.
+Section 52.
@x
id_first=--loc;
@@ -272,7 +272,7 @@
return identifier;
@z
-Section 52.
+Section 53.
@x
@d gather_digits_while(t) while ((t) || *loc=='\'')
@@ -281,7 +281,7 @@
@-t@>
@z
-Section 64.
+Section 65.
@x
@ @<Predecl...@>=@+static void skip_restricted(void);
@@ -290,7 +290,7 @@
@-skip_restricted@>
@z
-Section 68.
+Section 69.
@x
@ @<Predecl...@>=@+static void phase_one(void);
@@ -299,7 +299,7 @@
@-phase_one@>
@z
-Section 71.
+Section 72.
@x
C_xref( /* makes cross-references for \CEE/ identifiers */
@@ -308,10 +308,10 @@
C_xref( /* makes cross-references for \CEE/ identifiers */
eight_bits spec_ctrl)
@-C_xref@>
-@$C_xref {CTWILL}71 \&{static} \&{void} (\,)@>
+@$C_xref {CTWILL}72 \&{static} \&{void} (\,)@>
@z
-Section 85.
+Section 86.
@x
@ The |flush_buffer| routine empties the buffer up to a given breakpoint,
@@ -320,10 +320,10 @@
@-b@>
@-c@>
@-tex_new_line@>
-@$tex_new_line {CTWILL}85 =$\\{putc}(\.{'\\n'},\39\\{active\_file})$@>
+@$tex_new_line {CTWILL}86 =$\\{putc}(\.{'\\n'},\39\\{active\_file})$@>
@z
-Section 88.
+Section 89.
@x
@d proofing flags['P']
@@ -330,10 +330,10 @@
@y
@d proofing flags['P']
@-proofing@>
-@$proofing {CTWILL}88 =\\{flags}[\.{'P'}]@>
+@$proofing {CTWILL}89 =\\{flags}[\.{'P'}]@>
@z
-Section 89.
+Section 90.
@x
@ When we wish to append one character |c| to the output buffer, we write
@@ -343,7 +343,7 @@
@-s@>
@z
-Section 90.
+Section 91.
@x
out_str( /* output characters from |s| to end of string */
@@ -352,10 +352,10 @@
out_str( /* output characters from |s| to end of string */
const char*s)
@-out_str@>
-@$out_str {CTWILL}90 \&{static} \&{void} (\,)@>
+@$out_str {CTWILL}91 \&{static} \&{void} (\,)@>
@z
-Section 100.
+Section 101.
@x
@ The |copy_comment| function issues a warning if more braces are opened than
@@ -364,10 +364,10 @@
@-c@>
@-t@>
@-copy_comment@>
-@$copy_comment {CTWILL}100 \&{static} \&{int} (\,)@>
+@$copy_comment {CTWILL}101 \&{static} \&{int} (\,)@>
@z
-Section 107.
+Section 108.
@x
@d print_cat(c) fputs(cat_name[c],stdout) /* symbolic printout of a category */
@@ -376,7 +376,7 @@
@-c@>
@z
-Section 108.
+Section 109.
@x
@ The token lists for translated \TEX/ output contain some special control
@@ -392,7 +392,7 @@
@-n@>
@z
-Section 109.
+Section 110.
@x
@ The raw input is converted into scraps according to the following table,
@@ -402,7 +402,7 @@
The raw input is converted into scraps according to the following table,
@z
-Sections 110.
+Sections 111.
@x l.7 line numbers refer to 'prod.w'
@ Here is a table of all the productions. Each production that
@@ -420,7 +420,7 @@
@-s@>
@z
-Section 111.
+Section 112.
@x
@d trans trans_plus.Trans /* translation texts of scraps */
@@ -427,10 +427,10 @@
@y
@d trans trans_plus.Trans /* translation texts of scraps */
@-trans@>
-@$trans {CTWILL}111 =\\{trans\_plus}.\\{Trans}@>
+@$trans {CTWILL}112 =\\{trans\_plus}.\\{Trans}@>
@z
-Section 114.
+Section 115.
@x
@ Token lists in |@!tok_mem| are composed of the following kinds of
@@ -442,13 +442,13 @@
@-section_flag@>
@-tok_flag@>
@-inner_tok_flag@>
-@$res_flag {CTWILL}114 =$\T{2}*\\{id\_flag}$@>
-@$section_flag {CTWILL}114 =$\T{3}*\\{id\_flag}$@>
-@$tok_flag {CTWILL}114 =$\T{3}*\\{id\_flag}$@>
-@$inner_tok_flag {CTWILL}114 =$\T{4}*\\{id\_flag}$@>
+@$res_flag {CTWILL}115 =$\T{2}*\\{id\_flag}$@>
+@$section_flag {CTWILL}115 =$\T{3}*\\{id\_flag}$@>
+@$tok_flag {CTWILL}115 =$\T{3}*\\{id\_flag}$@>
+@$inner_tok_flag {CTWILL}115 =$\T{4}*\\{id\_flag}$@>
@z
-Section 115.
+Section 116.
@x l.2221
@c
@@ -457,7 +457,7 @@
@-DEBUG@>
@z
-Section 117.
+Section 118.
@x
@ The production rules listed above are embedded directly into \.{CWEAVE},
@@ -472,7 +472,7 @@
@-pp@>
@z
-Section 120.
+Section 121.
@x
@ Let us consider the big switch for productions now, before looking
@@ -481,12 +481,12 @@
@-cat1@>
@-cat2@>
@-cat3@>
-@$cat1 {CTWILL}120 =$(\\{pp}+\T{1})\MG\\{cat}$@>
-@$cat2 {CTWILL}120 =$(\\{pp}+\T{2})\MG\\{cat}$@>
-@$cat3 {CTWILL}120 =$(\\{pp}+\T{3})\MG\\{cat}$@>
+@$cat1 {CTWILL}121 =$(\\{pp}+\T{1})\MG\\{cat}$@>
+@$cat2 {CTWILL}121 =$(\\{pp}+\T{2})\MG\\{cat}$@>
+@$cat3 {CTWILL}121 =$(\\{pp}+\T{3})\MG\\{cat}$@>
@z
-Section 121.
+Section 122.
@x
`\.{@@!@@:operator+=\}\{\\\&\{operator\} \$+\{=\}\$@@>}').
@@ -499,12 +499,12 @@
@-no_ident_found@>
@-case_found@>
@-operator_found@>
-@$no_ident_found {CTWILL}121 =\hfil\break(\&{token\_pointer}) 0@>
-@$case_found {CTWILL}121 =\hfil\break(\&{token\_pointer}) 1@>
-@$operator_found {CTWILL}121 =\hfil\break(\&{token\_pointer}) 2@>
+@$no_ident_found {CTWILL}122 =\hfil\break(\&{token\_pointer}) 0@>
+@$case_found {CTWILL}122 =\hfil\break(\&{token\_pointer}) 1@>
+@$operator_found {CTWILL}122 =\hfil\break(\&{token\_pointer}) 2@>
@z
-Section 123.
+Section 124.
@x
make_reserved( /* make the first identifier in |p->trans| like |int| */
@@ -513,10 +513,10 @@
make_reserved( /* make the first identifier in |p->trans| like |int| */
scrap_pointer p)
@-make_reserved@>
-@$make_reserved {CTWILL}123 \&{static} \&{void} (\,)@>
+@$make_reserved {CTWILL}124 \&{static} \&{void} (\,)@>
@z
-Section 124.
+Section 125.
@x
make_underlined(
@@ -527,7 +527,7 @@
/* underline the entry for the first identifier in |p->trans| */
scrap_pointer p)
@-make_underlined@>
-@$make_underlined {CTWILL}124 \&{static} \&{void} (\,)@>
+@$make_underlined {CTWILL}125 \&{static} \&{void} (\,)@>
@z
@x
@@ -536,7 +536,7 @@
return; /* this happens, for example, in \&{case} \\{found}: */
@z
-Section 154.
+Section 155.
@x
@d force_lines flags['f'] /* should each statement be on its own line? */
@@ -543,10 +543,10 @@
@y
@d force_lines flags['f'] /* should each statement be on its own line? */
@-force_lines@>
-@$force_lines {CTWILL}154 =\\{flags}[\.{'f'}]@>
+@$force_lines {CTWILL}155 =\\{flags}[\.{'f'}]@>
@z
-Section 186.
+Section 187.
@x
@ @<Print a snapsh...@>=
@@ -554,11 +554,11 @@
@ @<Print a snapsh...@>=
@-n@>
@%
-@$n {CTWILL}181 \&{short}@>
@$n {CTWILL}182 \&{short}@>
+@$n {CTWILL}183 \&{short}@>
@z
-Section 188.
+Section 189.
@x
@ @<Predecl...@>=@+static text_pointer translate(void);
@@ -567,7 +567,7 @@
@-translate@>
@z
-Section 192.
+Section 193.
@x
if (next_control=='|' || next_control==begin_comment ||
@@ -574,12 +574,12 @@
next_control==begin_short_comment) return;
@y
@-C_parse@>
-@$C_parse {CTWILL}192 \&{static} \&{void} (\,)@>
+@$C_parse {CTWILL}193 \&{static} \&{void} (\,)@>
if (next_control=='|' || next_control==begin_comment @| ||
next_control==begin_short_comment) return;
@z
-Section 193.
+Section 194.
@x
@ @<Predecl...@>=@+static void C_parse(eight_bits);
@@ -588,7 +588,7 @@
@-C_parse@>
@z
-Section 194.
+Section 195.
@x
@ The following macro is used to append a scrap whose tokens have just
@@ -598,7 +598,7 @@
@-c@>
@z
-Section 203.
+Section 204.
@x
@d make_pb flags['e']
@@ -605,10 +605,10 @@
@y
@d make_pb flags['e']
@-make_pb@>
-@$make_pb {CTWILL}203 =\\{flags}[\.{'e'}]@>
+@$make_pb {CTWILL}204 =\\{flags}[\.{'e'}]@>
@z
-Section 207.
+Section 208.
@x
@d cur_mode cur_state.mode_field /* current mode of interpretation */
@@ -617,12 +617,12 @@
@-cur_end@>
@-cur_tok@>
@-cur_mode@>
-@$cur_end {CTWILL}207 =\\{cur\_state}.\\{end\_field}@>
-@$cur_tok {CTWILL}207 =\\{cur\_state}.\\{tok\_field}@>
-@$cur_mode {CTWILL}207 =\\{cur\_state}.\\{mode\_field}@>
+@$cur_end {CTWILL}208 =\\{cur\_state}.\\{end\_field}@>
+@$cur_tok {CTWILL}208 =\\{cur\_state}.\\{tok\_field}@>
+@$cur_mode {CTWILL}208 =\\{cur\_state}.\\{mode\_field}@>
@z
-Section 210.
+Section 211.
@x
push_level( /* suspends the current level */
@@ -631,10 +631,10 @@
push_level( /* suspends the current level */
text_pointer p)
@-push_level@>
-@$push_level {CTWILL}210 \&{static} \&{void} (\,)@>
+@$push_level {CTWILL}211 \&{static} \&{void} (\,)@>
@z
-Section 227.
+Section 228.
@x
@ @<Predecl...@>=@+static void phase_two(void);
@@ -643,7 +643,7 @@
@-phase_two@>
@z
-Section 229.
+Section 230.
@x
@ @d usage_sentinel (struct perm_meaning *)1
@@ -650,10 +650,10 @@
@y
@ @d usage_sentinel (struct perm_meaning *)1
@-usage_sentinel@>
-@$usage_sentinel {CTWILL}229 =(\&{struct} \&{perm\_meaning} ${}{*}{}$) \T{1}@>
+@$usage_sentinel {CTWILL}230 =(\&{struct} \&{perm\_meaning} ${}{*}{}$) \T{1}@>
@z
-Section 233.
+Section 234.
@x
finish_C( /* finishes a definition or a \CEE/ part */
@@ -662,10 +662,10 @@
finish_C( /* finishes a definition or a \CEE/ part */
boolean visible) /* |true| if we should produce \TeX\ output */
@-finish_C@>
-@$finish_C {CTWILL}233 \&{static} \&{void} (\,)@>
+@$finish_C {CTWILL}234 \&{static} \&{void} (\,)@>
@z
-Section 234.
+Section 235.
@x
@ @<Predecl...@>=@+static void finish_C(boolean);
@@ -674,7 +674,7 @@
@-finish_C@>
@z
-Section 242.
+Section 243.
@x
footnote( /* outputs section cross-references */
@@ -683,10 +683,10 @@
footnote( /* outputs section cross-references */
sixteen_bits flag)
@-footnote@>
-@$footnote {CTWILL}242 \&{static} \&{void} (\,)@>
+@$footnote {CTWILL}243 \&{static} \&{void} (\,)@>
@z
-Section 243.
+Section 244.
@x
@ @<Predecl...@>=@+static void footnote(sixteen_bits);
@@ -695,7 +695,7 @@
@-footnote@>
@z
-Section 247.
+Section 248.
@x
@ @<Predecl...@>=@+static void phase_three(void);
@@ -704,7 +704,7 @@
@-phase_three@>
@z
-Section 250.
+Section 251.
@x
@ A left-to-right radix sorting method is used, since this makes it easy to
@@ -713,7 +713,7 @@
@-c@>
@z
-Section 252.
+Section 253.
@x
@<Rest of |trans_plus| union@>=
@@ -723,7 +723,7 @@
@-k@>
@z
-Section 253.
+Section 254.
@x
@ @d depth cat /* reclaims memory that is no longer needed for parsing */
@@ -733,12 +733,12 @@
@-head@>
@-sort_ptr@>
@-max_sorts@>
-@$depth {CTWILL}253 =\\{cat}@>
-@$head {CTWILL}253 =\\{trans\_plus}.\\{Head}@>
-@$sort_ptr {CTWILL}253 =\\{scrap\_ptr}@>
+@$depth {CTWILL}254 =\\{cat}@>
+@$head {CTWILL}254 =\\{trans\_plus}.\\{Head}@>
+@$sort_ptr {CTWILL}254 =\\{scrap\_ptr}@>
@z
-Section 257.
+Section 258.
@x
@ Procedure |unbucket| goes through the buckets and adds nonempty lists
@@ -745,10 +745,10 @@
@y
@ Procedure |unbucket| goes through the buckets and adds nonempty lists
@-unbucket@>
-@$unbucket {CTWILL}257 \&{static} \&{void} (\,)@>
+@$unbucket {CTWILL}258 \&{static} \&{void} (\,)@>
@z
-Section 258.
+Section 259.
@x
@ @<Predecl...@>=@+static void unbucket(eight_bits);
@@ -757,7 +757,7 @@
@-unbucket@>
@z
-Section 260.
+Section 261.
@x
next_name=sort_ptr->head;
@@ -765,7 +765,7 @@
next_name=sort_ptr->head;@/
@z
-Section 261.
+Section 262.
@x
cur_name=sort_ptr->head;
@@ -773,7 +773,7 @@
cur_name=sort_ptr->head;@/
@z
-Section 267.
+Section 268.
@x
@ @<Predecl...@>=@+static void section_print(name_pointer);
@@ -782,7 +782,7 @@
@-section_print@>
@z
-Section 269.
+Section 270.
@x
puts(_("\nMemory usage statistics:"));
@@ -846,10 +846,10 @@
@t\5\5\5\5@>(long)max_scraps);
@z
-Section 271.
+Section 272.
@x
- at q Section 2->271. @>
+ at q Section 2->272. @>
@* {\tentex CTWILL} user manual.
@y
@* {\tentex CTWILL} user manual.
@@ -859,7 +859,7 @@
@-printf@>
@z
-Section 273.
+Section 274.
@x
static struct perm_meaning {
@@ -866,10 +866,10 @@
@y
static struct perm_meaning {
@-perm_meaning@>
-@$perm_meaning {CTWILL}273 \&{static} \&{struct}@>
+@$perm_meaning {CTWILL}274 \&{static} \&{struct}@>
@z
-Section 282.
+Section 283.
@x
@ @<Predec...@>=@+static boolean app_supp(text_pointer);
@@ -878,7 +878,7 @@
@-app_supp@>
@z
-Section 283.
+Section 284.
@x
@ The trickiest part of \.{CTWILL} is the procedure |make_ministring(pp+l)|,
@@ -889,10 +889,10 @@
@-c@>
@-l@>
@-make_ministring@>
-@$make_ministring {CTWILL}283 \&{static} \&{void} (\,)@>
+@$make_ministring {CTWILL}284 \&{static} \&{void} (\,)@>
@z
-Section 284.
+Section 285.
@x
@ @<Predec...@>=@+static void make_ministring(scrap_pointer);
@@ -901,7 +901,7 @@
@-make_ministring@>
@z
-Section 292.
+Section 293.
@x
@ @<Write the new meaning to the \.{.aux} file@>=
@@ -908,11 +908,11 @@
@y
@ @<Write the new meaning to the \.{.aux} file@>=
@%
-@$p {CTWILL}276 \&{name\_pointer}@>
-@$q {CTWILL}276 \&{struct perm\_meaning} ${}{*}{}$@>
+@$p {CTWILL}277 \&{name\_pointer}@>
+@$q {CTWILL}277 \&{struct perm\_meaning} ${}{*}{}$@>
@z
-Section 293.
+Section 294.
@x
@<Flag the usage of this identifier, for the mini-index@>=
@@ -919,10 +919,10 @@
@y
@<Flag the usage of this identifier, for the mini-index@>=
@%
-@$p {CTWILL}201 \&{name\_pointer}@>
+@$p {CTWILL}202 \&{name\_pointer}@>
@z
-Section 296.
+Section 297.
@x
@ @<Predec...@>=@+static void out_mini(meaning_struct *);
@@ -931,7 +931,7 @@
@-out_mini@>
@z
-Section 299.
+Section 300.
@x
@ @<Predec...@>=@+static sixteen_bits title_lookup(void);
@@ -940,7 +940,7 @@
@-title_lookup@>
@z
-Section 302.
+Section 303.
@x
@d indent_param_decl flags['i'] /* should formal parameter declarations be indented? */
@@ -947,10 +947,10 @@
@y
@d indent_param_decl flags['i'] /* should formal parameter declarations be indented? */
@-indent_param_decl@>
-@$indent_param_decl {CTWILL}302 =\\{flags}[\.{'i'}]@>
+@$indent_param_decl {CTWILL}303 =\\{flags}[\.{'i'}]@>
@z
-Section 303.
+Section 304.
@x
@d order_decl_stmt flags['o'] /* should declarations and statements be separated? */
@@ -957,10 +957,10 @@
@y
@d order_decl_stmt flags['o'] /* should declarations and statements be separated? */
@-order_decl_stmt@>
-@$order_decl_stmt {CTWILL}303 =\\{flags}[\.{'o'}]@>
+@$order_decl_stmt {CTWILL}304 =\\{flags}[\.{'o'}]@>
@z
-Section 307.
+Section 308.
@x l.116 of CTWILL-TEXLIVE.CH
@d kpse_find_cweb(name) kpse_find_file(name,kpse_cweb_format,true)
Modified: trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch 2023-08-07 15:44:19 UTC (rev 67832)
+++ trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch 2023-08-07 18:11:52 UTC (rev 67833)
@@ -32,7 +32,7 @@
@x
A kind of ``user manual'' for \.{CTWILL} can be found in the appendix
-\X270:Mogrify \.{CWEAVE} into \.{CTWILL}\X~and beyond, together with
+\X271:Mogrify \.{CWEAVE} into \.{CTWILL}\X~and beyond, together with
additional material specific to \.{CTWILL}. % FIXME
Until then, \.{CWEAVE}'s sequence of sections will be preserved.
@@ -39,7 +39,7 @@
The ``banner line'' defined here should be changed whenever \.{CTWILL} is
@y
A kind of ``user manual'' for \.{CTWILL} can be found in section~%
-\X287:Mogrify {\tentex CWEAVE} into {\tentex CTWILL}\X~and beyond,
+\X288:Mogrify {\tentex CWEAVE} into {\tentex CTWILL}\X~and beyond,
together with additional material specific to \.{CTWILL}. % FIXME
\bigskip
{\font\itt=cmitt10 \font\bit=cmbxti10
@@ -65,8 +65,8 @@
@$ctwill {CTWILL}3 \&{enum} \&{cweb}@>
@$cweave {CTWILL}3 \&{enum} \&{cweb}@>
-@$inner {CTWILL}222 \&{enum} \&{mode}@>
-@$outer {CTWILL}222 \&{enum} \&{mode}@>
+@$inner {CTWILL}223 \&{enum} \&{mode}@>
+@$outer {CTWILL}223 \&{enum} \&{mode}@>
@z
Section 2.
@@ -206,7 +206,7 @@
@$long_buf_size {CTWILL}17 =$\\{buf\_size}+\\{longest\_name}$@>
@z
-Section 19.
+Section 20.
@x
@* Data structures exclusive to {\tt CWEAVE}.
@@ -215,7 +215,7 @@
@-a@>
@z
-Section 20.
+Section 21.
@x
@ We keep track of the current section number in |section_count|, which
@@ -223,7 +223,7 @@
@r @ We keep track of the current section number in |section_count|, which
@z
-Section 21.
+Section 22.
@x
@ The other large memory area in \.{CWEAVE} keeps the cross-reference data.
@@ -233,7 +233,7 @@
@-x@>
@z
-Section 23.
+Section 24.
@x
@d file_flag (3*cite_flag)
@@ -241,13 +241,13 @@
@-file_flag@>
@-def_flag@>
@-xref@>
-@$file_flag {CTWILL}23 =$\T{3}*\\{cite\_flag}{}$@>
-@$def_flag {CTWILL}23 =$\T{2}*\\{cite\_flag}{}$@>
-@$xref {CTWILL}23 =\\{equiv\_or\_xref}@>
+@$file_flag {CTWILL}24 =$\T{3}*\\{cite\_flag}{}$@>
+@$def_flag {CTWILL}24 =$\T{2}*\\{cite\_flag}{}$@>
+@$xref {CTWILL}24 =\\{equiv\_or\_xref}@>
@d file_flag (3*cite_flag)
@z
-Section 24.
+Section 25.
@x
@ A new cross-reference for an identifier is formed by calling |new_xref|,
@@ -257,10 +257,10 @@
@-c@>
@-p@>
@-no_xref@>
-@$no_xref {CTWILL}24 =$\R\\{make\_xrefs}$@>
+@$no_xref {CTWILL}25 =$\R\\{make\_xrefs}$@>
@z
-Section 35.
+Section 36.
@x
@d underline '\n' /* this code will be intercepted without confusion */
@@ -268,11 +268,11 @@
@d underline '\n' /* this code will be intercepted without confusion */
@-begin_comment@>
@-underline@>
-@$begin_comment {CTWILL}35 =\.{'\\t'}@>
-@$underline {CTWILL}35 =\.{'\\n'}@>
+@$begin_comment {CTWILL}36 =\.{'\\t'}@>
+@$underline {CTWILL}36 =\.{'\\n'}@>
@z
-Section 36.
+Section 37.
@x
@ Control codes are converted to \.{CWEAVE}'s internal
@@ -280,7 +280,7 @@
@r @ Control codes are converted to \.{CWEAVE}'s internal
@z
-Section 41.
+Section 42.
CTWILL hickups on comment and produces unmatched '$' in mini-index.
@@ -290,7 +290,7 @@
skip_TeX(void)
@z
-Section 42.
+Section 43.
@x
\yskip\hang |identifier|: In this case the global variables |id_first| and
@@ -340,7 +340,7 @@
preceded by \.{@@(} instead of \.{@@<}.\par}
@z
-Section 43.
+Section 44.
@x
@ As one might expect, |get_next| consists mostly of a big switch
@@ -347,10 +347,10 @@
@y
@ As one might expect, |get_next| consists mostly of a big switch
@-c@>
-@$c {CTWILL}43 \&{eight\_bits}@>
+@$c {CTWILL}44 \&{eight\_bits}@>
@z
-Section 44.
+Section 45.
@x
@ @<Predecl...@>=@+static eight_bits get_next(void);
@@ -359,7 +359,7 @@
@-get_next@>
@z
-Section 45.
+Section 46.
@x
@d left_preproc ord /* begins a preprocessor command */
@@ -369,7 +369,7 @@
@d left_preproc ord /* begins a preprocessor command */
@z
-Section 50.
+Section 51.
@x
if (*(loc+1)=='*') {loc++;@+compress(minus_gt_ast);}
@@ -387,7 +387,7 @@
} break;
@z
-Section 51.
+Section 52.
@x
id_first=--loc;
@@ -408,7 +408,7 @@
}
@z
-Section 52.
+Section 53.
@x
@d gather_digits_while(t) while ((t) || *loc=='\'')
@@ -417,7 +417,7 @@
@-t@>
@z
-Section 53.
+Section 54.
@x
@ @<Get a hex...@>={
@@ -425,7 +425,7 @@
@r @ @<Get a hex...@>={
@z
-Section 56.
+Section 57.
@x
else {
@@ -438,7 +438,7 @@
@y
@z
-Section 63.
+Section 64.
@x
@ This function skips over a restricted context at relatively high speed.
@@ -446,7 +446,7 @@
@r @ This function skips over a restricted context at relatively high speed.
@z
-Section 64.
+Section 65.
@x
@ @<Predecl...@>=@+static void skip_restricted(void);
@@ -455,7 +455,7 @@
@-skip_restricted@>
@z
-Section 68.
+Section 69.
@x
@ @<Predecl...@>=@+static void phase_one(void);
@@ -464,7 +464,7 @@
@-phase_one@>
@z
-Section 71.
+Section 72.
@x
C_xref( /* makes cross-references for \CEE/ identifiers */
@@ -473,7 +473,7 @@
C_xref( /* makes cross-references for \CEE/ identifiers */
eight_bits spec_ctrl)
@-C_xref@>
-@$C_xref {CTWILL}71 \&{static} \&{void} (\,)@>
+@$C_xref {CTWILL}72 \&{static} \&{void} (\,)@>
@z
@x
@@ -484,7 +484,7 @@
next_control==begin_short_comment) return;
@z
-Section 72.
+Section 73.
@x
@ The |outer_xref| subroutine is like |C_xref| except that it begins
@@ -496,7 +496,7 @@
Thus, it handles \CEE/ text with embedded comments.
@z
-Section 79.
+Section 80.
@x
@ Finally, when the \TEX/ and definition parts have been treated, we have
@@ -506,7 +506,7 @@
\hfil\break|next_control>=begin_C|.
@z
-Section 85.
+Section 86.
@x
@ The |flush_buffer| routine empties the buffer up to a given breakpoint,
@@ -515,10 +515,10 @@
@-b@>
@-c@>
@-tex_new_line@>
-@$tex_new_line {CTWILL}85 =$\\{putc}(\.{'\\n'},\39\\{active\_file})$@>
+@$tex_new_line {CTWILL}86 =$\\{putc}(\.{'\\n'},\39\\{active\_file})$@>
@z
-Section 88.
+Section 89.
@x
@d proofing flags['P']
@@ -525,10 +525,10 @@
@y
@d proofing flags['P']
@-proofing@>
-@$proofing {CTWILL}88 =\\{flags}[\.{'P'}]@>
+@$proofing {CTWILL}89 =\\{flags}[\.{'P'}]@>
@z
-Section 89.
+Section 90.
@x
@ When we wish to append one character |c| to the output buffer, we write
@@ -538,7 +538,7 @@
@-s@>
@z
-Section 90.
+Section 91.
@x
out_str( /* output characters from |s| to end of string */
@@ -547,10 +547,10 @@
out_str( /* output characters from |s| to end of string */
const char*s)
@-out_str@>
-@$out_str {CTWILL}90 \&{static} \&{void} (\,)@>
+@$out_str {CTWILL}91 \&{static} \&{void} (\,)@>
@z
-Section 96.
+Section 97.
@x
@ The |out_name| procedure is used to output an identifier or index
@@ -558,7 +558,7 @@
@r @ The |out_name| procedure is used to output an identifier or index
@z
-Section 99.
+Section 100.
@x
@ The |copy_TeX| routine processes the \TEX/ code at the beginning of a
@@ -566,7 +566,7 @@
@r @ The |copy_TeX| routine processes the \TEX/ code at the beginning of a
@z
-Section 100.
+Section 101.
@x
@ The |copy_comment| function issues a warning if more braces are opened than
@@ -575,7 +575,7 @@
@-c@>
@-t@>
@-copy_comment@>
-@$copy_comment {CTWILL}100 \&{static} \&{int} (\,)@>
+@$copy_comment {CTWILL}101 \&{static} \&{int} (\,)@>
@z
@x
@@ -584,7 +584,7 @@
} @+ else {
@z
-Section 105.
+Section 106.
@x
@ Here is a list of the category codes that scraps can have.
@@ -592,7 +592,7 @@
@r @ Here is a list of the category codes that scraps can have.
@z
-Section 107.
+Section 108.
@x
@d print_cat(c) fputs(cat_name[c],stdout) /* symbolic printout of a category */
@@ -601,7 +601,7 @@
@-c@>
@z
-Section 108--109.
+Section 109--110.
@x
@ The token lists for translated \TEX/ output contain some special control
@@ -617,7 +617,7 @@
@-n@>
@z
-Section 110--115.
+Section 111--116.
@x
@ The raw input is converted into scraps according to the following table,
@@ -694,7 +694,7 @@
*The \.{\\,} (thin space) is omitted in ``|inner| \TeX\ mode.''
@z
-Sections 116--124.
+Sections 117--125.
@x l.7 line numbers refer to 'prod.w'
@ Here is a table of all the productions. Each production that
@@ -711,7 +711,7 @@
\newcount\prodno \newdimen\midcol \let\+\relax
@z
-Section 117.
+Section 118.
@x l.78
\+& |lpar| |rpar| & |exp| \hfill $L\.{\\,}R$ & functions, declarations\cr
@@ -744,7 +744,7 @@
\ignorespaces#3\hfil}\quad \hbox to1.45in{\ignorespaces#4\hfil}}}
@z
-Section 118.
+Section 119.
@x l.45
|int_like| \alt|raw_int| |struct_like| & |extern "Ada" int|\cr
@@ -776,7 +776,7 @@
\ignorespaces#3\hfil}\quad \hbox to1.45in{\ignorespaces#4\hfil}}}
@z
-Section 119.
+Section 120.
@x l.75
& \&{struct} \&{name\_info} $\{$\cr
@@ -808,7 +808,7 @@
\ignorespaces#3\hfil}\quad \hbox to1.45in{\ignorespaces#4\hfil}}}
@z
-Section 120.
+Section 121.
@x l.164
& \&{else} $x=0;$\cr
@@ -841,7 +841,7 @@
\advance\midcol20pt
@z
-Section 121.
+Section 122.
@x l.211
\+& |prerangle| & |binop| \hfill \.> & $>$ not in template\cr
@@ -873,7 +873,7 @@
\ignorespaces#3\hfil}\quad \hbox to1.45in{\ignorespaces#4\hfil}}}
@z
-Section 122.
+Section 123.
@x l.232
\+\dagit& |new_exp| & |exp| & |new int;|\cr
@@ -925,7 +925,7 @@
@y
@z
-Section 123.
+Section 124.
@x l.291
\+& |exp| |attr| & |exp| \hfill $E\.\ A$ & \&{enum} $\{x\ [[\ldots]]\}$ \cr
@@ -964,7 +964,7 @@
\advance\midcol20pt
@z
-Section 124.
+Section 125.
@x l.326
\+& |alignas_like| |cast| & |attr| & |alignas(int)| \cr
@@ -991,7 +991,7 @@
\everypar={\hangindent=2em}
@z
-Section 125.
+Section 126.
@x
@* Implementing the productions.
@@ -1011,10 +1011,10 @@
@y
@d trans trans_plus.Trans /* translation texts of scraps */
@-trans@>
-@$trans {CTWILL}125 =\\{trans\_plus}.\\{Trans}@>
+@$trans {CTWILL}126 =\\{trans\_plus}.\\{Trans}@>
@z
-Section 127.
+Section 128.
@x
null_scrap.trans=&tok_start[0];
@@ -1024,7 +1024,7 @@
scrap_base=scrap_info+1;@/
@z
-Section 128.
+Section 129.
@x
@ Token lists in |@!tok_mem| are composed of the following kinds of
@@ -1036,13 +1036,13 @@
@-section_flag@>
@-tok_flag@>
@-inner_tok_flag@>
-@$res_flag {CTWILL}128 =$\T{2}*\\{id\_flag}$@>
-@$section_flag {CTWILL}128 =$\T{3}*\\{id\_flag}$@>
-@$tok_flag {CTWILL}128 =$\T{3}*\\{id\_flag}$@>
-@$inner_tok_flag {CTWILL}128 =$\T{4}*\\{id\_flag}$@>
+@$res_flag {CTWILL}129 =$\T{2}*\\{id\_flag}$@>
+@$section_flag {CTWILL}129 =$\T{3}*\\{id\_flag}$@>
+@$tok_flag {CTWILL}129 =$\T{3}*\\{id\_flag}$@>
+@$inner_tok_flag {CTWILL}129 =$\T{4}*\\{id\_flag}$@>
@z
-Section 129.
+Section 130.
@x l.2221
@c
@@ -1051,7 +1051,7 @@
@-DEBUG@>
@z
-Section 131.
+Section 132.
@x
@ The production rules listed above are embedded directly into \.{CWEAVE},
@@ -1074,7 +1074,7 @@
followed by `|reduce(pp,3,exp,-2,3)|'.
@z
-Section 132.
+Section 133.
@x
@ The |mathness| is an attribute of scraps that says whether they are
@@ -1082,7 +1082,7 @@
@r @ The |mathness| is an attribute of scraps that says whether they are
@z
-Section 134--135.
+Section 135--136.
@x
@ Let us consider the big switch for productions now, before looking
@@ -1091,9 +1091,9 @@
@-cat1@>
@-cat2@>
@-cat3@>
-@$cat1 {CTWILL}134 =$(\\{pp}+\T{1})\MG\\{cat}$@>
-@$cat2 {CTWILL}134 =$(\\{pp}+\T{2})\MG\\{cat}$@>
-@$cat3 {CTWILL}134 =$(\\{pp}+\T{3})\MG\\{cat}$@>
+@$cat1 {CTWILL}135 =$(\\{pp}+\T{1})\MG\\{cat}$@>
+@$cat2 {CTWILL}135 =$(\\{pp}+\T{2})\MG\\{cat}$@>
+@$cat3 {CTWILL}135 =$(\\{pp}+\T{3})\MG\\{cat}$@>
@z
@x
@@ -1227,7 +1227,7 @@
case default_like: @<Cases for |default_like|@>@; @+break;
@z
-Section 136.
+Section 137.
@x
should say, for example, `\.{@@!@@\^\\\&\{operator\} \$+\{=\}\$@@>}' (or,
@@ -1244,12 +1244,12 @@
@-no_ident_found@>
@-case_found@>
@-operator_found@>
-@$no_ident_found {CTWILL}136 =\hfil\break(\&{token\_pointer}) 0@>
-@$case_found {CTWILL}136 =\hfil\break(\&{token\_pointer}) 1@>
-@$operator_found {CTWILL}136 =\hfil\break(\&{token\_pointer}) 2@>
+@$no_ident_found {CTWILL}137 =\hfil\break(\&{token\_pointer}) 0@>
+@$case_found {CTWILL}137 =\hfil\break(\&{token\_pointer}) 1@>
+@$operator_found {CTWILL}137 =\hfil\break(\&{token\_pointer}) 2@>
@z
-Section 138.
+Section 139.
@x
the |for| loop below.
@@ -1269,10 +1269,10 @@
make_reserved( /* make the first identifier in |p->trans| like |int| */
scrap_pointer p)
@-make_reserved@>
-@$make_reserved {CTWILL}138 \&{static} \&{void} (\,)@>
+@$make_reserved {CTWILL}139 \&{static} \&{void} (\,)@>
@z
-Section 139.
+Section 140.
@x
@ In the following situations we want to mark the occurrence of
@@ -1289,7 +1289,7 @@
/* underline the entry for the first identifier in |p->trans| */
scrap_pointer p)
@-make_underlined@>
-@$make_underlined {CTWILL}139 \&{static} \&{void} (\,)@>
+@$make_underlined {CTWILL}140 \&{static} \&{void} (\,)@>
@z
@x
@@ -1298,7 +1298,7 @@
return; /* this happens, for example, in \&{case} \\{found}: */
@z
-Section 140.
+Section 141.
@x
while (q != xmem) {
@@ -1306,7 +1306,7 @@
while (q != xmem) { @+
@z
-Section 142.
+Section 143.
@x
strcpy(ministring_buf,"label");
@@ -1320,7 +1320,7 @@
else @/ if (cat1==attr) {
@z
-Section 156.
+Section 157.
@x
@ @<Cases for |struct_head|@>=
@@ -1328,7 +1328,7 @@
@r @ @<Cases for |struct_head|@>=
@z
-Section 163.
+Section 164.
@x
else reduce(pp,0,else_like,0,65);
@@ -1340,7 +1340,7 @@
@+ else @/ if (cat1==attr) {
@z
-Section 169.
+Section 170.
@x
@d force_lines flags['f'] /* should each statement be on its own line? */
@@ -1347,10 +1347,10 @@
@y
@d force_lines flags['f'] /* should each statement be on its own line? */
@-force_lines@>
-@$force_lines {CTWILL}169 =\\{flags}[\.{'f'}]@>
+@$force_lines {CTWILL}170 =\\{flags}[\.{'f'}]@>
@z
-Section 172.
+Section 173.
@x
if (cat1==if_like || cat1==else_like || cat1==define_like)
@@ -1364,7 +1364,7 @@
} else @/ if (cat1==exp || cat1==function) {
@z
-Section 177.
+Section 178.
@x l.3017
app(opt); app('9'); reduce(pp,4,langle,0,153);
@@ -1376,7 +1376,7 @@
else reduce(pp,4,cast,-1,154);
@z
-Section 178.
+Section 179.
@x l.3028
big_app1_insert(pp,' '); reduce(pp,2,struct_like,0,155);
@@ -1388,7 +1388,7 @@
else reduce(pp,0,raw_int,0,91);
@z
-Section 180.
+Section 181.
@x
big_app1(pp+2); reduce(pp,3,new_exp,0,96);
@@ -1400,7 +1400,7 @@
@+ else @/ if (cat1==raw_ubin) {
@z
-Section 196.
+Section 197.
@x
@ Now here's the |reduce| procedure used in our code for productions,
@@ -1408,7 +1408,7 @@
@r @ Now here's the |reduce| procedure used in our code for productions,
@z
-Section 201.
+Section 202.
@x
@ @<Print a snapsh...@>=
@@ -1416,11 +1416,11 @@
@ @<Print a snapsh...@>=
@-n@>
@%
-@$n {CTWILL}196 \&{short}@>
@$n {CTWILL}197 \&{short}@>
+@$n {CTWILL}198 \&{short}@>
@z
-Section 203.
+Section 204.
@x
@ @<Predecl...@>=@+static text_pointer translate(void);
@@ -1429,7 +1429,7 @@
@-translate@>
@z
-Section 207.
+Section 208.
@x
if (next_control=='|' || next_control==begin_comment ||
@@ -1436,12 +1436,12 @@
next_control==begin_short_comment) return;
@y
@-C_parse@>
-@$C_parse {CTWILL}207 \&{static} \&{void} (\,)@>
+@$C_parse {CTWILL}208 \&{static} \&{void} (\,)@>
if (next_control=='|' || next_control==begin_comment @| ||
next_control==begin_short_comment) return;
@z
-Section 208.
+Section 209.
@x
@ @<Predecl...@>=@+static void C_parse(eight_bits);
@@ -1450,7 +1450,7 @@
@-C_parse@>
@z
-Section 209.
+Section 210.
@x
@ The following macro is used to append a scrap whose tokens have just
@@ -1460,7 +1460,7 @@
@-c@>
@z
-Section 210.
+Section 211.
@x
@ @<Append the scr...@>=
@@ -1523,7 +1523,7 @@
@#
@z
-Section 211--212.
+Section 212--213.
@x
overflow(_("scrap/token/text"));
@@ -1572,7 +1572,7 @@
case ':': app(':');@+app_scrap(colon,no_math);@+break;@/
@z
-Section 214.
+Section 215.
@x
@<Append a string or...@>={@+ int count=-1; /* characters remaining before string break */
@@ -1580,7 +1580,7 @@
@<Append a string or...@>={int count=-1; /* characters remaining before string break */
@z
-Section 219.
+Section 220.
@x
@ The |outer_parse| routine is to |C_parse| as |outer_xref|
@@ -1593,10 +1593,10 @@
@y
@d make_pb flags['e']
@-make_pb@>
-@$make_pb {CTWILL}219 =\\{flags}[\.{'e'}]@>
+@$make_pb {CTWILL}220 =\\{flags}[\.{'e'}]@>
@z
-Section 223.
+Section 224.
@x
@d cur_mode cur_state.mode_field /* current mode of interpretation */
@@ -1605,12 +1605,12 @@
@-cur_end@>
@-cur_tok@>
@-cur_mode@>
-@$cur_end {CTWILL}223 =\\{cur\_state}.\\{end\_field}@>
-@$cur_tok {CTWILL}223 =\\{cur\_state}.\\{tok\_field}@>
-@$cur_mode {CTWILL}223 =\\{cur\_state}.\\{mode\_field}@>
+@$cur_end {CTWILL}224 =\\{cur\_state}.\\{end\_field}@>
+@$cur_tok {CTWILL}224 =\\{cur\_state}.\\{tok\_field}@>
+@$cur_mode {CTWILL}224 =\\{cur\_state}.\\{mode\_field}@>
@z
-Section 226.
+Section 227.
@x
@ To insert token-list |p| into the output, the |push_level| subroutine
@@ -1625,10 +1625,10 @@
push_level( /* suspends the current level */
text_pointer p)
@-push_level@>
-@$push_level {CTWILL}226 \&{static} \&{void} (\,)@>
+@$push_level {CTWILL}227 \&{static} \&{void} (\,)@>
@z
-Section 227.
+Section 228.
@x
force when the current level was begun. This subroutine will never be
@@ -1638,7 +1638,7 @@
macro. This subroutine will never be called when |stack_ptr==1|.
@z
-Section 232--233.
+Section 233--234.
@x
@ Here is \.{CWEAVE}'s major output handler.
@@ -1725,7 +1725,7 @@
}
@z
-Section 234.
+Section 235.
@x
@ An identifier of length one does not have to be enclosed in braces, and it
@@ -1733,7 +1733,7 @@
@r @ An identifier of length one does not have to be enclosed in braces, and it
@z
-Section 235.
+Section 236.
@x
} else if (a==opt) b=get_output(); /* ignore digit following |opt| */
@@ -1741,7 +1741,7 @@
}@+ else if (a==opt) b=get_output(); /* ignore digit following |opt| */
@z
-Section 236.
+Section 237.
@x
@<Look ahead for st...@>= {
@@ -1763,7 +1763,7 @@
while (true) {@+
@z
-Section 239.
+Section 240.
@x
case ' ': case '\\': case '#': case '%': case '$': case '^':
@@ -1776,7 +1776,7 @@
out('\\'); @=/* falls through */@>@;
@z
-Section 241.
+Section 242.
@x
if (b=='@@' || (b=='\\' && delim!=0))
@@ -1784,7 +1784,7 @@
if (b=='@@' || (b=='\\' && delim!=0)) @/
@z
-Section 243.
+Section 244.
@x
phase_two(void) {
@@ -1792,7 +1792,7 @@
phase_two(void) {@+
@z
-Section 244.
+Section 245.
@x
@ @<Predecl...@>=@+static void phase_two(void);
@@ -1801,7 +1801,7 @@
@-phase_two@>
@z
-Section 246.
+Section 247.
@x
@ @d usage_sentinel (struct perm_meaning *)1
@@ -1809,11 +1809,11 @@
@y
@ @d usage_sentinel (struct perm_meaning *)1
@-usage_sentinel@>
-@$usage_sentinel {CTWILL}246 =(\&{struct} \&{perm\_meaning} ${}{*}{}$) \T{1}@>
+@$usage_sentinel {CTWILL}247 =(\&{struct} \&{perm\_meaning} ${}{*}{}$) \T{1}@>
@<Translate the current section@>=@+ {
@z
-Section 250.
+Section 251.
@x
finish_C( /* finishes a definition or a \CEE/ part */
@@ -1822,10 +1822,10 @@
finish_C( /* finishes a definition or a \CEE/ part */
boolean visible) /* |true| if we should produce \TeX\ output */
@-finish_C@>
-@$finish_C {CTWILL}250 \&{static} \&{void} (\,)@>
+@$finish_C {CTWILL}251 \&{static} \&{void} (\,)@>
@z
-Section 251.
+Section 252.
@x
@ @<Predecl...@>=@+static void finish_C(boolean);
@@ -1834,7 +1834,7 @@
@-finish_C@>
@z
-Section 253.
+Section 254.
@x
@ @<Start a format...@>= {
@@ -1842,7 +1842,7 @@
@r @ @<Start a format...@>= {
@z
-Section 254.
+Section 255.
@x
|next_control>=begin_C|. We will make the global variable |this_section|
@@ -1853,7 +1853,7 @@
\hfil\break the current section name, if it has a name.
@z
-Section 259.
+Section 260.
@x
footnote( /* outputs section cross-references */
@@ -1862,10 +1862,10 @@
footnote( /* outputs section cross-references */
sixteen_bits flag)
@-footnote@>
-@$footnote {CTWILL}259 \&{static} \&{void} (\,)@>
+@$footnote {CTWILL}260 \&{static} \&{void} (\,)@>
@z
-Section 260.
+Section 261.
@x
@ @<Predecl...@>=@+static void footnote(sixteen_bits);
@@ -1874,7 +1874,7 @@
@-footnote@>
@z
-Section 264.
+Section 265.
@x
@ @<Predecl...@>=@+static void phase_three(void);
@@ -1883,7 +1883,7 @@
@-phase_three@>
@z
-Section 267.
+Section 268.
@x
@ A left-to-right radix sorting method is used, since this makes it easy to
@@ -1892,7 +1892,7 @@
@-c@>
@z
-Section 269.
+Section 270.
@x
@<Rest of |trans_plus| union@>=
@@ -1902,7 +1902,7 @@
@-k@>
@z
-Section 270.
+Section 271.
@x
@ @d depth cat /* reclaims memory that is no longer needed for parsing */
@@ -1912,12 +1912,12 @@
@-head@>
@-sort_ptr@>
@-max_sorts@>
-@$depth {CTWILL}270 =\\{cat}@>
-@$head {CTWILL}270 =\\{trans\_plus}.\\{Head}@>
-@$sort_ptr {CTWILL}270 =\\{scrap\_ptr}@>
+@$depth {CTWILL}271 =\\{cat}@>
+@$head {CTWILL}271 =\\{trans\_plus}.\\{Head}@>
+@$sort_ptr {CTWILL}271 =\\{scrap\_ptr}@>
@z
-Section 272.
+Section 273.
@x
$|collate|[0]<|collate|[1]<\cdots<|collate|[100]$.
@@ -1925,7 +1925,7 @@
|collate[0]| ${}<{}$|collate[1]|${}<\cdots<{}$|collate[100]|.
@z
-Section 274.
+Section 275.
@x
@ Procedure |unbucket| goes through the buckets and adds nonempty lists
@@ -1932,10 +1932,10 @@
@y
@ Procedure |unbucket| goes through the buckets and adds nonempty lists
@-unbucket@>
-@$unbucket {CTWILL}274 \&{static} \&{void} (\,)@>
+@$unbucket {CTWILL}275 \&{static} \&{void} (\,)@>
@z
-Section 275.
+Section 276.
@x
@ @<Predecl...@>=@+static void unbucket(eight_bits);
@@ -1944,7 +1944,7 @@
@-unbucket@>
@z
-Section 277.
+Section 278.
@x
@ @<Split the list...@>= {
@@ -1956,7 +1956,7 @@
next_name=sort_ptr->head;@/
@z
-Section 278.
+Section 279.
@x
cur_name=sort_ptr->head;
@@ -1964,7 +1964,7 @@
cur_name=sort_ptr->head;@/
@z
-Section 280.
+Section 281.
@x
else {out_str("\\["); out_section(cur_val-def_flag); out(']');}
@@ -1981,7 +1981,7 @@
@-section_print@>
@z
-Section 286.
+Section 287.
@x
puts(_("\nMemory usage statistics:"));
@@ -2045,7 +2045,7 @@
@t\5\5\5\5@>(long)max_scraps);
@z
-Section 287.
+Section 288.
@x
@** Mogrify {\tentex CWEAVE} into {\tentex CTWILL}. The following sections
@@ -2053,9 +2053,9 @@
Care has been taken to keep the original section numbering of \.{CWEAVE}
up to this point intact, so this new material should nicely integrate
-with the original ``\&{270.~Index}.''
+with the original ``\&{271.~Index}.''
- at q Section 2->271. @>
+ at q Section 2->272. @>
@* {\tentex CTWILL} user manual.
@y
@** Mogrify {\tentex CWEAVE} into {\tentex CTWILL}.
@@ -2070,7 +2070,7 @@
@-x@>
@z
-Section 288--289.
+Section 289--290.
@x
The current meaning of every identifier is initially `\.{\\uninitialized}'.
@@ -2095,7 +2095,7 @@
@y
@z
-Section 291.
+Section 292.
@x
static struct perm_meaning {
@@ -2102,10 +2102,10 @@
@y
static struct perm_meaning {
@-perm_meaning@>
-@$perm_meaning {CTWILL}291 \&{static} \&{struct}@>
+@$perm_meaning {CTWILL}292 \&{static} \&{struct}@>
@z
-Section 300.
+Section 301.
@x
@ @<Predec...@>=@+static boolean app_supp(text_pointer);
@@ -2114,7 +2114,7 @@
@-app_supp@>
@z
-Section 301.
+Section 302.
@x
@ The trickiest part of \.{CTWILL} is the procedure |make_ministring(pp+l)|,
@@ -2125,10 +2125,10 @@
@-c@>
@-l@>
@-make_ministring@>
-@$make_ministring {CTWILL}301 \&{static} \&{void} (\,)@>
+@$make_ministring {CTWILL}302 \&{static} \&{void} (\,)@>
@z
-Section 302.
+Section 303.
@x
@ @<Predec...@>=@+static void make_ministring(scrap_pointer);
@@ -2137,7 +2137,7 @@
@-make_ministring@>
@z
-Section 305.
+Section 306.
@x
@ @<Append tokens for type |q|@>=
@@ -2151,7 +2151,7 @@
@|&& *(*r+1)=='{') app(**q); /* |struct_like| identifier */
@z
-Section 310.
+Section 311.
@x
@ @<Write the new meaning to the \.{.aux} file@>=
@@ -2158,11 +2158,11 @@
@y
@ @<Write the new meaning to the \.{.aux} file@>=
@%
-@$p {CTWILL}294 \&{name\_pointer}@>
-@$q {CTWILL}294 \&{struct perm\_meaning} ${}{*}{}$@>
+@$p {CTWILL}295 \&{name\_pointer}@>
+@$q {CTWILL}295 \&{struct perm\_meaning} ${}{*}{}$@>
@z
-Section 311.
+Section 312.
@x
@<Flag the usage of this identifier, for the mini-index@>=
@@ -2169,10 +2169,10 @@
@y
@<Flag the usage of this identifier, for the mini-index@>=
@%
-@$p {CTWILL}217 \&{name\_pointer}@>
+@$p {CTWILL}218 \&{name\_pointer}@>
@z
-Section 314.
+Section 315.
@x
@ @<Predec...@>=@+static void out_mini(meaning_struct *);
@@ -2181,7 +2181,7 @@
@-out_mini@>
@z
-Section 317.
+Section 318.
@x
@ @<Predec...@>=@+static sixteen_bits title_lookup(void);
@@ -2190,7 +2190,7 @@
@-title_lookup@>
@z
-Section 320.
+Section 321.
@x
@d indent_param_decl flags['i'] /* should formal parameter declarations be indented? */
@@ -2197,10 +2197,10 @@
@y
@d indent_param_decl flags['i'] /* should formal parameter declarations be indented? */
@-indent_param_decl@>
-@$indent_param_decl {CTWILL}320 =\\{flags}[\.{'i'}]@>
+@$indent_param_decl {CTWILL}321 =\\{flags}[\.{'i'}]@>
@z
-Section 321.
+Section 322.
@x
@d order_decl_stmt flags['o'] /* should declarations and statements be separated? */
@@ -2207,10 +2207,10 @@
@y
@d order_decl_stmt flags['o'] /* should declarations and statements be separated? */
@-order_decl_stmt@>
-@$order_decl_stmt {CTWILL}321 =\\{flags}[\.{'o'}]@>
+@$order_decl_stmt {CTWILL}322 =\\{flags}[\.{'o'}]@>
@z
-Section 326.
+Section 327.
@x l.116 of CTWILL-TEXLIVE.CH
@d kpse_find_cweb(name) kpse_find_file(name,kpse_cweb_format,true)
@@ -2219,7 +2219,7 @@
@-name@>
@z
-Section 327.
+Section 328.
@x
@** Index.
Modified: trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch 2023-08-07 15:44:19 UTC (rev 67832)
+++ trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch 2023-08-07 18:11:52 UTC (rev 67833)
@@ -94,7 +94,7 @@
reprinted in {\sl Digital Typography\/} (1999), 225--245.
A kind of ``user manual'' for \.{CTWILL} can be found in the appendix
-\X270:Mogrify \.{CWEAVE} into \.{CTWILL}\X~and beyond, together with
+\X271:Mogrify \.{CWEAVE} into \.{CTWILL}\X~and beyond, together with
additional material specific to \.{CTWILL}. % FIXME
Until then, \.{CWEAVE}'s sequence of sections will be preserved.
@@ -1299,15 +1299,15 @@
@x
@** Index.
@y
- at q Section 270. @>
+ at q Section 271. @>
@** Mogrify {\tentex CWEAVE} into {\tentex CTWILL}. The following sections
introduce material that is specific to \.{CTWILL}.
Care has been taken to keep the original section numbering of \.{CWEAVE}
up to this point intact, so this new material should nicely integrate
-with the original ``\&{270.~Index}.''
+with the original ``\&{271.~Index}.''
- at q Section 2->271. @>
+ at q Section 2->272. @>
@* {\tentex CTWILL} user manual.
Here is a sort of user manual for \.{CTWILL}---which is exactly like
\.{CWEAVE} except that it produces much better documentation, for which you
@@ -1468,7 +1468,7 @@
@d max_tex_chars 80 /* limit on the \TeX\ part of a meaning */
- at q Section 24->272. @>
+ at q Section 25->273. @>
@* Temporary and permanent meanings.
\.{CTWILL} has special data structures to keep track of current
and temporary meanings. These structures were not designed for maximum
@@ -1486,7 +1486,7 @@
char tex_part[max_tex_chars]; /* \TeX\ part of meaning */
} meaning_struct;
- at q Section 25->273. @>
+ at q Section 26->274. @>
@ @<Private...@>=
static struct perm_meaning {
meaning_struct perm; /* current meaning of an identifier */
@@ -1509,16 +1509,16 @@
static char *ministring_ptr; /* first available slot in |ministring_buf| */
static boolean ms_mode; /* are we outputting to |ministring_buf|? */
- at q Section 26->274. @>
+ at q Section 27->275. @>
@ @<Set init...@>=
max_temp_meaning_ptr=temp_meaning_stack;
title_code_ptr=title_code;
ms_mode=false;
- at q Section 275. @>
+ at q Section 276. @>
@ @<Predec...@>=@+static void new_meaning(name_pointer);
- at q Section 29->276. @>
+ at q Section 30->277. @>
@ The |new_meaning| routine changes the current ``permanent meaning''
when an identifier is redeclared. It gets the |tex_part| from
|ministring_buf|.
@@ -1543,7 +1543,7 @@
@<Write the new meaning to the \.{.aux} file@>@;
}
- at q Section 74->277. @>
+ at q Section 75->278. @>
@ @<Process a user-generated meaning@>=
{ char *first=id_first;
while (xisspace(*first)) first++;
@@ -1563,7 +1563,7 @@
loc=id_loc+2;
}
- at q Section 75->278. @>
+ at q Section 76->279. @>
@ @<Suppress mini-index entry@>=
{ char *first=id_first,*last=id_loc;
while (xisspace(*first)) first++;
@@ -1574,7 +1574,7 @@
}
}
- at q Section 76->279. @>
+ at q Section 77->280. @>
@ @<Digest...@>=
{ meaning_struct *m;
struct perm_meaning *q=get_meaning(p);
@@ -1597,7 +1597,7 @@
}
}
- at q Section 140->280/1. @>
+ at q Section 141->282/2. @>
@* Make ministrings.
\.{CTWILL} needs the following procedure, which appends tokens of a
translated text until coming to |tok_loc|, then suppresses text that may
@@ -1627,10 +1627,10 @@
catch14: return *(*(p+1)-1)=='9'; /* was production 14 used? */
}
- at q Section 282. @>
+ at q Section 283. @>
@ @<Predec...@>=@+static boolean app_supp(text_pointer);
- at q Section 141->283. @>
+ at q Section 142->284. @>
@ The trickiest part of \.{CTWILL} is the procedure |make_ministring(pp+l)|,
with offset $l\in\{0,1,2\}$, which tries to figure out a symbolic form of
definition after |make_underlined(pp+l)| has been called. We rely heavily
@@ -1658,14 +1658,14 @@
cur_mathness=maybe_math; /* restore it */
}
- at q Section 284. @>
+ at q Section 285. @>
@ @<Predec...@>=@+static void make_ministring(scrap_pointer);
- at q Section 42->285. @>
+ at q Section 43->286. @>
@ @<Private...@>=
static sixteen_bits int_loc, ext_loc; /* locations of special reserved words */
- at q Section 142->286. @>
+ at q Section 143->287. @>
@ Here we use the fact that a |decl_head| comes from |int_like| only in
production~27, whose translation is fairly easy to recognize. (Well,
production 28 has been added for \CPLUSPLUS/, but we hope that doesn't
@@ -1706,7 +1706,7 @@
@<Append tokens for type |q|@>@;
}
- at q Section 143->287. @>
+ at q Section 144->288. @>
@ @<Append tokens for type |q|@>=
cur_mathness=no_math; /* it was |maybe_math| */
if (*(q+1)==*q+8 && *(*q+1)==' ' && *(*q+3)==' ') {
@@ -1718,13 +1718,13 @@
big_app('{');@+app('*');@+app('}');@+ast_count--;
}
- at q Section 252->288. @>
+ at q Section 253->289. @>
@ @<Private...@>=
static boolean is_macro; /* it's a macro def, not a format def */
static boolean def_diff; /* |false| iff the current macro has parameters */
static name_pointer id_being_defined; /* the definee */
- at q Section 256->289. @>
+ at q Section 257->290. @>
@ @<Make ministring for a new macro@>=
{
ms_mode=true; ministring_ptr=ministring_buf;
@@ -1742,7 +1742,7 @@
new_meaning(id_being_defined);
}
- at q Section 245->290. @>
+ at q Section 246->291. @>
@* Process {\tentex .aux} files.
@<Private...@>=
@@ -1749,7 +1749,7 @@
static FILE *aux_file;
static char aux_file_name[max_file_name_length]; /* name of \.{.aux} file */
- at q Section 246->291. @>
+ at q Section 247->292. @>
@ @<Read the \.{.aux} file, if present; then open it for output@>=
memcpy(aux_file_name,tex_file_name,strlen(tex_file_name)-4);
strcat(aux_file_name,".bux");
@@ -1778,7 +1778,7 @@
if ((aux_file=fopen(aux_file_name,"wb"))==NULL)
fatal(_("! Cannot open aux output file "),aux_file_name);
- at q Section 30->292. @>
+ at q Section 31->293. @>
@ @<Write the new meaning to the \.{.aux} file@>=
{@+int n=q->perm.prog_no;
fprintf(aux_file,"@@$%.*s %.*s",@|
@@ -1788,7 +1788,7 @@
fprintf(aux_file," %s@@>\n",q->perm.tex_part);
}
- at q Section 267->293. @>
+ at q Section 268->294. @>
@* Usage of identifiers.
The following code is performed for each identifier parsed during
a section. Variable |top_usage| is always nonzero; it has the sentinel
@@ -1807,7 +1807,7 @@
}
}
- at q Section 268->294. @>
+ at q Section 269->295. @>
@ @<Output information about usage of id's defined in other sections@>=
{ struct perm_meaning *q;
while (temp_meaning_ptr>temp_meaning_stack) {
@@ -1823,7 +1823,7 @@
}
}
- at q Section 269->295. @>
+ at q Section 270->296. @>
@ @c static void
out_mini(
meaning_struct *m)
@@ -1842,10 +1842,10 @@
out(' '); out_str(m->tex_part); finish_line();
}
- at q Section 270->296. @>
+ at q Section 271->297. @>
@ @<Predec...@>=@+static void out_mini(meaning_struct *);
- at q Section 271->297. @>
+ at q Section 272->298. @>
@ Compare this code with section |@<Output the name...@>|.
@<Mini-output...@>=
@@ -1878,7 +1878,7 @@
out_name(cur_name,true);
name_done:@;
- at q Section 27->298. @>
+ at q Section 28->299. @>
@* Handle program title.
Here's a routine that converts a program title from the buffer
into an internal number for the |prog_no| field of a meaning.
@@ -1908,10 +1908,10 @@
return p-title_code;
}
- at q Section 299. @>
+ at q Section 300. @>
@ @<Predec...@>=@+static sixteen_bits title_lookup(void);
- at q Section 28->300. @>
+ at q Section 29->301. @>
@ @<Give a default title to the program, if necessary@>=
if (title_code_ptr==title_code) { /* no \.{\\def\\title} found in limbo */
char *saveloc=loc,*savelimit=limit; /* save */
@@ -1924,7 +1924,7 @@
loc=saveloc; limit=savelimit; /* restore */
}
- at q Section 301. @>
+ at q Section 302. @>
@** Extensions to {\tentex CWEB}. The following sections introduce new or
improved features that have been created by numerous contributors over the
course of a quarter century.
Modified: trunk/Build/source/texk/web2c/cwebdir/cweav-bs.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cweav-bs.ch 2023-08-07 15:44:19 UTC (rev 67832)
+++ trunk/Build/source/texk/web2c/cwebdir/cweav-bs.ch 2023-08-07 18:11:52 UTC (rev 67833)
@@ -87,7 +87,7 @@
@z
- at x Section 21.
+ at x Section 22.
typedef struct xref_info {
sixteen_bits num; /* section number plus zero or |def_flag| */
struct xref_info *xlink; /* pointer to the previous cross-reference */
@@ -102,7 +102,7 @@
@z
- at x Section 22.
+ at x Section 23.
static xref_info xmem[max_refs]; /* contains cross-reference information */
static xref_pointer xmem_end = xmem+max_refs-1;
@y
@@ -111,7 +111,7 @@
@z
- at x Section 23.
+ at x Section 24.
@d xref equiv_or_xref
@y
@d xref ptr_union.xref_member
@@ -118,7 +118,7 @@
@z
- at x Section 23.
+ at x Section 24.
xref_ptr=xmem; init_node(name_dir); xref_switch=section_xref_switch=0;
xmem->num=0; /* sentinel value */
@y
@@ -128,7 +128,7 @@
@z
- at x Section 29. (to please Borland's C++, version 4.02)
+ at x Section 30. (to please Borland's C++, version 4.02)
static token tok_mem[max_toks]; /* tokens */
static token_pointer tok_mem_end = tok_mem+max_toks-1; /* end of |tok_mem| */
static token_pointer tok_ptr; /* first unused position in |tok_mem| */
@@ -147,7 +147,7 @@
@z
- at x Section 30. (goes with the previous change)
+ at x Section 31. (goes with the previous change)
tok_ptr=max_tok_ptr=tok_mem+1;@/
tok_start[0]=tok_start[1]=tok_mem+1;@/
text_ptr=max_text_ptr=tok_start+1;
@@ -159,7 +159,7 @@
@z
- at x Section 31.
+ at x Section 32.
p->xref=(void *)xmem;
@y
p->xref=(void huge*)xmem;
@@ -166,7 +166,7 @@
@z
- at x Section 77.
+ at x Section 78.
if (unindexed(lhs)) { /* retain only underlined entries */
xref_pointer q,r=NULL;
for (q=(xref_pointer)lhs->xref;q>xmem;q=q->xlink)
@@ -187,7 +187,7 @@
@z
- at x Section 96.
+ at x Section 97.
char *k; /* pointer into |byte_mem| */
@y
char huge* *k; /* pointer into |byte_mem| */
@@ -194,7 +194,7 @@
@z
- at x Section 216.
+ at x Section 218.
char *p; /* index into |byte_mem| */
@y
char huge *p; /* index into |byte_mem| */
@@ -201,7 +201,7 @@
@z
- at x Section 251.
+ at x Section 253.
if (cur_name->xref!=(void *)xmem) {
@y
if (cur_name->xref!=(void huge*)xmem) {
@@ -208,7 +208,7 @@
@z
- at x Section 253.
+ at x Section 255.
static char *cur_byte; /* index into |byte_mem| */
@y
static char huge* cur_byte; /* index into |byte_mem| */
@@ -215,7 +215,7 @@
@z
- at x Section 262.
+ at x Section 264.
switch (cur_name->ilk) {@+char *j;@+ at t}\6{\4@>
@y
switch (cur_name->ilk) {@+char huge* j;@+ at t}\6{\4@>
Modified: trunk/Build/source/texk/web2c/cwebdir/cweav-pc.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cweav-pc.ch 2023-08-07 15:44:19 UTC (rev 67832)
+++ trunk/Build/source/texk/web2c/cwebdir/cweav-pc.ch 2023-08-07 18:11:52 UTC (rev 67833)
@@ -22,7 +22,7 @@
@d max_bytes (unsigned)60000 /* the number of bytes in identifiers,
@z
- at x section 22
+ at x section 23
@ @d max_refs 30000 /* number of cross-references; must be less than 65536 */
@y
@ @d max_refs 10000 /* number of cross-references; must be less than 65536 */
Modified: trunk/Build/source/texk/web2c/cwebdir/cweav-w2c.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cweav-w2c.ch 2023-08-07 15:44:19 UTC (rev 67832)
+++ trunk/Build/source/texk/web2c/cwebdir/cweav-w2c.ch 2023-08-07 18:11:52 UTC (rev 67833)
@@ -623,7 +623,7 @@
course of a quarter century.
Care has been taken to keep the original section numbering intact, so this new
-material should nicely integrate with the original ``\&{270.~Index}.''
+material should nicely integrate with the original ``\&{271.~Index}.''
@* Formatting alternatives.
\.{CWEAVE} indents declarations after old-style function definitions and
Modified: trunk/Build/source/texk/web2c/cwebdir/cweav-w32.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cweav-w32.ch 2023-08-07 15:44:19 UTC (rev 67832)
+++ trunk/Build/source/texk/web2c/cwebdir/cweav-w32.ch 2023-08-07 18:11:52 UTC (rev 67833)
@@ -7,7 +7,7 @@
@d banner "This is CWEAVE (Version 4.9win32)"
@z
- at x section 31
+ at x section 32
boolean names_match(
name_pointer p, /* points to the proposed match */
const char *first, /* position of first character of string */
Modified: trunk/Build/source/texk/web2c/cwebdir/cweave.w
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cweave.w 2023-08-07 15:44:19 UTC (rev 67832)
+++ trunk/Build/source/texk/web2c/cwebdir/cweave.w 2023-08-07 18:11:52 UTC (rev 67833)
@@ -110,7 +110,8 @@
possible changes from this \.{COMMON} interface consistently.
@i common.h
-\.{CWEAVE} will use the |INT_MAX| limit in section
+
+@ \.{CWEAVE} will use the |INT_MAX| limit in section
|@<Output the code for the beginning...@>| below.
@<Incl...@>=
More information about the tex-live-commits
mailing list.