each-method-in-class ( class quot: ( classname method -- ) -- )

Vocabulary

cocoa.messages

Inputs

class	an object
quot	a quotation with stack effect ( classname method -- )

Outputs

None

Definition

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

IN: cocoa.messages

: each-method-in-class
    ( class quot: ( classname method -- ) -- )
    [
        [ class_getName ] keep 0 uint <ref>
        [ class_copyMethodList ] keep uint deref
    ] dip over 0 =
    [ 4drop ] [
        [ void* <c-direct-array> ] dip
        [ with each ] [ drop (free) ] 2bi
    ] if ; inline