(re-split) ( string regexp quot: ( from to seq -- slice ) -- new-slices )

Vocabulary

regexp.private

Inputs

string	an object
regexp	an object
quot	a quotation with stack effect ( from to seq -- slice )

Outputs

new-slices

an object

Definition

USING: kernel regexp sequences ;

IN: regexp.private

:: (re-split)
    ( string regexp quot: ( from to seq -- slice ) -- new-slices )
    0 string regexp
    [| end start end' string | end' end start string quot call ]
    map-matches swap string length string quot call suffix ;
    inline