slice-til-string ( n string search -- n' string payload end-string )

Vocabulary

modern.slices

Inputs

n	an object
string	an object
search	an object

Outputs

n'	an object
string	an object
payload	an object
end-string	an object

Definition

USING: kernel math sequences sequences.extras ;

IN: modern.slices

:: slice-til-string
    ( n string search -- n' string payload end-string )
    n string search subseq-index-from :> n' n'
    [ n string search subseq-expected-but-got-eof ] unless
    n' search length + string n n' string ?<slice>
    n' dup search length + string ?<slice> ;