module Bindings.Gsl.Combinations where
import Foreign.Ptr (Ptr,FunPtr,plusPtr)
import Foreign.Ptr (wordPtrToPtr,castPtrToFunPtr)
import Foreign.Storable
import Foreign.C.Types
import Foreign.C.String (CString,CStringLen,CWString,CWStringLen)
import Foreign.Marshal.Alloc (alloca)
import Foreign.Marshal.Array (peekArray,pokeArray)
import Data.Int
import Data.Word
data C'gsl_combination = C'gsl_combination{
c'gsl_combination'n :: CSize,
c'gsl_combination'k :: CSize,
c'gsl_combination'data :: Ptr CSize
} deriving (Eq,Show)
p'gsl_combination'n p = plusPtr p 0
p'gsl_combination'n :: Ptr (C'gsl_combination) -> Ptr (CSize)
p'gsl_combination'k p = plusPtr p 4
p'gsl_combination'k :: Ptr (C'gsl_combination) -> Ptr (CSize)
p'gsl_combination'data p = plusPtr p 8
p'gsl_combination'data :: Ptr (C'gsl_combination) -> Ptr (Ptr CSize)
instance Storable C'gsl_combination where
sizeOf _ = 12
alignment _ = 4
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
return $ C'gsl_combination v0 v1 v2
poke p (C'gsl_combination v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
return ()
foreign import ccall "gsl_combination_alloc" c'gsl_combination_alloc
:: CSize -> CSize -> IO (Ptr C'gsl_combination)
foreign import ccall "&gsl_combination_alloc" p'gsl_combination_alloc
:: FunPtr (CSize -> CSize -> IO (Ptr C'gsl_combination))
foreign import ccall "gsl_combination_calloc" c'gsl_combination_calloc
:: CSize -> CSize -> IO (Ptr C'gsl_combination)
foreign import ccall "&gsl_combination_calloc" p'gsl_combination_calloc
:: FunPtr (CSize -> CSize -> IO (Ptr C'gsl_combination))
foreign import ccall "gsl_combination_init_first" c'gsl_combination_init_first
:: Ptr C'gsl_combination -> IO ()
foreign import ccall "&gsl_combination_init_first" p'gsl_combination_init_first
:: FunPtr (Ptr C'gsl_combination -> IO ())
foreign import ccall "gsl_combination_init_last" c'gsl_combination_init_last
:: Ptr C'gsl_combination -> IO ()
foreign import ccall "&gsl_combination_init_last" p'gsl_combination_init_last
:: FunPtr (Ptr C'gsl_combination -> IO ())
foreign import ccall "gsl_combination_free" c'gsl_combination_free
:: Ptr C'gsl_combination -> IO ()
foreign import ccall "&gsl_combination_free" p'gsl_combination_free
:: FunPtr (Ptr C'gsl_combination -> IO ())
foreign import ccall "gsl_combination_memcpy" c'gsl_combination_memcpy
:: Ptr C'gsl_combination -> Ptr C'gsl_combination -> IO CInt
foreign import ccall "&gsl_combination_memcpy" p'gsl_combination_memcpy
:: FunPtr (Ptr C'gsl_combination -> Ptr C'gsl_combination -> IO CInt)
foreign import ccall "gsl_combination_fread" c'gsl_combination_fread
:: Ptr CFile -> Ptr C'gsl_combination -> IO CInt
foreign import ccall "&gsl_combination_fread" p'gsl_combination_fread
:: FunPtr (Ptr CFile -> Ptr C'gsl_combination -> IO CInt)
foreign import ccall "gsl_combination_fwrite" c'gsl_combination_fwrite
:: Ptr CFile -> Ptr C'gsl_combination -> IO CInt
foreign import ccall "&gsl_combination_fwrite" p'gsl_combination_fwrite
:: FunPtr (Ptr CFile -> Ptr C'gsl_combination -> IO CInt)
foreign import ccall "gsl_combination_fscanf" c'gsl_combination_fscanf
:: Ptr CFile -> Ptr C'gsl_combination -> IO CInt
foreign import ccall "&gsl_combination_fscanf" p'gsl_combination_fscanf
:: FunPtr (Ptr CFile -> Ptr C'gsl_combination -> IO CInt)
foreign import ccall "gsl_combination_fprintf" c'gsl_combination_fprintf
:: Ptr CFile -> Ptr C'gsl_combination -> CString -> IO CInt
foreign import ccall "&gsl_combination_fprintf" p'gsl_combination_fprintf
:: FunPtr (Ptr CFile -> Ptr C'gsl_combination -> CString -> IO CInt)
foreign import ccall "gsl_combination_n" c'gsl_combination_n
:: Ptr C'gsl_combination -> IO CSize
foreign import ccall "&gsl_combination_n" p'gsl_combination_n
:: FunPtr (Ptr C'gsl_combination -> IO CSize)
foreign import ccall "gsl_combination_k" c'gsl_combination_k
:: Ptr C'gsl_combination -> IO CSize
foreign import ccall "&gsl_combination_k" p'gsl_combination_k
:: FunPtr (Ptr C'gsl_combination -> IO CSize)
foreign import ccall "gsl_combination_data" c'gsl_combination_data
:: Ptr C'gsl_combination -> IO (Ptr CSize)
foreign import ccall "&gsl_combination_data" p'gsl_combination_data
:: FunPtr (Ptr C'gsl_combination -> IO (Ptr CSize))
foreign import ccall "gsl_combination_valid" c'gsl_combination_valid
:: Ptr C'gsl_combination -> IO CInt
foreign import ccall "&gsl_combination_valid" p'gsl_combination_valid
:: FunPtr (Ptr C'gsl_combination -> IO CInt)
foreign import ccall "gsl_combination_next" c'gsl_combination_next
:: Ptr C'gsl_combination -> IO CInt
foreign import ccall "&gsl_combination_next" p'gsl_combination_next
:: FunPtr (Ptr C'gsl_combination -> IO CInt)
foreign import ccall "gsl_combination_prev" c'gsl_combination_prev
:: Ptr C'gsl_combination -> IO CInt
foreign import ccall "&gsl_combination_prev" p'gsl_combination_prev
:: FunPtr (Ptr C'gsl_combination -> IO CInt)
foreign import ccall "gsl_combination_get" c'gsl_combination_get
:: Ptr C'gsl_combination -> CSize -> IO CSize
foreign import ccall "&gsl_combination_get" p'gsl_combination_get
:: FunPtr (Ptr C'gsl_combination -> CSize -> IO CSize)