glob% ( root globs -- )

Vocabulary

globs.private

Inputs

root	an object
globs	an object

Outputs

None

Definition

USING: arrays combinators kernel sequences ;

IN: globs.private

: glob% ( root globs -- )
    dup ?first {
        { f [ 2drop ] }
        { "**" [ glob-wildcard% ] }
        [ pair? [ glob-pattern% ] [ glob-literal% ] if ]
    } case ;