Tokenize a string with escaping: Difference between revisions
Content added Content deleted
(Added Algol 68) |
(→{{header|ALGOL 68}}: fixed comment) |
||
Line 74: | Line 74: | ||
ELSE |
ELSE |
||
# at least one character # |
# at least one character # |
||
# allow for a string composed entirely of |
# allow for a string composed entirely of delimiter characters # |
||
[ 1 : ( UPB s - LWB s ) + 3 ]STRING result; |
[ 1 : ( UPB s - LWB s ) + 3 ]STRING result; |
||
INT r pos := 1; |
INT r pos := 1; |