Rosetta Code

Tokenize a string: Difference between revisions

Page Discussion

Tokenize a string (view source)

Revision as of 12:37, 31 August 2008

16 bytes added ,  15 years ago
m
→‎[[Tokenizing A String#ALGOL 68]]: minor var rename.
m (→‎[[Tokenizing_A_String#ALGOL_68]]: make term: assign CSV string terminator)
Line 50:
""" Split beetles where character is found in chars """;
FLEX[1:0]STRING out;
FILE beetlesfbeetlef;
associate(beetlesfbeetlef, beetles); # associate a FILE handle with a STRING #
make term(beetlesfbeetlef, chars); # make term: assign CSV string terminator #
PROC raise logical file end = (REF FILE f)BOOL: except logical file end;
on logical file end(beetlesfbeetlef, raise logical file end);
STRING solo;
DO
STRINGgetf(beetlef, ($g$, solo));
getf(beetlesf, ($g$, solo));
out+:=solo;
getf(beetlesfbeetlef, ($x$)) # skip CHAR separator #
OD;
except logical file end:
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/19845"