<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
    [ '[ [ _ ] 2dip swap CFArraySetValueAtIndex ] each-index ]
    keep ;