c-type-setter ( name -- quot )

Vocabulary

alien.c-types

Inputs

name

an object

Outputs

quot

an object

Definition

IN: alien.c-types

GENERIC: c-type-setter ( name -- quot )

Methods

USING: alien.c-types kernel ;

M: c-type-name c-type-setter
    [ lookup-c-type ] call \ c-type-setter execute ;


USING: accessors alien.c-types ;

M: c-type c-type-setter setter>> ;


USING: accessors alien.c-types alien.enums alien.enums.private
kernel ;

M: enum-c-type c-type-setter
    [ enum>number ] swap base-type>> c-type-setter
    [ [ 2dip ] curry ] dip compose ;


USING: alien.accessors alien.arrays alien.c-types kernel ;

M: string-type c-type-setter drop [ set-alien-cell ] ;


USING: alien.c-types kernel libc ;

M: value-type c-type-setter
    [ c-type-getter ] [ heap-size ] bi [ [ swap ] compose ] dip
    [ memcpy ] curry compose ;