module Bindings.Gsl.VectorsAndMatrices.DataTypes 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.Array (peekArray,pokeArray)
import Data.Int
import Data.Word
data C'gsl_block = C'gsl_block{
c'gsl_block'size :: CSize
,
c'gsl_block'data :: Ptr CDouble
} deriving (Eq,Show)
instance Storable C'gsl_block where
sizeOf _ = 8
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
return $ C'gsl_block v0 v1
poke p (C'gsl_block v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
return ()
data C'gsl_block_char = C'gsl_block_char{
c'gsl_block_char'size :: CSize
,
c'gsl_block_char'data :: CString
} deriving (Eq,Show)
instance Storable C'gsl_block_char where
sizeOf _ = 8
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
return $ C'gsl_block_char v0 v1
poke p (C'gsl_block_char v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
return ()
data C'gsl_block_complex = C'gsl_block_complex{
c'gsl_block_complex'size :: CSize
,
c'gsl_block_complex'data :: Ptr CDouble
} deriving (Eq,Show)
instance Storable C'gsl_block_complex where
sizeOf _ = 8
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
return $ C'gsl_block_complex v0 v1
poke p (C'gsl_block_complex v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
return ()
data C'gsl_block_complex_float = C'gsl_block_complex_float{
c'gsl_block_complex_float'size :: CSize
,
c'gsl_block_complex_float'data :: Ptr CFloat
} deriving (Eq,Show)
instance Storable C'gsl_block_complex_float where
sizeOf _ = 8
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
return $ C'gsl_block_complex_float v0 v1
poke p (C'gsl_block_complex_float v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
return ()
data C'gsl_block_complex_long_double = C'gsl_block_complex_long_double{
c'gsl_block_complex_long_double'size :: CSize
,
c'gsl_block_complex_long_double'data :: Ptr CLDouble
} deriving (Eq,Show)
instance Storable C'gsl_block_complex_long_double where
sizeOf _ = 8
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
return $ C'gsl_block_complex_long_double v0 v1
poke p (C'gsl_block_complex_long_double v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
return ()
data C'gsl_block_float = C'gsl_block_float{
c'gsl_block_float'size :: CSize
,
c'gsl_block_float'data :: Ptr CFloat
} deriving (Eq,Show)
instance Storable C'gsl_block_float where
sizeOf _ = 8
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
return $ C'gsl_block_float v0 v1
poke p (C'gsl_block_float v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
return ()
data C'gsl_block_int = C'gsl_block_int{
c'gsl_block_int'size :: CSize
,
c'gsl_block_int'data :: Ptr CInt
} deriving (Eq,Show)
instance Storable C'gsl_block_int where
sizeOf _ = 8
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
return $ C'gsl_block_int v0 v1
poke p (C'gsl_block_int v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
return ()
data C'gsl_block_long = C'gsl_block_long{
c'gsl_block_long'size :: CSize
,
c'gsl_block_long'data :: Ptr CLong
} deriving (Eq,Show)
instance Storable C'gsl_block_long where
sizeOf _ = 8
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
return $ C'gsl_block_long v0 v1
poke p (C'gsl_block_long v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
return ()
data C'gsl_block_long_double = C'gsl_block_long_double{
c'gsl_block_long_double'size :: CSize
,
c'gsl_block_long_double'data :: Ptr CLDouble
} deriving (Eq,Show)
instance Storable C'gsl_block_long_double where
sizeOf _ = 8
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
return $ C'gsl_block_long_double v0 v1
poke p (C'gsl_block_long_double v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
return ()
data C'gsl_block_short = C'gsl_block_short{
c'gsl_block_short'size :: CSize
,
c'gsl_block_short'data :: Ptr CShort
} deriving (Eq,Show)
instance Storable C'gsl_block_short where
sizeOf _ = 8
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
return $ C'gsl_block_short v0 v1
poke p (C'gsl_block_short v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
return ()
data C'gsl_block_uchar = C'gsl_block_uchar{
c'gsl_block_uchar'size :: CSize
,
c'gsl_block_uchar'data :: Ptr CUChar
} deriving (Eq,Show)
instance Storable C'gsl_block_uchar where
sizeOf _ = 8
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
return $ C'gsl_block_uchar v0 v1
poke p (C'gsl_block_uchar v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
return ()
data C'gsl_block_uint = C'gsl_block_uint{
c'gsl_block_uint'size :: CSize
,
c'gsl_block_uint'data :: Ptr CUInt
} deriving (Eq,Show)
instance Storable C'gsl_block_uint where
sizeOf _ = 8
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
return $ C'gsl_block_uint v0 v1
poke p (C'gsl_block_uint v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
return ()
data C'gsl_block_ulong = C'gsl_block_ulong{
c'gsl_block_ulong'size :: CSize
,
c'gsl_block_ulong'data :: Ptr CULong
} deriving (Eq,Show)
instance Storable C'gsl_block_ulong where
sizeOf _ = 8
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
return $ C'gsl_block_ulong v0 v1
poke p (C'gsl_block_ulong v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
return ()
data C'gsl_block_ushort = C'gsl_block_ushort{
c'gsl_block_ushort'size :: CSize
,
c'gsl_block_ushort'data :: Ptr CUShort
} deriving (Eq,Show)
instance Storable C'gsl_block_ushort where
sizeOf _ = 8
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
return $ C'gsl_block_ushort v0 v1
poke p (C'gsl_block_ushort v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
return ()
data C'gsl_matrix = C'gsl_matrix{
c'gsl_matrix'size1 :: CSize
,
c'gsl_matrix'size2 :: CSize
,
c'gsl_matrix'tda :: CSize
,
c'gsl_matrix'data :: Ptr CDouble
,
c'gsl_matrix'block :: Ptr C'gsl_block
,
c'gsl_matrix'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_matrix where
sizeOf _ = 24
alignment = sizeOf
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
return $ C'gsl_matrix v0 v1 v2 v3 v4 v5
poke p (C'gsl_matrix v0 v1 v2 v3 v4 v5) = 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
return ()
data C'gsl_matrix_char = C'gsl_matrix_char{
c'gsl_matrix_char'size1 :: CSize
,
c'gsl_matrix_char'size2 :: CSize
,
c'gsl_matrix_char'tda :: CSize
,
c'gsl_matrix_char'data :: CString
,
c'gsl_matrix_char'block :: Ptr C'gsl_block_char
,
c'gsl_matrix_char'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_matrix_char where
sizeOf _ = 24
alignment = sizeOf
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
return $ C'gsl_matrix_char v0 v1 v2 v3 v4 v5
poke p (C'gsl_matrix_char v0 v1 v2 v3 v4 v5) = 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
return ()
data C'gsl_matrix_char_const_view = C'gsl_matrix_char_const_view{
c'gsl_matrix_char_const_view'matrix :: C'gsl_matrix_char
} deriving (Eq,Show)
instance Storable C'gsl_matrix_char_const_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_char_const_view v0
poke p (C'gsl_matrix_char_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_char_view = C'gsl_matrix_char_view{
c'gsl_matrix_char_view'matrix :: C'gsl_matrix_char
} deriving (Eq,Show)
instance Storable C'gsl_matrix_char_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_char_view v0
poke p (C'gsl_matrix_char_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_complex = C'gsl_matrix_complex{
c'gsl_matrix_complex'size1 :: CSize
,
c'gsl_matrix_complex'size2 :: CSize
,
c'gsl_matrix_complex'tda :: CSize
,
c'gsl_matrix_complex'data :: Ptr CDouble
,
c'gsl_matrix_complex'block :: Ptr C'gsl_block_complex
,
c'gsl_matrix_complex'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_matrix_complex where
sizeOf _ = 24
alignment = sizeOf
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
return $ C'gsl_matrix_complex v0 v1 v2 v3 v4 v5
poke p (C'gsl_matrix_complex v0 v1 v2 v3 v4 v5) = 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
return ()
data C'gsl_matrix_complex_const_view = C'gsl_matrix_complex_const_view{
c'gsl_matrix_complex_const_view'matrix :: C'gsl_matrix_complex
} deriving (Eq,Show)
instance Storable C'gsl_matrix_complex_const_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_complex_const_view v0
poke p (C'gsl_matrix_complex_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_complex_float = C'gsl_matrix_complex_float{
c'gsl_matrix_complex_float'size1 :: CSize
,
c'gsl_matrix_complex_float'size2 :: CSize
,
c'gsl_matrix_complex_float'tda :: CSize
,
c'gsl_matrix_complex_float'data :: Ptr CFloat
,
c'gsl_matrix_complex_float'block :: Ptr C'gsl_block_complex_float
,
c'gsl_matrix_complex_float'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_matrix_complex_float where
sizeOf _ = 24
alignment = sizeOf
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
return $ C'gsl_matrix_complex_float v0 v1 v2 v3 v4 v5
poke p (C'gsl_matrix_complex_float v0 v1 v2 v3 v4 v5) = 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
return ()
data C'gsl_matrix_complex_float_const_view = C'gsl_matrix_complex_float_const_view{
c'gsl_matrix_complex_float_const_view'matrix :: C'gsl_matrix_complex_float
} deriving (Eq,Show)
instance Storable C'gsl_matrix_complex_float_const_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_complex_float_const_view v0
poke p (C'gsl_matrix_complex_float_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_complex_float_view = C'gsl_matrix_complex_float_view{
c'gsl_matrix_complex_float_view'matrix :: C'gsl_matrix_complex_float
} deriving (Eq,Show)
instance Storable C'gsl_matrix_complex_float_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_complex_float_view v0
poke p (C'gsl_matrix_complex_float_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_complex_long_double = C'gsl_matrix_complex_long_double{
c'gsl_matrix_complex_long_double'size1 :: CSize
,
c'gsl_matrix_complex_long_double'size2 :: CSize
,
c'gsl_matrix_complex_long_double'tda :: CSize
,
c'gsl_matrix_complex_long_double'data :: Ptr CLDouble
,
c'gsl_matrix_complex_long_double'block :: Ptr C'gsl_block_complex_long_double
,
c'gsl_matrix_complex_long_double'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_matrix_complex_long_double where
sizeOf _ = 24
alignment = sizeOf
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
return $ C'gsl_matrix_complex_long_double v0 v1 v2 v3 v4 v5
poke p (C'gsl_matrix_complex_long_double v0 v1 v2 v3 v4 v5) = 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
return ()
data C'gsl_matrix_complex_long_double_const_view = C'gsl_matrix_complex_long_double_const_view{
c'gsl_matrix_complex_long_double_const_view'matrix :: C'gsl_matrix_complex_long_double
} deriving (Eq,Show)
instance Storable C'gsl_matrix_complex_long_double_const_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_complex_long_double_const_view v0
poke p (C'gsl_matrix_complex_long_double_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_complex_long_double_view = C'gsl_matrix_complex_long_double_view{
c'gsl_matrix_complex_long_double_view'matrix :: C'gsl_matrix_complex_long_double
} deriving (Eq,Show)
instance Storable C'gsl_matrix_complex_long_double_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_complex_long_double_view v0
poke p (C'gsl_matrix_complex_long_double_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_complex_view = C'gsl_matrix_complex_view{
c'gsl_matrix_complex_view'matrix :: C'gsl_matrix_complex
} deriving (Eq,Show)
instance Storable C'gsl_matrix_complex_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_complex_view v0
poke p (C'gsl_matrix_complex_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_const_view = C'gsl_matrix_const_view{
c'gsl_matrix_const_view'matrix :: C'gsl_matrix
} deriving (Eq,Show)
instance Storable C'gsl_matrix_const_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_const_view v0
poke p (C'gsl_matrix_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_float = C'gsl_matrix_float{
c'gsl_matrix_float'size1 :: CSize
,
c'gsl_matrix_float'size2 :: CSize
,
c'gsl_matrix_float'tda :: CSize
,
c'gsl_matrix_float'data :: Ptr CFloat
,
c'gsl_matrix_float'block :: Ptr C'gsl_block_float
,
c'gsl_matrix_float'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_matrix_float where
sizeOf _ = 24
alignment = sizeOf
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
return $ C'gsl_matrix_float v0 v1 v2 v3 v4 v5
poke p (C'gsl_matrix_float v0 v1 v2 v3 v4 v5) = 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
return ()
data C'gsl_matrix_float_const_view = C'gsl_matrix_float_const_view{
c'gsl_matrix_float_const_view'matrix :: C'gsl_matrix_float
} deriving (Eq,Show)
instance Storable C'gsl_matrix_float_const_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_float_const_view v0
poke p (C'gsl_matrix_float_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_float_view = C'gsl_matrix_float_view{
c'gsl_matrix_float_view'matrix :: C'gsl_matrix_float
} deriving (Eq,Show)
instance Storable C'gsl_matrix_float_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_float_view v0
poke p (C'gsl_matrix_float_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_int = C'gsl_matrix_int{
c'gsl_matrix_int'size1 :: CSize
,
c'gsl_matrix_int'size2 :: CSize
,
c'gsl_matrix_int'tda :: CSize
,
c'gsl_matrix_int'data :: Ptr CInt
,
c'gsl_matrix_int'block :: Ptr C'gsl_block_int
,
c'gsl_matrix_int'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_matrix_int where
sizeOf _ = 24
alignment = sizeOf
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
return $ C'gsl_matrix_int v0 v1 v2 v3 v4 v5
poke p (C'gsl_matrix_int v0 v1 v2 v3 v4 v5) = 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
return ()
data C'gsl_matrix_int_const_view = C'gsl_matrix_int_const_view{
c'gsl_matrix_int_const_view'matrix :: C'gsl_matrix_int
} deriving (Eq,Show)
instance Storable C'gsl_matrix_int_const_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_int_const_view v0
poke p (C'gsl_matrix_int_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_int_view = C'gsl_matrix_int_view{
c'gsl_matrix_int_view'matrix :: C'gsl_matrix_int
} deriving (Eq,Show)
instance Storable C'gsl_matrix_int_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_int_view v0
poke p (C'gsl_matrix_int_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_long = C'gsl_matrix_long{
c'gsl_matrix_long'size1 :: CSize
,
c'gsl_matrix_long'size2 :: CSize
,
c'gsl_matrix_long'tda :: CSize
,
c'gsl_matrix_long'data :: Ptr CLong
,
c'gsl_matrix_long'block :: Ptr C'gsl_block_long
,
c'gsl_matrix_long'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_matrix_long where
sizeOf _ = 24
alignment = sizeOf
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
return $ C'gsl_matrix_long v0 v1 v2 v3 v4 v5
poke p (C'gsl_matrix_long v0 v1 v2 v3 v4 v5) = 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
return ()
data C'gsl_matrix_long_const_view = C'gsl_matrix_long_const_view{
c'gsl_matrix_long_const_view'matrix :: C'gsl_matrix_long
} deriving (Eq,Show)
instance Storable C'gsl_matrix_long_const_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_long_const_view v0
poke p (C'gsl_matrix_long_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_long_double = C'gsl_matrix_long_double{
c'gsl_matrix_long_double'size1 :: CSize
,
c'gsl_matrix_long_double'size2 :: CSize
,
c'gsl_matrix_long_double'tda :: CSize
,
c'gsl_matrix_long_double'data :: Ptr CLDouble
,
c'gsl_matrix_long_double'block :: Ptr C'gsl_block_long_double
,
c'gsl_matrix_long_double'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_matrix_long_double where
sizeOf _ = 24
alignment = sizeOf
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
return $ C'gsl_matrix_long_double v0 v1 v2 v3 v4 v5
poke p (C'gsl_matrix_long_double v0 v1 v2 v3 v4 v5) = 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
return ()
data C'gsl_matrix_long_double_const_view = C'gsl_matrix_long_double_const_view{
c'gsl_matrix_long_double_const_view'matrix :: C'gsl_matrix_long_double
} deriving (Eq,Show)
instance Storable C'gsl_matrix_long_double_const_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_long_double_const_view v0
poke p (C'gsl_matrix_long_double_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_long_double_view = C'gsl_matrix_long_double_view{
c'gsl_matrix_long_double_view'matrix :: C'gsl_matrix_long_double
} deriving (Eq,Show)
instance Storable C'gsl_matrix_long_double_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_long_double_view v0
poke p (C'gsl_matrix_long_double_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_long_view = C'gsl_matrix_long_view{
c'gsl_matrix_long_view'matrix :: C'gsl_matrix_long
} deriving (Eq,Show)
instance Storable C'gsl_matrix_long_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_long_view v0
poke p (C'gsl_matrix_long_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_short = C'gsl_matrix_short{
c'gsl_matrix_short'size1 :: CSize
,
c'gsl_matrix_short'size2 :: CSize
,
c'gsl_matrix_short'tda :: CSize
,
c'gsl_matrix_short'data :: Ptr CShort
,
c'gsl_matrix_short'block :: Ptr C'gsl_block_short
,
c'gsl_matrix_short'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_matrix_short where
sizeOf _ = 24
alignment = sizeOf
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
return $ C'gsl_matrix_short v0 v1 v2 v3 v4 v5
poke p (C'gsl_matrix_short v0 v1 v2 v3 v4 v5) = 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
return ()
data C'gsl_matrix_short_const_view = C'gsl_matrix_short_const_view{
c'gsl_matrix_short_const_view'matrix :: C'gsl_matrix_short
} deriving (Eq,Show)
instance Storable C'gsl_matrix_short_const_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_short_const_view v0
poke p (C'gsl_matrix_short_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_short_view = C'gsl_matrix_short_view{
c'gsl_matrix_short_view'matrix :: C'gsl_matrix_short
} deriving (Eq,Show)
instance Storable C'gsl_matrix_short_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_short_view v0
poke p (C'gsl_matrix_short_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_uchar = C'gsl_matrix_uchar{
c'gsl_matrix_uchar'size1 :: CSize
,
c'gsl_matrix_uchar'size2 :: CSize
,
c'gsl_matrix_uchar'tda :: CSize
,
c'gsl_matrix_uchar'data :: Ptr CUChar
,
c'gsl_matrix_uchar'block :: Ptr C'gsl_block_uchar
,
c'gsl_matrix_uchar'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_matrix_uchar where
sizeOf _ = 24
alignment = sizeOf
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
return $ C'gsl_matrix_uchar v0 v1 v2 v3 v4 v5
poke p (C'gsl_matrix_uchar v0 v1 v2 v3 v4 v5) = 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
return ()
data C'gsl_matrix_uchar_const_view = C'gsl_matrix_uchar_const_view{
c'gsl_matrix_uchar_const_view'matrix :: C'gsl_matrix_uchar
} deriving (Eq,Show)
instance Storable C'gsl_matrix_uchar_const_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_uchar_const_view v0
poke p (C'gsl_matrix_uchar_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_uchar_view = C'gsl_matrix_uchar_view{
c'gsl_matrix_uchar_view'matrix :: C'gsl_matrix_uchar
} deriving (Eq,Show)
instance Storable C'gsl_matrix_uchar_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_uchar_view v0
poke p (C'gsl_matrix_uchar_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_uint = C'gsl_matrix_uint{
c'gsl_matrix_uint'size1 :: CSize
,
c'gsl_matrix_uint'size2 :: CSize
,
c'gsl_matrix_uint'tda :: CSize
,
c'gsl_matrix_uint'data :: Ptr CUInt
,
c'gsl_matrix_uint'block :: Ptr C'gsl_block_uint
,
c'gsl_matrix_uint'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_matrix_uint where
sizeOf _ = 24
alignment = sizeOf
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
return $ C'gsl_matrix_uint v0 v1 v2 v3 v4 v5
poke p (C'gsl_matrix_uint v0 v1 v2 v3 v4 v5) = 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
return ()
data C'gsl_matrix_uint_const_view = C'gsl_matrix_uint_const_view{
c'gsl_matrix_uint_const_view'matrix :: C'gsl_matrix_uint
} deriving (Eq,Show)
instance Storable C'gsl_matrix_uint_const_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_uint_const_view v0
poke p (C'gsl_matrix_uint_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_uint_view = C'gsl_matrix_uint_view{
c'gsl_matrix_uint_view'matrix :: C'gsl_matrix_uint
} deriving (Eq,Show)
instance Storable C'gsl_matrix_uint_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_uint_view v0
poke p (C'gsl_matrix_uint_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_ulong = C'gsl_matrix_ulong{
c'gsl_matrix_ulong'size1 :: CSize
,
c'gsl_matrix_ulong'size2 :: CSize
,
c'gsl_matrix_ulong'tda :: CSize
,
c'gsl_matrix_ulong'data :: Ptr CULong
,
c'gsl_matrix_ulong'block :: Ptr C'gsl_block_ulong
,
c'gsl_matrix_ulong'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_matrix_ulong where
sizeOf _ = 24
alignment = sizeOf
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
return $ C'gsl_matrix_ulong v0 v1 v2 v3 v4 v5
poke p (C'gsl_matrix_ulong v0 v1 v2 v3 v4 v5) = 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
return ()
data C'gsl_matrix_ulong_const_view = C'gsl_matrix_ulong_const_view{
c'gsl_matrix_ulong_const_view'matrix :: C'gsl_matrix_ulong
} deriving (Eq,Show)
instance Storable C'gsl_matrix_ulong_const_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_ulong_const_view v0
poke p (C'gsl_matrix_ulong_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_ulong_view = C'gsl_matrix_ulong_view{
c'gsl_matrix_ulong_view'matrix :: C'gsl_matrix_ulong
} deriving (Eq,Show)
instance Storable C'gsl_matrix_ulong_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_ulong_view v0
poke p (C'gsl_matrix_ulong_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_ushort = C'gsl_matrix_ushort{
c'gsl_matrix_ushort'size1 :: CSize
,
c'gsl_matrix_ushort'size2 :: CSize
,
c'gsl_matrix_ushort'tda :: CSize
,
c'gsl_matrix_ushort'data :: Ptr CUShort
,
c'gsl_matrix_ushort'block :: Ptr C'gsl_block_ushort
,
c'gsl_matrix_ushort'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_matrix_ushort where
sizeOf _ = 24
alignment = sizeOf
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
return $ C'gsl_matrix_ushort v0 v1 v2 v3 v4 v5
poke p (C'gsl_matrix_ushort v0 v1 v2 v3 v4 v5) = 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
return ()
data C'gsl_matrix_ushort_const_view = C'gsl_matrix_ushort_const_view{
c'gsl_matrix_ushort_const_view'matrix :: C'gsl_matrix_ushort
} deriving (Eq,Show)
instance Storable C'gsl_matrix_ushort_const_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_ushort_const_view v0
poke p (C'gsl_matrix_ushort_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_ushort_view = C'gsl_matrix_ushort_view{
c'gsl_matrix_ushort_view'matrix :: C'gsl_matrix_ushort
} deriving (Eq,Show)
instance Storable C'gsl_matrix_ushort_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_ushort_view v0
poke p (C'gsl_matrix_ushort_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_matrix_view = C'gsl_matrix_view{
c'gsl_matrix_view'matrix :: C'gsl_matrix
} deriving (Eq,Show)
instance Storable C'gsl_matrix_view where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_matrix_view v0
poke p (C'gsl_matrix_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector = C'gsl_vector{
c'gsl_vector'size :: CSize
,
c'gsl_vector'stride :: CSize
,
c'gsl_vector'data :: Ptr CDouble
,
c'gsl_vector'block :: Ptr C'gsl_block
,
c'gsl_vector'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_vector where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
return $ C'gsl_vector v0 v1 v2 v3 v4
poke p (C'gsl_vector v0 v1 v2 v3 v4) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
return ()
data C'gsl_vector_char = C'gsl_vector_char{
c'gsl_vector_char'size :: CSize
,
c'gsl_vector_char'stride :: CSize
,
c'gsl_vector_char'data :: CString
,
c'gsl_vector_char'block :: Ptr C'gsl_block_char
,
c'gsl_vector_char'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_vector_char where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
return $ C'gsl_vector_char v0 v1 v2 v3 v4
poke p (C'gsl_vector_char v0 v1 v2 v3 v4) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
return ()
data C'gsl_vector_char_const_view = C'gsl_vector_char_const_view{
c'gsl_vector_char_const_view'vector :: C'gsl_vector_char
} deriving (Eq,Show)
instance Storable C'gsl_vector_char_const_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_char_const_view v0
poke p (C'gsl_vector_char_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_char_view = C'gsl_vector_char_view{
c'gsl_vector_char_view'vector :: C'gsl_vector_char
} deriving (Eq,Show)
instance Storable C'gsl_vector_char_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_char_view v0
poke p (C'gsl_vector_char_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_complex = C'gsl_vector_complex{
c'gsl_vector_complex'size :: CSize
,
c'gsl_vector_complex'stride :: CSize
,
c'gsl_vector_complex'data :: Ptr CDouble
,
c'gsl_vector_complex'block :: Ptr C'gsl_block_complex
,
c'gsl_vector_complex'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_vector_complex where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
return $ C'gsl_vector_complex v0 v1 v2 v3 v4
poke p (C'gsl_vector_complex v0 v1 v2 v3 v4) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
return ()
data C'gsl_vector_complex_const_view = C'gsl_vector_complex_const_view{
c'gsl_vector_complex_const_view'vector :: C'gsl_vector_complex
} deriving (Eq,Show)
instance Storable C'gsl_vector_complex_const_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_complex_const_view v0
poke p (C'gsl_vector_complex_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_complex_float = C'gsl_vector_complex_float{
c'gsl_vector_complex_float'size :: CSize
,
c'gsl_vector_complex_float'stride :: CSize
,
c'gsl_vector_complex_float'data :: Ptr CFloat
,
c'gsl_vector_complex_float'block :: Ptr C'gsl_block_complex_float
,
c'gsl_vector_complex_float'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_vector_complex_float where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
return $ C'gsl_vector_complex_float v0 v1 v2 v3 v4
poke p (C'gsl_vector_complex_float v0 v1 v2 v3 v4) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
return ()
data C'gsl_vector_complex_float_const_view = C'gsl_vector_complex_float_const_view{
c'gsl_vector_complex_float_const_view'vector :: C'gsl_vector_complex_float
} deriving (Eq,Show)
instance Storable C'gsl_vector_complex_float_const_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_complex_float_const_view v0
poke p (C'gsl_vector_complex_float_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_complex_float_view = C'gsl_vector_complex_float_view{
c'gsl_vector_complex_float_view'vector :: C'gsl_vector_complex_float
} deriving (Eq,Show)
instance Storable C'gsl_vector_complex_float_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_complex_float_view v0
poke p (C'gsl_vector_complex_float_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_complex_long_double = C'gsl_vector_complex_long_double{
c'gsl_vector_complex_long_double'size :: CSize
,
c'gsl_vector_complex_long_double'stride :: CSize
,
c'gsl_vector_complex_long_double'data :: Ptr CLDouble
,
c'gsl_vector_complex_long_double'block :: Ptr C'gsl_block_complex_long_double
,
c'gsl_vector_complex_long_double'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_vector_complex_long_double where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
return $ C'gsl_vector_complex_long_double v0 v1 v2 v3 v4
poke p (C'gsl_vector_complex_long_double v0 v1 v2 v3 v4) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
return ()
data C'gsl_vector_complex_long_double_const_view = C'gsl_vector_complex_long_double_const_view{
c'gsl_vector_complex_long_double_const_view'vector :: C'gsl_vector_complex_long_double
} deriving (Eq,Show)
instance Storable C'gsl_vector_complex_long_double_const_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_complex_long_double_const_view v0
poke p (C'gsl_vector_complex_long_double_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_complex_long_double_view = C'gsl_vector_complex_long_double_view{
c'gsl_vector_complex_long_double_view'vector :: C'gsl_vector_complex_long_double
} deriving (Eq,Show)
instance Storable C'gsl_vector_complex_long_double_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_complex_long_double_view v0
poke p (C'gsl_vector_complex_long_double_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_complex_view = C'gsl_vector_complex_view{
c'gsl_vector_complex_view'vector :: C'gsl_vector_complex
} deriving (Eq,Show)
instance Storable C'gsl_vector_complex_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_complex_view v0
poke p (C'gsl_vector_complex_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_const_view = C'gsl_vector_const_view{
c'gsl_vector_const_view'vector :: C'gsl_vector
} deriving (Eq,Show)
instance Storable C'gsl_vector_const_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_const_view v0
poke p (C'gsl_vector_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_float = C'gsl_vector_float{
c'gsl_vector_float'size :: CSize
,
c'gsl_vector_float'stride :: CSize
,
c'gsl_vector_float'data :: Ptr CFloat
,
c'gsl_vector_float'block :: Ptr C'gsl_block_float
,
c'gsl_vector_float'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_vector_float where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
return $ C'gsl_vector_float v0 v1 v2 v3 v4
poke p (C'gsl_vector_float v0 v1 v2 v3 v4) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
return ()
data C'gsl_vector_float_const_view = C'gsl_vector_float_const_view{
c'gsl_vector_float_const_view'vector :: C'gsl_vector_float
} deriving (Eq,Show)
instance Storable C'gsl_vector_float_const_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_float_const_view v0
poke p (C'gsl_vector_float_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_float_view = C'gsl_vector_float_view{
c'gsl_vector_float_view'vector :: C'gsl_vector_float
} deriving (Eq,Show)
instance Storable C'gsl_vector_float_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_float_view v0
poke p (C'gsl_vector_float_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_int = C'gsl_vector_int{
c'gsl_vector_int'size :: CSize
,
c'gsl_vector_int'stride :: CSize
,
c'gsl_vector_int'data :: Ptr CInt
,
c'gsl_vector_int'block :: Ptr C'gsl_block_int
,
c'gsl_vector_int'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_vector_int where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
return $ C'gsl_vector_int v0 v1 v2 v3 v4
poke p (C'gsl_vector_int v0 v1 v2 v3 v4) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
return ()
data C'gsl_vector_int_const_view = C'gsl_vector_int_const_view{
c'gsl_vector_int_const_view'vector :: C'gsl_vector_int
} deriving (Eq,Show)
instance Storable C'gsl_vector_int_const_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_int_const_view v0
poke p (C'gsl_vector_int_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_int_view = C'gsl_vector_int_view{
c'gsl_vector_int_view'vector :: C'gsl_vector_int
} deriving (Eq,Show)
instance Storable C'gsl_vector_int_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_int_view v0
poke p (C'gsl_vector_int_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_long = C'gsl_vector_long{
c'gsl_vector_long'size :: CSize
,
c'gsl_vector_long'stride :: CSize
,
c'gsl_vector_long'data :: Ptr CLong
,
c'gsl_vector_long'block :: Ptr C'gsl_block_long
,
c'gsl_vector_long'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_vector_long where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
return $ C'gsl_vector_long v0 v1 v2 v3 v4
poke p (C'gsl_vector_long v0 v1 v2 v3 v4) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
return ()
data C'gsl_vector_long_const_view = C'gsl_vector_long_const_view{
c'gsl_vector_long_const_view'vector :: C'gsl_vector_long
} deriving (Eq,Show)
instance Storable C'gsl_vector_long_const_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_long_const_view v0
poke p (C'gsl_vector_long_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_long_double = C'gsl_vector_long_double{
c'gsl_vector_long_double'size :: CSize
,
c'gsl_vector_long_double'stride :: CSize
,
c'gsl_vector_long_double'data :: Ptr CLDouble
,
c'gsl_vector_long_double'block :: Ptr C'gsl_block_long_double
,
c'gsl_vector_long_double'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_vector_long_double where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
return $ C'gsl_vector_long_double v0 v1 v2 v3 v4
poke p (C'gsl_vector_long_double v0 v1 v2 v3 v4) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
return ()
data C'gsl_vector_long_double_const_view = C'gsl_vector_long_double_const_view{
c'gsl_vector_long_double_const_view'vector :: C'gsl_vector_long_double
} deriving (Eq,Show)
instance Storable C'gsl_vector_long_double_const_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_long_double_const_view v0
poke p (C'gsl_vector_long_double_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_long_double_view = C'gsl_vector_long_double_view{
c'gsl_vector_long_double_view'vector :: C'gsl_vector_long_double
} deriving (Eq,Show)
instance Storable C'gsl_vector_long_double_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_long_double_view v0
poke p (C'gsl_vector_long_double_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_long_view = C'gsl_vector_long_view{
c'gsl_vector_long_view'vector :: C'gsl_vector_long
} deriving (Eq,Show)
instance Storable C'gsl_vector_long_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_long_view v0
poke p (C'gsl_vector_long_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_short = C'gsl_vector_short{
c'gsl_vector_short'size :: CSize
,
c'gsl_vector_short'stride :: CSize
,
c'gsl_vector_short'data :: Ptr CShort
,
c'gsl_vector_short'block :: Ptr C'gsl_block_short
,
c'gsl_vector_short'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_vector_short where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
return $ C'gsl_vector_short v0 v1 v2 v3 v4
poke p (C'gsl_vector_short v0 v1 v2 v3 v4) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
return ()
data C'gsl_vector_short_const_view = C'gsl_vector_short_const_view{
c'gsl_vector_short_const_view'vector :: C'gsl_vector_short
} deriving (Eq,Show)
instance Storable C'gsl_vector_short_const_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_short_const_view v0
poke p (C'gsl_vector_short_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_short_view = C'gsl_vector_short_view{
c'gsl_vector_short_view'vector :: C'gsl_vector_short
} deriving (Eq,Show)
instance Storable C'gsl_vector_short_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_short_view v0
poke p (C'gsl_vector_short_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_uchar = C'gsl_vector_uchar{
c'gsl_vector_uchar'size :: CSize
,
c'gsl_vector_uchar'stride :: CSize
,
c'gsl_vector_uchar'data :: Ptr CUChar
,
c'gsl_vector_uchar'block :: Ptr C'gsl_block_uchar
,
c'gsl_vector_uchar'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_vector_uchar where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
return $ C'gsl_vector_uchar v0 v1 v2 v3 v4
poke p (C'gsl_vector_uchar v0 v1 v2 v3 v4) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
return ()
data C'gsl_vector_uchar_const_view = C'gsl_vector_uchar_const_view{
c'gsl_vector_uchar_const_view'vector :: C'gsl_vector_uchar
} deriving (Eq,Show)
instance Storable C'gsl_vector_uchar_const_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_uchar_const_view v0
poke p (C'gsl_vector_uchar_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_uchar_view = C'gsl_vector_uchar_view{
c'gsl_vector_uchar_view'vector :: C'gsl_vector_uchar
} deriving (Eq,Show)
instance Storable C'gsl_vector_uchar_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_uchar_view v0
poke p (C'gsl_vector_uchar_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_uint = C'gsl_vector_uint{
c'gsl_vector_uint'size :: CSize
,
c'gsl_vector_uint'stride :: CSize
,
c'gsl_vector_uint'data :: Ptr CUInt
,
c'gsl_vector_uint'block :: Ptr C'gsl_block_uint
,
c'gsl_vector_uint'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_vector_uint where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
return $ C'gsl_vector_uint v0 v1 v2 v3 v4
poke p (C'gsl_vector_uint v0 v1 v2 v3 v4) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
return ()
data C'gsl_vector_uint_const_view = C'gsl_vector_uint_const_view{
c'gsl_vector_uint_const_view'vector :: C'gsl_vector_uint
} deriving (Eq,Show)
instance Storable C'gsl_vector_uint_const_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_uint_const_view v0
poke p (C'gsl_vector_uint_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_uint_view = C'gsl_vector_uint_view{
c'gsl_vector_uint_view'vector :: C'gsl_vector_uint
} deriving (Eq,Show)
instance Storable C'gsl_vector_uint_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_uint_view v0
poke p (C'gsl_vector_uint_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_ulong = C'gsl_vector_ulong{
c'gsl_vector_ulong'size :: CSize
,
c'gsl_vector_ulong'stride :: CSize
,
c'gsl_vector_ulong'data :: Ptr CULong
,
c'gsl_vector_ulong'block :: Ptr C'gsl_block_ulong
,
c'gsl_vector_ulong'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_vector_ulong where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
return $ C'gsl_vector_ulong v0 v1 v2 v3 v4
poke p (C'gsl_vector_ulong v0 v1 v2 v3 v4) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
return ()
data C'gsl_vector_ulong_const_view = C'gsl_vector_ulong_const_view{
c'gsl_vector_ulong_const_view'vector :: C'gsl_vector_ulong
} deriving (Eq,Show)
instance Storable C'gsl_vector_ulong_const_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_ulong_const_view v0
poke p (C'gsl_vector_ulong_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_ulong_view = C'gsl_vector_ulong_view{
c'gsl_vector_ulong_view'vector :: C'gsl_vector_ulong
} deriving (Eq,Show)
instance Storable C'gsl_vector_ulong_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_ulong_view v0
poke p (C'gsl_vector_ulong_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_ushort = C'gsl_vector_ushort{
c'gsl_vector_ushort'size :: CSize
,
c'gsl_vector_ushort'stride :: CSize
,
c'gsl_vector_ushort'data :: Ptr CUShort
,
c'gsl_vector_ushort'block :: Ptr C'gsl_block_ushort
,
c'gsl_vector_ushort'owner :: CInt
} deriving (Eq,Show)
instance Storable C'gsl_vector_ushort where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
return $ C'gsl_vector_ushort v0 v1 v2 v3 v4
poke p (C'gsl_vector_ushort v0 v1 v2 v3 v4) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
return ()
data C'gsl_vector_ushort_const_view = C'gsl_vector_ushort_const_view{
c'gsl_vector_ushort_const_view'vector :: C'gsl_vector_ushort
} deriving (Eq,Show)
instance Storable C'gsl_vector_ushort_const_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_ushort_const_view v0
poke p (C'gsl_vector_ushort_const_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_ushort_view = C'gsl_vector_ushort_view{
c'gsl_vector_ushort_view'vector :: C'gsl_vector_ushort
} deriving (Eq,Show)
instance Storable C'gsl_vector_ushort_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_ushort_view v0
poke p (C'gsl_vector_ushort_view v0) = do
pokeByteOff p 0 v0
return ()
data C'gsl_vector_view = C'gsl_vector_view{
c'gsl_vector_view'vector :: C'gsl_vector
} deriving (Eq,Show)
instance Storable C'gsl_vector_view where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'gsl_vector_view v0
poke p (C'gsl_vector_view v0) = do
pokeByteOff p 0 v0
return ()