module Bindings.Gsl.Multisets 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_multiset = C'gsl_multiset{
c'gsl_multiset'n :: CSize,
c'gsl_multiset'k :: CSize,
c'gsl_multiset'data :: Ptr CSize
} deriving (Eq,Show)
p'gsl_multiset'n p = plusPtr p 0
p'gsl_multiset'n :: Ptr (C'gsl_multiset) -> Ptr (CSize)
p'gsl_multiset'k p = plusPtr p 4
p'gsl_multiset'k :: Ptr (C'gsl_multiset) -> Ptr (CSize)
p'gsl_multiset'data p = plusPtr p 8
p'gsl_multiset'data :: Ptr (C'gsl_multiset) -> Ptr (Ptr CSize)
instance Storable C'gsl_multiset where
sizeOf _ = 12
alignment _ = 4
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
return $ C'gsl_multiset v0 v1 v2
poke p (C'gsl_multiset v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
return ()
foreign import ccall "gsl_multiset_alloc" c'gsl_multiset_alloc
:: CSize -> CSize -> IO (Ptr C'gsl_multiset)
foreign import ccall "&gsl_multiset_alloc" p'gsl_multiset_alloc
:: FunPtr (CSize -> CSize -> IO (Ptr C'gsl_multiset))
foreign import ccall "gsl_multiset_calloc" c'gsl_multiset_calloc
:: CSize -> CSize -> IO (Ptr C'gsl_multiset)
foreign import ccall "&gsl_multiset_calloc" p'gsl_multiset_calloc
:: FunPtr (CSize -> CSize -> IO (Ptr C'gsl_multiset))
foreign import ccall "gsl_multiset_init_first" c'gsl_multiset_init_first
:: Ptr C'gsl_multiset -> IO ()
foreign import ccall "&gsl_multiset_init_first" p'gsl_multiset_init_first
:: FunPtr (Ptr C'gsl_multiset -> IO ())
foreign import ccall "gsl_multiset_init_last" c'gsl_multiset_init_last
:: Ptr C'gsl_multiset -> IO ()
foreign import ccall "&gsl_multiset_init_last" p'gsl_multiset_init_last
:: FunPtr (Ptr C'gsl_multiset -> IO ())
foreign import ccall "gsl_multiset_free" c'gsl_multiset_free
:: Ptr C'gsl_multiset -> IO ()
foreign import ccall "&gsl_multiset_free" p'gsl_multiset_free
:: FunPtr (Ptr C'gsl_multiset -> IO ())
foreign import ccall "gsl_multiset_memcpy" c'gsl_multiset_memcpy
:: Ptr C'gsl_multiset -> Ptr C'gsl_multiset -> IO CInt
foreign import ccall "&gsl_multiset_memcpy" p'gsl_multiset_memcpy
:: FunPtr (Ptr C'gsl_multiset -> Ptr C'gsl_multiset -> IO CInt)
foreign import ccall "inline_gsl_multiset_get" c'gsl_multiset_get
:: Ptr C'gsl_multiset -> CSize -> IO CSize
foreign import ccall "gsl_multiset_n" c'gsl_multiset_n
:: Ptr C'gsl_multiset -> IO CSize
foreign import ccall "&gsl_multiset_n" p'gsl_multiset_n
:: FunPtr (Ptr C'gsl_multiset -> IO CSize)
foreign import ccall "gsl_multiset_k" c'gsl_multiset_k
:: Ptr C'gsl_multiset -> IO CSize
foreign import ccall "&gsl_multiset_k" p'gsl_multiset_k
:: FunPtr (Ptr C'gsl_multiset -> IO CSize)
foreign import ccall "gsl_multiset_data" c'gsl_multiset_data
:: Ptr C'gsl_multiset -> IO (Ptr CSize)
foreign import ccall "&gsl_multiset_data" p'gsl_multiset_data
:: FunPtr (Ptr C'gsl_multiset -> IO (Ptr CSize))
foreign import ccall "gsl_multiset_valid" c'gsl_multiset_valid
:: Ptr C'gsl_multiset -> IO CInt
foreign import ccall "&gsl_multiset_valid" p'gsl_multiset_valid
:: FunPtr (Ptr C'gsl_multiset -> IO CInt)
foreign import ccall "gsl_multiset_next" c'gsl_multiset_next
:: Ptr C'gsl_multiset -> IO CInt
foreign import ccall "&gsl_multiset_next" p'gsl_multiset_next
:: FunPtr (Ptr C'gsl_multiset -> IO CInt)
foreign import ccall "gsl_multiset_prev" c'gsl_multiset_prev
:: Ptr C'gsl_multiset -> IO CInt
foreign import ccall "&gsl_multiset_prev" p'gsl_multiset_prev
:: FunPtr (Ptr C'gsl_multiset -> IO CInt)
foreign import ccall "gsl_multiset_fwrite" c'gsl_multiset_fwrite
:: Ptr CFile -> Ptr C'gsl_multiset -> IO CInt
foreign import ccall "&gsl_multiset_fwrite" p'gsl_multiset_fwrite
:: FunPtr (Ptr CFile -> Ptr C'gsl_multiset -> IO CInt)
foreign import ccall "gsl_multiset_fread" c'gsl_multiset_fread
:: Ptr CFile -> Ptr C'gsl_multiset -> IO CInt
foreign import ccall "&gsl_multiset_fread" p'gsl_multiset_fread
:: FunPtr (Ptr CFile -> Ptr C'gsl_multiset -> IO CInt)
foreign import ccall "gsl_multiset_fprintf" c'gsl_multiset_fprintf
:: Ptr CFile -> Ptr C'gsl_multiset -> CString -> IO CInt
foreign import ccall "&gsl_multiset_fprintf" p'gsl_multiset_fprintf
:: FunPtr (Ptr CFile -> Ptr C'gsl_multiset -> CString -> IO CInt)
foreign import ccall "gsl_multiset_fscanf" c'gsl_multiset_fscanf
:: Ptr CFile -> Ptr C'gsl_multiset -> IO CInt
foreign import ccall "&gsl_multiset_fscanf" p'gsl_multiset_fscanf
:: FunPtr (Ptr CFile -> Ptr C'gsl_multiset -> IO CInt)