gi-gobject-0.2.44.12: GI/GObject/Functions.hs
{- |
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 ()