23 lines
534 B
Plaintext
23 lines
534 B
Plaintext
include xpllib; \for StrLen, StrNCmp, and Print
|
|
|
|
proc MultiSplit(Str, Seps, N);
|
|
char Str; int Seps, N;
|
|
int S, Ch, SepLen;
|
|
[while Str(0) # 0 do
|
|
[for S:= 0 to N-1 do
|
|
[SepLen:= StrLen(Seps(S));
|
|
if StrNCmp(Str, Seps(S), SepLen) = 0 then
|
|
[Print(" (%s) ", Seps(S));
|
|
Str:= Str + SepLen;
|
|
S:= 100;
|
|
];
|
|
];
|
|
if S < 100 then
|
|
[Ch:= Str(0); Str:= Str+1;
|
|
if Ch # 0 then ChOut(0, Ch);
|
|
];
|
|
];
|
|
];
|
|
|
|
MultiSplit("a!===b=!=c", ["==", "!=", "="], 3)
|