1 ! Copyright (C) 2010 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.c-types alien.data cuda.ffi kernel ;
4 QUALIFIED-WITH: alien.c-types c
7 ERROR: cuda-error-state code ;
9 : cuda-error ( code -- )
10 dup CUDA_SUCCESS = [ drop ] [ cuda-error-state ] if ;
12 : cuda-version ( -- n )
13 { c:int } [ cuDriverGetVersion cuda-error ] with-out-parameters ;
16 0 cuInit cuda-error ; inline