(NSFastEnumeration-each) ( ... object quot: ( ... elt -- ) state stackbuf count -- ... )

Vocabulary

cocoa.enumeration

Inputs

object	an object
quot	a quotation with stack effect ( ... elt -- )
state	an object
stackbuf	an object
count	an object

Outputs

None

Definition

USING: accessors alien.c-types alien.data cocoa.messages
cocoa.runtime kernel sequences ;

IN: cocoa.enumeration

:: (NSFastEnumeration-each)
    ( ... object quot: ( ... elt -- ) state stackbuf count -- ... )
    object state stackbuf count
    { ulong { id SEL void* void* ulong } }
    "countByEnumeratingWithState:objects:count:" send
    :> items-count items-count 0 = [
        state itemsPtr>>
        [ items-count id <c-direct-array> ] [ stackbuf ] if*
        :> items items-count <iota> [ items nth quot call ] each
        object quot state stackbuf count
        (NSFastEnumeration-each)
    ] unless ; inline recursive