{-# LANGUAGE ForeignFunctionInterface #-}
module Torch.FFI.THC.Byte.Storage where
import Foreign
import Foreign.C.Types
import Data.Word
import Data.Int
import Torch.Types.TH
import Torch.Types.THC
foreign import ccall "THCStorage.h THCudaByteStorage_data"
c_data :: Ptr C'THCState -> Ptr C'THCByteStorage -> IO (Ptr CUChar)
foreign import ccall "THCStorage.h THCudaByteStorage_size"
c_size :: Ptr C'THCState -> Ptr C'THCByteStorage -> IO CPtrdiff
foreign import ccall "THCStorage.h THCudaByteStorage_set"
c_set :: Ptr C'THCState -> Ptr C'THCByteStorage -> CPtrdiff -> CUChar -> IO ()
foreign import ccall "THCStorage.h THCudaByteStorage_get"
c_get :: Ptr C'THCState -> Ptr C'THCByteStorage -> CPtrdiff -> IO CUChar
foreign import ccall "THCStorage.h THCudaByteStorage_new"
c_new :: Ptr C'THCState -> IO (Ptr C'THCByteStorage)
foreign import ccall "THCStorage.h THCudaByteStorage_newWithSize"
c_newWithSize :: Ptr C'THCState -> CPtrdiff -> IO (Ptr C'THCByteStorage)
foreign import ccall "THCStorage.h THCudaByteStorage_newWithSize1"
c_newWithSize1 :: Ptr C'THCState -> CUChar -> IO (Ptr C'THCByteStorage)
foreign import ccall "THCStorage.h THCudaByteStorage_newWithSize2"
c_newWithSize2 :: Ptr C'THCState -> CUChar -> CUChar -> IO (Ptr C'THCByteStorage)
foreign import ccall "THCStorage.h THCudaByteStorage_newWithSize3"
c_newWithSize3 :: Ptr C'THCState -> CUChar -> CUChar -> CUChar -> IO (Ptr C'THCByteStorage)
foreign import ccall "THCStorage.h THCudaByteStorage_newWithSize4"
c_newWithSize4 :: Ptr C'THCState -> CUChar -> CUChar -> CUChar -> CUChar -> IO (Ptr C'THCByteStorage)
foreign import ccall "THCStorage.h THCudaByteStorage_newWithMapping"
c_newWithMapping :: Ptr C'THCState -> Ptr CChar -> CPtrdiff -> CInt -> IO (Ptr C'THCByteStorage)
foreign import ccall "THCStorage.h THCudaByteStorage_newWithData"
c_newWithData :: Ptr C'THCState -> Ptr CUChar -> CPtrdiff -> IO (Ptr C'THCByteStorage)
foreign import ccall "THCStorage.h THCudaByteStorage_setFlag"
c_setFlag :: Ptr C'THCState -> Ptr C'THCByteStorage -> CChar -> IO ()
foreign import ccall "THCStorage.h THCudaByteStorage_clearFlag"
c_clearFlag :: Ptr C'THCState -> Ptr C'THCByteStorage -> CChar -> IO ()
foreign import ccall "THCStorage.h THCudaByteStorage_retain"
c_retain :: Ptr C'THCState -> Ptr C'THCByteStorage -> IO ()
foreign import ccall "THCStorage.h THCudaByteStorage_free"
c_free :: Ptr C'THCState -> Ptr C'THCByteStorage -> IO ()
foreign import ccall "THCStorage.h THCudaByteStorage_resize"
c_resize :: Ptr C'THCState -> Ptr C'THCByteStorage -> CPtrdiff -> IO ()
foreign import ccall "THCStorage.h THCudaByteStorage_fill"
c_fill :: Ptr C'THCState -> Ptr C'THCByteStorage -> CUChar -> IO ()
foreign import ccall "THCStorage.h THCudaByteStorage_getDevice"
c_getDevice :: Ptr C'THCState -> Ptr C'THCByteStorage -> IO CInt
foreign import ccall "THCStorage.h &THCudaByteStorage_data"
p_data :: FunPtr (Ptr C'THCState -> Ptr C'THCByteStorage -> IO (Ptr CUChar))
foreign import ccall "THCStorage.h &THCudaByteStorage_size"
p_size :: FunPtr (Ptr C'THCState -> Ptr C'THCByteStorage -> IO CPtrdiff)
foreign import ccall "THCStorage.h &THCudaByteStorage_set"
p_set :: FunPtr (Ptr C'THCState -> Ptr C'THCByteStorage -> CPtrdiff -> CUChar -> IO ())
foreign import ccall "THCStorage.h &THCudaByteStorage_get"
p_get :: FunPtr (Ptr C'THCState -> Ptr C'THCByteStorage -> CPtrdiff -> IO CUChar)
foreign import ccall "THCStorage.h &THCudaByteStorage_new"
p_new :: FunPtr (Ptr C'THCState -> IO (Ptr C'THCByteStorage))
foreign import ccall "THCStorage.h &THCudaByteStorage_newWithSize"
p_newWithSize :: FunPtr (Ptr C'THCState -> CPtrdiff -> IO (Ptr C'THCByteStorage))
foreign import ccall "THCStorage.h &THCudaByteStorage_newWithSize1"
p_newWithSize1 :: FunPtr (Ptr C'THCState -> CUChar -> IO (Ptr C'THCByteStorage))
foreign import ccall "THCStorage.h &THCudaByteStorage_newWithSize2"
p_newWithSize2 :: FunPtr (Ptr C'THCState -> CUChar -> CUChar -> IO (Ptr C'THCByteStorage))
foreign import ccall "THCStorage.h &THCudaByteStorage_newWithSize3"
p_newWithSize3 :: FunPtr (Ptr C'THCState -> CUChar -> CUChar -> CUChar -> IO (Ptr C'THCByteStorage))
foreign import ccall "THCStorage.h &THCudaByteStorage_newWithSize4"
p_newWithSize4 :: FunPtr (Ptr C'THCState -> CUChar -> CUChar -> CUChar -> CUChar -> IO (Ptr C'THCByteStorage))
foreign import ccall "THCStorage.h &THCudaByteStorage_newWithMapping"
p_newWithMapping :: FunPtr (Ptr C'THCState -> Ptr CChar -> CPtrdiff -> CInt -> IO (Ptr C'THCByteStorage))
foreign import ccall "THCStorage.h &THCudaByteStorage_newWithData"
p_newWithData :: FunPtr (Ptr C'THCState -> Ptr CUChar -> CPtrdiff -> IO (Ptr C'THCByteStorage))
foreign import ccall "THCStorage.h &THCudaByteStorage_setFlag"
p_setFlag :: FunPtr (Ptr C'THCState -> Ptr C'THCByteStorage -> CChar -> IO ())
foreign import ccall "THCStorage.h &THCudaByteStorage_clearFlag"
p_clearFlag :: FunPtr (Ptr C'THCState -> Ptr C'THCByteStorage -> CChar -> IO ())
foreign import ccall "THCStorage.h &THCudaByteStorage_retain"
p_retain :: FunPtr (Ptr C'THCState -> Ptr C'THCByteStorage -> IO ())
foreign import ccall "THCStorage.h &THCudaByteStorage_free"
p_free :: FunPtr (Ptr C'THCState -> Ptr C'THCByteStorage -> IO ())
foreign import ccall "THCStorage.h &THCudaByteStorage_resize"
p_resize :: FunPtr (Ptr C'THCState -> Ptr C'THCByteStorage -> CPtrdiff -> IO ())
foreign import ccall "THCStorage.h &THCudaByteStorage_fill"
p_fill :: FunPtr (Ptr C'THCState -> Ptr C'THCByteStorage -> CUChar -> IO ())
foreign import ccall "THCStorage.h &THCudaByteStorage_getDevice"
p_getDevice :: FunPtr (Ptr C'THCState -> Ptr C'THCByteStorage -> IO CInt)