Anonymous user
Tokenize a string: Difference between revisions
m
→[[Tokenizing_A_String#ALGOL_68]]: make term: assign CSV string terminator
(→[[Tokenizing A String#ALGOL 68]]: Who split the beetles: substring OR chararray?) |
m (→[[Tokenizing_A_String#ALGOL_68]]: make term: assign CSV string terminator) |
||
Line 51:
FLEX[1:0]STRING out;
FILE beetlesf;
associate(beetlesf, beetles); # associate a FILE handle with a STRING #
STRING solo;▼
PROC raise logical file end = (REF FILE f)BOOL: except logical file end;
on logical file end(beetlesf, raise logical file end);
DO
▲ STRING solo;
getf(beetlesf, ($g$, solo));
out+:=solo;
| |||