c-type-getter ( name -- quot )

Vocabulary

alien.c-types

Inputs

name

an object

Outputs

quot

an object

Definition

IN: alien.c-types

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

Methods

USING: alien.c-types kernel ;

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


USING: accessors alien.c-types ;

M: c-type c-type-getter getter>> ;


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

M: enum-c-type c-type-getter
    [ base-type>> ] call \ c-type-getter execute ;


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

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


USING: alien alien.c-types kernel ;

M: value-type c-type-getter drop [ swap <displaced-alien> ] ;