module Bindings.GObject.TypeInformation 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
import Bindings.GObject.Varargs
type C'GType = CUInt
data C'GTypePlugin = C'GTypePlugin
data C'GValue = C'GValue{
} deriving (Eq,Show)
instance Storable C'GValue where
sizeOf _ = 20
alignment = sizeOf
peek p = do
return $ C'GValue
poke p (C'GValue) = do
return ()
foreign import ccall "inline_G_TYPE_FUNDAMENTAL" c'G_TYPE_FUNDAMENTAL
:: C'GType -> C'GType
c'G_TYPE_FUNDAMENTAL_MAX = 1020
c'G_TYPE_FUNDAMENTAL_MAX :: (Num a) => a
foreign import ccall "inline_G_TYPE_MAKE_FUNDAMENTAL" c'G_TYPE_MAKE_FUNDAMENTAL
:: C'GType -> C'GType
foreign import ccall "inline_G_TYPE_IS_ABSTRACT" c'G_TYPE_IS_ABSTRACT
:: C'GType -> C'gboolean
foreign import ccall "inline_G_TYPE_IS_DERIVED" c'G_TYPE_IS_DERIVED
:: C'GType -> C'gboolean
foreign import ccall "inline_G_TYPE_IS_FUNDAMENTAL" c'G_TYPE_IS_FUNDAMENTAL
:: C'GType -> C'gboolean
foreign import ccall "inline_G_TYPE_IS_VALUE_TYPE" c'G_TYPE_IS_VALUE_TYPE
:: C'GType -> C'gboolean
foreign import ccall "inline_G_TYPE_HAS_VALUE_TABLE" c'G_TYPE_HAS_VALUE_TABLE
:: C'GType -> C'gboolean
foreign import ccall "inline_G_TYPE_IS_CLASSED" c'G_TYPE_IS_CLASSED
:: C'GType -> C'gboolean
foreign import ccall "inline_G_TYPE_IS_INSTANTIATABLE" c'G_TYPE_IS_INSTANTIATABLE
:: C'GType -> C'gboolean
foreign import ccall "inline_G_TYPE_IS_DERIVABLE" c'G_TYPE_IS_DERIVABLE
:: C'GType -> C'gboolean
foreign import ccall "inline_G_TYPE_IS_DEEP_DERIVABLE" c'G_TYPE_IS_DEEP_DERIVABLE
:: C'GType -> C'gboolean
foreign import ccall "inline_G_TYPE_IS_INTERFACE" c'G_TYPE_IS_INTERFACE
:: C'GType -> C'gboolean
data C'GTypeInterface = C'GTypeInterface{
} deriving (Eq,Show)
instance Storable C'GTypeInterface where
sizeOf _ = 8
alignment = sizeOf
peek p = do
return $ C'GTypeInterface
poke p (C'GTypeInterface) = do
return ()
data C'GTypeInstance = C'GTypeInstance{
} deriving (Eq,Show)
instance Storable C'GTypeInstance where
sizeOf _ = 4
alignment = sizeOf
peek p = do
return $ C'GTypeInstance
poke p (C'GTypeInstance) = do
return ()
data C'GTypeClass = C'GTypeClass{
} deriving (Eq,Show)
instance Storable C'GTypeClass where
sizeOf _ = 4
alignment = sizeOf
peek p = do
return $ C'GTypeClass
poke p (C'GTypeClass) = do
return ()
data C'GTypeInfo = C'GTypeInfo{
c'GTypeInfo'class_size :: C'guint16
,
c'GTypeInfo'base_init :: C'GBaseInitFunc
,
c'GTypeInfo'base_finalize :: C'GBaseFinalizeFunc
,
c'GTypeInfo'class_init :: C'GClassInitFunc
,
c'GTypeInfo'class_finalize :: C'GClassFinalizeFunc
,
c'GTypeInfo'class_data :: C'gconstpointer
,
c'GTypeInfo'instance_size :: C'guint16
,
c'GTypeInfo'instance_init :: C'GInstanceInitFunc
,
c'GTypeInfo'value_table :: Ptr C'GTypeValueTable
} deriving (Eq,Show)
instance Storable C'GTypeInfo where
sizeOf _ = 36
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
return $ C'GTypeInfo v0 v1 v2 v3 v4 v5 v6 v7 v8
poke p (C'GTypeInfo 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 16 v4
pokeByteOff p 20 v5
pokeByteOff p 24 v6
pokeByteOff p 28 v7
pokeByteOff p 32 v8
return ()
data C'GTypeFundamentalInfo = C'GTypeFundamentalInfo{
c'GTypeFundamentalInfo'type_flags :: C'GTypeFundamentalFlags
} deriving (Eq,Show)
instance Storable C'GTypeFundamentalInfo where
sizeOf _ = 4
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
return $ C'GTypeFundamentalInfo v0
poke p (C'GTypeFundamentalInfo v0) = do
pokeByteOff p 0 v0
return ()
data C'GInterfaceInfo = C'GInterfaceInfo{
c'GInterfaceInfo'interface_init :: C'GInterfaceInitFunc
,
c'GInterfaceInfo'interface_finalize :: C'GInterfaceFinalizeFunc
,
c'GInterfaceInfo'interface_data :: C'gpointer
} deriving (Eq,Show)
instance Storable C'GInterfaceInfo where
sizeOf _ = 12
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
return $ C'GInterfaceInfo v0 v1 v2
poke p (C'GInterfaceInfo v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
return ()
data C'GTypeValueTable = C'GTypeValueTable{
c'GTypeValueTable'value_init :: FunPtr (Ptr C'GValue -> IO ())
,
c'GTypeValueTable'value_free :: FunPtr (Ptr C'GValue -> IO ())
,
c'GTypeValueTable'value_copy :: FunPtr (Ptr C'GValue -> Ptr C'GValue -> IO ())
,
c'GTypeValueTable'value_peek_pointer :: FunPtr (Ptr C'GValue -> IO C'gpointer)
,
c'GTypeValueTable'collect_format :: Ptr C'gchar
,
c'GTypeValueTable'collect_value :: FunPtr (Ptr C'GValue -> C'guint -> Ptr C'GTypeCValue -> C'guint -> IO (Ptr C'gchar))
,
c'GTypeValueTable'lcopy_format :: Ptr C'gchar
,
c'GTypeValueTable'lcopy_value :: FunPtr (Ptr C'GValue -> C'guint -> Ptr C'GTypeCValue -> C'guint -> IO (Ptr C'gchar))
} deriving (Eq,Show)
instance Storable C'GTypeValueTable where
sizeOf _ = 32
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
return $ C'GTypeValueTable v0 v1 v2 v3 v4 v5 v6 v7
poke p (C'GTypeValueTable v0 v1 v2 v3 v4 v5 v6 v7) = 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
return ()
c'G_TYPE_FLAG_RESERVED_ID_BIT = 1
c'G_TYPE_FLAG_RESERVED_ID_BIT :: (Num a) => a
foreign import ccall "g_type_init" c'g_type_init
:: IO ()
foreign import ccall "&g_type_init" p'g_type_init
:: FunPtr (IO ())
type C'GTypeDebugFlags = CUInt
c'G_TYPE_DEBUG_NONE = 0
c'G_TYPE_DEBUG_NONE :: (Num a) => a
c'G_TYPE_DEBUG_OBJECTS = 1
c'G_TYPE_DEBUG_OBJECTS :: (Num a) => a
c'G_TYPE_DEBUG_SIGNALS = 2
c'G_TYPE_DEBUG_SIGNALS :: (Num a) => a
c'G_TYPE_DEBUG_MASK = 3
c'G_TYPE_DEBUG_MASK :: (Num a) => a
foreign import ccall "g_type_init_with_debug_flags" c'g_type_init_with_debug_flags
:: C'GTypeDebugFlags -> IO ()
foreign import ccall "&g_type_init_with_debug_flags" p'g_type_init_with_debug_flags
:: FunPtr (C'GTypeDebugFlags -> IO ())
foreign import ccall "g_type_name" c'g_type_name
:: C'GType -> IO (Ptr C'gchar)
foreign import ccall "&g_type_name" p'g_type_name
:: FunPtr (C'GType -> IO (Ptr C'gchar))
foreign import ccall "g_type_qname" c'g_type_qname
:: C'GType -> IO C'GQuark
foreign import ccall "&g_type_qname" p'g_type_qname
:: FunPtr (C'GType -> IO C'GQuark)
foreign import ccall "g_type_from_name" c'g_type_from_name
:: Ptr C'gchar -> IO C'GType
foreign import ccall "&g_type_from_name" p'g_type_from_name
:: FunPtr (Ptr C'gchar -> IO C'GType)
foreign import ccall "g_type_parent" c'g_type_parent
:: C'GType -> IO C'GType
foreign import ccall "&g_type_parent" p'g_type_parent
:: FunPtr (C'GType -> IO C'GType)
foreign import ccall "g_type_depth" c'g_type_depth
:: C'GType -> IO C'guint
foreign import ccall "&g_type_depth" p'g_type_depth
:: FunPtr (C'GType -> IO C'guint)
foreign import ccall "g_type_next_base" c'g_type_next_base
:: C'GType -> C'GType -> IO C'GType
foreign import ccall "&g_type_next_base" p'g_type_next_base
:: FunPtr (C'GType -> C'GType -> IO C'GType)
foreign import ccall "g_type_is_a" c'g_type_is_a
:: C'GType -> C'GType -> IO C'gboolean
foreign import ccall "&g_type_is_a" p'g_type_is_a
:: FunPtr (C'GType -> C'GType -> IO C'gboolean)
foreign import ccall "g_type_class_ref" c'g_type_class_ref
:: C'GType -> IO C'gpointer
foreign import ccall "&g_type_class_ref" p'g_type_class_ref
:: FunPtr (C'GType -> IO C'gpointer)
foreign import ccall "g_type_class_peek" c'g_type_class_peek
:: C'GType -> IO C'gpointer
foreign import ccall "&g_type_class_peek" p'g_type_class_peek
:: FunPtr (C'GType -> IO C'gpointer)
foreign import ccall "g_type_class_peek_static" c'g_type_class_peek_static
:: C'GType -> IO C'gpointer
foreign import ccall "&g_type_class_peek_static" p'g_type_class_peek_static
:: FunPtr (C'GType -> IO C'gpointer)
foreign import ccall "g_type_class_unref" c'g_type_class_unref
:: C'gpointer -> IO ()
foreign import ccall "&g_type_class_unref" p'g_type_class_unref
:: FunPtr (C'gpointer -> IO ())
foreign import ccall "g_type_class_peek_parent" c'g_type_class_peek_parent
:: C'gpointer -> IO C'gpointer
foreign import ccall "&g_type_class_peek_parent" p'g_type_class_peek_parent
:: FunPtr (C'gpointer -> IO C'gpointer)
foreign import ccall "g_type_class_add_private" c'g_type_class_add_private
:: C'gpointer -> C'gsize -> IO ()
foreign import ccall "&g_type_class_add_private" p'g_type_class_add_private
:: FunPtr (C'gpointer -> C'gsize -> IO ())
foreign import ccall "g_type_interface_peek" c'g_type_interface_peek
:: C'gpointer -> C'GType -> IO C'gpointer
foreign import ccall "&g_type_interface_peek" p'g_type_interface_peek
:: FunPtr (C'gpointer -> C'GType -> IO C'gpointer)
foreign import ccall "g_type_interface_peek_parent" c'g_type_interface_peek_parent
:: C'gpointer -> IO C'gpointer
foreign import ccall "&g_type_interface_peek_parent" p'g_type_interface_peek_parent
:: FunPtr (C'gpointer -> IO C'gpointer)
foreign import ccall "g_type_default_interface_ref" c'g_type_default_interface_ref
:: C'GType -> IO C'gpointer
foreign import ccall "&g_type_default_interface_ref" p'g_type_default_interface_ref
:: FunPtr (C'GType -> IO C'gpointer)
foreign import ccall "g_type_default_interface_peek" c'g_type_default_interface_peek
:: C'GType -> IO C'gpointer
foreign import ccall "&g_type_default_interface_peek" p'g_type_default_interface_peek
:: FunPtr (C'GType -> IO C'gpointer)
foreign import ccall "g_type_default_interface_unref" c'g_type_default_interface_unref
:: C'gpointer -> IO ()
foreign import ccall "&g_type_default_interface_unref" p'g_type_default_interface_unref
:: FunPtr (C'gpointer -> IO ())
foreign import ccall "g_type_children" c'g_type_children
:: C'GType -> Ptr C'guint -> IO (Ptr C'GType)
foreign import ccall "&g_type_children" p'g_type_children
:: FunPtr (C'GType -> Ptr C'guint -> IO (Ptr C'GType))
foreign import ccall "g_type_interfaces" c'g_type_interfaces
:: C'GType -> Ptr C'guint -> IO (Ptr C'GType)
foreign import ccall "&g_type_interfaces" p'g_type_interfaces
:: FunPtr (C'GType -> Ptr C'guint -> IO (Ptr C'GType))
foreign import ccall "g_type_interface_prerequisites" c'g_type_interface_prerequisites
:: C'GType -> Ptr C'guint -> IO (Ptr C'GType)
foreign import ccall "&g_type_interface_prerequisites" p'g_type_interface_prerequisites
:: FunPtr (C'GType -> Ptr C'guint -> IO (Ptr C'GType))
foreign import ccall "g_type_set_qdata" c'g_type_set_qdata
:: C'GType -> C'GQuark -> C'gpointer -> IO ()
foreign import ccall "&g_type_set_qdata" p'g_type_set_qdata
:: FunPtr (C'GType -> C'GQuark -> C'gpointer -> IO ())
foreign import ccall "g_type_get_qdata" c'g_type_get_qdata
:: C'GType -> C'GQuark -> IO C'gpointer
foreign import ccall "&g_type_get_qdata" p'g_type_get_qdata
:: FunPtr (C'GType -> C'GQuark -> IO C'gpointer)
foreign import ccall "g_type_query" c'g_type_query
:: C'GType -> Ptr C'GTypeQuery -> IO ()
foreign import ccall "&g_type_query" p'g_type_query
:: FunPtr (C'GType -> Ptr C'GTypeQuery -> IO ())
data C'GTypeQuery = C'GTypeQuery{
c'GTypeQuery'type :: C'GType
,
c'GTypeQuery'type_name :: Ptr C'gchar
,
c'GTypeQuery'class_size :: C'guint
,
c'GTypeQuery'instance_size :: C'guint
} deriving (Eq,Show)
instance Storable C'GTypeQuery where
sizeOf _ = 16
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
return $ C'GTypeQuery v0 v1 v2 v3
poke p (C'GTypeQuery v0 v1 v2 v3) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
return ()
type C'GBaseInitFunc = FunPtr (C'gpointer -> IO ())
foreign import ccall "wrapper" mk'GBaseInitFunc
:: (C'gpointer -> IO ()) -> IO C'GBaseInitFunc
foreign import ccall "dynamic" mK'GBaseInitFunc
:: C'GBaseInitFunc -> (C'gpointer -> IO ())
type C'GBaseFinalizeFunc = FunPtr (C'gpointer -> IO ())
foreign import ccall "wrapper" mk'GBaseFinalizeFunc
:: (C'gpointer -> IO ()) -> IO C'GBaseFinalizeFunc
foreign import ccall "dynamic" mK'GBaseFinalizeFunc
:: C'GBaseFinalizeFunc -> (C'gpointer -> IO ())
type C'GClassInitFunc = FunPtr (C'gpointer -> C'gpointer -> IO ())
foreign import ccall "wrapper" mk'GClassInitFunc
:: (C'gpointer -> C'gpointer -> IO ()) -> IO C'GClassInitFunc
foreign import ccall "dynamic" mK'GClassInitFunc
:: C'GClassInitFunc -> (C'gpointer -> C'gpointer -> IO ())
type C'GClassFinalizeFunc = FunPtr (C'gpointer -> C'gpointer -> IO ())
foreign import ccall "wrapper" mk'GClassFinalizeFunc
:: (C'gpointer -> C'gpointer -> IO ()) -> IO C'GClassFinalizeFunc
foreign import ccall "dynamic" mK'GClassFinalizeFunc
:: C'GClassFinalizeFunc -> (C'gpointer -> C'gpointer -> IO ())
type C'GInstanceInitFunc = FunPtr (Ptr C'GTypeInstance -> C'gpointer -> IO ())
foreign import ccall "wrapper" mk'GInstanceInitFunc
:: (Ptr C'GTypeInstance -> C'gpointer -> IO ()) -> IO C'GInstanceInitFunc
foreign import ccall "dynamic" mK'GInstanceInitFunc
:: C'GInstanceInitFunc -> (Ptr C'GTypeInstance -> C'gpointer -> IO ())
type C'GInterfaceInitFunc = FunPtr (C'gpointer -> C'gpointer -> IO ())
foreign import ccall "wrapper" mk'GInterfaceInitFunc
:: (C'gpointer -> C'gpointer -> IO ()) -> IO C'GInterfaceInitFunc
foreign import ccall "dynamic" mK'GInterfaceInitFunc
:: C'GInterfaceInitFunc -> (C'gpointer -> C'gpointer -> IO ())
type C'GInterfaceFinalizeFunc = FunPtr (C'gpointer -> C'gpointer -> IO ())
foreign import ccall "wrapper" mk'GInterfaceFinalizeFunc
:: (C'gpointer -> C'gpointer -> IO ()) -> IO C'GInterfaceFinalizeFunc
foreign import ccall "dynamic" mK'GInterfaceFinalizeFunc
:: C'GInterfaceFinalizeFunc -> (C'gpointer -> C'gpointer -> IO ())
type C'GTypeClassCacheFunc = FunPtr (C'gpointer -> Ptr C'GTypeClass -> IO C'gboolean)
foreign import ccall "wrapper" mk'GTypeClassCacheFunc
:: (C'gpointer -> Ptr C'GTypeClass -> IO C'gboolean) -> IO C'GTypeClassCacheFunc
foreign import ccall "dynamic" mK'GTypeClassCacheFunc
:: C'GTypeClassCacheFunc -> (C'gpointer -> Ptr C'GTypeClass -> IO C'gboolean)
type C'GTypeFlags = CUInt
c'G_TYPE_FLAG_ABSTRACT = 16
c'G_TYPE_FLAG_ABSTRACT :: (Num a) => a
c'G_TYPE_FLAG_VALUE_ABSTRACT = 32
c'G_TYPE_FLAG_VALUE_ABSTRACT :: (Num a) => a
type C'GTypeFundamentalFlags = CUInt
c'G_TYPE_FLAG_CLASSED = 1
c'G_TYPE_FLAG_CLASSED :: (Num a) => a
c'G_TYPE_FLAG_INSTANTIATABLE = 2
c'G_TYPE_FLAG_INSTANTIATABLE :: (Num a) => a
c'G_TYPE_FLAG_DERIVABLE = 4
c'G_TYPE_FLAG_DERIVABLE :: (Num a) => a
c'G_TYPE_FLAG_DEEP_DERIVABLE = 8
c'G_TYPE_FLAG_DEEP_DERIVABLE :: (Num a) => a
foreign import ccall "g_type_register_static" c'g_type_register_static
:: C'GType -> Ptr C'gchar -> Ptr C'GTypeInfo -> C'GTypeFlags -> IO (C'GType)
foreign import ccall "&g_type_register_static" p'g_type_register_static
:: FunPtr (C'GType -> Ptr C'gchar -> Ptr C'GTypeInfo -> C'GTypeFlags -> IO (C'GType))
foreign import ccall "g_type_register_static_simple" c'g_type_register_static_simple
:: C'GType -> Ptr C'gchar -> C'guint -> C'GClassInitFunc -> C'guint -> C'GInstanceInitFunc -> C'GTypeFlags -> IO (C'GType)
foreign import ccall "&g_type_register_static_simple" p'g_type_register_static_simple
:: FunPtr (C'GType -> Ptr C'gchar -> C'guint -> C'GClassInitFunc -> C'guint -> C'GInstanceInitFunc -> C'GTypeFlags -> IO (C'GType))
foreign import ccall "g_type_register_dynamic" c'g_type_register_dynamic
:: C'GType -> Ptr C'gchar -> Ptr C'GTypePlugin -> C'GTypeFlags -> IO (C'GType)
foreign import ccall "&g_type_register_dynamic" p'g_type_register_dynamic
:: FunPtr (C'GType -> Ptr C'gchar -> Ptr C'GTypePlugin -> C'GTypeFlags -> IO (C'GType))
foreign import ccall "g_type_register_fundamental" c'g_type_register_fundamental
:: C'GType -> Ptr C'gchar -> Ptr C'GTypeInfo -> Ptr C'GTypeFundamentalInfo -> C'GTypeFlags -> IO (C'GType)
foreign import ccall "&g_type_register_fundamental" p'g_type_register_fundamental
:: FunPtr (C'GType -> Ptr C'gchar -> Ptr C'GTypeInfo -> Ptr C'GTypeFundamentalInfo -> C'GTypeFlags -> IO (C'GType))
foreign import ccall "g_type_add_interface_static" c'g_type_add_interface_static
:: C'GType -> C'GType -> Ptr C'GInterfaceInfo -> IO ()
foreign import ccall "&g_type_add_interface_static" p'g_type_add_interface_static
:: FunPtr (C'GType -> C'GType -> Ptr C'GInterfaceInfo -> IO ())
foreign import ccall "g_type_add_interface_dynamic" c'g_type_add_interface_dynamic
:: C'GType -> C'GType -> Ptr C'GTypePlugin -> IO ()
foreign import ccall "&g_type_add_interface_dynamic" p'g_type_add_interface_dynamic
:: FunPtr (C'GType -> C'GType -> Ptr C'GTypePlugin -> IO ())
foreign import ccall "g_type_interface_add_prerequisite" c'g_type_interface_add_prerequisite
:: C'GType -> C'GType -> IO ()
foreign import ccall "&g_type_interface_add_prerequisite" p'g_type_interface_add_prerequisite
:: FunPtr (C'GType -> C'GType -> IO ())
foreign import ccall "g_type_get_plugin" c'g_type_get_plugin
:: C'GType -> IO (Ptr C'GTypePlugin)
foreign import ccall "&g_type_get_plugin" p'g_type_get_plugin
:: FunPtr (C'GType -> IO (Ptr C'GTypePlugin))
foreign import ccall "g_type_interface_get_plugin" c'g_type_interface_get_plugin
:: C'GType -> C'GType -> IO (Ptr C'GTypePlugin)
foreign import ccall "&g_type_interface_get_plugin" p'g_type_interface_get_plugin
:: FunPtr (C'GType -> C'GType -> IO (Ptr C'GTypePlugin))
foreign import ccall "g_type_fundamental_next" c'g_type_fundamental_next
:: IO (C'GType)
foreign import ccall "&g_type_fundamental_next" p'g_type_fundamental_next
:: FunPtr (IO (C'GType))
foreign import ccall "g_type_add_class_cache_func" c'g_type_add_class_cache_func
:: C'gpointer -> C'GTypeClassCacheFunc -> IO ()
foreign import ccall "&g_type_add_class_cache_func" p'g_type_add_class_cache_func
:: FunPtr (C'gpointer -> C'GTypeClassCacheFunc -> IO ())
foreign import ccall "g_type_remove_class_cache_func" c'g_type_remove_class_cache_func
:: C'gpointer -> C'GTypeClassCacheFunc -> IO ()
foreign import ccall "&g_type_remove_class_cache_func" p'g_type_remove_class_cache_func
:: FunPtr (C'gpointer -> C'GTypeClassCacheFunc -> IO ())
foreign import ccall "g_type_class_unref_uncached" c'g_type_class_unref_uncached
:: C'gpointer -> IO ()
foreign import ccall "&g_type_class_unref_uncached" p'g_type_class_unref_uncached
:: FunPtr (C'gpointer -> IO ())
foreign import ccall "g_type_add_interface_check" c'g_type_add_interface_check
:: C'gpointer -> C'GTypeInterfaceCheckFunc -> IO ()
foreign import ccall "&g_type_add_interface_check" p'g_type_add_interface_check
:: FunPtr (C'gpointer -> C'GTypeInterfaceCheckFunc -> IO ())
foreign import ccall "g_type_remove_interface_check" c'g_type_remove_interface_check
:: C'gpointer -> C'GTypeInterfaceCheckFunc -> IO ()
foreign import ccall "&g_type_remove_interface_check" p'g_type_remove_interface_check
:: FunPtr (C'gpointer -> C'GTypeInterfaceCheckFunc -> IO ())
type C'GTypeInterfaceCheckFunc = FunPtr (C'gpointer -> C'gpointer -> IO ())
foreign import ccall "wrapper" mk'GTypeInterfaceCheckFunc
:: (C'gpointer -> C'gpointer -> IO ()) -> IO C'GTypeInterfaceCheckFunc
foreign import ccall "dynamic" mK'GTypeInterfaceCheckFunc
:: C'GTypeInterfaceCheckFunc -> (C'gpointer -> C'gpointer -> IO ())
c'G_TYPE_INVALID = 0
c'G_TYPE_INVALID :: (Num a) => a
c'G_TYPE_NONE = 4
c'G_TYPE_NONE :: (Num a) => a
c'G_TYPE_INTERFACE = 8
c'G_TYPE_INTERFACE :: (Num a) => a
c'G_TYPE_CHAR = 12
c'G_TYPE_CHAR :: (Num a) => a
c'G_TYPE_UCHAR = 16
c'G_TYPE_UCHAR :: (Num a) => a
c'G_TYPE_BOOLEAN = 20
c'G_TYPE_BOOLEAN :: (Num a) => a
c'G_TYPE_INT = 24
c'G_TYPE_INT :: (Num a) => a
c'G_TYPE_UINT = 28
c'G_TYPE_UINT :: (Num a) => a
c'G_TYPE_LONG = 32
c'G_TYPE_LONG :: (Num a) => a
c'G_TYPE_ULONG = 36
c'G_TYPE_ULONG :: (Num a) => a
c'G_TYPE_INT64 = 40
c'G_TYPE_INT64 :: (Num a) => a
c'G_TYPE_UINT64 = 44
c'G_TYPE_UINT64 :: (Num a) => a
c'G_TYPE_ENUM = 48
c'G_TYPE_ENUM :: (Num a) => a
c'G_TYPE_FLAGS = 52
c'G_TYPE_FLAGS :: (Num a) => a
c'G_TYPE_FLOAT = 56
c'G_TYPE_FLOAT :: (Num a) => a
c'G_TYPE_DOUBLE = 60
c'G_TYPE_DOUBLE :: (Num a) => a
c'G_TYPE_STRING = 64
c'G_TYPE_STRING :: (Num a) => a
c'G_TYPE_POINTER = 68
c'G_TYPE_POINTER :: (Num a) => a
c'G_TYPE_BOXED = 72
c'G_TYPE_BOXED :: (Num a) => a
c'G_TYPE_PARAM = 76
c'G_TYPE_PARAM :: (Num a) => a
c'G_TYPE_OBJECT = 80
c'G_TYPE_OBJECT :: (Num a) => a
c'G_TYPE_RESERVED_GLIB_FIRST = 21
c'G_TYPE_RESERVED_GLIB_FIRST :: (Num a) => a
c'G_TYPE_RESERVED_GLIB_LAST = 31
c'G_TYPE_RESERVED_GLIB_LAST :: (Num a) => a
c'G_TYPE_RESERVED_BSE_FIRST = 32
c'G_TYPE_RESERVED_BSE_FIRST :: (Num a) => a
c'G_TYPE_RESERVED_BSE_LAST = 48
c'G_TYPE_RESERVED_BSE_LAST :: (Num a) => a
c'G_TYPE_RESERVED_USER_FIRST = 49
c'G_TYPE_RESERVED_USER_FIRST :: (Num a) => a