split-glob ( glob -- path globs )

Vocabulary

globs.private

Inputs

glob

an object

Outputs

path	an object
globs	an object

Definition

USING: globs io.pathnames kernel sequences ;

IN: globs.private

: split-glob ( glob -- path globs )
    { } [ over glob-pattern? ] [
        [
            dup [ path-separator? ] find-last drop
            [ cut rest ] [ "" swap ] if*
        ] dip swap prefix
    ] while ;