Complete issue 10:1 as one pdf - TUG

Page 18 : Changes to the Programs and Fonts 20 February 1989
339. \def\\#l{)\input a\\b failed (Robert Messer, 24Apr88)
Qx module 259
var h : integer ; {hash code)
QY
var h:integer; {hash code)
Q!d:integer; {number of characters in incomplete current string)
Qz
Qx module 260
str-room(1) ;
for k:=j to j+l-1 do append-char(bufferCk1);
text (p) :=make-string;
QY
str-room(1); d:=cur-length;
while pool-ptr>str-start [str-ptrl do
begin decr(poo1-ptr); str~pool[pool~ptr+ll:=str~pool[pool~ptrl;
end; {move current string up to make room for another)
for k:=j to j+l-I do append-char(bufferCk1);
text(p):=make-string; pool-ptr:=pool-ptr+d;
Qz
340. Make patterns work when trie-min=0 (Peter Breitenlohner, iOMay88)
Qx module 951
trie_max:=128; trie_min:=i28; trie-link(O):=i; trie-taken[O] :=false;
QY
trie_max:=128; trie_min:=128; trie-link(O):=i; trie-taken[OI:=false;
trie-link(trie-size):=O; trie-back(O):=trie-size; {wrap around)
Qz
Qx module 953
begin c : =trie-c [pl ; Cwe have 100 1 )
if cctrie-min then trie-min:=c;
z: =trie-link(trie-min-I) ; {get the first conceivably good hole)
QY
begin c : =trie-c [p] ;
if c