Complete issue 10:1 as one pdf - TUG

Page 19 : Changes to the Programs and Fonts 20 February 1989
342. \input a\romannumerall etc.; similar to bug 339. (25May88)
Qx module 464
Qp function str-toks:pointer; (changes the current string to a token list)
QY
Qp function str-toks(Q!b:pool-pointer):pointer;
(changes the string I str-pool[b. .pool-ptr] I to a token list)
Qz
Qx module 464, continued
p:=temp-head; link(p):=null; k:=str-start[str-ptr] ;
QY
p:=temp-head; link(p):=null; k:=b;
Qz
Qx module 464, concluded
pool-ptr:=str-start[str-ptr]; str-toks:=p;
QY
pool-ptr:=b; str-toks:=p;
Qz
Qx module 465
begin get-x-token; scan-something-internal (tok-val,false);
if cur-val-level>=ident-val then QcCopy the token list@>
else begin old-setting:=selector; selector:=new-string;
QY
Q!b:pool-pointer; (base of temporary string)
begin get-x-token; scan~something~internal(tok~val,false);
if cur-val-level>=ident-val then @
else begin old-setting:=selector; selector:=new-string; b:=pool-ptr;
Qz
Qx module 465, continued
selector:=old-setting; the-toks:=str-toks;
QY
selector: =old-setting; the-toks : =str-toks (b);
Qz
Qx module 470
begin c:=cur-chr; @;
old-setting:=selector; selector:=new-string;
WPrint the result of command IclQ>;
selector:=old-setting; link(garbage):=str-toks; ins-list(link(temp-head));
QY
Q!b:pool-pointer; {base of temporary string)
begin c:=cur-chr; @;
old-setting:=selector; selector:=new-string; b:=pool-ptr;
@;
selector:=old-setting; link(garbage) :=str-toks(b) ; ins-list (link(temp-head)) ;
02
343. **\input\romannumeralb confusion bypassed (25May88)
Qx module 525
begin if (pool-ptr+name-length>pool-size) or (str-ptr=maxstrings then
QY
begin if (p~~l~ptr+name~length>pool~size)or(str~ptr=max~strings)or
(cur-length>O) then
Qz