(parse-selector) ( -- )

Vocabulary

cocoa.subclassing

Inputs

None

Outputs

None

Definition

USING: alien.parser arrays combinators kernel lexer make
sequences ;

IN: cocoa.subclassing

: (parse-selector) ( -- )
    scan-token {
        { [ dup "[" = ] [ drop ] }
        {
            [ dup ":" tail? ]
            [ scan-c-type scan-token 3array , (parse-selector) ]
        }
        [ f f 3array , "[" expect ]
    } cond ;