22 lines
322 B
Text
22 lines
322 B
Text
tokenize: function [s sep esc][
|
|
escaping: 0
|
|
|
|
loop 0..(size s)-1 [i][
|
|
chr: get split s i
|
|
|
|
switch escaping=1 [
|
|
prints chr
|
|
escaping: 0
|
|
][
|
|
case chr [
|
|
sep -> print ""
|
|
esc -> escaping: 1
|
|
any -> prints chr
|
|
]
|
|
]
|
|
]
|
|
print ""
|
|
]
|
|
|
|
str: "one^|uno||three^^^^|four^^^|^cuatro|"
|
|
tokenize str "|" "^"
|