slice-til-not-whitespace ( n string -- n' string slice/f ch/f )

Vocabulary

modern.slices

Inputs

n	an object
string	an object

Outputs

n'	an object
string	an object
slice/f	an object
ch/f	an object

Definition

USING: kernel sequences sequences.extras ;

IN: modern.slices

:: slice-til-not-whitespace
    ( n string -- n' string slice/f ch/f )
    n [
        n string [ " \r\n\t" member? not ] find-from
        :> ( n' ch ) n' string n n' string ?<slice> ch
    ] [ n string f f ] if ; inline