{- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) -} module GI.GObject.Functions ( -- * Methods -- ** boxedCopy boxedCopy , -- ** boxedFree boxedFree , -- ** cclosureMarshalBOOLEAN_BOXEDBOXED cclosureMarshalBOOLEAN_BOXEDBOXED , -- ** cclosureMarshalBOOLEAN_FLAGS cclosureMarshalBOOLEAN_FLAGS , -- ** cclosureMarshalGeneric cclosureMarshalGeneric , -- ** cclosureMarshalSTRING_OBJECTPOINTER cclosureMarshalSTRING_OBJECTPOINTER , -- ** cclosureMarshalVOID_BOOLEAN cclosureMarshalVOID_BOOLEAN , -- ** cclosureMarshalVOID_BOXED cclosureMarshalVOID_BOXED , -- ** cclosureMarshalVOID_CHAR cclosureMarshalVOID_CHAR , -- ** cclosureMarshalVOID_DOUBLE cclosureMarshalVOID_DOUBLE , -- ** cclosureMarshalVOID_ENUM cclosureMarshalVOID_ENUM , -- ** cclosureMarshalVOID_FLAGS cclosureMarshalVOID_FLAGS , -- ** cclosureMarshalVOID_FLOAT cclosureMarshalVOID_FLOAT , -- ** cclosureMarshalVOID_INT cclosureMarshalVOID_INT , -- ** cclosureMarshalVOID_LONG cclosureMarshalVOID_LONG , -- ** cclosureMarshalVOID_OBJECT cclosureMarshalVOID_OBJECT , -- ** cclosureMarshalVOID_PARAM cclosureMarshalVOID_PARAM , -- ** cclosureMarshalVOID_POINTER cclosureMarshalVOID_POINTER , -- ** cclosureMarshalVOID_STRING cclosureMarshalVOID_STRING , -- ** cclosureMarshalVOID_UCHAR cclosureMarshalVOID_UCHAR , -- ** cclosureMarshalVOID_UINT cclosureMarshalVOID_UINT , -- ** cclosureMarshalVOID_UINTPOINTER cclosureMarshalVOID_UINTPOINTER , -- ** cclosureMarshalVOID_ULONG cclosureMarshalVOID_ULONG , -- ** cclosureMarshalVOID_VARIANT cclosureMarshalVOID_VARIANT , -- ** cclosureMarshalVOID_VOID cclosureMarshalVOID_VOID , -- ** enumCompleteTypeInfo enumCompleteTypeInfo , -- ** enumGetValue enumGetValue , -- ** enumGetValueByName enumGetValueByName , -- ** enumGetValueByNick enumGetValueByNick , -- ** enumRegisterStatic enumRegisterStatic , -- ** flagsCompleteTypeInfo flagsCompleteTypeInfo , -- ** flagsGetFirstValue flagsGetFirstValue , -- ** flagsGetValueByName flagsGetValueByName , -- ** flagsGetValueByNick flagsGetValueByNick , -- ** flagsRegisterStatic flagsRegisterStatic , -- ** gtypeGetType gtypeGetType , -- ** paramSpecBoolean paramSpecBoolean , -- ** paramSpecBoxed paramSpecBoxed , -- ** paramSpecChar paramSpecChar , -- ** paramSpecDouble paramSpecDouble , -- ** paramSpecEnum paramSpecEnum , -- ** paramSpecFlags paramSpecFlags , -- ** paramSpecFloat paramSpecFloat , -- ** paramSpecGtype paramSpecGtype , -- ** paramSpecInt paramSpecInt , -- ** paramSpecInt64 paramSpecInt64 , -- ** paramSpecLong paramSpecLong , -- ** paramSpecObject paramSpecObject , -- ** paramSpecParam paramSpecParam , -- ** paramSpecPointer paramSpecPointer , -- ** paramSpecPoolNew paramSpecPoolNew , -- ** paramSpecString paramSpecString , -- ** paramSpecUchar paramSpecUchar , -- ** paramSpecUint paramSpecUint , -- ** paramSpecUint64 paramSpecUint64 , -- ** paramSpecUlong paramSpecUlong , -- ** paramSpecUnichar paramSpecUnichar , -- ** paramSpecVariant paramSpecVariant , -- ** paramTypeRegisterStatic paramTypeRegisterStatic , -- ** paramValueConvert paramValueConvert , -- ** paramValueDefaults paramValueDefaults , -- ** paramValueSetDefault paramValueSetDefault , -- ** paramValueValidate paramValueValidate , -- ** paramValuesCmp paramValuesCmp , -- ** pointerTypeRegisterStatic pointerTypeRegisterStatic , -- ** signalAccumulatorFirstWins signalAccumulatorFirstWins , -- ** signalAccumulatorTrueHandled signalAccumulatorTrueHandled , -- ** signalAddEmissionHook signalAddEmissionHook , -- ** signalChainFromOverridden signalChainFromOverridden , -- ** signalConnectClosure signalConnectClosure , -- ** signalConnectClosureById signalConnectClosureById , -- ** signalEmitv signalEmitv , -- ** signalGetInvocationHint signalGetInvocationHint , -- ** signalHandlerBlock signalHandlerBlock , -- ** signalHandlerDisconnect signalHandlerDisconnect , -- ** signalHandlerFind signalHandlerFind , -- ** signalHandlerIsConnected signalHandlerIsConnected , -- ** signalHandlerUnblock signalHandlerUnblock , -- ** signalHandlersBlockMatched signalHandlersBlockMatched , -- ** signalHandlersDestroy signalHandlersDestroy , -- ** signalHandlersDisconnectMatched signalHandlersDisconnectMatched , -- ** signalHandlersUnblockMatched signalHandlersUnblockMatched , -- ** signalHasHandlerPending signalHasHandlerPending , -- ** signalListIds signalListIds , -- ** signalLookup signalLookup , -- ** signalName signalName , -- ** signalOverrideClassClosure signalOverrideClassClosure , -- ** signalParseName signalParseName , -- ** signalQuery signalQuery , -- ** signalRemoveEmissionHook signalRemoveEmissionHook , -- ** signalStopEmission signalStopEmission , -- ** signalStopEmissionByName signalStopEmissionByName , -- ** signalTypeCclosureNew signalTypeCclosureNew , -- ** sourceSetClosure sourceSetClosure , -- ** sourceSetDummyCallback sourceSetDummyCallback , -- ** strdupValueContents strdupValueContents , -- ** typeAddClassPrivate typeAddClassPrivate , -- ** typeAddInstancePrivate typeAddInstancePrivate , -- ** typeAddInterfaceDynamic typeAddInterfaceDynamic , -- ** typeAddInterfaceStatic typeAddInterfaceStatic , -- ** typeCheckClassIsA typeCheckClassIsA , -- ** typeCheckInstance typeCheckInstance , -- ** typeCheckInstanceIsA typeCheckInstanceIsA , -- ** typeCheckInstanceIsFundamentallyA typeCheckInstanceIsFundamentallyA , -- ** typeCheckIsValueType typeCheckIsValueType , -- ** typeCheckValue typeCheckValue , -- ** typeCheckValueHolds typeCheckValueHolds , -- ** typeChildren typeChildren , -- ** typeClassAddPrivate typeClassAddPrivate , -- ** typeClassAdjustPrivateOffset typeClassAdjustPrivateOffset , -- ** typeClassPeek typeClassPeek , -- ** typeClassPeekStatic typeClassPeekStatic , -- ** typeClassRef typeClassRef , -- ** typeDefaultInterfacePeek typeDefaultInterfacePeek , -- ** typeDefaultInterfaceRef typeDefaultInterfaceRef , -- ** typeDefaultInterfaceUnref typeDefaultInterfaceUnref , -- ** typeDepth typeDepth , -- ** typeEnsure typeEnsure , -- ** typeFreeInstance typeFreeInstance , -- ** typeFromName typeFromName , -- ** typeFundamental typeFundamental , -- ** typeFundamentalNext typeFundamentalNext , -- ** typeGetInstanceCount typeGetInstanceCount , -- ** typeGetQdata typeGetQdata , -- ** typeGetTypeRegistrationSerial typeGetTypeRegistrationSerial , -- ** typeInit typeInit , -- ** typeInitWithDebugFlags typeInitWithDebugFlags , -- ** typeInterfaceAddPrerequisite typeInterfaceAddPrerequisite , -- ** typeInterfacePeek typeInterfacePeek , -- ** typeInterfacePrerequisites typeInterfacePrerequisites , -- ** typeInterfaces typeInterfaces , -- ** typeIsA typeIsA , -- ** typeName typeName , -- ** typeNameFromClass typeNameFromClass , -- ** typeNameFromInstance typeNameFromInstance , -- ** typeNextBase typeNextBase , -- ** typeParent typeParent , -- ** typeQname typeQname , -- ** typeQuery typeQuery , -- ** typeRegisterDynamic typeRegisterDynamic , -- ** typeRegisterFundamental typeRegisterFundamental , -- ** typeRegisterStatic typeRegisterStatic , -- ** typeSetQdata typeSetQdata , -- ** typeTestFlags typeTestFlags , -- ** valueTypeCompatible valueTypeCompatible , -- ** valueTypeTransformable valueTypeTransformable , ) where import Prelude () import Data.GI.Base.ShortPrelude import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map import GI.GObject.Types import GI.GObject.Callbacks import qualified GI.GLib as GLib -- function g_value_type_transformable -- Args : [Arg {argName = "src_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "src_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_value_type_transformable" g_value_type_transformable :: CGType -> -- src_type : TBasicType TGType CGType -> -- dest_type : TBasicType TGType IO CInt valueTypeTransformable :: (MonadIO m) => GType -> -- src_type GType -> -- dest_type m Bool valueTypeTransformable src_type dest_type = liftIO $ do let src_type' = gtypeToCGType src_type let dest_type' = gtypeToCGType dest_type result <- g_value_type_transformable src_type' dest_type' let result' = (/= 0) result return result' -- function g_value_type_compatible -- Args : [Arg {argName = "src_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "src_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_value_type_compatible" g_value_type_compatible :: CGType -> -- src_type : TBasicType TGType CGType -> -- dest_type : TBasicType TGType IO CInt valueTypeCompatible :: (MonadIO m) => GType -> -- src_type GType -> -- dest_type m Bool valueTypeCompatible src_type dest_type = liftIO $ do let src_type' = gtypeToCGType src_type let dest_type' = gtypeToCGType dest_type result <- g_value_type_compatible src_type' dest_type' let result' = (/= 0) result return result' -- function g_type_test_flags -- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_type_test_flags" g_type_test_flags :: CGType -> -- type : TBasicType TGType Word32 -> -- flags : TBasicType TUInt32 IO CInt typeTestFlags :: (MonadIO m) => GType -> -- type Word32 -> -- flags m Bool typeTestFlags type_ flags = liftIO $ do let type_' = gtypeToCGType type_ result <- g_type_test_flags type_' flags let result' = (/= 0) result return result' -- function g_type_set_qdata -- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_type_set_qdata" g_type_set_qdata :: CGType -> -- type : TBasicType TGType Word32 -> -- quark : TBasicType TUInt32 Ptr () -> -- data : TBasicType TVoid IO () typeSetQdata :: (MonadIO m) => GType -> -- type Word32 -> -- quark Ptr () -> -- data m () typeSetQdata type_ quark data_ = liftIO $ do let type_' = gtypeToCGType type_ g_type_set_qdata type_' quark data_ return () -- function g_type_register_static -- Args : [Arg {argName = "parent_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "GObject" "TypeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "TypeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "parent_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "GObject" "TypeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "TypeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "g_type_register_static" g_type_register_static :: CGType -> -- parent_type : TBasicType TGType CString -> -- type_name : TBasicType TUTF8 Ptr TypeInfo -> -- info : TInterface "GObject" "TypeInfo" CUInt -> -- flags : TInterface "GObject" "TypeFlags" IO CGType typeRegisterStatic :: (MonadIO m) => GType -> -- parent_type T.Text -> -- type_name TypeInfo -> -- info [TypeFlags] -> -- flags m GType typeRegisterStatic parent_type type_name info flags = liftIO $ do let parent_type' = gtypeToCGType parent_type type_name' <- textToCString type_name let info' = unsafeManagedPtrGetPtr info let flags' = gflagsToWord flags result <- g_type_register_static parent_type' type_name' info' flags' let result' = GType result touchManagedPtr info freeMem type_name' return result' -- function g_type_register_fundamental -- Args : [Arg {argName = "type_id", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "GObject" "TypeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "finfo", argType = TInterface "GObject" "TypeFundamentalInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "TypeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type_id", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "GObject" "TypeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "finfo", argType = TInterface "GObject" "TypeFundamentalInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "TypeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "g_type_register_fundamental" g_type_register_fundamental :: CGType -> -- type_id : TBasicType TGType CString -> -- type_name : TBasicType TUTF8 Ptr TypeInfo -> -- info : TInterface "GObject" "TypeInfo" Ptr TypeFundamentalInfo -> -- finfo : TInterface "GObject" "TypeFundamentalInfo" CUInt -> -- flags : TInterface "GObject" "TypeFlags" IO CGType typeRegisterFundamental :: (MonadIO m) => GType -> -- type_id T.Text -> -- type_name TypeInfo -> -- info TypeFundamentalInfo -> -- finfo [TypeFlags] -> -- flags m GType typeRegisterFundamental type_id type_name info finfo flags = liftIO $ do let type_id' = gtypeToCGType type_id type_name' <- textToCString type_name let info' = unsafeManagedPtrGetPtr info let finfo' = unsafeManagedPtrGetPtr finfo let flags' = gflagsToWord flags result <- g_type_register_fundamental type_id' type_name' info' finfo' flags' let result' = GType result touchManagedPtr info touchManagedPtr finfo freeMem type_name' return result' -- function g_type_register_dynamic -- Args : [Arg {argName = "parent_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "plugin", argType = TInterface "GObject" "TypePlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "TypeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "parent_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "plugin", argType = TInterface "GObject" "TypePlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "TypeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "g_type_register_dynamic" g_type_register_dynamic :: CGType -> -- parent_type : TBasicType TGType CString -> -- type_name : TBasicType TUTF8 Ptr TypePlugin -> -- plugin : TInterface "GObject" "TypePlugin" CUInt -> -- flags : TInterface "GObject" "TypeFlags" IO CGType typeRegisterDynamic :: (MonadIO m, TypePluginK a) => GType -> -- parent_type T.Text -> -- type_name a -> -- plugin [TypeFlags] -> -- flags m GType typeRegisterDynamic parent_type type_name plugin flags = liftIO $ do let parent_type' = gtypeToCGType parent_type type_name' <- textToCString type_name let plugin' = unsafeManagedPtrCastPtr plugin let flags' = gflagsToWord flags result <- g_type_register_dynamic parent_type' type_name' plugin' flags' let result' = GType result touchManagedPtr plugin freeMem type_name' return result' -- function g_type_query -- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "query", argType = TInterface "GObject" "TypeQuery", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_type_query" g_type_query :: CGType -> -- type : TBasicType TGType Ptr TypeQuery -> -- query : TInterface "GObject" "TypeQuery" IO () typeQuery :: (MonadIO m) => GType -> -- type m (TypeQuery) typeQuery type_ = liftIO $ do let type_' = gtypeToCGType type_ query <- callocBytes 24 :: IO (Ptr TypeQuery) g_type_query type_' query query' <- (wrapPtr TypeQuery) query return query' -- function g_type_qname -- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "g_type_qname" g_type_qname :: CGType -> -- type : TBasicType TGType IO Word32 typeQname :: (MonadIO m) => GType -> -- type m Word32 typeQname type_ = liftIO $ do let type_' = gtypeToCGType type_ result <- g_type_qname type_' return result -- function g_type_parent -- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "g_type_parent" g_type_parent :: CGType -> -- type : TBasicType TGType IO CGType typeParent :: (MonadIO m) => GType -> -- type m GType typeParent type_ = liftIO $ do let type_' = gtypeToCGType type_ result <- g_type_parent type_' let result' = GType result return result' -- function g_type_next_base -- Args : [Arg {argName = "leaf_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "leaf_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "g_type_next_base" g_type_next_base :: CGType -> -- leaf_type : TBasicType TGType CGType -> -- root_type : TBasicType TGType IO CGType typeNextBase :: (MonadIO m) => GType -> -- leaf_type GType -> -- root_type m GType typeNextBase leaf_type root_type = liftIO $ do let leaf_type' = gtypeToCGType leaf_type let root_type' = gtypeToCGType root_type result <- g_type_next_base leaf_type' root_type' let result' = GType result return result' -- function g_type_name_from_instance -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "TypeInstance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "TypeInstance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_type_name_from_instance" g_type_name_from_instance :: Ptr TypeInstance -> -- instance : TInterface "GObject" "TypeInstance" IO CString typeNameFromInstance :: (MonadIO m) => TypeInstance -> -- instance m T.Text typeNameFromInstance instance_ = liftIO $ do let instance_' = unsafeManagedPtrGetPtr instance_ result <- g_type_name_from_instance instance_' checkUnexpectedReturnNULL "g_type_name_from_instance" result result' <- cstringToText result touchManagedPtr instance_ return result' -- function g_type_name_from_class -- Args : [Arg {argName = "g_class", argType = TInterface "GObject" "TypeClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "g_class", argType = TInterface "GObject" "TypeClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_type_name_from_class" g_type_name_from_class :: Ptr TypeClass -> -- g_class : TInterface "GObject" "TypeClass" IO CString typeNameFromClass :: (MonadIO m) => TypeClass -> -- g_class m T.Text typeNameFromClass g_class = liftIO $ do let g_class' = unsafeManagedPtrGetPtr g_class result <- g_type_name_from_class g_class' checkUnexpectedReturnNULL "g_type_name_from_class" result result' <- cstringToText result touchManagedPtr g_class return result' -- function g_type_name -- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_type_name" g_type_name :: CGType -> -- type : TBasicType TGType IO CString typeName :: (MonadIO m) => GType -> -- type m T.Text typeName type_ = liftIO $ do let type_' = gtypeToCGType type_ result <- g_type_name type_' checkUnexpectedReturnNULL "g_type_name" result result' <- cstringToText result return result' -- function g_type_is_a -- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_a_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_a_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_type_is_a" g_type_is_a :: CGType -> -- type : TBasicType TGType CGType -> -- is_a_type : TBasicType TGType IO CInt typeIsA :: (MonadIO m) => GType -> -- type GType -> -- is_a_type m Bool typeIsA type_ is_a_type = liftIO $ do let type_' = gtypeToCGType type_ let is_a_type' = gtypeToCGType is_a_type result <- g_type_is_a type_' is_a_type' let result' = (/= 0) result return result' -- function g_type_interfaces -- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_interfaces", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [Arg {argName = "n_interfaces", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray False (-1) 1 (TBasicType TGType) -- throws : False -- Skip return : False foreign import ccall "g_type_interfaces" g_type_interfaces :: CGType -> -- type : TBasicType TGType Ptr Word32 -> -- n_interfaces : TBasicType TUInt32 IO (Ptr CGType) typeInterfaces :: (MonadIO m) => GType -> -- type m [GType] typeInterfaces type_ = liftIO $ do let type_' = gtypeToCGType type_ n_interfaces <- allocMem :: IO (Ptr Word32) result <- g_type_interfaces type_' n_interfaces n_interfaces' <- peek n_interfaces checkUnexpectedReturnNULL "g_type_interfaces" result result' <- (unpackMapStorableArrayWithLength GType n_interfaces') result freeMem result freeMem n_interfaces return result' -- function g_type_interface_prerequisites -- Args : [Arg {argName = "interface_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_prerequisites", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [Arg {argName = "n_prerequisites", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- hInArgs : [Arg {argName = "interface_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray False (-1) 1 (TBasicType TGType) -- throws : False -- Skip return : False foreign import ccall "g_type_interface_prerequisites" g_type_interface_prerequisites :: CGType -> -- interface_type : TBasicType TGType Ptr Word32 -> -- n_prerequisites : TBasicType TUInt32 IO (Ptr CGType) typeInterfacePrerequisites :: (MonadIO m) => GType -> -- interface_type m [GType] typeInterfacePrerequisites interface_type = liftIO $ do let interface_type' = gtypeToCGType interface_type n_prerequisites <- allocMem :: IO (Ptr Word32) result <- g_type_interface_prerequisites interface_type' n_prerequisites n_prerequisites' <- peek n_prerequisites checkUnexpectedReturnNULL "g_type_interface_prerequisites" result result' <- (unpackMapStorableArrayWithLength GType n_prerequisites') result freeMem result freeMem n_prerequisites return result' -- function g_type_interface_peek -- Args : [Arg {argName = "instance_class", argType = TInterface "GObject" "TypeClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iface_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance_class", argType = TInterface "GObject" "TypeClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iface_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "TypeInterface" -- throws : False -- Skip return : False foreign import ccall "g_type_interface_peek" g_type_interface_peek :: Ptr TypeClass -> -- instance_class : TInterface "GObject" "TypeClass" CGType -> -- iface_type : TBasicType TGType IO (Ptr TypeInterface) typeInterfacePeek :: (MonadIO m) => TypeClass -> -- instance_class GType -> -- iface_type m TypeInterface typeInterfacePeek instance_class iface_type = liftIO $ do let instance_class' = unsafeManagedPtrGetPtr instance_class let iface_type' = gtypeToCGType iface_type result <- g_type_interface_peek instance_class' iface_type' checkUnexpectedReturnNULL "g_type_interface_peek" result result' <- (newPtr 16 TypeInterface) result touchManagedPtr instance_class return result' -- function g_type_interface_get_plugin -- XXX Could not generate function g_type_interface_get_plugin -- Error was : Bad introspection data: "Wrapping not a GObject with no copy..." -- function g_type_interface_add_prerequisite -- Args : [Arg {argName = "interface_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prerequisite_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "interface_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prerequisite_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_type_interface_add_prerequisite" g_type_interface_add_prerequisite :: CGType -> -- interface_type : TBasicType TGType CGType -> -- prerequisite_type : TBasicType TGType IO () typeInterfaceAddPrerequisite :: (MonadIO m) => GType -> -- interface_type GType -> -- prerequisite_type m () typeInterfaceAddPrerequisite interface_type prerequisite_type = liftIO $ do let interface_type' = gtypeToCGType interface_type let prerequisite_type' = gtypeToCGType prerequisite_type g_type_interface_add_prerequisite interface_type' prerequisite_type' return () -- function g_type_init_with_debug_flags -- Args : [Arg {argName = "debug_flags", argType = TInterface "GObject" "TypeDebugFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "debug_flags", argType = TInterface "GObject" "TypeDebugFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_type_init_with_debug_flags" g_type_init_with_debug_flags :: CUInt -> -- debug_flags : TInterface "GObject" "TypeDebugFlags" IO () {-# DEPRECATED typeInitWithDebugFlags ["(Since version 2.36)","the type system is now initialised automatically"]#-} typeInitWithDebugFlags :: (MonadIO m) => [TypeDebugFlags] -> -- debug_flags m () typeInitWithDebugFlags debug_flags = liftIO $ do let debug_flags' = gflagsToWord debug_flags g_type_init_with_debug_flags debug_flags' return () -- function g_type_init -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_type_init" g_type_init :: IO () {-# DEPRECATED typeInit ["(Since version 2.36)","the type system is now initialised automatically"]#-} typeInit :: (MonadIO m) => m () typeInit = liftIO $ do g_type_init return () -- function g_type_get_type_registration_serial -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "g_type_get_type_registration_serial" g_type_get_type_registration_serial :: IO Word32 typeGetTypeRegistrationSerial :: (MonadIO m) => m Word32 typeGetTypeRegistrationSerial = liftIO $ do result <- g_type_get_type_registration_serial return result -- function g_type_get_qdata -- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_type_get_qdata" g_type_get_qdata :: CGType -> -- type : TBasicType TGType Word32 -> -- quark : TBasicType TUInt32 IO () typeGetQdata :: (MonadIO m) => GType -> -- type Word32 -> -- quark m () typeGetQdata type_ quark = liftIO $ do let type_' = gtypeToCGType type_ g_type_get_qdata type_' quark return () -- function g_type_get_plugin -- XXX Could not generate function g_type_get_plugin -- Error was : Bad introspection data: "Wrapping not a GObject with no copy..." -- function g_type_get_instance_count -- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_type_get_instance_count" g_type_get_instance_count :: CGType -> -- type : TBasicType TGType IO Int32 typeGetInstanceCount :: (MonadIO m) => GType -> -- type m Int32 typeGetInstanceCount type_ = liftIO $ do let type_' = gtypeToCGType type_ result <- g_type_get_instance_count type_' return result -- function g_type_fundamental_next -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "g_type_fundamental_next" g_type_fundamental_next :: IO CGType typeFundamentalNext :: (MonadIO m) => m GType typeFundamentalNext = liftIO $ do result <- g_type_fundamental_next let result' = GType result return result' -- function g_type_fundamental -- Args : [Arg {argName = "type_id", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type_id", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "g_type_fundamental" g_type_fundamental :: CGType -> -- type_id : TBasicType TGType IO CGType typeFundamental :: (MonadIO m) => GType -> -- type_id m GType typeFundamental type_id = liftIO $ do let type_id' = gtypeToCGType type_id result <- g_type_fundamental type_id' let result' = GType result return result' -- function g_type_from_name -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "g_type_from_name" g_type_from_name :: CString -> -- name : TBasicType TUTF8 IO CGType typeFromName :: (MonadIO m) => T.Text -> -- name m GType typeFromName name = liftIO $ do name' <- textToCString name result <- g_type_from_name name' let result' = GType result freeMem name' return result' -- function g_type_free_instance -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "TypeInstance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "TypeInstance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_type_free_instance" g_type_free_instance :: Ptr TypeInstance -> -- instance : TInterface "GObject" "TypeInstance" IO () typeFreeInstance :: (MonadIO m) => TypeInstance -> -- instance m () typeFreeInstance instance_ = liftIO $ do let instance_' = unsafeManagedPtrGetPtr instance_ g_type_free_instance instance_' touchManagedPtr instance_ return () -- function g_type_ensure -- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_type_ensure" g_type_ensure :: CGType -> -- type : TBasicType TGType IO () typeEnsure :: (MonadIO m) => GType -> -- type m () typeEnsure type_ = liftIO $ do let type_' = gtypeToCGType type_ g_type_ensure type_' return () -- function g_type_depth -- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "g_type_depth" g_type_depth :: CGType -> -- type : TBasicType TGType IO Word32 typeDepth :: (MonadIO m) => GType -> -- type m Word32 typeDepth type_ = liftIO $ do let type_' = gtypeToCGType type_ result <- g_type_depth type_' return result -- function g_type_default_interface_unref -- Args : [Arg {argName = "g_iface", argType = TInterface "GObject" "TypeInterface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "g_iface", argType = TInterface "GObject" "TypeInterface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_type_default_interface_unref" g_type_default_interface_unref :: Ptr TypeInterface -> -- g_iface : TInterface "GObject" "TypeInterface" IO () typeDefaultInterfaceUnref :: (MonadIO m) => TypeInterface -> -- g_iface m () typeDefaultInterfaceUnref g_iface = liftIO $ do let g_iface' = unsafeManagedPtrGetPtr g_iface g_type_default_interface_unref g_iface' touchManagedPtr g_iface return () -- function g_type_default_interface_ref -- Args : [Arg {argName = "g_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "g_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "TypeInterface" -- throws : False -- Skip return : False foreign import ccall "g_type_default_interface_ref" g_type_default_interface_ref :: CGType -> -- g_type : TBasicType TGType IO (Ptr TypeInterface) typeDefaultInterfaceRef :: (MonadIO m) => GType -> -- g_type m TypeInterface typeDefaultInterfaceRef g_type = liftIO $ do let g_type' = gtypeToCGType g_type result <- g_type_default_interface_ref g_type' checkUnexpectedReturnNULL "g_type_default_interface_ref" result result' <- (newPtr 16 TypeInterface) result return result' -- function g_type_default_interface_peek -- Args : [Arg {argName = "g_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "g_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "TypeInterface" -- throws : False -- Skip return : False foreign import ccall "g_type_default_interface_peek" g_type_default_interface_peek :: CGType -> -- g_type : TBasicType TGType IO (Ptr TypeInterface) typeDefaultInterfacePeek :: (MonadIO m) => GType -> -- g_type m TypeInterface typeDefaultInterfacePeek g_type = liftIO $ do let g_type' = gtypeToCGType g_type result <- g_type_default_interface_peek g_type' checkUnexpectedReturnNULL "g_type_default_interface_peek" result result' <- (newPtr 16 TypeInterface) result return result' -- function g_type_class_ref -- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "TypeClass" -- throws : False -- Skip return : False foreign import ccall "g_type_class_ref" g_type_class_ref :: CGType -> -- type : TBasicType TGType IO (Ptr TypeClass) typeClassRef :: (MonadIO m) => GType -> -- type m TypeClass typeClassRef type_ = liftIO $ do let type_' = gtypeToCGType type_ result <- g_type_class_ref type_' checkUnexpectedReturnNULL "g_type_class_ref" result result' <- (newPtr 8 TypeClass) result return result' -- function g_type_class_peek_static -- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "TypeClass" -- throws : False -- Skip return : False foreign import ccall "g_type_class_peek_static" g_type_class_peek_static :: CGType -> -- type : TBasicType TGType IO (Ptr TypeClass) typeClassPeekStatic :: (MonadIO m) => GType -> -- type m TypeClass typeClassPeekStatic type_ = liftIO $ do let type_' = gtypeToCGType type_ result <- g_type_class_peek_static type_' checkUnexpectedReturnNULL "g_type_class_peek_static" result result' <- (newPtr 8 TypeClass) result return result' -- function g_type_class_peek -- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "TypeClass" -- throws : False -- Skip return : False foreign import ccall "g_type_class_peek" g_type_class_peek :: CGType -> -- type : TBasicType TGType IO (Ptr TypeClass) typeClassPeek :: (MonadIO m) => GType -> -- type m TypeClass typeClassPeek type_ = liftIO $ do let type_' = gtypeToCGType type_ result <- g_type_class_peek type_' checkUnexpectedReturnNULL "g_type_class_peek" result result' <- (newPtr 8 TypeClass) result return result' -- function g_type_class_adjust_private_offset -- Args : [Arg {argName = "g_class", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "private_size_or_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "g_class", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "private_size_or_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_type_class_adjust_private_offset" g_type_class_adjust_private_offset :: Ptr () -> -- g_class : TBasicType TVoid Int32 -> -- private_size_or_offset : TBasicType TInt32 IO () typeClassAdjustPrivateOffset :: (MonadIO m) => Ptr () -> -- g_class Int32 -> -- private_size_or_offset m () typeClassAdjustPrivateOffset g_class private_size_or_offset = liftIO $ do g_type_class_adjust_private_offset g_class private_size_or_offset return () -- function g_type_class_add_private -- Args : [Arg {argName = "g_class", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "private_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "g_class", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "private_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_type_class_add_private" g_type_class_add_private :: Ptr () -> -- g_class : TBasicType TVoid Word64 -> -- private_size : TBasicType TUInt64 IO () typeClassAddPrivate :: (MonadIO m) => Ptr () -> -- g_class Word64 -> -- private_size m () typeClassAddPrivate g_class private_size = liftIO $ do g_type_class_add_private g_class private_size return () -- function g_type_children -- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_children", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [Arg {argName = "n_children", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray False (-1) 1 (TBasicType TGType) -- throws : False -- Skip return : False foreign import ccall "g_type_children" g_type_children :: CGType -> -- type : TBasicType TGType Ptr Word32 -> -- n_children : TBasicType TUInt32 IO (Ptr CGType) typeChildren :: (MonadIO m) => GType -> -- type m [GType] typeChildren type_ = liftIO $ do let type_' = gtypeToCGType type_ n_children <- allocMem :: IO (Ptr Word32) result <- g_type_children type_' n_children n_children' <- peek n_children checkUnexpectedReturnNULL "g_type_children" result result' <- (unpackMapStorableArrayWithLength GType n_children') result freeMem result freeMem n_children return result' -- function g_type_check_value_holds -- Args : [Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_type_check_value_holds" g_type_check_value_holds :: Ptr GValue -> -- value : TInterface "GObject" "Value" CGType -> -- type : TBasicType TGType IO CInt typeCheckValueHolds :: (MonadIO m) => GValue -> -- value GType -> -- type m Bool typeCheckValueHolds value type_ = liftIO $ do let value' = unsafeManagedPtrGetPtr value let type_' = gtypeToCGType type_ result <- g_type_check_value_holds value' type_' let result' = (/= 0) result touchManagedPtr value return result' -- function g_type_check_value -- Args : [Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_type_check_value" g_type_check_value :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO CInt typeCheckValue :: (MonadIO m) => GValue -> -- value m Bool typeCheckValue value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- g_type_check_value value' let result' = (/= 0) result touchManagedPtr value return result' -- function g_type_check_is_value_type -- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_type_check_is_value_type" g_type_check_is_value_type :: CGType -> -- type : TBasicType TGType IO CInt typeCheckIsValueType :: (MonadIO m) => GType -> -- type m Bool typeCheckIsValueType type_ = liftIO $ do let type_' = gtypeToCGType type_ result <- g_type_check_is_value_type type_' let result' = (/= 0) result return result' -- function g_type_check_instance_is_fundamentally_a -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "TypeInstance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fundamental_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "TypeInstance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fundamental_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_type_check_instance_is_fundamentally_a" g_type_check_instance_is_fundamentally_a :: Ptr TypeInstance -> -- instance : TInterface "GObject" "TypeInstance" CGType -> -- fundamental_type : TBasicType TGType IO CInt typeCheckInstanceIsFundamentallyA :: (MonadIO m) => TypeInstance -> -- instance GType -> -- fundamental_type m Bool typeCheckInstanceIsFundamentallyA instance_ fundamental_type = liftIO $ do let instance_' = unsafeManagedPtrGetPtr instance_ let fundamental_type' = gtypeToCGType fundamental_type result <- g_type_check_instance_is_fundamentally_a instance_' fundamental_type' let result' = (/= 0) result touchManagedPtr instance_ return result' -- function g_type_check_instance_is_a -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "TypeInstance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iface_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "TypeInstance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iface_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_type_check_instance_is_a" g_type_check_instance_is_a :: Ptr TypeInstance -> -- instance : TInterface "GObject" "TypeInstance" CGType -> -- iface_type : TBasicType TGType IO CInt typeCheckInstanceIsA :: (MonadIO m) => TypeInstance -> -- instance GType -> -- iface_type m Bool typeCheckInstanceIsA instance_ iface_type = liftIO $ do let instance_' = unsafeManagedPtrGetPtr instance_ let iface_type' = gtypeToCGType iface_type result <- g_type_check_instance_is_a instance_' iface_type' let result' = (/= 0) result touchManagedPtr instance_ return result' -- function g_type_check_instance -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "TypeInstance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "TypeInstance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_type_check_instance" g_type_check_instance :: Ptr TypeInstance -> -- instance : TInterface "GObject" "TypeInstance" IO CInt typeCheckInstance :: (MonadIO m) => TypeInstance -> -- instance m Bool typeCheckInstance instance_ = liftIO $ do let instance_' = unsafeManagedPtrGetPtr instance_ result <- g_type_check_instance instance_' let result' = (/= 0) result touchManagedPtr instance_ return result' -- function g_type_check_class_is_a -- Args : [Arg {argName = "g_class", argType = TInterface "GObject" "TypeClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_a_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "g_class", argType = TInterface "GObject" "TypeClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_a_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_type_check_class_is_a" g_type_check_class_is_a :: Ptr TypeClass -> -- g_class : TInterface "GObject" "TypeClass" CGType -> -- is_a_type : TBasicType TGType IO CInt typeCheckClassIsA :: (MonadIO m) => TypeClass -> -- g_class GType -> -- is_a_type m Bool typeCheckClassIsA g_class is_a_type = liftIO $ do let g_class' = unsafeManagedPtrGetPtr g_class let is_a_type' = gtypeToCGType is_a_type result <- g_type_check_class_is_a g_class' is_a_type' let result' = (/= 0) result touchManagedPtr g_class return result' -- function g_type_add_interface_static -- Args : [Arg {argName = "instance_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "GObject" "InterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "GObject" "InterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_type_add_interface_static" g_type_add_interface_static :: CGType -> -- instance_type : TBasicType TGType CGType -> -- interface_type : TBasicType TGType Ptr InterfaceInfo -> -- info : TInterface "GObject" "InterfaceInfo" IO () typeAddInterfaceStatic :: (MonadIO m) => GType -> -- instance_type GType -> -- interface_type InterfaceInfo -> -- info m () typeAddInterfaceStatic instance_type interface_type info = liftIO $ do let instance_type' = gtypeToCGType instance_type let interface_type' = gtypeToCGType interface_type let info' = unsafeManagedPtrGetPtr info g_type_add_interface_static instance_type' interface_type' info' touchManagedPtr info return () -- function g_type_add_interface_dynamic -- Args : [Arg {argName = "instance_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "plugin", argType = TInterface "GObject" "TypePlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "plugin", argType = TInterface "GObject" "TypePlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_type_add_interface_dynamic" g_type_add_interface_dynamic :: CGType -> -- instance_type : TBasicType TGType CGType -> -- interface_type : TBasicType TGType Ptr TypePlugin -> -- plugin : TInterface "GObject" "TypePlugin" IO () typeAddInterfaceDynamic :: (MonadIO m, TypePluginK a) => GType -> -- instance_type GType -> -- interface_type a -> -- plugin m () typeAddInterfaceDynamic instance_type interface_type plugin = liftIO $ do let instance_type' = gtypeToCGType instance_type let interface_type' = gtypeToCGType interface_type let plugin' = unsafeManagedPtrCastPtr plugin g_type_add_interface_dynamic instance_type' interface_type' plugin' touchManagedPtr plugin return () -- function g_type_add_instance_private -- Args : [Arg {argName = "class_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "private_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "class_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "private_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_type_add_instance_private" g_type_add_instance_private :: CGType -> -- class_type : TBasicType TGType Word64 -> -- private_size : TBasicType TUInt64 IO Int32 typeAddInstancePrivate :: (MonadIO m) => GType -> -- class_type Word64 -> -- private_size m Int32 typeAddInstancePrivate class_type private_size = liftIO $ do let class_type' = gtypeToCGType class_type result <- g_type_add_instance_private class_type' private_size return result -- function g_type_add_class_private -- Args : [Arg {argName = "class_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "private_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "class_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "private_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_type_add_class_private" g_type_add_class_private :: CGType -> -- class_type : TBasicType TGType Word64 -> -- private_size : TBasicType TUInt64 IO () typeAddClassPrivate :: (MonadIO m) => GType -> -- class_type Word64 -> -- private_size m () typeAddClassPrivate class_type private_size = liftIO $ do let class_type' = gtypeToCGType class_type g_type_add_class_private class_type' private_size return () -- function g_strdup_value_contents -- Args : [Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_strdup_value_contents" g_strdup_value_contents :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO CString strdupValueContents :: (MonadIO m) => GValue -> -- value m T.Text strdupValueContents value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- g_strdup_value_contents value' checkUnexpectedReturnNULL "g_strdup_value_contents" result result' <- cstringToText result freeMem result touchManagedPtr value return result' -- function g_source_set_dummy_callback -- Args : [Arg {argName = "source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_source_set_dummy_callback" g_source_set_dummy_callback :: Ptr GLib.Source -> -- source : TInterface "GLib" "Source" IO () sourceSetDummyCallback :: (MonadIO m) => GLib.Source -> -- source m () sourceSetDummyCallback source = liftIO $ do let source' = unsafeManagedPtrGetPtr source g_source_set_dummy_callback source' touchManagedPtr source return () -- function g_source_set_closure -- Args : [Arg {argName = "source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_source_set_closure" g_source_set_closure :: Ptr GLib.Source -> -- source : TInterface "GLib" "Source" Ptr Closure -> -- closure : TInterface "GObject" "Closure" IO () sourceSetClosure :: (MonadIO m) => GLib.Source -> -- source Closure -> -- closure m () sourceSetClosure source closure = liftIO $ do let source' = unsafeManagedPtrGetPtr source let closure' = unsafeManagedPtrGetPtr closure g_source_set_closure source' closure' touchManagedPtr source touchManagedPtr closure return () -- function g_signal_type_cclosure_new -- Args : [Arg {argName = "itype", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "struct_offset", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "itype", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "struct_offset", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "Closure" -- throws : False -- Skip return : False foreign import ccall "g_signal_type_cclosure_new" g_signal_type_cclosure_new :: CGType -> -- itype : TBasicType TGType Word32 -> -- struct_offset : TBasicType TUInt32 IO (Ptr Closure) signalTypeCclosureNew :: (MonadIO m) => GType -> -- itype Word32 -> -- struct_offset m Closure signalTypeCclosureNew itype struct_offset = liftIO $ do let itype' = gtypeToCGType itype result <- g_signal_type_cclosure_new itype' struct_offset checkUnexpectedReturnNULL "g_signal_type_cclosure_new" result result' <- (wrapBoxed Closure) result return result' -- function g_signal_stop_emission_by_name -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_signal_stop_emission_by_name" g_signal_stop_emission_by_name :: Ptr Object -> -- instance : TInterface "GObject" "Object" CString -> -- detailed_signal : TBasicType TUTF8 IO () signalStopEmissionByName :: (MonadIO m, ObjectK a) => a -> -- instance T.Text -> -- detailed_signal m () signalStopEmissionByName instance_ detailed_signal = liftIO $ do let instance_' = unsafeManagedPtrCastPtr instance_ detailed_signal' <- textToCString detailed_signal g_signal_stop_emission_by_name instance_' detailed_signal' touchManagedPtr instance_ freeMem detailed_signal' return () -- function g_signal_stop_emission -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_signal_stop_emission" g_signal_stop_emission :: Ptr Object -> -- instance : TInterface "GObject" "Object" Word32 -> -- signal_id : TBasicType TUInt32 Word32 -> -- detail : TBasicType TUInt32 IO () signalStopEmission :: (MonadIO m, ObjectK a) => a -> -- instance Word32 -> -- signal_id Word32 -> -- detail m () signalStopEmission instance_ signal_id detail = liftIO $ do let instance_' = unsafeManagedPtrCastPtr instance_ g_signal_stop_emission instance_' signal_id detail touchManagedPtr instance_ return () -- function g_signal_remove_emission_hook -- Args : [Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_signal_remove_emission_hook" g_signal_remove_emission_hook :: Word32 -> -- signal_id : TBasicType TUInt32 Word64 -> -- hook_id : TBasicType TUInt64 IO () signalRemoveEmissionHook :: (MonadIO m) => Word32 -> -- signal_id Word64 -> -- hook_id m () signalRemoveEmissionHook signal_id hook_id = liftIO $ do g_signal_remove_emission_hook signal_id hook_id return () -- function g_signal_query -- Args : [Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "query", argType = TInterface "GObject" "SignalQuery", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_signal_query" g_signal_query :: Word32 -> -- signal_id : TBasicType TUInt32 Ptr SignalQuery -> -- query : TInterface "GObject" "SignalQuery" IO () signalQuery :: (MonadIO m) => Word32 -> -- signal_id m (SignalQuery) signalQuery signal_id = liftIO $ do query <- callocBytes 56 :: IO (Ptr SignalQuery) g_signal_query signal_id query query' <- (wrapPtr SignalQuery) query return query' -- function g_signal_parse_name -- Args : [Arg {argName = "detailed_signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "itype", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id_p", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "detail_p", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "force_detail_quark", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "detailed_signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "itype", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force_detail_quark", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_signal_parse_name" g_signal_parse_name :: CString -> -- detailed_signal : TBasicType TUTF8 CGType -> -- itype : TBasicType TGType Ptr Word32 -> -- signal_id_p : TBasicType TUInt32 Ptr Word32 -> -- detail_p : TBasicType TUInt32 CInt -> -- force_detail_quark : TBasicType TBoolean IO CInt signalParseName :: (MonadIO m) => T.Text -> -- detailed_signal GType -> -- itype Bool -> -- force_detail_quark m (Bool,Word32,Word32) signalParseName detailed_signal itype force_detail_quark = liftIO $ do detailed_signal' <- textToCString detailed_signal let itype' = gtypeToCGType itype signal_id_p <- allocMem :: IO (Ptr Word32) detail_p <- allocMem :: IO (Ptr Word32) let force_detail_quark' = (fromIntegral . fromEnum) force_detail_quark result <- g_signal_parse_name detailed_signal' itype' signal_id_p detail_p force_detail_quark' let result' = (/= 0) result signal_id_p' <- peek signal_id_p detail_p' <- peek detail_p freeMem detailed_signal' freeMem signal_id_p freeMem detail_p return (result', signal_id_p', detail_p') -- function g_signal_override_class_closure -- Args : [Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "instance_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "instance_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_signal_override_class_closure" g_signal_override_class_closure :: Word32 -> -- signal_id : TBasicType TUInt32 CGType -> -- instance_type : TBasicType TGType Ptr Closure -> -- class_closure : TInterface "GObject" "Closure" IO () signalOverrideClassClosure :: (MonadIO m) => Word32 -> -- signal_id GType -> -- instance_type Closure -> -- class_closure m () signalOverrideClassClosure signal_id instance_type class_closure = liftIO $ do let instance_type' = gtypeToCGType instance_type let class_closure' = unsafeManagedPtrGetPtr class_closure g_signal_override_class_closure signal_id instance_type' class_closure' touchManagedPtr class_closure return () -- function g_signal_name -- Args : [Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_signal_name" g_signal_name :: Word32 -> -- signal_id : TBasicType TUInt32 IO CString signalName :: (MonadIO m) => Word32 -> -- signal_id m T.Text signalName signal_id = liftIO $ do result <- g_signal_name signal_id checkUnexpectedReturnNULL "g_signal_name" result result' <- cstringToText result return result' -- function g_signal_lookup -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "itype", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "itype", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "g_signal_lookup" g_signal_lookup :: CString -> -- name : TBasicType TUTF8 CGType -> -- itype : TBasicType TGType IO Word32 signalLookup :: (MonadIO m) => T.Text -> -- name GType -> -- itype m Word32 signalLookup name itype = liftIO $ do name' <- textToCString name let itype' = gtypeToCGType itype result <- g_signal_lookup name' itype' freeMem name' return result -- function g_signal_list_ids -- Args : [Arg {argName = "itype", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_ids", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [Arg {argName = "n_ids", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- hInArgs : [Arg {argName = "itype", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray False (-1) 1 (TBasicType TUInt32) -- throws : False -- Skip return : False foreign import ccall "g_signal_list_ids" g_signal_list_ids :: CGType -> -- itype : TBasicType TGType Ptr Word32 -> -- n_ids : TBasicType TUInt32 IO (Ptr Word32) signalListIds :: (MonadIO m) => GType -> -- itype m [Word32] signalListIds itype = liftIO $ do let itype' = gtypeToCGType itype n_ids <- allocMem :: IO (Ptr Word32) result <- g_signal_list_ids itype' n_ids n_ids' <- peek n_ids checkUnexpectedReturnNULL "g_signal_list_ids" result result' <- (unpackStorableArrayWithLength n_ids') result freeMem n_ids return result' -- function g_signal_has_handler_pending -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_be_blocked", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_be_blocked", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_signal_has_handler_pending" g_signal_has_handler_pending :: Ptr Object -> -- instance : TInterface "GObject" "Object" Word32 -> -- signal_id : TBasicType TUInt32 Word32 -> -- detail : TBasicType TUInt32 CInt -> -- may_be_blocked : TBasicType TBoolean IO CInt signalHasHandlerPending :: (MonadIO m, ObjectK a) => a -> -- instance Word32 -> -- signal_id Word32 -> -- detail Bool -> -- may_be_blocked m Bool signalHasHandlerPending instance_ signal_id detail may_be_blocked = liftIO $ do let instance_' = unsafeManagedPtrCastPtr instance_ let may_be_blocked' = (fromIntegral . fromEnum) may_be_blocked result <- g_signal_has_handler_pending instance_' signal_id detail may_be_blocked' let result' = (/= 0) result touchManagedPtr instance_ return result' -- function g_signal_handlers_unblock_matched -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TInterface "GObject" "SignalMatchType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TInterface "GObject" "SignalMatchType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "g_signal_handlers_unblock_matched" g_signal_handlers_unblock_matched :: Ptr Object -> -- instance : TInterface "GObject" "Object" CUInt -> -- mask : TInterface "GObject" "SignalMatchType" Word32 -> -- signal_id : TBasicType TUInt32 Word32 -> -- detail : TBasicType TUInt32 Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr () -> -- func : TBasicType TVoid Ptr () -> -- data : TBasicType TVoid IO Word32 signalHandlersUnblockMatched :: (MonadIO m, ObjectK a) => a -> -- instance [SignalMatchType] -> -- mask Word32 -> -- signal_id Word32 -> -- detail Maybe (Closure) -> -- closure Ptr () -> -- func Ptr () -> -- data m Word32 signalHandlersUnblockMatched instance_ mask signal_id detail closure func data_ = liftIO $ do let instance_' = unsafeManagedPtrCastPtr instance_ let mask' = gflagsToWord mask maybeClosure <- case closure of Nothing -> return nullPtr Just jClosure -> do let jClosure' = unsafeManagedPtrGetPtr jClosure return jClosure' result <- g_signal_handlers_unblock_matched instance_' mask' signal_id detail maybeClosure func data_ touchManagedPtr instance_ whenJust closure touchManagedPtr return result -- function g_signal_handlers_disconnect_matched -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TInterface "GObject" "SignalMatchType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TInterface "GObject" "SignalMatchType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "g_signal_handlers_disconnect_matched" g_signal_handlers_disconnect_matched :: Ptr Object -> -- instance : TInterface "GObject" "Object" CUInt -> -- mask : TInterface "GObject" "SignalMatchType" Word32 -> -- signal_id : TBasicType TUInt32 Word32 -> -- detail : TBasicType TUInt32 Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr () -> -- func : TBasicType TVoid Ptr () -> -- data : TBasicType TVoid IO Word32 signalHandlersDisconnectMatched :: (MonadIO m, ObjectK a) => a -> -- instance [SignalMatchType] -> -- mask Word32 -> -- signal_id Word32 -> -- detail Maybe (Closure) -> -- closure Ptr () -> -- func Ptr () -> -- data m Word32 signalHandlersDisconnectMatched instance_ mask signal_id detail closure func data_ = liftIO $ do let instance_' = unsafeManagedPtrCastPtr instance_ let mask' = gflagsToWord mask maybeClosure <- case closure of Nothing -> return nullPtr Just jClosure -> do let jClosure' = unsafeManagedPtrGetPtr jClosure return jClosure' result <- g_signal_handlers_disconnect_matched instance_' mask' signal_id detail maybeClosure func data_ touchManagedPtr instance_ whenJust closure touchManagedPtr return result -- function g_signal_handlers_destroy -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_signal_handlers_destroy" g_signal_handlers_destroy :: Ptr Object -> -- instance : TInterface "GObject" "Object" IO () signalHandlersDestroy :: (MonadIO m, ObjectK a) => a -> -- instance m () signalHandlersDestroy instance_ = liftIO $ do let instance_' = unsafeManagedPtrCastPtr instance_ g_signal_handlers_destroy instance_' touchManagedPtr instance_ return () -- function g_signal_handlers_block_matched -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TInterface "GObject" "SignalMatchType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TInterface "GObject" "SignalMatchType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "g_signal_handlers_block_matched" g_signal_handlers_block_matched :: Ptr Object -> -- instance : TInterface "GObject" "Object" CUInt -> -- mask : TInterface "GObject" "SignalMatchType" Word32 -> -- signal_id : TBasicType TUInt32 Word32 -> -- detail : TBasicType TUInt32 Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr () -> -- func : TBasicType TVoid Ptr () -> -- data : TBasicType TVoid IO Word32 signalHandlersBlockMatched :: (MonadIO m, ObjectK a) => a -> -- instance [SignalMatchType] -> -- mask Word32 -> -- signal_id Word32 -> -- detail Maybe (Closure) -> -- closure Ptr () -> -- func Ptr () -> -- data m Word32 signalHandlersBlockMatched instance_ mask signal_id detail closure func data_ = liftIO $ do let instance_' = unsafeManagedPtrCastPtr instance_ let mask' = gflagsToWord mask maybeClosure <- case closure of Nothing -> return nullPtr Just jClosure -> do let jClosure' = unsafeManagedPtrGetPtr jClosure return jClosure' result <- g_signal_handlers_block_matched instance_' mask' signal_id detail maybeClosure func data_ touchManagedPtr instance_ whenJust closure touchManagedPtr return result -- function g_signal_handler_unblock -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_signal_handler_unblock" g_signal_handler_unblock :: Ptr Object -> -- instance : TInterface "GObject" "Object" Word64 -> -- handler_id : TBasicType TUInt64 IO () signalHandlerUnblock :: (MonadIO m, ObjectK a) => a -> -- instance Word64 -> -- handler_id m () signalHandlerUnblock instance_ handler_id = liftIO $ do let instance_' = unsafeManagedPtrCastPtr instance_ g_signal_handler_unblock instance_' handler_id touchManagedPtr instance_ return () -- function g_signal_handler_is_connected -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_signal_handler_is_connected" g_signal_handler_is_connected :: Ptr Object -> -- instance : TInterface "GObject" "Object" Word64 -> -- handler_id : TBasicType TUInt64 IO CInt signalHandlerIsConnected :: (MonadIO m, ObjectK a) => a -> -- instance Word64 -> -- handler_id m Bool signalHandlerIsConnected instance_ handler_id = liftIO $ do let instance_' = unsafeManagedPtrCastPtr instance_ result <- g_signal_handler_is_connected instance_' handler_id let result' = (/= 0) result touchManagedPtr instance_ return result' -- function g_signal_handler_find -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TInterface "GObject" "SignalMatchType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TInterface "GObject" "SignalMatchType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False foreign import ccall "g_signal_handler_find" g_signal_handler_find :: Ptr Object -> -- instance : TInterface "GObject" "Object" CUInt -> -- mask : TInterface "GObject" "SignalMatchType" Word32 -> -- signal_id : TBasicType TUInt32 Word32 -> -- detail : TBasicType TUInt32 Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr () -> -- func : TBasicType TVoid Ptr () -> -- data : TBasicType TVoid IO Word64 signalHandlerFind :: (MonadIO m, ObjectK a) => a -> -- instance [SignalMatchType] -> -- mask Word32 -> -- signal_id Word32 -> -- detail Maybe (Closure) -> -- closure Ptr () -> -- func Ptr () -> -- data m Word64 signalHandlerFind instance_ mask signal_id detail closure func data_ = liftIO $ do let instance_' = unsafeManagedPtrCastPtr instance_ let mask' = gflagsToWord mask maybeClosure <- case closure of Nothing -> return nullPtr Just jClosure -> do let jClosure' = unsafeManagedPtrGetPtr jClosure return jClosure' result <- g_signal_handler_find instance_' mask' signal_id detail maybeClosure func data_ touchManagedPtr instance_ whenJust closure touchManagedPtr return result -- function g_signal_handler_disconnect -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_signal_handler_disconnect" g_signal_handler_disconnect :: Ptr Object -> -- instance : TInterface "GObject" "Object" Word64 -> -- handler_id : TBasicType TUInt64 IO () signalHandlerDisconnect :: (MonadIO m, ObjectK a) => a -> -- instance Word64 -> -- handler_id m () signalHandlerDisconnect instance_ handler_id = liftIO $ do let instance_' = unsafeManagedPtrCastPtr instance_ g_signal_handler_disconnect instance_' handler_id touchManagedPtr instance_ return () -- function g_signal_handler_block -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_signal_handler_block" g_signal_handler_block :: Ptr Object -> -- instance : TInterface "GObject" "Object" Word64 -> -- handler_id : TBasicType TUInt64 IO () signalHandlerBlock :: (MonadIO m, ObjectK a) => a -> -- instance Word64 -> -- handler_id m () signalHandlerBlock instance_ handler_id = liftIO $ do let instance_' = unsafeManagedPtrCastPtr instance_ g_signal_handler_block instance_' handler_id touchManagedPtr instance_ return () -- function g_signal_get_invocation_hint -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "SignalInvocationHint" -- throws : False -- Skip return : False foreign import ccall "g_signal_get_invocation_hint" g_signal_get_invocation_hint :: Ptr Object -> -- instance : TInterface "GObject" "Object" IO (Ptr SignalInvocationHint) signalGetInvocationHint :: (MonadIO m, ObjectK a) => a -> -- instance m SignalInvocationHint signalGetInvocationHint instance_ = liftIO $ do let instance_' = unsafeManagedPtrCastPtr instance_ result <- g_signal_get_invocation_hint instance_' checkUnexpectedReturnNULL "g_signal_get_invocation_hint" result result' <- (newPtr 12 SignalInvocationHint) result touchManagedPtr instance_ return result' -- function g_signal_emitv -- Args : [Arg {argName = "instance_and_params", argType = TCArray False (-1) (-1) (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance_and_params", argType = TCArray False (-1) (-1) (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_signal_emitv" g_signal_emitv :: Ptr (Ptr GValue) -> -- instance_and_params : TCArray False (-1) (-1) (TInterface "GObject" "Value") Word32 -> -- signal_id : TBasicType TUInt32 Word32 -> -- detail : TBasicType TUInt32 Ptr GValue -> -- return_value : TInterface "GObject" "Value" IO () signalEmitv :: (MonadIO m) => Ptr (Ptr GValue) -> -- instance_and_params Word32 -> -- signal_id Word32 -> -- detail GValue -> -- return_value m () signalEmitv instance_and_params signal_id detail return_value = liftIO $ do let return_value' = unsafeManagedPtrGetPtr return_value g_signal_emitv instance_and_params signal_id detail return_value' touchManagedPtr return_value return () -- function g_signal_connect_closure_by_id -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "after", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "after", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False foreign import ccall "g_signal_connect_closure_by_id" g_signal_connect_closure_by_id :: Ptr Object -> -- instance : TInterface "GObject" "Object" Word32 -> -- signal_id : TBasicType TUInt32 Word32 -> -- detail : TBasicType TUInt32 Ptr Closure -> -- closure : TInterface "GObject" "Closure" CInt -> -- after : TBasicType TBoolean IO Word64 signalConnectClosureById :: (MonadIO m, ObjectK a) => a -> -- instance Word32 -> -- signal_id Word32 -> -- detail Closure -> -- closure Bool -> -- after m Word64 signalConnectClosureById instance_ signal_id detail closure after = liftIO $ do let instance_' = unsafeManagedPtrCastPtr instance_ let closure' = unsafeManagedPtrGetPtr closure let after' = (fromIntegral . fromEnum) after result <- g_signal_connect_closure_by_id instance_' signal_id detail closure' after' touchManagedPtr instance_ touchManagedPtr closure return result -- function g_signal_connect_closure -- Args : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "after", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "after", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False foreign import ccall "g_signal_connect_closure" g_signal_connect_closure :: Ptr Object -> -- instance : TInterface "GObject" "Object" CString -> -- detailed_signal : TBasicType TUTF8 Ptr Closure -> -- closure : TInterface "GObject" "Closure" CInt -> -- after : TBasicType TBoolean IO Word64 signalConnectClosure :: (MonadIO m, ObjectK a) => a -> -- instance T.Text -> -- detailed_signal Closure -> -- closure Bool -> -- after m Word64 signalConnectClosure instance_ detailed_signal closure after = liftIO $ do let instance_' = unsafeManagedPtrCastPtr instance_ detailed_signal' <- textToCString detailed_signal let closure' = unsafeManagedPtrGetPtr closure let after' = (fromIntegral . fromEnum) after result <- g_signal_connect_closure instance_' detailed_signal' closure' after' touchManagedPtr instance_ touchManagedPtr closure freeMem detailed_signal' return result -- function g_signal_chain_from_overridden -- Args : [Arg {argName = "instance_and_params", argType = TCArray False (-1) (-1) (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "instance_and_params", argType = TCArray False (-1) (-1) (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_signal_chain_from_overridden" g_signal_chain_from_overridden :: Ptr (Ptr GValue) -> -- instance_and_params : TCArray False (-1) (-1) (TInterface "GObject" "Value") Ptr GValue -> -- return_value : TInterface "GObject" "Value" IO () signalChainFromOverridden :: (MonadIO m) => Ptr (Ptr GValue) -> -- instance_and_params GValue -> -- return_value m () signalChainFromOverridden instance_and_params return_value = liftIO $ do let return_value' = unsafeManagedPtrGetPtr return_value g_signal_chain_from_overridden instance_and_params return_value' touchManagedPtr return_value return () -- function g_signal_add_emission_hook -- Args : [Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_func", argType = TInterface "GObject" "SignalEmissionHook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "hook_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_func", argType = TInterface "GObject" "SignalEmissionHook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False foreign import ccall "g_signal_add_emission_hook" g_signal_add_emission_hook :: Word32 -> -- signal_id : TBasicType TUInt32 Word32 -> -- detail : TBasicType TUInt32 FunPtr SignalEmissionHookC -> -- hook_func : TInterface "GObject" "SignalEmissionHook" Ptr () -> -- hook_data : TBasicType TVoid FunPtr GLib.DestroyNotifyC -> -- data_destroy : TInterface "GLib" "DestroyNotify" IO Word64 signalAddEmissionHook :: (MonadIO m) => Word32 -> -- signal_id Word32 -> -- detail SignalEmissionHook -> -- hook_func m Word64 signalAddEmissionHook signal_id detail hook_func = liftIO $ do hook_func' <- mkSignalEmissionHook (signalEmissionHookWrapper Nothing hook_func) let hook_data = castFunPtrToPtr hook_func' let data_destroy = safeFreeFunPtrPtr result <- g_signal_add_emission_hook signal_id detail hook_func' hook_data data_destroy return result -- function g_signal_accumulator_true_handled -- Args : [Arg {argName = "ihint", argType = TInterface "GObject" "SignalInvocationHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_accu", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_return", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dummy", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "ihint", argType = TInterface "GObject" "SignalInvocationHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_accu", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_return", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dummy", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_signal_accumulator_true_handled" g_signal_accumulator_true_handled :: Ptr SignalInvocationHint -> -- ihint : TInterface "GObject" "SignalInvocationHint" Ptr GValue -> -- return_accu : TInterface "GObject" "Value" Ptr GValue -> -- handler_return : TInterface "GObject" "Value" Ptr () -> -- dummy : TBasicType TVoid IO CInt signalAccumulatorTrueHandled :: (MonadIO m) => SignalInvocationHint -> -- ihint GValue -> -- return_accu GValue -> -- handler_return Ptr () -> -- dummy m Bool signalAccumulatorTrueHandled ihint return_accu handler_return dummy = liftIO $ do let ihint' = unsafeManagedPtrGetPtr ihint let return_accu' = unsafeManagedPtrGetPtr return_accu let handler_return' = unsafeManagedPtrGetPtr handler_return result <- g_signal_accumulator_true_handled ihint' return_accu' handler_return' dummy let result' = (/= 0) result touchManagedPtr ihint touchManagedPtr return_accu touchManagedPtr handler_return return result' -- function g_signal_accumulator_first_wins -- Args : [Arg {argName = "ihint", argType = TInterface "GObject" "SignalInvocationHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_accu", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_return", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dummy", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "ihint", argType = TInterface "GObject" "SignalInvocationHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_accu", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_return", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dummy", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_signal_accumulator_first_wins" g_signal_accumulator_first_wins :: Ptr SignalInvocationHint -> -- ihint : TInterface "GObject" "SignalInvocationHint" Ptr GValue -> -- return_accu : TInterface "GObject" "Value" Ptr GValue -> -- handler_return : TInterface "GObject" "Value" Ptr () -> -- dummy : TBasicType TVoid IO CInt signalAccumulatorFirstWins :: (MonadIO m) => SignalInvocationHint -> -- ihint GValue -> -- return_accu GValue -> -- handler_return Ptr () -> -- dummy m Bool signalAccumulatorFirstWins ihint return_accu handler_return dummy = liftIO $ do let ihint' = unsafeManagedPtrGetPtr ihint let return_accu' = unsafeManagedPtrGetPtr return_accu let handler_return' = unsafeManagedPtrGetPtr handler_return result <- g_signal_accumulator_first_wins ihint' return_accu' handler_return' dummy let result' = (/= 0) result touchManagedPtr ihint touchManagedPtr return_accu touchManagedPtr handler_return return result' -- function g_pointer_type_register_static -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "g_pointer_type_register_static" g_pointer_type_register_static :: CString -> -- name : TBasicType TUTF8 IO CGType pointerTypeRegisterStatic :: (MonadIO m) => T.Text -> -- name m GType pointerTypeRegisterStatic name = liftIO $ do name' <- textToCString name result <- g_pointer_type_register_static name' let result' = GType result freeMem name' return result' -- function g_param_values_cmp -- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value1", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value2", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value1", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value2", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_param_values_cmp" g_param_values_cmp :: Ptr GParamSpec -> -- pspec : TParamSpec Ptr GValue -> -- value1 : TInterface "GObject" "Value" Ptr GValue -> -- value2 : TInterface "GObject" "Value" IO Int32 paramValuesCmp :: (MonadIO m) => GParamSpec -> -- pspec GValue -> -- value1 GValue -> -- value2 m Int32 paramValuesCmp pspec value1 value2 = liftIO $ do let pspec' = unsafeManagedPtrGetPtr pspec let value1' = unsafeManagedPtrGetPtr value1 let value2' = unsafeManagedPtrGetPtr value2 result <- g_param_values_cmp pspec' value1' value2' touchManagedPtr value1 touchManagedPtr value2 return result -- function g_param_value_validate -- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_param_value_validate" g_param_value_validate :: Ptr GParamSpec -> -- pspec : TParamSpec Ptr GValue -> -- value : TInterface "GObject" "Value" IO CInt paramValueValidate :: (MonadIO m) => GParamSpec -> -- pspec GValue -> -- value m Bool paramValueValidate pspec value = liftIO $ do let pspec' = unsafeManagedPtrGetPtr pspec let value' = unsafeManagedPtrGetPtr value result <- g_param_value_validate pspec' value' let result' = (/= 0) result touchManagedPtr value return result' -- function g_param_value_set_default -- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_param_value_set_default" g_param_value_set_default :: Ptr GParamSpec -> -- pspec : TParamSpec Ptr GValue -> -- value : TInterface "GObject" "Value" IO () paramValueSetDefault :: (MonadIO m) => GParamSpec -> -- pspec GValue -> -- value m () paramValueSetDefault pspec value = liftIO $ do let pspec' = unsafeManagedPtrGetPtr pspec let value' = unsafeManagedPtrGetPtr value g_param_value_set_default pspec' value' touchManagedPtr value return () -- function g_param_value_defaults -- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_param_value_defaults" g_param_value_defaults :: Ptr GParamSpec -> -- pspec : TParamSpec Ptr GValue -> -- value : TInterface "GObject" "Value" IO CInt paramValueDefaults :: (MonadIO m) => GParamSpec -> -- pspec GValue -> -- value m Bool paramValueDefaults pspec value = liftIO $ do let pspec' = unsafeManagedPtrGetPtr pspec let value' = unsafeManagedPtrGetPtr value result <- g_param_value_defaults pspec' value' let result' = (/= 0) result touchManagedPtr value return result' -- function g_param_value_convert -- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strict_validation", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strict_validation", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_param_value_convert" g_param_value_convert :: Ptr GParamSpec -> -- pspec : TParamSpec Ptr GValue -> -- src_value : TInterface "GObject" "Value" Ptr GValue -> -- dest_value : TInterface "GObject" "Value" CInt -> -- strict_validation : TBasicType TBoolean IO CInt paramValueConvert :: (MonadIO m) => GParamSpec -> -- pspec GValue -> -- src_value GValue -> -- dest_value Bool -> -- strict_validation m Bool paramValueConvert pspec src_value dest_value strict_validation = liftIO $ do let pspec' = unsafeManagedPtrGetPtr pspec let src_value' = unsafeManagedPtrGetPtr src_value let dest_value' = unsafeManagedPtrGetPtr dest_value let strict_validation' = (fromIntegral . fromEnum) strict_validation result <- g_param_value_convert pspec' src_value' dest_value' strict_validation' let result' = (/= 0) result touchManagedPtr src_value touchManagedPtr dest_value return result' -- function g_param_type_register_static -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec_info", argType = TInterface "GObject" "ParamSpecTypeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec_info", argType = TInterface "GObject" "ParamSpecTypeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "g_param_type_register_static" g_param_type_register_static :: CString -> -- name : TBasicType TUTF8 Ptr ParamSpecTypeInfo -> -- pspec_info : TInterface "GObject" "ParamSpecTypeInfo" IO CGType paramTypeRegisterStatic :: (MonadIO m) => T.Text -> -- name ParamSpecTypeInfo -> -- pspec_info m GType paramTypeRegisterStatic name pspec_info = liftIO $ do name' <- textToCString name let pspec_info' = unsafeManagedPtrGetPtr pspec_info result <- g_param_type_register_static name' pspec_info' let result' = GType result touchManagedPtr pspec_info freeMem name' return result' -- function g_param_spec_variant -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_variant" g_param_spec_variant :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 Ptr GLib.VariantType -> -- type : TInterface "GLib" "VariantType" Ptr GVariant -> -- default_value : TVariant CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecVariant :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb GLib.VariantType -> -- type Maybe (GVariant) -> -- default_value [ParamFlags] -> -- flags m GParamSpec paramSpecVariant name nick blurb type_ default_value flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let type_' = unsafeManagedPtrGetPtr type_ maybeDefault_value <- case default_value of Nothing -> return nullPtr Just jDefault_value -> do jDefault_value' <- refGVariant jDefault_value return jDefault_value' let flags' = gflagsToWord flags result <- g_param_spec_variant name' nick' blurb' type_' maybeDefault_value flags' checkUnexpectedReturnNULL "g_param_spec_variant" result result' <- wrapGParamSpecPtr result touchManagedPtr type_ freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_unichar -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_unichar" g_param_spec_unichar :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 CInt -> -- default_value : TBasicType TUniChar CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecUnichar :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb Char -> -- default_value [ParamFlags] -> -- flags m GParamSpec paramSpecUnichar name nick blurb default_value flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let default_value' = (fromIntegral . ord) default_value let flags' = gflagsToWord flags result <- g_param_spec_unichar name' nick' blurb' default_value' flags' checkUnexpectedReturnNULL "g_param_spec_unichar" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_ulong -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_ulong" g_param_spec_ulong :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 Word64 -> -- minimum : TBasicType TUInt64 Word64 -> -- maximum : TBasicType TUInt64 Word64 -> -- default_value : TBasicType TUInt64 CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecUlong :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb Word64 -> -- minimum Word64 -> -- maximum Word64 -> -- default_value [ParamFlags] -> -- flags m GParamSpec paramSpecUlong name nick blurb minimum maximum default_value flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let flags' = gflagsToWord flags result <- g_param_spec_ulong name' nick' blurb' minimum maximum default_value flags' checkUnexpectedReturnNULL "g_param_spec_ulong" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_uint64 -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_uint64" g_param_spec_uint64 :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 Word64 -> -- minimum : TBasicType TUInt64 Word64 -> -- maximum : TBasicType TUInt64 Word64 -> -- default_value : TBasicType TUInt64 CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecUint64 :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb Word64 -> -- minimum Word64 -> -- maximum Word64 -> -- default_value [ParamFlags] -> -- flags m GParamSpec paramSpecUint64 name nick blurb minimum maximum default_value flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let flags' = gflagsToWord flags result <- g_param_spec_uint64 name' nick' blurb' minimum maximum default_value flags' checkUnexpectedReturnNULL "g_param_spec_uint64" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_uint -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_uint" g_param_spec_uint :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 Word32 -> -- minimum : TBasicType TUInt32 Word32 -> -- maximum : TBasicType TUInt32 Word32 -> -- default_value : TBasicType TUInt32 CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecUint :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb Word32 -> -- minimum Word32 -> -- maximum Word32 -> -- default_value [ParamFlags] -> -- flags m GParamSpec paramSpecUint name nick blurb minimum maximum default_value flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let flags' = gflagsToWord flags result <- g_param_spec_uint name' nick' blurb' minimum maximum default_value flags' checkUnexpectedReturnNULL "g_param_spec_uint" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_uchar -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_uchar" g_param_spec_uchar :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 Word8 -> -- minimum : TBasicType TUInt8 Word8 -> -- maximum : TBasicType TUInt8 Word8 -> -- default_value : TBasicType TUInt8 CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecUchar :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb Word8 -> -- minimum Word8 -> -- maximum Word8 -> -- default_value [ParamFlags] -> -- flags m GParamSpec paramSpecUchar name nick blurb minimum maximum default_value flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let flags' = gflagsToWord flags result <- g_param_spec_uchar name' nick' blurb' minimum maximum default_value flags' checkUnexpectedReturnNULL "g_param_spec_uchar" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_string -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_string" g_param_spec_string :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 CString -> -- default_value : TBasicType TUTF8 CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecString :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb T.Text -> -- default_value [ParamFlags] -> -- flags m GParamSpec paramSpecString name nick blurb default_value flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb default_value' <- textToCString default_value let flags' = gflagsToWord flags result <- g_param_spec_string name' nick' blurb' default_value' flags' checkUnexpectedReturnNULL "g_param_spec_string" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' freeMem default_value' return result' -- function g_param_spec_pool_new -- Args : [Arg {argName = "type_prefixing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type_prefixing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "ParamSpecPool" -- throws : False -- Skip return : False foreign import ccall "g_param_spec_pool_new" g_param_spec_pool_new :: CInt -> -- type_prefixing : TBasicType TBoolean IO (Ptr ParamSpecPool) paramSpecPoolNew :: (MonadIO m) => Bool -> -- type_prefixing m ParamSpecPool paramSpecPoolNew type_prefixing = liftIO $ do let type_prefixing' = (fromIntegral . fromEnum) type_prefixing result <- g_param_spec_pool_new type_prefixing' checkUnexpectedReturnNULL "g_param_spec_pool_new" result -- XXX Wrapping a foreign struct/union with no known destructor, leak? result' <- (\x -> ParamSpecPool <$> newForeignPtr_ x) result return result' -- function g_param_spec_pointer -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_pointer" g_param_spec_pointer :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecPointer :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb [ParamFlags] -> -- flags m GParamSpec paramSpecPointer name nick blurb flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let flags' = gflagsToWord flags result <- g_param_spec_pointer name' nick' blurb' flags' checkUnexpectedReturnNULL "g_param_spec_pointer" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_param -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_param" g_param_spec_param :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 CGType -> -- param_type : TBasicType TGType CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecParam :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb GType -> -- param_type [ParamFlags] -> -- flags m GParamSpec paramSpecParam name nick blurb param_type flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let param_type' = gtypeToCGType param_type let flags' = gflagsToWord flags result <- g_param_spec_param name' nick' blurb' param_type' flags' checkUnexpectedReturnNULL "g_param_spec_param" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_object -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_object" g_param_spec_object :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 CGType -> -- object_type : TBasicType TGType CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecObject :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb GType -> -- object_type [ParamFlags] -> -- flags m GParamSpec paramSpecObject name nick blurb object_type flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let object_type' = gtypeToCGType object_type let flags' = gflagsToWord flags result <- g_param_spec_object name' nick' blurb' object_type' flags' checkUnexpectedReturnNULL "g_param_spec_object" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_long -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_long" g_param_spec_long :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 Int64 -> -- minimum : TBasicType TInt64 Int64 -> -- maximum : TBasicType TInt64 Int64 -> -- default_value : TBasicType TInt64 CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecLong :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb Int64 -> -- minimum Int64 -> -- maximum Int64 -> -- default_value [ParamFlags] -> -- flags m GParamSpec paramSpecLong name nick blurb minimum maximum default_value flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let flags' = gflagsToWord flags result <- g_param_spec_long name' nick' blurb' minimum maximum default_value flags' checkUnexpectedReturnNULL "g_param_spec_long" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_int64 -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_int64" g_param_spec_int64 :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 Int64 -> -- minimum : TBasicType TInt64 Int64 -> -- maximum : TBasicType TInt64 Int64 -> -- default_value : TBasicType TInt64 CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecInt64 :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb Int64 -> -- minimum Int64 -> -- maximum Int64 -> -- default_value [ParamFlags] -> -- flags m GParamSpec paramSpecInt64 name nick blurb minimum maximum default_value flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let flags' = gflagsToWord flags result <- g_param_spec_int64 name' nick' blurb' minimum maximum default_value flags' checkUnexpectedReturnNULL "g_param_spec_int64" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_int -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_int" g_param_spec_int :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 Int32 -> -- minimum : TBasicType TInt32 Int32 -> -- maximum : TBasicType TInt32 Int32 -> -- default_value : TBasicType TInt32 CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecInt :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb Int32 -> -- minimum Int32 -> -- maximum Int32 -> -- default_value [ParamFlags] -> -- flags m GParamSpec paramSpecInt name nick blurb minimum maximum default_value flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let flags' = gflagsToWord flags result <- g_param_spec_int name' nick' blurb' minimum maximum default_value flags' checkUnexpectedReturnNULL "g_param_spec_int" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_gtype -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_a_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_a_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_gtype" g_param_spec_gtype :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 CGType -> -- is_a_type : TBasicType TGType CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecGtype :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb GType -> -- is_a_type [ParamFlags] -> -- flags m GParamSpec paramSpecGtype name nick blurb is_a_type flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let is_a_type' = gtypeToCGType is_a_type let flags' = gflagsToWord flags result <- g_param_spec_gtype name' nick' blurb' is_a_type' flags' checkUnexpectedReturnNULL "g_param_spec_gtype" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_float -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_float" g_param_spec_float :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 CFloat -> -- minimum : TBasicType TFloat CFloat -> -- maximum : TBasicType TFloat CFloat -> -- default_value : TBasicType TFloat CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecFloat :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb Float -> -- minimum Float -> -- maximum Float -> -- default_value [ParamFlags] -> -- flags m GParamSpec paramSpecFloat name nick blurb minimum maximum default_value flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let minimum' = realToFrac minimum let maximum' = realToFrac maximum let default_value' = realToFrac default_value let flags' = gflagsToWord flags result <- g_param_spec_float name' nick' blurb' minimum' maximum' default_value' flags' checkUnexpectedReturnNULL "g_param_spec_float" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_flags -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_flags" g_param_spec_flags :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 CGType -> -- flags_type : TBasicType TGType Word32 -> -- default_value : TBasicType TUInt32 CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecFlags :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb GType -> -- flags_type Word32 -> -- default_value [ParamFlags] -> -- flags m GParamSpec paramSpecFlags name nick blurb flags_type default_value flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let flags_type' = gtypeToCGType flags_type let flags' = gflagsToWord flags result <- g_param_spec_flags name' nick' blurb' flags_type' default_value flags' checkUnexpectedReturnNULL "g_param_spec_flags" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_enum -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enum_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enum_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_enum" g_param_spec_enum :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 CGType -> -- enum_type : TBasicType TGType Int32 -> -- default_value : TBasicType TInt32 CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecEnum :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb GType -> -- enum_type Int32 -> -- default_value [ParamFlags] -> -- flags m GParamSpec paramSpecEnum name nick blurb enum_type default_value flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let enum_type' = gtypeToCGType enum_type let flags' = gflagsToWord flags result <- g_param_spec_enum name' nick' blurb' enum_type' default_value flags' checkUnexpectedReturnNULL "g_param_spec_enum" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_double -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_double" g_param_spec_double :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 CDouble -> -- minimum : TBasicType TDouble CDouble -> -- maximum : TBasicType TDouble CDouble -> -- default_value : TBasicType TDouble CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecDouble :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb Double -> -- minimum Double -> -- maximum Double -> -- default_value [ParamFlags] -> -- flags m GParamSpec paramSpecDouble name nick blurb minimum maximum default_value flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let minimum' = realToFrac minimum let maximum' = realToFrac maximum let default_value' = realToFrac default_value let flags' = gflagsToWord flags result <- g_param_spec_double name' nick' blurb' minimum' maximum' default_value' flags' checkUnexpectedReturnNULL "g_param_spec_double" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_char -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "maximum", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_char" g_param_spec_char :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 Int8 -> -- minimum : TBasicType TInt8 Int8 -> -- maximum : TBasicType TInt8 Int8 -> -- default_value : TBasicType TInt8 CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecChar :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb Int8 -> -- minimum Int8 -> -- maximum Int8 -> -- default_value [ParamFlags] -> -- flags m GParamSpec paramSpecChar name nick blurb minimum maximum default_value flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let flags' = gflagsToWord flags result <- g_param_spec_char name' nick' blurb' minimum maximum default_value flags' checkUnexpectedReturnNULL "g_param_spec_char" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_boxed -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boxed_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boxed_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_boxed" g_param_spec_boxed :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 CGType -> -- boxed_type : TBasicType TGType CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecBoxed :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb GType -> -- boxed_type [ParamFlags] -> -- flags m GParamSpec paramSpecBoxed name nick blurb boxed_type flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let boxed_type' = gtypeToCGType boxed_type let flags' = gflagsToWord flags result <- g_param_spec_boxed name' nick' blurb' boxed_type' flags' checkUnexpectedReturnNULL "g_param_spec_boxed" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_param_spec_boolean -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "g_param_spec_boolean" g_param_spec_boolean :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 CInt -> -- default_value : TBasicType TBoolean CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecBoolean :: (MonadIO m) => T.Text -> -- name T.Text -> -- nick T.Text -> -- blurb Bool -> -- default_value [ParamFlags] -> -- flags m GParamSpec paramSpecBoolean name nick blurb default_value flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let default_value' = (fromIntegral . fromEnum) default_value let flags' = gflagsToWord flags result <- g_param_spec_boolean name' nick' blurb' default_value' flags' checkUnexpectedReturnNULL "g_param_spec_boolean" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function g_gtype_get_type -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "g_gtype_get_type" g_gtype_get_type :: IO CGType gtypeGetType :: (MonadIO m) => m GType gtypeGetType = liftIO $ do result <- g_gtype_get_type let result' = GType result return result' -- function g_flags_register_static -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "const_static_values", argType = TInterface "GObject" "FlagsValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "const_static_values", argType = TInterface "GObject" "FlagsValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "g_flags_register_static" g_flags_register_static :: CString -> -- name : TBasicType TUTF8 Ptr FlagsValue -> -- const_static_values : TInterface "GObject" "FlagsValue" IO CGType flagsRegisterStatic :: (MonadIO m) => T.Text -> -- name FlagsValue -> -- const_static_values m GType flagsRegisterStatic name const_static_values = liftIO $ do name' <- textToCString name let const_static_values' = unsafeManagedPtrGetPtr const_static_values result <- g_flags_register_static name' const_static_values' let result' = GType result touchManagedPtr const_static_values freeMem name' return result' -- function g_flags_get_value_by_nick -- Args : [Arg {argName = "flags_class", argType = TInterface "GObject" "FlagsClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "flags_class", argType = TInterface "GObject" "FlagsClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "FlagsValue" -- throws : False -- Skip return : False foreign import ccall "g_flags_get_value_by_nick" g_flags_get_value_by_nick :: Ptr FlagsClass -> -- flags_class : TInterface "GObject" "FlagsClass" CString -> -- nick : TBasicType TUTF8 IO (Ptr FlagsValue) flagsGetValueByNick :: (MonadIO m) => FlagsClass -> -- flags_class T.Text -> -- nick m FlagsValue flagsGetValueByNick flags_class nick = liftIO $ do let flags_class' = unsafeManagedPtrGetPtr flags_class nick' <- textToCString nick result <- g_flags_get_value_by_nick flags_class' nick' checkUnexpectedReturnNULL "g_flags_get_value_by_nick" result result' <- (newPtr 24 FlagsValue) result touchManagedPtr flags_class freeMem nick' return result' -- function g_flags_get_value_by_name -- Args : [Arg {argName = "flags_class", argType = TInterface "GObject" "FlagsClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "flags_class", argType = TInterface "GObject" "FlagsClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "FlagsValue" -- throws : False -- Skip return : False foreign import ccall "g_flags_get_value_by_name" g_flags_get_value_by_name :: Ptr FlagsClass -> -- flags_class : TInterface "GObject" "FlagsClass" CString -> -- name : TBasicType TUTF8 IO (Ptr FlagsValue) flagsGetValueByName :: (MonadIO m) => FlagsClass -> -- flags_class T.Text -> -- name m FlagsValue flagsGetValueByName flags_class name = liftIO $ do let flags_class' = unsafeManagedPtrGetPtr flags_class name' <- textToCString name result <- g_flags_get_value_by_name flags_class' name' checkUnexpectedReturnNULL "g_flags_get_value_by_name" result result' <- (newPtr 24 FlagsValue) result touchManagedPtr flags_class freeMem name' return result' -- function g_flags_get_first_value -- Args : [Arg {argName = "flags_class", argType = TInterface "GObject" "FlagsClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "flags_class", argType = TInterface "GObject" "FlagsClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "FlagsValue" -- throws : False -- Skip return : False foreign import ccall "g_flags_get_first_value" g_flags_get_first_value :: Ptr FlagsClass -> -- flags_class : TInterface "GObject" "FlagsClass" Word32 -> -- value : TBasicType TUInt32 IO (Ptr FlagsValue) flagsGetFirstValue :: (MonadIO m) => FlagsClass -> -- flags_class Word32 -> -- value m FlagsValue flagsGetFirstValue flags_class value = liftIO $ do let flags_class' = unsafeManagedPtrGetPtr flags_class result <- g_flags_get_first_value flags_class' value checkUnexpectedReturnNULL "g_flags_get_first_value" result result' <- (newPtr 24 FlagsValue) result touchManagedPtr flags_class return result' -- function g_flags_complete_type_info -- Args : [Arg {argName = "g_flags_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "GObject" "TypeInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "const_values", argType = TInterface "GObject" "FlagsValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "g_flags_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "const_values", argType = TInterface "GObject" "FlagsValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_flags_complete_type_info" g_flags_complete_type_info :: CGType -> -- g_flags_type : TBasicType TGType Ptr TypeInfo -> -- info : TInterface "GObject" "TypeInfo" Ptr FlagsValue -> -- const_values : TInterface "GObject" "FlagsValue" IO () flagsCompleteTypeInfo :: (MonadIO m) => GType -> -- g_flags_type FlagsValue -> -- const_values m (TypeInfo) flagsCompleteTypeInfo g_flags_type const_values = liftIO $ do let g_flags_type' = gtypeToCGType g_flags_type info <- callocBytes 72 :: IO (Ptr TypeInfo) let const_values' = unsafeManagedPtrGetPtr const_values g_flags_complete_type_info g_flags_type' info const_values' info' <- (wrapPtr TypeInfo) info touchManagedPtr const_values return info' -- function g_enum_register_static -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "const_static_values", argType = TInterface "GObject" "EnumValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "const_static_values", argType = TInterface "GObject" "EnumValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "g_enum_register_static" g_enum_register_static :: CString -> -- name : TBasicType TUTF8 Ptr EnumValue -> -- const_static_values : TInterface "GObject" "EnumValue" IO CGType enumRegisterStatic :: (MonadIO m) => T.Text -> -- name EnumValue -> -- const_static_values m GType enumRegisterStatic name const_static_values = liftIO $ do name' <- textToCString name let const_static_values' = unsafeManagedPtrGetPtr const_static_values result <- g_enum_register_static name' const_static_values' let result' = GType result touchManagedPtr const_static_values freeMem name' return result' -- function g_enum_get_value_by_nick -- Args : [Arg {argName = "enum_class", argType = TInterface "GObject" "EnumClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "enum_class", argType = TInterface "GObject" "EnumClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "EnumValue" -- throws : False -- Skip return : False foreign import ccall "g_enum_get_value_by_nick" g_enum_get_value_by_nick :: Ptr EnumClass -> -- enum_class : TInterface "GObject" "EnumClass" CString -> -- nick : TBasicType TUTF8 IO (Ptr EnumValue) enumGetValueByNick :: (MonadIO m) => EnumClass -> -- enum_class T.Text -> -- nick m EnumValue enumGetValueByNick enum_class nick = liftIO $ do let enum_class' = unsafeManagedPtrGetPtr enum_class nick' <- textToCString nick result <- g_enum_get_value_by_nick enum_class' nick' checkUnexpectedReturnNULL "g_enum_get_value_by_nick" result result' <- (newPtr 24 EnumValue) result touchManagedPtr enum_class freeMem nick' return result' -- function g_enum_get_value_by_name -- Args : [Arg {argName = "enum_class", argType = TInterface "GObject" "EnumClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "enum_class", argType = TInterface "GObject" "EnumClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "EnumValue" -- throws : False -- Skip return : False foreign import ccall "g_enum_get_value_by_name" g_enum_get_value_by_name :: Ptr EnumClass -> -- enum_class : TInterface "GObject" "EnumClass" CString -> -- name : TBasicType TUTF8 IO (Ptr EnumValue) enumGetValueByName :: (MonadIO m) => EnumClass -> -- enum_class T.Text -> -- name m EnumValue enumGetValueByName enum_class name = liftIO $ do let enum_class' = unsafeManagedPtrGetPtr enum_class name' <- textToCString name result <- g_enum_get_value_by_name enum_class' name' checkUnexpectedReturnNULL "g_enum_get_value_by_name" result result' <- (newPtr 24 EnumValue) result touchManagedPtr enum_class freeMem name' return result' -- function g_enum_get_value -- Args : [Arg {argName = "enum_class", argType = TInterface "GObject" "EnumClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "enum_class", argType = TInterface "GObject" "EnumClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "EnumValue" -- throws : False -- Skip return : False foreign import ccall "g_enum_get_value" g_enum_get_value :: Ptr EnumClass -> -- enum_class : TInterface "GObject" "EnumClass" Int32 -> -- value : TBasicType TInt32 IO (Ptr EnumValue) enumGetValue :: (MonadIO m) => EnumClass -> -- enum_class Int32 -> -- value m EnumValue enumGetValue enum_class value = liftIO $ do let enum_class' = unsafeManagedPtrGetPtr enum_class result <- g_enum_get_value enum_class' value checkUnexpectedReturnNULL "g_enum_get_value" result result' <- (newPtr 24 EnumValue) result touchManagedPtr enum_class return result' -- function g_enum_complete_type_info -- Args : [Arg {argName = "g_enum_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "GObject" "TypeInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "const_values", argType = TInterface "GObject" "EnumValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "g_enum_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "const_values", argType = TInterface "GObject" "EnumValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_enum_complete_type_info" g_enum_complete_type_info :: CGType -> -- g_enum_type : TBasicType TGType Ptr TypeInfo -> -- info : TInterface "GObject" "TypeInfo" Ptr EnumValue -> -- const_values : TInterface "GObject" "EnumValue" IO () enumCompleteTypeInfo :: (MonadIO m) => GType -> -- g_enum_type EnumValue -> -- const_values m (TypeInfo) enumCompleteTypeInfo g_enum_type const_values = liftIO $ do let g_enum_type' = gtypeToCGType g_enum_type info <- callocBytes 72 :: IO (Ptr TypeInfo) let const_values' = unsafeManagedPtrGetPtr const_values g_enum_complete_type_info g_enum_type' info const_values' info' <- (wrapPtr TypeInfo) info touchManagedPtr const_values return info' -- function g_cclosure_marshal_generic -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_gvalue", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_gvalue", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_generic" g_cclosure_marshal_generic :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_gvalue : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalGeneric :: (MonadIO m) => Closure -> -- closure GValue -> -- return_gvalue Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalGeneric closure return_gvalue n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_gvalue' = unsafeManagedPtrGetPtr return_gvalue let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_generic closure' return_gvalue' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_gvalue touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__VOID -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__VOID" g_cclosure_marshal_VOID__VOID :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_VOID :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_VOID closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__VOID closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__VARIANT -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__VARIANT" g_cclosure_marshal_VOID__VARIANT :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_VARIANT :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_VARIANT closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__VARIANT closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__ULONG -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__ULONG" g_cclosure_marshal_VOID__ULONG :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_ULONG :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_ULONG closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__ULONG closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__UINT_POINTER -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__UINT_POINTER" g_cclosure_marshal_VOID__UINT_POINTER :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_UINTPOINTER :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_UINTPOINTER closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__UINT_POINTER closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__UINT -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__UINT" g_cclosure_marshal_VOID__UINT :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_UINT :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_UINT closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__UINT closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__UCHAR -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__UCHAR" g_cclosure_marshal_VOID__UCHAR :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_UCHAR :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_UCHAR closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__UCHAR closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__STRING -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__STRING" g_cclosure_marshal_VOID__STRING :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_STRING :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_STRING closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__STRING closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__POINTER -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__POINTER" g_cclosure_marshal_VOID__POINTER :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_POINTER :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_POINTER closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__POINTER closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__PARAM -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__PARAM" g_cclosure_marshal_VOID__PARAM :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_PARAM :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_PARAM closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__PARAM closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__OBJECT -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__OBJECT" g_cclosure_marshal_VOID__OBJECT :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_OBJECT :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_OBJECT closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__OBJECT closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__LONG -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__LONG" g_cclosure_marshal_VOID__LONG :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_LONG :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_LONG closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__LONG closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__INT -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__INT" g_cclosure_marshal_VOID__INT :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_INT :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_INT closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__INT closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__FLOAT -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__FLOAT" g_cclosure_marshal_VOID__FLOAT :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_FLOAT :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_FLOAT closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__FLOAT closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__FLAGS -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__FLAGS" g_cclosure_marshal_VOID__FLAGS :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_FLAGS :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_FLAGS closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__FLAGS closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__ENUM -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__ENUM" g_cclosure_marshal_VOID__ENUM :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_ENUM :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_ENUM closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__ENUM closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__DOUBLE -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__DOUBLE" g_cclosure_marshal_VOID__DOUBLE :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_DOUBLE :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_DOUBLE closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__DOUBLE closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__CHAR -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__CHAR" g_cclosure_marshal_VOID__CHAR :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_CHAR :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_CHAR closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__CHAR closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__BOXED -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__BOXED" g_cclosure_marshal_VOID__BOXED :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_BOXED :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_BOXED closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__BOXED closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_VOID__BOOLEAN -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_VOID__BOOLEAN" g_cclosure_marshal_VOID__BOOLEAN :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalVOID_BOOLEAN :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalVOID_BOOLEAN closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_VOID__BOOLEAN closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_STRING__OBJECT_POINTER -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_STRING__OBJECT_POINTER" g_cclosure_marshal_STRING__OBJECT_POINTER :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalSTRING_OBJECTPOINTER :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalSTRING_OBJECTPOINTER closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_STRING__OBJECT_POINTER closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_BOOLEAN__FLAGS -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_BOOLEAN__FLAGS" g_cclosure_marshal_BOOLEAN__FLAGS :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalBOOLEAN_FLAGS :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalBOOLEAN_FLAGS closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_BOOLEAN__FLAGS closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_cclosure_marshal_BOOLEAN__BOXED_BOXED -- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_param_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_values", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invocation_hint", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "marshal_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_cclosure_marshal_BOOLEAN__BOXED_BOXED" g_cclosure_marshal_BOOLEAN__BOXED_BOXED :: Ptr Closure -> -- closure : TInterface "GObject" "Closure" Ptr GValue -> -- return_value : TInterface "GObject" "Value" Word32 -> -- n_param_values : TBasicType TUInt32 Ptr GValue -> -- param_values : TInterface "GObject" "Value" Ptr () -> -- invocation_hint : TBasicType TVoid Ptr () -> -- marshal_data : TBasicType TVoid IO () cclosureMarshalBOOLEAN_BOXEDBOXED :: (MonadIO m) => Closure -> -- closure GValue -> -- return_value Word32 -> -- n_param_values GValue -> -- param_values Ptr () -> -- invocation_hint Ptr () -> -- marshal_data m () cclosureMarshalBOOLEAN_BOXEDBOXED closure return_value n_param_values param_values invocation_hint marshal_data = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure let return_value' = unsafeManagedPtrGetPtr return_value let param_values' = unsafeManagedPtrGetPtr param_values g_cclosure_marshal_BOOLEAN__BOXED_BOXED closure' return_value' n_param_values param_values' invocation_hint marshal_data touchManagedPtr closure touchManagedPtr return_value touchManagedPtr param_values return () -- function g_boxed_free -- Args : [Arg {argName = "boxed_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boxed", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "boxed_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boxed", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_boxed_free" g_boxed_free :: CGType -> -- boxed_type : TBasicType TGType Ptr () -> -- boxed : TBasicType TVoid IO () boxedFree :: (MonadIO m) => GType -> -- boxed_type Ptr () -> -- boxed m () boxedFree boxed_type boxed = liftIO $ do let boxed_type' = gtypeToCGType boxed_type g_boxed_free boxed_type' boxed return () -- function g_boxed_copy -- Args : [Arg {argName = "boxed_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_boxed", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "boxed_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_boxed", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_boxed_copy" g_boxed_copy :: CGType -> -- boxed_type : TBasicType TGType Ptr () -> -- src_boxed : TBasicType TVoid IO () boxedCopy :: (MonadIO m) => GType -> -- boxed_type Ptr () -> -- src_boxed m () boxedCopy boxed_type src_boxed = liftIO $ do let boxed_type' = gtypeToCGType boxed_type g_boxed_copy boxed_type' src_boxed return ()