[cuda-arguments] ( c-types abi -- quot )

Vocabulary

cuda.libraries.private

Inputs

c-types	an object
abi	an object

Outputs

quot

an object

Definition

USING: classes.struct.private cuda.libraries kernel sequences ;

IN: cuda.libraries.private

: [cuda-arguments] ( c-types abi -- quot )
    '[ _ >argument-struct-slot ] map
    [ compute-struct-offsets ]
    [ [ '[ _ write-struct-slot ] ] [ ] map-as ] [ length ] tri 
    '[
        [
            _ make-param-buffer
            [ drop @ _ fill-param-buffer ] 2keep
        ] [ '[ _ 0 ] 2dip cuda-vector ] bi
    ] ;