{-# LANGUAGE ForeignFunctionInterface #-}
module Torch.FFI.THC.Long.TensorRandom where
import Foreign
import Foreign.C.Types
import Data.Word
import Data.Int
import Torch.Types.TH
import Torch.Types.THC
foreign import ccall "THCTensorRandom.h THCudaLongTensor_random"
  c_random :: Ptr C'THCState -> Ptr C'THCudaLongTensor -> IO ()
foreign import ccall "THCTensorRandom.h THCudaLongTensor_clampedRandom"
  c_clampedRandom :: Ptr C'THCState -> Ptr C'THCudaLongTensor -> CLLong -> CLLong -> IO ()
foreign import ccall "THCTensorRandom.h THCudaLongTensor_cappedRandom"
  c_cappedRandom :: Ptr C'THCState -> Ptr C'THCudaLongTensor -> CLLong -> IO ()
foreign import ccall "THCTensorRandom.h THCudaLongTensor_bernoulli"
  c_bernoulli :: Ptr C'THCState -> Ptr C'THCudaLongTensor -> CDouble -> IO ()
foreign import ccall "THCTensorRandom.h THCudaLongTensor_bernoulli_DoubleTensor"
  c_bernoulli_DoubleTensor :: Ptr C'THCState -> Ptr C'THCudaLongTensor -> Ptr C'THCudaDoubleTensor -> IO ()
foreign import ccall "THCTensorRandom.h THCudaLongTensor_geometric"
  c_geometric :: Ptr C'THCState -> Ptr C'THCudaLongTensor -> CDouble -> IO ()
foreign import ccall "THCTensorRandom.h &THCudaLongTensor_random"
  p_random :: FunPtr (Ptr C'THCState -> Ptr C'THCudaLongTensor -> IO ())
foreign import ccall "THCTensorRandom.h &THCudaLongTensor_clampedRandom"
  p_clampedRandom :: FunPtr (Ptr C'THCState -> Ptr C'THCudaLongTensor -> CLLong -> CLLong -> IO ())
foreign import ccall "THCTensorRandom.h &THCudaLongTensor_cappedRandom"
  p_cappedRandom :: FunPtr (Ptr C'THCState -> Ptr C'THCudaLongTensor -> CLLong -> IO ())
foreign import ccall "THCTensorRandom.h &THCudaLongTensor_bernoulli"
  p_bernoulli :: FunPtr (Ptr C'THCState -> Ptr C'THCudaLongTensor -> CDouble -> IO ())
foreign import ccall "THCTensorRandom.h &THCudaLongTensor_bernoulli_DoubleTensor"
  p_bernoulli_DoubleTensor :: FunPtr (Ptr C'THCState -> Ptr C'THCudaLongTensor -> Ptr C'THCudaDoubleTensor -> IO ())
foreign import ccall "THCTensorRandom.h &THCudaLongTensor_geometric"
  p_geometric :: FunPtr (Ptr C'THCState -> Ptr C'THCudaLongTensor -> CDouble -> IO ())