module Foreign.CUDA.Runtime.Utils (runtimeVersion, driverVersion)
where
import Foreign.CUDA.Runtime.Error
import Foreign.CUDA.Internal.C2HS
import Foreign
import Foreign.C
runtimeVersion :: IO Int
runtimeVersion = resultIfOk =<< cudaRuntimeGetVersion
cudaRuntimeGetVersion :: IO ((Status), (Int))
cudaRuntimeGetVersion =
alloca $ \a1' ->
cudaRuntimeGetVersion'_ a1' >>= \res ->
let {res' = cToEnum res} in
peekIntConv a1'>>= \a1'' ->
return (res', a1'')
driverVersion :: IO Int
driverVersion = resultIfOk =<< cudaDriverGetVersion
cudaDriverGetVersion :: IO ((Status), (Int))
cudaDriverGetVersion =
alloca $ \a1' ->
cudaDriverGetVersion'_ a1' >>= \res ->
let {res' = cToEnum res} in
peekIntConv a1'>>= \a1'' ->
return (res', a1'')
foreign import ccall unsafe "Foreign/CUDA/Runtime/Utils.chs.h cudaRuntimeGetVersion"
cudaRuntimeGetVersion'_ :: ((Ptr CInt) -> (IO CInt))
foreign import ccall unsafe "Foreign/CUDA/Runtime/Utils.chs.h cudaDriverGetVersion"
cudaDriverGetVersion'_ :: ((Ptr CInt) -> (IO CInt))