glob-path ( glob -- path globs )

Vocabulary

globs.private

Inputs

glob

an object

Outputs

path	an object
globs	an object

Definition

USING: arrays combinators.short-circuit globs kernel sequences
unicode ;

IN: globs.private

: glob-path ( glob -- path globs )
    split-glob [
        dup { [ "**" = not ] [ glob-pattern? ] } 1&&
        [ dup >case-fold <glob> 2array ] when
    ] map ;