texlive[61612] Build/source/texk/web2c: [WEB] Adapt WEB to general

[commits+ascherer at tug.org]

Revision: 61612
          http://tug.org/svn/texlive?view=revision&revision=61612
Author:   ascherer
Date:     2022-01-15 14:16:19 +0100 (Sat, 15 Jan 2022)
Log Message:
-----------
[WEB] Adapt WEB to general conventions.

All C/WEB prograns but TANGLE used 'hash_size=8501'.

In WEAVE, 'max_modules' is _not_ limited by '10240', but '4000' is more
than enough anyway (and similarly used as 'max_sections' in CWEAVE).

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ChangeLog
    trunk/Build/source/texk/web2c/tangle.ch
    trunk/Build/source/texk/web2c/tangleboot.pin
    trunk/Build/source/texk/web2c/weave.ch

Modified: trunk/Build/source/texk/web2c/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ChangeLog	2022-01-15 12:30:38 UTC (rev 61611)
+++ trunk/Build/source/texk/web2c/ChangeLog	2022-01-15 13:16:19 UTC (rev 61612)
@@ -1,3 +1,9 @@
+2022-01-15  Andreas Scherer  <https://ascherer.github.io>
+
+	* tangle.ch,
+	* tangleboot.pin,
+	* weave.ch: Adapt WEB to general conventions.
+
 2022-01-12  Marcel Kr\"uger  <tex at 2krueger.de>
 
 	* showstream.ch: if (selector<no_print), rather than <log_only.

Modified: trunk/Build/source/texk/web2c/tangle.ch
===================================================================
--- trunk/Build/source/texk/web2c/tangle.ch	2022-01-15 12:30:38 UTC (rev 61611)
+++ trunk/Build/source/texk/web2c/tangle.ch	2022-01-15 13:16:19 UTC (rev 61612)
@@ -90,6 +90,7 @@
 @!max_names=4000; {number of identifiers, strings, module names;
   must be less than 10240}
 @!max_texts=2000; {number of replacement texts, must be less than 10240}
+@!hash_size=353; {should be prime}
 @y
 @!max_bytes=65535; {|1/ww| times the number of bytes in identifiers,
   strings, and module names; must be less than 65536}
@@ -98,6 +99,7 @@
 @!max_names=10239; {number of identifiers, strings, module names;
   must be less than 10240}
 @!max_texts=10239; {number of replacement texts, must be less than 10240}
+@!hash_size=8501; {should be prime}
 @z
 
 @x

Modified: trunk/Build/source/texk/web2c/tangleboot.pin
===================================================================
--- trunk/Build/source/texk/web2c/tangleboot.pin	2022-01-15 12:30:38 UTC (rev 61611)
+++ trunk/Build/source/texk/web2c/tangleboot.pin	2022-01-15 13:16:19 UTC (rev 61612)
@@ -1,7 +1,7 @@
 {2:}{4:}{$C-,A+,D-}{[$C+,D+]}
 {:4}program TANGLE(webfile,changefile,Pascalfile,pool);
 const{8:}bufsize=1000;maxbytes=65535;maxtoks=65535;maxnames=10239;
-maxtexts=10239;hashsize=353;longestname=400;linelength=72;
+maxtexts=10239;hashsize=8501;longestname=400;linelength=72;
 outbufsize=144;stacksize=100;maxidlength=50;defunambiglength=32;
 {:8}type{11:}ASCIIcode=0..255;
 {:11}{12:}textfile=packed file of ASCIIcode;{:12}{37:}eightbits=0..255;

Modified: trunk/Build/source/texk/web2c/weave.ch
===================================================================
--- trunk/Build/source/texk/web2c/weave.ch	2022-01-15 12:30:38 UTC (rev 61611)
+++ trunk/Build/source/texk/web2c/weave.ch	2022-01-15 13:16:19 UTC (rev 61612)
@@ -111,7 +111,7 @@
 @!long_buf_size=500; {|buf_size+longest_name|}
 @!line_length=80; {lines of \TeX\ output have at most this many characters,
 @y
-@!max_modules=10239; {greater than the total number of modules}
+@!max_modules=4000; {greater than the total number of modules}
 @!hash_size=8501; {should be prime}
 @!buf_size=1000; {maximum length of input line}
 @!longest_name=10000; {module names shouldn't be longer than this}