c-type-boxer-quot ( name -- quot )

Vocabulary

alien.c-types

Inputs

name

an object

Outputs

quot

an object

Definition

IN: alien.c-types

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

Methods

USING: accessors alien.c-types ;

M: abstract-c-type c-type-boxer-quot boxer-quot>> ;


USING: alien.arrays alien.c-types alien.data arrays kernel
sequences ;

M: array c-type-boxer-quot
    unclip [ array-length ] dip [ <c-direct-array> ] 2curry ;


USING: alien.c-types kernel ;

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


USING: accessors alien.c-types alien.enums.private combinators
kernel stack-checker.dependencies ;

M: enum-c-type c-type-boxer-quot
    members>> \ enum-boxer dup +definition+ depends-on
    def>> ( members -- quot ) call-effect ;


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

M: promoted-vararg-c-type c-type-boxer-quot
    [ promoted>> ] call \ c-type-boxer-quot execute ;


USING: alien.arrays alien.c-types alien.strings
io.encodings.binary kernel sequences ;

M: string-type c-type-boxer-quot
    second dup binary =
    [ drop void* c-type-boxer-quot ] [ '[ _ alien>string ] ] if
    ;