-- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria

#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif

module GI.GObject.Callbacks
    ( 

 -- * Signals


-- ** BaseFinalizeFunc #signal:BaseFinalizeFunc#

    BaseFinalizeFunc                        ,
    C_BaseFinalizeFunc                      ,
    dynamic_BaseFinalizeFunc                ,
    genClosure_BaseFinalizeFunc             ,
    mk_BaseFinalizeFunc                     ,
    noBaseFinalizeFunc                      ,
    wrap_BaseFinalizeFunc                   ,


-- ** BaseInitFunc #signal:BaseInitFunc#

    BaseInitFunc                            ,
    C_BaseInitFunc                          ,
    dynamic_BaseInitFunc                    ,
    genClosure_BaseInitFunc                 ,
    mk_BaseInitFunc                         ,
    noBaseInitFunc                          ,
    wrap_BaseInitFunc                       ,


-- ** BindingTransformFunc #signal:BindingTransformFunc#

    BindingTransformFunc                    ,
    BindingTransformFunc_WithClosures       ,
    C_BindingTransformFunc                  ,
    drop_closures_BindingTransformFunc      ,
    dynamic_BindingTransformFunc            ,
    genClosure_BindingTransformFunc         ,
    mk_BindingTransformFunc                 ,
    noBindingTransformFunc                  ,
    noBindingTransformFunc_WithClosures     ,
    wrap_BindingTransformFunc               ,


-- ** BoxedCopyFunc #signal:BoxedCopyFunc#

    BoxedCopyFunc                           ,
    C_BoxedCopyFunc                         ,
    dynamic_BoxedCopyFunc                   ,
    genClosure_BoxedCopyFunc                ,
    mk_BoxedCopyFunc                        ,
    noBoxedCopyFunc                         ,
    wrap_BoxedCopyFunc                      ,


-- ** BoxedFreeFunc #signal:BoxedFreeFunc#

    BoxedFreeFunc                           ,
    C_BoxedFreeFunc                         ,
    dynamic_BoxedFreeFunc                   ,
    genClosure_BoxedFreeFunc                ,
    mk_BoxedFreeFunc                        ,
    noBoxedFreeFunc                         ,
    wrap_BoxedFreeFunc                      ,


-- ** Callback #signal:Callback#

    C_Callback                              ,
    Callback                                ,
    dynamic_Callback                        ,
    genClosure_Callback                     ,
    mk_Callback                             ,
    noCallback                              ,
    wrap_Callback                           ,


-- ** ClassFinalizeFunc #signal:ClassFinalizeFunc#

    C_ClassFinalizeFunc                     ,
    ClassFinalizeFunc                       ,
    dynamic_ClassFinalizeFunc               ,
    genClosure_ClassFinalizeFunc            ,
    mk_ClassFinalizeFunc                    ,
    noClassFinalizeFunc                     ,
    wrap_ClassFinalizeFunc                  ,


-- ** ClassInitFunc #signal:ClassInitFunc#

    C_ClassInitFunc                         ,
    ClassInitFunc                           ,
    dynamic_ClassInitFunc                   ,
    genClosure_ClassInitFunc                ,
    mk_ClassInitFunc                        ,
    noClassInitFunc                         ,
    wrap_ClassInitFunc                      ,


-- ** ClosureMarshal #signal:ClosureMarshal#

    C_ClosureMarshal                        ,
    ClosureMarshal                          ,
    dynamic_ClosureMarshal                  ,
    genClosure_ClosureMarshal               ,
    mk_ClosureMarshal                       ,
    noClosureMarshal                        ,
    wrap_ClosureMarshal                     ,


-- ** ClosureMarshalFieldCallback #signal:ClosureMarshalFieldCallback#

    C_ClosureMarshalFieldCallback           ,
    ClosureMarshalFieldCallback             ,
    dynamic_ClosureMarshalFieldCallback     ,
    genClosure_ClosureMarshalFieldCallback  ,
    mk_ClosureMarshalFieldCallback          ,
    noClosureMarshalFieldCallback           ,
    wrap_ClosureMarshalFieldCallback        ,


-- ** ClosureNotify #signal:ClosureNotify#

    C_ClosureNotify                         ,
    ClosureNotify                           ,
    dynamic_ClosureNotify                   ,
    genClosure_ClosureNotify                ,
    mk_ClosureNotify                        ,
    noClosureNotify                         ,
    wrap_ClosureNotify                      ,


-- ** InitiallyUnownedClassConstructedFieldCallback #signal:InitiallyUnownedClassConstructedFieldCallback#

    C_InitiallyUnownedClassConstructedFieldCallback,
    InitiallyUnownedClassConstructedFieldCallback,
    dynamic_InitiallyUnownedClassConstructedFieldCallback,
    genClosure_InitiallyUnownedClassConstructedFieldCallback,
    mk_InitiallyUnownedClassConstructedFieldCallback,
    noInitiallyUnownedClassConstructedFieldCallback,
    wrap_InitiallyUnownedClassConstructedFieldCallback,


-- ** InitiallyUnownedClassDispatchPropertiesChangedFieldCallback #signal:InitiallyUnownedClassDispatchPropertiesChangedFieldCallback#

    C_InitiallyUnownedClassDispatchPropertiesChangedFieldCallback,
    InitiallyUnownedClassDispatchPropertiesChangedFieldCallback,
    dynamic_InitiallyUnownedClassDispatchPropertiesChangedFieldCallback,
    genClosure_InitiallyUnownedClassDispatchPropertiesChangedFieldCallback,
    mk_InitiallyUnownedClassDispatchPropertiesChangedFieldCallback,
    noInitiallyUnownedClassDispatchPropertiesChangedFieldCallback,
    wrap_InitiallyUnownedClassDispatchPropertiesChangedFieldCallback,


-- ** InitiallyUnownedClassDisposeFieldCallback #signal:InitiallyUnownedClassDisposeFieldCallback#

    C_InitiallyUnownedClassDisposeFieldCallback,
    InitiallyUnownedClassDisposeFieldCallback,
    dynamic_InitiallyUnownedClassDisposeFieldCallback,
    genClosure_InitiallyUnownedClassDisposeFieldCallback,
    mk_InitiallyUnownedClassDisposeFieldCallback,
    noInitiallyUnownedClassDisposeFieldCallback,
    wrap_InitiallyUnownedClassDisposeFieldCallback,


-- ** InitiallyUnownedClassFinalizeFieldCallback #signal:InitiallyUnownedClassFinalizeFieldCallback#

    C_InitiallyUnownedClassFinalizeFieldCallback,
    InitiallyUnownedClassFinalizeFieldCallback,
    dynamic_InitiallyUnownedClassFinalizeFieldCallback,
    genClosure_InitiallyUnownedClassFinalizeFieldCallback,
    mk_InitiallyUnownedClassFinalizeFieldCallback,
    noInitiallyUnownedClassFinalizeFieldCallback,
    wrap_InitiallyUnownedClassFinalizeFieldCallback,


-- ** InitiallyUnownedClassGetPropertyFieldCallback #signal:InitiallyUnownedClassGetPropertyFieldCallback#

    C_InitiallyUnownedClassGetPropertyFieldCallback,
    InitiallyUnownedClassGetPropertyFieldCallback,
    dynamic_InitiallyUnownedClassGetPropertyFieldCallback,
    genClosure_InitiallyUnownedClassGetPropertyFieldCallback,
    mk_InitiallyUnownedClassGetPropertyFieldCallback,
    noInitiallyUnownedClassGetPropertyFieldCallback,
    wrap_InitiallyUnownedClassGetPropertyFieldCallback,


-- ** InitiallyUnownedClassNotifyFieldCallback #signal:InitiallyUnownedClassNotifyFieldCallback#

    C_InitiallyUnownedClassNotifyFieldCallback,
    InitiallyUnownedClassNotifyFieldCallback,
    dynamic_InitiallyUnownedClassNotifyFieldCallback,
    genClosure_InitiallyUnownedClassNotifyFieldCallback,
    mk_InitiallyUnownedClassNotifyFieldCallback,
    noInitiallyUnownedClassNotifyFieldCallback,
    wrap_InitiallyUnownedClassNotifyFieldCallback,


-- ** InitiallyUnownedClassSetPropertyFieldCallback #signal:InitiallyUnownedClassSetPropertyFieldCallback#

    C_InitiallyUnownedClassSetPropertyFieldCallback,
    InitiallyUnownedClassSetPropertyFieldCallback,
    dynamic_InitiallyUnownedClassSetPropertyFieldCallback,
    genClosure_InitiallyUnownedClassSetPropertyFieldCallback,
    mk_InitiallyUnownedClassSetPropertyFieldCallback,
    noInitiallyUnownedClassSetPropertyFieldCallback,
    wrap_InitiallyUnownedClassSetPropertyFieldCallback,


-- ** InstanceInitFunc #signal:InstanceInitFunc#

    C_InstanceInitFunc                      ,
    InstanceInitFunc                        ,
    dynamic_InstanceInitFunc                ,
    genClosure_InstanceInitFunc             ,
    mk_InstanceInitFunc                     ,
    noInstanceInitFunc                      ,
    wrap_InstanceInitFunc                   ,


-- ** InterfaceFinalizeFunc #signal:InterfaceFinalizeFunc#

    C_InterfaceFinalizeFunc                 ,
    InterfaceFinalizeFunc                   ,
    dynamic_InterfaceFinalizeFunc           ,
    genClosure_InterfaceFinalizeFunc        ,
    mk_InterfaceFinalizeFunc                ,
    noInterfaceFinalizeFunc                 ,
    wrap_InterfaceFinalizeFunc              ,


-- ** InterfaceInitFunc #signal:InterfaceInitFunc#

    C_InterfaceInitFunc                     ,
    InterfaceInitFunc                       ,
    dynamic_InterfaceInitFunc               ,
    genClosure_InterfaceInitFunc            ,
    mk_InterfaceInitFunc                    ,
    noInterfaceInitFunc                     ,
    wrap_InterfaceInitFunc                  ,


-- ** ObjectClassConstructedFieldCallback #signal:ObjectClassConstructedFieldCallback#

    C_ObjectClassConstructedFieldCallback   ,
    ObjectClassConstructedFieldCallback     ,
    dynamic_ObjectClassConstructedFieldCallback,
    genClosure_ObjectClassConstructedFieldCallback,
    mk_ObjectClassConstructedFieldCallback  ,
    noObjectClassConstructedFieldCallback   ,
    wrap_ObjectClassConstructedFieldCallback,


-- ** ObjectClassDispatchPropertiesChangedFieldCallback #signal:ObjectClassDispatchPropertiesChangedFieldCallback#

    C_ObjectClassDispatchPropertiesChangedFieldCallback,
    ObjectClassDispatchPropertiesChangedFieldCallback,
    dynamic_ObjectClassDispatchPropertiesChangedFieldCallback,
    genClosure_ObjectClassDispatchPropertiesChangedFieldCallback,
    mk_ObjectClassDispatchPropertiesChangedFieldCallback,
    noObjectClassDispatchPropertiesChangedFieldCallback,
    wrap_ObjectClassDispatchPropertiesChangedFieldCallback,


-- ** ObjectClassDisposeFieldCallback #signal:ObjectClassDisposeFieldCallback#

    C_ObjectClassDisposeFieldCallback       ,
    ObjectClassDisposeFieldCallback         ,
    dynamic_ObjectClassDisposeFieldCallback ,
    genClosure_ObjectClassDisposeFieldCallback,
    mk_ObjectClassDisposeFieldCallback      ,
    noObjectClassDisposeFieldCallback       ,
    wrap_ObjectClassDisposeFieldCallback    ,


-- ** ObjectClassFinalizeFieldCallback #signal:ObjectClassFinalizeFieldCallback#

    C_ObjectClassFinalizeFieldCallback      ,
    ObjectClassFinalizeFieldCallback        ,
    dynamic_ObjectClassFinalizeFieldCallback,
    genClosure_ObjectClassFinalizeFieldCallback,
    mk_ObjectClassFinalizeFieldCallback     ,
    noObjectClassFinalizeFieldCallback      ,
    wrap_ObjectClassFinalizeFieldCallback   ,


-- ** ObjectClassGetPropertyFieldCallback #signal:ObjectClassGetPropertyFieldCallback#

    C_ObjectClassGetPropertyFieldCallback   ,
    ObjectClassGetPropertyFieldCallback     ,
    dynamic_ObjectClassGetPropertyFieldCallback,
    genClosure_ObjectClassGetPropertyFieldCallback,
    mk_ObjectClassGetPropertyFieldCallback  ,
    noObjectClassGetPropertyFieldCallback   ,
    wrap_ObjectClassGetPropertyFieldCallback,


-- ** ObjectClassNotifyFieldCallback #signal:ObjectClassNotifyFieldCallback#

    C_ObjectClassNotifyFieldCallback        ,
    ObjectClassNotifyFieldCallback          ,
    dynamic_ObjectClassNotifyFieldCallback  ,
    genClosure_ObjectClassNotifyFieldCallback,
    mk_ObjectClassNotifyFieldCallback       ,
    noObjectClassNotifyFieldCallback        ,
    wrap_ObjectClassNotifyFieldCallback     ,


-- ** ObjectClassSetPropertyFieldCallback #signal:ObjectClassSetPropertyFieldCallback#

    C_ObjectClassSetPropertyFieldCallback   ,
    ObjectClassSetPropertyFieldCallback     ,
    dynamic_ObjectClassSetPropertyFieldCallback,
    genClosure_ObjectClassSetPropertyFieldCallback,
    mk_ObjectClassSetPropertyFieldCallback  ,
    noObjectClassSetPropertyFieldCallback   ,
    wrap_ObjectClassSetPropertyFieldCallback,


-- ** ObjectFinalizeFunc #signal:ObjectFinalizeFunc#

    C_ObjectFinalizeFunc                    ,
    ObjectFinalizeFunc                      ,
    dynamic_ObjectFinalizeFunc              ,
    genClosure_ObjectFinalizeFunc           ,
    mk_ObjectFinalizeFunc                   ,
    noObjectFinalizeFunc                    ,
    wrap_ObjectFinalizeFunc                 ,


-- ** ObjectGetPropertyFunc #signal:ObjectGetPropertyFunc#

    C_ObjectGetPropertyFunc                 ,
    ObjectGetPropertyFunc                   ,
    dynamic_ObjectGetPropertyFunc           ,
    genClosure_ObjectGetPropertyFunc        ,
    mk_ObjectGetPropertyFunc                ,
    noObjectGetPropertyFunc                 ,
    wrap_ObjectGetPropertyFunc              ,


-- ** ObjectSetPropertyFunc #signal:ObjectSetPropertyFunc#

    C_ObjectSetPropertyFunc                 ,
    ObjectSetPropertyFunc                   ,
    dynamic_ObjectSetPropertyFunc           ,
    genClosure_ObjectSetPropertyFunc        ,
    mk_ObjectSetPropertyFunc                ,
    noObjectSetPropertyFunc                 ,
    wrap_ObjectSetPropertyFunc              ,


-- ** ParamSpecTypeInfoFinalizeFieldCallback #signal:ParamSpecTypeInfoFinalizeFieldCallback#

    C_ParamSpecTypeInfoFinalizeFieldCallback,
    ParamSpecTypeInfoFinalizeFieldCallback  ,
    dynamic_ParamSpecTypeInfoFinalizeFieldCallback,
    genClosure_ParamSpecTypeInfoFinalizeFieldCallback,
    mk_ParamSpecTypeInfoFinalizeFieldCallback,
    noParamSpecTypeInfoFinalizeFieldCallback,
    wrap_ParamSpecTypeInfoFinalizeFieldCallback,


-- ** ParamSpecTypeInfoInstanceInitFieldCallback #signal:ParamSpecTypeInfoInstanceInitFieldCallback#

    C_ParamSpecTypeInfoInstanceInitFieldCallback,
    ParamSpecTypeInfoInstanceInitFieldCallback,
    dynamic_ParamSpecTypeInfoInstanceInitFieldCallback,
    genClosure_ParamSpecTypeInfoInstanceInitFieldCallback,
    mk_ParamSpecTypeInfoInstanceInitFieldCallback,
    noParamSpecTypeInfoInstanceInitFieldCallback,
    wrap_ParamSpecTypeInfoInstanceInitFieldCallback,


-- ** ParamSpecTypeInfoValueSetDefaultFieldCallback #signal:ParamSpecTypeInfoValueSetDefaultFieldCallback#

    C_ParamSpecTypeInfoValueSetDefaultFieldCallback,
    ParamSpecTypeInfoValueSetDefaultFieldCallback,
    dynamic_ParamSpecTypeInfoValueSetDefaultFieldCallback,
    genClosure_ParamSpecTypeInfoValueSetDefaultFieldCallback,
    mk_ParamSpecTypeInfoValueSetDefaultFieldCallback,
    noParamSpecTypeInfoValueSetDefaultFieldCallback,
    wrap_ParamSpecTypeInfoValueSetDefaultFieldCallback,


-- ** ParamSpecTypeInfoValueValidateFieldCallback #signal:ParamSpecTypeInfoValueValidateFieldCallback#

    C_ParamSpecTypeInfoValueValidateFieldCallback,
    ParamSpecTypeInfoValueValidateFieldCallback,
    dynamic_ParamSpecTypeInfoValueValidateFieldCallback,
    genClosure_ParamSpecTypeInfoValueValidateFieldCallback,
    mk_ParamSpecTypeInfoValueValidateFieldCallback,
    noParamSpecTypeInfoValueValidateFieldCallback,
    wrap_ParamSpecTypeInfoValueValidateFieldCallback,


-- ** ParamSpecTypeInfoValuesCmpFieldCallback #signal:ParamSpecTypeInfoValuesCmpFieldCallback#

    C_ParamSpecTypeInfoValuesCmpFieldCallback,
    ParamSpecTypeInfoValuesCmpFieldCallback ,
    dynamic_ParamSpecTypeInfoValuesCmpFieldCallback,
    genClosure_ParamSpecTypeInfoValuesCmpFieldCallback,
    mk_ParamSpecTypeInfoValuesCmpFieldCallback,
    noParamSpecTypeInfoValuesCmpFieldCallback,
    wrap_ParamSpecTypeInfoValuesCmpFieldCallback,


-- ** SignalAccumulator #signal:SignalAccumulator#

    C_SignalAccumulator                     ,
    SignalAccumulator                       ,
    dynamic_SignalAccumulator               ,
    genClosure_SignalAccumulator            ,
    mk_SignalAccumulator                    ,
    noSignalAccumulator                     ,
    wrap_SignalAccumulator                  ,


-- ** SignalEmissionHook #signal:SignalEmissionHook#

    C_SignalEmissionHook                    ,
    SignalEmissionHook                      ,
    dynamic_SignalEmissionHook              ,
    genClosure_SignalEmissionHook           ,
    mk_SignalEmissionHook                   ,
    noSignalEmissionHook                    ,
    wrap_SignalEmissionHook                 ,


-- ** ToggleNotify #signal:ToggleNotify#

    C_ToggleNotify                          ,
    ToggleNotify                            ,
    dynamic_ToggleNotify                    ,
    genClosure_ToggleNotify                 ,
    mk_ToggleNotify                         ,
    noToggleNotify                          ,
    wrap_ToggleNotify                       ,


-- ** TypeClassCacheFunc #signal:TypeClassCacheFunc#

    C_TypeClassCacheFunc                    ,
    TypeClassCacheFunc                      ,
    dynamic_TypeClassCacheFunc              ,
    genClosure_TypeClassCacheFunc           ,
    mk_TypeClassCacheFunc                   ,
    noTypeClassCacheFunc                    ,
    wrap_TypeClassCacheFunc                 ,


-- ** TypeInterfaceCheckFunc #signal:TypeInterfaceCheckFunc#

    C_TypeInterfaceCheckFunc                ,
    TypeInterfaceCheckFunc                  ,
    dynamic_TypeInterfaceCheckFunc          ,
    genClosure_TypeInterfaceCheckFunc       ,
    mk_TypeInterfaceCheckFunc               ,
    noTypeInterfaceCheckFunc                ,
    wrap_TypeInterfaceCheckFunc             ,


-- ** TypePluginCompleteInterfaceInfo #signal:TypePluginCompleteInterfaceInfo#

    C_TypePluginCompleteInterfaceInfo       ,
    TypePluginCompleteInterfaceInfo         ,
    dynamic_TypePluginCompleteInterfaceInfo ,
    genClosure_TypePluginCompleteInterfaceInfo,
    mk_TypePluginCompleteInterfaceInfo      ,
    noTypePluginCompleteInterfaceInfo       ,
    wrap_TypePluginCompleteInterfaceInfo    ,


-- ** TypePluginCompleteTypeInfo #signal:TypePluginCompleteTypeInfo#

    C_TypePluginCompleteTypeInfo            ,
    TypePluginCompleteTypeInfo              ,
    dynamic_TypePluginCompleteTypeInfo      ,
    genClosure_TypePluginCompleteTypeInfo   ,
    mk_TypePluginCompleteTypeInfo           ,
    noTypePluginCompleteTypeInfo            ,
    wrap_TypePluginCompleteTypeInfo         ,


-- ** TypePluginUnuse #signal:TypePluginUnuse#

    C_TypePluginUnuse                       ,
    TypePluginUnuse                         ,
    dynamic_TypePluginUnuse                 ,
    genClosure_TypePluginUnuse              ,
    mk_TypePluginUnuse                      ,
    noTypePluginUnuse                       ,
    wrap_TypePluginUnuse                    ,


-- ** TypePluginUse #signal:TypePluginUse#

    C_TypePluginUse                         ,
    TypePluginUse                           ,
    dynamic_TypePluginUse                   ,
    genClosure_TypePluginUse                ,
    mk_TypePluginUse                        ,
    noTypePluginUse                         ,
    wrap_TypePluginUse                      ,


-- ** TypeValueTableCollectValueFieldCallback #signal:TypeValueTableCollectValueFieldCallback#

    C_TypeValueTableCollectValueFieldCallback,
    TypeValueTableCollectValueFieldCallback ,
    dynamic_TypeValueTableCollectValueFieldCallback,
    genClosure_TypeValueTableCollectValueFieldCallback,
    mk_TypeValueTableCollectValueFieldCallback,
    noTypeValueTableCollectValueFieldCallback,
    wrap_TypeValueTableCollectValueFieldCallback,


-- ** TypeValueTableLcopyValueFieldCallback #signal:TypeValueTableLcopyValueFieldCallback#

    C_TypeValueTableLcopyValueFieldCallback ,
    TypeValueTableLcopyValueFieldCallback   ,
    dynamic_TypeValueTableLcopyValueFieldCallback,
    genClosure_TypeValueTableLcopyValueFieldCallback,
    mk_TypeValueTableLcopyValueFieldCallback,
    noTypeValueTableLcopyValueFieldCallback ,
    wrap_TypeValueTableLcopyValueFieldCallback,


-- ** TypeValueTableValueCopyFieldCallback #signal:TypeValueTableValueCopyFieldCallback#

    C_TypeValueTableValueCopyFieldCallback  ,
    TypeValueTableValueCopyFieldCallback    ,
    dynamic_TypeValueTableValueCopyFieldCallback,
    genClosure_TypeValueTableValueCopyFieldCallback,
    mk_TypeValueTableValueCopyFieldCallback ,
    noTypeValueTableValueCopyFieldCallback  ,
    wrap_TypeValueTableValueCopyFieldCallback,


-- ** TypeValueTableValueFreeFieldCallback #signal:TypeValueTableValueFreeFieldCallback#

    C_TypeValueTableValueFreeFieldCallback  ,
    TypeValueTableValueFreeFieldCallback    ,
    dynamic_TypeValueTableValueFreeFieldCallback,
    genClosure_TypeValueTableValueFreeFieldCallback,
    mk_TypeValueTableValueFreeFieldCallback ,
    noTypeValueTableValueFreeFieldCallback  ,
    wrap_TypeValueTableValueFreeFieldCallback,


-- ** TypeValueTableValueInitFieldCallback #signal:TypeValueTableValueInitFieldCallback#

    C_TypeValueTableValueInitFieldCallback  ,
    TypeValueTableValueInitFieldCallback    ,
    dynamic_TypeValueTableValueInitFieldCallback,
    genClosure_TypeValueTableValueInitFieldCallback,
    mk_TypeValueTableValueInitFieldCallback ,
    noTypeValueTableValueInitFieldCallback  ,
    wrap_TypeValueTableValueInitFieldCallback,


-- ** TypeValueTableValuePeekPointerFieldCallback #signal:TypeValueTableValuePeekPointerFieldCallback#

    C_TypeValueTableValuePeekPointerFieldCallback,
    TypeValueTableValuePeekPointerFieldCallback,
    dynamic_TypeValueTableValuePeekPointerFieldCallback,
    genClosure_TypeValueTableValuePeekPointerFieldCallback,
    mk_TypeValueTableValuePeekPointerFieldCallback,
    noTypeValueTableValuePeekPointerFieldCallback,
    wrap_TypeValueTableValuePeekPointerFieldCallback,


-- ** ValueTransform #signal:ValueTransform#

    C_ValueTransform                        ,
    ValueTransform                          ,
    dynamic_ValueTransform                  ,
    genClosure_ValueTransform               ,
    mk_ValueTransform                       ,
    noValueTransform                        ,
    wrap_ValueTransform                     ,


-- ** WeakNotify #signal:WeakNotify#

    C_WeakNotify                            ,
    WeakNotify                              ,
    dynamic_WeakNotify                      ,
    genClosure_WeakNotify                   ,
    mk_WeakNotify                           ,
    noWeakNotify                            ,
    wrap_WeakNotify                         ,




    ) where

import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P

import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R

import {-# SOURCE #-} qualified GI.GObject.Interfaces.TypePlugin as GObject.TypePlugin
import {-# SOURCE #-} qualified GI.GObject.Objects.Binding as GObject.Binding
import {-# SOURCE #-} qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.GObject.Structs.InterfaceInfo as GObject.InterfaceInfo
import {-# SOURCE #-} qualified GI.GObject.Structs.SignalInvocationHint as GObject.SignalInvocationHint
import {-# SOURCE #-} qualified GI.GObject.Structs.TypeClass as GObject.TypeClass
import {-# SOURCE #-} qualified GI.GObject.Structs.TypeInfo as GObject.TypeInfo
import {-# SOURCE #-} qualified GI.GObject.Structs.TypeInstance as GObject.TypeInstance
import {-# SOURCE #-} qualified GI.GObject.Structs.TypeInterface as GObject.TypeInterface
import {-# SOURCE #-} qualified GI.GObject.Structs.TypeValueTable as GObject.TypeValueTable
import {-# SOURCE #-} qualified GI.GObject.Unions.TypeCValue as GObject.TypeCValue

-- callback WeakNotify
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "data"
          , argType = TBasicType TPtr
          , direction = DirectionIn
          , mayBeNull = True
          , argDoc =
              Documentation
                { rawDocText =
                    Just
                      "data that was provided when the weak reference was established"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "where_the_object_was"
          , argType =
              TInterface Name { namespace = "GObject" , name = "Object" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText = Just "the object being finalized"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation
        { rawDocText =
            Just
              "A #GWeakNotify function can be added to an object as a callback that gets\ntriggered when the object is finalized. Since the object is already being\nfinalized when the #GWeakNotify is called, there's not much you could do\nwith the object, apart from e.g. using its address as hash-index or the like."
        , sinceVersion = Nothing
        }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_WeakNotify =
    Ptr () ->
    Ptr GObject.Object.Object ->
    IO ()

-- Args: [ Arg
--           { argCName = "data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "data that was provided when the weak reference was established"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "where_the_object_was"
--           , argType =
--               TInterface Name { namespace = "GObject" , name = "Object" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "the object being finalized"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_WeakNotify :: FunPtr C_WeakNotify -> C_WeakNotify

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_WeakNotify ::
    (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>
    FunPtr C_WeakNotify
    -> Ptr ()
    -- ^ /@data@/: data that was provided when the weak reference was established
    -> a
    -- ^ /@whereTheObjectWas@/: the object being finalized
    -> m ()
dynamic_WeakNotify :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
FunPtr C_WeakNotify -> Ptr () -> a -> m ()
dynamic_WeakNotify FunPtr C_WeakNotify
__funPtr Ptr ()
data_ a
whereTheObjectWas = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Object
whereTheObjectWas' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
whereTheObjectWas
    (FunPtr C_WeakNotify -> C_WeakNotify
__dynamic_C_WeakNotify FunPtr C_WeakNotify
__funPtr) Ptr ()
data_ Ptr Object
whereTheObjectWas'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
whereTheObjectWas
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_WeakNotify`.
foreign import ccall "wrapper"
    mk_WeakNotify :: C_WeakNotify -> IO (FunPtr C_WeakNotify)

-- | A t'GI.GObject.Callbacks.WeakNotify' function can be added to an object as a callback that gets
-- triggered when the object is finalized. Since the object is already being
-- finalized when the t'GI.GObject.Callbacks.WeakNotify' is called, there\'s not much you could do
-- with the object, apart from e.g. using its address as hash-index or the like.
type WeakNotify =
    Ptr ()
    -- ^ /@data@/: data that was provided when the weak reference was established
    -> GObject.Object.Object
    -- ^ /@whereTheObjectWas@/: the object being finalized
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `WeakNotify`@.
noWeakNotify :: Maybe WeakNotify
noWeakNotify :: Maybe WeakNotify
noWeakNotify = Maybe WeakNotify
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_WeakNotify :: MonadIO m => WeakNotify -> m (GClosure C_WeakNotify)
genClosure_WeakNotify :: forall (m :: * -> *).
MonadIO m =>
WeakNotify -> m (GClosure C_WeakNotify)
genClosure_WeakNotify WeakNotify
cb = IO (GClosure C_WeakNotify) -> m (GClosure C_WeakNotify)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WeakNotify) -> m (GClosure C_WeakNotify))
-> IO (GClosure C_WeakNotify) -> m (GClosure C_WeakNotify)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_WeakNotify
cb' = Maybe (Ptr (FunPtr C_WeakNotify)) -> WeakNotify -> C_WeakNotify
wrap_WeakNotify Maybe (Ptr (FunPtr C_WeakNotify))
forall a. Maybe a
Nothing WeakNotify
cb
    C_WeakNotify -> IO (FunPtr C_WeakNotify)
mk_WeakNotify C_WeakNotify
cb' IO (FunPtr C_WeakNotify)
-> (FunPtr C_WeakNotify -> IO (GClosure C_WeakNotify))
-> IO (GClosure C_WeakNotify)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WeakNotify -> IO (GClosure C_WeakNotify)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `WeakNotify` into a `C_WeakNotify`.
wrap_WeakNotify ::
    Maybe (Ptr (FunPtr C_WeakNotify)) ->
    WeakNotify ->
    C_WeakNotify
wrap_WeakNotify :: Maybe (Ptr (FunPtr C_WeakNotify)) -> WeakNotify -> C_WeakNotify
wrap_WeakNotify Maybe (Ptr (FunPtr C_WeakNotify))
funptrptr WeakNotify
_cb Ptr ()
data_ Ptr Object
whereTheObjectWas = do
    Object
whereTheObjectWas' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
whereTheObjectWas
    WeakNotify
_cb  Ptr ()
data_ Object
whereTheObjectWas'
    Maybe (Ptr (FunPtr C_WeakNotify)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_WeakNotify))
funptrptr


-- callback ValueTransform
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "src_value"
          , argType = TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText = Just "Source value." , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "dest_value"
          , argType = TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText = Just "Target value." , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation
        { rawDocText =
            Just
              "The type of value transformation functions which can be registered with\ng_value_register_transform_func().\n\n@dest_value will be initialized to the correct destination type."
        , sinceVersion = Nothing
        }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_ValueTransform =
    Ptr GValue ->
    Ptr GValue ->
    IO ()

-- Args: [ Arg
--           { argCName = "src_value"
--           , argType = TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Source value." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "dest_value"
--           , argType = TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Target value." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_ValueTransform :: FunPtr C_ValueTransform -> C_ValueTransform

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_ValueTransform ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    FunPtr C_ValueTransform
    -> GValue
    -- ^ /@srcValue@/: Source value.
    -> GValue
    -- ^ /@destValue@/: Target value.
    -> m ()
dynamic_ValueTransform :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_ValueTransform -> GValue -> GValue -> m ()
dynamic_ValueTransform FunPtr C_ValueTransform
__funPtr GValue
srcValue GValue
destValue = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr GValue
srcValue' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
srcValue
    Ptr GValue
destValue' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
destValue
    (FunPtr C_ValueTransform -> C_ValueTransform
__dynamic_C_ValueTransform FunPtr C_ValueTransform
__funPtr) Ptr GValue
srcValue' Ptr GValue
destValue'
    GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
srcValue
    GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
destValue
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_ValueTransform`.
foreign import ccall "wrapper"
    mk_ValueTransform :: C_ValueTransform -> IO (FunPtr C_ValueTransform)

-- | The type of value transformation functions which can be registered with
-- @/g_value_register_transform_func()/@.
-- 
-- /@destValue@/ will be initialized to the correct destination type.
type ValueTransform =
    GValue
    -- ^ /@srcValue@/: Source value.
    -> GValue
    -- ^ /@destValue@/: Target value.
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `ValueTransform`@.
noValueTransform :: Maybe ValueTransform
noValueTransform :: Maybe ValueTransform
noValueTransform = Maybe ValueTransform
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_ValueTransform :: MonadIO m => ValueTransform -> m (GClosure C_ValueTransform)
genClosure_ValueTransform :: forall (m :: * -> *).
MonadIO m =>
ValueTransform -> m (GClosure C_ValueTransform)
genClosure_ValueTransform ValueTransform
cb = IO (GClosure C_ValueTransform) -> m (GClosure C_ValueTransform)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ValueTransform) -> m (GClosure C_ValueTransform))
-> IO (GClosure C_ValueTransform) -> m (GClosure C_ValueTransform)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_ValueTransform
cb' = Maybe (Ptr (FunPtr C_ValueTransform))
-> ValueTransform -> C_ValueTransform
wrap_ValueTransform Maybe (Ptr (FunPtr C_ValueTransform))
forall a. Maybe a
Nothing ValueTransform
cb
    C_ValueTransform -> IO (FunPtr C_ValueTransform)
mk_ValueTransform C_ValueTransform
cb' IO (FunPtr C_ValueTransform)
-> (FunPtr C_ValueTransform -> IO (GClosure C_ValueTransform))
-> IO (GClosure C_ValueTransform)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ValueTransform -> IO (GClosure C_ValueTransform)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `ValueTransform` into a `C_ValueTransform`.
wrap_ValueTransform ::
    Maybe (Ptr (FunPtr C_ValueTransform)) ->
    ValueTransform ->
    C_ValueTransform
wrap_ValueTransform :: Maybe (Ptr (FunPtr C_ValueTransform))
-> ValueTransform -> C_ValueTransform
wrap_ValueTransform Maybe (Ptr (FunPtr C_ValueTransform))
funptrptr ValueTransform
_cb Ptr GValue
srcValue Ptr GValue
destValue = do
    GValue
srcValue' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
srcValue
    GValue
destValue' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
destValue
    ValueTransform
_cb  GValue
srcValue' GValue
destValue'
    Maybe (Ptr (FunPtr C_ValueTransform)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ValueTransform))
funptrptr


-- callback TypeValueTableValuePeekPointerFieldCallback
{- Callable
  { returnType = Just (TBasicType TPtr)
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "value"
          , argType = TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_TypeValueTableValuePeekPointerFieldCallback =
    Ptr GValue ->
    IO (Ptr ())

-- Args: [ Arg
--           { argCName = "value"
--           , argType = TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TPtr)
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_TypeValueTableValuePeekPointerFieldCallback :: FunPtr C_TypeValueTableValuePeekPointerFieldCallback -> C_TypeValueTableValuePeekPointerFieldCallback

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_TypeValueTableValuePeekPointerFieldCallback ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    FunPtr C_TypeValueTableValuePeekPointerFieldCallback
    -> GValue
    -> m (Ptr ())
dynamic_TypeValueTableValuePeekPointerFieldCallback :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_TypeValueTableValuePeekPointerFieldCallback
-> GValue -> m (Ptr ())
dynamic_TypeValueTableValuePeekPointerFieldCallback FunPtr C_TypeValueTableValuePeekPointerFieldCallback
__funPtr GValue
value = IO (Ptr ()) -> m (Ptr ())
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ do
    Ptr GValue
value' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
    Ptr ()
result <- (FunPtr C_TypeValueTableValuePeekPointerFieldCallback
-> C_TypeValueTableValuePeekPointerFieldCallback
__dynamic_C_TypeValueTableValuePeekPointerFieldCallback FunPtr C_TypeValueTableValuePeekPointerFieldCallback
__funPtr) Ptr GValue
value'
    GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
    Ptr () -> IO (Ptr ())
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ()
result

-- | Generate a function pointer callable from C code, from a `C_TypeValueTableValuePeekPointerFieldCallback`.
foreign import ccall "wrapper"
    mk_TypeValueTableValuePeekPointerFieldCallback :: C_TypeValueTableValuePeekPointerFieldCallback -> IO (FunPtr C_TypeValueTableValuePeekPointerFieldCallback)

-- | /No description available in the introspection data./
type TypeValueTableValuePeekPointerFieldCallback =
    GValue
    -> IO (Ptr ())

-- | A convenience synonym for @`Nothing` :: `Maybe` `TypeValueTableValuePeekPointerFieldCallback`@.
noTypeValueTableValuePeekPointerFieldCallback :: Maybe TypeValueTableValuePeekPointerFieldCallback
noTypeValueTableValuePeekPointerFieldCallback :: Maybe TypeValueTableValuePeekPointerFieldCallback
noTypeValueTableValuePeekPointerFieldCallback = Maybe TypeValueTableValuePeekPointerFieldCallback
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_TypeValueTableValuePeekPointerFieldCallback :: MonadIO m => TypeValueTableValuePeekPointerFieldCallback -> m (GClosure C_TypeValueTableValuePeekPointerFieldCallback)
genClosure_TypeValueTableValuePeekPointerFieldCallback :: forall (m :: * -> *).
MonadIO m =>
TypeValueTableValuePeekPointerFieldCallback
-> m (GClosure C_TypeValueTableValuePeekPointerFieldCallback)
genClosure_TypeValueTableValuePeekPointerFieldCallback TypeValueTableValuePeekPointerFieldCallback
cb = IO (GClosure C_TypeValueTableValuePeekPointerFieldCallback)
-> m (GClosure C_TypeValueTableValuePeekPointerFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TypeValueTableValuePeekPointerFieldCallback)
 -> m (GClosure C_TypeValueTableValuePeekPointerFieldCallback))
-> IO (GClosure C_TypeValueTableValuePeekPointerFieldCallback)
-> m (GClosure C_TypeValueTableValuePeekPointerFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_TypeValueTableValuePeekPointerFieldCallback
cb' = Maybe (Ptr (FunPtr C_TypeValueTableValuePeekPointerFieldCallback))
-> TypeValueTableValuePeekPointerFieldCallback
-> C_TypeValueTableValuePeekPointerFieldCallback
wrap_TypeValueTableValuePeekPointerFieldCallback Maybe (Ptr (FunPtr C_TypeValueTableValuePeekPointerFieldCallback))
forall a. Maybe a
Nothing TypeValueTableValuePeekPointerFieldCallback
cb
    C_TypeValueTableValuePeekPointerFieldCallback
-> IO (FunPtr C_TypeValueTableValuePeekPointerFieldCallback)
mk_TypeValueTableValuePeekPointerFieldCallback C_TypeValueTableValuePeekPointerFieldCallback
cb' IO (FunPtr C_TypeValueTableValuePeekPointerFieldCallback)
-> (FunPtr C_TypeValueTableValuePeekPointerFieldCallback
    -> IO (GClosure C_TypeValueTableValuePeekPointerFieldCallback))
-> IO (GClosure C_TypeValueTableValuePeekPointerFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TypeValueTableValuePeekPointerFieldCallback
-> IO (GClosure C_TypeValueTableValuePeekPointerFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `TypeValueTableValuePeekPointerFieldCallback` into a `C_TypeValueTableValuePeekPointerFieldCallback`.
wrap_TypeValueTableValuePeekPointerFieldCallback ::
    Maybe (Ptr (FunPtr C_TypeValueTableValuePeekPointerFieldCallback)) ->
    TypeValueTableValuePeekPointerFieldCallback ->
    C_TypeValueTableValuePeekPointerFieldCallback
wrap_TypeValueTableValuePeekPointerFieldCallback :: Maybe (Ptr (FunPtr C_TypeValueTableValuePeekPointerFieldCallback))
-> TypeValueTableValuePeekPointerFieldCallback
-> C_TypeValueTableValuePeekPointerFieldCallback
wrap_TypeValueTableValuePeekPointerFieldCallback Maybe (Ptr (FunPtr C_TypeValueTableValuePeekPointerFieldCallback))
funptrptr TypeValueTableValuePeekPointerFieldCallback
_cb Ptr GValue
value = do
    GValue
value' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
value
    Ptr ()
result <- TypeValueTableValuePeekPointerFieldCallback
_cb  GValue
value'
    Maybe (Ptr (FunPtr C_TypeValueTableValuePeekPointerFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TypeValueTableValuePeekPointerFieldCallback))
funptrptr
    Ptr () -> IO (Ptr ())
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ()
result


-- callback TypeValueTableValueInitFieldCallback
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "value"
          , argType = TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_TypeValueTableValueInitFieldCallback =
    Ptr GValue ->
    IO ()

-- Args: [ Arg
--           { argCName = "value"
--           , argType = TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_TypeValueTableValueInitFieldCallback :: FunPtr C_TypeValueTableValueInitFieldCallback -> C_TypeValueTableValueInitFieldCallback

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_TypeValueTableValueInitFieldCallback ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    FunPtr C_TypeValueTableValueInitFieldCallback
    -> GValue
    -> m ()
dynamic_TypeValueTableValueInitFieldCallback :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_TypeValueTableValueInitFieldCallback -> GValue -> m ()
dynamic_TypeValueTableValueInitFieldCallback FunPtr C_TypeValueTableValueInitFieldCallback
__funPtr GValue
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr GValue
value' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
    (FunPtr C_TypeValueTableValueInitFieldCallback
-> C_TypeValueTableValueInitFieldCallback
__dynamic_C_TypeValueTableValueInitFieldCallback FunPtr C_TypeValueTableValueInitFieldCallback
__funPtr) Ptr GValue
value'
    GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_TypeValueTableValueInitFieldCallback`.
foreign import ccall "wrapper"
    mk_TypeValueTableValueInitFieldCallback :: C_TypeValueTableValueInitFieldCallback -> IO (FunPtr C_TypeValueTableValueInitFieldCallback)

-- | /No description available in the introspection data./
type TypeValueTableValueInitFieldCallback =
    GValue
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `TypeValueTableValueInitFieldCallback`@.
noTypeValueTableValueInitFieldCallback :: Maybe TypeValueTableValueInitFieldCallback
noTypeValueTableValueInitFieldCallback :: Maybe (GValue -> IO ())
noTypeValueTableValueInitFieldCallback = Maybe (GValue -> IO ())
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_TypeValueTableValueInitFieldCallback :: MonadIO m => TypeValueTableValueInitFieldCallback -> m (GClosure C_TypeValueTableValueInitFieldCallback)
genClosure_TypeValueTableValueInitFieldCallback :: forall (m :: * -> *).
MonadIO m =>
(GValue -> IO ())
-> m (GClosure C_TypeValueTableValueInitFieldCallback)
genClosure_TypeValueTableValueInitFieldCallback GValue -> IO ()
cb = IO (GClosure C_TypeValueTableValueInitFieldCallback)
-> m (GClosure C_TypeValueTableValueInitFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TypeValueTableValueInitFieldCallback)
 -> m (GClosure C_TypeValueTableValueInitFieldCallback))
-> IO (GClosure C_TypeValueTableValueInitFieldCallback)
-> m (GClosure C_TypeValueTableValueInitFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_TypeValueTableValueInitFieldCallback
cb' = Maybe (Ptr (FunPtr C_TypeValueTableValueInitFieldCallback))
-> (GValue -> IO ()) -> C_TypeValueTableValueInitFieldCallback
wrap_TypeValueTableValueInitFieldCallback Maybe (Ptr (FunPtr C_TypeValueTableValueInitFieldCallback))
forall a. Maybe a
Nothing GValue -> IO ()
cb
    C_TypeValueTableValueInitFieldCallback
-> IO (FunPtr C_TypeValueTableValueInitFieldCallback)
mk_TypeValueTableValueInitFieldCallback C_TypeValueTableValueInitFieldCallback
cb' IO (FunPtr C_TypeValueTableValueInitFieldCallback)
-> (FunPtr C_TypeValueTableValueInitFieldCallback
    -> IO (GClosure C_TypeValueTableValueInitFieldCallback))
-> IO (GClosure C_TypeValueTableValueInitFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TypeValueTableValueInitFieldCallback
-> IO (GClosure C_TypeValueTableValueInitFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `TypeValueTableValueInitFieldCallback` into a `C_TypeValueTableValueInitFieldCallback`.
wrap_TypeValueTableValueInitFieldCallback ::
    Maybe (Ptr (FunPtr C_TypeValueTableValueInitFieldCallback)) ->
    TypeValueTableValueInitFieldCallback ->
    C_TypeValueTableValueInitFieldCallback
wrap_TypeValueTableValueInitFieldCallback :: Maybe (Ptr (FunPtr C_TypeValueTableValueInitFieldCallback))
-> (GValue -> IO ()) -> C_TypeValueTableValueInitFieldCallback
wrap_TypeValueTableValueInitFieldCallback Maybe (Ptr (FunPtr C_TypeValueTableValueInitFieldCallback))
funptrptr GValue -> IO ()
_cb Ptr GValue
value = do
    GValue
value' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
value
    GValue -> IO ()
_cb  GValue
value'
    Maybe (Ptr (FunPtr C_TypeValueTableValueInitFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TypeValueTableValueInitFieldCallback))
funptrptr


-- callback TypeValueTableValueFreeFieldCallback
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "value"
          , argType = TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_TypeValueTableValueFreeFieldCallback =
    Ptr GValue ->
    IO ()

-- Args: [ Arg
--           { argCName = "value"
--           , argType = TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_TypeValueTableValueFreeFieldCallback :: FunPtr C_TypeValueTableValueFreeFieldCallback -> C_TypeValueTableValueFreeFieldCallback

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_TypeValueTableValueFreeFieldCallback ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    FunPtr C_TypeValueTableValueFreeFieldCallback
    -> GValue
    -> m ()
dynamic_TypeValueTableValueFreeFieldCallback :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_TypeValueTableValueInitFieldCallback -> GValue -> m ()
dynamic_TypeValueTableValueFreeFieldCallback FunPtr C_TypeValueTableValueInitFieldCallback
__funPtr GValue
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr GValue
value' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
    (FunPtr C_TypeValueTableValueInitFieldCallback
-> C_TypeValueTableValueInitFieldCallback
__dynamic_C_TypeValueTableValueFreeFieldCallback FunPtr C_TypeValueTableValueInitFieldCallback
__funPtr) Ptr GValue
value'
    GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_TypeValueTableValueFreeFieldCallback`.
foreign import ccall "wrapper"
    mk_TypeValueTableValueFreeFieldCallback :: C_TypeValueTableValueFreeFieldCallback -> IO (FunPtr C_TypeValueTableValueFreeFieldCallback)

-- | /No description available in the introspection data./
type TypeValueTableValueFreeFieldCallback =
    GValue
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `TypeValueTableValueFreeFieldCallback`@.
noTypeValueTableValueFreeFieldCallback :: Maybe TypeValueTableValueFreeFieldCallback
noTypeValueTableValueFreeFieldCallback :: Maybe (GValue -> IO ())
noTypeValueTableValueFreeFieldCallback = Maybe (GValue -> IO ())
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_TypeValueTableValueFreeFieldCallback :: MonadIO m => TypeValueTableValueFreeFieldCallback -> m (GClosure C_TypeValueTableValueFreeFieldCallback)
genClosure_TypeValueTableValueFreeFieldCallback :: forall (m :: * -> *).
MonadIO m =>
(GValue -> IO ())
-> m (GClosure C_TypeValueTableValueInitFieldCallback)
genClosure_TypeValueTableValueFreeFieldCallback GValue -> IO ()
cb = IO (GClosure C_TypeValueTableValueInitFieldCallback)
-> m (GClosure C_TypeValueTableValueInitFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TypeValueTableValueInitFieldCallback)
 -> m (GClosure C_TypeValueTableValueInitFieldCallback))
-> IO (GClosure C_TypeValueTableValueInitFieldCallback)
-> m (GClosure C_TypeValueTableValueInitFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_TypeValueTableValueInitFieldCallback
cb' = Maybe (Ptr (FunPtr C_TypeValueTableValueInitFieldCallback))
-> (GValue -> IO ()) -> C_TypeValueTableValueInitFieldCallback
wrap_TypeValueTableValueFreeFieldCallback Maybe (Ptr (FunPtr C_TypeValueTableValueInitFieldCallback))
forall a. Maybe a
Nothing GValue -> IO ()
cb
    C_TypeValueTableValueInitFieldCallback
-> IO (FunPtr C_TypeValueTableValueInitFieldCallback)
mk_TypeValueTableValueFreeFieldCallback C_TypeValueTableValueInitFieldCallback
cb' IO (FunPtr C_TypeValueTableValueInitFieldCallback)
-> (FunPtr C_TypeValueTableValueInitFieldCallback
    -> IO (GClosure C_TypeValueTableValueInitFieldCallback))
-> IO (GClosure C_TypeValueTableValueInitFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TypeValueTableValueInitFieldCallback
-> IO (GClosure C_TypeValueTableValueInitFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `TypeValueTableValueFreeFieldCallback` into a `C_TypeValueTableValueFreeFieldCallback`.
wrap_TypeValueTableValueFreeFieldCallback ::
    Maybe (Ptr (FunPtr C_TypeValueTableValueFreeFieldCallback)) ->
    TypeValueTableValueFreeFieldCallback ->
    C_TypeValueTableValueFreeFieldCallback
wrap_TypeValueTableValueFreeFieldCallback :: Maybe (Ptr (FunPtr C_TypeValueTableValueInitFieldCallback))
-> (GValue -> IO ()) -> C_TypeValueTableValueInitFieldCallback
wrap_TypeValueTableValueFreeFieldCallback Maybe (Ptr (FunPtr C_TypeValueTableValueInitFieldCallback))
funptrptr GValue -> IO ()
_cb Ptr GValue
value = do
    GValue
value' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
value
    GValue -> IO ()
_cb  GValue
value'
    Maybe (Ptr (FunPtr C_TypeValueTableValueInitFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TypeValueTableValueInitFieldCallback))
funptrptr


-- callback TypeValueTableValueCopyFieldCallback
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "src_value"
          , argType = TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "dest_value"
          , argType = TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_TypeValueTableValueCopyFieldCallback =
    Ptr GValue ->
    Ptr GValue ->
    IO ()

-- Args: [ Arg
--           { argCName = "src_value"
--           , argType = TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "dest_value"
--           , argType = TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_TypeValueTableValueCopyFieldCallback :: FunPtr C_TypeValueTableValueCopyFieldCallback -> C_TypeValueTableValueCopyFieldCallback

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_TypeValueTableValueCopyFieldCallback ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    FunPtr C_TypeValueTableValueCopyFieldCallback
    -> GValue
    -> GValue
    -> m ()
dynamic_TypeValueTableValueCopyFieldCallback :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_ValueTransform -> GValue -> GValue -> m ()
dynamic_TypeValueTableValueCopyFieldCallback FunPtr C_ValueTransform
__funPtr GValue
srcValue GValue
destValue = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr GValue
srcValue' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
srcValue
    Ptr GValue
destValue' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
destValue
    (FunPtr C_ValueTransform -> C_ValueTransform
__dynamic_C_TypeValueTableValueCopyFieldCallback FunPtr C_ValueTransform
__funPtr) Ptr GValue
srcValue' Ptr GValue
destValue'
    GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
srcValue
    GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
destValue
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_TypeValueTableValueCopyFieldCallback`.
foreign import ccall "wrapper"
    mk_TypeValueTableValueCopyFieldCallback :: C_TypeValueTableValueCopyFieldCallback -> IO (FunPtr C_TypeValueTableValueCopyFieldCallback)

-- | /No description available in the introspection data./
type TypeValueTableValueCopyFieldCallback =
    GValue
    -> GValue
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `TypeValueTableValueCopyFieldCallback`@.
noTypeValueTableValueCopyFieldCallback :: Maybe TypeValueTableValueCopyFieldCallback
noTypeValueTableValueCopyFieldCallback :: Maybe ValueTransform
noTypeValueTableValueCopyFieldCallback = Maybe ValueTransform
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_TypeValueTableValueCopyFieldCallback :: MonadIO m => TypeValueTableValueCopyFieldCallback -> m (GClosure C_TypeValueTableValueCopyFieldCallback)
genClosure_TypeValueTableValueCopyFieldCallback :: forall (m :: * -> *).
MonadIO m =>
ValueTransform -> m (GClosure C_ValueTransform)
genClosure_TypeValueTableValueCopyFieldCallback ValueTransform
cb = IO (GClosure C_ValueTransform) -> m (GClosure C_ValueTransform)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ValueTransform) -> m (GClosure C_ValueTransform))
-> IO (GClosure C_ValueTransform) -> m (GClosure C_ValueTransform)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_ValueTransform
cb' = Maybe (Ptr (FunPtr C_ValueTransform))
-> ValueTransform -> C_ValueTransform
wrap_TypeValueTableValueCopyFieldCallback Maybe (Ptr (FunPtr C_ValueTransform))
forall a. Maybe a
Nothing ValueTransform
cb
    C_ValueTransform -> IO (FunPtr C_ValueTransform)
mk_TypeValueTableValueCopyFieldCallback C_ValueTransform
cb' IO (FunPtr C_ValueTransform)
-> (FunPtr C_ValueTransform -> IO (GClosure C_ValueTransform))
-> IO (GClosure C_ValueTransform)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ValueTransform -> IO (GClosure C_ValueTransform)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `TypeValueTableValueCopyFieldCallback` into a `C_TypeValueTableValueCopyFieldCallback`.
wrap_TypeValueTableValueCopyFieldCallback ::
    Maybe (Ptr (FunPtr C_TypeValueTableValueCopyFieldCallback)) ->
    TypeValueTableValueCopyFieldCallback ->
    C_TypeValueTableValueCopyFieldCallback
wrap_TypeValueTableValueCopyFieldCallback :: Maybe (Ptr (FunPtr C_ValueTransform))
-> ValueTransform -> C_ValueTransform
wrap_TypeValueTableValueCopyFieldCallback Maybe (Ptr (FunPtr C_ValueTransform))
funptrptr ValueTransform
_cb Ptr GValue
srcValue Ptr GValue
destValue = do
    GValue
srcValue' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
srcValue
    GValue
destValue' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
destValue
    ValueTransform
_cb  GValue
srcValue' GValue
destValue'
    Maybe (Ptr (FunPtr C_ValueTransform)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ValueTransform))
funptrptr


-- callback TypeValueTableLcopyValueFieldCallback
{- Callable
  { returnType = Just (TBasicType TUTF8)
  , returnMayBeNull = False
  , returnTransfer = TransferEverything
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "value"
          , argType = TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "n_collect_values"
          , argType = TBasicType TUInt
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "collect_values"
          , argType =
              TInterface Name { namespace = "GObject" , name = "TypeCValue" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "collect_flags"
          , argType = TBasicType TUInt
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_TypeValueTableLcopyValueFieldCallback =
    Ptr GValue ->
    Word32 ->
    Ptr GObject.TypeCValue.TypeCValue ->
    Word32 ->
    IO CString

-- Args: [ Arg
--           { argCName = "value"
--           , argType = TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "n_collect_values"
--           , argType = TBasicType TUInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "collect_values"
--           , argType =
--               TInterface Name { namespace = "GObject" , name = "TypeCValue" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "collect_flags"
--           , argType = TBasicType TUInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TUTF8)
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_TypeValueTableLcopyValueFieldCallback :: FunPtr C_TypeValueTableLcopyValueFieldCallback -> C_TypeValueTableLcopyValueFieldCallback

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_TypeValueTableLcopyValueFieldCallback ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    FunPtr C_TypeValueTableLcopyValueFieldCallback
    -> GValue
    -> Word32
    -> GObject.TypeCValue.TypeCValue
    -> Word32
    -> m T.Text
dynamic_TypeValueTableLcopyValueFieldCallback :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_TypeValueTableLcopyValueFieldCallback
-> GValue -> Word32 -> TypeCValue -> Word32 -> m Text
dynamic_TypeValueTableLcopyValueFieldCallback FunPtr C_TypeValueTableLcopyValueFieldCallback
__funPtr GValue
value Word32
nCollectValues TypeCValue
collectValues Word32
collectFlags = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
    Ptr GValue
value' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
    Ptr TypeCValue
collectValues' <- TypeCValue -> IO (Ptr TypeCValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TypeCValue
collectValues
    CString
result <- (FunPtr C_TypeValueTableLcopyValueFieldCallback
-> C_TypeValueTableLcopyValueFieldCallback
__dynamic_C_TypeValueTableLcopyValueFieldCallback FunPtr C_TypeValueTableLcopyValueFieldCallback
__funPtr) Ptr GValue
value' Word32
nCollectValues Ptr TypeCValue
collectValues' Word32
collectFlags
    Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"typeValueTableLcopyValueFieldCallback" CString
result
    Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
    GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
    TypeCValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TypeCValue
collectValues
    Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'

-- | Generate a function pointer callable from C code, from a `C_TypeValueTableLcopyValueFieldCallback`.
foreign import ccall "wrapper"
    mk_TypeValueTableLcopyValueFieldCallback :: C_TypeValueTableLcopyValueFieldCallback -> IO (FunPtr C_TypeValueTableLcopyValueFieldCallback)

-- | /No description available in the introspection data./
type TypeValueTableLcopyValueFieldCallback =
    GValue
    -> Word32
    -> GObject.TypeCValue.TypeCValue
    -> Word32
    -> IO T.Text

-- | A convenience synonym for @`Nothing` :: `Maybe` `TypeValueTableLcopyValueFieldCallback`@.
noTypeValueTableLcopyValueFieldCallback :: Maybe TypeValueTableLcopyValueFieldCallback
noTypeValueTableLcopyValueFieldCallback :: Maybe TypeValueTableLcopyValueFieldCallback
noTypeValueTableLcopyValueFieldCallback = Maybe TypeValueTableLcopyValueFieldCallback
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_TypeValueTableLcopyValueFieldCallback :: MonadIO m => TypeValueTableLcopyValueFieldCallback -> m (GClosure C_TypeValueTableLcopyValueFieldCallback)
genClosure_TypeValueTableLcopyValueFieldCallback :: forall (m :: * -> *).
MonadIO m =>
TypeValueTableLcopyValueFieldCallback
-> m (GClosure C_TypeValueTableLcopyValueFieldCallback)
genClosure_TypeValueTableLcopyValueFieldCallback TypeValueTableLcopyValueFieldCallback
cb = IO (GClosure C_TypeValueTableLcopyValueFieldCallback)
-> m (GClosure C_TypeValueTableLcopyValueFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TypeValueTableLcopyValueFieldCallback)
 -> m (GClosure C_TypeValueTableLcopyValueFieldCallback))
-> IO (GClosure C_TypeValueTableLcopyValueFieldCallback)
-> m (GClosure C_TypeValueTableLcopyValueFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_TypeValueTableLcopyValueFieldCallback
cb' = Maybe (Ptr (FunPtr C_TypeValueTableLcopyValueFieldCallback))
-> TypeValueTableLcopyValueFieldCallback
-> C_TypeValueTableLcopyValueFieldCallback
wrap_TypeValueTableLcopyValueFieldCallback Maybe (Ptr (FunPtr C_TypeValueTableLcopyValueFieldCallback))
forall a. Maybe a
Nothing TypeValueTableLcopyValueFieldCallback
cb
    C_TypeValueTableLcopyValueFieldCallback
-> IO (FunPtr C_TypeValueTableLcopyValueFieldCallback)
mk_TypeValueTableLcopyValueFieldCallback C_TypeValueTableLcopyValueFieldCallback
cb' IO (FunPtr C_TypeValueTableLcopyValueFieldCallback)
-> (FunPtr C_TypeValueTableLcopyValueFieldCallback
    -> IO (GClosure C_TypeValueTableLcopyValueFieldCallback))
-> IO (GClosure C_TypeValueTableLcopyValueFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TypeValueTableLcopyValueFieldCallback
-> IO (GClosure C_TypeValueTableLcopyValueFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `TypeValueTableLcopyValueFieldCallback` into a `C_TypeValueTableLcopyValueFieldCallback`.
wrap_TypeValueTableLcopyValueFieldCallback ::
    Maybe (Ptr (FunPtr C_TypeValueTableLcopyValueFieldCallback)) ->
    TypeValueTableLcopyValueFieldCallback ->
    C_TypeValueTableLcopyValueFieldCallback
wrap_TypeValueTableLcopyValueFieldCallback :: Maybe (Ptr (FunPtr C_TypeValueTableLcopyValueFieldCallback))
-> TypeValueTableLcopyValueFieldCallback
-> C_TypeValueTableLcopyValueFieldCallback
wrap_TypeValueTableLcopyValueFieldCallback Maybe (Ptr (FunPtr C_TypeValueTableLcopyValueFieldCallback))
funptrptr TypeValueTableLcopyValueFieldCallback
_cb Ptr GValue
value Word32
nCollectValues Ptr TypeCValue
collectValues Word32
collectFlags = do
    GValue
value' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
value
    TypeCValue
collectValues' <- ((ManagedPtr TypeCValue -> TypeCValue)
-> Ptr TypeCValue -> IO TypeCValue
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr TypeCValue -> TypeCValue
GObject.TypeCValue.TypeCValue) Ptr TypeCValue
collectValues
    Text
result <- TypeValueTableLcopyValueFieldCallback
_cb  GValue
value' Word32
nCollectValues TypeCValue
collectValues' Word32
collectFlags
    Maybe (Ptr (FunPtr C_TypeValueTableLcopyValueFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TypeValueTableLcopyValueFieldCallback))
funptrptr
    CString
result' <- Text -> IO CString
textToCString Text
result
    CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
result'


-- callback TypeValueTableCollectValueFieldCallback
{- Callable
  { returnType = Just (TBasicType TUTF8)
  , returnMayBeNull = False
  , returnTransfer = TransferEverything
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "value"
          , argType = TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "n_collect_values"
          , argType = TBasicType TUInt
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "collect_values"
          , argType =
              TInterface Name { namespace = "GObject" , name = "TypeCValue" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "collect_flags"
          , argType = TBasicType TUInt
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_TypeValueTableCollectValueFieldCallback =
    Ptr GValue ->
    Word32 ->
    Ptr GObject.TypeCValue.TypeCValue ->
    Word32 ->
    IO CString

-- Args: [ Arg
--           { argCName = "value"
--           , argType = TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "n_collect_values"
--           , argType = TBasicType TUInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "collect_values"
--           , argType =
--               TInterface Name { namespace = "GObject" , name = "TypeCValue" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "collect_flags"
--           , argType = TBasicType TUInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TUTF8)
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_TypeValueTableCollectValueFieldCallback :: FunPtr C_TypeValueTableCollectValueFieldCallback -> C_TypeValueTableCollectValueFieldCallback

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_TypeValueTableCollectValueFieldCallback ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    FunPtr C_TypeValueTableCollectValueFieldCallback
    -> GValue
    -> Word32
    -> GObject.TypeCValue.TypeCValue
    -> Word32
    -> m T.Text
dynamic_TypeValueTableCollectValueFieldCallback :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_TypeValueTableLcopyValueFieldCallback
-> GValue -> Word32 -> TypeCValue -> Word32 -> m Text
dynamic_TypeValueTableCollectValueFieldCallback FunPtr C_TypeValueTableLcopyValueFieldCallback
__funPtr GValue
value Word32
nCollectValues TypeCValue
collectValues Word32
collectFlags = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
    Ptr GValue
value' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
    Ptr TypeCValue
collectValues' <- TypeCValue -> IO (Ptr TypeCValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TypeCValue
collectValues
    CString
result <- (FunPtr C_TypeValueTableLcopyValueFieldCallback
-> C_TypeValueTableLcopyValueFieldCallback
__dynamic_C_TypeValueTableCollectValueFieldCallback FunPtr C_TypeValueTableLcopyValueFieldCallback
__funPtr) Ptr GValue
value' Word32
nCollectValues Ptr TypeCValue
collectValues' Word32
collectFlags
    Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"typeValueTableCollectValueFieldCallback" CString
result
    Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
    GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
    TypeCValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TypeCValue
collectValues
    Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'

-- | Generate a function pointer callable from C code, from a `C_TypeValueTableCollectValueFieldCallback`.
foreign import ccall "wrapper"
    mk_TypeValueTableCollectValueFieldCallback :: C_TypeValueTableCollectValueFieldCallback -> IO (FunPtr C_TypeValueTableCollectValueFieldCallback)

-- | /No description available in the introspection data./
type TypeValueTableCollectValueFieldCallback =
    GValue
    -> Word32
    -> GObject.TypeCValue.TypeCValue
    -> Word32
    -> IO T.Text

-- | A convenience synonym for @`Nothing` :: `Maybe` `TypeValueTableCollectValueFieldCallback`@.
noTypeValueTableCollectValueFieldCallback :: Maybe TypeValueTableCollectValueFieldCallback
noTypeValueTableCollectValueFieldCallback :: Maybe TypeValueTableLcopyValueFieldCallback
noTypeValueTableCollectValueFieldCallback = Maybe TypeValueTableLcopyValueFieldCallback
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_TypeValueTableCollectValueFieldCallback :: MonadIO m => TypeValueTableCollectValueFieldCallback -> m (GClosure C_TypeValueTableCollectValueFieldCallback)
genClosure_TypeValueTableCollectValueFieldCallback :: forall (m :: * -> *).
MonadIO m =>
TypeValueTableLcopyValueFieldCallback
-> m (GClosure C_TypeValueTableLcopyValueFieldCallback)
genClosure_TypeValueTableCollectValueFieldCallback TypeValueTableLcopyValueFieldCallback
cb = IO (GClosure C_TypeValueTableLcopyValueFieldCallback)
-> m (GClosure C_TypeValueTableLcopyValueFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TypeValueTableLcopyValueFieldCallback)
 -> m (GClosure C_TypeValueTableLcopyValueFieldCallback))
-> IO (GClosure C_TypeValueTableLcopyValueFieldCallback)
-> m (GClosure C_TypeValueTableLcopyValueFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_TypeValueTableLcopyValueFieldCallback
cb' = Maybe (Ptr (FunPtr C_TypeValueTableLcopyValueFieldCallback))
-> TypeValueTableLcopyValueFieldCallback
-> C_TypeValueTableLcopyValueFieldCallback
wrap_TypeValueTableCollectValueFieldCallback Maybe (Ptr (FunPtr C_TypeValueTableLcopyValueFieldCallback))
forall a. Maybe a
Nothing TypeValueTableLcopyValueFieldCallback
cb
    C_TypeValueTableLcopyValueFieldCallback
-> IO (FunPtr C_TypeValueTableLcopyValueFieldCallback)
mk_TypeValueTableCollectValueFieldCallback C_TypeValueTableLcopyValueFieldCallback
cb' IO (FunPtr C_TypeValueTableLcopyValueFieldCallback)
-> (FunPtr C_TypeValueTableLcopyValueFieldCallback
    -> IO (GClosure C_TypeValueTableLcopyValueFieldCallback))
-> IO (GClosure C_TypeValueTableLcopyValueFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TypeValueTableLcopyValueFieldCallback
-> IO (GClosure C_TypeValueTableLcopyValueFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `TypeValueTableCollectValueFieldCallback` into a `C_TypeValueTableCollectValueFieldCallback`.
wrap_TypeValueTableCollectValueFieldCallback ::
    Maybe (Ptr (FunPtr C_TypeValueTableCollectValueFieldCallback)) ->
    TypeValueTableCollectValueFieldCallback ->
    C_TypeValueTableCollectValueFieldCallback
wrap_TypeValueTableCollectValueFieldCallback :: Maybe (Ptr (FunPtr C_TypeValueTableLcopyValueFieldCallback))
-> TypeValueTableLcopyValueFieldCallback
-> C_TypeValueTableLcopyValueFieldCallback
wrap_TypeValueTableCollectValueFieldCallback Maybe (Ptr (FunPtr C_TypeValueTableLcopyValueFieldCallback))
funptrptr TypeValueTableLcopyValueFieldCallback
_cb Ptr GValue
value Word32
nCollectValues Ptr TypeCValue
collectValues Word32
collectFlags = do
    GValue
value' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
value
    TypeCValue
collectValues' <- ((ManagedPtr TypeCValue -> TypeCValue)
-> Ptr TypeCValue -> IO TypeCValue
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr TypeCValue -> TypeCValue
GObject.TypeCValue.TypeCValue) Ptr TypeCValue
collectValues
    Text
result <- TypeValueTableLcopyValueFieldCallback
_cb  GValue
value' Word32
nCollectValues TypeCValue
collectValues' Word32
collectFlags
    Maybe (Ptr (FunPtr C_TypeValueTableLcopyValueFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TypeValueTableLcopyValueFieldCallback))
funptrptr
    CString
result' <- Text -> IO CString
textToCString Text
result
    CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
result'


-- callback TypePluginUse
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "plugin"
          , argType =
              TInterface Name { namespace = "GObject" , name = "TypePlugin" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText =
                    Just "the #GTypePlugin whose use count should be increased"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation
        { rawDocText =
            Just
              "The type of the @use_plugin function of #GTypePluginClass, which gets called\nto increase the use count of @plugin."
        , sinceVersion = Nothing
        }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_TypePluginUse =
    Ptr GObject.TypePlugin.TypePlugin ->
    IO ()

-- Args: [ Arg
--           { argCName = "plugin"
--           , argType =
--               TInterface Name { namespace = "GObject" , name = "TypePlugin" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "the #GTypePlugin whose use count should be increased"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_TypePluginUse :: FunPtr C_TypePluginUse -> C_TypePluginUse

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_TypePluginUse ::
    (B.CallStack.HasCallStack, MonadIO m, GObject.TypePlugin.IsTypePlugin a) =>
    FunPtr C_TypePluginUse
    -> a
    -- ^ /@plugin@/: the t'GI.GObject.Interfaces.TypePlugin.TypePlugin' whose use count should be increased
    -> m ()
dynamic_TypePluginUse :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTypePlugin a) =>
FunPtr C_TypePluginUse -> a -> m ()
dynamic_TypePluginUse FunPtr C_TypePluginUse
__funPtr a
plugin = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr TypePlugin
plugin' <- a -> IO (Ptr TypePlugin)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
plugin
    (FunPtr C_TypePluginUse -> C_TypePluginUse
__dynamic_C_TypePluginUse FunPtr C_TypePluginUse
__funPtr) Ptr TypePlugin
plugin'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
plugin
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_TypePluginUse`.
foreign import ccall "wrapper"
    mk_TypePluginUse :: C_TypePluginUse -> IO (FunPtr C_TypePluginUse)

-- | The type of the /@usePlugin@/ function of @/GTypePluginClass/@, which gets called
-- to increase the use count of /@plugin@/.
type TypePluginUse =
    GObject.TypePlugin.TypePlugin
    -- ^ /@plugin@/: the t'GI.GObject.Interfaces.TypePlugin.TypePlugin' whose use count should be increased
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `TypePluginUse`@.
noTypePluginUse :: Maybe TypePluginUse
noTypePluginUse :: Maybe TypePluginUse
noTypePluginUse = Maybe TypePluginUse
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_TypePluginUse :: MonadIO m => TypePluginUse -> m (GClosure C_TypePluginUse)
genClosure_TypePluginUse :: forall (m :: * -> *).
MonadIO m =>
TypePluginUse -> m (GClosure C_TypePluginUse)
genClosure_TypePluginUse TypePluginUse
cb = IO (GClosure C_TypePluginUse) -> m (GClosure C_TypePluginUse)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TypePluginUse) -> m (GClosure C_TypePluginUse))
-> IO (GClosure C_TypePluginUse) -> m (GClosure C_TypePluginUse)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_TypePluginUse
cb' = Maybe (Ptr (FunPtr C_TypePluginUse))
-> TypePluginUse -> C_TypePluginUse
wrap_TypePluginUse Maybe (Ptr (FunPtr C_TypePluginUse))
forall a. Maybe a
Nothing TypePluginUse
cb
    C_TypePluginUse -> IO (FunPtr C_TypePluginUse)
mk_TypePluginUse C_TypePluginUse
cb' IO (FunPtr C_TypePluginUse)
-> (FunPtr C_TypePluginUse -> IO (GClosure C_TypePluginUse))
-> IO (GClosure C_TypePluginUse)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TypePluginUse -> IO (GClosure C_TypePluginUse)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `TypePluginUse` into a `C_TypePluginUse`.
wrap_TypePluginUse ::
    Maybe (Ptr (FunPtr C_TypePluginUse)) ->
    TypePluginUse ->
    C_TypePluginUse
wrap_TypePluginUse :: Maybe (Ptr (FunPtr C_TypePluginUse))
-> TypePluginUse -> C_TypePluginUse
wrap_TypePluginUse Maybe (Ptr (FunPtr C_TypePluginUse))
funptrptr TypePluginUse
_cb Ptr TypePlugin
plugin = do
    TypePlugin
plugin' <- ((ManagedPtr TypePlugin -> TypePlugin)
-> Ptr TypePlugin -> IO TypePlugin
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr TypePlugin -> TypePlugin
GObject.TypePlugin.TypePlugin) Ptr TypePlugin
plugin
    TypePluginUse
_cb  TypePlugin
plugin'
    Maybe (Ptr (FunPtr C_TypePluginUse)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TypePluginUse))
funptrptr


-- callback TypePluginUnuse
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "plugin"
          , argType =
              TInterface Name { namespace = "GObject" , name = "TypePlugin" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText =
                    Just "the #GTypePlugin whose use count should be decreased"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation
        { rawDocText =
            Just "The type of the @unuse_plugin function of #GTypePluginClass."
        , sinceVersion = Nothing
        }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_TypePluginUnuse =
    Ptr GObject.TypePlugin.TypePlugin ->
    IO ()

-- Args: [ Arg
--           { argCName = "plugin"
--           , argType =
--               TInterface Name { namespace = "GObject" , name = "TypePlugin" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "the #GTypePlugin whose use count should be decreased"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_TypePluginUnuse :: FunPtr C_TypePluginUnuse -> C_TypePluginUnuse

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_TypePluginUnuse ::
    (B.CallStack.HasCallStack, MonadIO m, GObject.TypePlugin.IsTypePlugin a) =>
    FunPtr C_TypePluginUnuse
    -> a
    -- ^ /@plugin@/: the t'GI.GObject.Interfaces.TypePlugin.TypePlugin' whose use count should be decreased
    -> m ()
dynamic_TypePluginUnuse :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTypePlugin a) =>
FunPtr C_TypePluginUse -> a -> m ()
dynamic_TypePluginUnuse FunPtr C_TypePluginUse
__funPtr a
plugin = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr TypePlugin
plugin' <- a -> IO (Ptr TypePlugin)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
plugin
    (FunPtr C_TypePluginUse -> C_TypePluginUse
__dynamic_C_TypePluginUnuse FunPtr C_TypePluginUse
__funPtr) Ptr TypePlugin
plugin'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
plugin
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_TypePluginUnuse`.
foreign import ccall "wrapper"
    mk_TypePluginUnuse :: C_TypePluginUnuse -> IO (FunPtr C_TypePluginUnuse)

-- | The type of the /@unusePlugin@/ function of @/GTypePluginClass/@.
type TypePluginUnuse =
    GObject.TypePlugin.TypePlugin
    -- ^ /@plugin@/: the t'GI.GObject.Interfaces.TypePlugin.TypePlugin' whose use count should be decreased
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `TypePluginUnuse`@.
noTypePluginUnuse :: Maybe TypePluginUnuse
noTypePluginUnuse :: Maybe TypePluginUse
noTypePluginUnuse = Maybe TypePluginUse
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_TypePluginUnuse :: MonadIO m => TypePluginUnuse -> m (GClosure C_TypePluginUnuse)
genClosure_TypePluginUnuse :: forall (m :: * -> *).
MonadIO m =>
TypePluginUse -> m (GClosure C_TypePluginUse)
genClosure_TypePluginUnuse TypePluginUse
cb = IO (GClosure C_TypePluginUse) -> m (GClosure C_TypePluginUse)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TypePluginUse) -> m (GClosure C_TypePluginUse))
-> IO (GClosure C_TypePluginUse) -> m (GClosure C_TypePluginUse)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_TypePluginUse
cb' = Maybe (Ptr (FunPtr C_TypePluginUse))
-> TypePluginUse -> C_TypePluginUse
wrap_TypePluginUnuse Maybe (Ptr (FunPtr C_TypePluginUse))
forall a. Maybe a
Nothing TypePluginUse
cb
    C_TypePluginUse -> IO (FunPtr C_TypePluginUse)
mk_TypePluginUnuse C_TypePluginUse
cb' IO (FunPtr C_TypePluginUse)
-> (FunPtr C_TypePluginUse -> IO (GClosure C_TypePluginUse))
-> IO (GClosure C_TypePluginUse)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TypePluginUse -> IO (GClosure C_TypePluginUse)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `TypePluginUnuse` into a `C_TypePluginUnuse`.
wrap_TypePluginUnuse ::
    Maybe (Ptr (FunPtr C_TypePluginUnuse)) ->
    TypePluginUnuse ->
    C_TypePluginUnuse
wrap_TypePluginUnuse :: Maybe (Ptr (FunPtr C_TypePluginUse))
-> TypePluginUse -> C_TypePluginUse
wrap_TypePluginUnuse Maybe (Ptr (FunPtr C_TypePluginUse))
funptrptr TypePluginUse
_cb Ptr TypePlugin
plugin = do
    TypePlugin
plugin' <- ((ManagedPtr TypePlugin -> TypePlugin)
-> Ptr TypePlugin -> IO TypePlugin
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr TypePlugin -> TypePlugin
GObject.TypePlugin.TypePlugin) Ptr TypePlugin
plugin
    TypePluginUse
_cb  TypePlugin
plugin'
    Maybe (Ptr (FunPtr C_TypePluginUse)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TypePluginUse))
funptrptr


-- callback TypePluginCompleteTypeInfo
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "plugin"
          , argType =
              TInterface Name { namespace = "GObject" , name = "TypePlugin" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText = Just "the #GTypePlugin" , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "g_type"
          , argType = TBasicType TGType
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText = Just "the #GType whose info is completed"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "info"
          , argType =
              TInterface Name { namespace = "GObject" , name = "TypeInfo" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText = Just "the #GTypeInfo struct to fill in"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "value_table"
          , argType =
              TInterface Name { namespace = "GObject" , name = "TypeValueTable" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText = Just "the #GTypeValueTable to fill in"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation
        { rawDocText =
            Just
              "The type of the @complete_type_info function of #GTypePluginClass."
        , sinceVersion = Nothing
        }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_TypePluginCompleteTypeInfo =
    Ptr GObject.TypePlugin.TypePlugin ->
    CGType ->
    Ptr GObject.TypeInfo.TypeInfo ->
    Ptr GObject.TypeValueTable.TypeValueTable ->
    IO ()

-- Args: [ Arg
--           { argCName = "plugin"
--           , argType =
--               TInterface Name { namespace = "GObject" , name = "TypePlugin" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "the #GTypePlugin" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "g_type"
--           , argType = TBasicType TGType
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "the #GType whose info is completed"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "info"
--           , argType =
--               TInterface Name { namespace = "GObject" , name = "TypeInfo" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "the #GTypeInfo struct to fill in"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "value_table"
--           , argType =
--               TInterface Name { namespace = "GObject" , name = "TypeValueTable" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "the #GTypeValueTable to fill in"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_TypePluginCompleteTypeInfo :: FunPtr C_TypePluginCompleteTypeInfo -> C_TypePluginCompleteTypeInfo

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_TypePluginCompleteTypeInfo ::
    (B.CallStack.HasCallStack, MonadIO m, GObject.TypePlugin.IsTypePlugin a) =>
    FunPtr C_TypePluginCompleteTypeInfo
    -> a
    -- ^ /@plugin@/: the t'GI.GObject.Interfaces.TypePlugin.TypePlugin'
    -> GType
    -- ^ /@gType@/: the t'GType' whose info is completed
    -> GObject.TypeInfo.TypeInfo
    -- ^ /@info@/: the t'GI.GObject.Structs.TypeInfo.TypeInfo' struct to fill in
    -> GObject.TypeValueTable.TypeValueTable
    -- ^ /@valueTable@/: the t'GI.GObject.Structs.TypeValueTable.TypeValueTable' to fill in
    -> m ()
dynamic_TypePluginCompleteTypeInfo :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTypePlugin a) =>
FunPtr C_TypePluginCompleteTypeInfo
-> a -> GType -> TypeInfo -> TypeValueTable -> m ()
dynamic_TypePluginCompleteTypeInfo FunPtr C_TypePluginCompleteTypeInfo
__funPtr a
plugin GType
gType TypeInfo
info TypeValueTable
valueTable = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr TypePlugin
plugin' <- a -> IO (Ptr TypePlugin)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
plugin
    let gType' :: CGType
gType' = GType -> CGType
gtypeToCGType GType
gType
    Ptr TypeInfo
info' <- TypeInfo -> IO (Ptr TypeInfo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TypeInfo
info
    Ptr TypeValueTable
valueTable' <- TypeValueTable -> IO (Ptr TypeValueTable)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TypeValueTable
valueTable
    (FunPtr C_TypePluginCompleteTypeInfo -> C_TypePluginCompleteTypeInfo
__dynamic_C_TypePluginCompleteTypeInfo FunPtr C_TypePluginCompleteTypeInfo
__funPtr) Ptr TypePlugin
plugin' CGType
gType' Ptr TypeInfo
info' Ptr TypeValueTable
valueTable'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
plugin
    TypeInfo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TypeInfo
info
    TypeValueTable -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TypeValueTable
valueTable
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_TypePluginCompleteTypeInfo`.
foreign import ccall "wrapper"
    mk_TypePluginCompleteTypeInfo :: C_TypePluginCompleteTypeInfo -> IO (FunPtr C_TypePluginCompleteTypeInfo)

-- | The type of the /@completeTypeInfo@/ function of @/GTypePluginClass/@.
type TypePluginCompleteTypeInfo =
    GObject.TypePlugin.TypePlugin
    -- ^ /@plugin@/: the t'GI.GObject.Interfaces.TypePlugin.TypePlugin'
    -> GType
    -- ^ /@gType@/: the t'GType' whose info is completed
    -> GObject.TypeInfo.TypeInfo
    -- ^ /@info@/: the t'GI.GObject.Structs.TypeInfo.TypeInfo' struct to fill in
    -> GObject.TypeValueTable.TypeValueTable
    -- ^ /@valueTable@/: the t'GI.GObject.Structs.TypeValueTable.TypeValueTable' to fill in
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `TypePluginCompleteTypeInfo`@.
noTypePluginCompleteTypeInfo :: Maybe TypePluginCompleteTypeInfo
noTypePluginCompleteTypeInfo :: Maybe TypePluginCompleteTypeInfo
noTypePluginCompleteTypeInfo = Maybe TypePluginCompleteTypeInfo
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_TypePluginCompleteTypeInfo :: MonadIO m => TypePluginCompleteTypeInfo -> m (GClosure C_TypePluginCompleteTypeInfo)
genClosure_TypePluginCompleteTypeInfo :: forall (m :: * -> *).
MonadIO m =>
TypePluginCompleteTypeInfo
-> m (GClosure C_TypePluginCompleteTypeInfo)
genClosure_TypePluginCompleteTypeInfo TypePluginCompleteTypeInfo
cb = IO (GClosure C_TypePluginCompleteTypeInfo)
-> m (GClosure C_TypePluginCompleteTypeInfo)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TypePluginCompleteTypeInfo)
 -> m (GClosure C_TypePluginCompleteTypeInfo))
-> IO (GClosure C_TypePluginCompleteTypeInfo)
-> m (GClosure C_TypePluginCompleteTypeInfo)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_TypePluginCompleteTypeInfo
cb' = Maybe (Ptr (FunPtr C_TypePluginCompleteTypeInfo))
-> TypePluginCompleteTypeInfo -> C_TypePluginCompleteTypeInfo
wrap_TypePluginCompleteTypeInfo Maybe (Ptr (FunPtr C_TypePluginCompleteTypeInfo))
forall a. Maybe a
Nothing TypePluginCompleteTypeInfo
cb
    C_TypePluginCompleteTypeInfo
-> IO (FunPtr C_TypePluginCompleteTypeInfo)
mk_TypePluginCompleteTypeInfo C_TypePluginCompleteTypeInfo
cb' IO (FunPtr C_TypePluginCompleteTypeInfo)
-> (FunPtr C_TypePluginCompleteTypeInfo
    -> IO (GClosure C_TypePluginCompleteTypeInfo))
-> IO (GClosure C_TypePluginCompleteTypeInfo)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TypePluginCompleteTypeInfo
-> IO (GClosure C_TypePluginCompleteTypeInfo)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `TypePluginCompleteTypeInfo` into a `C_TypePluginCompleteTypeInfo`.
wrap_TypePluginCompleteTypeInfo ::
    Maybe (Ptr (FunPtr C_TypePluginCompleteTypeInfo)) ->
    TypePluginCompleteTypeInfo ->
    C_TypePluginCompleteTypeInfo
wrap_TypePluginCompleteTypeInfo :: Maybe (Ptr (FunPtr C_TypePluginCompleteTypeInfo))
-> TypePluginCompleteTypeInfo -> C_TypePluginCompleteTypeInfo
wrap_TypePluginCompleteTypeInfo Maybe (Ptr (FunPtr C_TypePluginCompleteTypeInfo))
funptrptr TypePluginCompleteTypeInfo
_cb Ptr TypePlugin
plugin CGType
gType Ptr TypeInfo
info Ptr TypeValueTable
valueTable = do
    TypePlugin
plugin' <- ((ManagedPtr TypePlugin -> TypePlugin)
-> Ptr TypePlugin -> IO TypePlugin
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr TypePlugin -> TypePlugin
GObject.TypePlugin.TypePlugin) Ptr TypePlugin
plugin
    let gType' :: GType
gType' = CGType -> GType
GType CGType
gType
    TypeInfo
info' <- ((ManagedPtr TypeInfo -> TypeInfo) -> Ptr TypeInfo -> IO TypeInfo
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr TypeInfo -> TypeInfo
GObject.TypeInfo.TypeInfo) Ptr TypeInfo
info
    TypeValueTable
valueTable' <- ((ManagedPtr TypeValueTable -> TypeValueTable)
-> Ptr TypeValueTable -> IO TypeValueTable
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr TypeValueTable -> TypeValueTable
GObject.TypeValueTable.TypeValueTable) Ptr TypeValueTable
valueTable
    TypePluginCompleteTypeInfo
_cb  TypePlugin
plugin' GType
gType' TypeInfo
info' TypeValueTable
valueTable'
    Maybe (Ptr (FunPtr C_TypePluginCompleteTypeInfo)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TypePluginCompleteTypeInfo))
funptrptr


-- callback TypePluginCompleteInterfaceInfo
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "plugin"
          , argType =
              TInterface Name { namespace = "GObject" , name = "TypePlugin" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText = Just "the #GTypePlugin" , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "instance_type"
          , argType = TBasicType TGType
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText =
                    Just
                      "the #GType of an instantiable type to which the interface\n is added"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "interface_type"
          , argType = TBasicType TGType
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText =
                    Just "the #GType of the interface whose info is completed"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "info"
          , argType =
              TInterface Name { namespace = "GObject" , name = "InterfaceInfo" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText = Just "the #GInterfaceInfo to fill in"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation
        { rawDocText =
            Just
              "The type of the @complete_interface_info function of #GTypePluginClass."
        , sinceVersion = Nothing
        }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_TypePluginCompleteInterfaceInfo =
    Ptr GObject.TypePlugin.TypePlugin ->
    CGType ->
    CGType ->
    Ptr GObject.InterfaceInfo.InterfaceInfo ->
    IO ()

-- Args: [ Arg
--           { argCName = "plugin"
--           , argType =
--               TInterface Name { namespace = "GObject" , name = "TypePlugin" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "the #GTypePlugin" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "instance_type"
--           , argType = TBasicType TGType
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "the #GType of an instantiable type to which the interface\n is added"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "interface_type"
--           , argType = TBasicType TGType
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "the #GType of the interface whose info is completed"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "info"
--           , argType =
--               TInterface Name { namespace = "GObject" , name = "InterfaceInfo" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "the #GInterfaceInfo to fill in"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_TypePluginCompleteInterfaceInfo :: FunPtr C_TypePluginCompleteInterfaceInfo -> C_TypePluginCompleteInterfaceInfo

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_TypePluginCompleteInterfaceInfo ::
    (B.CallStack.HasCallStack, MonadIO m, GObject.TypePlugin.IsTypePlugin a) =>
    FunPtr C_TypePluginCompleteInterfaceInfo
    -> a
    -- ^ /@plugin@/: the t'GI.GObject.Interfaces.TypePlugin.TypePlugin'
    -> GType
    -- ^ /@instanceType@/: the t'GType' of an instantiable type to which the interface
    --  is added
    -> GType
    -- ^ /@interfaceType@/: the t'GType' of the interface whose info is completed
    -> GObject.InterfaceInfo.InterfaceInfo
    -- ^ /@info@/: the t'GI.GObject.Structs.InterfaceInfo.InterfaceInfo' to fill in
    -> m ()
dynamic_TypePluginCompleteInterfaceInfo :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTypePlugin a) =>
FunPtr C_TypePluginCompleteInterfaceInfo
-> a -> GType -> GType -> InterfaceInfo -> m ()
dynamic_TypePluginCompleteInterfaceInfo FunPtr C_TypePluginCompleteInterfaceInfo
__funPtr a
plugin GType
instanceType GType
interfaceType InterfaceInfo
info = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr TypePlugin
plugin' <- a -> IO (Ptr TypePlugin)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
plugin
    let instanceType' :: CGType
instanceType' = GType -> CGType
gtypeToCGType GType
instanceType
    let interfaceType' :: CGType
interfaceType' = GType -> CGType
gtypeToCGType GType
interfaceType
    Ptr InterfaceInfo
info' <- InterfaceInfo -> IO (Ptr InterfaceInfo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr InterfaceInfo
info
    (FunPtr C_TypePluginCompleteInterfaceInfo
-> C_TypePluginCompleteInterfaceInfo
__dynamic_C_TypePluginCompleteInterfaceInfo FunPtr C_TypePluginCompleteInterfaceInfo
__funPtr) Ptr TypePlugin
plugin' CGType
instanceType' CGType
interfaceType' Ptr InterfaceInfo
info'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
plugin
    InterfaceInfo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr InterfaceInfo
info
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_TypePluginCompleteInterfaceInfo`.
foreign import ccall "wrapper"
    mk_TypePluginCompleteInterfaceInfo :: C_TypePluginCompleteInterfaceInfo -> IO (FunPtr C_TypePluginCompleteInterfaceInfo)

-- | The type of the /@completeInterfaceInfo@/ function of @/GTypePluginClass/@.
type TypePluginCompleteInterfaceInfo =
    GObject.TypePlugin.TypePlugin
    -- ^ /@plugin@/: the t'GI.GObject.Interfaces.TypePlugin.TypePlugin'
    -> GType
    -- ^ /@instanceType@/: the t'GType' of an instantiable type to which the interface
    --  is added
    -> GType
    -- ^ /@interfaceType@/: the t'GType' of the interface whose info is completed
    -> GObject.InterfaceInfo.InterfaceInfo
    -- ^ /@info@/: the t'GI.GObject.Structs.InterfaceInfo.InterfaceInfo' to fill in
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `TypePluginCompleteInterfaceInfo`@.
noTypePluginCompleteInterfaceInfo :: Maybe TypePluginCompleteInterfaceInfo
noTypePluginCompleteInterfaceInfo :: Maybe TypePluginCompleteInterfaceInfo
noTypePluginCompleteInterfaceInfo = Maybe TypePluginCompleteInterfaceInfo
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_TypePluginCompleteInterfaceInfo :: MonadIO m => TypePluginCompleteInterfaceInfo -> m (GClosure C_TypePluginCompleteInterfaceInfo)
genClosure_TypePluginCompleteInterfaceInfo :: forall (m :: * -> *).
MonadIO m =>
TypePluginCompleteInterfaceInfo
-> m (GClosure C_TypePluginCompleteInterfaceInfo)
genClosure_TypePluginCompleteInterfaceInfo TypePluginCompleteInterfaceInfo
cb = IO (GClosure C_TypePluginCompleteInterfaceInfo)
-> m (GClosure C_TypePluginCompleteInterfaceInfo)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TypePluginCompleteInterfaceInfo)
 -> m (GClosure C_TypePluginCompleteInterfaceInfo))
-> IO (GClosure C_TypePluginCompleteInterfaceInfo)
-> m (GClosure C_TypePluginCompleteInterfaceInfo)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_TypePluginCompleteInterfaceInfo
cb' = Maybe (Ptr (FunPtr C_TypePluginCompleteInterfaceInfo))
-> TypePluginCompleteInterfaceInfo
-> C_TypePluginCompleteInterfaceInfo
wrap_TypePluginCompleteInterfaceInfo Maybe (Ptr (FunPtr C_TypePluginCompleteInterfaceInfo))
forall a. Maybe a
Nothing TypePluginCompleteInterfaceInfo
cb
    C_TypePluginCompleteInterfaceInfo
-> IO (FunPtr C_TypePluginCompleteInterfaceInfo)
mk_TypePluginCompleteInterfaceInfo C_TypePluginCompleteInterfaceInfo
cb' IO (FunPtr C_TypePluginCompleteInterfaceInfo)
-> (FunPtr C_TypePluginCompleteInterfaceInfo
    -> IO (GClosure C_TypePluginCompleteInterfaceInfo))
-> IO (GClosure C_TypePluginCompleteInterfaceInfo)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TypePluginCompleteInterfaceInfo
-> IO (GClosure C_TypePluginCompleteInterfaceInfo)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `TypePluginCompleteInterfaceInfo` into a `C_TypePluginCompleteInterfaceInfo`.
wrap_TypePluginCompleteInterfaceInfo ::
    Maybe (Ptr (FunPtr C_TypePluginCompleteInterfaceInfo)) ->
    TypePluginCompleteInterfaceInfo ->
    C_TypePluginCompleteInterfaceInfo
wrap_TypePluginCompleteInterfaceInfo :: Maybe (Ptr (FunPtr C_TypePluginCompleteInterfaceInfo))
-> TypePluginCompleteInterfaceInfo
-> C_TypePluginCompleteInterfaceInfo
wrap_TypePluginCompleteInterfaceInfo Maybe (Ptr (FunPtr C_TypePluginCompleteInterfaceInfo))
funptrptr TypePluginCompleteInterfaceInfo
_cb Ptr TypePlugin
plugin CGType
instanceType CGType
interfaceType Ptr InterfaceInfo
info = do
    TypePlugin
plugin' <- ((ManagedPtr TypePlugin -> TypePlugin)
-> Ptr TypePlugin -> IO TypePlugin
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr TypePlugin -> TypePlugin
GObject.TypePlugin.TypePlugin) Ptr TypePlugin
plugin
    let instanceType' :: GType
instanceType' = CGType -> GType
GType CGType
instanceType
    let interfaceType' :: GType
interfaceType' = CGType -> GType
GType CGType
interfaceType
    InterfaceInfo
info' <- ((ManagedPtr InterfaceInfo -> InterfaceInfo)
-> Ptr InterfaceInfo -> IO InterfaceInfo
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr InterfaceInfo -> InterfaceInfo
GObject.InterfaceInfo.InterfaceInfo) Ptr InterfaceInfo
info
    TypePluginCompleteInterfaceInfo
_cb  TypePlugin
plugin' GType
instanceType' GType
interfaceType' InterfaceInfo
info'
    Maybe (Ptr (FunPtr C_TypePluginCompleteInterfaceInfo)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TypePluginCompleteInterfaceInfo))
funptrptr


-- callback TypeInterfaceCheckFunc
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "check_data"
          , argType = TBasicType TPtr
          , direction = DirectionIn
          , mayBeNull = True
          , argDoc =
              Documentation
                { rawDocText = Just "data passed to g_type_add_interface_check()"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "g_iface"
          , argType =
              TInterface Name { namespace = "GObject" , name = "TypeInterface" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText = Just "the interface that has been\n   initialized"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation
        { rawDocText =
            Just
              "A callback called after an interface vtable is initialized.\nSee g_type_add_interface_check()."
        , sinceVersion = Just "2.4"
        }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_TypeInterfaceCheckFunc =
    Ptr () ->
    Ptr GObject.TypeInterface.TypeInterface ->
    IO ()

-- Args: [ Arg
--           { argCName = "check_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "data passed to g_type_add_interface_check()"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "g_iface"
--           , argType =
--               TInterface Name { namespace = "GObject" , name = "TypeInterface" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "the interface that has been\n   initialized"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_TypeInterfaceCheckFunc :: FunPtr C_TypeInterfaceCheckFunc -> C_TypeInterfaceCheckFunc

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_TypeInterfaceCheckFunc ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    FunPtr C_TypeInterfaceCheckFunc
    -> Ptr ()
    -- ^ /@checkData@/: data passed to @/g_type_add_interface_check()/@
    -> GObject.TypeInterface.TypeInterface
    -- ^ /@gIface@/: the interface that has been
    --    initialized
    -> m ()
dynamic_TypeInterfaceCheckFunc :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_TypeInterfaceCheckFunc -> Ptr () -> TypeInterface -> m ()
dynamic_TypeInterfaceCheckFunc FunPtr C_TypeInterfaceCheckFunc
__funPtr Ptr ()
checkData TypeInterface
gIface = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr TypeInterface
gIface' <- TypeInterface -> IO (Ptr TypeInterface)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TypeInterface
gIface
    (FunPtr C_TypeInterfaceCheckFunc -> C_TypeInterfaceCheckFunc
__dynamic_C_TypeInterfaceCheckFunc FunPtr C_TypeInterfaceCheckFunc
__funPtr) Ptr ()
checkData Ptr TypeInterface
gIface'
    TypeInterface -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TypeInterface
gIface
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_TypeInterfaceCheckFunc`.
foreign import ccall "wrapper"
    mk_TypeInterfaceCheckFunc :: C_TypeInterfaceCheckFunc -> IO (FunPtr C_TypeInterfaceCheckFunc)

-- | A callback called after an interface vtable is initialized.
-- See @/g_type_add_interface_check()/@.
-- 
-- /Since: 2.4/
type TypeInterfaceCheckFunc =
    Ptr ()
    -- ^ /@checkData@/: data passed to @/g_type_add_interface_check()/@
    -> GObject.TypeInterface.TypeInterface
    -- ^ /@gIface@/: the interface that has been
    --    initialized
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `TypeInterfaceCheckFunc`@.
noTypeInterfaceCheckFunc :: Maybe TypeInterfaceCheckFunc
noTypeInterfaceCheckFunc :: Maybe TypeInterfaceCheckFunc
noTypeInterfaceCheckFunc = Maybe TypeInterfaceCheckFunc
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_TypeInterfaceCheckFunc :: MonadIO m => TypeInterfaceCheckFunc -> m (GClosure C_TypeInterfaceCheckFunc)
genClosure_TypeInterfaceCheckFunc :: forall (m :: * -> *).
MonadIO m =>
TypeInterfaceCheckFunc -> m (GClosure C_TypeInterfaceCheckFunc)
genClosure_TypeInterfaceCheckFunc TypeInterfaceCheckFunc
cb = IO (GClosure C_TypeInterfaceCheckFunc)
-> m (GClosure C_TypeInterfaceCheckFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TypeInterfaceCheckFunc)
 -> m (GClosure C_TypeInterfaceCheckFunc))
-> IO (GClosure C_TypeInterfaceCheckFunc)
-> m (GClosure C_TypeInterfaceCheckFunc)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_TypeInterfaceCheckFunc
cb' = Maybe (Ptr (FunPtr C_TypeInterfaceCheckFunc))
-> TypeInterfaceCheckFunc -> C_TypeInterfaceCheckFunc
wrap_TypeInterfaceCheckFunc Maybe (Ptr (FunPtr C_TypeInterfaceCheckFunc))
forall a. Maybe a
Nothing TypeInterfaceCheckFunc
cb
    C_TypeInterfaceCheckFunc -> IO (FunPtr C_TypeInterfaceCheckFunc)
mk_TypeInterfaceCheckFunc C_TypeInterfaceCheckFunc
cb' IO (FunPtr C_TypeInterfaceCheckFunc)
-> (FunPtr C_TypeInterfaceCheckFunc
    -> IO (GClosure C_TypeInterfaceCheckFunc))
-> IO (GClosure C_TypeInterfaceCheckFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TypeInterfaceCheckFunc
-> IO (GClosure C_TypeInterfaceCheckFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `TypeInterfaceCheckFunc` into a `C_TypeInterfaceCheckFunc`.
wrap_TypeInterfaceCheckFunc ::
    Maybe (Ptr (FunPtr C_TypeInterfaceCheckFunc)) ->
    TypeInterfaceCheckFunc ->
    C_TypeInterfaceCheckFunc
wrap_TypeInterfaceCheckFunc :: Maybe (Ptr (FunPtr C_TypeInterfaceCheckFunc))
-> TypeInterfaceCheckFunc -> C_TypeInterfaceCheckFunc
wrap_TypeInterfaceCheckFunc Maybe (Ptr (FunPtr C_TypeInterfaceCheckFunc))
funptrptr TypeInterfaceCheckFunc
_cb Ptr ()
checkData Ptr TypeInterface
gIface = do
    TypeInterface
gIface' <- ((ManagedPtr TypeInterface -> TypeInterface)
-> Ptr TypeInterface -> IO TypeInterface
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr TypeInterface -> TypeInterface
GObject.TypeInterface.TypeInterface) Ptr TypeInterface
gIface
    TypeInterfaceCheckFunc
_cb  Ptr ()
checkData TypeInterface
gIface'
    Maybe (Ptr (FunPtr C_TypeInterfaceCheckFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TypeInterfaceCheckFunc))
funptrptr


-- callback TypeClassCacheFunc
{- Callable
  { returnType = Just (TBasicType TBoolean)
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation
        { rawDocText =
            Just
              "%TRUE to stop further #GTypeClassCacheFuncs from being\n called, %FALSE to continue"
        , sinceVersion = Nothing
        }
  , args =
      [ Arg
          { argCName = "cache_data"
          , argType = TBasicType TPtr
          , direction = DirectionIn
          , mayBeNull = True
          , argDoc =
              Documentation
                { rawDocText =
                    Just
                      "data that was given to the g_type_add_class_cache_func() call"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "g_class"
          , argType =
              TInterface Name { namespace = "GObject" , name = "TypeClass" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText =
                    Just "The #GTypeClass structure which is\n   unreferenced"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation
        { rawDocText =
            Just
              "A callback function which is called when the reference count of a class\ndrops to zero. It may use g_type_class_ref() to prevent the class from\nbeing freed. You should not call g_type_class_unref() from a\n#GTypeClassCacheFunc function to prevent infinite recursion, use\ng_type_class_unref_uncached() instead.\n\nThe functions have to check the class id passed in to figure\nwhether they actually want to cache the class of this type, since all\nclasses are routed through the same #GTypeClassCacheFunc chain."
        , sinceVersion = Nothing
        }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_TypeClassCacheFunc =
    Ptr () ->
    Ptr GObject.TypeClass.TypeClass ->
    IO CInt

-- Args: [ Arg
--           { argCName = "cache_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "data that was given to the g_type_add_class_cache_func() call"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "g_class"
--           , argType =
--               TInterface Name { namespace = "GObject" , name = "TypeClass" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "The #GTypeClass structure which is\n   unreferenced"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_TypeClassCacheFunc :: FunPtr C_TypeClassCacheFunc -> C_TypeClassCacheFunc

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_TypeClassCacheFunc ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    FunPtr C_TypeClassCacheFunc
    -> Ptr ()
    -- ^ /@cacheData@/: data that was given to the @/g_type_add_class_cache_func()/@ call
    -> GObject.TypeClass.TypeClass
    -- ^ /@gClass@/: The t'GI.GObject.Structs.TypeClass.TypeClass' structure which is
    --    unreferenced
    -> m Bool
    -- ^ __Returns:__ 'P.True' to stop further @/GTypeClassCacheFuncs/@ from being
    --  called, 'P.False' to continue
dynamic_TypeClassCacheFunc :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_TypeClassCacheFunc -> Ptr () -> TypeClass -> m Bool
dynamic_TypeClassCacheFunc FunPtr C_TypeClassCacheFunc
__funPtr Ptr ()
cacheData TypeClass
gClass = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr TypeClass
gClass' <- TypeClass -> IO (Ptr TypeClass)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TypeClass
gClass
    CInt
result <- (FunPtr C_TypeClassCacheFunc -> C_TypeClassCacheFunc
__dynamic_C_TypeClassCacheFunc FunPtr C_TypeClassCacheFunc
__funPtr) Ptr ()
cacheData Ptr TypeClass
gClass'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
    TypeClass -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TypeClass
gClass
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

-- | Generate a function pointer callable from C code, from a `C_TypeClassCacheFunc`.
foreign import ccall "wrapper"
    mk_TypeClassCacheFunc :: C_TypeClassCacheFunc -> IO (FunPtr C_TypeClassCacheFunc)

-- | A callback function which is called when the reference count of a class
-- drops to zero. It may use 'GI.GObject.Functions.typeClassRef' to prevent the class from
-- being freed. You should not call 'GI.GObject.Structs.TypeClass.typeClassUnref' from a
-- t'GI.GObject.Callbacks.TypeClassCacheFunc' function to prevent infinite recursion, use
-- @/g_type_class_unref_uncached()/@ instead.
-- 
-- The functions have to check the class id passed in to figure
-- whether they actually want to cache the class of this type, since all
-- classes are routed through the same t'GI.GObject.Callbacks.TypeClassCacheFunc' chain.
type TypeClassCacheFunc =
    Ptr ()
    -- ^ /@cacheData@/: data that was given to the @/g_type_add_class_cache_func()/@ call
    -> GObject.TypeClass.TypeClass
    -- ^ /@gClass@/: The t'GI.GObject.Structs.TypeClass.TypeClass' structure which is
    --    unreferenced
    -> IO Bool
    -- ^ __Returns:__ 'P.True' to stop further @/GTypeClassCacheFuncs/@ from being
    --  called, 'P.False' to continue

-- | A convenience synonym for @`Nothing` :: `Maybe` `TypeClassCacheFunc`@.
noTypeClassCacheFunc :: Maybe TypeClassCacheFunc
noTypeClassCacheFunc :: Maybe TypeClassCacheFunc
noTypeClassCacheFunc = Maybe TypeClassCacheFunc
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_TypeClassCacheFunc :: MonadIO m => TypeClassCacheFunc -> m (GClosure C_TypeClassCacheFunc)
genClosure_TypeClassCacheFunc :: forall (m :: * -> *).
MonadIO m =>
TypeClassCacheFunc -> m (GClosure C_TypeClassCacheFunc)
genClosure_TypeClassCacheFunc TypeClassCacheFunc
cb = IO (GClosure C_TypeClassCacheFunc)
-> m (GClosure C_TypeClassCacheFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TypeClassCacheFunc)
 -> m (GClosure C_TypeClassCacheFunc))
-> IO (GClosure C_TypeClassCacheFunc)
-> m (GClosure C_TypeClassCacheFunc)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_TypeClassCacheFunc
cb' = Maybe (Ptr (FunPtr C_TypeClassCacheFunc))
-> TypeClassCacheFunc -> C_TypeClassCacheFunc
wrap_TypeClassCacheFunc Maybe (Ptr (FunPtr C_TypeClassCacheFunc))
forall a. Maybe a
Nothing TypeClassCacheFunc
cb
    C_TypeClassCacheFunc -> IO (FunPtr C_TypeClassCacheFunc)
mk_TypeClassCacheFunc C_TypeClassCacheFunc
cb' IO (FunPtr C_TypeClassCacheFunc)
-> (FunPtr C_TypeClassCacheFunc
    -> IO (GClosure C_TypeClassCacheFunc))
-> IO (GClosure C_TypeClassCacheFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TypeClassCacheFunc -> IO (GClosure C_TypeClassCacheFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `TypeClassCacheFunc` into a `C_TypeClassCacheFunc`.
wrap_TypeClassCacheFunc ::
    Maybe (Ptr (FunPtr C_TypeClassCacheFunc)) ->
    TypeClassCacheFunc ->
    C_TypeClassCacheFunc
wrap_TypeClassCacheFunc :: Maybe (Ptr (FunPtr C_TypeClassCacheFunc))
-> TypeClassCacheFunc -> C_TypeClassCacheFunc
wrap_TypeClassCacheFunc Maybe (Ptr (FunPtr C_TypeClassCacheFunc))
funptrptr TypeClassCacheFunc
_cb Ptr ()
cacheData Ptr TypeClass
gClass = do
    TypeClass
gClass' <- ((ManagedPtr TypeClass -> TypeClass)
-> Ptr TypeClass -> IO TypeClass
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr TypeClass -> TypeClass
GObject.TypeClass.TypeClass) Ptr TypeClass
gClass
    Bool
result <- TypeClassCacheFunc
_cb  Ptr ()
cacheData TypeClass
gClass'
    Maybe (Ptr (FunPtr C_TypeClassCacheFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_TypeClassCacheFunc))
funptrptr
    let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
    CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'


-- callback ToggleNotify
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "data"
          , argType = TBasicType TPtr
          , direction = DirectionIn
          , mayBeNull = True
          , argDoc =
              Documentation
                { rawDocText =
                    Just "Callback data passed to g_object_add_toggle_ref()"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "object"
          , argType =
              TInterface Name { namespace = "GObject" , name = "Object" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText =
                    Just "The object on which g_object_add_toggle_ref() was called."
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "is_last_ref"
          , argType = TBasicType TBoolean
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText =
                    Just
                      "%TRUE if the toggle reference is now the\n last reference to the object. %FALSE if the toggle\n reference was the last reference and there are now other\n references."
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation
        { rawDocText =
            Just
              "A callback function used for notification when the state\nof a toggle reference changes. See g_object_add_toggle_ref()."
        , sinceVersion = Nothing
        }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_ToggleNotify =
    Ptr () ->
    Ptr GObject.Object.Object ->
    CInt ->
    IO ()

-- Args: [ Arg
--           { argCName = "data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "Callback data passed to g_object_add_toggle_ref()"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "object"
--           , argType =
--               TInterface Name { namespace = "GObject" , name = "Object" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "The object on which g_object_add_toggle_ref() was called."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "is_last_ref"
--           , argType = TBasicType TBoolean
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "%TRUE if the toggle reference is now the\n last reference to the object. %FALSE if the toggle\n reference was the last reference and there are now other\n references."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_ToggleNotify :: FunPtr C_ToggleNotify -> C_ToggleNotify

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_ToggleNotify ::
    (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>
    FunPtr C_ToggleNotify
    -> Ptr ()
    -- ^ /@data@/: Callback data passed to @/g_object_add_toggle_ref()/@
    -> a
    -- ^ /@object@/: The object on which @/g_object_add_toggle_ref()/@ was called.
    -> Bool
    -- ^ /@isLastRef@/: 'P.True' if the toggle reference is now the
    --  last reference to the object. 'P.False' if the toggle
    --  reference was the last reference and there are now other
    --  references.
    -> m ()
dynamic_ToggleNotify :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
FunPtr C_ToggleNotify -> Ptr () -> a -> Bool -> m ()
dynamic_ToggleNotify FunPtr C_ToggleNotify
__funPtr Ptr ()
data_ a
object Bool
isLastRef = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
    let isLastRef' :: CInt
isLastRef' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
isLastRef
    (FunPtr C_ToggleNotify -> C_ToggleNotify
__dynamic_C_ToggleNotify FunPtr C_ToggleNotify
__funPtr) Ptr ()
data_ Ptr Object
object' CInt
isLastRef'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_ToggleNotify`.
foreign import ccall "wrapper"
    mk_ToggleNotify :: C_ToggleNotify -> IO (FunPtr C_ToggleNotify)

-- | A callback function used for notification when the state
-- of a toggle reference changes. See @/g_object_add_toggle_ref()/@.
type ToggleNotify =
    Ptr ()
    -- ^ /@data@/: Callback data passed to @/g_object_add_toggle_ref()/@
    -> GObject.Object.Object
    -- ^ /@object@/: The object on which @/g_object_add_toggle_ref()/@ was called.
    -> Bool
    -- ^ /@isLastRef@/: 'P.True' if the toggle reference is now the
    --  last reference to the object. 'P.False' if the toggle
    --  reference was the last reference and there are now other
    --  references.
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `ToggleNotify`@.
noToggleNotify :: Maybe ToggleNotify
noToggleNotify :: Maybe ToggleNotify
noToggleNotify = Maybe ToggleNotify
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_ToggleNotify :: MonadIO m => ToggleNotify -> m (GClosure C_ToggleNotify)
genClosure_ToggleNotify :: forall (m :: * -> *).
MonadIO m =>
ToggleNotify -> m (GClosure C_ToggleNotify)
genClosure_ToggleNotify ToggleNotify
cb = IO (GClosure C_ToggleNotify) -> m (GClosure C_ToggleNotify)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ToggleNotify) -> m (GClosure C_ToggleNotify))
-> IO (GClosure C_ToggleNotify) -> m (GClosure C_ToggleNotify)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_ToggleNotify
cb' = Maybe (Ptr (FunPtr C_ToggleNotify))
-> ToggleNotify -> C_ToggleNotify
wrap_ToggleNotify Maybe (Ptr (FunPtr C_ToggleNotify))
forall a. Maybe a
Nothing ToggleNotify
cb
    C_ToggleNotify -> IO (FunPtr C_ToggleNotify)
mk_ToggleNotify C_ToggleNotify
cb' IO (FunPtr C_ToggleNotify)
-> (FunPtr C_ToggleNotify -> IO (GClosure C_ToggleNotify))
-> IO (GClosure C_ToggleNotify)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ToggleNotify -> IO (GClosure C_ToggleNotify)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `ToggleNotify` into a `C_ToggleNotify`.
wrap_ToggleNotify ::
    Maybe (Ptr (FunPtr C_ToggleNotify)) ->
    ToggleNotify ->
    C_ToggleNotify
wrap_ToggleNotify :: Maybe (Ptr (FunPtr C_ToggleNotify))
-> ToggleNotify -> C_ToggleNotify
wrap_ToggleNotify Maybe (Ptr (FunPtr C_ToggleNotify))
funptrptr ToggleNotify
_cb Ptr ()
data_ Ptr Object
object CInt
isLastRef = do
    Object
object' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
object
    let isLastRef' :: Bool
isLastRef' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
isLastRef
    ToggleNotify
_cb  Ptr ()
data_ Object
object' Bool
isLastRef'
    Maybe (Ptr (FunPtr C_ToggleNotify)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ToggleNotify))
funptrptr


-- callback SignalEmissionHook
{- Callable
  { returnType = Just (TBasicType TBoolean)
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation
        { rawDocText =
            Just
              "whether it wants to stay connected. If it returns %FALSE, the signal\n hook is disconnected (and destroyed)."
        , sinceVersion = Nothing
        }
  , args =
      [ Arg
          { argCName = "ihint"
          , argType =
              TInterface
                Name { namespace = "GObject" , name = "SignalInvocationHint" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText =
                    Just "Signal invocation hint, see #GSignalInvocationHint."
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "n_param_values"
          , argType = TBasicType TUInt
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText =
                    Just
                      "the number of parameters to the function, including\n the instance on which the signal was emitted."
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "param_values"
          , argType = TCArray False (-1) 1 TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText =
                    Just
                      "the instance on which\n the signal was emitted, followed by the parameters of the emission."
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "data"
          , argType = TBasicType TPtr
          , direction = DirectionIn
          , mayBeNull = True
          , argDoc =
              Documentation
                { rawDocText = Just "user data associated with the hook."
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation
        { rawDocText =
            Just
              "A simple function pointer to get invoked when the signal is emitted. This\nallows you to tie a hook to the signal type, so that it will trap all\nemissions of that signal, from any object.\n\nYou may not attach these to signals created with the #G_SIGNAL_NO_HOOKS flag."
        , sinceVersion = Nothing
        }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_SignalEmissionHook =
    Ptr GObject.SignalInvocationHint.SignalInvocationHint ->
    Word32 ->
    Ptr B.GValue.GValue ->
    Ptr () ->
    IO CInt

-- Args: [ Arg
--           { argCName = "ihint"
--           , argType =
--               TInterface
--                 Name { namespace = "GObject" , name = "SignalInvocationHint" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "Signal invocation hint, see #GSignalInvocationHint."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "n_param_values"
--           , argType = TBasicType TUInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "the number of parameters to the function, including\n the instance on which the signal was emitted."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "param_values"
--           , argType = TCArray False (-1) 1 TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "the instance on which\n the signal was emitted, followed by the parameters of the emission."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "user data associated with the hook."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: [ Arg
--              { argCName = "n_param_values"
--              , argType = TBasicType TUInt
--              , direction = DirectionIn
--              , mayBeNull = False
--              , argDoc =
--                  Documentation
--                    { rawDocText =
--                        Just
--                          "the number of parameters to the function, including\n the instance on which the signal was emitted."
--                    , sinceVersion = Nothing
--                    }
--              , argScope = ScopeTypeInvalid
--              , argClosure = -1
--              , argDestroy = -1
--              , argCallerAllocates = False
--              , transfer = TransferNothing
--              }
--          ]
-- returnType: Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_SignalEmissionHook :: FunPtr C_SignalEmissionHook -> C_SignalEmissionHook

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_SignalEmissionHook ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    FunPtr C_SignalEmissionHook
    -> GObject.SignalInvocationHint.SignalInvocationHint
    -- ^ /@ihint@/: Signal invocation hint, see t'GI.GObject.Structs.SignalInvocationHint.SignalInvocationHint'.
    -> [GValue]
    -- ^ /@paramValues@/: the instance on which
    --  the signal was emitted, followed by the parameters of the emission.
    -> Ptr ()
    -- ^ /@data@/: user data associated with the hook.
    -> m Bool
    -- ^ __Returns:__ whether it wants to stay connected. If it returns 'P.False', the signal
    --  hook is disconnected (and destroyed).
dynamic_SignalEmissionHook :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_SignalEmissionHook
-> SignalInvocationHint -> [GValue] -> Ptr () -> m Bool
dynamic_SignalEmissionHook FunPtr C_SignalEmissionHook
__funPtr SignalInvocationHint
ihint [GValue]
paramValues Ptr ()
data_ = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    let nParamValues :: Word32
nParamValues = Int -> Word32
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Word32) -> Int -> Word32
forall a b. (a -> b) -> a -> b
$ [GValue] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
P.length [GValue]
paramValues
    Ptr SignalInvocationHint
ihint' <- SignalInvocationHint -> IO (Ptr SignalInvocationHint)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SignalInvocationHint
ihint
    Ptr GValue
paramValues' <- [GValue] -> IO (Ptr GValue)
B.GValue.packGValueArray [GValue]
paramValues
    CInt
result <- (FunPtr C_SignalEmissionHook -> C_SignalEmissionHook
__dynamic_C_SignalEmissionHook FunPtr C_SignalEmissionHook
__funPtr) Ptr SignalInvocationHint
ihint' Word32
nParamValues Ptr GValue
paramValues' Ptr ()
data_
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
    SignalInvocationHint -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SignalInvocationHint
ihint
    (GValue -> IO ()) -> [GValue] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [GValue]
paramValues
    C_TypeValueTableValueInitFieldCallback
forall a. Ptr a -> IO ()
freeMem Ptr GValue
paramValues'
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

-- | Generate a function pointer callable from C code, from a `C_SignalEmissionHook`.
foreign import ccall "wrapper"
    mk_SignalEmissionHook :: C_SignalEmissionHook -> IO (FunPtr C_SignalEmissionHook)

-- | A simple function pointer to get invoked when the signal is emitted. This
-- allows you to tie a hook to the signal type, so that it will trap all
-- emissions of that signal, from any object.
-- 
-- You may not attach these to signals created with the @/G_SIGNAL_NO_HOOKS/@ flag.
type SignalEmissionHook =
    GObject.SignalInvocationHint.SignalInvocationHint
    -- ^ /@ihint@/: Signal invocation hint, see t'GI.GObject.Structs.SignalInvocationHint.SignalInvocationHint'.
    -> [GValue]
    -- ^ /@paramValues@/: the instance on which
    --  the signal was emitted, followed by the parameters of the emission.
    -> Ptr ()
    -- ^ /@data@/: user data associated with the hook.
    -> IO Bool
    -- ^ __Returns:__ whether it wants to stay connected. If it returns 'P.False', the signal
    --  hook is disconnected (and destroyed).

-- | A convenience synonym for @`Nothing` :: `Maybe` `SignalEmissionHook`@.
noSignalEmissionHook :: Maybe SignalEmissionHook
noSignalEmissionHook :: Maybe SignalEmissionHook
noSignalEmissionHook = Maybe SignalEmissionHook
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_SignalEmissionHook :: MonadIO m => SignalEmissionHook -> m (GClosure C_SignalEmissionHook)
genClosure_SignalEmissionHook :: forall (m :: * -> *).
MonadIO m =>
SignalEmissionHook -> m (GClosure C_SignalEmissionHook)
genClosure_SignalEmissionHook SignalEmissionHook
cb = IO (GClosure C_SignalEmissionHook)
-> m (GClosure C_SignalEmissionHook)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_SignalEmissionHook)
 -> m (GClosure C_SignalEmissionHook))
-> IO (GClosure C_SignalEmissionHook)
-> m (GClosure C_SignalEmissionHook)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_SignalEmissionHook
cb' = Maybe (Ptr (FunPtr C_SignalEmissionHook))
-> SignalEmissionHook -> C_SignalEmissionHook
wrap_SignalEmissionHook Maybe (Ptr (FunPtr C_SignalEmissionHook))
forall a. Maybe a
Nothing SignalEmissionHook
cb
    C_SignalEmissionHook -> IO (FunPtr C_SignalEmissionHook)
mk_SignalEmissionHook C_SignalEmissionHook
cb' IO (FunPtr C_SignalEmissionHook)
-> (FunPtr C_SignalEmissionHook
    -> IO (GClosure C_SignalEmissionHook))
-> IO (GClosure C_SignalEmissionHook)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_SignalEmissionHook -> IO (GClosure C_SignalEmissionHook)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `SignalEmissionHook` into a `C_SignalEmissionHook`.
wrap_SignalEmissionHook ::
    Maybe (Ptr (FunPtr C_SignalEmissionHook)) ->
    SignalEmissionHook ->
    C_SignalEmissionHook
wrap_SignalEmissionHook :: Maybe (Ptr (FunPtr C_SignalEmissionHook))
-> SignalEmissionHook -> C_SignalEmissionHook
wrap_SignalEmissionHook Maybe (Ptr (FunPtr C_SignalEmissionHook))
funptrptr SignalEmissionHook
_cb Ptr SignalInvocationHint
ihint Word32
nParamValues Ptr GValue
paramValues Ptr ()
data_ = do
    SignalInvocationHint
ihint' <- ((ManagedPtr SignalInvocationHint -> SignalInvocationHint)
-> Ptr SignalInvocationHint -> IO SignalInvocationHint
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr SignalInvocationHint -> SignalInvocationHint
GObject.SignalInvocationHint.SignalInvocationHint) Ptr SignalInvocationHint
ihint
    [GValue]
paramValues' <- (Word32 -> Ptr GValue -> IO [GValue]
forall a. Integral a => a -> Ptr GValue -> IO [GValue]
B.GValue.unpackGValueArrayWithLength Word32
nParamValues) Ptr GValue
paramValues
    Bool
result <- SignalEmissionHook
_cb  SignalInvocationHint
ihint' [GValue]
paramValues' Ptr ()
data_
    Maybe (Ptr (FunPtr C_SignalEmissionHook)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_SignalEmissionHook))
funptrptr
    let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
    CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'


-- callback SignalAccumulator
{- Callable
  { returnType = Just (TBasicType TBoolean)
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation
        { rawDocText =
            Just
              "The accumulator function returns whether the signal emission\n should be aborted. Returning %FALSE means to abort the\n current emission and %TRUE is returned for continuation."
        , sinceVersion = Nothing
        }
  , args =
      [ Arg
          { argCName = "ihint"
          , argType =
              TInterface
                Name { namespace = "GObject" , name = "SignalInvocationHint" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText =
                    Just "Signal invocation hint, see #GSignalInvocationHint."
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "return_accu"
          , argType = TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText =
                    Just
                      "Accumulator to collect callback return values in, this\n is the return value of the current signal emission."
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "handler_return"
          , argType = TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText =
                    Just "A #GValue holding the return value of the signal handler."
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "data"
          , argType = TBasicType TPtr
          , direction = DirectionIn
          , mayBeNull = True
          , argDoc =
              Documentation
                { rawDocText =
                    Just "Callback data that was specified when creating the signal."
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation
        { rawDocText =
            Just
              "The signal accumulator is a special callback function that can be used\nto collect return values of the various callbacks that are called\nduring a signal emission. The signal accumulator is specified at signal\ncreation time, if it is left %NULL, no accumulation of callback return\nvalues is performed. The return value of signal emissions is then the\nvalue returned by the last callback."
        , sinceVersion = Nothing
        }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_SignalAccumulator =
    Ptr GObject.SignalInvocationHint.SignalInvocationHint ->
    Ptr GValue ->
    Ptr GValue ->
    Ptr () ->
    IO CInt

-- Args: [ Arg
--           { argCName = "ihint"
--           , argType =
--               TInterface
--                 Name { namespace = "GObject" , name = "SignalInvocationHint" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "Signal invocation hint, see #GSignalInvocationHint."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "return_accu"
--           , argType = TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "Accumulator to collect callback return values in, this\n is the return value of the current signal emission."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "handler_return"
--           , argType = TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "A #GValue holding the return value of the signal handler."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "Callback data that was specified when creating the signal."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_SignalAccumulator :: FunPtr C_SignalAccumulator -> C_SignalAccumulator

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_SignalAccumulator ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    FunPtr C_SignalAccumulator
    -> GObject.SignalInvocationHint.SignalInvocationHint
    -- ^ /@ihint@/: Signal invocation hint, see t'GI.GObject.Structs.SignalInvocationHint.SignalInvocationHint'.
    -> GValue
    -- ^ /@returnAccu@/: Accumulator to collect callback return values in, this
    --  is the return value of the current signal emission.
    -> GValue
    -- ^ /@handlerReturn@/: A t'GI.GObject.Structs.Value.Value' holding the return value of the signal handler.
    -> Ptr ()
    -- ^ /@data@/: Callback data that was specified when creating the signal.
    -> m Bool
    -- ^ __Returns:__ The accumulator function returns whether the signal emission
    --  should be aborted. Returning 'P.False' means to abort the
    --  current emission and 'P.True' is returned for continuation.
dynamic_SignalAccumulator :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_SignalAccumulator
-> SignalInvocationHint -> GValue -> GValue -> Ptr () -> m Bool
dynamic_SignalAccumulator FunPtr C_SignalAccumulator
__funPtr SignalInvocationHint
ihint GValue
returnAccu GValue
handlerReturn Ptr ()
data_ = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr SignalInvocationHint
ihint' <- SignalInvocationHint -> IO (Ptr SignalInvocationHint)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SignalInvocationHint
ihint
    Ptr GValue
returnAccu' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
returnAccu
    Ptr GValue
handlerReturn' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
handlerReturn
    CInt
result <- (FunPtr C_SignalAccumulator -> C_SignalAccumulator
__dynamic_C_SignalAccumulator FunPtr C_SignalAccumulator
__funPtr) Ptr SignalInvocationHint
ihint' Ptr GValue
returnAccu' Ptr GValue
handlerReturn' Ptr ()
data_
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
    SignalInvocationHint -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SignalInvocationHint
ihint
    GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
returnAccu
    GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
handlerReturn
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

-- | Generate a function pointer callable from C code, from a `C_SignalAccumulator`.
foreign import ccall "wrapper"
    mk_SignalAccumulator :: C_SignalAccumulator -> IO (FunPtr C_SignalAccumulator)

-- | The signal accumulator is a special callback function that can be used
-- to collect return values of the various callbacks that are called
-- during a signal emission. The signal accumulator is specified at signal
-- creation time, if it is left 'P.Nothing', no accumulation of callback return
-- values is performed. The return value of signal emissions is then the
-- value returned by the last callback.
type SignalAccumulator =
    GObject.SignalInvocationHint.SignalInvocationHint
    -- ^ /@ihint@/: Signal invocation hint, see t'GI.GObject.Structs.SignalInvocationHint.SignalInvocationHint'.
    -> GValue
    -- ^ /@returnAccu@/: Accumulator to collect callback return values in, this
    --  is the return value of the current signal emission.
    -> GValue
    -- ^ /@handlerReturn@/: A t'GI.GObject.Structs.Value.Value' holding the return value of the signal handler.
    -> Ptr ()
    -- ^ /@data@/: Callback data that was specified when creating the signal.
    -> IO Bool
    -- ^ __Returns:__ The accumulator function returns whether the signal emission
    --  should be aborted. Returning 'P.False' means to abort the
    --  current emission and 'P.True' is returned for continuation.

-- | A convenience synonym for @`Nothing` :: `Maybe` `SignalAccumulator`@.
noSignalAccumulator :: Maybe SignalAccumulator
noSignalAccumulator :: Maybe SignalAccumulator
noSignalAccumulator = Maybe SignalAccumulator
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_SignalAccumulator :: MonadIO m => SignalAccumulator -> m (GClosure C_SignalAccumulator)
genClosure_SignalAccumulator :: forall (m :: * -> *).
MonadIO m =>
SignalAccumulator -> m (GClosure C_SignalAccumulator)
genClosure_SignalAccumulator SignalAccumulator
cb = IO (GClosure C_SignalAccumulator)
-> m (GClosure C_SignalAccumulator)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_SignalAccumulator)
 -> m (GClosure C_SignalAccumulator))
-> IO (GClosure C_SignalAccumulator)
-> m (GClosure C_SignalAccumulator)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_SignalAccumulator
cb' = Maybe (Ptr (FunPtr C_SignalAccumulator))
-> SignalAccumulator -> C_SignalAccumulator
wrap_SignalAccumulator Maybe (Ptr (FunPtr C_SignalAccumulator))
forall a. Maybe a
Nothing SignalAccumulator
cb
    C_SignalAccumulator -> IO (FunPtr C_SignalAccumulator)
mk_SignalAccumulator C_SignalAccumulator
cb' IO (FunPtr C_SignalAccumulator)
-> (FunPtr C_SignalAccumulator
    -> IO (GClosure C_SignalAccumulator))
-> IO (GClosure C_SignalAccumulator)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_SignalAccumulator -> IO (GClosure C_SignalAccumulator)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `SignalAccumulator` into a `C_SignalAccumulator`.
wrap_SignalAccumulator ::
    Maybe (Ptr (FunPtr C_SignalAccumulator)) ->
    SignalAccumulator ->
    C_SignalAccumulator
wrap_SignalAccumulator :: Maybe (Ptr (FunPtr C_SignalAccumulator))
-> SignalAccumulator -> C_SignalAccumulator
wrap_SignalAccumulator Maybe (Ptr (FunPtr C_SignalAccumulator))
funptrptr SignalAccumulator
_cb Ptr SignalInvocationHint
ihint Ptr GValue
returnAccu Ptr GValue
handlerReturn Ptr ()
data_ = do
    SignalInvocationHint
ihint' <- ((ManagedPtr SignalInvocationHint -> SignalInvocationHint)
-> Ptr SignalInvocationHint -> IO SignalInvocationHint
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr SignalInvocationHint -> SignalInvocationHint
GObject.SignalInvocationHint.SignalInvocationHint) Ptr SignalInvocationHint
ihint
    GValue
returnAccu' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
returnAccu
    GValue
handlerReturn' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
handlerReturn
    Bool
result <- SignalAccumulator
_cb  SignalInvocationHint
ihint' GValue
returnAccu' GValue
handlerReturn' Ptr ()
data_
    Maybe (Ptr (FunPtr C_SignalAccumulator)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_SignalAccumulator))
funptrptr
    let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
    CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'


-- callback ParamSpecTypeInfoValuesCmpFieldCallback
{- Callable
  { returnType = Just (TBasicType TInt)
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "pspec"
          , argType = TParamSpec
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "value1"
          , argType = TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "value2"
          , argType = TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_ParamSpecTypeInfoValuesCmpFieldCallback =
    Ptr GParamSpec ->
    Ptr GValue ->
    Ptr GValue ->
    IO Int32

-- Args: [ Arg
--           { argCName = "pspec"
--           , argType = TParamSpec
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "value1"
--           , argType = TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "value2"
--           , argType = TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TInt)
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_ParamSpecTypeInfoValuesCmpFieldCallback :: FunPtr C_ParamSpecTypeInfoValuesCmpFieldCallback -> C_ParamSpecTypeInfoValuesCmpFieldCallback

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_ParamSpecTypeInfoValuesCmpFieldCallback ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    FunPtr C_ParamSpecTypeInfoValuesCmpFieldCallback
    -> GParamSpec
    -> GValue
    -> GValue
    -> m Int32
dynamic_ParamSpecTypeInfoValuesCmpFieldCallback :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_ParamSpecTypeInfoValuesCmpFieldCallback
-> GParamSpec -> GValue -> GValue -> m Int32
dynamic_ParamSpecTypeInfoValuesCmpFieldCallback FunPtr C_ParamSpecTypeInfoValuesCmpFieldCallback
__funPtr GParamSpec
pspec GValue
value1 GValue
value2 = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
    Ptr GParamSpec
pspec' <- GParamSpec -> IO (Ptr GParamSpec)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GParamSpec
pspec
    Ptr GValue
value1' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value1
    Ptr GValue
value2' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value2
    Int32
result <- (FunPtr C_ParamSpecTypeInfoValuesCmpFieldCallback
-> C_ParamSpecTypeInfoValuesCmpFieldCallback
__dynamic_C_ParamSpecTypeInfoValuesCmpFieldCallback FunPtr C_ParamSpecTypeInfoValuesCmpFieldCallback
__funPtr) Ptr GParamSpec
pspec' Ptr GValue
value1' Ptr GValue
value2'
    GParamSpec -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GParamSpec
pspec
    GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value1
    GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value2
    Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result

-- | Generate a function pointer callable from C code, from a `C_ParamSpecTypeInfoValuesCmpFieldCallback`.
foreign import ccall "wrapper"
    mk_ParamSpecTypeInfoValuesCmpFieldCallback :: C_ParamSpecTypeInfoValuesCmpFieldCallback -> IO (FunPtr C_ParamSpecTypeInfoValuesCmpFieldCallback)

-- | /No description available in the introspection data./
type ParamSpecTypeInfoValuesCmpFieldCallback =
    GParamSpec
    -> GValue
    -> GValue
    -> IO Int32

-- | A convenience synonym for @`Nothing` :: `Maybe` `ParamSpecTypeInfoValuesCmpFieldCallback`@.
noParamSpecTypeInfoValuesCmpFieldCallback :: Maybe ParamSpecTypeInfoValuesCmpFieldCallback
noParamSpecTypeInfoValuesCmpFieldCallback :: Maybe ParamSpecTypeInfoValuesCmpFieldCallback
noParamSpecTypeInfoValuesCmpFieldCallback = Maybe ParamSpecTypeInfoValuesCmpFieldCallback
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_ParamSpecTypeInfoValuesCmpFieldCallback :: MonadIO m => ParamSpecTypeInfoValuesCmpFieldCallback -> m (GClosure C_ParamSpecTypeInfoValuesCmpFieldCallback)
genClosure_ParamSpecTypeInfoValuesCmpFieldCallback :: forall (m :: * -> *).
MonadIO m =>
ParamSpecTypeInfoValuesCmpFieldCallback
-> m (GClosure C_ParamSpecTypeInfoValuesCmpFieldCallback)
genClosure_ParamSpecTypeInfoValuesCmpFieldCallback ParamSpecTypeInfoValuesCmpFieldCallback
cb = IO (GClosure C_ParamSpecTypeInfoValuesCmpFieldCallback)
-> m (GClosure C_ParamSpecTypeInfoValuesCmpFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ParamSpecTypeInfoValuesCmpFieldCallback)
 -> m (GClosure C_ParamSpecTypeInfoValuesCmpFieldCallback))
-> IO (GClosure C_ParamSpecTypeInfoValuesCmpFieldCallback)
-> m (GClosure C_ParamSpecTypeInfoValuesCmpFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_ParamSpecTypeInfoValuesCmpFieldCallback
cb' = Maybe (Ptr (FunPtr C_ParamSpecTypeInfoValuesCmpFieldCallback))
-> ParamSpecTypeInfoValuesCmpFieldCallback
-> C_ParamSpecTypeInfoValuesCmpFieldCallback
wrap_ParamSpecTypeInfoValuesCmpFieldCallback Maybe (Ptr (FunPtr C_ParamSpecTypeInfoValuesCmpFieldCallback))
forall a. Maybe a
Nothing ParamSpecTypeInfoValuesCmpFieldCallback
cb
    C_ParamSpecTypeInfoValuesCmpFieldCallback
-> IO (FunPtr C_ParamSpecTypeInfoValuesCmpFieldCallback)
mk_ParamSpecTypeInfoValuesCmpFieldCallback C_ParamSpecTypeInfoValuesCmpFieldCallback
cb' IO (FunPtr C_ParamSpecTypeInfoValuesCmpFieldCallback)
-> (FunPtr C_ParamSpecTypeInfoValuesCmpFieldCallback
    -> IO (GClosure C_ParamSpecTypeInfoValuesCmpFieldCallback))
-> IO (GClosure C_ParamSpecTypeInfoValuesCmpFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ParamSpecTypeInfoValuesCmpFieldCallback
-> IO (GClosure C_ParamSpecTypeInfoValuesCmpFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `ParamSpecTypeInfoValuesCmpFieldCallback` into a `C_ParamSpecTypeInfoValuesCmpFieldCallback`.
wrap_ParamSpecTypeInfoValuesCmpFieldCallback ::
    Maybe (Ptr (FunPtr C_ParamSpecTypeInfoValuesCmpFieldCallback)) ->
    ParamSpecTypeInfoValuesCmpFieldCallback ->
    C_ParamSpecTypeInfoValuesCmpFieldCallback
wrap_ParamSpecTypeInfoValuesCmpFieldCallback :: Maybe (Ptr (FunPtr C_ParamSpecTypeInfoValuesCmpFieldCallback))
-> ParamSpecTypeInfoValuesCmpFieldCallback
-> C_ParamSpecTypeInfoValuesCmpFieldCallback
wrap_ParamSpecTypeInfoValuesCmpFieldCallback Maybe (Ptr (FunPtr C_ParamSpecTypeInfoValuesCmpFieldCallback))
funptrptr ParamSpecTypeInfoValuesCmpFieldCallback
_cb Ptr GParamSpec
pspec Ptr GValue
value1 Ptr GValue
value2 = do
    GParamSpec
pspec' <- Ptr GParamSpec -> IO GParamSpec
B.GParamSpec.newGParamSpecFromPtr Ptr GParamSpec
pspec
    GValue
value1' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
value1
    GValue
value2' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
value2
    Int32
result <- ParamSpecTypeInfoValuesCmpFieldCallback
_cb  GParamSpec
pspec' GValue
value1' GValue
value2'
    Maybe (Ptr (FunPtr C_ParamSpecTypeInfoValuesCmpFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ParamSpecTypeInfoValuesCmpFieldCallback))
funptrptr
    Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result


-- callback ParamSpecTypeInfoValueValidateFieldCallback
{- Callable
  { returnType = Just (TBasicType TBoolean)
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "pspec"
          , argType = TParamSpec
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "value"
          , argType = TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_ParamSpecTypeInfoValueValidateFieldCallback =
    Ptr GParamSpec ->
    Ptr GValue ->
    IO CInt

-- Args: [ Arg
--           { argCName = "pspec"
--           , argType = TParamSpec
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "value"
--           , argType = TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_ParamSpecTypeInfoValueValidateFieldCallback :: FunPtr C_ParamSpecTypeInfoValueValidateFieldCallback -> C_ParamSpecTypeInfoValueValidateFieldCallback

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_ParamSpecTypeInfoValueValidateFieldCallback ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    FunPtr C_ParamSpecTypeInfoValueValidateFieldCallback
    -> GParamSpec
    -> GValue
    -> m Bool
dynamic_ParamSpecTypeInfoValueValidateFieldCallback :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_ParamSpecTypeInfoValueValidateFieldCallback
-> GParamSpec -> GValue -> m Bool
dynamic_ParamSpecTypeInfoValueValidateFieldCallback FunPtr C_ParamSpecTypeInfoValueValidateFieldCallback
__funPtr GParamSpec
pspec GValue
value = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr GParamSpec
pspec' <- GParamSpec -> IO (Ptr GParamSpec)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GParamSpec
pspec
    Ptr GValue
value' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
    CInt
result <- (FunPtr C_ParamSpecTypeInfoValueValidateFieldCallback
-> C_ParamSpecTypeInfoValueValidateFieldCallback
__dynamic_C_ParamSpecTypeInfoValueValidateFieldCallback FunPtr C_ParamSpecTypeInfoValueValidateFieldCallback
__funPtr) Ptr GParamSpec
pspec' Ptr GValue
value'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
    GParamSpec -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GParamSpec
pspec
    GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

-- | Generate a function pointer callable from C code, from a `C_ParamSpecTypeInfoValueValidateFieldCallback`.
foreign import ccall "wrapper"
    mk_ParamSpecTypeInfoValueValidateFieldCallback :: C_ParamSpecTypeInfoValueValidateFieldCallback -> IO (FunPtr C_ParamSpecTypeInfoValueValidateFieldCallback)

-- | /No description available in the introspection data./
type ParamSpecTypeInfoValueValidateFieldCallback =
    GParamSpec
    -> GValue
    -> IO Bool

-- | A convenience synonym for @`Nothing` :: `Maybe` `ParamSpecTypeInfoValueValidateFieldCallback`@.
noParamSpecTypeInfoValueValidateFieldCallback :: Maybe ParamSpecTypeInfoValueValidateFieldCallback
noParamSpecTypeInfoValueValidateFieldCallback :: Maybe ParamSpecTypeInfoValueValidateFieldCallback
noParamSpecTypeInfoValueValidateFieldCallback = Maybe ParamSpecTypeInfoValueValidateFieldCallback
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_ParamSpecTypeInfoValueValidateFieldCallback :: MonadIO m => ParamSpecTypeInfoValueValidateFieldCallback -> m (GClosure C_ParamSpecTypeInfoValueValidateFieldCallback)
genClosure_ParamSpecTypeInfoValueValidateFieldCallback :: forall (m :: * -> *).
MonadIO m =>
ParamSpecTypeInfoValueValidateFieldCallback
-> m (GClosure C_ParamSpecTypeInfoValueValidateFieldCallback)
genClosure_ParamSpecTypeInfoValueValidateFieldCallback ParamSpecTypeInfoValueValidateFieldCallback
cb = IO (GClosure C_ParamSpecTypeInfoValueValidateFieldCallback)
-> m (GClosure C_ParamSpecTypeInfoValueValidateFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ParamSpecTypeInfoValueValidateFieldCallback)
 -> m (GClosure C_ParamSpecTypeInfoValueValidateFieldCallback))
-> IO (GClosure C_ParamSpecTypeInfoValueValidateFieldCallback)
-> m (GClosure C_ParamSpecTypeInfoValueValidateFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_ParamSpecTypeInfoValueValidateFieldCallback
cb' = Maybe (Ptr (FunPtr C_ParamSpecTypeInfoValueValidateFieldCallback))
-> ParamSpecTypeInfoValueValidateFieldCallback
-> C_ParamSpecTypeInfoValueValidateFieldCallback
wrap_ParamSpecTypeInfoValueValidateFieldCallback Maybe (Ptr (FunPtr C_ParamSpecTypeInfoValueValidateFieldCallback))
forall a. Maybe a
Nothing ParamSpecTypeInfoValueValidateFieldCallback
cb
    C_ParamSpecTypeInfoValueValidateFieldCallback
-> IO (FunPtr C_ParamSpecTypeInfoValueValidateFieldCallback)
mk_ParamSpecTypeInfoValueValidateFieldCallback C_ParamSpecTypeInfoValueValidateFieldCallback
cb' IO (FunPtr C_ParamSpecTypeInfoValueValidateFieldCallback)
-> (FunPtr C_ParamSpecTypeInfoValueValidateFieldCallback
    -> IO (GClosure C_ParamSpecTypeInfoValueValidateFieldCallback))
-> IO (GClosure C_ParamSpecTypeInfoValueValidateFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ParamSpecTypeInfoValueValidateFieldCallback
-> IO (GClosure C_ParamSpecTypeInfoValueValidateFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `ParamSpecTypeInfoValueValidateFieldCallback` into a `C_ParamSpecTypeInfoValueValidateFieldCallback`.
wrap_ParamSpecTypeInfoValueValidateFieldCallback ::
    Maybe (Ptr (FunPtr C_ParamSpecTypeInfoValueValidateFieldCallback)) ->
    ParamSpecTypeInfoValueValidateFieldCallback ->
    C_ParamSpecTypeInfoValueValidateFieldCallback
wrap_ParamSpecTypeInfoValueValidateFieldCallback :: Maybe (Ptr (FunPtr C_ParamSpecTypeInfoValueValidateFieldCallback))
-> ParamSpecTypeInfoValueValidateFieldCallback
-> C_ParamSpecTypeInfoValueValidateFieldCallback
wrap_ParamSpecTypeInfoValueValidateFieldCallback Maybe (Ptr (FunPtr C_ParamSpecTypeInfoValueValidateFieldCallback))
funptrptr ParamSpecTypeInfoValueValidateFieldCallback
_cb Ptr GParamSpec
pspec Ptr GValue
value = do
    GParamSpec
pspec' <- Ptr GParamSpec -> IO GParamSpec
B.GParamSpec.newGParamSpecFromPtr Ptr GParamSpec
pspec
    GValue
value' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
value
    Bool
result <- ParamSpecTypeInfoValueValidateFieldCallback
_cb  GParamSpec
pspec' GValue
value'
    Maybe (Ptr (FunPtr C_ParamSpecTypeInfoValueValidateFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ParamSpecTypeInfoValueValidateFieldCallback))
funptrptr
    let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
    CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'


-- callback ParamSpecTypeInfoValueSetDefaultFieldCallback
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "pspec"
          , argType = TParamSpec
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "value"
          , argType = TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_ParamSpecTypeInfoValueSetDefaultFieldCallback =
    Ptr GParamSpec ->
    Ptr GValue ->
    IO ()

-- Args: [ Arg
--           { argCName = "pspec"
--           , argType = TParamSpec
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "value"
--           , argType = TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_ParamSpecTypeInfoValueSetDefaultFieldCallback :: FunPtr C_ParamSpecTypeInfoValueSetDefaultFieldCallback -> C_ParamSpecTypeInfoValueSetDefaultFieldCallback

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_ParamSpecTypeInfoValueSetDefaultFieldCallback ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    FunPtr C_ParamSpecTypeInfoValueSetDefaultFieldCallback
    -> GParamSpec
    -> GValue
    -> m ()
dynamic_ParamSpecTypeInfoValueSetDefaultFieldCallback :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_ParamSpecTypeInfoValueSetDefaultFieldCallback
-> GParamSpec -> GValue -> m ()
dynamic_ParamSpecTypeInfoValueSetDefaultFieldCallback FunPtr C_ParamSpecTypeInfoValueSetDefaultFieldCallback
__funPtr GParamSpec
pspec GValue
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr GParamSpec
pspec' <- GParamSpec -> IO (Ptr GParamSpec)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GParamSpec
pspec
    Ptr GValue
value' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
    (FunPtr C_ParamSpecTypeInfoValueSetDefaultFieldCallback
-> C_ParamSpecTypeInfoValueSetDefaultFieldCallback
__dynamic_C_ParamSpecTypeInfoValueSetDefaultFieldCallback FunPtr C_ParamSpecTypeInfoValueSetDefaultFieldCallback
__funPtr) Ptr GParamSpec
pspec' Ptr GValue
value'
    GParamSpec -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GParamSpec
pspec
    GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_ParamSpecTypeInfoValueSetDefaultFieldCallback`.
foreign import ccall "wrapper"
    mk_ParamSpecTypeInfoValueSetDefaultFieldCallback :: C_ParamSpecTypeInfoValueSetDefaultFieldCallback -> IO (FunPtr C_ParamSpecTypeInfoValueSetDefaultFieldCallback)

-- | /No description available in the introspection data./
type ParamSpecTypeInfoValueSetDefaultFieldCallback =
    GParamSpec
    -> GValue
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `ParamSpecTypeInfoValueSetDefaultFieldCallback`@.
noParamSpecTypeInfoValueSetDefaultFieldCallback :: Maybe ParamSpecTypeInfoValueSetDefaultFieldCallback
noParamSpecTypeInfoValueSetDefaultFieldCallback :: Maybe ParamSpecTypeInfoValueSetDefaultFieldCallback
noParamSpecTypeInfoValueSetDefaultFieldCallback = Maybe ParamSpecTypeInfoValueSetDefaultFieldCallback
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_ParamSpecTypeInfoValueSetDefaultFieldCallback :: MonadIO m => ParamSpecTypeInfoValueSetDefaultFieldCallback -> m (GClosure C_ParamSpecTypeInfoValueSetDefaultFieldCallback)
genClosure_ParamSpecTypeInfoValueSetDefaultFieldCallback :: forall (m :: * -> *).
MonadIO m =>
ParamSpecTypeInfoValueSetDefaultFieldCallback
-> m (GClosure C_ParamSpecTypeInfoValueSetDefaultFieldCallback)
genClosure_ParamSpecTypeInfoValueSetDefaultFieldCallback ParamSpecTypeInfoValueSetDefaultFieldCallback
cb = IO (GClosure C_ParamSpecTypeInfoValueSetDefaultFieldCallback)
-> m (GClosure C_ParamSpecTypeInfoValueSetDefaultFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ParamSpecTypeInfoValueSetDefaultFieldCallback)
 -> m (GClosure C_ParamSpecTypeInfoValueSetDefaultFieldCallback))
-> IO (GClosure C_ParamSpecTypeInfoValueSetDefaultFieldCallback)
-> m (GClosure C_ParamSpecTypeInfoValueSetDefaultFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_ParamSpecTypeInfoValueSetDefaultFieldCallback
cb' = Maybe
  (Ptr (FunPtr C_ParamSpecTypeInfoValueSetDefaultFieldCallback))
-> ParamSpecTypeInfoValueSetDefaultFieldCallback
-> C_ParamSpecTypeInfoValueSetDefaultFieldCallback
wrap_ParamSpecTypeInfoValueSetDefaultFieldCallback Maybe
  (Ptr (FunPtr C_ParamSpecTypeInfoValueSetDefaultFieldCallback))
forall a. Maybe a
Nothing ParamSpecTypeInfoValueSetDefaultFieldCallback
cb
    C_ParamSpecTypeInfoValueSetDefaultFieldCallback
-> IO (FunPtr C_ParamSpecTypeInfoValueSetDefaultFieldCallback)
mk_ParamSpecTypeInfoValueSetDefaultFieldCallback C_ParamSpecTypeInfoValueSetDefaultFieldCallback
cb' IO (FunPtr C_ParamSpecTypeInfoValueSetDefaultFieldCallback)
-> (FunPtr C_ParamSpecTypeInfoValueSetDefaultFieldCallback
    -> IO (GClosure C_ParamSpecTypeInfoValueSetDefaultFieldCallback))
-> IO (GClosure C_ParamSpecTypeInfoValueSetDefaultFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ParamSpecTypeInfoValueSetDefaultFieldCallback
-> IO (GClosure C_ParamSpecTypeInfoValueSetDefaultFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `ParamSpecTypeInfoValueSetDefaultFieldCallback` into a `C_ParamSpecTypeInfoValueSetDefaultFieldCallback`.
wrap_ParamSpecTypeInfoValueSetDefaultFieldCallback ::
    Maybe (Ptr (FunPtr C_ParamSpecTypeInfoValueSetDefaultFieldCallback)) ->
    ParamSpecTypeInfoValueSetDefaultFieldCallback ->
    C_ParamSpecTypeInfoValueSetDefaultFieldCallback
wrap_ParamSpecTypeInfoValueSetDefaultFieldCallback :: Maybe
  (Ptr (FunPtr C_ParamSpecTypeInfoValueSetDefaultFieldCallback))
-> ParamSpecTypeInfoValueSetDefaultFieldCallback
-> C_ParamSpecTypeInfoValueSetDefaultFieldCallback
wrap_ParamSpecTypeInfoValueSetDefaultFieldCallback Maybe
  (Ptr (FunPtr C_ParamSpecTypeInfoValueSetDefaultFieldCallback))
funptrptr ParamSpecTypeInfoValueSetDefaultFieldCallback
_cb Ptr GParamSpec
pspec Ptr GValue
value = do
    GParamSpec
pspec' <- Ptr GParamSpec -> IO GParamSpec
B.GParamSpec.newGParamSpecFromPtr Ptr GParamSpec
pspec
    GValue
value' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
value
    ParamSpecTypeInfoValueSetDefaultFieldCallback
_cb  GParamSpec
pspec' GValue
value'
    Maybe
  (Ptr (FunPtr C_ParamSpecTypeInfoValueSetDefaultFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe
  (Ptr (FunPtr C_ParamSpecTypeInfoValueSetDefaultFieldCallback))
funptrptr


-- callback ParamSpecTypeInfoInstanceInitFieldCallback
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "pspec"
          , argType = TParamSpec
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_ParamSpecTypeInfoInstanceInitFieldCallback =
    Ptr GParamSpec ->
    IO ()

-- Args: [ Arg
--           { argCName = "pspec"
--           , argType = TParamSpec
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_ParamSpecTypeInfoInstanceInitFieldCallback :: FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback -> C_ParamSpecTypeInfoInstanceInitFieldCallback

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_ParamSpecTypeInfoInstanceInitFieldCallback ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback
    -> GParamSpec
    -> m ()
dynamic_ParamSpecTypeInfoInstanceInitFieldCallback :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback
-> GParamSpec -> m ()
dynamic_ParamSpecTypeInfoInstanceInitFieldCallback FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback
__funPtr GParamSpec
pspec = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr GParamSpec
pspec' <- GParamSpec -> IO (Ptr GParamSpec)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GParamSpec
pspec
    (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback
-> C_ParamSpecTypeInfoInstanceInitFieldCallback
__dynamic_C_ParamSpecTypeInfoInstanceInitFieldCallback FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback
__funPtr) Ptr GParamSpec
pspec'
    GParamSpec -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GParamSpec
pspec
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_ParamSpecTypeInfoInstanceInitFieldCallback`.
foreign import ccall "wrapper"
    mk_ParamSpecTypeInfoInstanceInitFieldCallback :: C_ParamSpecTypeInfoInstanceInitFieldCallback -> IO (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback)

-- | /No description available in the introspection data./
type ParamSpecTypeInfoInstanceInitFieldCallback =
    GParamSpec
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `ParamSpecTypeInfoInstanceInitFieldCallback`@.
noParamSpecTypeInfoInstanceInitFieldCallback :: Maybe ParamSpecTypeInfoInstanceInitFieldCallback
noParamSpecTypeInfoInstanceInitFieldCallback :: Maybe (GParamSpec -> IO ())
noParamSpecTypeInfoInstanceInitFieldCallback = Maybe (GParamSpec -> IO ())
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_ParamSpecTypeInfoInstanceInitFieldCallback :: MonadIO m => ParamSpecTypeInfoInstanceInitFieldCallback -> m (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback)
genClosure_ParamSpecTypeInfoInstanceInitFieldCallback :: forall (m :: * -> *).
MonadIO m =>
(GParamSpec -> IO ())
-> m (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback)
genClosure_ParamSpecTypeInfoInstanceInitFieldCallback GParamSpec -> IO ()
cb = IO (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback)
-> m (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback)
 -> m (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback))
-> IO (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback)
-> m (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_ParamSpecTypeInfoInstanceInitFieldCallback
cb' = Maybe (Ptr (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback))
-> (GParamSpec -> IO ())
-> C_ParamSpecTypeInfoInstanceInitFieldCallback
wrap_ParamSpecTypeInfoInstanceInitFieldCallback Maybe (Ptr (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback))
forall a. Maybe a
Nothing GParamSpec -> IO ()
cb
    C_ParamSpecTypeInfoInstanceInitFieldCallback
-> IO (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback)
mk_ParamSpecTypeInfoInstanceInitFieldCallback C_ParamSpecTypeInfoInstanceInitFieldCallback
cb' IO (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback)
-> (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback
    -> IO (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback))
-> IO (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback
-> IO (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `ParamSpecTypeInfoInstanceInitFieldCallback` into a `C_ParamSpecTypeInfoInstanceInitFieldCallback`.
wrap_ParamSpecTypeInfoInstanceInitFieldCallback ::
    Maybe (Ptr (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback)) ->
    ParamSpecTypeInfoInstanceInitFieldCallback ->
    C_ParamSpecTypeInfoInstanceInitFieldCallback
wrap_ParamSpecTypeInfoInstanceInitFieldCallback :: Maybe (Ptr (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback))
-> (GParamSpec -> IO ())
-> C_ParamSpecTypeInfoInstanceInitFieldCallback
wrap_ParamSpecTypeInfoInstanceInitFieldCallback Maybe (Ptr (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback))
funptrptr GParamSpec -> IO ()
_cb Ptr GParamSpec
pspec = do
    GParamSpec
pspec' <- Ptr GParamSpec -> IO GParamSpec
B.GParamSpec.newGParamSpecFromPtr Ptr GParamSpec
pspec
    GParamSpec -> IO ()
_cb  GParamSpec
pspec'
    Maybe (Ptr (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback))
funptrptr


-- callback ParamSpecTypeInfoFinalizeFieldCallback
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "pspec"
          , argType = TParamSpec
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_ParamSpecTypeInfoFinalizeFieldCallback =
    Ptr GParamSpec ->
    IO ()

-- Args: [ Arg
--           { argCName = "pspec"
--           , argType = TParamSpec
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_ParamSpecTypeInfoFinalizeFieldCallback :: FunPtr C_ParamSpecTypeInfoFinalizeFieldCallback -> C_ParamSpecTypeInfoFinalizeFieldCallback

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_ParamSpecTypeInfoFinalizeFieldCallback ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    FunPtr C_ParamSpecTypeInfoFinalizeFieldCallback
    -> GParamSpec
    -> m ()
dynamic_ParamSpecTypeInfoFinalizeFieldCallback :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback
-> GParamSpec -> m ()
dynamic_ParamSpecTypeInfoFinalizeFieldCallback FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback
__funPtr GParamSpec
pspec = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr GParamSpec
pspec' <- GParamSpec -> IO (Ptr GParamSpec)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GParamSpec
pspec
    (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback
-> C_ParamSpecTypeInfoInstanceInitFieldCallback
__dynamic_C_ParamSpecTypeInfoFinalizeFieldCallback FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback
__funPtr) Ptr GParamSpec
pspec'
    GParamSpec -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GParamSpec
pspec
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_ParamSpecTypeInfoFinalizeFieldCallback`.
foreign import ccall "wrapper"
    mk_ParamSpecTypeInfoFinalizeFieldCallback :: C_ParamSpecTypeInfoFinalizeFieldCallback -> IO (FunPtr C_ParamSpecTypeInfoFinalizeFieldCallback)

-- | /No description available in the introspection data./
type ParamSpecTypeInfoFinalizeFieldCallback =
    GParamSpec
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `ParamSpecTypeInfoFinalizeFieldCallback`@.
noParamSpecTypeInfoFinalizeFieldCallback :: Maybe ParamSpecTypeInfoFinalizeFieldCallback
noParamSpecTypeInfoFinalizeFieldCallback :: Maybe (GParamSpec -> IO ())
noParamSpecTypeInfoFinalizeFieldCallback = Maybe (GParamSpec -> IO ())
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_ParamSpecTypeInfoFinalizeFieldCallback :: MonadIO m => ParamSpecTypeInfoFinalizeFieldCallback -> m (GClosure C_ParamSpecTypeInfoFinalizeFieldCallback)
genClosure_ParamSpecTypeInfoFinalizeFieldCallback :: forall (m :: * -> *).
MonadIO m =>
(GParamSpec -> IO ())
-> m (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback)
genClosure_ParamSpecTypeInfoFinalizeFieldCallback GParamSpec -> IO ()
cb = IO (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback)
-> m (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback)
 -> m (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback))
-> IO (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback)
-> m (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_ParamSpecTypeInfoInstanceInitFieldCallback
cb' = Maybe (Ptr (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback))
-> (GParamSpec -> IO ())
-> C_ParamSpecTypeInfoInstanceInitFieldCallback
wrap_ParamSpecTypeInfoFinalizeFieldCallback Maybe (Ptr (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback))
forall a. Maybe a
Nothing GParamSpec -> IO ()
cb
    C_ParamSpecTypeInfoInstanceInitFieldCallback
-> IO (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback)
mk_ParamSpecTypeInfoFinalizeFieldCallback C_ParamSpecTypeInfoInstanceInitFieldCallback
cb' IO (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback)
-> (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback
    -> IO (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback))
-> IO (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback
-> IO (GClosure C_ParamSpecTypeInfoInstanceInitFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `ParamSpecTypeInfoFinalizeFieldCallback` into a `C_ParamSpecTypeInfoFinalizeFieldCallback`.
wrap_ParamSpecTypeInfoFinalizeFieldCallback ::
    Maybe (Ptr (FunPtr C_ParamSpecTypeInfoFinalizeFieldCallback)) ->
    ParamSpecTypeInfoFinalizeFieldCallback ->
    C_ParamSpecTypeInfoFinalizeFieldCallback
wrap_ParamSpecTypeInfoFinalizeFieldCallback :: Maybe (Ptr (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback))
-> (GParamSpec -> IO ())
-> C_ParamSpecTypeInfoInstanceInitFieldCallback
wrap_ParamSpecTypeInfoFinalizeFieldCallback Maybe (Ptr (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback))
funptrptr GParamSpec -> IO ()
_cb Ptr GParamSpec
pspec = do
    GParamSpec
pspec' <- Ptr GParamSpec -> IO GParamSpec
B.GParamSpec.newGParamSpecFromPtr Ptr GParamSpec
pspec
    GParamSpec -> IO ()
_cb  GParamSpec
pspec'
    Maybe (Ptr (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ParamSpecTypeInfoInstanceInitFieldCallback))
funptrptr


-- callback ObjectSetPropertyFunc
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "object"
          , argType =
              TInterface Name { namespace = "GObject" , name = "Object" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText = Just "a #GObject" , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "property_id"
          , argType = TBasicType TUInt
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText =
                    Just
                      "the numeric id under which the property was registered with\n g_object_class_install_property()."
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "value"
          , argType = TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText = Just "the new value for the property"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "pspec"
          , argType = TParamSpec
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText = Just "the #GParamSpec describing the property"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation
        { rawDocText =
            Just "The type of the @set_property function of #GObjectClass."
        , sinceVersion = Nothing
        }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_ObjectSetPropertyFunc =
    Ptr GObject.Object.Object ->
    Word32 ->
    Ptr GValue ->
    Ptr GParamSpec ->
    IO ()

-- Args: [ Arg
--           { argCName = "object"
--           , argType =
--               TInterface Name { namespace = "GObject" , name = "Object" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GObject" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "property_id"
--           , argType = TBasicType TUInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "the numeric id under which the property was registered with\n g_object_class_install_property()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "value"
--           , argType = TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "the new value for the property"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "pspec"
--           , argType = TParamSpec
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "the #GParamSpec describing the property"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_ObjectSetPropertyFunc :: FunPtr C_ObjectSetPropertyFunc -> C_ObjectSetPropertyFunc

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_ObjectSetPropertyFunc ::
    (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>
    FunPtr C_ObjectSetPropertyFunc
    -> a
    -- ^ /@object@/: a t'GI.GObject.Objects.Object.Object'
    -> Word32
    -- ^ /@propertyId@/: the numeric id under which the property was registered with
    --  'GI.GObject.Structs.ObjectClass.objectClassInstallProperty'.
    -> GValue
    -- ^ /@value@/: the new value for the property
    -> GParamSpec
    -- ^ /@pspec@/: the t'GI.GObject.Objects.ParamSpec.ParamSpec' describing the property
    -> m ()
dynamic_ObjectSetPropertyFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
FunPtr C_ObjectSetPropertyFunc
-> a -> Word32 -> GValue -> GParamSpec -> m ()
dynamic_ObjectSetPropertyFunc FunPtr C_ObjectSetPropertyFunc
__funPtr a
object Word32
propertyId GValue
value GParamSpec
pspec = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
    Ptr GValue
value' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
    Ptr GParamSpec
pspec' <- GParamSpec -> IO (Ptr GParamSpec)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GParamSpec
pspec
    (FunPtr C_ObjectSetPropertyFunc -> C_ObjectSetPropertyFunc
__dynamic_C_ObjectSetPropertyFunc FunPtr C_ObjectSetPropertyFunc
__funPtr) Ptr Object
object' Word32
propertyId Ptr GValue
value' Ptr GParamSpec
pspec'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
    GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
    GParamSpec -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GParamSpec
pspec
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_ObjectSetPropertyFunc`.
foreign import ccall "wrapper"
    mk_ObjectSetPropertyFunc :: C_ObjectSetPropertyFunc -> IO (FunPtr C_ObjectSetPropertyFunc)

-- | The type of the /@setProperty@/ function of t'GI.GObject.Structs.ObjectClass.ObjectClass'.
type ObjectSetPropertyFunc =
    GObject.Object.Object
    -- ^ /@object@/: a t'GI.GObject.Objects.Object.Object'
    -> Word32
    -- ^ /@propertyId@/: the numeric id under which the property was registered with
    --  'GI.GObject.Structs.ObjectClass.objectClassInstallProperty'.
    -> GValue
    -- ^ /@value@/: the new value for the property
    -> GParamSpec
    -- ^ /@pspec@/: the t'GI.GObject.Objects.ParamSpec.ParamSpec' describing the property
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `ObjectSetPropertyFunc`@.
noObjectSetPropertyFunc :: Maybe ObjectSetPropertyFunc
noObjectSetPropertyFunc :: Maybe ObjectSetPropertyFunc
noObjectSetPropertyFunc = Maybe ObjectSetPropertyFunc
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_ObjectSetPropertyFunc :: MonadIO m => ObjectSetPropertyFunc -> m (GClosure C_ObjectSetPropertyFunc)
genClosure_ObjectSetPropertyFunc :: forall (m :: * -> *).
MonadIO m =>
ObjectSetPropertyFunc -> m (GClosure C_ObjectSetPropertyFunc)
genClosure_ObjectSetPropertyFunc ObjectSetPropertyFunc
cb = IO (GClosure C_ObjectSetPropertyFunc)
-> m (GClosure C_ObjectSetPropertyFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ObjectSetPropertyFunc)
 -> m (GClosure C_ObjectSetPropertyFunc))
-> IO (GClosure C_ObjectSetPropertyFunc)
-> m (GClosure C_ObjectSetPropertyFunc)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_ObjectSetPropertyFunc
cb' = Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc))
-> ObjectSetPropertyFunc -> C_ObjectSetPropertyFunc
wrap_ObjectSetPropertyFunc Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc))
forall a. Maybe a
Nothing ObjectSetPropertyFunc
cb
    C_ObjectSetPropertyFunc -> IO (FunPtr C_ObjectSetPropertyFunc)
mk_ObjectSetPropertyFunc C_ObjectSetPropertyFunc
cb' IO (FunPtr C_ObjectSetPropertyFunc)
-> (FunPtr C_ObjectSetPropertyFunc
    -> IO (GClosure C_ObjectSetPropertyFunc))
-> IO (GClosure C_ObjectSetPropertyFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ObjectSetPropertyFunc
-> IO (GClosure C_ObjectSetPropertyFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `ObjectSetPropertyFunc` into a `C_ObjectSetPropertyFunc`.
wrap_ObjectSetPropertyFunc ::
    Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc)) ->
    ObjectSetPropertyFunc ->
    C_ObjectSetPropertyFunc
wrap_ObjectSetPropertyFunc :: Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc))
-> ObjectSetPropertyFunc -> C_ObjectSetPropertyFunc
wrap_ObjectSetPropertyFunc Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc))
funptrptr ObjectSetPropertyFunc
_cb Ptr Object
object Word32
propertyId Ptr GValue
value Ptr GParamSpec
pspec = do
    Object
object' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
object
    GValue
value' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
value
    GParamSpec
pspec' <- Ptr GParamSpec -> IO GParamSpec
B.GParamSpec.newGParamSpecFromPtr Ptr GParamSpec
pspec
    ObjectSetPropertyFunc
_cb  Object
object' Word32
propertyId GValue
value' GParamSpec
pspec'
    Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc))
funptrptr


-- callback ObjectGetPropertyFunc
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "object"
          , argType =
              TInterface Name { namespace = "GObject" , name = "Object" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText = Just "a #GObject" , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "property_id"
          , argType = TBasicType TUInt
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText =
                    Just
                      "the numeric id under which the property was registered with\n g_object_class_install_property()."
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "value"
          , argType = TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText = Just "a #GValue to return the property value in"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "pspec"
          , argType = TParamSpec
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText = Just "the #GParamSpec describing the property"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation
        { rawDocText =
            Just "The type of the @get_property function of #GObjectClass."
        , sinceVersion = Nothing
        }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_ObjectGetPropertyFunc =
    Ptr GObject.Object.Object ->
    Word32 ->
    Ptr GValue ->
    Ptr GParamSpec ->
    IO ()

-- Args: [ Arg
--           { argCName = "object"
--           , argType =
--               TInterface Name { namespace = "GObject" , name = "Object" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GObject" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "property_id"
--           , argType = TBasicType TUInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "the numeric id under which the property was registered with\n g_object_class_install_property()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "value"
--           , argType = TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GValue to return the property value in"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "pspec"
--           , argType = TParamSpec
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "the #GParamSpec describing the property"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_ObjectGetPropertyFunc :: FunPtr C_ObjectGetPropertyFunc -> C_ObjectGetPropertyFunc

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_ObjectGetPropertyFunc ::
    (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>
    FunPtr C_ObjectGetPropertyFunc
    -> a
    -- ^ /@object@/: a t'GI.GObject.Objects.Object.Object'
    -> Word32
    -- ^ /@propertyId@/: the numeric id under which the property was registered with
    --  'GI.GObject.Structs.ObjectClass.objectClassInstallProperty'.
    -> GValue
    -- ^ /@value@/: a t'GI.GObject.Structs.Value.Value' to return the property value in
    -> GParamSpec
    -- ^ /@pspec@/: the t'GI.GObject.Objects.ParamSpec.ParamSpec' describing the property
    -> m ()
dynamic_ObjectGetPropertyFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
FunPtr C_ObjectSetPropertyFunc
-> a -> Word32 -> GValue -> GParamSpec -> m ()
dynamic_ObjectGetPropertyFunc FunPtr C_ObjectSetPropertyFunc
__funPtr a
object Word32
propertyId GValue
value GParamSpec
pspec = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
    Ptr GValue
value' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
    Ptr GParamSpec
pspec' <- GParamSpec -> IO (Ptr GParamSpec)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GParamSpec
pspec
    (FunPtr C_ObjectSetPropertyFunc -> C_ObjectSetPropertyFunc
__dynamic_C_ObjectGetPropertyFunc FunPtr C_ObjectSetPropertyFunc
__funPtr) Ptr Object
object' Word32
propertyId Ptr GValue
value' Ptr GParamSpec
pspec'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
    GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
    GParamSpec -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GParamSpec
pspec
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_ObjectGetPropertyFunc`.
foreign import ccall "wrapper"
    mk_ObjectGetPropertyFunc :: C_ObjectGetPropertyFunc -> IO (FunPtr C_ObjectGetPropertyFunc)

-- | The type of the /@getProperty@/ function of t'GI.GObject.Structs.ObjectClass.ObjectClass'.
type ObjectGetPropertyFunc =
    GObject.Object.Object
    -- ^ /@object@/: a t'GI.GObject.Objects.Object.Object'
    -> Word32
    -- ^ /@propertyId@/: the numeric id under which the property was registered with
    --  'GI.GObject.Structs.ObjectClass.objectClassInstallProperty'.
    -> GValue
    -- ^ /@value@/: a t'GI.GObject.Structs.Value.Value' to return the property value in
    -> GParamSpec
    -- ^ /@pspec@/: the t'GI.GObject.Objects.ParamSpec.ParamSpec' describing the property
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `ObjectGetPropertyFunc`@.
noObjectGetPropertyFunc :: Maybe ObjectGetPropertyFunc
noObjectGetPropertyFunc :: Maybe ObjectSetPropertyFunc
noObjectGetPropertyFunc = Maybe ObjectSetPropertyFunc
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_ObjectGetPropertyFunc :: MonadIO m => ObjectGetPropertyFunc -> m (GClosure C_ObjectGetPropertyFunc)
genClosure_ObjectGetPropertyFunc :: forall (m :: * -> *).
MonadIO m =>
ObjectSetPropertyFunc -> m (GClosure C_ObjectSetPropertyFunc)
genClosure_ObjectGetPropertyFunc ObjectSetPropertyFunc
cb = IO (GClosure C_ObjectSetPropertyFunc)
-> m (GClosure C_ObjectSetPropertyFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ObjectSetPropertyFunc)
 -> m (GClosure C_ObjectSetPropertyFunc))
-> IO (GClosure C_ObjectSetPropertyFunc)
-> m (GClosure C_ObjectSetPropertyFunc)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_ObjectSetPropertyFunc
cb' = Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc))
-> ObjectSetPropertyFunc -> C_ObjectSetPropertyFunc
wrap_ObjectGetPropertyFunc Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc))
forall a. Maybe a
Nothing ObjectSetPropertyFunc
cb
    C_ObjectSetPropertyFunc -> IO (FunPtr C_ObjectSetPropertyFunc)
mk_ObjectGetPropertyFunc C_ObjectSetPropertyFunc
cb' IO (FunPtr C_ObjectSetPropertyFunc)
-> (FunPtr C_ObjectSetPropertyFunc
    -> IO (GClosure C_ObjectSetPropertyFunc))
-> IO (GClosure C_ObjectSetPropertyFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ObjectSetPropertyFunc
-> IO (GClosure C_ObjectSetPropertyFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `ObjectGetPropertyFunc` into a `C_ObjectGetPropertyFunc`.
wrap_ObjectGetPropertyFunc ::
    Maybe (Ptr (FunPtr C_ObjectGetPropertyFunc)) ->
    ObjectGetPropertyFunc ->
    C_ObjectGetPropertyFunc
wrap_ObjectGetPropertyFunc :: Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc))
-> ObjectSetPropertyFunc -> C_ObjectSetPropertyFunc
wrap_ObjectGetPropertyFunc Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc))
funptrptr ObjectSetPropertyFunc
_cb Ptr Object
object Word32
propertyId Ptr GValue
value Ptr GParamSpec
pspec = do
    Object
object' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
object
    GValue
value' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
value
    GParamSpec
pspec' <- Ptr GParamSpec -> IO GParamSpec
B.GParamSpec.newGParamSpecFromPtr Ptr GParamSpec
pspec
    ObjectSetPropertyFunc
_cb  Object
object' Word32
propertyId GValue
value' GParamSpec
pspec'
    Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc))
funptrptr


-- callback ObjectFinalizeFunc
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "object"
          , argType =
              TInterface Name { namespace = "GObject" , name = "Object" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText = Just "the #GObject being finalized"
                , sinceVersion = Nothing
                }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation
        { rawDocText =
            Just "The type of the @finalize function of #GObjectClass."
        , sinceVersion = Nothing
        }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_ObjectFinalizeFunc =
    Ptr GObject.Object.Object ->
    IO ()

-- Args: [ Arg
--           { argCName = "object"
--           , argType =
--               TInterface Name { namespace = "GObject" , name = "Object" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "the #GObject being finalized"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_ObjectFinalizeFunc :: FunPtr C_ObjectFinalizeFunc -> C_ObjectFinalizeFunc

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_ObjectFinalizeFunc ::
    (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>
    FunPtr C_ObjectFinalizeFunc
    -> a
    -- ^ /@object@/: the t'GI.GObject.Objects.Object.Object' being finalized
    -> m ()
dynamic_ObjectFinalizeFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
FunPtr C_ObjectFinalizeFunc -> a -> m ()
dynamic_ObjectFinalizeFunc FunPtr C_ObjectFinalizeFunc
__funPtr a
object = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
    (FunPtr C_ObjectFinalizeFunc -> C_ObjectFinalizeFunc
__dynamic_C_ObjectFinalizeFunc FunPtr C_ObjectFinalizeFunc
__funPtr) Ptr Object
object'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_ObjectFinalizeFunc`.
foreign import ccall "wrapper"
    mk_ObjectFinalizeFunc :: C_ObjectFinalizeFunc -> IO (FunPtr C_ObjectFinalizeFunc)

-- | The type of the /@finalize@/ function of t'GI.GObject.Structs.ObjectClass.ObjectClass'.
type ObjectFinalizeFunc =
    GObject.Object.Object
    -- ^ /@object@/: the t'GI.GObject.Objects.Object.Object' being finalized
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `ObjectFinalizeFunc`@.
noObjectFinalizeFunc :: Maybe ObjectFinalizeFunc
noObjectFinalizeFunc :: Maybe ObjectFinalizeFunc
noObjectFinalizeFunc = Maybe ObjectFinalizeFunc
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_ObjectFinalizeFunc :: MonadIO m => ObjectFinalizeFunc -> m (GClosure C_ObjectFinalizeFunc)
genClosure_ObjectFinalizeFunc :: forall (m :: * -> *).
MonadIO m =>
ObjectFinalizeFunc -> m (GClosure C_ObjectFinalizeFunc)
genClosure_ObjectFinalizeFunc ObjectFinalizeFunc
cb = IO (GClosure C_ObjectFinalizeFunc)
-> m (GClosure C_ObjectFinalizeFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ObjectFinalizeFunc)
 -> m (GClosure C_ObjectFinalizeFunc))
-> IO (GClosure C_ObjectFinalizeFunc)
-> m (GClosure C_ObjectFinalizeFunc)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_ObjectFinalizeFunc
cb' = Maybe (Ptr (FunPtr C_ObjectFinalizeFunc))
-> ObjectFinalizeFunc -> C_ObjectFinalizeFunc
wrap_ObjectFinalizeFunc Maybe (Ptr (FunPtr C_ObjectFinalizeFunc))
forall a. Maybe a
Nothing ObjectFinalizeFunc
cb
    C_ObjectFinalizeFunc -> IO (FunPtr C_ObjectFinalizeFunc)
mk_ObjectFinalizeFunc C_ObjectFinalizeFunc
cb' IO (FunPtr C_ObjectFinalizeFunc)
-> (FunPtr C_ObjectFinalizeFunc
    -> IO (GClosure C_ObjectFinalizeFunc))
-> IO (GClosure C_ObjectFinalizeFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ObjectFinalizeFunc -> IO (GClosure C_ObjectFinalizeFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `ObjectFinalizeFunc` into a `C_ObjectFinalizeFunc`.
wrap_ObjectFinalizeFunc ::
    Maybe (Ptr (FunPtr C_ObjectFinalizeFunc)) ->
    ObjectFinalizeFunc ->
    C_ObjectFinalizeFunc
wrap_ObjectFinalizeFunc :: Maybe (Ptr (FunPtr C_ObjectFinalizeFunc))
-> ObjectFinalizeFunc -> C_ObjectFinalizeFunc
wrap_ObjectFinalizeFunc Maybe (Ptr (FunPtr C_ObjectFinalizeFunc))
funptrptr ObjectFinalizeFunc
_cb Ptr Object
object = do
    Object
object' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
object
    ObjectFinalizeFunc
_cb  Object
object'
    Maybe (Ptr (FunPtr C_ObjectFinalizeFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ObjectFinalizeFunc))
funptrptr


-- callback ObjectClassSetPropertyFieldCallback
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "object"
          , argType =
              TInterface Name { namespace = "GObject" , name = "Object" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "property_id"
          , argType = TBasicType TUInt
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "value"
          , argType = TGValue
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "pspec"
          , argType = TParamSpec
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_ObjectClassSetPropertyFieldCallback =
    Ptr GObject.Object.Object ->
    Word32 ->
    Ptr GValue ->
    Ptr GParamSpec ->
    IO ()

-- Args: [ Arg
--           { argCName = "object"
--           , argType =
--               TInterface Name { namespace = "GObject" , name = "Object" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "property_id"
--           , argType = TBasicType TUInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "value"
--           , argType = TGValue
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "pspec"
--           , argType = TParamSpec
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_ObjectClassSetPropertyFieldCallback :: FunPtr C_ObjectClassSetPropertyFieldCallback -> C_ObjectClassSetPropertyFieldCallback

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_ObjectClassSetPropertyFieldCallback ::
    (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>
    FunPtr C_ObjectClassSetPropertyFieldCallback
    -> a
    -> Word32
    -> GValue
    -> GParamSpec
    -> m ()
dynamic_ObjectClassSetPropertyFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
FunPtr C_ObjectSetPropertyFunc
-> a -> Word32 -> GValue -> GParamSpec -> m ()
dynamic_ObjectClassSetPropertyFieldCallback FunPtr C_ObjectSetPropertyFunc
__funPtr a
object Word32
propertyId GValue
value GParamSpec
pspec = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
    Ptr GValue
value' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
    Ptr GParamSpec
pspec' <- GParamSpec -> IO (Ptr GParamSpec)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GParamSpec
pspec
    (FunPtr C_ObjectSetPropertyFunc -> C_ObjectSetPropertyFunc
__dynamic_C_ObjectClassSetPropertyFieldCallback FunPtr C_ObjectSetPropertyFunc
__funPtr) Ptr Object
object' Word32
propertyId Ptr GValue
value' Ptr GParamSpec
pspec'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
    GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
    GParamSpec -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GParamSpec
pspec
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_ObjectClassSetPropertyFieldCallback`.
foreign import ccall "wrapper"
    mk_ObjectClassSetPropertyFieldCallback :: C_ObjectClassSetPropertyFieldCallback -> IO (FunPtr C_ObjectClassSetPropertyFieldCallback)

-- | /No description available in the introspection data./
type ObjectClassSetPropertyFieldCallback =
    GObject.Object.Object
    -> Word32
    -> GValue
    -> GParamSpec
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `ObjectClassSetPropertyFieldCallback`@.
noObjectClassSetPropertyFieldCallback :: Maybe ObjectClassSetPropertyFieldCallback
noObjectClassSetPropertyFieldCallback :: Maybe ObjectSetPropertyFunc
noObjectClassSetPropertyFieldCallback = Maybe ObjectSetPropertyFunc
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_ObjectClassSetPropertyFieldCallback :: MonadIO m => ObjectClassSetPropertyFieldCallback -> m (GClosure C_ObjectClassSetPropertyFieldCallback)
genClosure_ObjectClassSetPropertyFieldCallback :: forall (m :: * -> *).
MonadIO m =>
ObjectSetPropertyFunc -> m (GClosure C_ObjectSetPropertyFunc)
genClosure_ObjectClassSetPropertyFieldCallback ObjectSetPropertyFunc
cb = IO (GClosure C_ObjectSetPropertyFunc)
-> m (GClosure C_ObjectSetPropertyFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ObjectSetPropertyFunc)
 -> m (GClosure C_ObjectSetPropertyFunc))
-> IO (GClosure C_ObjectSetPropertyFunc)
-> m (GClosure C_ObjectSetPropertyFunc)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_ObjectSetPropertyFunc
cb' = Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc))
-> ObjectSetPropertyFunc -> C_ObjectSetPropertyFunc
wrap_ObjectClassSetPropertyFieldCallback Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc))
forall a. Maybe a
Nothing ObjectSetPropertyFunc
cb
    C_ObjectSetPropertyFunc -> IO (FunPtr C_ObjectSetPropertyFunc)
mk_ObjectClassSetPropertyFieldCallback C_ObjectSetPropertyFunc
cb' IO (FunPtr C_ObjectSetPropertyFunc)
-> (FunPtr C_ObjectSetPropertyFunc
    -> IO (GClosure C_ObjectSetPropertyFunc))
-> IO (GClosure C_ObjectSetPropertyFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ObjectSetPropertyFunc
-> IO (GClosure C_ObjectSetPropertyFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `ObjectClassSetPropertyFieldCallback` into a `C_ObjectClassSetPropertyFieldCallback`.
wrap_ObjectClassSetPropertyFieldCallback ::
    Maybe (Ptr (FunPtr C_ObjectClassSetPropertyFieldCallback)) ->
    ObjectClassSetPropertyFieldCallback ->
    C_ObjectClassSetPropertyFieldCallback
wrap_ObjectClassSetPropertyFieldCallback :: Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc))
-> ObjectSetPropertyFunc -> C_ObjectSetPropertyFunc
wrap_ObjectClassSetPropertyFieldCallback Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc))
funptrptr ObjectSetPropertyFunc
_cb Ptr Object
object Word32
propertyId Ptr GValue
value Ptr GParamSpec
pspec = do
    Object
object' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
object
    GValue
value' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
value
    GParamSpec
pspec' <- Ptr GParamSpec -> IO GParamSpec
B.GParamSpec.newGParamSpecFromPtr Ptr GParamSpec
pspec
    ObjectSetPropertyFunc
_cb  Object
object' Word32
propertyId GValue
value' GParamSpec
pspec'
    Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_ObjectSetPropertyFunc))
funptrptr


-- callback ObjectClassNotifyFieldCallback
{- Callable
  { returnType = Nothing
  , returnMayBeNull = False
  , returnTransfer = TransferNothing
  , returnDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , args =
      [ Arg
          { argCName = "object"
          , argType =
              TInterface Name { namespace = "GObject" , name = "Object" }
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation
                { rawDocText = Just "a #GObject" , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      , Arg
          { argCName = "pspec"
          , argType = TParamSpec
          , direction = DirectionIn
          , mayBeNull = False
          , argDoc =
              Documentation { rawDocText = Nothing , sinceVersion = Nothing }
          , argScope = ScopeTypeInvalid
          , argClosure = -1
          , argDestroy = -1
          , argCallerAllocates = False
          , transfer = TransferNothing
          }
      ]
  , skipReturn = False
  , callableThrows = False
  , callableDeprecated = Nothing
  , callableDocumentation =
      Documentation { rawDocText = Nothing , sinceVersion = Nothing }
  , callableResolvable = Nothing
  }
-}
-- | Type for the callback on the (unwrapped) C side.
type C_ObjectClassNotifyFieldCallback =
    Ptr GObject.Object.Object ->
    Ptr GParamSpec ->
    IO ()

-- Args: [ Arg
--           { argCName = "object"
--           , argType =
--               TInterface Name { namespace = "GObject" , name = "Object" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GObject" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "pspec"
--           , argType = TParamSpec
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation { rawDocText = Nothing , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "dynamic" __dynamic_C_ObjectClassNotifyFieldCallback :: FunPtr C_ObjectClassNotifyFieldCallback -> C_ObjectClassNotifyFieldCallback

-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.
dynamic_ObjectClassNotifyFieldCallback ::
    (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>
    FunPtr C_ObjectClassNotifyFieldCallback
    -> a
    -- ^ /@object@/: a t'GI.GObject.Objects.Object.Object'
    -> GParamSpec
    -> m ()
dynamic_ObjectClassNotifyFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
FunPtr C_ObjectClassNotifyFieldCallback -> a -> GParamSpec -> m ()
dynamic_ObjectClassNotifyFieldCallback FunPtr C_ObjectClassNotifyFieldCallback
__funPtr a
object GParamSpec
pspec = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
    Ptr GParamSpec
pspec' <- GParamSpec -> IO (Ptr GParamSpec)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GParamSpec
pspec
    (FunPtr C_ObjectClassNotifyFieldCallback
-> C_ObjectClassNotifyFieldCallback
__dynamic_C_ObjectClassNotifyFieldCallback FunPtr C_ObjectClassNotifyFieldCallback
__funPtr) Ptr Object
object' Ptr GParamSpec
pspec'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
    GParamSpec -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GParamSpec
pspec
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

-- | Generate a function pointer callable from C code, from a `C_ObjectClassNotifyFieldCallback`.
foreign import ccall "wrapper"
    mk_ObjectClassNotifyFieldCallback :: C_ObjectClassNotifyFieldCallback -> IO (FunPtr C_ObjectClassNotifyFieldCallback)

-- | /No description available in the introspection data./
type ObjectClassNotifyFieldCallback =
    GObject.Object.Object
    -- ^ /@object@/: a t'GI.GObject.Objects.Object.Object'
    -> GParamSpec
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `ObjectClassNotifyFieldCallback`@.
noObjectClassNotifyFieldCallback :: Maybe ObjectClassNotifyFieldCallback
noObjectClassNotifyFieldCallback :: Maybe ObjectClassNotifyFieldCallback
noObjectClassNotifyFieldCallback = Maybe ObjectClassNotifyFieldCallback
forall a. Maybe a
Nothing

-- | Wrap the callback into a `GClosure`.
genClosure_ObjectClassNotifyFieldCallback :: MonadIO m => ObjectClassNotifyFieldCallback -> m (GClosure C_ObjectClassNotifyFieldCallback)
genClosure_ObjectClassNotifyFieldCallback :: forall (m :: * -> *).
MonadIO m =>
ObjectClassNotifyFieldCallback
-> m (GClosure C_ObjectClassNotifyFieldCallback)
genClosure_ObjectClassNotifyFieldCallback ObjectClassNotifyFieldCallback
cb = IO (GClosure C_ObjectClassNotifyFieldCallback)
-> m (GClosure C_ObjectClassNotifyFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ObjectClassNotifyFieldCallback)
 -> m (GClosure C_ObjectClassNotifyFieldCallback))
-> IO (GClosure C_ObjectClassNotifyFieldCallback)
-> m (GClosure C_ObjectClassNotifyFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_ObjectClassNotifyFieldCallback
cb' = Maybe (Ptr (FunPtr C_ObjectClassNotifyFieldCallback))
-> ObjectClassNotifyFieldCallback
-> C_ObjectClassNotifyFieldCallback
wrap_ObjectClassNotifyFieldCallback Maybe (Ptr (FunPtr C_ObjectClassNotifyFieldCallback))
forall a. Maybe a
Nothing ObjectClassNotifyFieldCallback
cb
    C_ObjectClassNotifyFieldCallback
-> IO (FunPtr C_ObjectClassNotifyFieldCallback)
mk_ObjectClassNotifyFieldCallback C_ObjectClassNotifyFieldCallback
cb' IO (FunPtr C_ObjectClassNotifyFieldCallback)
-> (FunPtr C_ObjectClassNotifyFieldCallback
    -> IO (GClosure C_ObjectClassNotifyFieldCallback))
-> IO (GClosure C_ObjectClassNotifyFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ObjectClassNotifyFieldCallback
-> IO (GClosure C_ObjectClassNotifyFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure


-- | Wrap a `ObjectClassNotifyFieldCallback` into a `C_ObjectClassNotifyFieldCallback`.
wrap_ObjectClassNotifyFieldCallback ::
    Maybe (Ptr (FunPtr C_ObjectClassNotifyFieldCallback)) ->
    ObjectClassNotifyFieldCallback ->
    C_ObjectClassNotifyFieldCallback
wrap_ObjectClassNotifyFieldCallback :: Maybe (Ptr (FunPtr C_ObjectClassNotifyFieldCallback))
-> ObjectClassNotifyFieldCallback
-> C_ObjectClassNotifyFieldCallback
wrap_ObjectClassNotifyFieldCallback Maybe (Ptr (FunPtr C_ObjectClassNotifyFieldCallback))
funptrptr ObjectClassNotifyFieldCallback
_cb Ptr Object
object Ptr GParamSpec
pspec = do
    Object
object' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
object