diff options
author | Andreas Scherer <andreas_tex@freenet.de> | 2022-01-15 13:16:19 +0000 |
---|---|---|
committer | Andreas Scherer <andreas_tex@freenet.de> | 2022-01-15 13:16:19 +0000 |
commit | 40ef95f4f7d57483bba18047e9c5f47e1dc7c158 (patch) | |
tree | 191f1d1e2342dd433d85cdcd6097dbfda95a097b /Build/source/texk/web2c | |
parent | 97541c10a9f24782c05e28d98934f385c0534049 (diff) |
[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).
git-svn-id: svn://tug.org/texlive/trunk@61612 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c')
-rw-r--r-- | Build/source/texk/web2c/ChangeLog | 6 | ||||
-rw-r--r-- | Build/source/texk/web2c/tangle.ch | 2 | ||||
-rw-r--r-- | Build/source/texk/web2c/tangleboot.pin | 2 | ||||
-rw-r--r-- | Build/source/texk/web2c/weave.ch | 2 |
4 files changed, 10 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog index 34c94a10d44..f80e502556f 100644 --- a/Build/source/texk/web2c/ChangeLog +++ b/Build/source/texk/web2c/ChangeLog @@ -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@2krueger.de> * showstream.ch: if (selector<no_print), rather than <log_only. diff --git a/Build/source/texk/web2c/tangle.ch b/Build/source/texk/web2c/tangle.ch index 2cc624136c2..b87fae1f50f 100644 --- a/Build/source/texk/web2c/tangle.ch +++ b/Build/source/texk/web2c/tangle.ch @@ -90,6 +90,7 @@ procedure initialize; @!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 @@ procedure initialize; @!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 diff --git a/Build/source/texk/web2c/tangleboot.pin b/Build/source/texk/web2c/tangleboot.pin index 36e7da9de93..29746a7a266 100644 --- a/Build/source/texk/web2c/tangleboot.pin +++ b/Build/source/texk/web2c/tangleboot.pin @@ -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; diff --git a/Build/source/texk/web2c/weave.ch b/Build/source/texk/web2c/weave.ch index 8c11a9d9966..88916483f4c 100644 --- a/Build/source/texk/web2c/weave.ch +++ b/Build/source/texk/web2c/weave.ch @@ -111,7 +111,7 @@ procedure initialize; @!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} |