25 lines
502 B
Plaintext
25 lines
502 B
Plaintext
proc tokenize(char sep; *char str; [*]*char parts) word:
|
|
word n;
|
|
n := 0;
|
|
while
|
|
parts[n] := str;
|
|
while str* /= sep and str* /= '\e' do str := str + 1 od;
|
|
n := n+1;
|
|
str* /= '\e'
|
|
do
|
|
str* := '\e';
|
|
str := str + 1
|
|
od;
|
|
n
|
|
corp
|
|
|
|
proc main() void:
|
|
word i, count;
|
|
[10]*char parts;
|
|
count := tokenize(',', "Hello,How,Are,You,Today", parts);
|
|
for i from 0 upto count-1 do
|
|
write(parts[i], ". ")
|
|
od;
|
|
writeln()
|
|
corp
|