glob-pattern% ( root globs -- )

Vocabulary

globs.private

Inputs

root	an object
globs	an object

Outputs

None

Definition

USING: accessors io.pathnames kernel regexp sequences unicode ;

IN: globs.private

:: glob-pattern% ( root globs -- )
    globs unclip second :> ( remaining glob ) root glob-entries 
    [| entry |
        entry name>> >case-fold glob matches?
        [ root entry name>> append-path remaining entry ?glob% ]
        when
    ] each ;