cl-device-type? ( object -- ? )

Vocabulary

opencl

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the cl-device-type class.

Definition

USING: kernel ;

IN: opencl

: cl-device-type? ( object -- ? )
    dup cl-device-accelerator?
    [ drop t ] [
        dup cl-device-gpu?
        [ drop t ] [
            dup cl-device-cpu?
            [ drop t ] [ cl-device-default? ] if
        ] if
    ] if ;