module Bindings.Gsl.RandomNumberGeneration 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_rng_type = C'gsl_rng_type{
c'gsl_rng_type'name :: CString,
c'gsl_rng_type'max :: CULong,
c'gsl_rng_type'min :: CULong,
c'gsl_rng_type'size :: CSize,
c'gsl_rng_type'set :: FunPtr (Ptr () -> CULong -> IO ()),
c'gsl_rng_type'get :: FunPtr (Ptr () -> IO CULong),
c'gsl_rng_type'get_double :: FunPtr (Ptr () -> IO CDouble)
} deriving (Eq,Show)
p'gsl_rng_type'name p = plusPtr p 0
p'gsl_rng_type'name :: Ptr (C'gsl_rng_type) -> Ptr (CString)
p'gsl_rng_type'max p = plusPtr p 4
p'gsl_rng_type'max :: Ptr (C'gsl_rng_type) -> Ptr (CULong)
p'gsl_rng_type'min p = plusPtr p 8
p'gsl_rng_type'min :: Ptr (C'gsl_rng_type) -> Ptr (CULong)
p'gsl_rng_type'size p = plusPtr p 12
p'gsl_rng_type'size :: Ptr (C'gsl_rng_type) -> Ptr (CSize)
p'gsl_rng_type'set p = plusPtr p 16
p'gsl_rng_type'set :: Ptr (C'gsl_rng_type) -> Ptr (FunPtr (Ptr () -> CULong -> IO ()))
p'gsl_rng_type'get p = plusPtr p 20
p'gsl_rng_type'get :: Ptr (C'gsl_rng_type) -> Ptr (FunPtr (Ptr () -> IO CULong))
p'gsl_rng_type'get_double p = plusPtr p 24
p'gsl_rng_type'get_double :: Ptr (C'gsl_rng_type) -> Ptr (FunPtr (Ptr () -> IO CDouble))
instance Storable C'gsl_rng_type where
sizeOf _ = 28
alignment _ = 4
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
v5 <- peekByteOff p 20
v6 <- peekByteOff p 24
return $ C'gsl_rng_type v0 v1 v2 v3 v4 v5 v6
poke p (C'gsl_rng_type v0 v1 v2 v3 v4 v5 v6) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
pokeByteOff p 20 v5
pokeByteOff p 24 v6
return ()
data C'gsl_rng = C'gsl_rng{
c'gsl_rng'type :: Ptr C'gsl_rng_type,
c'gsl_rng'state :: Ptr ()
} deriving (Eq,Show)
p'gsl_rng'type p = plusPtr p 0
p'gsl_rng'type :: Ptr (C'gsl_rng) -> Ptr (Ptr C'gsl_rng_type)
p'gsl_rng'state p = plusPtr p 4
p'gsl_rng'state :: Ptr (C'gsl_rng) -> Ptr (Ptr ())
instance Storable C'gsl_rng where
sizeOf _ = 8
alignment _ = 4
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
return $ C'gsl_rng v0 v1
poke p (C'gsl_rng v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
return ()
foreign import ccall "&gsl_rng_borosh13" p'gsl_rng_borosh13
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_coveyou" p'gsl_rng_coveyou
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_cmrg" p'gsl_rng_cmrg
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_fishman18" p'gsl_rng_fishman18
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_fishman20" p'gsl_rng_fishman20
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_fishman2x" p'gsl_rng_fishman2x
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_gfsr4" p'gsl_rng_gfsr4
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_knuthran" p'gsl_rng_knuthran
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_knuthran2" p'gsl_rng_knuthran2
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_knuthran2002" p'gsl_rng_knuthran2002
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_lecuyer21" p'gsl_rng_lecuyer21
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_minstd" p'gsl_rng_minstd
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_mrg" p'gsl_rng_mrg
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_mt19937" p'gsl_rng_mt19937
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_mt19937_1999" p'gsl_rng_mt19937_1999
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_mt19937_1998" p'gsl_rng_mt19937_1998
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_r250" p'gsl_rng_r250
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_ran0" p'gsl_rng_ran0
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_ran1" p'gsl_rng_ran1
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_ran2" p'gsl_rng_ran2
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_ran3" p'gsl_rng_ran3
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_rand" p'gsl_rng_rand
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_rand48" p'gsl_rng_rand48
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_random128_bsd" p'gsl_rng_random128_bsd
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_random128_glibc2" p'gsl_rng_random128_glibc2
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_random128_libc5" p'gsl_rng_random128_libc5
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_random256_bsd" p'gsl_rng_random256_bsd
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_random256_glibc2" p'gsl_rng_random256_glibc2
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_random256_libc5" p'gsl_rng_random256_libc5
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_random32_bsd" p'gsl_rng_random32_bsd
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_random32_glibc2" p'gsl_rng_random32_glibc2
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_random32_libc5" p'gsl_rng_random32_libc5
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_random64_bsd" p'gsl_rng_random64_bsd
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_random64_glibc2" p'gsl_rng_random64_glibc2
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_random64_libc5" p'gsl_rng_random64_libc5
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_random8_bsd" p'gsl_rng_random8_bsd
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_random8_glibc2" p'gsl_rng_random8_glibc2
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_random8_libc5" p'gsl_rng_random8_libc5
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_random_bsd" p'gsl_rng_random_bsd
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_random_glibc2" p'gsl_rng_random_glibc2
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_random_libc5" p'gsl_rng_random_libc5
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_randu" p'gsl_rng_randu
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_ranf" p'gsl_rng_ranf
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_ranlux" p'gsl_rng_ranlux
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_ranlux389" p'gsl_rng_ranlux389
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_ranlxd1" p'gsl_rng_ranlxd1
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_ranlxd2" p'gsl_rng_ranlxd2
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_ranlxs0" p'gsl_rng_ranlxs0
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_ranlxs1" p'gsl_rng_ranlxs1
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_ranlxs2" p'gsl_rng_ranlxs2
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_ranmar" p'gsl_rng_ranmar
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_slatec" p'gsl_rng_slatec
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_taus" p'gsl_rng_taus
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_taus2" p'gsl_rng_taus2
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_taus113" p'gsl_rng_taus113
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_transputer" p'gsl_rng_transputer
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_tt800" p'gsl_rng_tt800
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_uni" p'gsl_rng_uni
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_uni32" p'gsl_rng_uni32
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_vax" p'gsl_rng_vax
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_waterman14" p'gsl_rng_waterman14
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_zuf" p'gsl_rng_zuf
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "gsl_rng_types_setup" c'gsl_rng_types_setup
:: IO (Ptr (Ptr C'gsl_rng_type))
foreign import ccall "&gsl_rng_types_setup" p'gsl_rng_types_setup
:: FunPtr (IO (Ptr (Ptr C'gsl_rng_type)))
foreign import ccall "&gsl_rng_default" p'gsl_rng_default
:: Ptr (Ptr gsl_rng_type)
foreign import ccall "&gsl_rng_default_seed" p'gsl_rng_default_seed
:: Ptr (CULong)
foreign import ccall "gsl_rng_alloc" c'gsl_rng_alloc
:: Ptr C'gsl_rng_type -> IO (Ptr C'gsl_rng)
foreign import ccall "&gsl_rng_alloc" p'gsl_rng_alloc
:: FunPtr (Ptr C'gsl_rng_type -> IO (Ptr C'gsl_rng))
foreign import ccall "gsl_rng_memcpy" c'gsl_rng_memcpy
:: Ptr C'gsl_rng -> Ptr C'gsl_rng -> IO CInt
foreign import ccall "&gsl_rng_memcpy" p'gsl_rng_memcpy
:: FunPtr (Ptr C'gsl_rng -> Ptr C'gsl_rng -> IO CInt)
foreign import ccall "gsl_rng_clone" c'gsl_rng_clone
:: Ptr C'gsl_rng -> IO (Ptr C'gsl_rng)
foreign import ccall "&gsl_rng_clone" p'gsl_rng_clone
:: FunPtr (Ptr C'gsl_rng -> IO (Ptr C'gsl_rng))
foreign import ccall "gsl_rng_free" c'gsl_rng_free
:: Ptr C'gsl_rng -> IO ()
foreign import ccall "&gsl_rng_free" p'gsl_rng_free
:: FunPtr (Ptr C'gsl_rng -> IO ())
foreign import ccall "gsl_rng_set" c'gsl_rng_set
:: Ptr C'gsl_rng -> CULong -> IO ()
foreign import ccall "&gsl_rng_set" p'gsl_rng_set
:: FunPtr (Ptr C'gsl_rng -> CULong -> IO ())
foreign import ccall "gsl_rng_max" c'gsl_rng_max
:: Ptr C'gsl_rng -> IO CULong
foreign import ccall "&gsl_rng_max" p'gsl_rng_max
:: FunPtr (Ptr C'gsl_rng -> IO CULong)
foreign import ccall "gsl_rng_min" c'gsl_rng_min
:: Ptr C'gsl_rng -> IO CULong
foreign import ccall "&gsl_rng_min" p'gsl_rng_min
:: FunPtr (Ptr C'gsl_rng -> IO CULong)
foreign import ccall "gsl_rng_name" c'gsl_rng_name
:: Ptr C'gsl_rng -> IO CString
foreign import ccall "&gsl_rng_name" p'gsl_rng_name
:: FunPtr (Ptr C'gsl_rng -> IO CString)
foreign import ccall "gsl_rng_fread" c'gsl_rng_fread
:: Ptr CFile -> Ptr C'gsl_rng -> IO CInt
foreign import ccall "&gsl_rng_fread" p'gsl_rng_fread
:: FunPtr (Ptr CFile -> Ptr C'gsl_rng -> IO CInt)
foreign import ccall "gsl_rng_fwrite" c'gsl_rng_fwrite
:: Ptr CFile -> Ptr C'gsl_rng -> IO CInt
foreign import ccall "&gsl_rng_fwrite" p'gsl_rng_fwrite
:: FunPtr (Ptr CFile -> Ptr C'gsl_rng -> IO CInt)
foreign import ccall "gsl_rng_size" c'gsl_rng_size
:: Ptr C'gsl_rng -> IO CSize
foreign import ccall "&gsl_rng_size" p'gsl_rng_size
:: FunPtr (Ptr C'gsl_rng -> IO CSize)
foreign import ccall "gsl_rng_state" c'gsl_rng_state
:: Ptr C'gsl_rng -> IO (Ptr ())
foreign import ccall "&gsl_rng_state" p'gsl_rng_state
:: FunPtr (Ptr C'gsl_rng -> IO (Ptr ()))
foreign import ccall "gsl_rng_print_state" c'gsl_rng_print_state
:: Ptr C'gsl_rng -> IO ()
foreign import ccall "&gsl_rng_print_state" p'gsl_rng_print_state
:: FunPtr (Ptr C'gsl_rng -> IO ())
foreign import ccall "gsl_rng_env_setup" c'gsl_rng_env_setup
:: IO (Ptr C'gsl_rng_type)
foreign import ccall "&gsl_rng_env_setup" p'gsl_rng_env_setup
:: FunPtr (IO (Ptr C'gsl_rng_type))
foreign import ccall "gsl_rng_get" c'gsl_rng_get
:: Ptr C'gsl_rng -> IO CULong
foreign import ccall "&gsl_rng_get" p'gsl_rng_get
:: FunPtr (Ptr C'gsl_rng -> IO CULong)
foreign import ccall "gsl_rng_uniform" c'gsl_rng_uniform
:: Ptr C'gsl_rng -> IO CDouble
foreign import ccall "&gsl_rng_uniform" p'gsl_rng_uniform
:: FunPtr (Ptr C'gsl_rng -> IO CDouble)
foreign import ccall "gsl_rng_uniform_pos" c'gsl_rng_uniform_pos
:: Ptr C'gsl_rng -> IO CDouble
foreign import ccall "&gsl_rng_uniform_pos" p'gsl_rng_uniform_pos
:: FunPtr (Ptr C'gsl_rng -> IO CDouble)
foreign import ccall "gsl_rng_uniform_int" c'gsl_rng_uniform_int
:: Ptr C'gsl_rng -> CULong -> IO CULong
foreign import ccall "&gsl_rng_uniform_int" p'gsl_rng_uniform_int
:: FunPtr (Ptr C'gsl_rng -> CULong -> IO CULong)