slice-til-either ( n string tokens -- n'/f string slice/f ch/f )


Vocabulary
modern.slices

Inputs
nan object
stringan object
tokensan object


Outputs
n'/fan object
stringan object
slice/fan object
ch/fan object


Definition


:: slice-til-either
( n string tokens -- n'/f string slice/f ch/f )
n [
n string [ tokens member? ] find-from
dup " \r\n" member?
[ :> ( n' ch ) n' string n n' string ?<slice> ch ] [
[ dup [ 1 + ] when ] dip
:> ( n' ch ) n' string n n' string ?<slice> ch
] if
] [ f string f f ] if ; inline