<CFArray> ( seq -- alien )

Vocabulary

core-foundation.arrays

Inputs

seq	a sequence of alien instances

Outputs

alien

a CFArray

Word description

Creates a Core Foundation array from a Factor array.

Definition

USING: alien.libraries kernel sequences ;

IN: core-foundation.arrays

: <CFArray> ( seq -- alien )
    f over length "kCFTypeArrayCallBacks" f address-of
    CFArrayCreateMutable [
        [ ] curry [ 2dip swap CFArraySetValueAtIndex ] curry
        each-index
    ] keep ;