From 07801f7ec3e3482aba8553fd75f9f190ac3f9f0a Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 13 Aug 2021 03:00:43 +0000 Subject: CTAN sync 202108130300 --- web/pwebmac/webman.ch | 171 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 171 insertions(+) (limited to 'web/pwebmac/webman.ch') diff --git a/web/pwebmac/webman.ch b/web/pwebmac/webman.ch index af8b2e88ff..074af792e7 100644 --- a/web/pwebmac/webman.ch +++ b/web/pwebmac/webman.ch @@ -121,6 +121,12 @@ This excerpt from \.{WEAVE.WEB} produced modules 55--59 in \pdfURL{Appendix~D}{weave.pdf}. @z +@x l.1050 +ASCII codes is $c_1c_2\ldots c_m$, its hash value will be +@y +ASCII codes is $c_1c_2\ldots c_n$, its hash value will be +@z + @x l.1061 \section Appendix B. This excerpt from \.{WEAVE.TEX} corresponds to Appendix A. @@ -130,6 +136,18 @@ This excerpt from \.{WEAVE.TEX} corresponds to Appendix A. This excerpt from \.{WEAVE.TEX} corresponds to \Appendix A. @z +@x l.1129 +ASCII codes is $c_1c_2\ldots c_m$, its hash value will be +@y +ASCII codes is $c_1c_2\ldots c_n$, its hash value will be +@z + +@x l.1139 +\U section~58.\fi +@y +\U58.\fi +@z + @x l.1143 \section Appendix C. @y @@ -137,6 +155,153 @@ This excerpt from \.{WEAVE.TEX} corresponds to \Appendix A. \section Appendix C. @z +@x l.1149 +those lines. There are 1559 lines in all; the notation +@y +those lines. There are 1585 lines in all; the notation +@z + +@x l.1158 +{2:}{4:}{$C-,A+,D-}{[$C+,D+]}{:4} +PROGRAM WEAVE(WEBFILE,CHANGEFILE,TEXFILE);LABEL 9999;CONST{8:} +MAXBYTES=45000;MAXNAMES=5000;MAXMODULES=2000;HASHSIZE=353;BUFSIZE=100; +@y +{2:}{4:}{$C-,A+,D-}{[$C+,D+]} +{:4}PROGRAM WEAVE(WEBFILE,CHANGEFILE,TEXFILE);LABEL 9999; +CONST{8:}MAXBYTES=45000;MAXNAMES=5000;MAXMODULES=2000;HASHSIZE=353; +@z + +@x l.1162 +TOKPTR:0..MAXTOKS;{MAXTOKPTR,MAXTXTPTR:0..MAXTOKS;}{:53}{55:} +IDFIRST:0..LONGBUFSIZE;IDLOC:0..LONGBUFSIZE; +@y +TOKPTR:0..MAXTOKS;{MAXTOKPTR,MAXTXTPTR:0..MAXTOKS;} +{:53}{55:}IDFIRST:0..LONGBUFSIZE;IDLOC:0..LONGBUFSIZE; +@z + +@x l.1166 +PROCEDURE INITIALIZE;VAR{16:}I:0..127;{:16}{40:}WI:0..1;{:40}{56:} +H:0..HASHSIZE;{:56}{247:}C:ASCIICODE;{:247}BEGIN{10:}HISTORY:=0;{:10} +@y +{:33}PROCEDURE INITIALIZE;VAR{16:}I:0..255;{:16}{40:}WI:0..1; +{:40}{56:}H:0..HASHSIZE;{:56}{247:}C:ASCIICODE; +@z + +@x l.1169 +TOKPTR:=1;TEXTPTR:=1;TOKSTART[0]:=1;TOKSTART[1]:=1;{MAXTOKPTR:=1; +MAXTXTPTR:=1;}{:54}{57:}FOR H:=0 TO HASHSIZE-1 DO HASH[H]:=0;{:57}{94:} +SCANNINGHEX:=FALSE;{:94}{102:}MODTEXT[0]:=32;{:102}{124:}OUTPTR:=1; +@y +{MAXTOKPTR:=1;MAXTXTPTR:=1;} +{:54}{57:}FOR H:=0 TO HASHSIZE-1 DO HASH[H]:=0; +{:57}{94:}SCANNINGHEX:=FALSE;{:94}{102:}MODTEXT[0]:=32; +@z + +@x l.1173 +IF R=0 THEN XREF[P]:=XREFPTR ELSE XMEM[R].XLINKFIELD:=XREFPTR;END;{:51} +{58:}FUNCTION IDLOOKUP(T:EIGHTBITS):NAMEPOINTER;LABEL 31; +@y +IF R=0 THEN XREF[P]:=XREFPTR ELSE XMEM[R].XLINKFIELD:=XREFPTR;END; +{:51}{58:}FUNCTION IDLOOKUP(T:EIGHTBITS):NAMEPOINTER;LABEL 31; +@z + +@x l.1176 +L:0..LONGBUFSIZE;P:NAMEPOINTER;BEGIN L:=IDLOC-IDFIRST;{59:} +H:=BUFFER[IDFIRST];I:=IDFIRST+1; +@y +L:0..LONGBUFSIZE;P:NAMEPOINTER;BEGIN L:=IDLOC-IDFIRST; +{59:}H:=BUFFER[IDFIRST];I:=IDFIRST+1; +@z + +@x l.1184 +LINK[P]:=HASH[H];HASH[H]:=P;31:{:60};IF P=NAMEPTR THEN{62:} +BEGIN W:=NAMEPTR MOD 2; +@y +LINK[P]:=HASH[H];HASH[H]:=P;31:{:60}; +IF P=NAMEPTR THEN{62:}BEGIN W:=NAMEPTR MOD 2; +@z + +@x l.1194 +XREF[P]:=0;END{:62};IDLOOKUP:=P;END;{:58}{66:} +FUNCTION MODLOOKUP(L:SIXTEENBITS):NAMEPOINTER;LABEL 31;VAR C:0..4; +@y +XREF[P]:=0;END{:62};IDLOOKUP:=P;END; +{:58}{66:}FUNCTION MODLOOKUP(L:SIXTEENBITS):NAMEPOINTER;LABEL 31; +@z + +@x l.1208 +\verbatim +@y +\begingroup \def\tt{\ninett} \baselineskip10pt +\verbatim +@z + +@x l.1210 +\xdef\fmtversion{\fmtversion+WEBMAC4.0} % identifies current set of macros +@y +\xdef\fmtversion{\fmtversion+WEBMAC4.2} % identifies current set of macros +@z + +@x l.1218 +\font\tentex=cmtex10 % TeX extended character set (used in strings) +@y +\font\tentex=cmtex10 % TeX extended character set (used in strings) +\fontdimen7\tentex=0pt % no extra space after punctuation +@z + +@x l.1294 + {\xdef\modstar{#1}\let\*=\empty\xdef\modno{#1}} + \ifx\modno\modstar \onmaybe \else\ontrue \fi \mark{\modno}} +@y + {\xdef\modstar{#1}\let\*=\empty\xdef\modno{#1}}% remove \* from section name + \ifx\modno\modstar \onmaybe \else\ontrue \fi + \mark{{{\tensy x}\modno}{\rhead}}} + % each \mark is {section reference or null}{group title} +@z + +@x l.1325 +\def\lheader{\mainfont\the\pageno\eightrm\qquad\rhead\hfill\title\qquad + \tensy x\mainfont\topmark} % top line on left-hand pages +\def\rheader{\tensy x\mainfont\topmark\eightrm\qquad\title\hfill\rhead + \qquad\mainfont\the\pageno} % top line on right-hand pages +@y +\def\lheader{\mainfont\the\pageno\eightrm\qquad\rhead + \hfill\title\qquad\mainfont\topsecno} % top line on left-hand pages +\def\rheader{\mainfont\topsecno\eightrm\qquad\title\hfill + \rhead\qquad\mainfont\the\pageno} % top line on right-hand pages +\def\topsecno{\expandafter\takeone\topmark} +\def\takeone#1#2{#1} +\def\taketwo#1#2{#2} +\def\nullsec{\eightrm\kern-2em} % the \kern-2em cancels \qquad in headers +@z + +@x l.1336 +\def\rhead{\.{WEB} OUTPUT} % this running head is reset by starred sections +@y +\def\rhead{\.{WEB} OUTPUT} % this running head is reset by starred sections +\mark{\noexpand\nullsec{\rhead}} +@z + +@x l.1392 + \def\rhead{NAMES OF THE SECTIONS} +@y + \def\rhead{NAMES OF THE SECTIONS} + \let\topsecno=\nullsec +@z + +@x l.1395 + \def\note##1##2.{\hfil\penalty-1\hfilneg\quad{\eightrm##1 ##2.}} +@y + \def\note##1##2.{\hfil\penalty-1\hfilneg\quad{\eightrm##1~##2.}} +@z + +@x l.1414 +?endgroup +@y +?endgroup +\endgroup +@z + @x l.1425 in small caps. For example, Appendix~D was produced after saying @y @@ -172,6 +337,12 @@ dependencies'' in the index of \pdfURL{Appendix~E}{tangle.pdf} above, and figure out what changes @z +@x l.1592 +first change files; then you can sure that your compiler will handle +@y +first change files; then you can be sure that your compiler will handle +@z + @x l.1609 the index to Appendix~D. @y -- cgit v1.2.3