summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/tangleboot.pin
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-01-30 01:42:07 +0000
committerKarl Berry <karl@freefriends.org>2021-01-30 01:42:07 +0000
commit0bf3e49d4d147727e1daf1007362a871972b214f (patch)
tree63a54dcf8830af3f1f4672589b1ebce917693e57 /Build/source/texk/web2c/tangleboot.pin
parent62203043f467d3a24b34f2df151b65e6ea35144b (diff)
tuneup2021 from DEK, with adaptations for TL
git-svn-id: svn://tug.org/texlive/trunk@57558 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/tangleboot.pin')
-rw-r--r--Build/source/texk/web2c/tangleboot.pin20
1 files changed, 9 insertions, 11 deletions
diff --git a/Build/source/texk/web2c/tangleboot.pin b/Build/source/texk/web2c/tangleboot.pin
index 10a4dc1ddee..36e7da9de93 100644
--- a/Build/source/texk/web2c/tangleboot.pin
+++ b/Build/source/texk/web2c/tangleboot.pin
@@ -102,7 +102,7 @@ end else if getoptreturnval=63 then begin usage('tangle');
end else if(strcmp(longoptions[optionindex].name,'help')=0)then begin
usagehelp(TANGLEHELP,nil);
end else if(strcmp(longoptions[optionindex].name,'version')=0)then begin
-printversionandexit('This is TANGLE, Version 4.5',nil,'D.E. Knuth',nil);
+printversionandexit('This is TANGLE, Version 4.6',nil,'D.E. Knuth',nil);
end else if(strcmp(longoptions[optionindex].name,'mixedcase')=0)then
begin forceuppercase:=false;forcelowercase:=false;
end else if(strcmp(longoptions[optionindex].name,'uppercase')=0)then
@@ -590,9 +590,8 @@ end;end else if buffer[1]=122 then begin primethechangebuffer;
changing:=not changing;templine:=otherline;otherline:=line;
line:=templine;end;end;end{:137};
if not changing then begin{136:}begin line:=line+1;
-if not inputln(webfile)then inputhasended:=true else if limit=
-changelimit then if buffer[0]=changebuffer[0]then if changelimit>0 then
-checkchange;end{:136};if changing then goto 20;end;loc:=0;
+if not inputln(webfile)then inputhasended:=true else if changelimit>0
+then checkchange;end{:136};if changing then goto 20;end;loc:=0;
buffer[limit]:=32;end;
{:135}{139:}function controlcode(c:ASCIIcode):eightbits;
begin case c of 64:controlcode:=64;39:controlcode:=12;
@@ -614,10 +613,9 @@ while true do begin if loc>limit then begin getline;
if inputhasended then begin begin writeln(stdout);
write(stdout,'! Input ended in mid-comment');error;end;goto 10;end;end;
c:=buffer[loc];loc:=loc+1;{142:}if c=64 then begin c:=buffer[loc];
-if(c<>32)and(c<>9)and(c<>42)and(c<>122)and(c<>90)then loc:=loc+1 else
-begin begin writeln(stdout);
-write(stdout,'! Section ended in mid-comment');error;end;loc:=loc-1;
-goto 10;
+if(c<>32)and(c<>9)and(c<>42)then loc:=loc+1 else begin begin writeln(
+stdout);write(stdout,'! Section ended in mid-comment');error;end;
+loc:=loc-1;goto 10;
end end else if(c=92)and(buffer[loc]<>64)then loc:=loc+1 else if c=123
then bal:=bal+1 else if c=125 then begin if bal=0 then goto 10;
bal:=bal-1;end{:142};end;10:end;{:141}{145:}function getnext:eightbits;
@@ -853,12 +851,12 @@ others:write(stdout,'?')end;end;end;10:end;}
changing:=true;primethechangebuffer;changing:=not changing;
templine:=otherline;otherline:=line;line:=templine;limit:=0;loc:=1;
buffer[0]:=32;inputhasended:=false;{:134};
-write(stdout,'This is TANGLE, Version 4.5');
+write(stdout,'This is TANGLE, Version 4.6');
writeln(stdout,versionstring);{183:}phaseone:=true;modulecount:=0;
repeat nextcontrol:=skipahead;until nextcontrol=136;
while not inputhasended do scanmodule;
-{138:}if changelimit<>0 then begin for ii:=0 to changelimit do buffer[ii
-]:=changebuffer[ii];limit:=changelimit;changing:=true;line:=otherline;
+{138:}if changelimit<>0 then begin for ii:=0 to changelimit-1 do buffer[
+ii]:=changebuffer[ii];limit:=changelimit;changing:=true;line:=otherline;
loc:=changelimit;begin writeln(stdout);
write(stdout,'! Change file entry did not match');error;end;end{:138};
phaseone:=false;{:183};{for ii:=0 to 4 do maxtokptr[ii]:=tokptr[ii];}