reassemble-va-hfa ( ptr layout -- bytes )

Vocabulary

alien.varargs.private

Inputs

ptr	an object
layout	an object

Outputs

bytes

an object

Definition

USING: accessors alien byte-arrays libc math sequences ;

IN: alien.varargs.private

:: reassemble-va-hfa ( ptr layout -- bytes )
    layout size>> <byte-array> :> bytes layout members>> [|
    member index |
        member first bytes <displaced-alien> index 16 *
        ptr <displaced-alien> member second memcpy
    ] each-index bytes ;