objc-class-names ( -- seq )

Vocabulary

cocoa.messages

Inputs

None

Outputs

seq

an object

Definition

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

IN: cocoa.messages

: objc-class-names ( -- seq )
    [
        f 0 objc_getClassList
        [ Class heap-size * malloc &free ] keep
        dupd objc_getClassList void* <c-direct-array>
        [ class_getName ] { } map-as
    ] with-destructors ;