>argument-type ( c-type abi -- c-type' )

Vocabulary

cuda.libraries.private

Inputs

c-type	an object
abi	an object

Outputs

c-type'

an object

Definition

USING: alien.c-types combinators cuda.ffi kernel ;

IN: cuda.libraries.private

: >argument-type ( c-type abi -- c-type' )
    swap {
        {
            [ dup pointer-argument-type? ]
            [ drop abi-pointer-type ]
        }
        { [ dup double = ] [ 2drop CUdouble ] }
        { [ dup longlong = ] [ 2drop CUlonglong ] }
        { [ dup ulonglong = ] [ 2drop CUulonglong ] }
        [ nip ]
    } cond ;