module Bindings.GObject.GTypeModule 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
import Bindings.GLib.Fundamentals
import Bindings.GObject.BaseObjectType
import Bindings.GObject.EnumerationAndFlagTypes
import Bindings.GObject.TypeInformation
data C'GTypeModule = C'GTypeModule{
c'GTypeModule'name :: Ptr C'gchar
} deriving (Eq,Show)
instance Storable C'GTypeModule where
sizeOf _ = 28
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 24
return $ C'GTypeModule v0
poke p (C'GTypeModule v0) = do
pokeByteOff p 24 v0
return ()
data C'GTypeModuleClass = C'GTypeModuleClass{
c'GTypeModuleClass'load :: FunPtr (Ptr C'GTypeModule -> IO C'gboolean)
,
c'GTypeModuleClass'unload :: FunPtr (Ptr C'GTypeModule -> IO ())
} deriving (Eq,Show)
instance Storable C'GTypeModuleClass where
sizeOf _ = 92
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 68
v1 <- peekByteOff p 72
return $ C'GTypeModuleClass v0 v1
poke p (C'GTypeModuleClass v0 v1) = do
pokeByteOff p 68 v0
pokeByteOff p 72 v1
return ()
foreign import ccall "g_type_module_use" c'g_type_module_use
:: Ptr C'GTypeModule -> IO C'gboolean
foreign import ccall "&g_type_module_use" p'g_type_module_use
:: FunPtr (Ptr C'GTypeModule -> IO C'gboolean)
foreign import ccall "g_type_module_unuse" c'g_type_module_unuse
:: Ptr C'GTypeModule -> IO ()
foreign import ccall "&g_type_module_unuse" p'g_type_module_unuse
:: FunPtr (Ptr C'GTypeModule -> IO ())
foreign import ccall "g_type_module_set_name" c'g_type_module_set_name
:: Ptr C'GTypeModule -> Ptr C'gchar -> IO ()
foreign import ccall "&g_type_module_set_name" p'g_type_module_set_name
:: FunPtr (Ptr C'GTypeModule -> Ptr C'gchar -> IO ())
foreign import ccall "g_type_module_register_type" c'g_type_module_register_type
:: Ptr C'GTypeModule -> C'GType -> Ptr C'gchar -> Ptr C'GTypeInfo -> C'GTypeFlags -> IO C'GType
foreign import ccall "&g_type_module_register_type" p'g_type_module_register_type
:: FunPtr (Ptr C'GTypeModule -> C'GType -> Ptr C'gchar -> Ptr C'GTypeInfo -> C'GTypeFlags -> IO C'GType)
foreign import ccall "g_type_module_add_interface" c'g_type_module_add_interface
:: Ptr C'GTypeModule -> C'GType -> C'GType -> Ptr C'GInterfaceInfo -> IO ()
foreign import ccall "&g_type_module_add_interface" p'g_type_module_add_interface
:: FunPtr (Ptr C'GTypeModule -> C'GType -> C'GType -> Ptr C'GInterfaceInfo -> IO ())
foreign import ccall "g_type_module_register_enum" c'g_type_module_register_enum
:: Ptr C'GTypeModule -> Ptr C'gchar -> Ptr C'GEnumValue -> IO C'GType
foreign import ccall "&g_type_module_register_enum" p'g_type_module_register_enum
:: FunPtr (Ptr C'GTypeModule -> Ptr C'gchar -> Ptr C'GEnumValue -> IO C'GType)
foreign import ccall "g_type_module_register_flags" c'g_type_module_register_flags
:: Ptr C'GTypeModule -> Ptr C'gchar -> Ptr C'GFlagsValue -> IO C'GType
foreign import ccall "&g_type_module_register_flags" p'g_type_module_register_flags
:: FunPtr (Ptr C'GTypeModule -> Ptr C'gchar -> Ptr C'GFlagsValue -> IO C'GType)