[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 ] curry map
    [ compute-struct-offsets ]
    [ [ [ write-struct-slot ] curry ] [ ] map-as ] [ length ]
    tri [ [ [ drop ] ] dip compose ] dip
    [ fill-param-buffer ] curry compose
    [ [ make-param-buffer ] curry ] dip [ 2keep ] curry compose
    [ [ [ 0 ] curry 2dip cuda-vector ] bi ] curry ;