module Bindings.Gts.Types where
import Bindings.GLib
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'GtsHeap = C'GtsHeap
data C'GtsEHeapPair = C'GtsEHeapPair{
c'GtsEHeapPair'data :: C'gpointer
,
c'GtsEHeapPair'key :: C'gdouble
,
c'GtsEHeapPair'pos :: C'guint
} deriving (Eq,Show)
instance Storable C'GtsEHeapPair where
sizeOf _ = 16
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 12
return $ C'GtsEHeapPair v0 v1 v2
poke p (C'GtsEHeapPair v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 12 v2
return ()
type C'GtsKeyFunc = FunPtr (C'gpointer -> C'gpointer -> IO C'gdouble)
foreign import ccall "wrapper" mk'GtsKeyFunc
:: (C'gpointer -> C'gpointer -> IO C'gdouble) -> IO C'GtsKeyFunc
foreign import ccall "dynamic" mK'GtsKeyFunc
:: C'GtsKeyFunc -> (C'gpointer -> C'gpointer -> IO C'gdouble)
data C'GtsEHeap = C'GtsEHeap
data C'GtsFifo = C'GtsFifo
data C'GtsMatrix = C'GtsMatrix
type C'GtsVector = Ptr C'gdouble
type C'GtsVector4 = Ptr C'gdouble
data C'GtsRange = C'GtsRange{
c'GtsRange'min :: C'gdouble
,
c'GtsRange'max :: C'gdouble
,
c'GtsRange'sum :: C'gdouble
,
c'GtsRange'sum2 :: C'gdouble
,
c'GtsRange'mean :: C'gdouble
,
c'GtsRange'stddev :: C'gdouble
,
c'GtsRange'n :: C'guint
} deriving (Eq,Show)
instance Storable C'GtsRange where
sizeOf _ = 52
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 8
v2 <- peekByteOff p 16
v3 <- peekByteOff p 24
v4 <- peekByteOff p 32
v5 <- peekByteOff p 40
v6 <- peekByteOff p 48
return $ C'GtsRange v0 v1 v2 v3 v4 v5 v6
poke p (C'GtsRange v0 v1 v2 v3 v4 v5 v6) = do
pokeByteOff p 0 v0
pokeByteOff p 8 v1
pokeByteOff p 16 v2
pokeByteOff p 24 v3
pokeByteOff p 32 v4
pokeByteOff p 40 v5
pokeByteOff p 48 v6
return ()
data C'GtsFile = C'GtsFile{
c'GtsFile'fp :: Ptr CFile
,
c'GtsFile's :: Ptr C'gchar
,
c'GtsFile's1 :: Ptr C'gchar
,
c'GtsFile'line :: C'guint
,
c'GtsFile'pos :: C'guint
,
c'GtsFile'token :: Ptr C'GString
,
c'GtsFile'type :: C'GtsTokenType
,
c'GtsFile'error :: Ptr C'gchar
,
c'GtsFile'curline :: C'guint
,
c'GtsFile'curpos :: C'guint
,
c'GtsFile'scope :: C'guint
,
c'GtsFile'scope_max :: C'guint
,
c'GtsFile'next_token :: C'gint
,
c'GtsFile'delimiters :: Ptr C'gchar
,
c'GtsFile'comments :: Ptr C'gchar
,
c'GtsFile'tokens :: Ptr C'gchar
} deriving (Eq,Show)
instance Storable C'GtsFile where
sizeOf _ = 64
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
v6 <- peekByteOff p 24
v7 <- peekByteOff p 28
v8 <- peekByteOff p 32
v9 <- peekByteOff p 36
v10 <- peekByteOff p 40
v11 <- peekByteOff p 44
v12 <- peekByteOff p 48
v13 <- peekByteOff p 52
v14 <- peekByteOff p 56
v15 <- peekByteOff p 60
return $ C'GtsFile v0 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
poke p (C'GtsFile v0 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15) = 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
pokeByteOff p 28 v7
pokeByteOff p 32 v8
pokeByteOff p 36 v9
pokeByteOff p 40 v10
pokeByteOff p 44 v11
pokeByteOff p 48 v12
pokeByteOff p 52 v13
pokeByteOff p 56 v14
pokeByteOff p 60 v15
return ()
type C'GtsTokenType = CUInt
c'GTS_NONE = 256
c'GTS_NONE :: (Num a) => a
c'GTS_INT = 512
c'GTS_INT :: (Num a) => a
c'GTS_UINT = 1024
c'GTS_UINT :: (Num a) => a
c'GTS_FLOAT = 2048
c'GTS_FLOAT :: (Num a) => a
c'GTS_DOUBLE = 4096
c'GTS_DOUBLE :: (Num a) => a
c'GTS_STRING = 8192
c'GTS_STRING :: (Num a) => a
c'GTS_FILE = 16384
c'GTS_FILE :: (Num a) => a
c'GTS_ERROR = 32768
c'GTS_ERROR :: (Num a) => a
data C'GtsFileVariable = C'GtsFileVariable{
c'GtsFileVariable'type :: C'GtsTokenType
,
c'GtsFileVariable'name :: [C'gchar]
,
c'GtsFileVariable'unique :: C'gboolean
,
c'GtsFileVariable'data :: C'gpointer
,
c'GtsFileVariable'set :: C'gboolean
,
c'GtsFileVariable'line :: C'guint
,
c'GtsFileVariable'pos :: C'guint
} deriving (Eq,Show)
instance Storable C'GtsFileVariable where
sizeOf _ = 56
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekArray 30 (plusPtr p 4)
v2 <- peekByteOff p 36
v3 <- peekByteOff p 40
v4 <- peekByteOff p 44
v5 <- peekByteOff p 48
v6 <- peekByteOff p 52
return $ C'GtsFileVariable v0 v1 v2 v3 v4 v5 v6
poke p (C'GtsFileVariable v0 v1 v2 v3 v4 v5 v6) = do
pokeByteOff p 0 v0
pokeArray (plusPtr p 4) (take 30 v1)
pokeByteOff p 36 v2
pokeByteOff p 40 v3
pokeByteOff p 44 v4
pokeByteOff p 48 v5
pokeByteOff p 52 v6
return ()
data C'GtsObjectClass = C'GtsObjectClass{
c'GtsObjectClass'info :: C'GtsObjectClassInfo
,
c'GtsObjectClass'parent_class :: Ptr C'GtsObjectClass
,
c'GtsObjectClass'clone :: FunPtr (Ptr C'GtsObject -> Ptr C'GtsObject -> IO ())
,
c'GtsObjectClass'destroy :: FunPtr (Ptr C'GtsObject -> IO ())
,
c'GtsObjectClass'read :: FunPtr (Ptr (Ptr C'GtsObject) -> Ptr C'GtsFile -> IO ())
,
c'GtsObjectClass'write :: FunPtr (Ptr C'GtsObject -> Ptr CFile -> IO ())
,
c'GtsObjectClass'color :: FunPtr (Ptr C'GtsObject -> IO C'GtsColor)
,
c'GtsObjectClass'attributes :: FunPtr (Ptr C'GtsObject -> Ptr C'GtsObject -> IO ())
} deriving (Eq,Show)
instance Storable C'GtsObjectClass where
sizeOf _ = 92
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 64
v2 <- peekByteOff p 68
v3 <- peekByteOff p 72
v4 <- peekByteOff p 76
v5 <- peekByteOff p 80
v6 <- peekByteOff p 84
v7 <- peekByteOff p 88
return $ C'GtsObjectClass v0 v1 v2 v3 v4 v5 v6 v7
poke p (C'GtsObjectClass v0 v1 v2 v3 v4 v5 v6 v7) = do
pokeByteOff p 0 v0
pokeByteOff p 64 v1
pokeByteOff p 68 v2
pokeByteOff p 72 v3
pokeByteOff p 76 v4
pokeByteOff p 80 v5
pokeByteOff p 84 v6
pokeByteOff p 88 v7
return ()
data C'GtsObject = C'GtsObject{
c'GtsObject'klass :: Ptr C'GtsObjectClass
,
c'GtsObject'reserved :: C'gpointer
,
c'GtsObject'flags :: C'guint32
} deriving (Eq,Show)
instance Storable C'GtsObject where
sizeOf _ = 12
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
return $ C'GtsObject v0 v1 v2
poke p (C'GtsObject v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
return ()
data C'GtsObjectClassInfo = C'GtsObjectClassInfo{
c'GtsObjectClassInfo'name :: [C'gchar]
,
c'GtsObjectClassInfo'object_size :: C'guint
,
c'GtsObjectClassInfo'class_size :: C'guint
,
c'GtsObjectClassInfo'class_init_func :: C'GtsObjectClassInitFunc
,
c'GtsObjectClassInfo'object_init_func :: C'GtsObjectInitFunc
,
c'GtsObjectClassInfo'arg_set_func :: C'GtsArgSetFunc
} deriving (Eq,Show)
instance Storable C'GtsObjectClassInfo where
sizeOf _ = 64
alignment = sizeOf
peek p = do
v0 <- peekArray 40 (plusPtr p 0)
v1 <- peekByteOff p 40
v2 <- peekByteOff p 44
v3 <- peekByteOff p 48
v4 <- peekByteOff p 52
v5 <- peekByteOff p 56
return $ C'GtsObjectClassInfo v0 v1 v2 v3 v4 v5
poke p (C'GtsObjectClassInfo v0 v1 v2 v3 v4 v5) = do
pokeArray (plusPtr p 0) (take 40 v0)
pokeByteOff p 40 v1
pokeByteOff p 44 v2
pokeByteOff p 48 v3
pokeByteOff p 52 v4
pokeByteOff p 56 v5
return ()
type C'GtsObjectClassInitFunc = FunPtr (Ptr C'GtsObjectClass -> IO ())
foreign import ccall "wrapper" mk'GtsObjectClassInitFunc
:: (Ptr C'GtsObjectClass -> IO ()) -> IO C'GtsObjectClassInitFunc
foreign import ccall "dynamic" mK'GtsObjectClassInitFunc
:: C'GtsObjectClassInitFunc -> (Ptr C'GtsObjectClass -> IO ())
type C'GtsObjectInitFunc = FunPtr (Ptr C'GtsObject -> IO ())
foreign import ccall "wrapper" mk'GtsObjectInitFunc
:: (Ptr C'GtsObject -> IO ()) -> IO C'GtsObjectInitFunc
foreign import ccall "dynamic" mK'GtsObjectInitFunc
:: C'GtsObjectInitFunc -> (Ptr C'GtsObject -> IO ())
type C'GtsArgSetFunc = FunPtr (Ptr C'GtsObject -> IO ())
foreign import ccall "wrapper" mk'GtsArgSetFunc
:: (Ptr C'GtsObject -> IO ()) -> IO C'GtsArgSetFunc
foreign import ccall "dynamic" mK'GtsArgSetFunc
:: C'GtsArgSetFunc -> (Ptr C'GtsObject -> IO ())
type C'GtsArgGetFunc = FunPtr (Ptr C'GtsObject -> IO ())
foreign import ccall "wrapper" mk'GtsArgGetFunc
:: (Ptr C'GtsObject -> IO ()) -> IO C'GtsArgGetFunc
foreign import ccall "dynamic" mK'GtsArgGetFunc
:: C'GtsArgGetFunc -> (Ptr C'GtsObject -> IO ())
type C'GtsObjectFlags = CUInt
c'GTS_DESTROYED = 1
c'GTS_DESTROYED :: (Num a) => a
c'GTS_USER_FLAG = 1
c'GTS_USER_FLAG :: (Num a) => a
data C'GtsColor = C'GtsColor{
c'GtsColor'r :: C'gfloat
,
c'GtsColor'g :: C'gfloat
,
c'GtsColor'b :: C'gfloat
} deriving (Eq,Show)
instance Storable C'GtsColor where
sizeOf _ = 12
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
return $ C'GtsColor v0 v1 v2
poke p (C'GtsColor v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
return ()
data C'GtsContainerClass = C'GtsContainerClass{
c'GtsContainerClass'parent_class :: C'GtsSListContaineeClass
,
c'GtsContainerClass'add :: FunPtr (Ptr C'GtsContainer -> Ptr C'GtsContainee -> IO ())
,
c'GtsContainerClass'remove :: FunPtr (Ptr C'GtsContainer -> Ptr C'GtsContainee -> IO ())
,
c'GtsContainerClass'foreach :: FunPtr (Ptr C'GtsContainer -> C'GtsFunc -> C'gpointer -> IO ())
,
c'GtsContainerClass'size :: FunPtr (Ptr C'GtsContainer -> IO C'guint)
} deriving (Eq,Show)
instance Storable C'GtsContainerClass where
sizeOf _ = 128
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 112
v2 <- peekByteOff p 116
v3 <- peekByteOff p 120
v4 <- peekByteOff p 124
return $ C'GtsContainerClass v0 v1 v2 v3 v4
poke p (C'GtsContainerClass v0 v1 v2 v3 v4) = do
pokeByteOff p 0 v0
pokeByteOff p 112 v1
pokeByteOff p 116 v2
pokeByteOff p 120 v3
pokeByteOff p 124 v4
return ()
data C'GtsContainer = C'GtsContainer{
c'GtsContainer'object :: C'GtsSListContainee
} deriving (Eq,Show)
instance Storable C'GtsContainer where
sizeOf _ = 16
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsContainer v0
poke p (C'GtsContainer v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsHashContainerClass = C'GtsHashContainerClass{
c'GtsHashContainerClass'parent_class :: C'GtsContainerClass
} deriving (Eq,Show)
instance Storable C'GtsHashContainerClass where
sizeOf _ = 128
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsHashContainerClass v0
poke p (C'GtsHashContainerClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsHashContainer = C'GtsHashContainer{
c'GtsHashContainer'c :: C'GtsContainer
,
c'GtsHashContainer'items :: Ptr C'GHashTable
,
c'GtsHashContainer'frozen :: C'gboolean
} deriving (Eq,Show)
instance Storable C'GtsHashContainer where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 16
v2 <- peekByteOff p 20
return $ C'GtsHashContainer v0 v1 v2
poke p (C'GtsHashContainer v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 16 v1
pokeByteOff p 20 v2
return ()
data C'GtsSListContainerClass = C'GtsSListContainerClass{
c'GtsSListContainerClass'parent_class :: C'GtsContainerClass
} deriving (Eq,Show)
instance Storable C'GtsSListContainerClass where
sizeOf _ = 128
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsSListContainerClass v0
poke p (C'GtsSListContainerClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsSListContainer = C'GtsSListContainer{
c'GtsSListContainer'c :: C'GtsContainer
,
c'GtsSListContainer'items :: Ptr C'GSList
,
c'GtsSListContainer'frozen :: C'gboolean
} deriving (Eq,Show)
instance Storable C'GtsSListContainer where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 16
v2 <- peekByteOff p 20
return $ C'GtsSListContainer v0 v1 v2
poke p (C'GtsSListContainer v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 16 v1
pokeByteOff p 20 v2
return ()
data C'GtsContaineeClass = C'GtsContaineeClass{
c'GtsContaineeClass'parent_class :: C'GtsObjectClass
,
c'GtsContaineeClass'add_container :: FunPtr (Ptr C'GtsContainee -> Ptr C'GtsContainer -> IO ())
,
c'GtsContaineeClass'remove_container :: FunPtr (Ptr C'GtsContainee -> Ptr C'GtsContainer -> IO ())
,
c'GtsContaineeClass'foreach :: FunPtr (Ptr C'GtsContainee -> C'GtsFunc -> C'gpointer -> IO ())
,
c'GtsContaineeClass'is_contained :: FunPtr (Ptr C'GtsContainee -> Ptr C'GtsContainer -> IO C'gboolean)
,
c'GtsContaineeClass'replace :: FunPtr (Ptr C'GtsContainee -> Ptr C'GtsContainee -> IO ())
} deriving (Eq,Show)
instance Storable C'GtsContaineeClass where
sizeOf _ = 112
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 92
v2 <- peekByteOff p 96
v3 <- peekByteOff p 100
v4 <- peekByteOff p 104
v5 <- peekByteOff p 108
return $ C'GtsContaineeClass v0 v1 v2 v3 v4 v5
poke p (C'GtsContaineeClass v0 v1 v2 v3 v4 v5) = do
pokeByteOff p 0 v0
pokeByteOff p 92 v1
pokeByteOff p 96 v2
pokeByteOff p 100 v3
pokeByteOff p 104 v4
pokeByteOff p 108 v5
return ()
data C'GtsContainee = C'GtsContainee{
c'GtsContainee'object :: C'GtsObject
} deriving (Eq,Show)
instance Storable C'GtsContainee where
sizeOf _ = 12
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsContainee v0
poke p (C'GtsContainee v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsSListContaineeClass = C'GtsSListContaineeClass{
c'GtsSListContaineeClass'parent_class :: C'GtsContaineeClass
} deriving (Eq,Show)
instance Storable C'GtsSListContaineeClass where
sizeOf _ = 112
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsSListContaineeClass v0
poke p (C'GtsSListContaineeClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsSListContainee = C'GtsSListContainee{
c'GtsSListContainee'containee :: C'GtsContainee
,
c'GtsSListContainee'containers :: Ptr C'GSList
} deriving (Eq,Show)
instance Storable C'GtsSListContainee where
sizeOf _ = 16
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 12
return $ C'GtsSListContainee v0 v1
poke p (C'GtsSListContainee v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 12 v1
return ()
data C'GtsPointClass = C'GtsPointClass{
c'GtsPointClass'parent_class :: C'GtsObjectClass
,
c'GtsPointClass'binary :: C'gboolean
} deriving (Eq,Show)
instance Storable C'GtsPointClass where
sizeOf _ = 96
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 92
return $ C'GtsPointClass v0 v1
poke p (C'GtsPointClass v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 92 v1
return ()
data C'GtsPoint = C'GtsPoint{
c'GtsPoint'object :: C'GtsObject
,
c'GtsPoint'x :: C'gdouble
,
c'GtsPoint'y :: C'gdouble
,
c'GtsPoint'z :: C'gdouble
} deriving (Eq,Show)
instance Storable C'GtsPoint where
sizeOf _ = 36
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 12
v2 <- peekByteOff p 20
v3 <- peekByteOff p 28
return $ C'GtsPoint v0 v1 v2 v3
poke p (C'GtsPoint v0 v1 v2 v3) = do
pokeByteOff p 0 v0
pokeByteOff p 12 v1
pokeByteOff p 20 v2
pokeByteOff p 28 v3
return ()
type C'GtsIntersect = CInt
c'GTS_OUT = 1
c'GTS_OUT :: (Num a) => a
c'GTS_ON = 0
c'GTS_ON :: (Num a) => a
c'GTS_IN = 1
c'GTS_IN :: (Num a) => a
data C'GtsVertexClass = C'GtsVertexClass{
c'GtsVertexClass'parent_class :: C'GtsPointClass
,
c'GtsVertexClass'intersection_attributes :: FunPtr (Ptr C'GtsVertex -> Ptr C'GtsObject -> Ptr C'GtsObject -> IO ())
} deriving (Eq,Show)
instance Storable C'GtsVertexClass where
sizeOf _ = 100
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 96
return $ C'GtsVertexClass v0 v1
poke p (C'GtsVertexClass v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 96 v1
return ()
data C'GtsVertex = C'GtsVertex{
c'GtsVertex'p :: C'GtsPoint
,
c'GtsVertex'segments :: Ptr C'GSList
} deriving (Eq,Show)
instance Storable C'GtsVertex where
sizeOf _ = 40
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 36
return $ C'GtsVertex v0 v1
poke p (C'GtsVertex v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 36 v1
return ()
data C'GtsSegmentClass = C'GtsSegmentClass{
c'GtsSegmentClass'parent_class :: C'GtsObjectClass
} deriving (Eq,Show)
instance Storable C'GtsSegmentClass where
sizeOf _ = 92
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsSegmentClass v0
poke p (C'GtsSegmentClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsSegment = C'GtsSegment{
c'GtsSegment'object :: C'GtsObject
,
c'GtsSegment'v1 :: Ptr C'GtsVertex
,
c'GtsSegment'v2 :: Ptr C'GtsVertex
} deriving (Eq,Show)
instance Storable C'GtsSegment where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 12
v2 <- peekByteOff p 16
return $ C'GtsSegment v0 v1 v2
poke p (C'GtsSegment v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 12 v1
pokeByteOff p 16 v2
return ()
data C'GtsEdgeClass = C'GtsEdgeClass{
c'GtsEdgeClass'parent_class :: C'GtsSegmentClass
} deriving (Eq,Show)
instance Storable C'GtsEdgeClass where
sizeOf _ = 92
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsEdgeClass v0
poke p (C'GtsEdgeClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsEdge = C'GtsEdge{
c'GtsEdge'segment :: C'GtsSegment
,
c'GtsEdge'triangles :: Ptr C'GSList
} deriving (Eq,Show)
instance Storable C'GtsEdge where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 20
return $ C'GtsEdge v0 v1
poke p (C'GtsEdge v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 20 v1
return ()
type C'GtsEncroachFunc = FunPtr (Ptr C'GtsVertex -> Ptr C'GtsEdge -> Ptr C'GtsSurface -> C'gpointer -> IO C'gboolean)
foreign import ccall "wrapper" mk'GtsEncroachFunc
:: (Ptr C'GtsVertex -> Ptr C'GtsEdge -> Ptr C'GtsSurface -> C'gpointer -> IO C'gboolean) -> IO C'GtsEncroachFunc
foreign import ccall "dynamic" mK'GtsEncroachFunc
:: C'GtsEncroachFunc -> (Ptr C'GtsVertex -> Ptr C'GtsEdge -> Ptr C'GtsSurface -> C'gpointer -> IO C'gboolean)
data C'GtsTriangleClass = C'GtsTriangleClass{
c'GtsTriangleClass'parent_class :: C'GtsObjectClass
} deriving (Eq,Show)
instance Storable C'GtsTriangleClass where
sizeOf _ = 92
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsTriangleClass v0
poke p (C'GtsTriangleClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsTriangle = C'GtsTriangle{
c'GtsTriangle'object :: C'GtsObject
,
c'GtsTriangle'e1 :: Ptr C'GtsEdge
,
c'GtsTriangle'e2 :: Ptr C'GtsEdge
,
c'GtsTriangle'e3 :: Ptr C'GtsEdge
} deriving (Eq,Show)
instance Storable C'GtsTriangle where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 12
v2 <- peekByteOff p 16
v3 <- peekByteOff p 20
return $ C'GtsTriangle v0 v1 v2 v3
poke p (C'GtsTriangle v0 v1 v2 v3) = do
pokeByteOff p 0 v0
pokeByteOff p 12 v1
pokeByteOff p 16 v2
pokeByteOff p 20 v3
return ()
data C'GtsFaceClass = C'GtsFaceClass{
c'GtsFaceClass'parent_class :: C'GtsTriangleClass
} deriving (Eq,Show)
instance Storable C'GtsFaceClass where
sizeOf _ = 92
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsFaceClass v0
poke p (C'GtsFaceClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsFace = C'GtsFace{
c'GtsFace'triangle :: C'GtsTriangle
,
c'GtsFace'surfaces :: Ptr C'GSList
} deriving (Eq,Show)
instance Storable C'GtsFace where
sizeOf _ = 28
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 24
return $ C'GtsFace v0 v1
poke p (C'GtsFace v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 24 v1
return ()
data C'GtsSurfaceClass = C'GtsSurfaceClass{
c'GtsSurfaceClass'parent_class :: C'GtsObjectClass
,
c'GtsSurfaceClass'add_face :: FunPtr (Ptr C'GtsSurface -> Ptr C'GtsFace -> IO ())
,
c'GtsSurfaceClass'remove_face :: FunPtr (Ptr C'GtsSurface -> Ptr C'GtsFace -> IO ())
} deriving (Eq,Show)
instance Storable C'GtsSurfaceClass where
sizeOf _ = 100
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 92
v2 <- peekByteOff p 96
return $ C'GtsSurfaceClass v0 v1 v2
poke p (C'GtsSurfaceClass v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 92 v1
pokeByteOff p 96 v2
return ()
data C'GtsSurface = C'GtsSurface
data C'GtsSurfaceStats = C'GtsSurfaceStats{
c'GtsSurfaceStats'n_faces :: C'guint
,
c'GtsSurfaceStats'n_incompatible_faces :: C'guint
,
c'GtsSurfaceStats'n_duplicate_faces :: C'guint
,
c'GtsSurfaceStats'n_boundary_edges :: C'guint
,
c'GtsSurfaceStats'n_non_manifold_edges :: C'guint
,
c'GtsSurfaceStats'edges_per_vertex :: C'GtsRange
,
c'GtsSurfaceStats'faces_per_edge :: C'GtsRange
,
c'GtsSurfaceStats'parent :: Ptr C'GtsSurface
} deriving (Eq,Show)
instance Storable C'GtsSurfaceStats where
sizeOf _ = 132
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 16
v4 <- peekByteOff p 20
v5 <- peekByteOff p 24
v6 <- peekByteOff p 76
v7 <- peekByteOff p 128
return $ C'GtsSurfaceStats v0 v1 v2 v3 v4 v5 v6 v7
poke p (C'GtsSurfaceStats v0 v1 v2 v3 v4 v5 v6 v7) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 16 v3
pokeByteOff p 20 v4
pokeByteOff p 24 v5
pokeByteOff p 76 v6
pokeByteOff p 128 v7
return ()
data C'GtsSurfaceQualityStats = C'GtsSurfaceQualityStats{
c'GtsSurfaceQualityStats'face_quality :: C'GtsRange
,
c'GtsSurfaceQualityStats'face_area :: C'GtsRange
,
c'GtsSurfaceQualityStats'edge_length :: C'GtsRange
,
c'GtsSurfaceQualityStats'edge_angle :: C'GtsRange
,
c'GtsSurfaceQualityStats'parent :: Ptr C'GtsSurface
} deriving (Eq,Show)
instance Storable C'GtsSurfaceQualityStats where
sizeOf _ = 212
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 52
v2 <- peekByteOff p 104
v3 <- peekByteOff p 156
v4 <- peekByteOff p 208
return $ C'GtsSurfaceQualityStats v0 v1 v2 v3 v4
poke p (C'GtsSurfaceQualityStats v0 v1 v2 v3 v4) = do
pokeByteOff p 0 v0
pokeByteOff p 52 v1
pokeByteOff p 104 v2
pokeByteOff p 156 v3
pokeByteOff p 208 v4
return ()
type C'GtsFunc = FunPtr (C'gpointer -> C'gpointer -> IO C'gint)
foreign import ccall "wrapper" mk'GtsFunc
:: (C'gpointer -> C'gpointer -> IO C'gint) -> IO C'GtsFunc
foreign import ccall "dynamic" mK'GtsFunc
:: C'GtsFunc -> (C'gpointer -> C'gpointer -> IO C'gint)
data C'GtsSurfaceTraverse = C'GtsSurfaceTraverse
data C'GtsBBoxClass = C'GtsBBoxClass{
c'GtsBBoxClass'parent_class :: C'GtsObjectClass
} deriving (Eq,Show)
instance Storable C'GtsBBoxClass where
sizeOf _ = 92
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsBBoxClass v0
poke p (C'GtsBBoxClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsBBox = C'GtsBBox{
c'GtsBBox'object :: C'GtsObject
,
c'GtsBBox'bounded :: C'gpointer
,
c'GtsBBox'x1 :: C'gdouble
,
c'GtsBBox'y1 :: C'gdouble
,
c'GtsBBox'z1 :: C'gdouble
,
c'GtsBBox'x2 :: C'gdouble
,
c'GtsBBox'y2 :: C'gdouble
,
c'GtsBBox'z2 :: C'gdouble
} deriving (Eq,Show)
instance Storable C'GtsBBox where
sizeOf _ = 64
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 12
v2 <- peekByteOff p 16
v3 <- peekByteOff p 24
v4 <- peekByteOff p 32
v5 <- peekByteOff p 40
v6 <- peekByteOff p 48
v7 <- peekByteOff p 56
return $ C'GtsBBox v0 v1 v2 v3 v4 v5 v6 v7
poke p (C'GtsBBox v0 v1 v2 v3 v4 v5 v6 v7) = do
pokeByteOff p 0 v0
pokeByteOff p 12 v1
pokeByteOff p 16 v2
pokeByteOff p 24 v3
pokeByteOff p 32 v4
pokeByteOff p 40 v5
pokeByteOff p 48 v6
pokeByteOff p 56 v7
return ()
type C'GtsBBTreeTraverseFunc = FunPtr (Ptr C'GtsBBox -> Ptr C'GtsBBox -> C'gpointer -> IO ())
foreign import ccall "wrapper" mk'GtsBBTreeTraverseFunc
:: (Ptr C'GtsBBox -> Ptr C'GtsBBox -> C'gpointer -> IO ()) -> IO C'GtsBBTreeTraverseFunc
foreign import ccall "dynamic" mK'GtsBBTreeTraverseFunc
:: C'GtsBBTreeTraverseFunc -> (Ptr C'GtsBBox -> Ptr C'GtsBBox -> C'gpointer -> IO ())
type C'GtsBBoxDistFunc = FunPtr (Ptr C'GtsPoint -> C'gpointer -> IO C'gdouble)
foreign import ccall "wrapper" mk'GtsBBoxDistFunc
:: (Ptr C'GtsPoint -> C'gpointer -> IO C'gdouble) -> IO C'GtsBBoxDistFunc
foreign import ccall "dynamic" mK'GtsBBoxDistFunc
:: C'GtsBBoxDistFunc -> (Ptr C'GtsPoint -> C'gpointer -> IO C'gdouble)
type C'GtsBBoxClosestFunc = FunPtr (Ptr C'GtsPoint -> C'gpointer -> IO (Ptr C'GtsPoint))
foreign import ccall "wrapper" mk'GtsBBoxClosestFunc
:: (Ptr C'GtsPoint -> C'gpointer -> IO (Ptr C'GtsPoint)) -> IO C'GtsBBoxClosestFunc
foreign import ccall "dynamic" mK'GtsBBoxClosestFunc
:: C'GtsBBoxClosestFunc -> (Ptr C'GtsPoint -> C'gpointer -> IO (Ptr C'GtsPoint))
data C'GtsSurfaceInterClass = C'GtsSurfaceInterClass{
c'GtsSurfaceInterClass'parent_class :: C'GtsObjectClass
} deriving (Eq,Show)
instance Storable C'GtsSurfaceInterClass where
sizeOf _ = 92
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsSurfaceInterClass v0
poke p (C'GtsSurfaceInterClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsSurfaceInter = C'GtsSurfaceInter{
c'GtsSurfaceInter'object :: C'GtsObject
,
c'GtsSurfaceInter's1 :: Ptr C'GtsSurface
,
c'GtsSurfaceInter's2 :: Ptr C'GtsSurface
,
c'GtsSurfaceInter'edges :: Ptr C'GSList
} deriving (Eq,Show)
instance Storable C'GtsSurfaceInter where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 12
v2 <- peekByteOff p 16
v3 <- peekByteOff p 20
return $ C'GtsSurfaceInter v0 v1 v2 v3
poke p (C'GtsSurfaceInter v0 v1 v2 v3) = do
pokeByteOff p 0 v0
pokeByteOff p 12 v1
pokeByteOff p 16 v2
pokeByteOff p 20 v3
return ()
type C'GtsBooleanOperation = CUInt
c'GTS_1_OUT_2 = 0
c'GTS_1_OUT_2 :: (Num a) => a
c'GTS_1_IN_2 = 1
c'GTS_1_IN_2 :: (Num a) => a
c'GTS_2_OUT_1 = 2
c'GTS_2_OUT_1 :: (Num a) => a
c'GTS_2_IN_1 = 3
c'GTS_2_IN_1 :: (Num a) => a
type C'GtsCoarsenFunc = FunPtr (Ptr C'GtsEdge -> Ptr C'GtsVertexClass -> C'gpointer -> IO (Ptr C'GtsVertex))
foreign import ccall "wrapper" mk'GtsCoarsenFunc
:: (Ptr C'GtsEdge -> Ptr C'GtsVertexClass -> C'gpointer -> IO (Ptr C'GtsVertex)) -> IO C'GtsCoarsenFunc
foreign import ccall "dynamic" mK'GtsCoarsenFunc
:: C'GtsCoarsenFunc -> (Ptr C'GtsEdge -> Ptr C'GtsVertexClass -> C'gpointer -> IO (Ptr C'GtsVertex))
type C'GtsRefineFunc = FunPtr (Ptr C'GtsEdge -> Ptr C'GtsVertexClass -> C'gpointer -> IO (Ptr C'GtsVertex))
foreign import ccall "wrapper" mk'GtsRefineFunc
:: (Ptr C'GtsEdge -> Ptr C'GtsVertexClass -> C'gpointer -> IO (Ptr C'GtsVertex)) -> IO C'GtsRefineFunc
foreign import ccall "dynamic" mK'GtsRefineFunc
:: C'GtsRefineFunc -> (Ptr C'GtsEdge -> Ptr C'GtsVertexClass -> C'gpointer -> IO (Ptr C'GtsVertex))
type C'GtsStopFunc = FunPtr (C'gdouble -> C'guint -> C'gpointer -> IO C'gboolean)
foreign import ccall "wrapper" mk'GtsStopFunc
:: (C'gdouble -> C'guint -> C'gpointer -> IO C'gboolean) -> IO C'GtsStopFunc
foreign import ccall "dynamic" mK'GtsStopFunc
:: C'GtsStopFunc -> (C'gdouble -> C'guint -> C'gpointer -> IO C'gboolean)
data C'GtsVolumeOptimizedParams = C'GtsVolumeOptimizedParams{
c'GtsVolumeOptimizedParams'volume_weight :: C'gdouble
,
c'GtsVolumeOptimizedParams'boundary_weight :: C'gdouble
,
c'GtsVolumeOptimizedParams'shape_weight :: C'gdouble
} deriving (Eq,Show)
instance Storable C'GtsVolumeOptimizedParams where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 8
v2 <- peekByteOff p 16
return $ C'GtsVolumeOptimizedParams v0 v1 v2
poke p (C'GtsVolumeOptimizedParams v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 8 v1
pokeByteOff p 16 v2
return ()
data C'GtsClusterClass = C'GtsClusterClass{
c'GtsClusterClass'parent_class :: C'GtsObjectClass
,
c'GtsClusterClass'add :: FunPtr (Ptr C'GtsCluster -> Ptr C'GtsPoint -> C'gpointer -> IO ())
,
c'GtsClusterClass'update :: FunPtr (Ptr C'GtsCluster -> IO ())
} deriving (Eq,Show)
instance Storable C'GtsClusterClass where
sizeOf _ = 100
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 92
v2 <- peekByteOff p 96
return $ C'GtsClusterClass v0 v1 v2
poke p (C'GtsClusterClass v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 92 v1
pokeByteOff p 96 v2
return ()
data C'GtsCluster = C'GtsCluster{
c'GtsCluster'parent :: C'GtsObject
,
c'GtsCluster'id :: C'GtsClusterId
,
c'GtsCluster'v :: Ptr C'GtsVertex
,
c'GtsCluster'n :: C'guint
} deriving (Eq,Show)
instance Storable C'GtsCluster where
sizeOf _ = 32
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 12
v2 <- peekByteOff p 24
v3 <- peekByteOff p 28
return $ C'GtsCluster v0 v1 v2 v3
poke p (C'GtsCluster v0 v1 v2 v3) = do
pokeByteOff p 0 v0
pokeByteOff p 12 v1
pokeByteOff p 24 v2
pokeByteOff p 28 v3
return ()
data C'GtsClusterId = C'GtsClusterId{
c'GtsClusterId'x :: C'guint
,
c'GtsClusterId'y :: C'guint
,
c'GtsClusterId'z :: C'guint
} deriving (Eq,Show)
instance Storable C'GtsClusterId where
sizeOf _ = 12
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
return $ C'GtsClusterId v0 v1 v2
poke p (C'GtsClusterId v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
return ()
data C'GtsClusterGridClass = C'GtsClusterGridClass{
c'GtsClusterGridClass'parent_class :: C'GtsObjectClass
} deriving (Eq,Show)
instance Storable C'GtsClusterGridClass where
sizeOf _ = 92
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsClusterGridClass v0
poke p (C'GtsClusterGridClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsClusterGrid = C'GtsClusterGrid{
c'GtsClusterGrid'parent :: C'GtsObject
,
c'GtsClusterGrid'surface :: Ptr C'GtsSurface
,
c'GtsClusterGrid'bbox :: Ptr C'GtsBBox
,
c'GtsClusterGrid'size :: C'GtsVector
,
c'GtsClusterGrid'cluster_class :: Ptr C'GtsClusterClass
,
c'GtsClusterGrid'clusters :: Ptr C'GHashTable
} deriving (Eq,Show)
instance Storable C'GtsClusterGrid where
sizeOf _ = 52
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 12
v2 <- peekByteOff p 16
v3 <- peekByteOff p 20
v4 <- peekByteOff p 44
v5 <- peekByteOff p 48
return $ C'GtsClusterGrid v0 v1 v2 v3 v4 v5
poke p (C'GtsClusterGrid v0 v1 v2 v3 v4 v5) = do
pokeByteOff p 0 v0
pokeByteOff p 12 v1
pokeByteOff p 16 v2
pokeByteOff p 20 v3
pokeByteOff p 44 v4
pokeByteOff p 48 v5
return ()
data C'GtsCartesianGrid = C'GtsCartesianGrid{
c'GtsCartesianGrid'nx :: C'guint
,
c'GtsCartesianGrid'ny :: C'guint
,
c'GtsCartesianGrid'nz :: C'guint
,
c'GtsCartesianGrid'x :: C'gdouble
,
c'GtsCartesianGrid'dx :: C'gdouble
,
c'GtsCartesianGrid'y :: C'gdouble
,
c'GtsCartesianGrid'dy :: C'gdouble
,
c'GtsCartesianGrid'z :: C'gdouble
,
c'GtsCartesianGrid'dz :: C'gdouble
} deriving (Eq,Show)
instance Storable C'GtsCartesianGrid where
sizeOf _ = 60
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 20
v5 <- peekByteOff p 28
v6 <- peekByteOff p 36
v7 <- peekByteOff p 44
v8 <- peekByteOff p 52
return $ C'GtsCartesianGrid v0 v1 v2 v3 v4 v5 v6 v7 v8
poke p (C'GtsCartesianGrid v0 v1 v2 v3 v4 v5 v6 v7 v8) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 20 v4
pokeByteOff p 28 v5
pokeByteOff p 36 v6
pokeByteOff p 44 v7
pokeByteOff p 52 v8
return ()
data C'GtsGridPlane = C'GtsGridPlane{
c'GtsGridPlane'p :: Ptr (Ptr C'GtsPoint)
,
c'GtsGridPlane'nx :: C'guint
,
c'GtsGridPlane'ny :: C'guint
} deriving (Eq,Show)
instance Storable C'GtsGridPlane where
sizeOf _ = 12
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
return $ C'GtsGridPlane v0 v1 v2
poke p (C'GtsGridPlane v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
return ()
data C'GtsIsoSlice = C'GtsIsoSlice
data C'GtsConstraintClass = C'GtsConstraintClass
data C'GtsConstraint = C'GtsConstraint
data C'GtsSplitClass = C'GtsSplitClass{
c'GtsSplitClass'parent_class :: C'GtsObjectClass
} deriving (Eq,Show)
instance Storable C'GtsSplitClass where
sizeOf _ = 92
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsSplitClass v0
poke p (C'GtsSplitClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsSplitCFace = C'GtsSplitCFace
data C'GtsSplit = C'GtsSplit{
c'GtsSplit'object :: C'GtsObject
,
c'GtsSplit'v :: Ptr C'GtsVertex
,
c'GtsSplit'v1 :: Ptr C'GtsObject
,
c'GtsSplit'v2 :: Ptr C'GtsObject
,
c'GtsSplit'cfaces :: Ptr C'GtsSplitCFace
,
c'GtsSplit'ncf :: C'guint
} deriving (Eq,Show)
instance Storable C'GtsSplit where
sizeOf _ = 32
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 12
v2 <- peekByteOff p 16
v3 <- peekByteOff p 20
v4 <- peekByteOff p 24
v5 <- peekByteOff p 28
return $ C'GtsSplit v0 v1 v2 v3 v4 v5
poke p (C'GtsSplit v0 v1 v2 v3 v4 v5) = do
pokeByteOff p 0 v0
pokeByteOff p 12 v1
pokeByteOff p 16 v2
pokeByteOff p 20 v3
pokeByteOff p 24 v4
pokeByteOff p 28 v5
return ()
type C'GtsSplitTraverseFunc = FunPtr (Ptr C'GtsSplit -> C'gpointer -> IO C'gboolean)
foreign import ccall "wrapper" mk'GtsSplitTraverseFunc
:: (Ptr C'GtsSplit -> C'gpointer -> IO C'gboolean) -> IO C'GtsSplitTraverseFunc
foreign import ccall "dynamic" mK'GtsSplitTraverseFunc
:: C'GtsSplitTraverseFunc -> (Ptr C'GtsSplit -> C'gpointer -> IO C'gboolean)
data C'GtsPSurfaceClass = C'GtsPSurfaceClass{
c'GtsPSurfaceClass'parent_class :: C'GtsObjectClass
} deriving (Eq,Show)
instance Storable C'GtsPSurfaceClass where
sizeOf _ = 92
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsPSurfaceClass v0
poke p (C'GtsPSurfaceClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsPSurface = C'GtsPSurface{
c'GtsPSurface'object :: C'GtsObject
,
c'GtsPSurface's :: Ptr C'GtsSurface
,
c'GtsPSurface'split :: Ptr C'GPtrArray
,
c'GtsPSurface'split_class :: Ptr C'GtsSplitClass
,
c'GtsPSurface'pos :: C'guint
,
c'GtsPSurface'min :: C'guint
,
c'GtsPSurface'vertices :: Ptr C'GPtrArray
,
c'GtsPSurface'faces :: Ptr C'GPtrArray
} deriving (Eq,Show)
instance Storable C'GtsPSurface where
sizeOf _ = 40
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 12
v2 <- peekByteOff p 16
v3 <- peekByteOff p 20
v4 <- peekByteOff p 24
v5 <- peekByteOff p 28
v6 <- peekByteOff p 32
v7 <- peekByteOff p 36
return $ C'GtsPSurface v0 v1 v2 v3 v4 v5 v6 v7
poke p (C'GtsPSurface v0 v1 v2 v3 v4 v5 v6 v7) = do
pokeByteOff p 0 v0
pokeByteOff p 12 v1
pokeByteOff p 16 v2
pokeByteOff p 20 v3
pokeByteOff p 24 v4
pokeByteOff p 28 v5
pokeByteOff p 32 v6
pokeByteOff p 36 v7
return ()
data C'GtsHSplitClass = C'GtsHSplitClass{
c'GtsHSplitClass'parent_class :: C'GtsSplitClass
} deriving (Eq,Show)
instance Storable C'GtsHSplitClass where
sizeOf _ = 92
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsHSplitClass v0
poke p (C'GtsHSplitClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsHSplit = C'GtsHSplit{
c'GtsHSplit'split :: C'GtsSplit
,
c'GtsHSplit'index :: Ptr C'GtsEHeapPair
,
c'GtsHSplit'parent :: Ptr C'GtsHSplit
,
c'GtsHSplit'nchild :: C'guint
} deriving (Eq,Show)
instance Storable C'GtsHSplit where
sizeOf _ = 44
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 32
v2 <- peekByteOff p 36
v3 <- peekByteOff p 40
return $ C'GtsHSplit v0 v1 v2 v3
poke p (C'GtsHSplit v0 v1 v2 v3) = do
pokeByteOff p 0 v0
pokeByteOff p 32 v1
pokeByteOff p 36 v2
pokeByteOff p 40 v3
return ()
data C'GtsHSurfaceClass = C'GtsHSurfaceClass{
c'GtsHSurfaceClass'parent_class :: C'GtsObjectClass
} deriving (Eq,Show)
instance Storable C'GtsHSurfaceClass where
sizeOf _ = 92
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsHSurfaceClass v0
poke p (C'GtsHSurfaceClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsHSurface = C'GtsHSurface{
c'GtsHSurface'object :: C'GtsObject
,
c'GtsHSurface's :: Ptr C'GtsSurface
,
c'GtsHSurface'roots :: Ptr C'GSList
,
c'GtsHSurface'expandable :: Ptr C'GtsEHeap
,
c'GtsHSurface'collapsable :: Ptr C'GtsEHeap
,
c'GtsHSurface'split :: Ptr C'GPtrArray
,
c'GtsHSurface'nvertex :: C'guint
} deriving (Eq,Show)
instance Storable C'GtsHSurface where
sizeOf _ = 36
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 12
v2 <- peekByteOff p 16
v3 <- peekByteOff p 20
v4 <- peekByteOff p 24
v5 <- peekByteOff p 28
v6 <- peekByteOff p 32
return $ C'GtsHSurface v0 v1 v2 v3 v4 v5 v6
poke p (C'GtsHSurface v0 v1 v2 v3 v4 v5 v6) = do
pokeByteOff p 0 v0
pokeByteOff p 12 v1
pokeByteOff p 16 v2
pokeByteOff p 20 v3
pokeByteOff p 24 v4
pokeByteOff p 28 v5
pokeByteOff p 32 v6
return ()
data C'GtsGNodeClass = C'GtsGNodeClass{
c'GtsGNodeClass'parent_class :: C'GtsSListContainerClass
,
c'GtsGNodeClass'weight :: FunPtr (Ptr C'GtsGNode -> IO C'gfloat)
,
c'GtsGNodeClass'write :: FunPtr (Ptr C'GtsGNode -> Ptr CFile -> IO ())
} deriving (Eq,Show)
instance Storable C'GtsGNodeClass where
sizeOf _ = 136
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 128
v2 <- peekByteOff p 132
return $ C'GtsGNodeClass v0 v1 v2
poke p (C'GtsGNodeClass v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 128 v1
pokeByteOff p 132 v2
return ()
data C'GtsGNode = C'GtsGNode{
c'GtsGNode'container :: C'GtsSListContainer
,
c'GtsGNode'level :: C'guint
} deriving (Eq,Show)
instance Storable C'GtsGNode where
sizeOf _ = 28
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 24
return $ C'GtsGNode v0 v1
poke p (C'GtsGNode v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 24 v1
return ()
data C'GtsGEdgeClass = C'GtsGEdgeClass{
c'GtsGEdgeClass'parent_class :: C'GtsContaineeClass
,
c'GtsGEdgeClass'link :: FunPtr (Ptr C'GtsGEdge -> Ptr C'GtsGNode -> Ptr C'GtsGNode -> IO (Ptr C'GtsGEdge))
,
c'GtsGEdgeClass'weight :: FunPtr (Ptr C'GtsGEdge -> IO C'gfloat)
,
c'GtsGEdgeClass'write :: FunPtr (Ptr C'GtsGEdge -> Ptr CFile -> IO ())
} deriving (Eq,Show)
instance Storable C'GtsGEdgeClass where
sizeOf _ = 124
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 112
v2 <- peekByteOff p 116
v3 <- peekByteOff p 120
return $ C'GtsGEdgeClass v0 v1 v2 v3
poke p (C'GtsGEdgeClass v0 v1 v2 v3) = do
pokeByteOff p 0 v0
pokeByteOff p 112 v1
pokeByteOff p 116 v2
pokeByteOff p 120 v3
return ()
data C'GtsGEdge = C'GtsGEdge{
c'GtsGEdge'containee :: C'GtsContainee
,
c'GtsGEdge'n1 :: Ptr C'GtsGNode
,
c'GtsGEdge'n2 :: Ptr C'GtsGNode
} deriving (Eq,Show)
instance Storable C'GtsGEdge where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 12
v2 <- peekByteOff p 16
return $ C'GtsGEdge v0 v1 v2
poke p (C'GtsGEdge v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 12 v1
pokeByteOff p 16 v2
return ()
data C'GtsGraphClass = C'GtsGraphClass{
c'GtsGraphClass'parent_class :: C'GtsHashContainerClass
,
c'GtsGraphClass'weight :: FunPtr (Ptr C'GtsGraph -> IO C'gfloat)
} deriving (Eq,Show)
instance Storable C'GtsGraphClass where
sizeOf _ = 132
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 128
return $ C'GtsGraphClass v0 v1
poke p (C'GtsGraphClass v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 128 v1
return ()
data C'GtsGraph = C'GtsGraph{
c'GtsGraph'object :: C'GtsHashContainer
,
c'GtsGraph'graph_class :: Ptr C'GtsGraphClass
,
c'GtsGraph'node_class :: Ptr C'GtsGNodeClass
,
c'GtsGraph'edge_class :: Ptr C'GtsGEdgeClass
} deriving (Eq,Show)
instance Storable C'GtsGraph where
sizeOf _ = 36
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 24
v2 <- peekByteOff p 28
v3 <- peekByteOff p 32
return $ C'GtsGraph v0 v1 v2 v3
poke p (C'GtsGraph v0 v1 v2 v3) = do
pokeByteOff p 0 v0
pokeByteOff p 24 v1
pokeByteOff p 28 v2
pokeByteOff p 32 v3
return ()
data C'GtsGraphTraverse = C'GtsGraphTraverse
type C'GtsTraverseType = CUInt
c'GTS_BREADTH_FIRST = 0
c'GTS_BREADTH_FIRST :: (Num a) => a
data C'GtsFNode = C'GtsFNode{
c'GtsFNode'node :: C'GtsGNode
,
c'GtsFNode'f :: Ptr C'GtsFace
} deriving (Eq,Show)
instance Storable C'GtsFNode where
sizeOf _ = 32
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 28
return $ C'GtsFNode v0 v1
poke p (C'GtsFNode v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 28 v1
return ()
data C'GtsFNodeClass = C'GtsFNodeClass{
c'GtsFNodeClass'parent_class :: C'GtsGNodeClass
} deriving (Eq,Show)
instance Storable C'GtsFNodeClass where
sizeOf _ = 136
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsFNodeClass v0
poke p (C'GtsFNodeClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsWGEdgeClass = C'GtsWGEdgeClass{
c'GtsWGEdgeClass'parent_class :: C'GtsGEdgeClass
} deriving (Eq,Show)
instance Storable C'GtsWGEdgeClass where
sizeOf _ = 124
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsWGEdgeClass v0
poke p (C'GtsWGEdgeClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsWGEdge = C'GtsWGEdge{
c'GtsWGEdge'gedge :: C'GtsGEdge
,
c'GtsWGEdge'weight :: C'gfloat
} deriving (Eq,Show)
instance Storable C'GtsWGEdge where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 20
return $ C'GtsWGEdge v0 v1
poke p (C'GtsWGEdge v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 20 v1
return ()
data C'GtsWGNodeClass = C'GtsWGNodeClass{
c'GtsWGNodeClass'parent_class :: C'GtsGNodeClass
} deriving (Eq,Show)
instance Storable C'GtsWGNodeClass where
sizeOf _ = 136
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsWGNodeClass v0
poke p (C'GtsWGNodeClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsWGNode = C'GtsWGNode{
c'GtsWGNode'node :: C'GtsGNode
,
c'GtsWGNode'weight :: C'gfloat
} deriving (Eq,Show)
instance Storable C'GtsWGNode where
sizeOf _ = 32
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 28
return $ C'GtsWGNode v0 v1
poke p (C'GtsWGNode v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 28 v1
return ()
data C'GtsWGraphClass = C'GtsWGraphClass{
c'GtsWGraphClass'parent_class :: C'GtsGraphClass
} deriving (Eq,Show)
instance Storable C'GtsWGraphClass where
sizeOf _ = 132
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsWGraphClass v0
poke p (C'GtsWGraphClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsWGraph = C'GtsWGraph{
c'GtsWGraph'graph :: C'GtsGraph
,
c'GtsWGraph'weight :: C'gfloat
} deriving (Eq,Show)
instance Storable C'GtsWGraph where
sizeOf _ = 40
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 36
return $ C'GtsWGraph v0 v1
poke p (C'GtsWGraph v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 36 v1
return ()
data C'GtsGNodeSplitClass = C'GtsGNodeSplitClass{
c'GtsGNodeSplitClass'parent_class :: C'GtsObjectClass
} deriving (Eq,Show)
instance Storable C'GtsGNodeSplitClass where
sizeOf _ = 92
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsGNodeSplitClass v0
poke p (C'GtsGNodeSplitClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsGNodeSplit = C'GtsGNodeSplit{
c'GtsGNodeSplit'object :: C'GtsObject
,
c'GtsGNodeSplit'n :: Ptr C'GtsGNode
,
c'GtsGNodeSplit'n1 :: Ptr C'GtsObject
,
c'GtsGNodeSplit'n2 :: Ptr C'GtsObject
} deriving (Eq,Show)
instance Storable C'GtsGNodeSplit where
sizeOf _ = 24
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 12
v2 <- peekByteOff p 16
v3 <- peekByteOff p 20
return $ C'GtsGNodeSplit v0 v1 v2 v3
poke p (C'GtsGNodeSplit v0 v1 v2 v3) = do
pokeByteOff p 0 v0
pokeByteOff p 12 v1
pokeByteOff p 16 v2
pokeByteOff p 20 v3
return ()
data C'GtsPGraphClass = C'GtsPGraphClass{
c'GtsPGraphClass'parent_class :: C'GtsObjectClass
} deriving (Eq,Show)
instance Storable C'GtsPGraphClass where
sizeOf _ = 92
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GtsPGraphClass v0
poke p (C'GtsPGraphClass v0) = do
pokeByteOff p 0 v0
return ()
data C'GtsPGraph = C'GtsPGraph{
c'GtsPGraph'object :: C'GtsObject
,
c'GtsPGraph'g :: Ptr C'GtsGraph
,
c'GtsPGraph'split :: Ptr C'GPtrArray
,
c'GtsPGraph'levels :: Ptr C'GArray
,
c'GtsPGraph'split_class :: Ptr C'GtsGNodeSplitClass
,
c'GtsPGraph'edge_class :: Ptr C'GtsWGEdgeClass
,
c'GtsPGraph'pos :: C'guint
,
c'GtsPGraph'min :: C'guint
,
c'GtsPGraph'level :: C'guint
} deriving (Eq,Show)
instance Storable C'GtsPGraph where
sizeOf _ = 44
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 12
v2 <- peekByteOff p 16
v3 <- peekByteOff p 20
v4 <- peekByteOff p 24
v5 <- peekByteOff p 28
v6 <- peekByteOff p 32
v7 <- peekByteOff p 36
v8 <- peekByteOff p 40
return $ C'GtsPGraph v0 v1 v2 v3 v4 v5 v6 v7 v8
poke p (C'GtsPGraph v0 v1 v2 v3 v4 v5 v6 v7 v8) = do
pokeByteOff p 0 v0
pokeByteOff p 12 v1
pokeByteOff p 16 v2
pokeByteOff p 20 v3
pokeByteOff p 24 v4
pokeByteOff p 28 v5
pokeByteOff p 32 v6
pokeByteOff p 36 v7
pokeByteOff p 40 v8
return ()
data C'GtsGraphBisection = C'GtsGraphBisection{
c'GtsGraphBisection'g :: Ptr C'GtsGraph
,
c'GtsGraphBisection'g1 :: Ptr C'GtsGraph
,
c'GtsGraphBisection'g2 :: Ptr C'GtsGraph
,
c'GtsGraphBisection'bg1 :: Ptr C'GHashTable
,
c'GtsGraphBisection'bg2 :: Ptr C'GHashTable
} deriving (Eq,Show)
instance Storable C'GtsGraphBisection 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'GtsGraphBisection v0 v1 v2 v3 v4
poke p (C'GtsGraphBisection 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 ()