out-parameters ( c-types -- quot )

Vocabulary

alien.data.private

Inputs

c-types

an object

Outputs

quot

an object

Definition

USING: alien.c-types combinators generalizations kernel
sequences ;

IN: alien.data.private

MACRO: out-parameters ( c-types -- quot )
    [ dup hairy-local-allot? [ first ] when ] map
    [ length ]
    [ [ [ [ 0 ] ] dip [ alien-copy-value ] curry compose ] map ]
    bi [ [ nkeep ] curry ] dip [ spread ] curry compose ;