diff --git a/GI/GObject.hs b/GI/GObject.hs --- a/GI/GObject.hs +++ b/GI/GObject.hs @@ -1,8318 +1,64 @@ --- Generated code. - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - -{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds, - TypeFamilies, MultiParamTypeClasses, KindSignatures, - FlexibleInstances, UndecidableInstances, DataKinds, - OverloadedStrings, NegativeLiterals, FlexibleContexts #-} - -module GI.GObject where - -import Prelude () -import Data.GI.Base.ShortPrelude -import Data.Char -import Data.Int -import Data.Word -import qualified Data.ByteString.Char8 as B -import Data.ByteString.Char8 (ByteString) -import qualified Data.Map as Map -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr -import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) -import Foreign.Storable (peek, poke, sizeOf) -import Control.Applicative ((<$>)) -import Control.Exception (onException) -import Control.Monad.IO.Class -import qualified Data.Text as T - -import Data.GI.Base.Attributes hiding (get, set) -import Data.GI.Base.BasicTypes -import Data.GI.Base.BasicConversions -import Data.GI.Base.Closure -import Data.GI.Base.GError -import Data.GI.Base.GHashTable -import Data.GI.Base.GParamSpec -import Data.GI.Base.GVariant -import Data.GI.Base.GValue -import Data.GI.Base.ManagedPtr -import Data.GI.Base.Overloading -import Data.GI.Base.Properties hiding (new) -import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId) -import Data.GI.Base.Utils - -import qualified GI.GLib as GLib -import qualified GI.GLibAttributes as GLibA - --- callback BaseFinalizeFunc -baseFinalizeFuncClosure :: BaseFinalizeFunc -> IO Closure -baseFinalizeFuncClosure cb = newCClosure =<< mkBaseFinalizeFunc wrapped - where wrapped = baseFinalizeFuncWrapper Nothing cb - -type BaseFinalizeFuncC = - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkBaseFinalizeFunc :: BaseFinalizeFuncC -> IO (FunPtr BaseFinalizeFuncC) - -type BaseFinalizeFunc = - Ptr () -> - IO () - -noBaseFinalizeFunc :: Maybe BaseFinalizeFunc -noBaseFinalizeFunc = Nothing - -baseFinalizeFuncWrapper :: - Maybe (Ptr (FunPtr (BaseFinalizeFuncC))) -> - BaseFinalizeFunc -> - Ptr () -> - IO () -baseFinalizeFuncWrapper funptrptr _cb g_class = do - _cb g_class - maybeReleaseFunPtr funptrptr - --- callback BaseInitFunc -baseInitFuncClosure :: BaseInitFunc -> IO Closure -baseInitFuncClosure cb = newCClosure =<< mkBaseInitFunc wrapped - where wrapped = baseInitFuncWrapper Nothing cb - -type BaseInitFuncC = - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkBaseInitFunc :: BaseInitFuncC -> IO (FunPtr BaseInitFuncC) - -type BaseInitFunc = - Ptr () -> - IO () - -noBaseInitFunc :: Maybe BaseInitFunc -noBaseInitFunc = Nothing - -baseInitFuncWrapper :: - Maybe (Ptr (FunPtr (BaseInitFuncC))) -> - BaseInitFunc -> - Ptr () -> - IO () -baseInitFuncWrapper funptrptr _cb g_class = do - _cb g_class - maybeReleaseFunPtr funptrptr - --- object Binding -newtype Binding = Binding (ForeignPtr Binding) -noBinding :: Maybe Binding -noBinding = Nothing - -foreign import ccall "g_binding_get_type" - c_g_binding_get_type :: IO GType - -type instance ParentTypes Binding = '[Object] - -instance GObject Binding where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_binding_get_type - - -class GObject o => BindingK o -instance (GObject o, IsDescendantOf Binding o) => BindingK o - -toBinding :: BindingK o => o -> IO Binding -toBinding = unsafeCastTo Binding - --- method Binding::get_flags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GObject" "BindingFlags" --- throws : False --- Skip return : False - -foreign import ccall "g_binding_get_flags" g_binding_get_flags :: - Ptr Binding -> -- _obj : TInterface "GObject" "Binding" - IO CUInt - - -bindingGetFlags :: - (MonadIO m, BindingK a) => - a -> -- _obj - m [BindingFlags] -bindingGetFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_binding_get_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method Binding::get_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GObject" "Object" --- throws : False --- Skip return : False - -foreign import ccall "g_binding_get_source" g_binding_get_source :: - Ptr Binding -> -- _obj : TInterface "GObject" "Binding" - IO (Ptr Object) - - -bindingGetSource :: - (MonadIO m, BindingK a) => - a -> -- _obj - m Object -bindingGetSource _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_binding_get_source _obj' - checkUnexpectedReturnNULL "g_binding_get_source" result - result' <- (newObject Object) result - touchManagedPtr _obj - return result' - --- method Binding::get_source_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_binding_get_source_property" g_binding_get_source_property :: - Ptr Binding -> -- _obj : TInterface "GObject" "Binding" - IO CString - - -bindingGetSourceProperty :: - (MonadIO m, BindingK a) => - a -> -- _obj - m T.Text -bindingGetSourceProperty _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_binding_get_source_property _obj' - checkUnexpectedReturnNULL "g_binding_get_source_property" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Binding::get_target --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GObject" "Object" --- throws : False --- Skip return : False - -foreign import ccall "g_binding_get_target" g_binding_get_target :: - Ptr Binding -> -- _obj : TInterface "GObject" "Binding" - IO (Ptr Object) - - -bindingGetTarget :: - (MonadIO m, BindingK a) => - a -> -- _obj - m Object -bindingGetTarget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_binding_get_target _obj' - checkUnexpectedReturnNULL "g_binding_get_target" result - result' <- (newObject Object) result - touchManagedPtr _obj - return result' - --- method Binding::get_target_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_binding_get_target_property" g_binding_get_target_property :: - Ptr Binding -> -- _obj : TInterface "GObject" "Binding" - IO CString - - -bindingGetTargetProperty :: - (MonadIO m, BindingK a) => - a -> -- _obj - m T.Text -bindingGetTargetProperty _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_binding_get_target_property _obj' - checkUnexpectedReturnNULL "g_binding_get_target_property" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Binding::unbind --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_binding_unbind" g_binding_unbind :: - Ptr Binding -> -- _obj : TInterface "GObject" "Binding" - IO () - - -bindingUnbind :: - (MonadIO m, BindingK a) => - a -> -- _obj - m () -bindingUnbind _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_binding_unbind _obj' - touchManagedPtr _obj - return () - --- Flags BindingFlags - -data BindingFlags = - BindingFlagsDefault - | BindingFlagsBidirectional - | BindingFlagsSyncCreate - | BindingFlagsInvertBoolean - | AnotherBindingFlags Int - deriving (Show, Eq) - -instance Enum BindingFlags where - fromEnum BindingFlagsDefault = 0 - fromEnum BindingFlagsBidirectional = 1 - fromEnum BindingFlagsSyncCreate = 2 - fromEnum BindingFlagsInvertBoolean = 4 - fromEnum (AnotherBindingFlags k) = k - - toEnum 0 = BindingFlagsDefault - toEnum 1 = BindingFlagsBidirectional - toEnum 2 = BindingFlagsSyncCreate - toEnum 4 = BindingFlagsInvertBoolean - toEnum k = AnotherBindingFlags k - -foreign import ccall "g_binding_flags_get_type" c_g_binding_flags_get_type :: - IO GType - -instance BoxedEnum BindingFlags where - boxedEnumType _ = c_g_binding_flags_get_type - -instance IsGFlag BindingFlags - --- callback BindingTransformFunc -bindingTransformFuncClosure :: BindingTransformFunc -> IO Closure -bindingTransformFuncClosure cb = newCClosure =<< mkBindingTransformFunc wrapped - where wrapped = bindingTransformFuncWrapper Nothing cb - -type BindingTransformFuncC = - Ptr Binding -> - Ptr GValue -> - Ptr GValue -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkBindingTransformFunc :: BindingTransformFuncC -> IO (FunPtr BindingTransformFuncC) - -type BindingTransformFunc = - Binding -> - GValue -> - GValue -> - IO Bool - -noBindingTransformFunc :: Maybe BindingTransformFunc -noBindingTransformFunc = Nothing - -bindingTransformFuncWrapper :: - Maybe (Ptr (FunPtr (BindingTransformFuncC))) -> - BindingTransformFunc -> - Ptr Binding -> - Ptr GValue -> - Ptr GValue -> - Ptr () -> - IO CInt -bindingTransformFuncWrapper funptrptr _cb binding from_value to_value _ = do - binding' <- (newObject Binding) binding - from_value' <- (newBoxed GValue) from_value - to_value' <- (newBoxed GValue) to_value - result <- _cb binding' from_value' to_value' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback BoxedFreeFunc -boxedFreeFuncClosure :: BoxedFreeFunc -> IO Closure -boxedFreeFuncClosure cb = newCClosure =<< mkBoxedFreeFunc wrapped - where wrapped = boxedFreeFuncWrapper Nothing cb - -type BoxedFreeFuncC = - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkBoxedFreeFunc :: BoxedFreeFuncC -> IO (FunPtr BoxedFreeFuncC) - -type BoxedFreeFunc = - Ptr () -> - IO () - -noBoxedFreeFunc :: Maybe BoxedFreeFunc -noBoxedFreeFunc = Nothing - -boxedFreeFuncWrapper :: - Maybe (Ptr (FunPtr (BoxedFreeFuncC))) -> - BoxedFreeFunc -> - Ptr () -> - IO () -boxedFreeFuncWrapper funptrptr _cb boxed = do - _cb boxed - maybeReleaseFunPtr funptrptr - --- struct CClosure -newtype CClosure = CClosure (ForeignPtr CClosure) -noCClosure :: Maybe CClosure -noCClosure = Nothing - -cClosureReadClosure :: CClosure -> IO Closure -cClosureReadClosure s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr Closure) - val' <- (newBoxed Closure) val - return val' - -cClosureReadCallback :: CClosure -> IO (Ptr ()) -cClosureReadCallback s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO (Ptr ()) - return val - --- callback Callback -callbackClosure :: Callback -> IO Closure -callbackClosure cb = newCClosure =<< mkCallback wrapped - where wrapped = callbackWrapper Nothing cb - -type CallbackC = - IO () - -foreign import ccall "wrapper" - mkCallback :: CallbackC -> IO (FunPtr CallbackC) - -type Callback = - IO () - -noCallback :: Maybe Callback -noCallback = Nothing - -callbackWrapper :: - Maybe (Ptr (FunPtr (CallbackC))) -> - Callback -> - IO () -callbackWrapper funptrptr _cb = do - _cb - maybeReleaseFunPtr funptrptr - --- callback ClassFinalizeFunc -classFinalizeFuncClosure :: ClassFinalizeFunc -> IO Closure -classFinalizeFuncClosure cb = newCClosure =<< mkClassFinalizeFunc wrapped - where wrapped = classFinalizeFuncWrapper Nothing cb - -type ClassFinalizeFuncC = - Ptr () -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkClassFinalizeFunc :: ClassFinalizeFuncC -> IO (FunPtr ClassFinalizeFuncC) - -type ClassFinalizeFunc = - Ptr () -> - Ptr () -> - IO () - -noClassFinalizeFunc :: Maybe ClassFinalizeFunc -noClassFinalizeFunc = Nothing - -classFinalizeFuncWrapper :: - Maybe (Ptr (FunPtr (ClassFinalizeFuncC))) -> - ClassFinalizeFunc -> - Ptr () -> - Ptr () -> - IO () -classFinalizeFuncWrapper funptrptr _cb g_class class_data = do - _cb g_class class_data - maybeReleaseFunPtr funptrptr - --- callback ClassInitFunc -classInitFuncClosure :: ClassInitFunc -> IO Closure -classInitFuncClosure cb = newCClosure =<< mkClassInitFunc wrapped - where wrapped = classInitFuncWrapper Nothing cb - -type ClassInitFuncC = - Ptr () -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkClassInitFunc :: ClassInitFuncC -> IO (FunPtr ClassInitFuncC) - -type ClassInitFunc = - Ptr () -> - Ptr () -> - IO () - -noClassInitFunc :: Maybe ClassInitFunc -noClassInitFunc = Nothing - -classInitFuncWrapper :: - Maybe (Ptr (FunPtr (ClassInitFuncC))) -> - ClassInitFunc -> - Ptr () -> - Ptr () -> - IO () -classInitFuncWrapper funptrptr _cb g_class class_data = do - _cb g_class class_data - maybeReleaseFunPtr funptrptr - --- callback ClosureNotify -closureNotifyClosure :: ClosureNotify -> IO Closure -closureNotifyClosure cb = newCClosure =<< mkClosureNotify wrapped - where wrapped = closureNotifyWrapper Nothing cb - -type ClosureNotifyC = - Ptr () -> - Ptr Closure -> - IO () - -foreign import ccall "wrapper" - mkClosureNotify :: ClosureNotifyC -> IO (FunPtr ClosureNotifyC) - -type ClosureNotify = - Ptr () -> - Closure -> - IO () - -noClosureNotify :: Maybe ClosureNotify -noClosureNotify = Nothing - -closureNotifyWrapper :: - Maybe (Ptr (FunPtr (ClosureNotifyC))) -> - ClosureNotify -> - Ptr () -> - Ptr Closure -> - IO () -closureNotifyWrapper funptrptr _cb data_ closure = do - closure' <- (newBoxed Closure) closure - _cb data_ closure' - maybeReleaseFunPtr funptrptr - --- struct ClosureNotifyData -newtype ClosureNotifyData = ClosureNotifyData (ForeignPtr ClosureNotifyData) -noClosureNotifyData :: Maybe ClosureNotifyData -noClosureNotifyData = Nothing - -closureNotifyDataReadData :: ClosureNotifyData -> IO (Ptr ()) -closureNotifyDataReadData s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - --- XXX Skipped getter for "ClosureNotifyData:notify" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- Flags ConnectFlags - -data ConnectFlags = - ConnectFlagsAfter - | ConnectFlagsSwapped - | AnotherConnectFlags Int - deriving (Show, Eq) - -instance Enum ConnectFlags where - fromEnum ConnectFlagsAfter = 1 - fromEnum ConnectFlagsSwapped = 2 - fromEnum (AnotherConnectFlags k) = k - - toEnum 1 = ConnectFlagsAfter - toEnum 2 = ConnectFlagsSwapped - toEnum k = AnotherConnectFlags k - -instance IsGFlag ConnectFlags - --- struct EnumClass -newtype EnumClass = EnumClass (ForeignPtr EnumClass) -noEnumClass :: Maybe EnumClass -noEnumClass = Nothing - -enumClassReadGTypeClass :: EnumClass -> IO TypeClass -enumClassReadGTypeClass s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr TypeClass) - val' <- (newPtr 8 TypeClass) val - return val' - -enumClassReadMinimum :: EnumClass -> IO Int32 -enumClassReadMinimum s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int32 - return val - -enumClassReadMaximum :: EnumClass -> IO Int32 -enumClassReadMaximum s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Int32 - return val - -enumClassReadNValues :: EnumClass -> IO Word32 -enumClassReadNValues s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word32 - return val - -enumClassReadValues :: EnumClass -> IO EnumValue -enumClassReadValues s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr EnumValue) - val' <- (newPtr 24 EnumValue) val - return val' - --- struct EnumValue -newtype EnumValue = EnumValue (ForeignPtr EnumValue) -noEnumValue :: Maybe EnumValue -noEnumValue = Nothing - -enumValueReadValue :: EnumValue -> IO Int32 -enumValueReadValue s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -enumValueReadValueName :: EnumValue -> IO T.Text -enumValueReadValueName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - -enumValueReadValueNick :: EnumValue -> IO T.Text -enumValueReadValueNick s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' - --- struct FlagsClass -newtype FlagsClass = FlagsClass (ForeignPtr FlagsClass) -noFlagsClass :: Maybe FlagsClass -noFlagsClass = Nothing - -flagsClassReadGTypeClass :: FlagsClass -> IO TypeClass -flagsClassReadGTypeClass s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr TypeClass) - val' <- (newPtr 8 TypeClass) val - return val' - -flagsClassReadMask :: FlagsClass -> IO Word32 -flagsClassReadMask s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -flagsClassReadNValues :: FlagsClass -> IO Word32 -flagsClassReadNValues s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Word32 - return val - -flagsClassReadValues :: FlagsClass -> IO FlagsValue -flagsClassReadValues s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr FlagsValue) - val' <- (newPtr 24 FlagsValue) val - return val' - --- struct FlagsValue -newtype FlagsValue = FlagsValue (ForeignPtr FlagsValue) -noFlagsValue :: Maybe FlagsValue -noFlagsValue = Nothing - -flagsValueReadValue :: FlagsValue -> IO Word32 -flagsValueReadValue s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - -flagsValueReadValueName :: FlagsValue -> IO T.Text -flagsValueReadValueName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - -flagsValueReadValueNick :: FlagsValue -> IO T.Text -flagsValueReadValueNick s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' - --- object InitiallyUnowned -newtype InitiallyUnowned = InitiallyUnowned (ForeignPtr InitiallyUnowned) -noInitiallyUnowned :: Maybe InitiallyUnowned -noInitiallyUnowned = Nothing - -foreign import ccall "g_initially_unowned_get_type" - c_g_initially_unowned_get_type :: IO GType - -type instance ParentTypes InitiallyUnowned = '[Object] - -instance GObject InitiallyUnowned where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_g_initially_unowned_get_type - - -class GObject o => InitiallyUnownedK o -instance (GObject o, IsDescendantOf InitiallyUnowned o) => InitiallyUnownedK o - -toInitiallyUnowned :: InitiallyUnownedK o => o -> IO InitiallyUnowned -toInitiallyUnowned = unsafeCastTo InitiallyUnowned - --- callback InstanceInitFunc -instanceInitFuncClosure :: InstanceInitFunc -> IO Closure -instanceInitFuncClosure cb = newCClosure =<< mkInstanceInitFunc wrapped - where wrapped = instanceInitFuncWrapper Nothing cb - -type InstanceInitFuncC = - Ptr TypeInstance -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkInstanceInitFunc :: InstanceInitFuncC -> IO (FunPtr InstanceInitFuncC) - -type InstanceInitFunc = - TypeInstance -> - Ptr () -> - IO () - -noInstanceInitFunc :: Maybe InstanceInitFunc -noInstanceInitFunc = Nothing - -instanceInitFuncWrapper :: - Maybe (Ptr (FunPtr (InstanceInitFuncC))) -> - InstanceInitFunc -> - Ptr TypeInstance -> - Ptr () -> - IO () -instanceInitFuncWrapper funptrptr _cb instance_ g_class = do - instance_' <- (newPtr 8 TypeInstance) instance_ - _cb instance_' g_class - maybeReleaseFunPtr funptrptr - --- callback InterfaceFinalizeFunc -interfaceFinalizeFuncClosure :: InterfaceFinalizeFunc -> IO Closure -interfaceFinalizeFuncClosure cb = newCClosure =<< mkInterfaceFinalizeFunc wrapped - where wrapped = interfaceFinalizeFuncWrapper Nothing cb - -type InterfaceFinalizeFuncC = - Ptr () -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkInterfaceFinalizeFunc :: InterfaceFinalizeFuncC -> IO (FunPtr InterfaceFinalizeFuncC) - -type InterfaceFinalizeFunc = - Ptr () -> - Ptr () -> - IO () - -noInterfaceFinalizeFunc :: Maybe InterfaceFinalizeFunc -noInterfaceFinalizeFunc = Nothing - -interfaceFinalizeFuncWrapper :: - Maybe (Ptr (FunPtr (InterfaceFinalizeFuncC))) -> - InterfaceFinalizeFunc -> - Ptr () -> - Ptr () -> - IO () -interfaceFinalizeFuncWrapper funptrptr _cb g_iface iface_data = do - _cb g_iface iface_data - maybeReleaseFunPtr funptrptr - --- struct InterfaceInfo -newtype InterfaceInfo = InterfaceInfo (ForeignPtr InterfaceInfo) -noInterfaceInfo :: Maybe InterfaceInfo -noInterfaceInfo = Nothing - --- XXX Skipped getter for "InterfaceInfo:interface_init" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "InterfaceInfo:interface_finalize" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -interfaceInfoReadInterfaceData :: InterfaceInfo -> IO (Ptr ()) -interfaceInfoReadInterfaceData s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr ()) - return val - --- callback InterfaceInitFunc -interfaceInitFuncClosure :: InterfaceInitFunc -> IO Closure -interfaceInitFuncClosure cb = newCClosure =<< mkInterfaceInitFunc wrapped - where wrapped = interfaceInitFuncWrapper Nothing cb - -type InterfaceInitFuncC = - Ptr () -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkInterfaceInitFunc :: InterfaceInitFuncC -> IO (FunPtr InterfaceInitFuncC) - -type InterfaceInitFunc = - Ptr () -> - Ptr () -> - IO () - -noInterfaceInitFunc :: Maybe InterfaceInitFunc -noInterfaceInitFunc = Nothing - -interfaceInitFuncWrapper :: - Maybe (Ptr (FunPtr (InterfaceInitFuncC))) -> - InterfaceInitFunc -> - Ptr () -> - Ptr () -> - IO () -interfaceInitFuncWrapper funptrptr _cb g_iface iface_data = do - _cb g_iface iface_data - maybeReleaseFunPtr funptrptr - --- object Object -newtype Object = Object (ForeignPtr Object) -noObject :: Maybe Object -noObject = Nothing - -foreign import ccall "g_object_get_type" - c_g_object_get_type :: IO GType - -type instance ParentTypes Object = '[] - -instance GObject Object where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_object_get_type - - -class GObject o => ObjectK o -instance (GObject o, IsDescendantOf Object o) => ObjectK o - -toObject :: ObjectK o => o -> IO Object -toObject = unsafeCastTo Object - --- method Object::new --- method type : Constructor --- Args : [Arg {argName = "object_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_parameters", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TCArray False (-1) 1 (TInterface "GObject" "Parameter"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_parameters", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "object_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TCArray False (-1) 1 (TInterface "GObject" "Parameter"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GObject" "Object" --- throws : False --- Skip return : False - -foreign import ccall "g_object_newv" g_object_newv :: - CGType -> -- object_type : TBasicType TGType - Word32 -> -- n_parameters : TBasicType TUInt32 - Ptr Parameter -> -- parameters : TCArray False (-1) 1 (TInterface "GObject" "Parameter") - IO (Ptr Object) - - -objectNew :: - (MonadIO m) => - GType -> -- object_type - [Parameter] -> -- parameters - m Object -objectNew object_type parameters = liftIO $ do - let n_parameters = fromIntegral $ length parameters - let object_type' = gtypeToCGType object_type - let parameters' = map unsafeManagedPtrGetPtr parameters - parameters'' <- packBlockArray 32 parameters' - result <- g_object_newv object_type' n_parameters parameters'' - checkUnexpectedReturnNULL "g_object_newv" result - result' <- (wrapObject Object) result - mapM_ touchManagedPtr parameters - freeMem parameters'' - return result' - --- method Object::bind_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "BindingFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "BindingFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GObject" "Binding" --- throws : False --- Skip return : False - -foreign import ccall "g_object_bind_property" g_object_bind_property :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - CString -> -- source_property : TBasicType TUTF8 - Ptr Object -> -- target : TInterface "GObject" "Object" - CString -> -- target_property : TBasicType TUTF8 - CUInt -> -- flags : TInterface "GObject" "BindingFlags" - IO (Ptr Binding) - - -objectBindProperty :: - (MonadIO m, ObjectK a, ObjectK b) => - a -> -- _obj - T.Text -> -- source_property - b -> -- target - T.Text -> -- target_property - [BindingFlags] -> -- flags - m Binding -objectBindProperty _obj source_property target target_property flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - source_property' <- textToCString source_property - let target' = unsafeManagedPtrCastPtr target - target_property' <- textToCString target_property - let flags' = gflagsToWord flags - result <- g_object_bind_property _obj' source_property' target' target_property' flags' - checkUnexpectedReturnNULL "g_object_bind_property" result - result' <- (newObject Binding) result - touchManagedPtr _obj - touchManagedPtr target - freeMem source_property' - freeMem target_property' - return result' - --- method Object::bind_property_full --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "BindingFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transform_to", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transform_from", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "BindingFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transform_to", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transform_from", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GObject" "Binding" --- throws : False --- Skip return : False - -foreign import ccall "g_object_bind_property_with_closures" g_object_bind_property_with_closures :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - CString -> -- source_property : TBasicType TUTF8 - Ptr Object -> -- target : TInterface "GObject" "Object" - CString -> -- target_property : TBasicType TUTF8 - CUInt -> -- flags : TInterface "GObject" "BindingFlags" - Ptr Closure -> -- transform_to : TInterface "GObject" "Closure" - Ptr Closure -> -- transform_from : TInterface "GObject" "Closure" - IO (Ptr Binding) - - -objectBindPropertyFull :: - (MonadIO m, ObjectK a, ObjectK b) => - a -> -- _obj - T.Text -> -- source_property - b -> -- target - T.Text -> -- target_property - [BindingFlags] -> -- flags - Closure -> -- transform_to - Closure -> -- transform_from - m Binding -objectBindPropertyFull _obj source_property target target_property flags transform_to transform_from = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - source_property' <- textToCString source_property - let target' = unsafeManagedPtrCastPtr target - target_property' <- textToCString target_property - let flags' = gflagsToWord flags - let transform_to' = unsafeManagedPtrGetPtr transform_to - let transform_from' = unsafeManagedPtrGetPtr transform_from - result <- g_object_bind_property_with_closures _obj' source_property' target' target_property' flags' transform_to' transform_from' - checkUnexpectedReturnNULL "g_object_bind_property_with_closures" result - result' <- (newObject Binding) result - touchManagedPtr _obj - touchManagedPtr target - touchManagedPtr transform_to - touchManagedPtr transform_from - freeMem source_property' - freeMem target_property' - return result' - --- method Object::force_floating --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", 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_object_force_floating" g_object_force_floating :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - IO () - - -objectForceFloating :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m () -objectForceFloating _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_object_force_floating _obj' - touchManagedPtr _obj - return () - --- method Object::freeze_notify --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", 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_object_freeze_notify" g_object_freeze_notify :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - IO () - - -objectFreezeNotify :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m () -objectFreezeNotify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_object_freeze_notify _obj' - touchManagedPtr _obj - return () - --- method Object::get_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", 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_object_get_data" g_object_get_data :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - CString -> -- key : TBasicType TUTF8 - IO () - - -objectGetData :: - (MonadIO m, ObjectK a) => - a -> -- _obj - T.Text -> -- key - m () -objectGetData _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - g_object_get_data _obj' key' - touchManagedPtr _obj - freeMem key' - return () - --- method Object::get_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, 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 = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, 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_object_get_property" g_object_get_property :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - CString -> -- property_name : TBasicType TUTF8 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -objectGetProperty :: - (MonadIO m, ObjectK a) => - a -> -- _obj - T.Text -> -- property_name - GValue -> -- value - m () -objectGetProperty _obj property_name value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - property_name' <- textToCString property_name - let value' = unsafeManagedPtrGetPtr value - g_object_get_property _obj' property_name' value' - touchManagedPtr _obj - touchManagedPtr value - freeMem property_name' - return () - --- method Object::get_qdata --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", 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 = "_obj", argType = TInterface "GObject" "Object", 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_object_get_qdata" g_object_get_qdata :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - Word32 -> -- quark : TBasicType TUInt32 - IO () - - -objectGetQdata :: - (MonadIO m, ObjectK a) => - a -> -- _obj - Word32 -> -- quark - m () -objectGetQdata _obj quark = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_object_get_qdata _obj' quark - touchManagedPtr _obj - return () - --- method Object::is_floating --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_object_is_floating" g_object_is_floating :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - IO CInt - - -objectIsFloating :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m Bool -objectIsFloating _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_object_is_floating _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Object::notify --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", 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_object_notify" g_object_notify :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - CString -> -- property_name : TBasicType TUTF8 - IO () - - -objectNotify :: - (MonadIO m, ObjectK a) => - a -> -- _obj - T.Text -> -- property_name - m () -objectNotify _obj property_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - property_name' <- textToCString property_name - g_object_notify _obj' property_name' - touchManagedPtr _obj - freeMem property_name' - return () - --- method Object::notify_by_pspec --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_object_notify_by_pspec" g_object_notify_by_pspec :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - Ptr GParamSpec -> -- pspec : TParamSpec - IO () - - -objectNotifyByPspec :: - (MonadIO m, ObjectK a) => - a -> -- _obj - GParamSpec -> -- pspec - m () -objectNotifyByPspec _obj pspec = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pspec' = unsafeManagedPtrGetPtr pspec - g_object_notify_by_pspec _obj' pspec' - touchManagedPtr _obj - return () - --- method Object::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GObject" "Object" --- throws : False --- Skip return : False - -foreign import ccall "g_object_ref" g_object_ref :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - IO (Ptr Object) - - -objectRef :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m Object -objectRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_object_ref _obj' - checkUnexpectedReturnNULL "g_object_ref" result - result' <- (newObject Object) result - touchManagedPtr _obj - return result' - --- method Object::ref_sink --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GObject" "Object" --- throws : False --- Skip return : False - -foreign import ccall "g_object_ref_sink" g_object_ref_sink :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - IO (Ptr Object) - - -objectRefSink :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m Object -objectRefSink _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_object_ref_sink _obj' - checkUnexpectedReturnNULL "g_object_ref_sink" result - result' <- (newObject Object) result - touchManagedPtr _obj - return result' - --- method Object::replace_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_object_replace_data" g_object_replace_data :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - CString -> -- key : TBasicType TUTF8 - Ptr () -> -- oldval : TBasicType TVoid - Ptr () -> -- newval : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - FunPtr GLib.DestroyNotifyC -> -- old_destroy : TInterface "GLib" "DestroyNotify" - IO CInt - - -objectReplaceData :: - (MonadIO m, ObjectK a) => - a -> -- _obj - T.Text -> -- key - Maybe (Ptr ()) -> -- oldval - Maybe (Ptr ()) -> -- newval - Maybe (GLib.DestroyNotify) -> -- destroy - Maybe (GLib.DestroyNotify) -> -- old_destroy - m Bool -objectReplaceData _obj key oldval newval destroy old_destroy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - maybeOldval <- case oldval of - Nothing -> return nullPtr - Just jOldval -> do - return jOldval - maybeNewval <- case newval of - Nothing -> return nullPtr - Just jNewval -> do - return jNewval - ptrdestroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) - maybeDestroy <- case destroy of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jDestroy -> do - jDestroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrdestroy) jDestroy) - poke ptrdestroy jDestroy' - return jDestroy' - ptrold_destroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) - maybeOld_destroy <- case old_destroy of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jOld_destroy -> do - jOld_destroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrold_destroy) jOld_destroy) - poke ptrold_destroy jOld_destroy' - return jOld_destroy' - result <- g_object_replace_data _obj' key' maybeOldval maybeNewval maybeDestroy maybeOld_destroy - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - return result' - --- method Object::replace_qdata --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", 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 = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", 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 = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_object_replace_qdata" g_object_replace_qdata :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - Word32 -> -- quark : TBasicType TUInt32 - Ptr () -> -- oldval : TBasicType TVoid - Ptr () -> -- newval : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - FunPtr GLib.DestroyNotifyC -> -- old_destroy : TInterface "GLib" "DestroyNotify" - IO CInt - - -objectReplaceQdata :: - (MonadIO m, ObjectK a) => - a -> -- _obj - Word32 -> -- quark - Maybe (Ptr ()) -> -- oldval - Maybe (Ptr ()) -> -- newval - Maybe (GLib.DestroyNotify) -> -- destroy - Maybe (GLib.DestroyNotify) -> -- old_destroy - m Bool -objectReplaceQdata _obj quark oldval newval destroy old_destroy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeOldval <- case oldval of - Nothing -> return nullPtr - Just jOldval -> do - return jOldval - maybeNewval <- case newval of - Nothing -> return nullPtr - Just jNewval -> do - return jNewval - ptrdestroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) - maybeDestroy <- case destroy of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jDestroy -> do - jDestroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrdestroy) jDestroy) - poke ptrdestroy jDestroy' - return jDestroy' - ptrold_destroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) - maybeOld_destroy <- case old_destroy of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jOld_destroy -> do - jOld_destroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrold_destroy) jOld_destroy) - poke ptrold_destroy jOld_destroy' - return jOld_destroy' - result <- g_object_replace_qdata _obj' quark maybeOldval maybeNewval maybeDestroy maybeOld_destroy - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Object::run_dispose --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", 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_object_run_dispose" g_object_run_dispose :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - IO () - - -objectRunDispose :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m () -objectRunDispose _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_object_run_dispose _obj' - touchManagedPtr _obj - return () - --- method Object::set_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, 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 = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, 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_object_set_data" g_object_set_data :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - CString -> -- key : TBasicType TUTF8 - Ptr () -> -- data : TBasicType TVoid - IO () - - -objectSetData :: - (MonadIO m, ObjectK a) => - a -> -- _obj - T.Text -> -- key - Ptr () -> -- data - m () -objectSetData _obj key data_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - g_object_set_data _obj' key' data_ - touchManagedPtr _obj - freeMem key' - return () - --- method Object::set_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, 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 = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, 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_object_set_property" g_object_set_property :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - CString -> -- property_name : TBasicType TUTF8 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -objectSetProperty :: - (MonadIO m, ObjectK a) => - a -> -- _obj - T.Text -> -- property_name - GValue -> -- value - m () -objectSetProperty _obj property_name value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - property_name' <- textToCString property_name - let value' = unsafeManagedPtrGetPtr value - g_object_set_property _obj' property_name' value' - touchManagedPtr _obj - touchManagedPtr value - freeMem property_name' - return () - --- method Object::steal_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", 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_object_steal_data" g_object_steal_data :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - CString -> -- key : TBasicType TUTF8 - IO () - - -objectStealData :: - (MonadIO m, ObjectK a) => - a -> -- _obj - T.Text -> -- key - m () -objectStealData _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - g_object_steal_data _obj' key' - touchManagedPtr _obj - freeMem key' - return () - --- method Object::steal_qdata --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", 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 = "_obj", argType = TInterface "GObject" "Object", 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_object_steal_qdata" g_object_steal_qdata :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - Word32 -> -- quark : TBasicType TUInt32 - IO () - - -objectStealQdata :: - (MonadIO m, ObjectK a) => - a -> -- _obj - Word32 -> -- quark - m () -objectStealQdata _obj quark = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_object_steal_qdata _obj' quark - touchManagedPtr _obj - return () - --- method Object::thaw_notify --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", 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_object_thaw_notify" g_object_thaw_notify :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - IO () - - -objectThawNotify :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m () -objectThawNotify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_object_thaw_notify _obj' - touchManagedPtr _obj - return () - --- method Object::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", 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_object_unref" g_object_unref :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - IO () - - -objectUnref :: - (MonadIO m, ObjectK a) => - a -> -- _obj - m () -objectUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_object_unref _obj' - touchManagedPtr _obj - return () - --- method Object::watch_closure --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", 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 = "_obj", argType = TInterface "GObject" "Object", 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_object_watch_closure" g_object_watch_closure :: - Ptr Object -> -- _obj : TInterface "GObject" "Object" - Ptr Closure -> -- closure : TInterface "GObject" "Closure" - IO () - - -objectWatchClosure :: - (MonadIO m, ObjectK a) => - a -> -- _obj - Closure -> -- closure - m () -objectWatchClosure _obj closure = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let closure' = unsafeManagedPtrGetPtr closure - g_object_watch_closure _obj' closure' - touchManagedPtr _obj - touchManagedPtr closure - return () - --- method Object::compat_control --- method type : MemberFunction --- Args : [Arg {argName = "what", argType = TBasicType TUInt64, 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 = "what", argType = TBasicType TUInt64, 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_object_compat_control" g_object_compat_control :: - Word64 -> -- what : TBasicType TUInt64 - Ptr () -> -- data : TBasicType TVoid - IO Word64 - - -objectCompatControl :: - (MonadIO m) => - Word64 -> -- what - Ptr () -> -- data - m Word64 -objectCompatControl what data_ = liftIO $ do - result <- g_object_compat_control what data_ - return result - --- method Object::interface_find_property --- method type : MemberFunction --- Args : [Arg {argName = "g_iface", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "g_iface", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TParamSpec --- throws : False --- Skip return : False - -foreign import ccall "g_object_interface_find_property" g_object_interface_find_property :: - Ptr () -> -- g_iface : TBasicType TVoid - CString -> -- property_name : TBasicType TUTF8 - IO (Ptr GParamSpec) - - -objectInterfaceFindProperty :: - (MonadIO m) => - Ptr () -> -- g_iface - T.Text -> -- property_name - m GParamSpec -objectInterfaceFindProperty g_iface property_name = liftIO $ do - property_name' <- textToCString property_name - result <- g_object_interface_find_property g_iface property_name' - checkUnexpectedReturnNULL "g_object_interface_find_property" result - result' <- newGParamSpecFromPtr result - freeMem property_name' - return result' - --- method Object::interface_install_property --- method type : MemberFunction --- Args : [Arg {argName = "g_iface", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "g_iface", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_object_interface_install_property" g_object_interface_install_property :: - Ptr () -> -- g_iface : TBasicType TVoid - Ptr GParamSpec -> -- pspec : TParamSpec - IO () - - -objectInterfaceInstallProperty :: - (MonadIO m) => - Ptr () -> -- g_iface - GParamSpec -> -- pspec - m () -objectInterfaceInstallProperty g_iface pspec = liftIO $ do - let pspec' = unsafeManagedPtrGetPtr pspec - g_object_interface_install_property g_iface pspec' - return () - --- XXX Could not generate method Object::interface_list_properties --- Error was : Not implemented: "unpackCArray : Don't know how to unpack C Array of type TParamSpec" --- signal Object::notify -type ObjectNotifyCallback = - GParamSpec -> - IO () - -noObjectNotifyCallback :: Maybe ObjectNotifyCallback -noObjectNotifyCallback = Nothing - -type ObjectNotifyCallbackC = - Ptr () -> -- object - Ptr GParamSpec -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkObjectNotifyCallback :: ObjectNotifyCallbackC -> IO (FunPtr ObjectNotifyCallbackC) - -objectNotifyClosure :: ObjectNotifyCallback -> IO Closure -objectNotifyClosure cb = newCClosure =<< mkObjectNotifyCallback wrapped - where wrapped = objectNotifyCallbackWrapper cb - -objectNotifyCallbackWrapper :: - ObjectNotifyCallback -> - Ptr () -> - Ptr GParamSpec -> - Ptr () -> - IO () -objectNotifyCallbackWrapper _cb _ pspec _ = do - pspec' <- newGParamSpecFromPtr pspec - _cb pspec' - -onObjectNotify :: (GObject a, MonadIO m) => a -> ObjectNotifyCallback -> m SignalHandlerId -onObjectNotify obj cb = liftIO $ connectObjectNotify obj cb SignalConnectBefore -afterObjectNotify :: (GObject a, MonadIO m) => a -> ObjectNotifyCallback -> m SignalHandlerId -afterObjectNotify obj cb = connectObjectNotify obj cb SignalConnectAfter - -connectObjectNotify :: (GObject a, MonadIO m) => - a -> ObjectNotifyCallback -> SignalConnectMode -> m SignalHandlerId -connectObjectNotify obj cb after = liftIO $ do - cb' <- mkObjectNotifyCallback (objectNotifyCallbackWrapper cb) - connectSignalFunPtr obj "notify" cb' after - --- struct ObjectConstructParam -newtype ObjectConstructParam = ObjectConstructParam (ForeignPtr ObjectConstructParam) -noObjectConstructParam :: Maybe ObjectConstructParam -noObjectConstructParam = Nothing - -objectConstructParamReadPspec :: ObjectConstructParam -> IO GParamSpec -objectConstructParamReadPspec s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr GParamSpec) - val' <- newGParamSpecFromPtr val - return val' - -objectConstructParamReadValue :: ObjectConstructParam -> IO GValue -objectConstructParamReadValue s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr GValue) - val' <- (newBoxed GValue) val - return val' - --- callback ObjectFinalizeFunc -objectFinalizeFuncClosure :: ObjectFinalizeFunc -> IO Closure -objectFinalizeFuncClosure cb = newCClosure =<< mkObjectFinalizeFunc wrapped - where wrapped = objectFinalizeFuncWrapper Nothing cb - -type ObjectFinalizeFuncC = - Ptr Object -> - IO () - -foreign import ccall "wrapper" - mkObjectFinalizeFunc :: ObjectFinalizeFuncC -> IO (FunPtr ObjectFinalizeFuncC) - -type ObjectFinalizeFunc = - Object -> - IO () - -noObjectFinalizeFunc :: Maybe ObjectFinalizeFunc -noObjectFinalizeFunc = Nothing - -objectFinalizeFuncWrapper :: - Maybe (Ptr (FunPtr (ObjectFinalizeFuncC))) -> - ObjectFinalizeFunc -> - Ptr Object -> - IO () -objectFinalizeFuncWrapper funptrptr _cb object = do - object' <- (newObject Object) object - _cb object' - maybeReleaseFunPtr funptrptr - --- callback ObjectGetPropertyFunc -objectGetPropertyFuncClosure :: ObjectGetPropertyFunc -> IO Closure -objectGetPropertyFuncClosure cb = newCClosure =<< mkObjectGetPropertyFunc wrapped - where wrapped = objectGetPropertyFuncWrapper Nothing cb - -type ObjectGetPropertyFuncC = - Ptr Object -> - Word32 -> - Ptr GValue -> - Ptr GParamSpec -> - IO () - -foreign import ccall "wrapper" - mkObjectGetPropertyFunc :: ObjectGetPropertyFuncC -> IO (FunPtr ObjectGetPropertyFuncC) - -type ObjectGetPropertyFunc = - Object -> - Word32 -> - GValue -> - GParamSpec -> - IO () - -noObjectGetPropertyFunc :: Maybe ObjectGetPropertyFunc -noObjectGetPropertyFunc = Nothing - -objectGetPropertyFuncWrapper :: - Maybe (Ptr (FunPtr (ObjectGetPropertyFuncC))) -> - ObjectGetPropertyFunc -> - Ptr Object -> - Word32 -> - Ptr GValue -> - Ptr GParamSpec -> - IO () -objectGetPropertyFuncWrapper funptrptr _cb object property_id value pspec = do - object' <- (newObject Object) object - value' <- (newBoxed GValue) value - pspec' <- newGParamSpecFromPtr pspec - _cb object' property_id value' pspec' - maybeReleaseFunPtr funptrptr - --- callback ObjectSetPropertyFunc -objectSetPropertyFuncClosure :: ObjectSetPropertyFunc -> IO Closure -objectSetPropertyFuncClosure cb = newCClosure =<< mkObjectSetPropertyFunc wrapped - where wrapped = objectSetPropertyFuncWrapper Nothing cb - -type ObjectSetPropertyFuncC = - Ptr Object -> - Word32 -> - Ptr GValue -> - Ptr GParamSpec -> - IO () - -foreign import ccall "wrapper" - mkObjectSetPropertyFunc :: ObjectSetPropertyFuncC -> IO (FunPtr ObjectSetPropertyFuncC) - -type ObjectSetPropertyFunc = - Object -> - Word32 -> - GValue -> - GParamSpec -> - IO () - -noObjectSetPropertyFunc :: Maybe ObjectSetPropertyFunc -noObjectSetPropertyFunc = Nothing - -objectSetPropertyFuncWrapper :: - Maybe (Ptr (FunPtr (ObjectSetPropertyFuncC))) -> - ObjectSetPropertyFunc -> - Ptr Object -> - Word32 -> - Ptr GValue -> - Ptr GParamSpec -> - IO () -objectSetPropertyFuncWrapper funptrptr _cb object property_id value pspec = do - object' <- (newObject Object) object - value' <- (newBoxed GValue) value - pspec' <- newGParamSpecFromPtr pspec - _cb object' property_id value' pspec' - maybeReleaseFunPtr funptrptr - --- Flags ParamFlags - -data ParamFlags = - ParamFlagsReadable - | ParamFlagsWritable - | ParamFlagsReadwrite - | ParamFlagsConstruct - | ParamFlagsConstructOnly - | ParamFlagsLaxValidation - | ParamFlagsStaticName - | ParamFlagsPrivate - | ParamFlagsStaticNick - | ParamFlagsStaticBlurb - | ParamFlagsExplicitNotify - | ParamFlagsDeprecated - | AnotherParamFlags Int - deriving (Show, Eq) - -instance Enum ParamFlags where - fromEnum ParamFlagsReadable = 1 - fromEnum ParamFlagsWritable = 2 - fromEnum ParamFlagsReadwrite = 3 - fromEnum ParamFlagsConstruct = 4 - fromEnum ParamFlagsConstructOnly = 8 - fromEnum ParamFlagsLaxValidation = 16 - fromEnum ParamFlagsStaticName = 32 - fromEnum ParamFlagsPrivate = 32 - fromEnum ParamFlagsStaticNick = 64 - fromEnum ParamFlagsStaticBlurb = 128 - fromEnum ParamFlagsExplicitNotify = 1073741824 - fromEnum ParamFlagsDeprecated = 2147483648 - fromEnum (AnotherParamFlags k) = k - - toEnum 1 = ParamFlagsReadable - toEnum 2 = ParamFlagsWritable - toEnum 3 = ParamFlagsReadwrite - toEnum 4 = ParamFlagsConstruct - toEnum 8 = ParamFlagsConstructOnly - toEnum 16 = ParamFlagsLaxValidation - toEnum 32 = ParamFlagsStaticName - toEnum 64 = ParamFlagsStaticNick - toEnum 128 = ParamFlagsStaticBlurb - toEnum 1073741824 = ParamFlagsExplicitNotify - toEnum 2147483648 = ParamFlagsDeprecated - toEnum k = AnotherParamFlags k - -instance IsGFlag ParamFlags - --- struct ParamSpecPool -newtype ParamSpecPool = ParamSpecPool (ForeignPtr ParamSpecPool) -noParamSpecPool :: Maybe ParamSpecPool -noParamSpecPool = Nothing - --- method ParamSpecPool::insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ParamSpecPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ParamSpecPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_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_param_spec_pool_insert" g_param_spec_pool_insert :: - Ptr ParamSpecPool -> -- _obj : TInterface "GObject" "ParamSpecPool" - Ptr GParamSpec -> -- pspec : TParamSpec - CGType -> -- owner_type : TBasicType TGType - IO () - - -paramSpecPoolInsert :: - (MonadIO m) => - ParamSpecPool -> -- _obj - GParamSpec -> -- pspec - GType -> -- owner_type - m () -paramSpecPoolInsert _obj pspec owner_type = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let pspec' = unsafeManagedPtrGetPtr pspec - let owner_type' = gtypeToCGType owner_type - g_param_spec_pool_insert _obj' pspec' owner_type' - touchManagedPtr _obj - return () - --- XXX Could not generate method ParamSpecPool::list --- Error was : Not implemented: "unpackCArray : Don't know how to unpack C Array of type TParamSpec" --- method ParamSpecPool::list_owned --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ParamSpecPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ParamSpecPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGList TParamSpec --- throws : False --- Skip return : False - -foreign import ccall "g_param_spec_pool_list_owned" g_param_spec_pool_list_owned :: - Ptr ParamSpecPool -> -- _obj : TInterface "GObject" "ParamSpecPool" - CGType -> -- owner_type : TBasicType TGType - IO (Ptr (GList (Ptr GParamSpec))) - - -paramSpecPoolListOwned :: - (MonadIO m) => - ParamSpecPool -> -- _obj - GType -> -- owner_type - m [GParamSpec] -paramSpecPoolListOwned _obj owner_type = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let owner_type' = gtypeToCGType owner_type - result <- g_param_spec_pool_list_owned _obj' owner_type' - checkUnexpectedReturnNULL "g_param_spec_pool_list_owned" result - result' <- unpackGList result - result'' <- mapM newGParamSpecFromPtr result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method ParamSpecPool::lookup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ParamSpecPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "walk_ancestors", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ParamSpecPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "walk_ancestors", argType = TBasicType TBoolean, 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_pool_lookup" g_param_spec_pool_lookup :: - Ptr ParamSpecPool -> -- _obj : TInterface "GObject" "ParamSpecPool" - CString -> -- param_name : TBasicType TUTF8 - CGType -> -- owner_type : TBasicType TGType - CInt -> -- walk_ancestors : TBasicType TBoolean - IO (Ptr GParamSpec) - - -paramSpecPoolLookup :: - (MonadIO m) => - ParamSpecPool -> -- _obj - T.Text -> -- param_name - GType -> -- owner_type - Bool -> -- walk_ancestors - m GParamSpec -paramSpecPoolLookup _obj param_name owner_type walk_ancestors = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - param_name' <- textToCString param_name - let owner_type' = gtypeToCGType owner_type - let walk_ancestors' = (fromIntegral . fromEnum) walk_ancestors - result <- g_param_spec_pool_lookup _obj' param_name' owner_type' walk_ancestors' - checkUnexpectedReturnNULL "g_param_spec_pool_lookup" result - result' <- newGParamSpecFromPtr result - touchManagedPtr _obj - freeMem param_name' - return result' - --- method ParamSpecPool::remove --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ParamSpecPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ParamSpecPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, 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_spec_pool_remove" g_param_spec_pool_remove :: - Ptr ParamSpecPool -> -- _obj : TInterface "GObject" "ParamSpecPool" - Ptr GParamSpec -> -- pspec : TParamSpec - IO () - - -paramSpecPoolRemove :: - (MonadIO m) => - ParamSpecPool -> -- _obj - GParamSpec -> -- pspec - m () -paramSpecPoolRemove _obj pspec = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let pspec' = unsafeManagedPtrGetPtr pspec - g_param_spec_pool_remove _obj' pspec' - touchManagedPtr _obj - return () - --- struct ParamSpecTypeInfo -newtype ParamSpecTypeInfo = ParamSpecTypeInfo (ForeignPtr ParamSpecTypeInfo) -noParamSpecTypeInfo :: Maybe ParamSpecTypeInfo -noParamSpecTypeInfo = Nothing - -paramSpecTypeInfoReadInstanceSize :: ParamSpecTypeInfo -> IO Word16 -paramSpecTypeInfoReadInstanceSize s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word16 - return val - -paramSpecTypeInfoReadNPreallocs :: ParamSpecTypeInfo -> IO Word16 -paramSpecTypeInfoReadNPreallocs s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 2) :: IO Word16 - return val - --- XXX Skipped getter for "ParamSpecTypeInfo:instance_init" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -paramSpecTypeInfoReadValueType :: ParamSpecTypeInfo -> IO GType -paramSpecTypeInfoReadValueType s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CGType - let val' = GType val - return val' - --- XXX Skipped getter for "ParamSpecTypeInfo:finalize" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "ParamSpecTypeInfo:value_set_default" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "ParamSpecTypeInfo:value_validate" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "ParamSpecTypeInfo:values_cmp" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- struct Parameter -newtype Parameter = Parameter (ForeignPtr Parameter) -noParameter :: Maybe Parameter -noParameter = Nothing - -parameterReadName :: Parameter -> IO T.Text -parameterReadName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -parameterReadValue :: Parameter -> IO GValue -parameterReadValue s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr GValue) - val' <- (newBoxed GValue) val - return val' - --- callback SignalAccumulator -signalAccumulatorClosure :: SignalAccumulator -> IO Closure -signalAccumulatorClosure cb = newCClosure =<< mkSignalAccumulator wrapped - where wrapped = signalAccumulatorWrapper Nothing cb - -type SignalAccumulatorC = - Ptr SignalInvocationHint -> - Ptr GValue -> - Ptr GValue -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkSignalAccumulator :: SignalAccumulatorC -> IO (FunPtr SignalAccumulatorC) - -type SignalAccumulator = - SignalInvocationHint -> - GValue -> - GValue -> - Ptr () -> - IO Bool - -noSignalAccumulator :: Maybe SignalAccumulator -noSignalAccumulator = Nothing - -signalAccumulatorWrapper :: - Maybe (Ptr (FunPtr (SignalAccumulatorC))) -> - SignalAccumulator -> - Ptr SignalInvocationHint -> - Ptr GValue -> - Ptr GValue -> - Ptr () -> - IO CInt -signalAccumulatorWrapper funptrptr _cb ihint return_accu handler_return data_ = do - ihint' <- (newPtr 12 SignalInvocationHint) ihint - return_accu' <- (newBoxed GValue) return_accu - handler_return' <- (newBoxed GValue) handler_return - result <- _cb ihint' return_accu' handler_return' data_ - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback SignalEmissionHook -signalEmissionHookClosure :: SignalEmissionHook -> IO Closure -signalEmissionHookClosure cb = newCClosure =<< mkSignalEmissionHook wrapped - where wrapped = signalEmissionHookWrapper Nothing cb - -type SignalEmissionHookC = - Ptr SignalInvocationHint -> - Word32 -> - Ptr GValue -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkSignalEmissionHook :: SignalEmissionHookC -> IO (FunPtr SignalEmissionHookC) - -type SignalEmissionHook = - SignalInvocationHint -> - [GValue] -> - Ptr () -> - IO Bool - -noSignalEmissionHook :: Maybe SignalEmissionHook -noSignalEmissionHook = Nothing - -signalEmissionHookWrapper :: - Maybe (Ptr (FunPtr (SignalEmissionHookC))) -> - SignalEmissionHook -> - Ptr SignalInvocationHint -> - Word32 -> - Ptr GValue -> - Ptr () -> - IO CInt -signalEmissionHookWrapper funptrptr _cb ihint n_param_values param_values data_ = do - ihint' <- (newPtr 12 SignalInvocationHint) ihint - param_values' <- (unpackBoxedArrayWithLength 24 n_param_values) param_values - param_values'' <- mapM (newBoxed GValue) param_values' - result <- _cb ihint' param_values'' data_ - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- Flags SignalFlags - -data SignalFlags = - SignalFlagsRunFirst - | SignalFlagsRunLast - | SignalFlagsRunCleanup - | SignalFlagsNoRecurse - | SignalFlagsDetailed - | SignalFlagsAction - | SignalFlagsNoHooks - | SignalFlagsMustCollect - | SignalFlagsDeprecated - | AnotherSignalFlags Int - deriving (Show, Eq) - -instance Enum SignalFlags where - fromEnum SignalFlagsRunFirst = 1 - fromEnum SignalFlagsRunLast = 2 - fromEnum SignalFlagsRunCleanup = 4 - fromEnum SignalFlagsNoRecurse = 8 - fromEnum SignalFlagsDetailed = 16 - fromEnum SignalFlagsAction = 32 - fromEnum SignalFlagsNoHooks = 64 - fromEnum SignalFlagsMustCollect = 128 - fromEnum SignalFlagsDeprecated = 256 - fromEnum (AnotherSignalFlags k) = k - - toEnum 1 = SignalFlagsRunFirst - toEnum 2 = SignalFlagsRunLast - toEnum 4 = SignalFlagsRunCleanup - toEnum 8 = SignalFlagsNoRecurse - toEnum 16 = SignalFlagsDetailed - toEnum 32 = SignalFlagsAction - toEnum 64 = SignalFlagsNoHooks - toEnum 128 = SignalFlagsMustCollect - toEnum 256 = SignalFlagsDeprecated - toEnum k = AnotherSignalFlags k - -instance IsGFlag SignalFlags - --- struct SignalInvocationHint -newtype SignalInvocationHint = SignalInvocationHint (ForeignPtr SignalInvocationHint) -noSignalInvocationHint :: Maybe SignalInvocationHint -noSignalInvocationHint = Nothing - -signalInvocationHintReadSignalId :: SignalInvocationHint -> IO Word32 -signalInvocationHintReadSignalId s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - -signalInvocationHintReadDetail :: SignalInvocationHint -> IO Word32 -signalInvocationHintReadDetail s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Word32 - return val - -signalInvocationHintReadRunType :: SignalInvocationHint -> IO [SignalFlags] -signalInvocationHintReadRunType s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CUInt - let val' = wordToGFlags val - return val' - --- Flags SignalMatchType - -data SignalMatchType = - SignalMatchTypeId - | SignalMatchTypeDetail - | SignalMatchTypeClosure - | SignalMatchTypeFunc - | SignalMatchTypeData - | SignalMatchTypeUnblocked - | AnotherSignalMatchType Int - deriving (Show, Eq) - -instance Enum SignalMatchType where - fromEnum SignalMatchTypeId = 1 - fromEnum SignalMatchTypeDetail = 2 - fromEnum SignalMatchTypeClosure = 4 - fromEnum SignalMatchTypeFunc = 8 - fromEnum SignalMatchTypeData = 16 - fromEnum SignalMatchTypeUnblocked = 32 - fromEnum (AnotherSignalMatchType k) = k - - toEnum 1 = SignalMatchTypeId - toEnum 2 = SignalMatchTypeDetail - toEnum 4 = SignalMatchTypeClosure - toEnum 8 = SignalMatchTypeFunc - toEnum 16 = SignalMatchTypeData - toEnum 32 = SignalMatchTypeUnblocked - toEnum k = AnotherSignalMatchType k - -instance IsGFlag SignalMatchType - --- struct SignalQuery -newtype SignalQuery = SignalQuery (ForeignPtr SignalQuery) -noSignalQuery :: Maybe SignalQuery -noSignalQuery = Nothing - -signalQueryReadSignalId :: SignalQuery -> IO Word32 -signalQueryReadSignalId s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - -signalQueryReadSignalName :: SignalQuery -> IO T.Text -signalQueryReadSignalName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - -signalQueryReadItype :: SignalQuery -> IO GType -signalQueryReadItype s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CGType - let val' = GType val - return val' - -signalQueryReadSignalFlags :: SignalQuery -> IO [SignalFlags] -signalQueryReadSignalFlags s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CUInt - let val' = wordToGFlags val - return val' - -signalQueryReadReturnType :: SignalQuery -> IO GType -signalQueryReadReturnType s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CGType - let val' = GType val - return val' - -signalQueryReadNParams :: SignalQuery -> IO Word32 -signalQueryReadNParams s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO Word32 - return val - --- XXX Skipped getter for "SignalQuery:param_types" :: Not implemented: "Don't know how to unpack C array of type TCArray False (-1) 5 (TBasicType TGType)" - --- callback ToggleNotify -toggleNotifyClosure :: ToggleNotify -> IO Closure -toggleNotifyClosure cb = newCClosure =<< mkToggleNotify wrapped - where wrapped = toggleNotifyWrapper Nothing cb - -type ToggleNotifyC = - Ptr () -> - Ptr Object -> - CInt -> - IO () - -foreign import ccall "wrapper" - mkToggleNotify :: ToggleNotifyC -> IO (FunPtr ToggleNotifyC) - -type ToggleNotify = - Ptr () -> - Object -> - Bool -> - IO () - -noToggleNotify :: Maybe ToggleNotify -noToggleNotify = Nothing - -toggleNotifyWrapper :: - Maybe (Ptr (FunPtr (ToggleNotifyC))) -> - ToggleNotify -> - Ptr () -> - Ptr Object -> - CInt -> - IO () -toggleNotifyWrapper funptrptr _cb data_ object is_last_ref = do - object' <- (newObject Object) object - let is_last_ref' = (/= 0) is_last_ref - _cb data_ object' is_last_ref' - maybeReleaseFunPtr funptrptr - --- union TypeCValue -newtype TypeCValue = TypeCValue (ForeignPtr TypeCValue) -noTypeCValue :: Maybe TypeCValue -noTypeCValue = Nothing - -typeCValueReadVInt :: TypeCValue -> IO Int32 -typeCValueReadVInt s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -typeCValueReadVLong :: TypeCValue -> IO Int64 -typeCValueReadVLong s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int64 - return val - -typeCValueReadVInt64 :: TypeCValue -> IO Int64 -typeCValueReadVInt64 s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int64 - return val - -typeCValueReadVDouble :: TypeCValue -> IO Double -typeCValueReadVDouble s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CDouble - let val' = realToFrac val - return val' - -typeCValueReadVPointer :: TypeCValue -> IO (Ptr ()) -typeCValueReadVPointer s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - --- struct TypeClass -newtype TypeClass = TypeClass (ForeignPtr TypeClass) -noTypeClass :: Maybe TypeClass -noTypeClass = Nothing - --- method TypeClass::peek_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeClass", 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_parent" g_type_class_peek_parent :: - Ptr TypeClass -> -- _obj : TInterface "GObject" "TypeClass" - IO (Ptr TypeClass) - - -typeClassPeekParent :: - (MonadIO m) => - TypeClass -> -- _obj - m TypeClass -typeClassPeekParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_type_class_peek_parent _obj' - checkUnexpectedReturnNULL "g_type_class_peek_parent" result - result' <- (newPtr 8 TypeClass) result - touchManagedPtr _obj - return result' - --- method TypeClass::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeClass", 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_unref" g_type_class_unref :: - Ptr TypeClass -> -- _obj : TInterface "GObject" "TypeClass" - IO () - - -typeClassUnref :: - (MonadIO m) => - TypeClass -> -- _obj - m () -typeClassUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_type_class_unref _obj' - touchManagedPtr _obj - return () - --- callback TypeClassCacheFunc -typeClassCacheFuncClosure :: TypeClassCacheFunc -> IO Closure -typeClassCacheFuncClosure cb = newCClosure =<< mkTypeClassCacheFunc wrapped - where wrapped = typeClassCacheFuncWrapper Nothing cb - -type TypeClassCacheFuncC = - Ptr () -> - Ptr TypeClass -> - IO CInt - -foreign import ccall "wrapper" - mkTypeClassCacheFunc :: TypeClassCacheFuncC -> IO (FunPtr TypeClassCacheFuncC) - -type TypeClassCacheFunc = - Ptr () -> - TypeClass -> - IO Bool - -noTypeClassCacheFunc :: Maybe TypeClassCacheFunc -noTypeClassCacheFunc = Nothing - -typeClassCacheFuncWrapper :: - Maybe (Ptr (FunPtr (TypeClassCacheFuncC))) -> - TypeClassCacheFunc -> - Ptr () -> - Ptr TypeClass -> - IO CInt -typeClassCacheFuncWrapper funptrptr _cb cache_data g_class = do - g_class' <- (newPtr 8 TypeClass) g_class - result <- _cb cache_data g_class' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- Flags TypeDebugFlags -{-# DEPRECATED TypeDebugFlags ["(Since version 2.36)","g_type_init() is now done automatically"]#-} -data TypeDebugFlags = - TypeDebugFlagsNone - | TypeDebugFlagsObjects - | TypeDebugFlagsSignals - | TypeDebugFlagsInstanceCount - | TypeDebugFlagsMask - | AnotherTypeDebugFlags Int - deriving (Show, Eq) - -instance Enum TypeDebugFlags where - fromEnum TypeDebugFlagsNone = 0 - fromEnum TypeDebugFlagsObjects = 1 - fromEnum TypeDebugFlagsSignals = 2 - fromEnum TypeDebugFlagsInstanceCount = 4 - fromEnum TypeDebugFlagsMask = 7 - fromEnum (AnotherTypeDebugFlags k) = k - - toEnum 0 = TypeDebugFlagsNone - toEnum 1 = TypeDebugFlagsObjects - toEnum 2 = TypeDebugFlagsSignals - toEnum 4 = TypeDebugFlagsInstanceCount - toEnum 7 = TypeDebugFlagsMask - toEnum k = AnotherTypeDebugFlags k - -instance IsGFlag TypeDebugFlags - --- Flags TypeFlags - -data TypeFlags = - TypeFlagsAbstract - | TypeFlagsValueAbstract - | AnotherTypeFlags Int - deriving (Show, Eq) - -instance Enum TypeFlags where - fromEnum TypeFlagsAbstract = 16 - fromEnum TypeFlagsValueAbstract = 32 - fromEnum (AnotherTypeFlags k) = k - - toEnum 16 = TypeFlagsAbstract - toEnum 32 = TypeFlagsValueAbstract - toEnum k = AnotherTypeFlags k - -instance IsGFlag TypeFlags - --- Flags TypeFundamentalFlags - -data TypeFundamentalFlags = - TypeFundamentalFlagsClassed - | TypeFundamentalFlagsInstantiatable - | TypeFundamentalFlagsDerivable - | TypeFundamentalFlagsDeepDerivable - | AnotherTypeFundamentalFlags Int - deriving (Show, Eq) - -instance Enum TypeFundamentalFlags where - fromEnum TypeFundamentalFlagsClassed = 1 - fromEnum TypeFundamentalFlagsInstantiatable = 2 - fromEnum TypeFundamentalFlagsDerivable = 4 - fromEnum TypeFundamentalFlagsDeepDerivable = 8 - fromEnum (AnotherTypeFundamentalFlags k) = k - - toEnum 1 = TypeFundamentalFlagsClassed - toEnum 2 = TypeFundamentalFlagsInstantiatable - toEnum 4 = TypeFundamentalFlagsDerivable - toEnum 8 = TypeFundamentalFlagsDeepDerivable - toEnum k = AnotherTypeFundamentalFlags k - -instance IsGFlag TypeFundamentalFlags - --- struct TypeFundamentalInfo -newtype TypeFundamentalInfo = TypeFundamentalInfo (ForeignPtr TypeFundamentalInfo) -noTypeFundamentalInfo :: Maybe TypeFundamentalInfo -noTypeFundamentalInfo = Nothing - -typeFundamentalInfoReadTypeFlags :: TypeFundamentalInfo -> IO [TypeFundamentalFlags] -typeFundamentalInfoReadTypeFlags s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = wordToGFlags val - return val' - --- struct TypeInfo -newtype TypeInfo = TypeInfo (ForeignPtr TypeInfo) -noTypeInfo :: Maybe TypeInfo -noTypeInfo = Nothing - -typeInfoReadClassSize :: TypeInfo -> IO Word16 -typeInfoReadClassSize s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word16 - return val - --- XXX Skipped getter for "TypeInfo:base_init" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "TypeInfo:base_finalize" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "TypeInfo:class_init" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "TypeInfo:class_finalize" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -typeInfoReadClassData :: TypeInfo -> IO (Ptr ()) -typeInfoReadClassData s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO (Ptr ()) - return val - -typeInfoReadInstanceSize :: TypeInfo -> IO Word16 -typeInfoReadInstanceSize s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO Word16 - return val - -typeInfoReadNPreallocs :: TypeInfo -> IO Word16 -typeInfoReadNPreallocs s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 50) :: IO Word16 - return val - --- XXX Skipped getter for "TypeInfo:instance_init" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -typeInfoReadValueTable :: TypeInfo -> IO TypeValueTable -typeInfoReadValueTable s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO (Ptr TypeValueTable) - val' <- (newPtr 64 TypeValueTable) val - return val' - --- struct TypeInstance -newtype TypeInstance = TypeInstance (ForeignPtr TypeInstance) -noTypeInstance :: Maybe TypeInstance -noTypeInstance = Nothing - --- struct TypeInterface -newtype TypeInterface = TypeInterface (ForeignPtr TypeInterface) -noTypeInterface :: Maybe TypeInterface -noTypeInterface = Nothing - --- method TypeInterface::peek_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeInterface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeInterface", 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_parent" g_type_interface_peek_parent :: - Ptr TypeInterface -> -- _obj : TInterface "GObject" "TypeInterface" - IO (Ptr TypeInterface) - - -typeInterfacePeekParent :: - (MonadIO m) => - TypeInterface -> -- _obj - m TypeInterface -typeInterfacePeekParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_type_interface_peek_parent _obj' - checkUnexpectedReturnNULL "g_type_interface_peek_parent" result - result' <- (newPtr 16 TypeInterface) result - touchManagedPtr _obj - return result' - --- callback TypeInterfaceCheckFunc -typeInterfaceCheckFuncClosure :: TypeInterfaceCheckFunc -> IO Closure -typeInterfaceCheckFuncClosure cb = newCClosure =<< mkTypeInterfaceCheckFunc wrapped - where wrapped = typeInterfaceCheckFuncWrapper Nothing cb - -type TypeInterfaceCheckFuncC = - Ptr () -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkTypeInterfaceCheckFunc :: TypeInterfaceCheckFuncC -> IO (FunPtr TypeInterfaceCheckFuncC) - -type TypeInterfaceCheckFunc = - Ptr () -> - Ptr () -> - IO () - -noTypeInterfaceCheckFunc :: Maybe TypeInterfaceCheckFunc -noTypeInterfaceCheckFunc = Nothing - -typeInterfaceCheckFuncWrapper :: - Maybe (Ptr (FunPtr (TypeInterfaceCheckFuncC))) -> - TypeInterfaceCheckFunc -> - Ptr () -> - Ptr () -> - IO () -typeInterfaceCheckFuncWrapper funptrptr _cb check_data g_iface = do - _cb check_data g_iface - maybeReleaseFunPtr funptrptr - --- object TypeModule -newtype TypeModule = TypeModule (ForeignPtr TypeModule) -noTypeModule :: Maybe TypeModule -noTypeModule = Nothing - -foreign import ccall "g_type_module_get_type" - c_g_type_module_get_type :: IO GType - -type instance ParentTypes TypeModule = '[Object, TypePlugin] - -instance GObject TypeModule where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_type_module_get_type - - -class GObject o => TypeModuleK o -instance (GObject o, IsDescendantOf TypeModule o) => TypeModuleK o - -toTypeModule :: TypeModuleK o => o -> IO TypeModule -toTypeModule = unsafeCastTo TypeModule - --- method TypeModule::add_interface --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", 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 = "interface_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_info", argType = TInterface "GObject" "InterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", 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 = "interface_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_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_module_add_interface" g_type_module_add_interface :: - Ptr TypeModule -> -- _obj : TInterface "GObject" "TypeModule" - CGType -> -- instance_type : TBasicType TGType - CGType -> -- interface_type : TBasicType TGType - Ptr InterfaceInfo -> -- interface_info : TInterface "GObject" "InterfaceInfo" - IO () - - -typeModuleAddInterface :: - (MonadIO m, TypeModuleK a) => - a -> -- _obj - GType -> -- instance_type - GType -> -- interface_type - InterfaceInfo -> -- interface_info - m () -typeModuleAddInterface _obj instance_type interface_type interface_info = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let instance_type' = gtypeToCGType instance_type - let interface_type' = gtypeToCGType interface_type - let interface_info' = unsafeManagedPtrGetPtr interface_info - g_type_module_add_interface _obj' instance_type' interface_type' interface_info' - touchManagedPtr _obj - touchManagedPtr interface_info - return () - --- method TypeModule::register_enum --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", 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},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 = "_obj", argType = TInterface "GObject" "TypeModule", 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},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_type_module_register_enum" g_type_module_register_enum :: - Ptr TypeModule -> -- _obj : TInterface "GObject" "TypeModule" - CString -> -- name : TBasicType TUTF8 - Ptr EnumValue -> -- const_static_values : TInterface "GObject" "EnumValue" - IO CGType - - -typeModuleRegisterEnum :: - (MonadIO m, TypeModuleK a) => - a -> -- _obj - T.Text -> -- name - EnumValue -> -- const_static_values - m GType -typeModuleRegisterEnum _obj name const_static_values = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - let const_static_values' = unsafeManagedPtrGetPtr const_static_values - result <- g_type_module_register_enum _obj' name' const_static_values' - let result' = GType result - touchManagedPtr _obj - touchManagedPtr const_static_values - freeMem name' - return result' - --- method TypeModule::register_flags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", 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},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 = "_obj", argType = TInterface "GObject" "TypeModule", 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},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_type_module_register_flags" g_type_module_register_flags :: - Ptr TypeModule -> -- _obj : TInterface "GObject" "TypeModule" - CString -> -- name : TBasicType TUTF8 - Ptr FlagsValue -> -- const_static_values : TInterface "GObject" "FlagsValue" - IO CGType - - -typeModuleRegisterFlags :: - (MonadIO m, TypeModuleK a) => - a -> -- _obj - T.Text -> -- name - FlagsValue -> -- const_static_values - m GType -typeModuleRegisterFlags _obj name const_static_values = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - let const_static_values' = unsafeManagedPtrGetPtr const_static_values - result <- g_type_module_register_flags _obj' name' const_static_values' - let result' = GType result - touchManagedPtr _obj - touchManagedPtr const_static_values - freeMem name' - return result' - --- method TypeModule::register_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},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 = "type_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 = "_obj", argType = TInterface "GObject" "TypeModule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},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 = "type_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_module_register_type" g_type_module_register_type :: - Ptr TypeModule -> -- _obj : TInterface "GObject" "TypeModule" - CGType -> -- parent_type : TBasicType TGType - CString -> -- type_name : TBasicType TUTF8 - Ptr TypeInfo -> -- type_info : TInterface "GObject" "TypeInfo" - CUInt -> -- flags : TInterface "GObject" "TypeFlags" - IO CGType - - -typeModuleRegisterType :: - (MonadIO m, TypeModuleK a) => - a -> -- _obj - GType -> -- parent_type - T.Text -> -- type_name - TypeInfo -> -- type_info - [TypeFlags] -> -- flags - m GType -typeModuleRegisterType _obj parent_type type_name type_info flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let parent_type' = gtypeToCGType parent_type - type_name' <- textToCString type_name - let type_info' = unsafeManagedPtrGetPtr type_info - let flags' = gflagsToWord flags - result <- g_type_module_register_type _obj' parent_type' type_name' type_info' flags' - let result' = GType result - touchManagedPtr _obj - touchManagedPtr type_info - freeMem type_name' - return result' - --- method TypeModule::set_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", 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 = "_obj", argType = TInterface "GObject" "TypeModule", 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 : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_type_module_set_name" g_type_module_set_name :: - Ptr TypeModule -> -- _obj : TInterface "GObject" "TypeModule" - CString -> -- name : TBasicType TUTF8 - IO () - - -typeModuleSetName :: - (MonadIO m, TypeModuleK a) => - a -> -- _obj - T.Text -> -- name - m () -typeModuleSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - g_type_module_set_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - --- method TypeModule::unuse --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", 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_module_unuse" g_type_module_unuse :: - Ptr TypeModule -> -- _obj : TInterface "GObject" "TypeModule" - IO () - - -typeModuleUnuse :: - (MonadIO m, TypeModuleK a) => - a -> -- _obj - m () -typeModuleUnuse _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_type_module_unuse _obj' - touchManagedPtr _obj - return () - --- method TypeModule::use --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", 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_module_use" g_type_module_use :: - Ptr TypeModule -> -- _obj : TInterface "GObject" "TypeModule" - IO CInt - - -typeModuleUse :: - (MonadIO m, TypeModuleK a) => - a -> -- _obj - m Bool -typeModuleUse _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_type_module_use _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- interface TypePlugin - -newtype TypePlugin = TypePlugin (ForeignPtr TypePlugin) -noTypePlugin :: Maybe TypePlugin -noTypePlugin = Nothing - -class ForeignPtrNewtype a => TypePluginK a -instance (ForeignPtrNewtype o, IsDescendantOf TypePlugin o) => TypePluginK o -type instance ParentTypes TypePlugin = '[] - --- method TypePlugin::complete_interface_info --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypePlugin", 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 = "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 = "_obj", argType = TInterface "GObject" "TypePlugin", 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 = "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_plugin_complete_interface_info" g_type_plugin_complete_interface_info :: - Ptr TypePlugin -> -- _obj : TInterface "GObject" "TypePlugin" - CGType -> -- instance_type : TBasicType TGType - CGType -> -- interface_type : TBasicType TGType - Ptr InterfaceInfo -> -- info : TInterface "GObject" "InterfaceInfo" - IO () - - -typePluginCompleteInterfaceInfo :: - (MonadIO m, TypePluginK a) => - a -> -- _obj - GType -> -- instance_type - GType -> -- interface_type - InterfaceInfo -> -- info - m () -typePluginCompleteInterfaceInfo _obj instance_type interface_type info = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let instance_type' = gtypeToCGType instance_type - let interface_type' = gtypeToCGType interface_type - let info' = unsafeManagedPtrGetPtr info - g_type_plugin_complete_interface_info _obj' instance_type' interface_type' info' - touchManagedPtr _obj - touchManagedPtr info - return () - --- method TypePlugin::complete_type_info --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypePlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "g_type", argType = TBasicType TGType, 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 = "value_table", argType = TInterface "GObject" "TypeValueTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "TypePlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "g_type", argType = TBasicType TGType, 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 = "value_table", argType = TInterface "GObject" "TypeValueTable", 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_plugin_complete_type_info" g_type_plugin_complete_type_info :: - Ptr TypePlugin -> -- _obj : TInterface "GObject" "TypePlugin" - CGType -> -- g_type : TBasicType TGType - Ptr TypeInfo -> -- info : TInterface "GObject" "TypeInfo" - Ptr TypeValueTable -> -- value_table : TInterface "GObject" "TypeValueTable" - IO () - - -typePluginCompleteTypeInfo :: - (MonadIO m, TypePluginK a) => - a -> -- _obj - GType -> -- g_type - TypeInfo -> -- info - TypeValueTable -> -- value_table - m () -typePluginCompleteTypeInfo _obj g_type info value_table = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let g_type' = gtypeToCGType g_type - let info' = unsafeManagedPtrGetPtr info - let value_table' = unsafeManagedPtrGetPtr value_table - g_type_plugin_complete_type_info _obj' g_type' info' value_table' - touchManagedPtr _obj - touchManagedPtr info - touchManagedPtr value_table - return () - --- method TypePlugin::unuse --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypePlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", 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_plugin_unuse" g_type_plugin_unuse :: - Ptr TypePlugin -> -- _obj : TInterface "GObject" "TypePlugin" - IO () - - -typePluginUnuse :: - (MonadIO m, TypePluginK a) => - a -> -- _obj - m () -typePluginUnuse _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_type_plugin_unuse _obj' - touchManagedPtr _obj - return () - --- method TypePlugin::use --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypePlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", 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_plugin_use" g_type_plugin_use :: - Ptr TypePlugin -> -- _obj : TInterface "GObject" "TypePlugin" - IO () - - -typePluginUse :: - (MonadIO m, TypePluginK a) => - a -> -- _obj - m () -typePluginUse _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_type_plugin_use _obj' - touchManagedPtr _obj - return () - --- struct TypePluginClass -newtype TypePluginClass = TypePluginClass (ForeignPtr TypePluginClass) -noTypePluginClass :: Maybe TypePluginClass -noTypePluginClass = Nothing - --- XXX Skipped getter for "TypePluginClass:use_plugin" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "TypePluginClass:unuse_plugin" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "TypePluginClass:complete_type_info" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "TypePluginClass:complete_interface_info" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- callback TypePluginCompleteInterfaceInfo --- XXX Could not generate callback wrapper for TypePluginCompleteInterfaceInfo --- Error was : Bad introspection data: "Wrapping not a GObject with no copy..." --- callback TypePluginCompleteTypeInfo --- XXX Could not generate callback wrapper for TypePluginCompleteTypeInfo --- Error was : Bad introspection data: "Wrapping not a GObject with no copy..." --- callback TypePluginUnuse --- XXX Could not generate callback wrapper for TypePluginUnuse --- Error was : Bad introspection data: "Wrapping not a GObject with no copy..." --- callback TypePluginUse --- XXX Could not generate callback wrapper for TypePluginUse --- Error was : Bad introspection data: "Wrapping not a GObject with no copy..." --- struct TypeQuery -newtype TypeQuery = TypeQuery (ForeignPtr TypeQuery) -noTypeQuery :: Maybe TypeQuery -noTypeQuery = Nothing - -typeQueryReadType :: TypeQuery -> IO GType -typeQueryReadType s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CGType - let val' = GType val - return val' - -typeQueryReadTypeName :: TypeQuery -> IO T.Text -typeQueryReadTypeName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - -typeQueryReadClassSize :: TypeQuery -> IO Word32 -typeQueryReadClassSize s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word32 - return val - -typeQueryReadInstanceSize :: TypeQuery -> IO Word32 -typeQueryReadInstanceSize s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - --- struct TypeValueTable -newtype TypeValueTable = TypeValueTable (ForeignPtr TypeValueTable) -noTypeValueTable :: Maybe TypeValueTable -noTypeValueTable = Nothing - --- XXX Skipped getter for "TypeValueTable:value_init" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "TypeValueTable:value_free" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "TypeValueTable:value_copy" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -typeValueTableReadCollectFormat :: TypeValueTable -> IO T.Text -typeValueTableReadCollectFormat s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CString - val' <- cstringToText val - return val' - --- XXX Skipped getter for "TypeValueTable:collect_value" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -typeValueTableReadLcopyFormat :: TypeValueTable -> IO T.Text -typeValueTableReadLcopyFormat s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO CString - val' <- cstringToText val - return val' - --- XXX Skipped getter for "TypeValueTable:lcopy_value" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- struct ValueArray -newtype ValueArray = ValueArray (ForeignPtr ValueArray) -noValueArray :: Maybe ValueArray -noValueArray = Nothing - -foreign import ccall "g_value_array_get_type" c_g_value_array_get_type :: - IO GType - -instance BoxedObject ValueArray where - boxedType _ = c_g_value_array_get_type - -valueArrayReadNValues :: ValueArray -> IO Word32 -valueArrayReadNValues s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - -valueArrayReadValues :: ValueArray -> IO GValue -valueArrayReadValues s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr GValue) - val' <- (newBoxed GValue) val - return val' - --- method ValueArray::new --- method type : Constructor --- Args : [Arg {argName = "n_prealloced", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "n_prealloced", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GObject" "ValueArray" --- throws : False --- Skip return : False - -foreign import ccall "g_value_array_new" g_value_array_new :: - Word32 -> -- n_prealloced : TBasicType TUInt32 - IO (Ptr ValueArray) - -{-# DEPRECATED valueArrayNew ["(Since version 2.32)","Use #GArray and g_array_sized_new() instead."]#-} -valueArrayNew :: - (MonadIO m) => - Word32 -> -- n_prealloced - m ValueArray -valueArrayNew n_prealloced = liftIO $ do - result <- g_value_array_new n_prealloced - checkUnexpectedReturnNULL "g_value_array_new" result - result' <- (wrapBoxed ValueArray) result - return result' - --- method ValueArray::append --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GObject" "ValueArray" --- throws : False --- Skip return : False - -foreign import ccall "g_value_array_append" g_value_array_append :: - Ptr ValueArray -> -- _obj : TInterface "GObject" "ValueArray" - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO (Ptr ValueArray) - -{-# DEPRECATED valueArrayAppend ["(Since version 2.32)","Use #GArray and g_array_append_val() instead."]#-} -valueArrayAppend :: - (MonadIO m) => - ValueArray -> -- _obj - Maybe (GValue) -> -- value - m ValueArray -valueArrayAppend _obj value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeValue <- case value of - Nothing -> return nullPtr - Just jValue -> do - let jValue' = unsafeManagedPtrGetPtr jValue - return jValue' - result <- g_value_array_append _obj' maybeValue - checkUnexpectedReturnNULL "g_value_array_append" result - result' <- (newBoxed ValueArray) result - touchManagedPtr _obj - whenJust value touchManagedPtr - return result' - --- method ValueArray::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GObject" "ValueArray" --- throws : False --- Skip return : False - -foreign import ccall "g_value_array_copy" g_value_array_copy :: - Ptr ValueArray -> -- _obj : TInterface "GObject" "ValueArray" - IO (Ptr ValueArray) - -{-# DEPRECATED valueArrayCopy ["(Since version 2.32)","Use #GArray and g_array_ref() instead."]#-} -valueArrayCopy :: - (MonadIO m) => - ValueArray -> -- _obj - m ValueArray -valueArrayCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_value_array_copy _obj' - checkUnexpectedReturnNULL "g_value_array_copy" result - result' <- (wrapBoxed ValueArray) result - touchManagedPtr _obj - return result' - --- method ValueArray::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_value_array_free" g_value_array_free :: - Ptr ValueArray -> -- _obj : TInterface "GObject" "ValueArray" - IO () - -{-# DEPRECATED valueArrayFree ["(Since version 2.32)","Use #GArray and g_array_unref() instead."]#-} -valueArrayFree :: - (MonadIO m) => - ValueArray -> -- _obj - m () -valueArrayFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_value_array_free _obj' - touchManagedPtr _obj - return () - --- method ValueArray::get_nth --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GObject" "Value" --- throws : False --- Skip return : False - -foreign import ccall "g_value_array_get_nth" g_value_array_get_nth :: - Ptr ValueArray -> -- _obj : TInterface "GObject" "ValueArray" - Word32 -> -- index_ : TBasicType TUInt32 - IO (Ptr GValue) - -{-# DEPRECATED valueArrayGetNth ["(Since version 2.32)","Use g_array_index() instead."]#-} -valueArrayGetNth :: - (MonadIO m) => - ValueArray -> -- _obj - Word32 -> -- index_ - m GValue -valueArrayGetNth _obj index_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_value_array_get_nth _obj' index_ - checkUnexpectedReturnNULL "g_value_array_get_nth" result - result' <- (newBoxed GValue) result - touchManagedPtr _obj - return result' - --- method ValueArray::insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GObject" "ValueArray" --- throws : False --- Skip return : False - -foreign import ccall "g_value_array_insert" g_value_array_insert :: - Ptr ValueArray -> -- _obj : TInterface "GObject" "ValueArray" - Word32 -> -- index_ : TBasicType TUInt32 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO (Ptr ValueArray) - -{-# DEPRECATED valueArrayInsert ["(Since version 2.32)","Use #GArray and g_array_insert_val() instead."]#-} -valueArrayInsert :: - (MonadIO m) => - ValueArray -> -- _obj - Word32 -> -- index_ - Maybe (GValue) -> -- value - m ValueArray -valueArrayInsert _obj index_ value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeValue <- case value of - Nothing -> return nullPtr - Just jValue -> do - let jValue' = unsafeManagedPtrGetPtr jValue - return jValue' - result <- g_value_array_insert _obj' index_ maybeValue - checkUnexpectedReturnNULL "g_value_array_insert" result - result' <- (newBoxed ValueArray) result - touchManagedPtr _obj - whenJust value touchManagedPtr - return result' - --- method ValueArray::prepend --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GObject" "ValueArray" --- throws : False --- Skip return : False - -foreign import ccall "g_value_array_prepend" g_value_array_prepend :: - Ptr ValueArray -> -- _obj : TInterface "GObject" "ValueArray" - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO (Ptr ValueArray) - -{-# DEPRECATED valueArrayPrepend ["(Since version 2.32)","Use #GArray and g_array_prepend_val() instead."]#-} -valueArrayPrepend :: - (MonadIO m) => - ValueArray -> -- _obj - Maybe (GValue) -> -- value - m ValueArray -valueArrayPrepend _obj value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeValue <- case value of - Nothing -> return nullPtr - Just jValue -> do - let jValue' = unsafeManagedPtrGetPtr jValue - return jValue' - result <- g_value_array_prepend _obj' maybeValue - checkUnexpectedReturnNULL "g_value_array_prepend" result - result' <- (newBoxed ValueArray) result - touchManagedPtr _obj - whenJust value touchManagedPtr - return result' - --- method ValueArray::remove --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GObject" "ValueArray" --- throws : False --- Skip return : False - -foreign import ccall "g_value_array_remove" g_value_array_remove :: - Ptr ValueArray -> -- _obj : TInterface "GObject" "ValueArray" - Word32 -> -- index_ : TBasicType TUInt32 - IO (Ptr ValueArray) - -{-# DEPRECATED valueArrayRemove ["(Since version 2.32)","Use #GArray and g_array_remove_index() instead."]#-} -valueArrayRemove :: - (MonadIO m) => - ValueArray -> -- _obj - Word32 -> -- index_ - m ValueArray -valueArrayRemove _obj index_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_value_array_remove _obj' index_ - checkUnexpectedReturnNULL "g_value_array_remove" result - result' <- (newBoxed ValueArray) result - touchManagedPtr _obj - return result' - --- method ValueArray::sort --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_func", argType = TInterface "GLib" "CompareDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_func", argType = TInterface "GLib" "CompareDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GObject" "ValueArray" --- throws : False --- Skip return : False - -foreign import ccall "g_value_array_sort_with_data" g_value_array_sort_with_data :: - Ptr ValueArray -> -- _obj : TInterface "GObject" "ValueArray" - FunPtr GLib.CompareDataFuncC -> -- compare_func : TInterface "GLib" "CompareDataFunc" - Ptr () -> -- user_data : TBasicType TVoid - IO (Ptr ValueArray) - -{-# DEPRECATED valueArraySort ["(Since version 2.32)","Use #GArray and g_array_sort_with_data()."]#-} -valueArraySort :: - (MonadIO m) => - ValueArray -> -- _obj - GLib.CompareDataFunc -> -- compare_func - m ValueArray -valueArraySort _obj compare_func = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - compare_func' <- GLib.mkCompareDataFunc (GLib.compareDataFuncWrapper Nothing compare_func) - let user_data = nullPtr - result <- g_value_array_sort_with_data _obj' compare_func' user_data - checkUnexpectedReturnNULL "g_value_array_sort_with_data" result - result' <- (newBoxed ValueArray) result - safeFreeFunPtr $ castFunPtrToPtr compare_func' - touchManagedPtr _obj - return result' - --- callback ValueTransform -valueTransformClosure :: ValueTransform -> IO Closure -valueTransformClosure cb = newCClosure =<< mkValueTransform wrapped - where wrapped = valueTransformWrapper Nothing cb - -type ValueTransformC = - Ptr GValue -> - Ptr GValue -> - IO () - -foreign import ccall "wrapper" - mkValueTransform :: ValueTransformC -> IO (FunPtr ValueTransformC) - -type ValueTransform = - GValue -> - GValue -> - IO () - -noValueTransform :: Maybe ValueTransform -noValueTransform = Nothing - -valueTransformWrapper :: - Maybe (Ptr (FunPtr (ValueTransformC))) -> - ValueTransform -> - Ptr GValue -> - Ptr GValue -> - IO () -valueTransformWrapper funptrptr _cb src_value dest_value = do - src_value' <- (newBoxed GValue) src_value - dest_value' <- (newBoxed GValue) dest_value - _cb src_value' dest_value' - maybeReleaseFunPtr funptrptr - --- callback WeakNotify -weakNotifyClosure :: WeakNotify -> IO Closure -weakNotifyClosure cb = newCClosure =<< mkWeakNotify wrapped - where wrapped = weakNotifyWrapper Nothing cb - -type WeakNotifyC = - Ptr () -> - Ptr Object -> - IO () - -foreign import ccall "wrapper" - mkWeakNotify :: WeakNotifyC -> IO (FunPtr WeakNotifyC) - -type WeakNotify = - Ptr () -> - Object -> - IO () - -noWeakNotify :: Maybe WeakNotify -noWeakNotify = Nothing - -weakNotifyWrapper :: - Maybe (Ptr (FunPtr (WeakNotifyC))) -> - WeakNotify -> - Ptr () -> - Ptr Object -> - IO () -weakNotifyWrapper funptrptr _cb data_ where_the_object_was = do - where_the_object_was' <- (newObject Object) where_the_object_was - _cb data_ where_the_object_was' - maybeReleaseFunPtr funptrptr - --- struct WeakRef -newtype WeakRef = WeakRef (ForeignPtr WeakRef) -noWeakRef :: Maybe WeakRef -noWeakRef = Nothing - --- constant _PARAM_MASK - -_PARAM_MASK :: Int32 -_PARAM_MASK = 255 --- constant _PARAM_STATIC_STRINGS - -_PARAM_STATIC_STRINGS :: Int32 -_PARAM_STATIC_STRINGS = 0 --- constant _PARAM_USER_SHIFT - -_PARAM_USER_SHIFT :: Int32 -_PARAM_USER_SHIFT = 8 --- constant _SIGNAL_FLAGS_MASK - -_SIGNAL_FLAGS_MASK :: Int32 -_SIGNAL_FLAGS_MASK = 511 --- constant _SIGNAL_MATCH_MASK - -_SIGNAL_MATCH_MASK :: Int32 -_SIGNAL_MATCH_MASK = 63 --- constant _TYPE_FLAG_RESERVED_ID_BIT - -_TYPE_FLAG_RESERVED_ID_BIT :: Word64 -_TYPE_FLAG_RESERVED_ID_BIT = 1 --- constant _TYPE_FUNDAMENTAL_MAX - -_TYPE_FUNDAMENTAL_MAX :: Int32 -_TYPE_FUNDAMENTAL_MAX = 255 --- constant _TYPE_FUNDAMENTAL_SHIFT - -_TYPE_FUNDAMENTAL_SHIFT :: Int32 -_TYPE_FUNDAMENTAL_SHIFT = 2 --- constant _TYPE_RESERVED_BSE_FIRST - -_TYPE_RESERVED_BSE_FIRST :: Int32 -_TYPE_RESERVED_BSE_FIRST = 32 --- constant _TYPE_RESERVED_BSE_LAST - -_TYPE_RESERVED_BSE_LAST :: Int32 -_TYPE_RESERVED_BSE_LAST = 48 --- constant _TYPE_RESERVED_GLIB_FIRST - -_TYPE_RESERVED_GLIB_FIRST :: Int32 -_TYPE_RESERVED_GLIB_FIRST = 22 --- constant _TYPE_RESERVED_GLIB_LAST - -_TYPE_RESERVED_GLIB_LAST :: Int32 -_TYPE_RESERVED_GLIB_LAST = 31 --- constant _TYPE_RESERVED_USER_FIRST - -_TYPE_RESERVED_USER_FIRST :: Int32 -_TYPE_RESERVED_USER_FIRST = 49 --- constant _VALUE_COLLECT_FORMAT_MAX_LENGTH - -_VALUE_COLLECT_FORMAT_MAX_LENGTH :: Int32 -_VALUE_COLLECT_FORMAT_MAX_LENGTH = 8 --- constant _VALUE_NOCOPY_CONTENTS - -_VALUE_NOCOPY_CONTENTS :: Int32 -_VALUE_NOCOPY_CONTENTS = 134217728 --- union Value_Data_Union_ -newtype Value_Data_Union_ = Value_Data_Union_ (ForeignPtr Value_Data_Union_) -noValue_Data_Union_ :: Maybe Value_Data_Union_ -noValue_Data_Union_ = Nothing - -value_Data_Union_ReadVInt :: Value_Data_Union_ -> IO Int32 -value_Data_Union_ReadVInt s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -value_Data_Union_ReadVUint :: Value_Data_Union_ -> IO Word32 -value_Data_Union_ReadVUint s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - -value_Data_Union_ReadVLong :: Value_Data_Union_ -> IO Int64 -value_Data_Union_ReadVLong s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int64 - return val - -value_Data_Union_ReadVUlong :: Value_Data_Union_ -> IO Word64 -value_Data_Union_ReadVUlong s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word64 - return val - -value_Data_Union_ReadVInt64 :: Value_Data_Union_ -> IO Int64 -value_Data_Union_ReadVInt64 s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int64 - return val - -value_Data_Union_ReadVUint64 :: Value_Data_Union_ -> IO Word64 -value_Data_Union_ReadVUint64 s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word64 - return val - -value_Data_Union_ReadVFloat :: Value_Data_Union_ -> IO Float -value_Data_Union_ReadVFloat s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CFloat - let val' = realToFrac val - return val' - -value_Data_Union_ReadVDouble :: Value_Data_Union_ -> IO Double -value_Data_Union_ReadVDouble s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CDouble - let val' = realToFrac val - return val' - -value_Data_Union_ReadVPointer :: Value_Data_Union_ -> IO (Ptr ()) -value_Data_Union_ReadVPointer s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - --- 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 () - --- 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_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_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_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_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_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__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__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__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__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__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__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__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__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__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__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__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__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__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__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__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__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__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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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' - --- callback ClosureMarshalFieldCallback -closureMarshalFieldCallbackClosure :: ClosureMarshalFieldCallback -> IO Closure -closureMarshalFieldCallbackClosure cb = newCClosure =<< mkClosureMarshalFieldCallback wrapped - where wrapped = closureMarshalFieldCallbackWrapper Nothing cb - -type ClosureMarshalFieldCallbackC = - Ptr Closure -> - Ptr GValue -> - Word32 -> - Ptr GValue -> - Ptr () -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkClosureMarshalFieldCallback :: ClosureMarshalFieldCallbackC -> IO (FunPtr ClosureMarshalFieldCallbackC) - -type ClosureMarshalFieldCallback = - Closure -> - GValue -> - Word32 -> - GValue -> - Ptr () -> - Ptr () -> - IO () - -noClosureMarshalFieldCallback :: Maybe ClosureMarshalFieldCallback -noClosureMarshalFieldCallback = Nothing - -closureMarshalFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (ClosureMarshalFieldCallbackC))) -> - ClosureMarshalFieldCallback -> - Ptr Closure -> - Ptr GValue -> - Word32 -> - Ptr GValue -> - Ptr () -> - Ptr () -> - IO () -closureMarshalFieldCallbackWrapper funptrptr _cb closure return_value n_param_values param_values invocation_hint marshal_data = do - closure' <- (newBoxed Closure) closure - return_value' <- (newBoxed GValue) return_value - param_values' <- (newBoxed GValue) param_values - _cb closure' return_value' n_param_values param_values' invocation_hint marshal_data - maybeReleaseFunPtr funptrptr - --- callback ParamSpecTypeInfoInstanceInitFieldCallback -paramSpecTypeInfoInstanceInitFieldCallbackClosure :: ParamSpecTypeInfoInstanceInitFieldCallback -> IO Closure -paramSpecTypeInfoInstanceInitFieldCallbackClosure cb = newCClosure =<< mkParamSpecTypeInfoInstanceInitFieldCallback wrapped - where wrapped = paramSpecTypeInfoInstanceInitFieldCallbackWrapper Nothing cb - -type ParamSpecTypeInfoInstanceInitFieldCallbackC = - Ptr GParamSpec -> - IO () - -foreign import ccall "wrapper" - mkParamSpecTypeInfoInstanceInitFieldCallback :: ParamSpecTypeInfoInstanceInitFieldCallbackC -> IO (FunPtr ParamSpecTypeInfoInstanceInitFieldCallbackC) - -type ParamSpecTypeInfoInstanceInitFieldCallback = - GParamSpec -> - IO () - -noParamSpecTypeInfoInstanceInitFieldCallback :: Maybe ParamSpecTypeInfoInstanceInitFieldCallback -noParamSpecTypeInfoInstanceInitFieldCallback = Nothing - -paramSpecTypeInfoInstanceInitFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (ParamSpecTypeInfoInstanceInitFieldCallbackC))) -> - ParamSpecTypeInfoInstanceInitFieldCallback -> - Ptr GParamSpec -> - IO () -paramSpecTypeInfoInstanceInitFieldCallbackWrapper funptrptr _cb pspec = do - pspec' <- newGParamSpecFromPtr pspec - _cb pspec' - maybeReleaseFunPtr funptrptr - --- callback ParamSpecTypeInfoFinalizeFieldCallback -paramSpecTypeInfoFinalizeFieldCallbackClosure :: ParamSpecTypeInfoFinalizeFieldCallback -> IO Closure -paramSpecTypeInfoFinalizeFieldCallbackClosure cb = newCClosure =<< mkParamSpecTypeInfoFinalizeFieldCallback wrapped - where wrapped = paramSpecTypeInfoFinalizeFieldCallbackWrapper Nothing cb - -type ParamSpecTypeInfoFinalizeFieldCallbackC = - Ptr GParamSpec -> - IO () - -foreign import ccall "wrapper" - mkParamSpecTypeInfoFinalizeFieldCallback :: ParamSpecTypeInfoFinalizeFieldCallbackC -> IO (FunPtr ParamSpecTypeInfoFinalizeFieldCallbackC) - -type ParamSpecTypeInfoFinalizeFieldCallback = - GParamSpec -> - IO () - -noParamSpecTypeInfoFinalizeFieldCallback :: Maybe ParamSpecTypeInfoFinalizeFieldCallback -noParamSpecTypeInfoFinalizeFieldCallback = Nothing - -paramSpecTypeInfoFinalizeFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (ParamSpecTypeInfoFinalizeFieldCallbackC))) -> - ParamSpecTypeInfoFinalizeFieldCallback -> - Ptr GParamSpec -> - IO () -paramSpecTypeInfoFinalizeFieldCallbackWrapper funptrptr _cb pspec = do - pspec' <- newGParamSpecFromPtr pspec - _cb pspec' - maybeReleaseFunPtr funptrptr - --- callback ParamSpecTypeInfoValueSetDefaultFieldCallback -paramSpecTypeInfoValueSetDefaultFieldCallbackClosure :: ParamSpecTypeInfoValueSetDefaultFieldCallback -> IO Closure -paramSpecTypeInfoValueSetDefaultFieldCallbackClosure cb = newCClosure =<< mkParamSpecTypeInfoValueSetDefaultFieldCallback wrapped - where wrapped = paramSpecTypeInfoValueSetDefaultFieldCallbackWrapper Nothing cb - -type ParamSpecTypeInfoValueSetDefaultFieldCallbackC = - Ptr GParamSpec -> - Ptr GValue -> - IO () - -foreign import ccall "wrapper" - mkParamSpecTypeInfoValueSetDefaultFieldCallback :: ParamSpecTypeInfoValueSetDefaultFieldCallbackC -> IO (FunPtr ParamSpecTypeInfoValueSetDefaultFieldCallbackC) - -type ParamSpecTypeInfoValueSetDefaultFieldCallback = - GParamSpec -> - GValue -> - IO () - -noParamSpecTypeInfoValueSetDefaultFieldCallback :: Maybe ParamSpecTypeInfoValueSetDefaultFieldCallback -noParamSpecTypeInfoValueSetDefaultFieldCallback = Nothing - -paramSpecTypeInfoValueSetDefaultFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (ParamSpecTypeInfoValueSetDefaultFieldCallbackC))) -> - ParamSpecTypeInfoValueSetDefaultFieldCallback -> - Ptr GParamSpec -> - Ptr GValue -> - IO () -paramSpecTypeInfoValueSetDefaultFieldCallbackWrapper funptrptr _cb pspec value = do - pspec' <- newGParamSpecFromPtr pspec - value' <- (newBoxed GValue) value - _cb pspec' value' - maybeReleaseFunPtr funptrptr - --- callback ParamSpecTypeInfoValueValidateFieldCallback -paramSpecTypeInfoValueValidateFieldCallbackClosure :: ParamSpecTypeInfoValueValidateFieldCallback -> IO Closure -paramSpecTypeInfoValueValidateFieldCallbackClosure cb = newCClosure =<< mkParamSpecTypeInfoValueValidateFieldCallback wrapped - where wrapped = paramSpecTypeInfoValueValidateFieldCallbackWrapper Nothing cb - -type ParamSpecTypeInfoValueValidateFieldCallbackC = - Ptr GParamSpec -> - Ptr GValue -> - IO CInt - -foreign import ccall "wrapper" - mkParamSpecTypeInfoValueValidateFieldCallback :: ParamSpecTypeInfoValueValidateFieldCallbackC -> IO (FunPtr ParamSpecTypeInfoValueValidateFieldCallbackC) - -type ParamSpecTypeInfoValueValidateFieldCallback = - GParamSpec -> - GValue -> - IO Bool - -noParamSpecTypeInfoValueValidateFieldCallback :: Maybe ParamSpecTypeInfoValueValidateFieldCallback -noParamSpecTypeInfoValueValidateFieldCallback = Nothing - -paramSpecTypeInfoValueValidateFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (ParamSpecTypeInfoValueValidateFieldCallbackC))) -> - ParamSpecTypeInfoValueValidateFieldCallback -> - Ptr GParamSpec -> - Ptr GValue -> - IO CInt -paramSpecTypeInfoValueValidateFieldCallbackWrapper funptrptr _cb pspec value = do - pspec' <- newGParamSpecFromPtr pspec - value' <- (newBoxed GValue) value - result <- _cb pspec' value' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback ParamSpecTypeInfoValuesCmpFieldCallback -paramSpecTypeInfoValuesCmpFieldCallbackClosure :: ParamSpecTypeInfoValuesCmpFieldCallback -> IO Closure -paramSpecTypeInfoValuesCmpFieldCallbackClosure cb = newCClosure =<< mkParamSpecTypeInfoValuesCmpFieldCallback wrapped - where wrapped = paramSpecTypeInfoValuesCmpFieldCallbackWrapper Nothing cb - -type ParamSpecTypeInfoValuesCmpFieldCallbackC = - Ptr GParamSpec -> - Ptr GValue -> - Ptr GValue -> - IO Int32 - -foreign import ccall "wrapper" - mkParamSpecTypeInfoValuesCmpFieldCallback :: ParamSpecTypeInfoValuesCmpFieldCallbackC -> IO (FunPtr ParamSpecTypeInfoValuesCmpFieldCallbackC) - -type ParamSpecTypeInfoValuesCmpFieldCallback = - GParamSpec -> - GValue -> - GValue -> - IO Int32 - -noParamSpecTypeInfoValuesCmpFieldCallback :: Maybe ParamSpecTypeInfoValuesCmpFieldCallback -noParamSpecTypeInfoValuesCmpFieldCallback = Nothing - -paramSpecTypeInfoValuesCmpFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (ParamSpecTypeInfoValuesCmpFieldCallbackC))) -> - ParamSpecTypeInfoValuesCmpFieldCallback -> - Ptr GParamSpec -> - Ptr GValue -> - Ptr GValue -> - IO Int32 -paramSpecTypeInfoValuesCmpFieldCallbackWrapper funptrptr _cb pspec value1 value2 = do - pspec' <- newGParamSpecFromPtr pspec - value1' <- (newBoxed GValue) value1 - value2' <- (newBoxed GValue) value2 - result <- _cb pspec' value1' value2' - maybeReleaseFunPtr funptrptr - return result - --- callback TypeValueTableValueInitFieldCallback -typeValueTableValueInitFieldCallbackClosure :: TypeValueTableValueInitFieldCallback -> IO Closure -typeValueTableValueInitFieldCallbackClosure cb = newCClosure =<< mkTypeValueTableValueInitFieldCallback wrapped - where wrapped = typeValueTableValueInitFieldCallbackWrapper Nothing cb - -type TypeValueTableValueInitFieldCallbackC = - Ptr GValue -> - IO () - -foreign import ccall "wrapper" - mkTypeValueTableValueInitFieldCallback :: TypeValueTableValueInitFieldCallbackC -> IO (FunPtr TypeValueTableValueInitFieldCallbackC) - -type TypeValueTableValueInitFieldCallback = - GValue -> - IO () - -noTypeValueTableValueInitFieldCallback :: Maybe TypeValueTableValueInitFieldCallback -noTypeValueTableValueInitFieldCallback = Nothing - -typeValueTableValueInitFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (TypeValueTableValueInitFieldCallbackC))) -> - TypeValueTableValueInitFieldCallback -> - Ptr GValue -> - IO () -typeValueTableValueInitFieldCallbackWrapper funptrptr _cb value = do - value' <- (newBoxed GValue) value - _cb value' - maybeReleaseFunPtr funptrptr - --- callback TypeValueTableValueFreeFieldCallback -typeValueTableValueFreeFieldCallbackClosure :: TypeValueTableValueFreeFieldCallback -> IO Closure -typeValueTableValueFreeFieldCallbackClosure cb = newCClosure =<< mkTypeValueTableValueFreeFieldCallback wrapped - where wrapped = typeValueTableValueFreeFieldCallbackWrapper Nothing cb - -type TypeValueTableValueFreeFieldCallbackC = - Ptr GValue -> - IO () - -foreign import ccall "wrapper" - mkTypeValueTableValueFreeFieldCallback :: TypeValueTableValueFreeFieldCallbackC -> IO (FunPtr TypeValueTableValueFreeFieldCallbackC) - -type TypeValueTableValueFreeFieldCallback = - GValue -> - IO () - -noTypeValueTableValueFreeFieldCallback :: Maybe TypeValueTableValueFreeFieldCallback -noTypeValueTableValueFreeFieldCallback = Nothing - -typeValueTableValueFreeFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (TypeValueTableValueFreeFieldCallbackC))) -> - TypeValueTableValueFreeFieldCallback -> - Ptr GValue -> - IO () -typeValueTableValueFreeFieldCallbackWrapper funptrptr _cb value = do - value' <- (newBoxed GValue) value - _cb value' - maybeReleaseFunPtr funptrptr - --- callback TypeValueTableValueCopyFieldCallback -typeValueTableValueCopyFieldCallbackClosure :: TypeValueTableValueCopyFieldCallback -> IO Closure -typeValueTableValueCopyFieldCallbackClosure cb = newCClosure =<< mkTypeValueTableValueCopyFieldCallback wrapped - where wrapped = typeValueTableValueCopyFieldCallbackWrapper Nothing cb - -type TypeValueTableValueCopyFieldCallbackC = - Ptr GValue -> - Ptr GValue -> - IO () - -foreign import ccall "wrapper" - mkTypeValueTableValueCopyFieldCallback :: TypeValueTableValueCopyFieldCallbackC -> IO (FunPtr TypeValueTableValueCopyFieldCallbackC) - -type TypeValueTableValueCopyFieldCallback = - GValue -> - GValue -> - IO () - -noTypeValueTableValueCopyFieldCallback :: Maybe TypeValueTableValueCopyFieldCallback -noTypeValueTableValueCopyFieldCallback = Nothing - -typeValueTableValueCopyFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (TypeValueTableValueCopyFieldCallbackC))) -> - TypeValueTableValueCopyFieldCallback -> - Ptr GValue -> - Ptr GValue -> - IO () -typeValueTableValueCopyFieldCallbackWrapper funptrptr _cb src_value dest_value = do - src_value' <- (newBoxed GValue) src_value - dest_value' <- (newBoxed GValue) dest_value - _cb src_value' dest_value' - maybeReleaseFunPtr funptrptr - --- callback TypeValueTableCollectValueFieldCallback -typeValueTableCollectValueFieldCallbackClosure :: TypeValueTableCollectValueFieldCallback -> IO Closure -typeValueTableCollectValueFieldCallbackClosure cb = newCClosure =<< mkTypeValueTableCollectValueFieldCallback wrapped - where wrapped = typeValueTableCollectValueFieldCallbackWrapper Nothing cb - -type TypeValueTableCollectValueFieldCallbackC = - Ptr GValue -> - Word32 -> - Ptr TypeCValue -> - Word32 -> - IO CString - -foreign import ccall "wrapper" - mkTypeValueTableCollectValueFieldCallback :: TypeValueTableCollectValueFieldCallbackC -> IO (FunPtr TypeValueTableCollectValueFieldCallbackC) - -type TypeValueTableCollectValueFieldCallback = - GValue -> - Word32 -> - TypeCValue -> - Word32 -> - IO T.Text - -noTypeValueTableCollectValueFieldCallback :: Maybe TypeValueTableCollectValueFieldCallback -noTypeValueTableCollectValueFieldCallback = Nothing - -typeValueTableCollectValueFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (TypeValueTableCollectValueFieldCallbackC))) -> - TypeValueTableCollectValueFieldCallback -> - Ptr GValue -> - Word32 -> - Ptr TypeCValue -> - Word32 -> - IO CString -typeValueTableCollectValueFieldCallbackWrapper funptrptr _cb value n_collect_values collect_values collect_flags = do - value' <- (newBoxed GValue) value - collect_values' <- (newPtr 8 TypeCValue) collect_values - result <- _cb value' n_collect_values collect_values' collect_flags - maybeReleaseFunPtr funptrptr - result' <- textToCString result - return result' - --- callback TypeValueTableLcopyValueFieldCallback -typeValueTableLcopyValueFieldCallbackClosure :: TypeValueTableLcopyValueFieldCallback -> IO Closure -typeValueTableLcopyValueFieldCallbackClosure cb = newCClosure =<< mkTypeValueTableLcopyValueFieldCallback wrapped - where wrapped = typeValueTableLcopyValueFieldCallbackWrapper Nothing cb - -type TypeValueTableLcopyValueFieldCallbackC = - Ptr GValue -> - Word32 -> - Ptr TypeCValue -> - Word32 -> - IO CString - -foreign import ccall "wrapper" - mkTypeValueTableLcopyValueFieldCallback :: TypeValueTableLcopyValueFieldCallbackC -> IO (FunPtr TypeValueTableLcopyValueFieldCallbackC) - -type TypeValueTableLcopyValueFieldCallback = - GValue -> - Word32 -> - TypeCValue -> - Word32 -> - IO T.Text - -noTypeValueTableLcopyValueFieldCallback :: Maybe TypeValueTableLcopyValueFieldCallback -noTypeValueTableLcopyValueFieldCallback = Nothing - -typeValueTableLcopyValueFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (TypeValueTableLcopyValueFieldCallbackC))) -> - TypeValueTableLcopyValueFieldCallback -> - Ptr GValue -> - Word32 -> - Ptr TypeCValue -> - Word32 -> - IO CString -typeValueTableLcopyValueFieldCallbackWrapper funptrptr _cb value n_collect_values collect_values collect_flags = do - value' <- (newBoxed GValue) value - collect_values' <- (newPtr 8 TypeCValue) collect_values - result <- _cb value' n_collect_values collect_values' collect_flags - maybeReleaseFunPtr funptrptr - result' <- textToCString result - return result' + +{- | +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 + ( module GI.GObject.Callbacks , + module GI.GObject.Constants , + module GI.GObject.Flags , + module GI.GObject.Functions , + module GI.GObject.Interfaces , + module GI.GObject.Objects , + module GI.GObject.Structs , + module GI.GObject.Unions , + + + ) where + +import GI.GObject.Callbacks +import GI.GObject.Constants +import GI.GObject.Flags +import GI.GObject.Functions +import GI.GObject.Interfaces +import GI.GObject.Objects +import GI.GObject.Structs +import GI.GObject.Unions + +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 + +-- APIObject "ParamSpec" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecBoolean" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecBoxed" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecChar" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecDouble" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecEnum" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecFlags" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecFloat" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecGType" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecInt" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecInt64" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecLong" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecObject" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecOverride" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecParam" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecPointer" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecString" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecUChar" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecUInt" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecUInt64" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecULong" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecUnichar" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecValueArray" does not descend from GObject, it will be ignored. +-- APIObject "ParamSpecVariant" does not descend from GObject, it will be ignored. diff --git a/GI/GObject/Callbacks.hs b/GI/GObject/Callbacks.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Callbacks.hs @@ -0,0 +1,1405 @@ + +{- | +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.Callbacks + ( + + -- * Signals +-- ** BaseFinalizeFunc + BaseFinalizeFunc , + BaseFinalizeFuncC , + baseFinalizeFuncClosure , + baseFinalizeFuncWrapper , + mkBaseFinalizeFunc , + noBaseFinalizeFunc , + + +-- ** BaseInitFunc + BaseInitFunc , + BaseInitFuncC , + baseInitFuncClosure , + baseInitFuncWrapper , + mkBaseInitFunc , + noBaseInitFunc , + + +-- ** BindingTransformFunc + BindingTransformFunc , + BindingTransformFuncC , + bindingTransformFuncClosure , + bindingTransformFuncWrapper , + mkBindingTransformFunc , + noBindingTransformFunc , + + +-- ** BoxedFreeFunc + BoxedFreeFunc , + BoxedFreeFuncC , + boxedFreeFuncClosure , + boxedFreeFuncWrapper , + mkBoxedFreeFunc , + noBoxedFreeFunc , + + +-- ** Callback + Callback , + CallbackC , + callbackClosure , + callbackWrapper , + mkCallback , + noCallback , + + +-- ** ClassFinalizeFunc + ClassFinalizeFunc , + ClassFinalizeFuncC , + classFinalizeFuncClosure , + classFinalizeFuncWrapper , + mkClassFinalizeFunc , + noClassFinalizeFunc , + + +-- ** ClassInitFunc + ClassInitFunc , + ClassInitFuncC , + classInitFuncClosure , + classInitFuncWrapper , + mkClassInitFunc , + noClassInitFunc , + + +-- ** ClosureMarshalFieldCallback + ClosureMarshalFieldCallback , + ClosureMarshalFieldCallbackC , + closureMarshalFieldCallbackClosure , + closureMarshalFieldCallbackWrapper , + mkClosureMarshalFieldCallback , + noClosureMarshalFieldCallback , + + +-- ** ClosureNotify + ClosureNotify , + ClosureNotifyC , + closureNotifyClosure , + closureNotifyWrapper , + mkClosureNotify , + noClosureNotify , + + +-- ** InstanceInitFunc + InstanceInitFunc , + InstanceInitFuncC , + instanceInitFuncClosure , + instanceInitFuncWrapper , + mkInstanceInitFunc , + noInstanceInitFunc , + + +-- ** InterfaceFinalizeFunc + InterfaceFinalizeFunc , + InterfaceFinalizeFuncC , + interfaceFinalizeFuncClosure , + interfaceFinalizeFuncWrapper , + mkInterfaceFinalizeFunc , + noInterfaceFinalizeFunc , + + +-- ** InterfaceInitFunc + InterfaceInitFunc , + InterfaceInitFuncC , + interfaceInitFuncClosure , + interfaceInitFuncWrapper , + mkInterfaceInitFunc , + noInterfaceInitFunc , + + +-- ** ObjectFinalizeFunc + ObjectFinalizeFunc , + ObjectFinalizeFuncC , + mkObjectFinalizeFunc , + noObjectFinalizeFunc , + objectFinalizeFuncClosure , + objectFinalizeFuncWrapper , + + +-- ** ObjectGetPropertyFunc + ObjectGetPropertyFunc , + ObjectGetPropertyFuncC , + mkObjectGetPropertyFunc , + noObjectGetPropertyFunc , + objectGetPropertyFuncClosure , + objectGetPropertyFuncWrapper , + + +-- ** ObjectSetPropertyFunc + ObjectSetPropertyFunc , + ObjectSetPropertyFuncC , + mkObjectSetPropertyFunc , + noObjectSetPropertyFunc , + objectSetPropertyFuncClosure , + objectSetPropertyFuncWrapper , + + +-- ** ParamSpecTypeInfoFinalizeFieldCallback + ParamSpecTypeInfoFinalizeFieldCallback , + ParamSpecTypeInfoFinalizeFieldCallbackC , + mkParamSpecTypeInfoFinalizeFieldCallback, + noParamSpecTypeInfoFinalizeFieldCallback, + paramSpecTypeInfoFinalizeFieldCallbackClosure, + paramSpecTypeInfoFinalizeFieldCallbackWrapper, + + +-- ** ParamSpecTypeInfoInstanceInitFieldCallback + ParamSpecTypeInfoInstanceInitFieldCallback, + ParamSpecTypeInfoInstanceInitFieldCallbackC, + mkParamSpecTypeInfoInstanceInitFieldCallback, + noParamSpecTypeInfoInstanceInitFieldCallback, + paramSpecTypeInfoInstanceInitFieldCallbackClosure, + paramSpecTypeInfoInstanceInitFieldCallbackWrapper, + + +-- ** ParamSpecTypeInfoValueSetDefaultFieldCallback + ParamSpecTypeInfoValueSetDefaultFieldCallback, + ParamSpecTypeInfoValueSetDefaultFieldCallbackC, + mkParamSpecTypeInfoValueSetDefaultFieldCallback, + noParamSpecTypeInfoValueSetDefaultFieldCallback, + paramSpecTypeInfoValueSetDefaultFieldCallbackClosure, + paramSpecTypeInfoValueSetDefaultFieldCallbackWrapper, + + +-- ** ParamSpecTypeInfoValueValidateFieldCallback + ParamSpecTypeInfoValueValidateFieldCallback, + ParamSpecTypeInfoValueValidateFieldCallbackC, + mkParamSpecTypeInfoValueValidateFieldCallback, + noParamSpecTypeInfoValueValidateFieldCallback, + paramSpecTypeInfoValueValidateFieldCallbackClosure, + paramSpecTypeInfoValueValidateFieldCallbackWrapper, + + +-- ** ParamSpecTypeInfoValuesCmpFieldCallback + ParamSpecTypeInfoValuesCmpFieldCallback , + ParamSpecTypeInfoValuesCmpFieldCallbackC, + mkParamSpecTypeInfoValuesCmpFieldCallback, + noParamSpecTypeInfoValuesCmpFieldCallback, + paramSpecTypeInfoValuesCmpFieldCallbackClosure, + paramSpecTypeInfoValuesCmpFieldCallbackWrapper, + + +-- ** SignalAccumulator + SignalAccumulator , + SignalAccumulatorC , + mkSignalAccumulator , + noSignalAccumulator , + signalAccumulatorClosure , + signalAccumulatorWrapper , + + +-- ** SignalEmissionHook + SignalEmissionHook , + SignalEmissionHookC , + mkSignalEmissionHook , + noSignalEmissionHook , + signalEmissionHookClosure , + signalEmissionHookWrapper , + + +-- ** ToggleNotify + ToggleNotify , + ToggleNotifyC , + mkToggleNotify , + noToggleNotify , + toggleNotifyClosure , + toggleNotifyWrapper , + + +-- ** TypeClassCacheFunc + TypeClassCacheFunc , + TypeClassCacheFuncC , + mkTypeClassCacheFunc , + noTypeClassCacheFunc , + typeClassCacheFuncClosure , + typeClassCacheFuncWrapper , + + +-- ** TypeInterfaceCheckFunc + TypeInterfaceCheckFunc , + TypeInterfaceCheckFuncC , + mkTypeInterfaceCheckFunc , + noTypeInterfaceCheckFunc , + typeInterfaceCheckFuncClosure , + typeInterfaceCheckFuncWrapper , + + +-- ** TypeValueTableCollectValueFieldCallback + TypeValueTableCollectValueFieldCallback , + TypeValueTableCollectValueFieldCallbackC, + mkTypeValueTableCollectValueFieldCallback, + noTypeValueTableCollectValueFieldCallback, + typeValueTableCollectValueFieldCallbackClosure, + typeValueTableCollectValueFieldCallbackWrapper, + + +-- ** TypeValueTableLcopyValueFieldCallback + TypeValueTableLcopyValueFieldCallback , + TypeValueTableLcopyValueFieldCallbackC , + mkTypeValueTableLcopyValueFieldCallback , + noTypeValueTableLcopyValueFieldCallback , + typeValueTableLcopyValueFieldCallbackClosure, + typeValueTableLcopyValueFieldCallbackWrapper, + + +-- ** TypeValueTableValueCopyFieldCallback + TypeValueTableValueCopyFieldCallback , + TypeValueTableValueCopyFieldCallbackC , + mkTypeValueTableValueCopyFieldCallback , + noTypeValueTableValueCopyFieldCallback , + typeValueTableValueCopyFieldCallbackClosure, + typeValueTableValueCopyFieldCallbackWrapper, + + +-- ** TypeValueTableValueFreeFieldCallback + TypeValueTableValueFreeFieldCallback , + TypeValueTableValueFreeFieldCallbackC , + mkTypeValueTableValueFreeFieldCallback , + noTypeValueTableValueFreeFieldCallback , + typeValueTableValueFreeFieldCallbackClosure, + typeValueTableValueFreeFieldCallbackWrapper, + + +-- ** TypeValueTableValueInitFieldCallback + TypeValueTableValueInitFieldCallback , + TypeValueTableValueInitFieldCallbackC , + mkTypeValueTableValueInitFieldCallback , + noTypeValueTableValueInitFieldCallback , + typeValueTableValueInitFieldCallbackClosure, + typeValueTableValueInitFieldCallbackWrapper, + + +-- ** ValueTransform + ValueTransform , + ValueTransformC , + mkValueTransform , + noValueTransform , + valueTransformClosure , + valueTransformWrapper , + + +-- ** WeakNotify + WeakNotify , + WeakNotifyC , + mkWeakNotify , + noWeakNotify , + weakNotifyClosure , + weakNotifyWrapper , + + + + + ) 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 + + +-- callback WeakNotify +weakNotifyClosure :: WeakNotify -> IO Closure +weakNotifyClosure cb = newCClosure =<< mkWeakNotify wrapped + where wrapped = weakNotifyWrapper Nothing cb + +type WeakNotifyC = + Ptr () -> + Ptr Object -> + IO () + +foreign import ccall "wrapper" + mkWeakNotify :: WeakNotifyC -> IO (FunPtr WeakNotifyC) + +type WeakNotify = + Ptr () -> + Object -> + IO () + +noWeakNotify :: Maybe WeakNotify +noWeakNotify = Nothing + +weakNotifyWrapper :: + Maybe (Ptr (FunPtr (WeakNotifyC))) -> + WeakNotify -> + Ptr () -> + Ptr Object -> + IO () +weakNotifyWrapper funptrptr _cb data_ where_the_object_was = do + where_the_object_was' <- (newObject Object) where_the_object_was + _cb data_ where_the_object_was' + maybeReleaseFunPtr funptrptr + +-- callback ValueTransform +valueTransformClosure :: ValueTransform -> IO Closure +valueTransformClosure cb = newCClosure =<< mkValueTransform wrapped + where wrapped = valueTransformWrapper Nothing cb + +type ValueTransformC = + Ptr GValue -> + Ptr GValue -> + IO () + +foreign import ccall "wrapper" + mkValueTransform :: ValueTransformC -> IO (FunPtr ValueTransformC) + +type ValueTransform = + GValue -> + GValue -> + IO () + +noValueTransform :: Maybe ValueTransform +noValueTransform = Nothing + +valueTransformWrapper :: + Maybe (Ptr (FunPtr (ValueTransformC))) -> + ValueTransform -> + Ptr GValue -> + Ptr GValue -> + IO () +valueTransformWrapper funptrptr _cb src_value dest_value = do + src_value' <- (newBoxed GValue) src_value + dest_value' <- (newBoxed GValue) dest_value + _cb src_value' dest_value' + maybeReleaseFunPtr funptrptr + +-- callback TypeValueTableValueInitFieldCallback +typeValueTableValueInitFieldCallbackClosure :: TypeValueTableValueInitFieldCallback -> IO Closure +typeValueTableValueInitFieldCallbackClosure cb = newCClosure =<< mkTypeValueTableValueInitFieldCallback wrapped + where wrapped = typeValueTableValueInitFieldCallbackWrapper Nothing cb + +type TypeValueTableValueInitFieldCallbackC = + Ptr GValue -> + IO () + +foreign import ccall "wrapper" + mkTypeValueTableValueInitFieldCallback :: TypeValueTableValueInitFieldCallbackC -> IO (FunPtr TypeValueTableValueInitFieldCallbackC) + +type TypeValueTableValueInitFieldCallback = + GValue -> + IO () + +noTypeValueTableValueInitFieldCallback :: Maybe TypeValueTableValueInitFieldCallback +noTypeValueTableValueInitFieldCallback = Nothing + +typeValueTableValueInitFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (TypeValueTableValueInitFieldCallbackC))) -> + TypeValueTableValueInitFieldCallback -> + Ptr GValue -> + IO () +typeValueTableValueInitFieldCallbackWrapper funptrptr _cb value = do + value' <- (newBoxed GValue) value + _cb value' + maybeReleaseFunPtr funptrptr + +-- callback TypeValueTableValueFreeFieldCallback +typeValueTableValueFreeFieldCallbackClosure :: TypeValueTableValueFreeFieldCallback -> IO Closure +typeValueTableValueFreeFieldCallbackClosure cb = newCClosure =<< mkTypeValueTableValueFreeFieldCallback wrapped + where wrapped = typeValueTableValueFreeFieldCallbackWrapper Nothing cb + +type TypeValueTableValueFreeFieldCallbackC = + Ptr GValue -> + IO () + +foreign import ccall "wrapper" + mkTypeValueTableValueFreeFieldCallback :: TypeValueTableValueFreeFieldCallbackC -> IO (FunPtr TypeValueTableValueFreeFieldCallbackC) + +type TypeValueTableValueFreeFieldCallback = + GValue -> + IO () + +noTypeValueTableValueFreeFieldCallback :: Maybe TypeValueTableValueFreeFieldCallback +noTypeValueTableValueFreeFieldCallback = Nothing + +typeValueTableValueFreeFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (TypeValueTableValueFreeFieldCallbackC))) -> + TypeValueTableValueFreeFieldCallback -> + Ptr GValue -> + IO () +typeValueTableValueFreeFieldCallbackWrapper funptrptr _cb value = do + value' <- (newBoxed GValue) value + _cb value' + maybeReleaseFunPtr funptrptr + +-- callback TypeValueTableValueCopyFieldCallback +typeValueTableValueCopyFieldCallbackClosure :: TypeValueTableValueCopyFieldCallback -> IO Closure +typeValueTableValueCopyFieldCallbackClosure cb = newCClosure =<< mkTypeValueTableValueCopyFieldCallback wrapped + where wrapped = typeValueTableValueCopyFieldCallbackWrapper Nothing cb + +type TypeValueTableValueCopyFieldCallbackC = + Ptr GValue -> + Ptr GValue -> + IO () + +foreign import ccall "wrapper" + mkTypeValueTableValueCopyFieldCallback :: TypeValueTableValueCopyFieldCallbackC -> IO (FunPtr TypeValueTableValueCopyFieldCallbackC) + +type TypeValueTableValueCopyFieldCallback = + GValue -> + GValue -> + IO () + +noTypeValueTableValueCopyFieldCallback :: Maybe TypeValueTableValueCopyFieldCallback +noTypeValueTableValueCopyFieldCallback = Nothing + +typeValueTableValueCopyFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (TypeValueTableValueCopyFieldCallbackC))) -> + TypeValueTableValueCopyFieldCallback -> + Ptr GValue -> + Ptr GValue -> + IO () +typeValueTableValueCopyFieldCallbackWrapper funptrptr _cb src_value dest_value = do + src_value' <- (newBoxed GValue) src_value + dest_value' <- (newBoxed GValue) dest_value + _cb src_value' dest_value' + maybeReleaseFunPtr funptrptr + +-- callback TypeValueTableLcopyValueFieldCallback +typeValueTableLcopyValueFieldCallbackClosure :: TypeValueTableLcopyValueFieldCallback -> IO Closure +typeValueTableLcopyValueFieldCallbackClosure cb = newCClosure =<< mkTypeValueTableLcopyValueFieldCallback wrapped + where wrapped = typeValueTableLcopyValueFieldCallbackWrapper Nothing cb + +type TypeValueTableLcopyValueFieldCallbackC = + Ptr GValue -> + Word32 -> + Ptr TypeCValue -> + Word32 -> + IO CString + +foreign import ccall "wrapper" + mkTypeValueTableLcopyValueFieldCallback :: TypeValueTableLcopyValueFieldCallbackC -> IO (FunPtr TypeValueTableLcopyValueFieldCallbackC) + +type TypeValueTableLcopyValueFieldCallback = + GValue -> + Word32 -> + TypeCValue -> + Word32 -> + IO T.Text + +noTypeValueTableLcopyValueFieldCallback :: Maybe TypeValueTableLcopyValueFieldCallback +noTypeValueTableLcopyValueFieldCallback = Nothing + +typeValueTableLcopyValueFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (TypeValueTableLcopyValueFieldCallbackC))) -> + TypeValueTableLcopyValueFieldCallback -> + Ptr GValue -> + Word32 -> + Ptr TypeCValue -> + Word32 -> + IO CString +typeValueTableLcopyValueFieldCallbackWrapper funptrptr _cb value n_collect_values collect_values collect_flags = do + value' <- (newBoxed GValue) value + collect_values' <- (newPtr 8 TypeCValue) collect_values + result <- _cb value' n_collect_values collect_values' collect_flags + maybeReleaseFunPtr funptrptr + result' <- textToCString result + return result' + +-- callback TypeValueTableCollectValueFieldCallback +typeValueTableCollectValueFieldCallbackClosure :: TypeValueTableCollectValueFieldCallback -> IO Closure +typeValueTableCollectValueFieldCallbackClosure cb = newCClosure =<< mkTypeValueTableCollectValueFieldCallback wrapped + where wrapped = typeValueTableCollectValueFieldCallbackWrapper Nothing cb + +type TypeValueTableCollectValueFieldCallbackC = + Ptr GValue -> + Word32 -> + Ptr TypeCValue -> + Word32 -> + IO CString + +foreign import ccall "wrapper" + mkTypeValueTableCollectValueFieldCallback :: TypeValueTableCollectValueFieldCallbackC -> IO (FunPtr TypeValueTableCollectValueFieldCallbackC) + +type TypeValueTableCollectValueFieldCallback = + GValue -> + Word32 -> + TypeCValue -> + Word32 -> + IO T.Text + +noTypeValueTableCollectValueFieldCallback :: Maybe TypeValueTableCollectValueFieldCallback +noTypeValueTableCollectValueFieldCallback = Nothing + +typeValueTableCollectValueFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (TypeValueTableCollectValueFieldCallbackC))) -> + TypeValueTableCollectValueFieldCallback -> + Ptr GValue -> + Word32 -> + Ptr TypeCValue -> + Word32 -> + IO CString +typeValueTableCollectValueFieldCallbackWrapper funptrptr _cb value n_collect_values collect_values collect_flags = do + value' <- (newBoxed GValue) value + collect_values' <- (newPtr 8 TypeCValue) collect_values + result <- _cb value' n_collect_values collect_values' collect_flags + maybeReleaseFunPtr funptrptr + result' <- textToCString result + return result' + +-- callback TypePluginUse +-- XXX Could not generate callback wrapper for TypePluginUse +-- Error was : Bad introspection data: "Wrapping not a GObject with no copy..." +-- callback TypePluginUnuse +-- XXX Could not generate callback wrapper for TypePluginUnuse +-- Error was : Bad introspection data: "Wrapping not a GObject with no copy..." +-- callback TypePluginCompleteTypeInfo +-- XXX Could not generate callback wrapper for TypePluginCompleteTypeInfo +-- Error was : Bad introspection data: "Wrapping not a GObject with no copy..." +-- callback TypePluginCompleteInterfaceInfo +-- XXX Could not generate callback wrapper for TypePluginCompleteInterfaceInfo +-- Error was : Bad introspection data: "Wrapping not a GObject with no copy..." +-- callback TypeInterfaceCheckFunc +typeInterfaceCheckFuncClosure :: TypeInterfaceCheckFunc -> IO Closure +typeInterfaceCheckFuncClosure cb = newCClosure =<< mkTypeInterfaceCheckFunc wrapped + where wrapped = typeInterfaceCheckFuncWrapper Nothing cb + +type TypeInterfaceCheckFuncC = + Ptr () -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkTypeInterfaceCheckFunc :: TypeInterfaceCheckFuncC -> IO (FunPtr TypeInterfaceCheckFuncC) + +type TypeInterfaceCheckFunc = + Ptr () -> + Ptr () -> + IO () + +noTypeInterfaceCheckFunc :: Maybe TypeInterfaceCheckFunc +noTypeInterfaceCheckFunc = Nothing + +typeInterfaceCheckFuncWrapper :: + Maybe (Ptr (FunPtr (TypeInterfaceCheckFuncC))) -> + TypeInterfaceCheckFunc -> + Ptr () -> + Ptr () -> + IO () +typeInterfaceCheckFuncWrapper funptrptr _cb check_data g_iface = do + _cb check_data g_iface + maybeReleaseFunPtr funptrptr + +-- callback TypeClassCacheFunc +typeClassCacheFuncClosure :: TypeClassCacheFunc -> IO Closure +typeClassCacheFuncClosure cb = newCClosure =<< mkTypeClassCacheFunc wrapped + where wrapped = typeClassCacheFuncWrapper Nothing cb + +type TypeClassCacheFuncC = + Ptr () -> + Ptr TypeClass -> + IO CInt + +foreign import ccall "wrapper" + mkTypeClassCacheFunc :: TypeClassCacheFuncC -> IO (FunPtr TypeClassCacheFuncC) + +type TypeClassCacheFunc = + Ptr () -> + TypeClass -> + IO Bool + +noTypeClassCacheFunc :: Maybe TypeClassCacheFunc +noTypeClassCacheFunc = Nothing + +typeClassCacheFuncWrapper :: + Maybe (Ptr (FunPtr (TypeClassCacheFuncC))) -> + TypeClassCacheFunc -> + Ptr () -> + Ptr TypeClass -> + IO CInt +typeClassCacheFuncWrapper funptrptr _cb cache_data g_class = do + g_class' <- (newPtr 8 TypeClass) g_class + result <- _cb cache_data g_class' + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- callback ToggleNotify +toggleNotifyClosure :: ToggleNotify -> IO Closure +toggleNotifyClosure cb = newCClosure =<< mkToggleNotify wrapped + where wrapped = toggleNotifyWrapper Nothing cb + +type ToggleNotifyC = + Ptr () -> + Ptr Object -> + CInt -> + IO () + +foreign import ccall "wrapper" + mkToggleNotify :: ToggleNotifyC -> IO (FunPtr ToggleNotifyC) + +type ToggleNotify = + Ptr () -> + Object -> + Bool -> + IO () + +noToggleNotify :: Maybe ToggleNotify +noToggleNotify = Nothing + +toggleNotifyWrapper :: + Maybe (Ptr (FunPtr (ToggleNotifyC))) -> + ToggleNotify -> + Ptr () -> + Ptr Object -> + CInt -> + IO () +toggleNotifyWrapper funptrptr _cb data_ object is_last_ref = do + object' <- (newObject Object) object + let is_last_ref' = (/= 0) is_last_ref + _cb data_ object' is_last_ref' + maybeReleaseFunPtr funptrptr + +-- callback SignalEmissionHook +signalEmissionHookClosure :: SignalEmissionHook -> IO Closure +signalEmissionHookClosure cb = newCClosure =<< mkSignalEmissionHook wrapped + where wrapped = signalEmissionHookWrapper Nothing cb + +type SignalEmissionHookC = + Ptr SignalInvocationHint -> + Word32 -> + Ptr GValue -> + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkSignalEmissionHook :: SignalEmissionHookC -> IO (FunPtr SignalEmissionHookC) + +type SignalEmissionHook = + SignalInvocationHint -> + [GValue] -> + Ptr () -> + IO Bool + +noSignalEmissionHook :: Maybe SignalEmissionHook +noSignalEmissionHook = Nothing + +signalEmissionHookWrapper :: + Maybe (Ptr (FunPtr (SignalEmissionHookC))) -> + SignalEmissionHook -> + Ptr SignalInvocationHint -> + Word32 -> + Ptr GValue -> + Ptr () -> + IO CInt +signalEmissionHookWrapper funptrptr _cb ihint n_param_values param_values data_ = do + ihint' <- (newPtr 12 SignalInvocationHint) ihint + param_values' <- (unpackBoxedArrayWithLength 24 n_param_values) param_values + param_values'' <- mapM (newBoxed GValue) param_values' + result <- _cb ihint' param_values'' data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- callback SignalAccumulator +signalAccumulatorClosure :: SignalAccumulator -> IO Closure +signalAccumulatorClosure cb = newCClosure =<< mkSignalAccumulator wrapped + where wrapped = signalAccumulatorWrapper Nothing cb + +type SignalAccumulatorC = + Ptr SignalInvocationHint -> + Ptr GValue -> + Ptr GValue -> + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkSignalAccumulator :: SignalAccumulatorC -> IO (FunPtr SignalAccumulatorC) + +type SignalAccumulator = + SignalInvocationHint -> + GValue -> + GValue -> + Ptr () -> + IO Bool + +noSignalAccumulator :: Maybe SignalAccumulator +noSignalAccumulator = Nothing + +signalAccumulatorWrapper :: + Maybe (Ptr (FunPtr (SignalAccumulatorC))) -> + SignalAccumulator -> + Ptr SignalInvocationHint -> + Ptr GValue -> + Ptr GValue -> + Ptr () -> + IO CInt +signalAccumulatorWrapper funptrptr _cb ihint return_accu handler_return data_ = do + ihint' <- (newPtr 12 SignalInvocationHint) ihint + return_accu' <- (newBoxed GValue) return_accu + handler_return' <- (newBoxed GValue) handler_return + result <- _cb ihint' return_accu' handler_return' data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- callback ParamSpecTypeInfoValuesCmpFieldCallback +paramSpecTypeInfoValuesCmpFieldCallbackClosure :: ParamSpecTypeInfoValuesCmpFieldCallback -> IO Closure +paramSpecTypeInfoValuesCmpFieldCallbackClosure cb = newCClosure =<< mkParamSpecTypeInfoValuesCmpFieldCallback wrapped + where wrapped = paramSpecTypeInfoValuesCmpFieldCallbackWrapper Nothing cb + +type ParamSpecTypeInfoValuesCmpFieldCallbackC = + Ptr GParamSpec -> + Ptr GValue -> + Ptr GValue -> + IO Int32 + +foreign import ccall "wrapper" + mkParamSpecTypeInfoValuesCmpFieldCallback :: ParamSpecTypeInfoValuesCmpFieldCallbackC -> IO (FunPtr ParamSpecTypeInfoValuesCmpFieldCallbackC) + +type ParamSpecTypeInfoValuesCmpFieldCallback = + GParamSpec -> + GValue -> + GValue -> + IO Int32 + +noParamSpecTypeInfoValuesCmpFieldCallback :: Maybe ParamSpecTypeInfoValuesCmpFieldCallback +noParamSpecTypeInfoValuesCmpFieldCallback = Nothing + +paramSpecTypeInfoValuesCmpFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (ParamSpecTypeInfoValuesCmpFieldCallbackC))) -> + ParamSpecTypeInfoValuesCmpFieldCallback -> + Ptr GParamSpec -> + Ptr GValue -> + Ptr GValue -> + IO Int32 +paramSpecTypeInfoValuesCmpFieldCallbackWrapper funptrptr _cb pspec value1 value2 = do + pspec' <- newGParamSpecFromPtr pspec + value1' <- (newBoxed GValue) value1 + value2' <- (newBoxed GValue) value2 + result <- _cb pspec' value1' value2' + maybeReleaseFunPtr funptrptr + return result + +-- callback ParamSpecTypeInfoValueValidateFieldCallback +paramSpecTypeInfoValueValidateFieldCallbackClosure :: ParamSpecTypeInfoValueValidateFieldCallback -> IO Closure +paramSpecTypeInfoValueValidateFieldCallbackClosure cb = newCClosure =<< mkParamSpecTypeInfoValueValidateFieldCallback wrapped + where wrapped = paramSpecTypeInfoValueValidateFieldCallbackWrapper Nothing cb + +type ParamSpecTypeInfoValueValidateFieldCallbackC = + Ptr GParamSpec -> + Ptr GValue -> + IO CInt + +foreign import ccall "wrapper" + mkParamSpecTypeInfoValueValidateFieldCallback :: ParamSpecTypeInfoValueValidateFieldCallbackC -> IO (FunPtr ParamSpecTypeInfoValueValidateFieldCallbackC) + +type ParamSpecTypeInfoValueValidateFieldCallback = + GParamSpec -> + GValue -> + IO Bool + +noParamSpecTypeInfoValueValidateFieldCallback :: Maybe ParamSpecTypeInfoValueValidateFieldCallback +noParamSpecTypeInfoValueValidateFieldCallback = Nothing + +paramSpecTypeInfoValueValidateFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (ParamSpecTypeInfoValueValidateFieldCallbackC))) -> + ParamSpecTypeInfoValueValidateFieldCallback -> + Ptr GParamSpec -> + Ptr GValue -> + IO CInt +paramSpecTypeInfoValueValidateFieldCallbackWrapper funptrptr _cb pspec value = do + pspec' <- newGParamSpecFromPtr pspec + value' <- (newBoxed GValue) value + result <- _cb pspec' value' + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- callback ParamSpecTypeInfoValueSetDefaultFieldCallback +paramSpecTypeInfoValueSetDefaultFieldCallbackClosure :: ParamSpecTypeInfoValueSetDefaultFieldCallback -> IO Closure +paramSpecTypeInfoValueSetDefaultFieldCallbackClosure cb = newCClosure =<< mkParamSpecTypeInfoValueSetDefaultFieldCallback wrapped + where wrapped = paramSpecTypeInfoValueSetDefaultFieldCallbackWrapper Nothing cb + +type ParamSpecTypeInfoValueSetDefaultFieldCallbackC = + Ptr GParamSpec -> + Ptr GValue -> + IO () + +foreign import ccall "wrapper" + mkParamSpecTypeInfoValueSetDefaultFieldCallback :: ParamSpecTypeInfoValueSetDefaultFieldCallbackC -> IO (FunPtr ParamSpecTypeInfoValueSetDefaultFieldCallbackC) + +type ParamSpecTypeInfoValueSetDefaultFieldCallback = + GParamSpec -> + GValue -> + IO () + +noParamSpecTypeInfoValueSetDefaultFieldCallback :: Maybe ParamSpecTypeInfoValueSetDefaultFieldCallback +noParamSpecTypeInfoValueSetDefaultFieldCallback = Nothing + +paramSpecTypeInfoValueSetDefaultFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (ParamSpecTypeInfoValueSetDefaultFieldCallbackC))) -> + ParamSpecTypeInfoValueSetDefaultFieldCallback -> + Ptr GParamSpec -> + Ptr GValue -> + IO () +paramSpecTypeInfoValueSetDefaultFieldCallbackWrapper funptrptr _cb pspec value = do + pspec' <- newGParamSpecFromPtr pspec + value' <- (newBoxed GValue) value + _cb pspec' value' + maybeReleaseFunPtr funptrptr + +-- callback ParamSpecTypeInfoInstanceInitFieldCallback +paramSpecTypeInfoInstanceInitFieldCallbackClosure :: ParamSpecTypeInfoInstanceInitFieldCallback -> IO Closure +paramSpecTypeInfoInstanceInitFieldCallbackClosure cb = newCClosure =<< mkParamSpecTypeInfoInstanceInitFieldCallback wrapped + where wrapped = paramSpecTypeInfoInstanceInitFieldCallbackWrapper Nothing cb + +type ParamSpecTypeInfoInstanceInitFieldCallbackC = + Ptr GParamSpec -> + IO () + +foreign import ccall "wrapper" + mkParamSpecTypeInfoInstanceInitFieldCallback :: ParamSpecTypeInfoInstanceInitFieldCallbackC -> IO (FunPtr ParamSpecTypeInfoInstanceInitFieldCallbackC) + +type ParamSpecTypeInfoInstanceInitFieldCallback = + GParamSpec -> + IO () + +noParamSpecTypeInfoInstanceInitFieldCallback :: Maybe ParamSpecTypeInfoInstanceInitFieldCallback +noParamSpecTypeInfoInstanceInitFieldCallback = Nothing + +paramSpecTypeInfoInstanceInitFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (ParamSpecTypeInfoInstanceInitFieldCallbackC))) -> + ParamSpecTypeInfoInstanceInitFieldCallback -> + Ptr GParamSpec -> + IO () +paramSpecTypeInfoInstanceInitFieldCallbackWrapper funptrptr _cb pspec = do + pspec' <- newGParamSpecFromPtr pspec + _cb pspec' + maybeReleaseFunPtr funptrptr + +-- callback ParamSpecTypeInfoFinalizeFieldCallback +paramSpecTypeInfoFinalizeFieldCallbackClosure :: ParamSpecTypeInfoFinalizeFieldCallback -> IO Closure +paramSpecTypeInfoFinalizeFieldCallbackClosure cb = newCClosure =<< mkParamSpecTypeInfoFinalizeFieldCallback wrapped + where wrapped = paramSpecTypeInfoFinalizeFieldCallbackWrapper Nothing cb + +type ParamSpecTypeInfoFinalizeFieldCallbackC = + Ptr GParamSpec -> + IO () + +foreign import ccall "wrapper" + mkParamSpecTypeInfoFinalizeFieldCallback :: ParamSpecTypeInfoFinalizeFieldCallbackC -> IO (FunPtr ParamSpecTypeInfoFinalizeFieldCallbackC) + +type ParamSpecTypeInfoFinalizeFieldCallback = + GParamSpec -> + IO () + +noParamSpecTypeInfoFinalizeFieldCallback :: Maybe ParamSpecTypeInfoFinalizeFieldCallback +noParamSpecTypeInfoFinalizeFieldCallback = Nothing + +paramSpecTypeInfoFinalizeFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (ParamSpecTypeInfoFinalizeFieldCallbackC))) -> + ParamSpecTypeInfoFinalizeFieldCallback -> + Ptr GParamSpec -> + IO () +paramSpecTypeInfoFinalizeFieldCallbackWrapper funptrptr _cb pspec = do + pspec' <- newGParamSpecFromPtr pspec + _cb pspec' + maybeReleaseFunPtr funptrptr + +-- callback ObjectSetPropertyFunc +objectSetPropertyFuncClosure :: ObjectSetPropertyFunc -> IO Closure +objectSetPropertyFuncClosure cb = newCClosure =<< mkObjectSetPropertyFunc wrapped + where wrapped = objectSetPropertyFuncWrapper Nothing cb + +type ObjectSetPropertyFuncC = + Ptr Object -> + Word32 -> + Ptr GValue -> + Ptr GParamSpec -> + IO () + +foreign import ccall "wrapper" + mkObjectSetPropertyFunc :: ObjectSetPropertyFuncC -> IO (FunPtr ObjectSetPropertyFuncC) + +type ObjectSetPropertyFunc = + Object -> + Word32 -> + GValue -> + GParamSpec -> + IO () + +noObjectSetPropertyFunc :: Maybe ObjectSetPropertyFunc +noObjectSetPropertyFunc = Nothing + +objectSetPropertyFuncWrapper :: + Maybe (Ptr (FunPtr (ObjectSetPropertyFuncC))) -> + ObjectSetPropertyFunc -> + Ptr Object -> + Word32 -> + Ptr GValue -> + Ptr GParamSpec -> + IO () +objectSetPropertyFuncWrapper funptrptr _cb object property_id value pspec = do + object' <- (newObject Object) object + value' <- (newBoxed GValue) value + pspec' <- newGParamSpecFromPtr pspec + _cb object' property_id value' pspec' + maybeReleaseFunPtr funptrptr + +-- callback ObjectGetPropertyFunc +objectGetPropertyFuncClosure :: ObjectGetPropertyFunc -> IO Closure +objectGetPropertyFuncClosure cb = newCClosure =<< mkObjectGetPropertyFunc wrapped + where wrapped = objectGetPropertyFuncWrapper Nothing cb + +type ObjectGetPropertyFuncC = + Ptr Object -> + Word32 -> + Ptr GValue -> + Ptr GParamSpec -> + IO () + +foreign import ccall "wrapper" + mkObjectGetPropertyFunc :: ObjectGetPropertyFuncC -> IO (FunPtr ObjectGetPropertyFuncC) + +type ObjectGetPropertyFunc = + Object -> + Word32 -> + GValue -> + GParamSpec -> + IO () + +noObjectGetPropertyFunc :: Maybe ObjectGetPropertyFunc +noObjectGetPropertyFunc = Nothing + +objectGetPropertyFuncWrapper :: + Maybe (Ptr (FunPtr (ObjectGetPropertyFuncC))) -> + ObjectGetPropertyFunc -> + Ptr Object -> + Word32 -> + Ptr GValue -> + Ptr GParamSpec -> + IO () +objectGetPropertyFuncWrapper funptrptr _cb object property_id value pspec = do + object' <- (newObject Object) object + value' <- (newBoxed GValue) value + pspec' <- newGParamSpecFromPtr pspec + _cb object' property_id value' pspec' + maybeReleaseFunPtr funptrptr + +-- callback ObjectFinalizeFunc +objectFinalizeFuncClosure :: ObjectFinalizeFunc -> IO Closure +objectFinalizeFuncClosure cb = newCClosure =<< mkObjectFinalizeFunc wrapped + where wrapped = objectFinalizeFuncWrapper Nothing cb + +type ObjectFinalizeFuncC = + Ptr Object -> + IO () + +foreign import ccall "wrapper" + mkObjectFinalizeFunc :: ObjectFinalizeFuncC -> IO (FunPtr ObjectFinalizeFuncC) + +type ObjectFinalizeFunc = + Object -> + IO () + +noObjectFinalizeFunc :: Maybe ObjectFinalizeFunc +noObjectFinalizeFunc = Nothing + +objectFinalizeFuncWrapper :: + Maybe (Ptr (FunPtr (ObjectFinalizeFuncC))) -> + ObjectFinalizeFunc -> + Ptr Object -> + IO () +objectFinalizeFuncWrapper funptrptr _cb object = do + object' <- (newObject Object) object + _cb object' + maybeReleaseFunPtr funptrptr + +-- callback InterfaceInitFunc +interfaceInitFuncClosure :: InterfaceInitFunc -> IO Closure +interfaceInitFuncClosure cb = newCClosure =<< mkInterfaceInitFunc wrapped + where wrapped = interfaceInitFuncWrapper Nothing cb + +type InterfaceInitFuncC = + Ptr () -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkInterfaceInitFunc :: InterfaceInitFuncC -> IO (FunPtr InterfaceInitFuncC) + +type InterfaceInitFunc = + Ptr () -> + Ptr () -> + IO () + +noInterfaceInitFunc :: Maybe InterfaceInitFunc +noInterfaceInitFunc = Nothing + +interfaceInitFuncWrapper :: + Maybe (Ptr (FunPtr (InterfaceInitFuncC))) -> + InterfaceInitFunc -> + Ptr () -> + Ptr () -> + IO () +interfaceInitFuncWrapper funptrptr _cb g_iface iface_data = do + _cb g_iface iface_data + maybeReleaseFunPtr funptrptr + +-- callback InterfaceFinalizeFunc +interfaceFinalizeFuncClosure :: InterfaceFinalizeFunc -> IO Closure +interfaceFinalizeFuncClosure cb = newCClosure =<< mkInterfaceFinalizeFunc wrapped + where wrapped = interfaceFinalizeFuncWrapper Nothing cb + +type InterfaceFinalizeFuncC = + Ptr () -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkInterfaceFinalizeFunc :: InterfaceFinalizeFuncC -> IO (FunPtr InterfaceFinalizeFuncC) + +type InterfaceFinalizeFunc = + Ptr () -> + Ptr () -> + IO () + +noInterfaceFinalizeFunc :: Maybe InterfaceFinalizeFunc +noInterfaceFinalizeFunc = Nothing + +interfaceFinalizeFuncWrapper :: + Maybe (Ptr (FunPtr (InterfaceFinalizeFuncC))) -> + InterfaceFinalizeFunc -> + Ptr () -> + Ptr () -> + IO () +interfaceFinalizeFuncWrapper funptrptr _cb g_iface iface_data = do + _cb g_iface iface_data + maybeReleaseFunPtr funptrptr + +-- callback InstanceInitFunc +instanceInitFuncClosure :: InstanceInitFunc -> IO Closure +instanceInitFuncClosure cb = newCClosure =<< mkInstanceInitFunc wrapped + where wrapped = instanceInitFuncWrapper Nothing cb + +type InstanceInitFuncC = + Ptr TypeInstance -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkInstanceInitFunc :: InstanceInitFuncC -> IO (FunPtr InstanceInitFuncC) + +type InstanceInitFunc = + TypeInstance -> + Ptr () -> + IO () + +noInstanceInitFunc :: Maybe InstanceInitFunc +noInstanceInitFunc = Nothing + +instanceInitFuncWrapper :: + Maybe (Ptr (FunPtr (InstanceInitFuncC))) -> + InstanceInitFunc -> + Ptr TypeInstance -> + Ptr () -> + IO () +instanceInitFuncWrapper funptrptr _cb instance_ g_class = do + instance_' <- (newPtr 8 TypeInstance) instance_ + _cb instance_' g_class + maybeReleaseFunPtr funptrptr + +-- callback ClosureNotify +closureNotifyClosure :: ClosureNotify -> IO Closure +closureNotifyClosure cb = newCClosure =<< mkClosureNotify wrapped + where wrapped = closureNotifyWrapper Nothing cb + +type ClosureNotifyC = + Ptr () -> + Ptr Closure -> + IO () + +foreign import ccall "wrapper" + mkClosureNotify :: ClosureNotifyC -> IO (FunPtr ClosureNotifyC) + +type ClosureNotify = + Ptr () -> + Closure -> + IO () + +noClosureNotify :: Maybe ClosureNotify +noClosureNotify = Nothing + +closureNotifyWrapper :: + Maybe (Ptr (FunPtr (ClosureNotifyC))) -> + ClosureNotify -> + Ptr () -> + Ptr Closure -> + IO () +closureNotifyWrapper funptrptr _cb data_ closure = do + closure' <- (newBoxed Closure) closure + _cb data_ closure' + maybeReleaseFunPtr funptrptr + +-- callback ClosureMarshalFieldCallback +closureMarshalFieldCallbackClosure :: ClosureMarshalFieldCallback -> IO Closure +closureMarshalFieldCallbackClosure cb = newCClosure =<< mkClosureMarshalFieldCallback wrapped + where wrapped = closureMarshalFieldCallbackWrapper Nothing cb + +type ClosureMarshalFieldCallbackC = + Ptr Closure -> + Ptr GValue -> + Word32 -> + Ptr GValue -> + Ptr () -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkClosureMarshalFieldCallback :: ClosureMarshalFieldCallbackC -> IO (FunPtr ClosureMarshalFieldCallbackC) + +type ClosureMarshalFieldCallback = + Closure -> + GValue -> + Word32 -> + GValue -> + Ptr () -> + Ptr () -> + IO () + +noClosureMarshalFieldCallback :: Maybe ClosureMarshalFieldCallback +noClosureMarshalFieldCallback = Nothing + +closureMarshalFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (ClosureMarshalFieldCallbackC))) -> + ClosureMarshalFieldCallback -> + Ptr Closure -> + Ptr GValue -> + Word32 -> + Ptr GValue -> + Ptr () -> + Ptr () -> + IO () +closureMarshalFieldCallbackWrapper funptrptr _cb closure return_value n_param_values param_values invocation_hint marshal_data = do + closure' <- (newBoxed Closure) closure + return_value' <- (newBoxed GValue) return_value + param_values' <- (newBoxed GValue) param_values + _cb closure' return_value' n_param_values param_values' invocation_hint marshal_data + maybeReleaseFunPtr funptrptr + +-- callback ClassInitFunc +classInitFuncClosure :: ClassInitFunc -> IO Closure +classInitFuncClosure cb = newCClosure =<< mkClassInitFunc wrapped + where wrapped = classInitFuncWrapper Nothing cb + +type ClassInitFuncC = + Ptr () -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkClassInitFunc :: ClassInitFuncC -> IO (FunPtr ClassInitFuncC) + +type ClassInitFunc = + Ptr () -> + Ptr () -> + IO () + +noClassInitFunc :: Maybe ClassInitFunc +noClassInitFunc = Nothing + +classInitFuncWrapper :: + Maybe (Ptr (FunPtr (ClassInitFuncC))) -> + ClassInitFunc -> + Ptr () -> + Ptr () -> + IO () +classInitFuncWrapper funptrptr _cb g_class class_data = do + _cb g_class class_data + maybeReleaseFunPtr funptrptr + +-- callback ClassFinalizeFunc +classFinalizeFuncClosure :: ClassFinalizeFunc -> IO Closure +classFinalizeFuncClosure cb = newCClosure =<< mkClassFinalizeFunc wrapped + where wrapped = classFinalizeFuncWrapper Nothing cb + +type ClassFinalizeFuncC = + Ptr () -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkClassFinalizeFunc :: ClassFinalizeFuncC -> IO (FunPtr ClassFinalizeFuncC) + +type ClassFinalizeFunc = + Ptr () -> + Ptr () -> + IO () + +noClassFinalizeFunc :: Maybe ClassFinalizeFunc +noClassFinalizeFunc = Nothing + +classFinalizeFuncWrapper :: + Maybe (Ptr (FunPtr (ClassFinalizeFuncC))) -> + ClassFinalizeFunc -> + Ptr () -> + Ptr () -> + IO () +classFinalizeFuncWrapper funptrptr _cb g_class class_data = do + _cb g_class class_data + maybeReleaseFunPtr funptrptr + +-- callback Callback +callbackClosure :: Callback -> IO Closure +callbackClosure cb = newCClosure =<< mkCallback wrapped + where wrapped = callbackWrapper Nothing cb + +type CallbackC = + IO () + +foreign import ccall "wrapper" + mkCallback :: CallbackC -> IO (FunPtr CallbackC) + +type Callback = + IO () + +noCallback :: Maybe Callback +noCallback = Nothing + +callbackWrapper :: + Maybe (Ptr (FunPtr (CallbackC))) -> + Callback -> + IO () +callbackWrapper funptrptr _cb = do + _cb + maybeReleaseFunPtr funptrptr + +-- callback BoxedFreeFunc +boxedFreeFuncClosure :: BoxedFreeFunc -> IO Closure +boxedFreeFuncClosure cb = newCClosure =<< mkBoxedFreeFunc wrapped + where wrapped = boxedFreeFuncWrapper Nothing cb + +type BoxedFreeFuncC = + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkBoxedFreeFunc :: BoxedFreeFuncC -> IO (FunPtr BoxedFreeFuncC) + +type BoxedFreeFunc = + Ptr () -> + IO () + +noBoxedFreeFunc :: Maybe BoxedFreeFunc +noBoxedFreeFunc = Nothing + +boxedFreeFuncWrapper :: + Maybe (Ptr (FunPtr (BoxedFreeFuncC))) -> + BoxedFreeFunc -> + Ptr () -> + IO () +boxedFreeFuncWrapper funptrptr _cb boxed = do + _cb boxed + maybeReleaseFunPtr funptrptr + +-- callback BindingTransformFunc +bindingTransformFuncClosure :: BindingTransformFunc -> IO Closure +bindingTransformFuncClosure cb = newCClosure =<< mkBindingTransformFunc wrapped + where wrapped = bindingTransformFuncWrapper Nothing cb + +type BindingTransformFuncC = + Ptr Binding -> + Ptr GValue -> + Ptr GValue -> + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkBindingTransformFunc :: BindingTransformFuncC -> IO (FunPtr BindingTransformFuncC) + +type BindingTransformFunc = + Binding -> + GValue -> + GValue -> + IO Bool + +noBindingTransformFunc :: Maybe BindingTransformFunc +noBindingTransformFunc = Nothing + +bindingTransformFuncWrapper :: + Maybe (Ptr (FunPtr (BindingTransformFuncC))) -> + BindingTransformFunc -> + Ptr Binding -> + Ptr GValue -> + Ptr GValue -> + Ptr () -> + IO CInt +bindingTransformFuncWrapper funptrptr _cb binding from_value to_value _ = do + binding' <- (newObject Binding) binding + from_value' <- (newBoxed GValue) from_value + to_value' <- (newBoxed GValue) to_value + result <- _cb binding' from_value' to_value' + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- callback BaseInitFunc +baseInitFuncClosure :: BaseInitFunc -> IO Closure +baseInitFuncClosure cb = newCClosure =<< mkBaseInitFunc wrapped + where wrapped = baseInitFuncWrapper Nothing cb + +type BaseInitFuncC = + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkBaseInitFunc :: BaseInitFuncC -> IO (FunPtr BaseInitFuncC) + +type BaseInitFunc = + Ptr () -> + IO () + +noBaseInitFunc :: Maybe BaseInitFunc +noBaseInitFunc = Nothing + +baseInitFuncWrapper :: + Maybe (Ptr (FunPtr (BaseInitFuncC))) -> + BaseInitFunc -> + Ptr () -> + IO () +baseInitFuncWrapper funptrptr _cb g_class = do + _cb g_class + maybeReleaseFunPtr funptrptr + +-- callback BaseFinalizeFunc +baseFinalizeFuncClosure :: BaseFinalizeFunc -> IO Closure +baseFinalizeFuncClosure cb = newCClosure =<< mkBaseFinalizeFunc wrapped + where wrapped = baseFinalizeFuncWrapper Nothing cb + +type BaseFinalizeFuncC = + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkBaseFinalizeFunc :: BaseFinalizeFuncC -> IO (FunPtr BaseFinalizeFuncC) + +type BaseFinalizeFunc = + Ptr () -> + IO () + +noBaseFinalizeFunc :: Maybe BaseFinalizeFunc +noBaseFinalizeFunc = Nothing + +baseFinalizeFuncWrapper :: + Maybe (Ptr (FunPtr (BaseFinalizeFuncC))) -> + BaseFinalizeFunc -> + Ptr () -> + IO () +baseFinalizeFuncWrapper funptrptr _cb g_class = do + _cb g_class + maybeReleaseFunPtr funptrptr + + diff --git a/GI/GObject/Constants.hs b/GI/GObject/Constants.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Constants.hs @@ -0,0 +1,84 @@ +{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} + +{- | +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.Constants + ( + pattern VALUE_NOCOPY_CONTENTS , + pattern VALUE_COLLECT_FORMAT_MAX_LENGTH , + pattern TYPE_RESERVED_USER_FIRST , + pattern TYPE_RESERVED_GLIB_LAST , + pattern TYPE_RESERVED_GLIB_FIRST , + pattern TYPE_RESERVED_BSE_LAST , + pattern TYPE_RESERVED_BSE_FIRST , + pattern TYPE_FUNDAMENTAL_SHIFT , + pattern TYPE_FUNDAMENTAL_MAX , + pattern TYPE_FLAG_RESERVED_ID_BIT , + pattern SIGNAL_MATCH_MASK , + pattern SIGNAL_FLAGS_MASK , + pattern PARAM_USER_SHIFT , + pattern PARAM_STATIC_STRINGS , + pattern PARAM_MASK , + + ) 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 + + +pattern VALUE_NOCOPY_CONTENTS = 134217728 :: Int32 + + +pattern VALUE_COLLECT_FORMAT_MAX_LENGTH = 8 :: Int32 + + +pattern TYPE_RESERVED_USER_FIRST = 49 :: Int32 + + +pattern TYPE_RESERVED_GLIB_LAST = 31 :: Int32 + + +pattern TYPE_RESERVED_GLIB_FIRST = 22 :: Int32 + + +pattern TYPE_RESERVED_BSE_LAST = 48 :: Int32 + + +pattern TYPE_RESERVED_BSE_FIRST = 32 :: Int32 + + +pattern TYPE_FUNDAMENTAL_SHIFT = 2 :: Int32 + + +pattern TYPE_FUNDAMENTAL_MAX = 255 :: Int32 + + +pattern TYPE_FLAG_RESERVED_ID_BIT = 1 :: Word64 + + +pattern SIGNAL_MATCH_MASK = 63 :: Int32 + + +pattern SIGNAL_FLAGS_MASK = 511 :: Int32 + + +pattern PARAM_USER_SHIFT = 8 :: Int32 + + +pattern PARAM_STATIC_STRINGS = 0 :: Int32 + + +pattern PARAM_MASK = 255 :: Int32 + + diff --git a/GI/GObject/Flags.hs b/GI/GObject/Flags.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Flags.hs @@ -0,0 +1,275 @@ + +{- | +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.Flags + ( + +-- * Exported types + TypeFundamentalFlags(..) , + TypeFlags(..) , + TypeDebugFlags(..) , + SignalMatchType(..) , + SignalFlags(..) , + ParamFlags(..) , + ConnectFlags(..) , + BindingFlags(..) , + + + ) 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 + + + + +-- Flags TypeFundamentalFlags + +data TypeFundamentalFlags = + TypeFundamentalFlagsClassed + | TypeFundamentalFlagsInstantiatable + | TypeFundamentalFlagsDerivable + | TypeFundamentalFlagsDeepDerivable + | AnotherTypeFundamentalFlags Int + deriving (Show, Eq) + +instance Enum TypeFundamentalFlags where + fromEnum TypeFundamentalFlagsClassed = 1 + fromEnum TypeFundamentalFlagsInstantiatable = 2 + fromEnum TypeFundamentalFlagsDerivable = 4 + fromEnum TypeFundamentalFlagsDeepDerivable = 8 + fromEnum (AnotherTypeFundamentalFlags k) = k + + toEnum 1 = TypeFundamentalFlagsClassed + toEnum 2 = TypeFundamentalFlagsInstantiatable + toEnum 4 = TypeFundamentalFlagsDerivable + toEnum 8 = TypeFundamentalFlagsDeepDerivable + toEnum k = AnotherTypeFundamentalFlags k + +instance IsGFlag TypeFundamentalFlags + +-- Flags TypeFlags + +data TypeFlags = + TypeFlagsAbstract + | TypeFlagsValueAbstract + | AnotherTypeFlags Int + deriving (Show, Eq) + +instance Enum TypeFlags where + fromEnum TypeFlagsAbstract = 16 + fromEnum TypeFlagsValueAbstract = 32 + fromEnum (AnotherTypeFlags k) = k + + toEnum 16 = TypeFlagsAbstract + toEnum 32 = TypeFlagsValueAbstract + toEnum k = AnotherTypeFlags k + +instance IsGFlag TypeFlags + +-- Flags TypeDebugFlags +{-# DEPRECATED TypeDebugFlags ["(Since version 2.36)","g_type_init() is now done automatically"]#-} +data TypeDebugFlags = + TypeDebugFlagsNone + | TypeDebugFlagsObjects + | TypeDebugFlagsSignals + | TypeDebugFlagsInstanceCount + | TypeDebugFlagsMask + | AnotherTypeDebugFlags Int + deriving (Show, Eq) + +instance Enum TypeDebugFlags where + fromEnum TypeDebugFlagsNone = 0 + fromEnum TypeDebugFlagsObjects = 1 + fromEnum TypeDebugFlagsSignals = 2 + fromEnum TypeDebugFlagsInstanceCount = 4 + fromEnum TypeDebugFlagsMask = 7 + fromEnum (AnotherTypeDebugFlags k) = k + + toEnum 0 = TypeDebugFlagsNone + toEnum 1 = TypeDebugFlagsObjects + toEnum 2 = TypeDebugFlagsSignals + toEnum 4 = TypeDebugFlagsInstanceCount + toEnum 7 = TypeDebugFlagsMask + toEnum k = AnotherTypeDebugFlags k + +instance IsGFlag TypeDebugFlags + +-- Flags SignalMatchType + +data SignalMatchType = + SignalMatchTypeId + | SignalMatchTypeDetail + | SignalMatchTypeClosure + | SignalMatchTypeFunc + | SignalMatchTypeData + | SignalMatchTypeUnblocked + | AnotherSignalMatchType Int + deriving (Show, Eq) + +instance Enum SignalMatchType where + fromEnum SignalMatchTypeId = 1 + fromEnum SignalMatchTypeDetail = 2 + fromEnum SignalMatchTypeClosure = 4 + fromEnum SignalMatchTypeFunc = 8 + fromEnum SignalMatchTypeData = 16 + fromEnum SignalMatchTypeUnblocked = 32 + fromEnum (AnotherSignalMatchType k) = k + + toEnum 1 = SignalMatchTypeId + toEnum 2 = SignalMatchTypeDetail + toEnum 4 = SignalMatchTypeClosure + toEnum 8 = SignalMatchTypeFunc + toEnum 16 = SignalMatchTypeData + toEnum 32 = SignalMatchTypeUnblocked + toEnum k = AnotherSignalMatchType k + +instance IsGFlag SignalMatchType + +-- Flags SignalFlags + +data SignalFlags = + SignalFlagsRunFirst + | SignalFlagsRunLast + | SignalFlagsRunCleanup + | SignalFlagsNoRecurse + | SignalFlagsDetailed + | SignalFlagsAction + | SignalFlagsNoHooks + | SignalFlagsMustCollect + | SignalFlagsDeprecated + | AnotherSignalFlags Int + deriving (Show, Eq) + +instance Enum SignalFlags where + fromEnum SignalFlagsRunFirst = 1 + fromEnum SignalFlagsRunLast = 2 + fromEnum SignalFlagsRunCleanup = 4 + fromEnum SignalFlagsNoRecurse = 8 + fromEnum SignalFlagsDetailed = 16 + fromEnum SignalFlagsAction = 32 + fromEnum SignalFlagsNoHooks = 64 + fromEnum SignalFlagsMustCollect = 128 + fromEnum SignalFlagsDeprecated = 256 + fromEnum (AnotherSignalFlags k) = k + + toEnum 1 = SignalFlagsRunFirst + toEnum 2 = SignalFlagsRunLast + toEnum 4 = SignalFlagsRunCleanup + toEnum 8 = SignalFlagsNoRecurse + toEnum 16 = SignalFlagsDetailed + toEnum 32 = SignalFlagsAction + toEnum 64 = SignalFlagsNoHooks + toEnum 128 = SignalFlagsMustCollect + toEnum 256 = SignalFlagsDeprecated + toEnum k = AnotherSignalFlags k + +instance IsGFlag SignalFlags + +-- Flags ParamFlags + +data ParamFlags = + ParamFlagsReadable + | ParamFlagsWritable + | ParamFlagsReadwrite + | ParamFlagsConstruct + | ParamFlagsConstructOnly + | ParamFlagsLaxValidation + | ParamFlagsStaticName + | ParamFlagsPrivate + | ParamFlagsStaticNick + | ParamFlagsStaticBlurb + | ParamFlagsExplicitNotify + | ParamFlagsDeprecated + | AnotherParamFlags Int + deriving (Show, Eq) + +instance Enum ParamFlags where + fromEnum ParamFlagsReadable = 1 + fromEnum ParamFlagsWritable = 2 + fromEnum ParamFlagsReadwrite = 3 + fromEnum ParamFlagsConstruct = 4 + fromEnum ParamFlagsConstructOnly = 8 + fromEnum ParamFlagsLaxValidation = 16 + fromEnum ParamFlagsStaticName = 32 + fromEnum ParamFlagsPrivate = 32 + fromEnum ParamFlagsStaticNick = 64 + fromEnum ParamFlagsStaticBlurb = 128 + fromEnum ParamFlagsExplicitNotify = 1073741824 + fromEnum ParamFlagsDeprecated = 2147483648 + fromEnum (AnotherParamFlags k) = k + + toEnum 1 = ParamFlagsReadable + toEnum 2 = ParamFlagsWritable + toEnum 3 = ParamFlagsReadwrite + toEnum 4 = ParamFlagsConstruct + toEnum 8 = ParamFlagsConstructOnly + toEnum 16 = ParamFlagsLaxValidation + toEnum 32 = ParamFlagsStaticName + toEnum 64 = ParamFlagsStaticNick + toEnum 128 = ParamFlagsStaticBlurb + toEnum 1073741824 = ParamFlagsExplicitNotify + toEnum 2147483648 = ParamFlagsDeprecated + toEnum k = AnotherParamFlags k + +instance IsGFlag ParamFlags + +-- Flags ConnectFlags + +data ConnectFlags = + ConnectFlagsAfter + | ConnectFlagsSwapped + | AnotherConnectFlags Int + deriving (Show, Eq) + +instance Enum ConnectFlags where + fromEnum ConnectFlagsAfter = 1 + fromEnum ConnectFlagsSwapped = 2 + fromEnum (AnotherConnectFlags k) = k + + toEnum 1 = ConnectFlagsAfter + toEnum 2 = ConnectFlagsSwapped + toEnum k = AnotherConnectFlags k + +instance IsGFlag ConnectFlags + +-- Flags BindingFlags + +data BindingFlags = + BindingFlagsDefault + | BindingFlagsBidirectional + | BindingFlagsSyncCreate + | BindingFlagsInvertBoolean + | AnotherBindingFlags Int + deriving (Show, Eq) + +instance Enum BindingFlags where + fromEnum BindingFlagsDefault = 0 + fromEnum BindingFlagsBidirectional = 1 + fromEnum BindingFlagsSyncCreate = 2 + fromEnum BindingFlagsInvertBoolean = 4 + fromEnum (AnotherBindingFlags k) = k + + toEnum 0 = BindingFlagsDefault + toEnum 1 = BindingFlagsBidirectional + toEnum 2 = BindingFlagsSyncCreate + toEnum 4 = BindingFlagsInvertBoolean + toEnum k = AnotherBindingFlags k + +foreign import ccall "g_binding_flags_get_type" c_g_binding_flags_get_type :: + IO GType + +instance BoxedEnum BindingFlags where + boxedEnumType _ = c_g_binding_flags_get_type + +instance IsGFlag BindingFlags + + diff --git a/GI/GObject/Functions.hs b/GI/GObject/Functions.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Functions.hs @@ -0,0 +1,5227 @@ + +{- | +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 () + + + diff --git a/GI/GObject/Interfaces.hs b/GI/GObject/Interfaces.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Interfaces.hs @@ -0,0 +1,26 @@ + +{- | +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.Interfaces + ( module GI.GObject.Interfaces.TypePlugin , + + + ) where + +import GI.GObject.Interfaces.TypePlugin + +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 + + diff --git a/GI/GObject/Interfaces/TypePlugin.hs b/GI/GObject/Interfaces/TypePlugin.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Interfaces/TypePlugin.hs @@ -0,0 +1,182 @@ + +{- | +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.Interfaces.TypePlugin + ( + +-- * Exported types + TypePlugin(..) , + noTypePlugin , + TypePluginK , + + + -- * Methods +-- ** typePluginCompleteInterfaceInfo + typePluginCompleteInterfaceInfo , + + +-- ** typePluginCompleteTypeInfo + typePluginCompleteTypeInfo , + + +-- ** typePluginUnuse + typePluginUnuse , + + +-- ** typePluginUse + typePluginUse , + + + + + ) 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 + +-- interface TypePlugin + +newtype TypePlugin = TypePlugin (ForeignPtr TypePlugin) +noTypePlugin :: Maybe TypePlugin +noTypePlugin = Nothing + +type instance AttributeList TypePlugin = TypePluginAttributeList +type TypePluginAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList TypePlugin = TypePluginSignalList +type TypePluginSignalList = ('[ ] :: [(Symbol, *)]) + +class ForeignPtrNewtype a => TypePluginK a +instance (ForeignPtrNewtype o, IsDescendantOf TypePlugin o) => TypePluginK o +type instance ParentTypes TypePlugin = TypePluginParentTypes +type TypePluginParentTypes = '[] + +-- method TypePlugin::complete_interface_info +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypePlugin", 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 = "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 = "_obj", argType = TInterface "GObject" "TypePlugin", 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 = "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_plugin_complete_interface_info" g_type_plugin_complete_interface_info :: + Ptr TypePlugin -> -- _obj : TInterface "GObject" "TypePlugin" + CGType -> -- instance_type : TBasicType TGType + CGType -> -- interface_type : TBasicType TGType + Ptr InterfaceInfo -> -- info : TInterface "GObject" "InterfaceInfo" + IO () + + +typePluginCompleteInterfaceInfo :: + (MonadIO m, TypePluginK a) => + a -> -- _obj + GType -> -- instance_type + GType -> -- interface_type + InterfaceInfo -> -- info + m () +typePluginCompleteInterfaceInfo _obj instance_type interface_type info = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let instance_type' = gtypeToCGType instance_type + let interface_type' = gtypeToCGType interface_type + let info' = unsafeManagedPtrGetPtr info + g_type_plugin_complete_interface_info _obj' instance_type' interface_type' info' + touchManagedPtr _obj + touchManagedPtr info + return () + +-- method TypePlugin::complete_type_info +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypePlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "g_type", argType = TBasicType TGType, 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 = "value_table", argType = TInterface "GObject" "TypeValueTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "TypePlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "g_type", argType = TBasicType TGType, 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 = "value_table", argType = TInterface "GObject" "TypeValueTable", 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_plugin_complete_type_info" g_type_plugin_complete_type_info :: + Ptr TypePlugin -> -- _obj : TInterface "GObject" "TypePlugin" + CGType -> -- g_type : TBasicType TGType + Ptr TypeInfo -> -- info : TInterface "GObject" "TypeInfo" + Ptr TypeValueTable -> -- value_table : TInterface "GObject" "TypeValueTable" + IO () + + +typePluginCompleteTypeInfo :: + (MonadIO m, TypePluginK a) => + a -> -- _obj + GType -> -- g_type + TypeInfo -> -- info + TypeValueTable -> -- value_table + m () +typePluginCompleteTypeInfo _obj g_type info value_table = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let g_type' = gtypeToCGType g_type + let info' = unsafeManagedPtrGetPtr info + let value_table' = unsafeManagedPtrGetPtr value_table + g_type_plugin_complete_type_info _obj' g_type' info' value_table' + touchManagedPtr _obj + touchManagedPtr info + touchManagedPtr value_table + return () + +-- method TypePlugin::unuse +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypePlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", 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_plugin_unuse" g_type_plugin_unuse :: + Ptr TypePlugin -> -- _obj : TInterface "GObject" "TypePlugin" + IO () + + +typePluginUnuse :: + (MonadIO m, TypePluginK a) => + a -> -- _obj + m () +typePluginUnuse _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + g_type_plugin_unuse _obj' + touchManagedPtr _obj + return () + +-- method TypePlugin::use +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypePlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", 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_plugin_use" g_type_plugin_use :: + Ptr TypePlugin -> -- _obj : TInterface "GObject" "TypePlugin" + IO () + + +typePluginUse :: + (MonadIO m, TypePluginK a) => + a -> -- _obj + m () +typePluginUse _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + g_type_plugin_use _obj' + touchManagedPtr _obj + return () + + diff --git a/GI/GObject/Interfaces/TypePlugin.hs-boot b/GI/GObject/Interfaces/TypePlugin.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Interfaces/TypePlugin.hs-boot @@ -0,0 +1,12 @@ +module GI.GObject.Interfaces.TypePlugin 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 + +newtype TypePlugin = TypePlugin (ForeignPtr TypePlugin) +class ForeignPtrNewtype a => TypePluginK a +instance (ForeignPtrNewtype o, IsDescendantOf TypePlugin o) => TypePluginK o diff --git a/GI/GObject/Objects.hs b/GI/GObject/Objects.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Objects.hs @@ -0,0 +1,32 @@ + +{- | +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.Objects + ( module GI.GObject.Objects.Binding , + module GI.GObject.Objects.InitiallyUnowned, + module GI.GObject.Objects.Object , + module GI.GObject.Objects.TypeModule , + + + ) where + +import GI.GObject.Objects.Binding +import GI.GObject.Objects.InitiallyUnowned +import GI.GObject.Objects.Object +import GI.GObject.Objects.TypeModule + +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 + + diff --git a/GI/GObject/Objects/Binding.hs b/GI/GObject/Objects/Binding.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Objects/Binding.hs @@ -0,0 +1,375 @@ + +{- | +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.Objects.Binding + ( + +-- * Exported types + Binding(..) , + BindingK , + toBinding , + noBinding , + + + -- * Methods +-- ** bindingGetFlags + bindingGetFlags , + + +-- ** bindingGetSource + bindingGetSource , + + +-- ** bindingGetSourceProperty + bindingGetSourceProperty , + + +-- ** bindingGetTarget + bindingGetTarget , + + +-- ** bindingGetTargetProperty + bindingGetTargetProperty , + + +-- ** bindingUnbind + bindingUnbind , + + + + + -- * Properties +-- ** Flags + BindingFlagsPropertyInfo , + constructBindingFlags , + getBindingFlags , + + +-- ** Source + BindingSourcePropertyInfo , + constructBindingSource , + getBindingSource , + + +-- ** SourceProperty + BindingSourcePropertyPropertyInfo , + constructBindingSourceProperty , + getBindingSourceProperty , + + +-- ** Target + BindingTargetPropertyInfo , + constructBindingTarget , + getBindingTarget , + + +-- ** TargetProperty + BindingTargetPropertyPropertyInfo , + constructBindingTargetProperty , + getBindingTargetProperty , + + + + + ) 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 + +newtype Binding = Binding (ForeignPtr Binding) +foreign import ccall "g_binding_get_type" + c_g_binding_get_type :: IO GType + +type instance ParentTypes Binding = BindingParentTypes +type BindingParentTypes = '[Object] + +instance GObject Binding where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_g_binding_get_type + + +class GObject o => BindingK o +instance (GObject o, IsDescendantOf Binding o) => BindingK o + +toBinding :: BindingK o => o -> IO Binding +toBinding = unsafeCastTo Binding + +noBinding :: Maybe Binding +noBinding = Nothing + +-- VVV Prop "flags" + -- Type: TInterface "GObject" "BindingFlags" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getBindingFlags :: (MonadIO m, BindingK o) => o -> m [BindingFlags] +getBindingFlags obj = liftIO $ getObjectPropertyFlags obj "flags" + +constructBindingFlags :: [BindingFlags] -> IO ([Char], GValue) +constructBindingFlags val = constructObjectPropertyFlags "flags" val + +data BindingFlagsPropertyInfo +instance AttrInfo BindingFlagsPropertyInfo where + type AttrAllowedOps BindingFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint BindingFlagsPropertyInfo = (~) [BindingFlags] + type AttrBaseTypeConstraint BindingFlagsPropertyInfo = BindingK + type AttrGetType BindingFlagsPropertyInfo = [BindingFlags] + type AttrLabel BindingFlagsPropertyInfo = "Binding::flags" + attrGet _ = getBindingFlags + attrSet _ = undefined + attrConstruct _ = constructBindingFlags + +-- VVV Prop "source" + -- Type: TInterface "GObject" "Object" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getBindingSource :: (MonadIO m, BindingK o) => o -> m Object +getBindingSource obj = liftIO $ getObjectPropertyObject obj "source" Object + +constructBindingSource :: (ObjectK a) => a -> IO ([Char], GValue) +constructBindingSource val = constructObjectPropertyObject "source" val + +data BindingSourcePropertyInfo +instance AttrInfo BindingSourcePropertyInfo where + type AttrAllowedOps BindingSourcePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint BindingSourcePropertyInfo = ObjectK + type AttrBaseTypeConstraint BindingSourcePropertyInfo = BindingK + type AttrGetType BindingSourcePropertyInfo = Object + type AttrLabel BindingSourcePropertyInfo = "Binding::source" + attrGet _ = getBindingSource + attrSet _ = undefined + attrConstruct _ = constructBindingSource + +-- VVV Prop "source-property" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getBindingSourceProperty :: (MonadIO m, BindingK o) => o -> m T.Text +getBindingSourceProperty obj = liftIO $ getObjectPropertyString obj "source-property" + +constructBindingSourceProperty :: T.Text -> IO ([Char], GValue) +constructBindingSourceProperty val = constructObjectPropertyString "source-property" val + +data BindingSourcePropertyPropertyInfo +instance AttrInfo BindingSourcePropertyPropertyInfo where + type AttrAllowedOps BindingSourcePropertyPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint BindingSourcePropertyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint BindingSourcePropertyPropertyInfo = BindingK + type AttrGetType BindingSourcePropertyPropertyInfo = T.Text + type AttrLabel BindingSourcePropertyPropertyInfo = "Binding::source-property" + attrGet _ = getBindingSourceProperty + attrSet _ = undefined + attrConstruct _ = constructBindingSourceProperty + +-- VVV Prop "target" + -- Type: TInterface "GObject" "Object" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getBindingTarget :: (MonadIO m, BindingK o) => o -> m Object +getBindingTarget obj = liftIO $ getObjectPropertyObject obj "target" Object + +constructBindingTarget :: (ObjectK a) => a -> IO ([Char], GValue) +constructBindingTarget val = constructObjectPropertyObject "target" val + +data BindingTargetPropertyInfo +instance AttrInfo BindingTargetPropertyInfo where + type AttrAllowedOps BindingTargetPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint BindingTargetPropertyInfo = ObjectK + type AttrBaseTypeConstraint BindingTargetPropertyInfo = BindingK + type AttrGetType BindingTargetPropertyInfo = Object + type AttrLabel BindingTargetPropertyInfo = "Binding::target" + attrGet _ = getBindingTarget + attrSet _ = undefined + attrConstruct _ = constructBindingTarget + +-- VVV Prop "target-property" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getBindingTargetProperty :: (MonadIO m, BindingK o) => o -> m T.Text +getBindingTargetProperty obj = liftIO $ getObjectPropertyString obj "target-property" + +constructBindingTargetProperty :: T.Text -> IO ([Char], GValue) +constructBindingTargetProperty val = constructObjectPropertyString "target-property" val + +data BindingTargetPropertyPropertyInfo +instance AttrInfo BindingTargetPropertyPropertyInfo where + type AttrAllowedOps BindingTargetPropertyPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint BindingTargetPropertyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint BindingTargetPropertyPropertyInfo = BindingK + type AttrGetType BindingTargetPropertyPropertyInfo = T.Text + type AttrLabel BindingTargetPropertyPropertyInfo = "Binding::target-property" + attrGet _ = getBindingTargetProperty + attrSet _ = undefined + attrConstruct _ = constructBindingTargetProperty + +type instance AttributeList Binding = BindingAttributeList +type BindingAttributeList = ('[ '("flags", BindingFlagsPropertyInfo), '("source", BindingSourcePropertyInfo), '("source-property", BindingSourcePropertyPropertyInfo), '("target", BindingTargetPropertyInfo), '("target-property", BindingTargetPropertyPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList Binding = BindingSignalList +type BindingSignalList = ('[ '("notify", ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method Binding::get_flags +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GObject" "BindingFlags" +-- throws : False +-- Skip return : False + +foreign import ccall "g_binding_get_flags" g_binding_get_flags :: + Ptr Binding -> -- _obj : TInterface "GObject" "Binding" + IO CUInt + + +bindingGetFlags :: + (MonadIO m, BindingK a) => + a -> -- _obj + m [BindingFlags] +bindingGetFlags _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- g_binding_get_flags _obj' + let result' = wordToGFlags result + touchManagedPtr _obj + return result' + +-- method Binding::get_source +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GObject" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "g_binding_get_source" g_binding_get_source :: + Ptr Binding -> -- _obj : TInterface "GObject" "Binding" + IO (Ptr Object) + + +bindingGetSource :: + (MonadIO m, BindingK a) => + a -> -- _obj + m Object +bindingGetSource _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- g_binding_get_source _obj' + checkUnexpectedReturnNULL "g_binding_get_source" result + result' <- (newObject Object) result + touchManagedPtr _obj + return result' + +-- method Binding::get_source_property +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_binding_get_source_property" g_binding_get_source_property :: + Ptr Binding -> -- _obj : TInterface "GObject" "Binding" + IO CString + + +bindingGetSourceProperty :: + (MonadIO m, BindingK a) => + a -> -- _obj + m T.Text +bindingGetSourceProperty _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- g_binding_get_source_property _obj' + checkUnexpectedReturnNULL "g_binding_get_source_property" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Binding::get_target +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GObject" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "g_binding_get_target" g_binding_get_target :: + Ptr Binding -> -- _obj : TInterface "GObject" "Binding" + IO (Ptr Object) + + +bindingGetTarget :: + (MonadIO m, BindingK a) => + a -> -- _obj + m Object +bindingGetTarget _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- g_binding_get_target _obj' + checkUnexpectedReturnNULL "g_binding_get_target" result + result' <- (newObject Object) result + touchManagedPtr _obj + return result' + +-- method Binding::get_target_property +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_binding_get_target_property" g_binding_get_target_property :: + Ptr Binding -> -- _obj : TInterface "GObject" "Binding" + IO CString + + +bindingGetTargetProperty :: + (MonadIO m, BindingK a) => + a -> -- _obj + m T.Text +bindingGetTargetProperty _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- g_binding_get_target_property _obj' + checkUnexpectedReturnNULL "g_binding_get_target_property" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Binding::unbind +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Binding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_binding_unbind" g_binding_unbind :: + Ptr Binding -> -- _obj : TInterface "GObject" "Binding" + IO () + + +bindingUnbind :: + (MonadIO m, BindingK a) => + a -> -- _obj + m () +bindingUnbind _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + g_binding_unbind _obj' + touchManagedPtr _obj + return () + + diff --git a/GI/GObject/Objects/Binding.hs-boot b/GI/GObject/Objects/Binding.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Objects/Binding.hs-boot @@ -0,0 +1,18 @@ +module GI.GObject.Objects.Binding 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 + +newtype Binding = Binding (ForeignPtr Binding) +instance GObject Binding where +class GObject o => BindingK o +instance (GObject o, IsDescendantOf Binding o) => BindingK o +data BindingFlagsPropertyInfo +data BindingSourcePropertyInfo +data BindingSourcePropertyPropertyInfo +data BindingTargetPropertyInfo +data BindingTargetPropertyPropertyInfo diff --git a/GI/GObject/Objects/InitiallyUnowned.hs b/GI/GObject/Objects/InitiallyUnowned.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Objects/InitiallyUnowned.hs @@ -0,0 +1,57 @@ + +{- | +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.Objects.InitiallyUnowned + ( + +-- * Exported types + InitiallyUnowned(..) , + InitiallyUnownedK , + toInitiallyUnowned , + noInitiallyUnowned , + + + ) 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 + +newtype InitiallyUnowned = InitiallyUnowned (ForeignPtr InitiallyUnowned) +foreign import ccall "g_initially_unowned_get_type" + c_g_initially_unowned_get_type :: IO GType + +type instance ParentTypes InitiallyUnowned = InitiallyUnownedParentTypes +type InitiallyUnownedParentTypes = '[Object] + +instance GObject InitiallyUnowned where + gobjectIsInitiallyUnowned _ = True + gobjectType _ = c_g_initially_unowned_get_type + + +class GObject o => InitiallyUnownedK o +instance (GObject o, IsDescendantOf InitiallyUnowned o) => InitiallyUnownedK o + +toInitiallyUnowned :: InitiallyUnownedK o => o -> IO InitiallyUnowned +toInitiallyUnowned = unsafeCastTo InitiallyUnowned + +noInitiallyUnowned :: Maybe InitiallyUnowned +noInitiallyUnowned = Nothing + +type instance AttributeList InitiallyUnowned = InitiallyUnownedAttributeList +type InitiallyUnownedAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList InitiallyUnowned = InitiallyUnownedSignalList +type InitiallyUnownedSignalList = ('[ '("notify", ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + + diff --git a/GI/GObject/Objects/InitiallyUnowned.hs-boot b/GI/GObject/Objects/InitiallyUnowned.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Objects/InitiallyUnowned.hs-boot @@ -0,0 +1,13 @@ +module GI.GObject.Objects.InitiallyUnowned 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 + +newtype InitiallyUnowned = InitiallyUnowned (ForeignPtr InitiallyUnowned) +instance GObject InitiallyUnowned where +class GObject o => InitiallyUnownedK o +instance (GObject o, IsDescendantOf InitiallyUnowned o) => InitiallyUnownedK o diff --git a/GI/GObject/Objects/Object.hs b/GI/GObject/Objects/Object.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Objects/Object.hs @@ -0,0 +1,1027 @@ + +{- | +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.Objects.Object + ( + +-- * Exported types + Object(..) , + ObjectK , + toObject , + noObject , + + + -- * Methods +-- ** objectBindProperty + objectBindProperty , + + +-- ** objectBindPropertyFull + objectBindPropertyFull , + + +-- ** objectCompatControl + objectCompatControl , + + +-- ** objectForceFloating + objectForceFloating , + + +-- ** objectFreezeNotify + objectFreezeNotify , + + +-- ** objectGetData + objectGetData , + + +-- ** objectGetProperty + objectGetProperty , + + +-- ** objectGetQdata + objectGetQdata , + + +-- ** objectInterfaceFindProperty + objectInterfaceFindProperty , + + +-- ** objectInterfaceInstallProperty + objectInterfaceInstallProperty , + + +-- ** objectIsFloating + objectIsFloating , + + +-- ** objectNew + objectNew , + + +-- ** objectNotify + objectNotify , + + +-- ** objectNotifyByPspec + objectNotifyByPspec , + + +-- ** objectRef + objectRef , + + +-- ** objectRefSink + objectRefSink , + + +-- ** objectReplaceData + objectReplaceData , + + +-- ** objectReplaceQdata + objectReplaceQdata , + + +-- ** objectRunDispose + objectRunDispose , + + +-- ** objectSetData + objectSetData , + + +-- ** objectSetProperty + objectSetProperty , + + +-- ** objectStealData + objectStealData , + + +-- ** objectStealQdata + objectStealQdata , + + +-- ** objectThawNotify + objectThawNotify , + + +-- ** objectUnref + objectUnref , + + +-- ** objectWatchClosure + objectWatchClosure , + + + + + -- * Signals +-- ** Notify + ObjectNotifyCallback , + ObjectNotifyCallbackC , + ObjectNotifySignalInfo , + afterObjectNotify , + mkObjectNotifyCallback , + noObjectNotifyCallback , + objectNotifyCallbackWrapper , + objectNotifyClosure , + onObjectNotify , + + + + + ) 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 + +newtype Object = Object (ForeignPtr Object) +foreign import ccall "g_object_get_type" + c_g_object_get_type :: IO GType + +type instance ParentTypes Object = ObjectParentTypes +type ObjectParentTypes = '[] + +instance GObject Object where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_g_object_get_type + + +class GObject o => ObjectK o +instance (GObject o, IsDescendantOf Object o) => ObjectK o + +toObject :: ObjectK o => o -> IO Object +toObject = unsafeCastTo Object + +noObject :: Maybe Object +noObject = Nothing + +-- signal Object::notify +type ObjectNotifyCallback = + GParamSpec -> + IO () + +noObjectNotifyCallback :: Maybe ObjectNotifyCallback +noObjectNotifyCallback = Nothing + +type ObjectNotifyCallbackC = + Ptr () -> -- object + Ptr GParamSpec -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkObjectNotifyCallback :: ObjectNotifyCallbackC -> IO (FunPtr ObjectNotifyCallbackC) + +objectNotifyClosure :: ObjectNotifyCallback -> IO Closure +objectNotifyClosure cb = newCClosure =<< mkObjectNotifyCallback wrapped + where wrapped = objectNotifyCallbackWrapper cb + +objectNotifyCallbackWrapper :: + ObjectNotifyCallback -> + Ptr () -> + Ptr GParamSpec -> + Ptr () -> + IO () +objectNotifyCallbackWrapper _cb _ pspec _ = do + pspec' <- newGParamSpecFromPtr pspec + _cb pspec' + +onObjectNotify :: (GObject a, MonadIO m) => a -> ObjectNotifyCallback -> m SignalHandlerId +onObjectNotify obj cb = liftIO $ connectObjectNotify obj cb SignalConnectBefore +afterObjectNotify :: (GObject a, MonadIO m) => a -> ObjectNotifyCallback -> m SignalHandlerId +afterObjectNotify obj cb = connectObjectNotify obj cb SignalConnectAfter + +connectObjectNotify :: (GObject a, MonadIO m) => + a -> ObjectNotifyCallback -> SignalConnectMode -> m SignalHandlerId +connectObjectNotify obj cb after = liftIO $ do + cb' <- mkObjectNotifyCallback (objectNotifyCallbackWrapper cb) + connectSignalFunPtr obj "notify" cb' after + +type instance AttributeList Object = ObjectAttributeList +type ObjectAttributeList = ('[ ] :: [(Symbol, *)]) + +data ObjectNotifySignalInfo +instance SignalInfo ObjectNotifySignalInfo where + type HaskellCallbackType ObjectNotifySignalInfo = ObjectNotifyCallback + connectSignal _ = connectObjectNotify + +type instance SignalList Object = ObjectSignalList +type ObjectSignalList = ('[ '("notify", ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method Object::new +-- method type : Constructor +-- Args : [Arg {argName = "object_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_parameters", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TCArray False (-1) 1 (TInterface "GObject" "Parameter"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "n_parameters", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "object_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TCArray False (-1) 1 (TInterface "GObject" "Parameter"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GObject" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "g_object_newv" g_object_newv :: + CGType -> -- object_type : TBasicType TGType + Word32 -> -- n_parameters : TBasicType TUInt32 + Ptr Parameter -> -- parameters : TCArray False (-1) 1 (TInterface "GObject" "Parameter") + IO (Ptr Object) + + +objectNew :: + (MonadIO m) => + GType -> -- object_type + [Parameter] -> -- parameters + m Object +objectNew object_type parameters = liftIO $ do + let n_parameters = fromIntegral $ length parameters + let object_type' = gtypeToCGType object_type + let parameters' = map unsafeManagedPtrGetPtr parameters + parameters'' <- packBlockArray 32 parameters' + result <- g_object_newv object_type' n_parameters parameters'' + checkUnexpectedReturnNULL "g_object_newv" result + result' <- (wrapObject Object) result + mapM_ touchManagedPtr parameters + freeMem parameters'' + return result' + +-- method Object::bind_property +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "BindingFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "BindingFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GObject" "Binding" +-- throws : False +-- Skip return : False + +foreign import ccall "g_object_bind_property" g_object_bind_property :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + CString -> -- source_property : TBasicType TUTF8 + Ptr Object -> -- target : TInterface "GObject" "Object" + CString -> -- target_property : TBasicType TUTF8 + CUInt -> -- flags : TInterface "GObject" "BindingFlags" + IO (Ptr Binding) + + +objectBindProperty :: + (MonadIO m, ObjectK a, ObjectK b) => + a -> -- _obj + T.Text -> -- source_property + b -> -- target + T.Text -> -- target_property + [BindingFlags] -> -- flags + m Binding +objectBindProperty _obj source_property target target_property flags = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + source_property' <- textToCString source_property + let target' = unsafeManagedPtrCastPtr target + target_property' <- textToCString target_property + let flags' = gflagsToWord flags + result <- g_object_bind_property _obj' source_property' target' target_property' flags' + checkUnexpectedReturnNULL "g_object_bind_property" result + result' <- (newObject Binding) result + touchManagedPtr _obj + touchManagedPtr target + freeMem source_property' + freeMem target_property' + return result' + +-- method Object::bind_property_full +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "BindingFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transform_to", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transform_from", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GObject" "BindingFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transform_to", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transform_from", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GObject" "Binding" +-- throws : False +-- Skip return : False + +foreign import ccall "g_object_bind_property_with_closures" g_object_bind_property_with_closures :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + CString -> -- source_property : TBasicType TUTF8 + Ptr Object -> -- target : TInterface "GObject" "Object" + CString -> -- target_property : TBasicType TUTF8 + CUInt -> -- flags : TInterface "GObject" "BindingFlags" + Ptr Closure -> -- transform_to : TInterface "GObject" "Closure" + Ptr Closure -> -- transform_from : TInterface "GObject" "Closure" + IO (Ptr Binding) + + +objectBindPropertyFull :: + (MonadIO m, ObjectK a, ObjectK b) => + a -> -- _obj + T.Text -> -- source_property + b -> -- target + T.Text -> -- target_property + [BindingFlags] -> -- flags + Closure -> -- transform_to + Closure -> -- transform_from + m Binding +objectBindPropertyFull _obj source_property target target_property flags transform_to transform_from = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + source_property' <- textToCString source_property + let target' = unsafeManagedPtrCastPtr target + target_property' <- textToCString target_property + let flags' = gflagsToWord flags + let transform_to' = unsafeManagedPtrGetPtr transform_to + let transform_from' = unsafeManagedPtrGetPtr transform_from + result <- g_object_bind_property_with_closures _obj' source_property' target' target_property' flags' transform_to' transform_from' + checkUnexpectedReturnNULL "g_object_bind_property_with_closures" result + result' <- (newObject Binding) result + touchManagedPtr _obj + touchManagedPtr target + touchManagedPtr transform_to + touchManagedPtr transform_from + freeMem source_property' + freeMem target_property' + return result' + +-- method Object::force_floating +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", 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_object_force_floating" g_object_force_floating :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + IO () + + +objectForceFloating :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m () +objectForceFloating _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + g_object_force_floating _obj' + touchManagedPtr _obj + return () + +-- method Object::freeze_notify +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", 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_object_freeze_notify" g_object_freeze_notify :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + IO () + + +objectFreezeNotify :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m () +objectFreezeNotify _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + g_object_freeze_notify _obj' + touchManagedPtr _obj + return () + +-- method Object::get_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", 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_object_get_data" g_object_get_data :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + CString -> -- key : TBasicType TUTF8 + IO () + + +objectGetData :: + (MonadIO m, ObjectK a) => + a -> -- _obj + T.Text -> -- key + m () +objectGetData _obj key = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + g_object_get_data _obj' key' + touchManagedPtr _obj + freeMem key' + return () + +-- method Object::get_property +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, 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 = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, 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_object_get_property" g_object_get_property :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + CString -> -- property_name : TBasicType TUTF8 + Ptr GValue -> -- value : TInterface "GObject" "Value" + IO () + + +objectGetProperty :: + (MonadIO m, ObjectK a) => + a -> -- _obj + T.Text -> -- property_name + GValue -> -- value + m () +objectGetProperty _obj property_name value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + property_name' <- textToCString property_name + let value' = unsafeManagedPtrGetPtr value + g_object_get_property _obj' property_name' value' + touchManagedPtr _obj + touchManagedPtr value + freeMem property_name' + return () + +-- method Object::get_qdata +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", 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 = "_obj", argType = TInterface "GObject" "Object", 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_object_get_qdata" g_object_get_qdata :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + Word32 -> -- quark : TBasicType TUInt32 + IO () + + +objectGetQdata :: + (MonadIO m, ObjectK a) => + a -> -- _obj + Word32 -> -- quark + m () +objectGetQdata _obj quark = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + g_object_get_qdata _obj' quark + touchManagedPtr _obj + return () + +-- method Object::is_floating +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_object_is_floating" g_object_is_floating :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + IO CInt + + +objectIsFloating :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m Bool +objectIsFloating _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- g_object_is_floating _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Object::notify +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", 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_object_notify" g_object_notify :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + CString -> -- property_name : TBasicType TUTF8 + IO () + + +objectNotify :: + (MonadIO m, ObjectK a) => + a -> -- _obj + T.Text -> -- property_name + m () +objectNotify _obj property_name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + property_name' <- textToCString property_name + g_object_notify _obj' property_name' + touchManagedPtr _obj + freeMem property_name' + return () + +-- method Object::notify_by_pspec +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_object_notify_by_pspec" g_object_notify_by_pspec :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + Ptr GParamSpec -> -- pspec : TParamSpec + IO () + + +objectNotifyByPspec :: + (MonadIO m, ObjectK a) => + a -> -- _obj + GParamSpec -> -- pspec + m () +objectNotifyByPspec _obj pspec = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let pspec' = unsafeManagedPtrGetPtr pspec + g_object_notify_by_pspec _obj' pspec' + touchManagedPtr _obj + return () + +-- method Object::ref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GObject" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "g_object_ref" g_object_ref :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + IO (Ptr Object) + + +objectRef :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m Object +objectRef _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- g_object_ref _obj' + checkUnexpectedReturnNULL "g_object_ref" result + result' <- (newObject Object) result + touchManagedPtr _obj + return result' + +-- method Object::ref_sink +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GObject" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "g_object_ref_sink" g_object_ref_sink :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + IO (Ptr Object) + + +objectRefSink :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m Object +objectRefSink _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- g_object_ref_sink _obj' + checkUnexpectedReturnNULL "g_object_ref_sink" result + result' <- (newObject Object) result + touchManagedPtr _obj + return result' + +-- method Object::replace_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_object_replace_data" g_object_replace_data :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + CString -> -- key : TBasicType TUTF8 + Ptr () -> -- oldval : TBasicType TVoid + Ptr () -> -- newval : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" + FunPtr GLib.DestroyNotifyC -> -- old_destroy : TInterface "GLib" "DestroyNotify" + IO CInt + + +objectReplaceData :: + (MonadIO m, ObjectK a) => + a -> -- _obj + T.Text -> -- key + Maybe (Ptr ()) -> -- oldval + Maybe (Ptr ()) -> -- newval + Maybe (GLib.DestroyNotify) -> -- destroy + Maybe (GLib.DestroyNotify) -> -- old_destroy + m Bool +objectReplaceData _obj key oldval newval destroy old_destroy = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + maybeOldval <- case oldval of + Nothing -> return nullPtr + Just jOldval -> do + return jOldval + maybeNewval <- case newval of + Nothing -> return nullPtr + Just jNewval -> do + return jNewval + ptrdestroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) + maybeDestroy <- case destroy of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jDestroy -> do + jDestroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrdestroy) jDestroy) + poke ptrdestroy jDestroy' + return jDestroy' + ptrold_destroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) + maybeOld_destroy <- case old_destroy of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jOld_destroy -> do + jOld_destroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrold_destroy) jOld_destroy) + poke ptrold_destroy jOld_destroy' + return jOld_destroy' + result <- g_object_replace_data _obj' key' maybeOldval maybeNewval maybeDestroy maybeOld_destroy + let result' = (/= 0) result + touchManagedPtr _obj + freeMem key' + return result' + +-- method Object::replace_qdata +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", 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 = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", 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 = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_object_replace_qdata" g_object_replace_qdata :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + Word32 -> -- quark : TBasicType TUInt32 + Ptr () -> -- oldval : TBasicType TVoid + Ptr () -> -- newval : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" + FunPtr GLib.DestroyNotifyC -> -- old_destroy : TInterface "GLib" "DestroyNotify" + IO CInt + + +objectReplaceQdata :: + (MonadIO m, ObjectK a) => + a -> -- _obj + Word32 -> -- quark + Maybe (Ptr ()) -> -- oldval + Maybe (Ptr ()) -> -- newval + Maybe (GLib.DestroyNotify) -> -- destroy + Maybe (GLib.DestroyNotify) -> -- old_destroy + m Bool +objectReplaceQdata _obj quark oldval newval destroy old_destroy = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeOldval <- case oldval of + Nothing -> return nullPtr + Just jOldval -> do + return jOldval + maybeNewval <- case newval of + Nothing -> return nullPtr + Just jNewval -> do + return jNewval + ptrdestroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) + maybeDestroy <- case destroy of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jDestroy -> do + jDestroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrdestroy) jDestroy) + poke ptrdestroy jDestroy' + return jDestroy' + ptrold_destroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) + maybeOld_destroy <- case old_destroy of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jOld_destroy -> do + jOld_destroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrold_destroy) jOld_destroy) + poke ptrold_destroy jOld_destroy' + return jOld_destroy' + result <- g_object_replace_qdata _obj' quark maybeOldval maybeNewval maybeDestroy maybeOld_destroy + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Object::run_dispose +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", 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_object_run_dispose" g_object_run_dispose :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + IO () + + +objectRunDispose :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m () +objectRunDispose _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + g_object_run_dispose _obj' + touchManagedPtr _obj + return () + +-- method Object::set_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, 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 = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, 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_object_set_data" g_object_set_data :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + CString -> -- key : TBasicType TUTF8 + Ptr () -> -- data : TBasicType TVoid + IO () + + +objectSetData :: + (MonadIO m, ObjectK a) => + a -> -- _obj + T.Text -> -- key + Ptr () -> -- data + m () +objectSetData _obj key data_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + g_object_set_data _obj' key' data_ + touchManagedPtr _obj + freeMem key' + return () + +-- method Object::set_property +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, 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 = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, 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_object_set_property" g_object_set_property :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + CString -> -- property_name : TBasicType TUTF8 + Ptr GValue -> -- value : TInterface "GObject" "Value" + IO () + + +objectSetProperty :: + (MonadIO m, ObjectK a) => + a -> -- _obj + T.Text -> -- property_name + GValue -> -- value + m () +objectSetProperty _obj property_name value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + property_name' <- textToCString property_name + let value' = unsafeManagedPtrGetPtr value + g_object_set_property _obj' property_name' value' + touchManagedPtr _obj + touchManagedPtr value + freeMem property_name' + return () + +-- method Object::steal_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", 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_object_steal_data" g_object_steal_data :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + CString -> -- key : TBasicType TUTF8 + IO () + + +objectStealData :: + (MonadIO m, ObjectK a) => + a -> -- _obj + T.Text -> -- key + m () +objectStealData _obj key = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + g_object_steal_data _obj' key' + touchManagedPtr _obj + freeMem key' + return () + +-- method Object::steal_qdata +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", 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 = "_obj", argType = TInterface "GObject" "Object", 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_object_steal_qdata" g_object_steal_qdata :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + Word32 -> -- quark : TBasicType TUInt32 + IO () + + +objectStealQdata :: + (MonadIO m, ObjectK a) => + a -> -- _obj + Word32 -> -- quark + m () +objectStealQdata _obj quark = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + g_object_steal_qdata _obj' quark + touchManagedPtr _obj + return () + +-- method Object::thaw_notify +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", 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_object_thaw_notify" g_object_thaw_notify :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + IO () + + +objectThawNotify :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m () +objectThawNotify _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + g_object_thaw_notify _obj' + touchManagedPtr _obj + return () + +-- method Object::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", 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_object_unref" g_object_unref :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + IO () + + +objectUnref :: + (MonadIO m, ObjectK a) => + a -> -- _obj + m () +objectUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + g_object_unref _obj' + touchManagedPtr _obj + return () + +-- method Object::watch_closure +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "Object", 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 = "_obj", argType = TInterface "GObject" "Object", 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_object_watch_closure" g_object_watch_closure :: + Ptr Object -> -- _obj : TInterface "GObject" "Object" + Ptr Closure -> -- closure : TInterface "GObject" "Closure" + IO () + + +objectWatchClosure :: + (MonadIO m, ObjectK a) => + a -> -- _obj + Closure -> -- closure + m () +objectWatchClosure _obj closure = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let closure' = unsafeManagedPtrGetPtr closure + g_object_watch_closure _obj' closure' + touchManagedPtr _obj + touchManagedPtr closure + return () + +-- method Object::compat_control +-- method type : MemberFunction +-- Args : [Arg {argName = "what", argType = TBasicType TUInt64, 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 = "what", argType = TBasicType TUInt64, 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_object_compat_control" g_object_compat_control :: + Word64 -> -- what : TBasicType TUInt64 + Ptr () -> -- data : TBasicType TVoid + IO Word64 + + +objectCompatControl :: + (MonadIO m) => + Word64 -> -- what + Ptr () -> -- data + m Word64 +objectCompatControl what data_ = liftIO $ do + result <- g_object_compat_control what data_ + return result + +-- method Object::interface_find_property +-- method type : MemberFunction +-- Args : [Arg {argName = "g_iface", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "g_iface", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TParamSpec +-- throws : False +-- Skip return : False + +foreign import ccall "g_object_interface_find_property" g_object_interface_find_property :: + Ptr () -> -- g_iface : TBasicType TVoid + CString -> -- property_name : TBasicType TUTF8 + IO (Ptr GParamSpec) + + +objectInterfaceFindProperty :: + (MonadIO m) => + Ptr () -> -- g_iface + T.Text -> -- property_name + m GParamSpec +objectInterfaceFindProperty g_iface property_name = liftIO $ do + property_name' <- textToCString property_name + result <- g_object_interface_find_property g_iface property_name' + checkUnexpectedReturnNULL "g_object_interface_find_property" result + result' <- newGParamSpecFromPtr result + freeMem property_name' + return result' + +-- method Object::interface_install_property +-- method type : MemberFunction +-- Args : [Arg {argName = "g_iface", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "g_iface", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_object_interface_install_property" g_object_interface_install_property :: + Ptr () -> -- g_iface : TBasicType TVoid + Ptr GParamSpec -> -- pspec : TParamSpec + IO () + + +objectInterfaceInstallProperty :: + (MonadIO m) => + Ptr () -> -- g_iface + GParamSpec -> -- pspec + m () +objectInterfaceInstallProperty g_iface pspec = liftIO $ do + let pspec' = unsafeManagedPtrGetPtr pspec + g_object_interface_install_property g_iface pspec' + return () + +-- XXX Could not generate method Object::interface_list_properties +-- Error was : Not implemented: "unpackCArray : Don't know how to unpack C Array of type TParamSpec" + diff --git a/GI/GObject/Objects/Object.hs-boot b/GI/GObject/Objects/Object.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Objects/Object.hs-boot @@ -0,0 +1,14 @@ +module GI.GObject.Objects.Object 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 + +newtype Object = Object (ForeignPtr Object) +instance GObject Object where +class GObject o => ObjectK o +instance (GObject o, IsDescendantOf Object o) => ObjectK o +data ObjectNotifySignalInfo diff --git a/GI/GObject/Objects/TypeModule.hs b/GI/GObject/Objects/TypeModule.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Objects/TypeModule.hs @@ -0,0 +1,304 @@ + +{- | +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.Objects.TypeModule + ( + +-- * Exported types + TypeModule(..) , + TypeModuleK , + toTypeModule , + noTypeModule , + + + -- * Methods +-- ** typeModuleAddInterface + typeModuleAddInterface , + + +-- ** typeModuleRegisterEnum + typeModuleRegisterEnum , + + +-- ** typeModuleRegisterFlags + typeModuleRegisterFlags , + + +-- ** typeModuleRegisterType + typeModuleRegisterType , + + +-- ** typeModuleSetName + typeModuleSetName , + + +-- ** typeModuleUnuse + typeModuleUnuse , + + +-- ** typeModuleUse + typeModuleUse , + + + + + ) 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 + +newtype TypeModule = TypeModule (ForeignPtr TypeModule) +foreign import ccall "g_type_module_get_type" + c_g_type_module_get_type :: IO GType + +type instance ParentTypes TypeModule = TypeModuleParentTypes +type TypeModuleParentTypes = '[Object, TypePlugin] + +instance GObject TypeModule where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_g_type_module_get_type + + +class GObject o => TypeModuleK o +instance (GObject o, IsDescendantOf TypeModule o) => TypeModuleK o + +toTypeModule :: TypeModuleK o => o -> IO TypeModule +toTypeModule = unsafeCastTo TypeModule + +noTypeModule :: Maybe TypeModule +noTypeModule = Nothing + +type instance AttributeList TypeModule = TypeModuleAttributeList +type TypeModuleAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList TypeModule = TypeModuleSignalList +type TypeModuleSignalList = ('[ '("notify", ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method TypeModule::add_interface +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", 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 = "interface_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_info", argType = TInterface "GObject" "InterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", 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 = "interface_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_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_module_add_interface" g_type_module_add_interface :: + Ptr TypeModule -> -- _obj : TInterface "GObject" "TypeModule" + CGType -> -- instance_type : TBasicType TGType + CGType -> -- interface_type : TBasicType TGType + Ptr InterfaceInfo -> -- interface_info : TInterface "GObject" "InterfaceInfo" + IO () + + +typeModuleAddInterface :: + (MonadIO m, TypeModuleK a) => + a -> -- _obj + GType -> -- instance_type + GType -> -- interface_type + InterfaceInfo -> -- interface_info + m () +typeModuleAddInterface _obj instance_type interface_type interface_info = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let instance_type' = gtypeToCGType instance_type + let interface_type' = gtypeToCGType interface_type + let interface_info' = unsafeManagedPtrGetPtr interface_info + g_type_module_add_interface _obj' instance_type' interface_type' interface_info' + touchManagedPtr _obj + touchManagedPtr interface_info + return () + +-- method TypeModule::register_enum +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", 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},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 = "_obj", argType = TInterface "GObject" "TypeModule", 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},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_type_module_register_enum" g_type_module_register_enum :: + Ptr TypeModule -> -- _obj : TInterface "GObject" "TypeModule" + CString -> -- name : TBasicType TUTF8 + Ptr EnumValue -> -- const_static_values : TInterface "GObject" "EnumValue" + IO CGType + + +typeModuleRegisterEnum :: + (MonadIO m, TypeModuleK a) => + a -> -- _obj + T.Text -> -- name + EnumValue -> -- const_static_values + m GType +typeModuleRegisterEnum _obj name const_static_values = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + let const_static_values' = unsafeManagedPtrGetPtr const_static_values + result <- g_type_module_register_enum _obj' name' const_static_values' + let result' = GType result + touchManagedPtr _obj + touchManagedPtr const_static_values + freeMem name' + return result' + +-- method TypeModule::register_flags +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", 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},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 = "_obj", argType = TInterface "GObject" "TypeModule", 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},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_type_module_register_flags" g_type_module_register_flags :: + Ptr TypeModule -> -- _obj : TInterface "GObject" "TypeModule" + CString -> -- name : TBasicType TUTF8 + Ptr FlagsValue -> -- const_static_values : TInterface "GObject" "FlagsValue" + IO CGType + + +typeModuleRegisterFlags :: + (MonadIO m, TypeModuleK a) => + a -> -- _obj + T.Text -> -- name + FlagsValue -> -- const_static_values + m GType +typeModuleRegisterFlags _obj name const_static_values = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + let const_static_values' = unsafeManagedPtrGetPtr const_static_values + result <- g_type_module_register_flags _obj' name' const_static_values' + let result' = GType result + touchManagedPtr _obj + touchManagedPtr const_static_values + freeMem name' + return result' + +-- method TypeModule::register_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},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 = "type_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 = "_obj", argType = TInterface "GObject" "TypeModule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},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 = "type_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_module_register_type" g_type_module_register_type :: + Ptr TypeModule -> -- _obj : TInterface "GObject" "TypeModule" + CGType -> -- parent_type : TBasicType TGType + CString -> -- type_name : TBasicType TUTF8 + Ptr TypeInfo -> -- type_info : TInterface "GObject" "TypeInfo" + CUInt -> -- flags : TInterface "GObject" "TypeFlags" + IO CGType + + +typeModuleRegisterType :: + (MonadIO m, TypeModuleK a) => + a -> -- _obj + GType -> -- parent_type + T.Text -> -- type_name + TypeInfo -> -- type_info + [TypeFlags] -> -- flags + m GType +typeModuleRegisterType _obj parent_type type_name type_info flags = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let parent_type' = gtypeToCGType parent_type + type_name' <- textToCString type_name + let type_info' = unsafeManagedPtrGetPtr type_info + let flags' = gflagsToWord flags + result <- g_type_module_register_type _obj' parent_type' type_name' type_info' flags' + let result' = GType result + touchManagedPtr _obj + touchManagedPtr type_info + freeMem type_name' + return result' + +-- method TypeModule::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", 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 = "_obj", argType = TInterface "GObject" "TypeModule", 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 : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_type_module_set_name" g_type_module_set_name :: + Ptr TypeModule -> -- _obj : TInterface "GObject" "TypeModule" + CString -> -- name : TBasicType TUTF8 + IO () + + +typeModuleSetName :: + (MonadIO m, TypeModuleK a) => + a -> -- _obj + T.Text -> -- name + m () +typeModuleSetName _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + g_type_module_set_name _obj' name' + touchManagedPtr _obj + freeMem name' + return () + +-- method TypeModule::unuse +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", 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_module_unuse" g_type_module_unuse :: + Ptr TypeModule -> -- _obj : TInterface "GObject" "TypeModule" + IO () + + +typeModuleUnuse :: + (MonadIO m, TypeModuleK a) => + a -> -- _obj + m () +typeModuleUnuse _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + g_type_module_unuse _obj' + touchManagedPtr _obj + return () + +-- method TypeModule::use +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeModule", 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_module_use" g_type_module_use :: + Ptr TypeModule -> -- _obj : TInterface "GObject" "TypeModule" + IO CInt + + +typeModuleUse :: + (MonadIO m, TypeModuleK a) => + a -> -- _obj + m Bool +typeModuleUse _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- g_type_module_use _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + + diff --git a/GI/GObject/Objects/TypeModule.hs-boot b/GI/GObject/Objects/TypeModule.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Objects/TypeModule.hs-boot @@ -0,0 +1,13 @@ +module GI.GObject.Objects.TypeModule 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 + +newtype TypeModule = TypeModule (ForeignPtr TypeModule) +instance GObject TypeModule where +class GObject o => TypeModuleK o +instance (GObject o, IsDescendantOf TypeModule o) => TypeModuleK o diff --git a/GI/GObject/Structs.hs b/GI/GObject/Structs.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs.hs @@ -0,0 +1,70 @@ + +{- | +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.Structs + ( module GI.GObject.Structs.CClosure , + module GI.GObject.Structs.ClosureNotifyData, + module GI.GObject.Structs.EnumClass , + module GI.GObject.Structs.EnumValue , + module GI.GObject.Structs.FlagsClass , + module GI.GObject.Structs.FlagsValue , + module GI.GObject.Structs.InterfaceInfo , + module GI.GObject.Structs.ObjectConstructParam, + module GI.GObject.Structs.ParamSpecPool , + module GI.GObject.Structs.ParamSpecTypeInfo, + module GI.GObject.Structs.Parameter , + module GI.GObject.Structs.SignalInvocationHint, + module GI.GObject.Structs.SignalQuery , + module GI.GObject.Structs.TypeClass , + module GI.GObject.Structs.TypeFundamentalInfo, + module GI.GObject.Structs.TypeInfo , + module GI.GObject.Structs.TypeInstance , + module GI.GObject.Structs.TypeInterface , + module GI.GObject.Structs.TypePluginClass, + module GI.GObject.Structs.TypeQuery , + module GI.GObject.Structs.TypeValueTable, + module GI.GObject.Structs.ValueArray , + module GI.GObject.Structs.WeakRef , + + + ) where + +import GI.GObject.Structs.CClosure +import GI.GObject.Structs.ClosureNotifyData +import GI.GObject.Structs.EnumClass +import GI.GObject.Structs.EnumValue +import GI.GObject.Structs.FlagsClass +import GI.GObject.Structs.FlagsValue +import GI.GObject.Structs.InterfaceInfo +import GI.GObject.Structs.ObjectConstructParam +import GI.GObject.Structs.ParamSpecPool +import GI.GObject.Structs.ParamSpecTypeInfo +import GI.GObject.Structs.Parameter +import GI.GObject.Structs.SignalInvocationHint +import GI.GObject.Structs.SignalQuery +import GI.GObject.Structs.TypeClass +import GI.GObject.Structs.TypeFundamentalInfo +import GI.GObject.Structs.TypeInfo +import GI.GObject.Structs.TypeInstance +import GI.GObject.Structs.TypeInterface +import GI.GObject.Structs.TypePluginClass +import GI.GObject.Structs.TypeQuery +import GI.GObject.Structs.TypeValueTable +import GI.GObject.Structs.ValueArray +import GI.GObject.Structs.WeakRef + +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 + + diff --git a/GI/GObject/Structs/CClosure.hs b/GI/GObject/Structs/CClosure.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/CClosure.hs @@ -0,0 +1,56 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A #GCClosure is a specialization of #GClosure for C function callbacks. +-} + +module GI.GObject.Structs.CClosure + ( + +-- * Exported types + CClosure(..) , + noCClosure , + + + -- * Properties +-- ** Callback + cClosureReadCallback , + + +-- ** Closure + cClosureReadClosure , + + + + + ) 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 + +newtype CClosure = CClosure (ForeignPtr CClosure) +noCClosure :: Maybe CClosure +noCClosure = Nothing + +cClosureReadClosure :: CClosure -> IO Closure +cClosureReadClosure s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO (Ptr Closure) + val' <- (newBoxed Closure) val + return val' + +cClosureReadCallback :: CClosure -> IO (Ptr ()) +cClosureReadCallback s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 64) :: IO (Ptr ()) + return val + + diff --git a/GI/GObject/Structs/CClosure.hs-boot b/GI/GObject/Structs/CClosure.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/CClosure.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.CClosure 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 + +newtype CClosure = CClosure (ForeignPtr CClosure) diff --git a/GI/GObject/Structs/ClosureNotifyData.hs b/GI/GObject/Structs/ClosureNotifyData.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/ClosureNotifyData.hs @@ -0,0 +1,46 @@ + +{- | +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.Structs.ClosureNotifyData + ( + +-- * Exported types + ClosureNotifyData(..) , + noClosureNotifyData , + + + -- * Properties +-- ** Data + closureNotifyDataReadData , + + + + + ) 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 + +newtype ClosureNotifyData = ClosureNotifyData (ForeignPtr ClosureNotifyData) +noClosureNotifyData :: Maybe ClosureNotifyData +noClosureNotifyData = Nothing + +closureNotifyDataReadData :: ClosureNotifyData -> IO (Ptr ()) +closureNotifyDataReadData s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) + return val + +-- XXX Skipped getter for "ClosureNotifyData:notify" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + + diff --git a/GI/GObject/Structs/ClosureNotifyData.hs-boot b/GI/GObject/Structs/ClosureNotifyData.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/ClosureNotifyData.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.ClosureNotifyData 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 + +newtype ClosureNotifyData = ClosureNotifyData (ForeignPtr ClosureNotifyData) diff --git a/GI/GObject/Structs/EnumClass.hs b/GI/GObject/Structs/EnumClass.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/EnumClass.hs @@ -0,0 +1,85 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +The class of an enumeration type holds information about its +possible values. +-} + +module GI.GObject.Structs.EnumClass + ( + +-- * Exported types + EnumClass(..) , + noEnumClass , + + + -- * Properties +-- ** GTypeClass + enumClassReadGTypeClass , + + +-- ** Maximum + enumClassReadMaximum , + + +-- ** Minimum + enumClassReadMinimum , + + +-- ** NValues + enumClassReadNValues , + + +-- ** Values + enumClassReadValues , + + + + + ) 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 + +newtype EnumClass = EnumClass (ForeignPtr EnumClass) +noEnumClass :: Maybe EnumClass +noEnumClass = Nothing + +enumClassReadGTypeClass :: EnumClass -> IO TypeClass +enumClassReadGTypeClass s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO (Ptr TypeClass) + val' <- (newPtr 8 TypeClass) val + return val' + +enumClassReadMinimum :: EnumClass -> IO Int32 +enumClassReadMinimum s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Int32 + return val + +enumClassReadMaximum :: EnumClass -> IO Int32 +enumClassReadMaximum s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 12) :: IO Int32 + return val + +enumClassReadNValues :: EnumClass -> IO Word32 +enumClassReadNValues s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO Word32 + return val + +enumClassReadValues :: EnumClass -> IO EnumValue +enumClassReadValues s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 24) :: IO (Ptr EnumValue) + val' <- (newPtr 24 EnumValue) val + return val' + + diff --git a/GI/GObject/Structs/EnumClass.hs-boot b/GI/GObject/Structs/EnumClass.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/EnumClass.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.EnumClass 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 + +newtype EnumClass = EnumClass (ForeignPtr EnumClass) diff --git a/GI/GObject/Structs/EnumValue.hs b/GI/GObject/Structs/EnumValue.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/EnumValue.hs @@ -0,0 +1,67 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A structure which contains a single enum value, its name, and its +nickname. +-} + +module GI.GObject.Structs.EnumValue + ( + +-- * Exported types + EnumValue(..) , + noEnumValue , + + + -- * Properties +-- ** Value + enumValueReadValue , + + +-- ** ValueName + enumValueReadValueName , + + +-- ** ValueNick + enumValueReadValueNick , + + + + + ) 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 + +newtype EnumValue = EnumValue (ForeignPtr EnumValue) +noEnumValue :: Maybe EnumValue +noEnumValue = Nothing + +enumValueReadValue :: EnumValue -> IO Int32 +enumValueReadValue s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Int32 + return val + +enumValueReadValueName :: EnumValue -> IO T.Text +enumValueReadValueName s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO CString + val' <- cstringToText val + return val' + +enumValueReadValueNick :: EnumValue -> IO T.Text +enumValueReadValueNick s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO CString + val' <- cstringToText val + return val' + + diff --git a/GI/GObject/Structs/EnumValue.hs-boot b/GI/GObject/Structs/EnumValue.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/EnumValue.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.EnumValue 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 + +newtype EnumValue = EnumValue (ForeignPtr EnumValue) diff --git a/GI/GObject/Structs/FlagsClass.hs b/GI/GObject/Structs/FlagsClass.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/FlagsClass.hs @@ -0,0 +1,76 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +The class of a flags type holds information about its +possible values. +-} + +module GI.GObject.Structs.FlagsClass + ( + +-- * Exported types + FlagsClass(..) , + noFlagsClass , + + + -- * Properties +-- ** GTypeClass + flagsClassReadGTypeClass , + + +-- ** Mask + flagsClassReadMask , + + +-- ** NValues + flagsClassReadNValues , + + +-- ** Values + flagsClassReadValues , + + + + + ) 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 + +newtype FlagsClass = FlagsClass (ForeignPtr FlagsClass) +noFlagsClass :: Maybe FlagsClass +noFlagsClass = Nothing + +flagsClassReadGTypeClass :: FlagsClass -> IO TypeClass +flagsClassReadGTypeClass s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO (Ptr TypeClass) + val' <- (newPtr 8 TypeClass) val + return val' + +flagsClassReadMask :: FlagsClass -> IO Word32 +flagsClassReadMask s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Word32 + return val + +flagsClassReadNValues :: FlagsClass -> IO Word32 +flagsClassReadNValues s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 12) :: IO Word32 + return val + +flagsClassReadValues :: FlagsClass -> IO FlagsValue +flagsClassReadValues s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO (Ptr FlagsValue) + val' <- (newPtr 24 FlagsValue) val + return val' + + diff --git a/GI/GObject/Structs/FlagsClass.hs-boot b/GI/GObject/Structs/FlagsClass.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/FlagsClass.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.FlagsClass 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 + +newtype FlagsClass = FlagsClass (ForeignPtr FlagsClass) diff --git a/GI/GObject/Structs/FlagsValue.hs b/GI/GObject/Structs/FlagsValue.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/FlagsValue.hs @@ -0,0 +1,67 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A structure which contains a single flags value, its name, and its +nickname. +-} + +module GI.GObject.Structs.FlagsValue + ( + +-- * Exported types + FlagsValue(..) , + noFlagsValue , + + + -- * Properties +-- ** Value + flagsValueReadValue , + + +-- ** ValueName + flagsValueReadValueName , + + +-- ** ValueNick + flagsValueReadValueNick , + + + + + ) 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 + +newtype FlagsValue = FlagsValue (ForeignPtr FlagsValue) +noFlagsValue :: Maybe FlagsValue +noFlagsValue = Nothing + +flagsValueReadValue :: FlagsValue -> IO Word32 +flagsValueReadValue s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word32 + return val + +flagsValueReadValueName :: FlagsValue -> IO T.Text +flagsValueReadValueName s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO CString + val' <- cstringToText val + return val' + +flagsValueReadValueNick :: FlagsValue -> IO T.Text +flagsValueReadValueNick s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO CString + val' <- cstringToText val + return val' + + diff --git a/GI/GObject/Structs/FlagsValue.hs-boot b/GI/GObject/Structs/FlagsValue.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/FlagsValue.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.FlagsValue 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 + +newtype FlagsValue = FlagsValue (ForeignPtr FlagsValue) diff --git a/GI/GObject/Structs/InterfaceInfo.hs b/GI/GObject/Structs/InterfaceInfo.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/InterfaceInfo.hs @@ -0,0 +1,51 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A structure that provides information to the type system which is +used specifically for managing interface types. +-} + +module GI.GObject.Structs.InterfaceInfo + ( + +-- * Exported types + InterfaceInfo(..) , + noInterfaceInfo , + + + -- * Properties +-- ** InterfaceData + interfaceInfoReadInterfaceData , + + + + + ) 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 + +newtype InterfaceInfo = InterfaceInfo (ForeignPtr InterfaceInfo) +noInterfaceInfo :: Maybe InterfaceInfo +noInterfaceInfo = Nothing + +-- XXX Skipped getter for "InterfaceInfo:interface_init" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "InterfaceInfo:interface_finalize" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +interfaceInfoReadInterfaceData :: InterfaceInfo -> IO (Ptr ()) +interfaceInfoReadInterfaceData s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO (Ptr ()) + return val + + diff --git a/GI/GObject/Structs/InterfaceInfo.hs-boot b/GI/GObject/Structs/InterfaceInfo.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/InterfaceInfo.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.InterfaceInfo 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 + +newtype InterfaceInfo = InterfaceInfo (ForeignPtr InterfaceInfo) diff --git a/GI/GObject/Structs/ObjectConstructParam.hs b/GI/GObject/Structs/ObjectConstructParam.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/ObjectConstructParam.hs @@ -0,0 +1,59 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +The GObjectConstructParam struct is an auxiliary +structure used to hand #GParamSpec/#GValue pairs to the @constructor of +a #GObjectClass. +-} + +module GI.GObject.Structs.ObjectConstructParam + ( + +-- * Exported types + ObjectConstructParam(..) , + noObjectConstructParam , + + + -- * Properties +-- ** Pspec + objectConstructParamReadPspec , + + +-- ** Value + objectConstructParamReadValue , + + + + + ) 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 + +newtype ObjectConstructParam = ObjectConstructParam (ForeignPtr ObjectConstructParam) +noObjectConstructParam :: Maybe ObjectConstructParam +noObjectConstructParam = Nothing + +objectConstructParamReadPspec :: ObjectConstructParam -> IO GParamSpec +objectConstructParamReadPspec s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO (Ptr GParamSpec) + val' <- newGParamSpecFromPtr val + return val' + +objectConstructParamReadValue :: ObjectConstructParam -> IO GValue +objectConstructParamReadValue s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO (Ptr GValue) + val' <- (newBoxed GValue) val + return val' + + diff --git a/GI/GObject/Structs/ObjectConstructParam.hs-boot b/GI/GObject/Structs/ObjectConstructParam.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/ObjectConstructParam.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.ObjectConstructParam 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 + +newtype ObjectConstructParam = ObjectConstructParam (ForeignPtr ObjectConstructParam) diff --git a/GI/GObject/Structs/ParamSpecPool.hs b/GI/GObject/Structs/ParamSpecPool.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/ParamSpecPool.hs @@ -0,0 +1,182 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A #GParamSpecPool maintains a collection of #GParamSpecs which can be +quickly accessed by owner and name. The implementation of the #GObject property +system uses such a pool to store the #GParamSpecs of the properties all object +types. +-} + +module GI.GObject.Structs.ParamSpecPool + ( + +-- * Exported types + ParamSpecPool(..) , + noParamSpecPool , + + + -- * Methods +-- ** paramSpecPoolInsert + paramSpecPoolInsert , + + +-- ** paramSpecPoolListOwned + paramSpecPoolListOwned , + + +-- ** paramSpecPoolLookup + paramSpecPoolLookup , + + +-- ** paramSpecPoolRemove + paramSpecPoolRemove , + + + + + ) 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 + +newtype ParamSpecPool = ParamSpecPool (ForeignPtr ParamSpecPool) +noParamSpecPool :: Maybe ParamSpecPool +noParamSpecPool = Nothing + +-- method ParamSpecPool::insert +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ParamSpecPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ParamSpecPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_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_param_spec_pool_insert" g_param_spec_pool_insert :: + Ptr ParamSpecPool -> -- _obj : TInterface "GObject" "ParamSpecPool" + Ptr GParamSpec -> -- pspec : TParamSpec + CGType -> -- owner_type : TBasicType TGType + IO () + + +paramSpecPoolInsert :: + (MonadIO m) => + ParamSpecPool -> -- _obj + GParamSpec -> -- pspec + GType -> -- owner_type + m () +paramSpecPoolInsert _obj pspec owner_type = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let pspec' = unsafeManagedPtrGetPtr pspec + let owner_type' = gtypeToCGType owner_type + g_param_spec_pool_insert _obj' pspec' owner_type' + touchManagedPtr _obj + return () + +-- XXX Could not generate method ParamSpecPool::list +-- Error was : Not implemented: "unpackCArray : Don't know how to unpack C Array of type TParamSpec" +-- method ParamSpecPool::list_owned +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ParamSpecPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ParamSpecPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGList TParamSpec +-- throws : False +-- Skip return : False + +foreign import ccall "g_param_spec_pool_list_owned" g_param_spec_pool_list_owned :: + Ptr ParamSpecPool -> -- _obj : TInterface "GObject" "ParamSpecPool" + CGType -> -- owner_type : TBasicType TGType + IO (Ptr (GList (Ptr GParamSpec))) + + +paramSpecPoolListOwned :: + (MonadIO m) => + ParamSpecPool -> -- _obj + GType -> -- owner_type + m [GParamSpec] +paramSpecPoolListOwned _obj owner_type = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let owner_type' = gtypeToCGType owner_type + result <- g_param_spec_pool_list_owned _obj' owner_type' + checkUnexpectedReturnNULL "g_param_spec_pool_list_owned" result + result' <- unpackGList result + result'' <- mapM newGParamSpecFromPtr result' + g_list_free result + touchManagedPtr _obj + return result'' + +-- method ParamSpecPool::lookup +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ParamSpecPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "walk_ancestors", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ParamSpecPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "param_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "walk_ancestors", argType = TBasicType TBoolean, 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_pool_lookup" g_param_spec_pool_lookup :: + Ptr ParamSpecPool -> -- _obj : TInterface "GObject" "ParamSpecPool" + CString -> -- param_name : TBasicType TUTF8 + CGType -> -- owner_type : TBasicType TGType + CInt -> -- walk_ancestors : TBasicType TBoolean + IO (Ptr GParamSpec) + + +paramSpecPoolLookup :: + (MonadIO m) => + ParamSpecPool -> -- _obj + T.Text -> -- param_name + GType -> -- owner_type + Bool -> -- walk_ancestors + m GParamSpec +paramSpecPoolLookup _obj param_name owner_type walk_ancestors = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + param_name' <- textToCString param_name + let owner_type' = gtypeToCGType owner_type + let walk_ancestors' = (fromIntegral . fromEnum) walk_ancestors + result <- g_param_spec_pool_lookup _obj' param_name' owner_type' walk_ancestors' + checkUnexpectedReturnNULL "g_param_spec_pool_lookup" result + result' <- newGParamSpecFromPtr result + touchManagedPtr _obj + freeMem param_name' + return result' + +-- method ParamSpecPool::remove +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ParamSpecPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ParamSpecPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, 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_spec_pool_remove" g_param_spec_pool_remove :: + Ptr ParamSpecPool -> -- _obj : TInterface "GObject" "ParamSpecPool" + Ptr GParamSpec -> -- pspec : TParamSpec + IO () + + +paramSpecPoolRemove :: + (MonadIO m) => + ParamSpecPool -> -- _obj + GParamSpec -> -- pspec + m () +paramSpecPoolRemove _obj pspec = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let pspec' = unsafeManagedPtrGetPtr pspec + g_param_spec_pool_remove _obj' pspec' + touchManagedPtr _obj + return () + + diff --git a/GI/GObject/Structs/ParamSpecPool.hs-boot b/GI/GObject/Structs/ParamSpecPool.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/ParamSpecPool.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.ParamSpecPool 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 + +newtype ParamSpecPool = ParamSpecPool (ForeignPtr ParamSpecPool) diff --git a/GI/GObject/Structs/ParamSpecTypeInfo.hs b/GI/GObject/Structs/ParamSpecTypeInfo.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/ParamSpecTypeInfo.hs @@ -0,0 +1,81 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +This structure is used to provide the type system with the information +required to initialize and destruct (finalize) a parameter's class and +instances thereof. +The initialized structure is passed to the g_param_type_register_static() +The type system will perform a deep copy of this structure, so its memory +does not need to be persistent across invocation of +g_param_type_register_static(). +-} + +module GI.GObject.Structs.ParamSpecTypeInfo + ( + +-- * Exported types + ParamSpecTypeInfo(..) , + noParamSpecTypeInfo , + + + -- * Properties +-- ** InstanceSize + paramSpecTypeInfoReadInstanceSize , + + +-- ** NPreallocs + paramSpecTypeInfoReadNPreallocs , + + +-- ** ValueType + paramSpecTypeInfoReadValueType , + + + + + ) 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 + +newtype ParamSpecTypeInfo = ParamSpecTypeInfo (ForeignPtr ParamSpecTypeInfo) +noParamSpecTypeInfo :: Maybe ParamSpecTypeInfo +noParamSpecTypeInfo = Nothing + +paramSpecTypeInfoReadInstanceSize :: ParamSpecTypeInfo -> IO Word16 +paramSpecTypeInfoReadInstanceSize s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word16 + return val + +paramSpecTypeInfoReadNPreallocs :: ParamSpecTypeInfo -> IO Word16 +paramSpecTypeInfoReadNPreallocs s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 2) :: IO Word16 + return val + +-- XXX Skipped getter for "ParamSpecTypeInfo:instance_init" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +paramSpecTypeInfoReadValueType :: ParamSpecTypeInfo -> IO GType +paramSpecTypeInfoReadValueType s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO CGType + let val' = GType val + return val' + +-- XXX Skipped getter for "ParamSpecTypeInfo:finalize" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "ParamSpecTypeInfo:value_set_default" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "ParamSpecTypeInfo:value_validate" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "ParamSpecTypeInfo:values_cmp" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + + diff --git a/GI/GObject/Structs/ParamSpecTypeInfo.hs-boot b/GI/GObject/Structs/ParamSpecTypeInfo.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/ParamSpecTypeInfo.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.ParamSpecTypeInfo 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 + +newtype ParamSpecTypeInfo = ParamSpecTypeInfo (ForeignPtr ParamSpecTypeInfo) diff --git a/GI/GObject/Structs/Parameter.hs b/GI/GObject/Structs/Parameter.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/Parameter.hs @@ -0,0 +1,58 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +The GParameter struct is an auxiliary structure used +to hand parameter name/value pairs to g_object_newv(). +-} + +module GI.GObject.Structs.Parameter + ( + +-- * Exported types + Parameter(..) , + noParameter , + + + -- * Properties +-- ** Name + parameterReadName , + + +-- ** Value + parameterReadValue , + + + + + ) 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 + +newtype Parameter = Parameter (ForeignPtr Parameter) +noParameter :: Maybe Parameter +noParameter = Nothing + +parameterReadName :: Parameter -> IO T.Text +parameterReadName s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CString + val' <- cstringToText val + return val' + +parameterReadValue :: Parameter -> IO GValue +parameterReadValue s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO (Ptr GValue) + val' <- (newBoxed GValue) val + return val' + + diff --git a/GI/GObject/Structs/Parameter.hs-boot b/GI/GObject/Structs/Parameter.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/Parameter.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.Parameter 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 + +newtype Parameter = Parameter (ForeignPtr Parameter) diff --git a/GI/GObject/Structs/SignalInvocationHint.hs b/GI/GObject/Structs/SignalInvocationHint.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/SignalInvocationHint.hs @@ -0,0 +1,66 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +The #GSignalInvocationHint structure is used to pass on additional information +to callbacks during a signal emission. +-} + +module GI.GObject.Structs.SignalInvocationHint + ( + +-- * Exported types + SignalInvocationHint(..) , + noSignalInvocationHint , + + + -- * Properties +-- ** Detail + signalInvocationHintReadDetail , + + +-- ** RunType + signalInvocationHintReadRunType , + + +-- ** SignalId + signalInvocationHintReadSignalId , + + + + + ) 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 + +newtype SignalInvocationHint = SignalInvocationHint (ForeignPtr SignalInvocationHint) +noSignalInvocationHint :: Maybe SignalInvocationHint +noSignalInvocationHint = Nothing + +signalInvocationHintReadSignalId :: SignalInvocationHint -> IO Word32 +signalInvocationHintReadSignalId s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word32 + return val + +signalInvocationHintReadDetail :: SignalInvocationHint -> IO Word32 +signalInvocationHintReadDetail s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 4) :: IO Word32 + return val + +signalInvocationHintReadRunType :: SignalInvocationHint -> IO [SignalFlags] +signalInvocationHintReadRunType s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO CUInt + let val' = wordToGFlags val + return val' + + diff --git a/GI/GObject/Structs/SignalInvocationHint.hs-boot b/GI/GObject/Structs/SignalInvocationHint.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/SignalInvocationHint.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.SignalInvocationHint 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 + +newtype SignalInvocationHint = SignalInvocationHint (ForeignPtr SignalInvocationHint) diff --git a/GI/GObject/Structs/SignalQuery.hs b/GI/GObject/Structs/SignalQuery.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/SignalQuery.hs @@ -0,0 +1,98 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A structure holding in-depth information for a specific signal. It is +filled in by the g_signal_query() function. +-} + +module GI.GObject.Structs.SignalQuery + ( + +-- * Exported types + SignalQuery(..) , + noSignalQuery , + + + -- * Properties +-- ** Itype + signalQueryReadItype , + + +-- ** NParams + signalQueryReadNParams , + + +-- ** ReturnType + signalQueryReadReturnType , + + +-- ** SignalFlags + signalQueryReadSignalFlags , + + +-- ** SignalId + signalQueryReadSignalId , + + +-- ** SignalName + signalQueryReadSignalName , + + + + + ) 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 + +newtype SignalQuery = SignalQuery (ForeignPtr SignalQuery) +noSignalQuery :: Maybe SignalQuery +noSignalQuery = Nothing + +signalQueryReadSignalId :: SignalQuery -> IO Word32 +signalQueryReadSignalId s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word32 + return val + +signalQueryReadSignalName :: SignalQuery -> IO T.Text +signalQueryReadSignalName s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO CString + val' <- cstringToText val + return val' + +signalQueryReadItype :: SignalQuery -> IO GType +signalQueryReadItype s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO CGType + let val' = GType val + return val' + +signalQueryReadSignalFlags :: SignalQuery -> IO [SignalFlags] +signalQueryReadSignalFlags s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 24) :: IO CUInt + let val' = wordToGFlags val + return val' + +signalQueryReadReturnType :: SignalQuery -> IO GType +signalQueryReadReturnType s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 32) :: IO CGType + let val' = GType val + return val' + +signalQueryReadNParams :: SignalQuery -> IO Word32 +signalQueryReadNParams s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 40) :: IO Word32 + return val + +-- XXX Skipped getter for "SignalQuery:param_types" :: Not implemented: "Don't know how to unpack C array of type TCArray False (-1) 5 (TBasicType TGType)" + + diff --git a/GI/GObject/Structs/SignalQuery.hs-boot b/GI/GObject/Structs/SignalQuery.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/SignalQuery.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.SignalQuery 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 + +newtype SignalQuery = SignalQuery (ForeignPtr SignalQuery) diff --git a/GI/GObject/Structs/TypeClass.hs b/GI/GObject/Structs/TypeClass.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/TypeClass.hs @@ -0,0 +1,95 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +An opaque structure used as the base of all classes. +-} + +module GI.GObject.Structs.TypeClass + ( + +-- * Exported types + TypeClass(..) , + noTypeClass , + + + -- * Methods +-- ** typeClassPeekParent + typeClassPeekParent , + + +-- ** typeClassUnref + typeClassUnref , + + + + + ) 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 + +newtype TypeClass = TypeClass (ForeignPtr TypeClass) +noTypeClass :: Maybe TypeClass +noTypeClass = Nothing + +-- method TypeClass::peek_parent +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeClass", 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_parent" g_type_class_peek_parent :: + Ptr TypeClass -> -- _obj : TInterface "GObject" "TypeClass" + IO (Ptr TypeClass) + + +typeClassPeekParent :: + (MonadIO m) => + TypeClass -> -- _obj + m TypeClass +typeClassPeekParent _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_type_class_peek_parent _obj' + checkUnexpectedReturnNULL "g_type_class_peek_parent" result + result' <- (newPtr 8 TypeClass) result + touchManagedPtr _obj + return result' + +-- method TypeClass::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeClass", 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_unref" g_type_class_unref :: + Ptr TypeClass -> -- _obj : TInterface "GObject" "TypeClass" + IO () + + +typeClassUnref :: + (MonadIO m) => + TypeClass -> -- _obj + m () +typeClassUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_type_class_unref _obj' + touchManagedPtr _obj + return () + + diff --git a/GI/GObject/Structs/TypeClass.hs-boot b/GI/GObject/Structs/TypeClass.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/TypeClass.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.TypeClass 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 + +newtype TypeClass = TypeClass (ForeignPtr TypeClass) diff --git a/GI/GObject/Structs/TypeFundamentalInfo.hs b/GI/GObject/Structs/TypeFundamentalInfo.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/TypeFundamentalInfo.hs @@ -0,0 +1,48 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A structure that provides information to the type system which is +used specifically for managing fundamental types. +-} + +module GI.GObject.Structs.TypeFundamentalInfo + ( + +-- * Exported types + TypeFundamentalInfo(..) , + noTypeFundamentalInfo , + + + -- * Properties +-- ** TypeFlags + typeFundamentalInfoReadTypeFlags , + + + + + ) 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 + +newtype TypeFundamentalInfo = TypeFundamentalInfo (ForeignPtr TypeFundamentalInfo) +noTypeFundamentalInfo :: Maybe TypeFundamentalInfo +noTypeFundamentalInfo = Nothing + +typeFundamentalInfoReadTypeFlags :: TypeFundamentalInfo -> IO [TypeFundamentalFlags] +typeFundamentalInfoReadTypeFlags s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CUInt + let val' = wordToGFlags val + return val' + + diff --git a/GI/GObject/Structs/TypeFundamentalInfo.hs-boot b/GI/GObject/Structs/TypeFundamentalInfo.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/TypeFundamentalInfo.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.TypeFundamentalInfo 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 + +newtype TypeFundamentalInfo = TypeFundamentalInfo (ForeignPtr TypeFundamentalInfo) diff --git a/GI/GObject/Structs/TypeInfo.hs b/GI/GObject/Structs/TypeInfo.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/TypeInfo.hs @@ -0,0 +1,101 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +This structure is used to provide the type system with the information +required to initialize and destruct (finalize) a type's class and +its instances. + +The initialized structure is passed to the g_type_register_static() function +(or is copied into the provided #GTypeInfo structure in the +g_type_plugin_complete_type_info()). The type system will perform a deep +copy of this structure, so its memory does not need to be persistent +across invocation of g_type_register_static(). +-} + +module GI.GObject.Structs.TypeInfo + ( + +-- * Exported types + TypeInfo(..) , + noTypeInfo , + + + -- * Properties +-- ** ClassData + typeInfoReadClassData , + + +-- ** ClassSize + typeInfoReadClassSize , + + +-- ** InstanceSize + typeInfoReadInstanceSize , + + +-- ** NPreallocs + typeInfoReadNPreallocs , + + +-- ** ValueTable + typeInfoReadValueTable , + + + + + ) 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 + +newtype TypeInfo = TypeInfo (ForeignPtr TypeInfo) +noTypeInfo :: Maybe TypeInfo +noTypeInfo = Nothing + +typeInfoReadClassSize :: TypeInfo -> IO Word16 +typeInfoReadClassSize s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word16 + return val + +-- XXX Skipped getter for "TypeInfo:base_init" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "TypeInfo:base_finalize" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "TypeInfo:class_init" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "TypeInfo:class_finalize" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +typeInfoReadClassData :: TypeInfo -> IO (Ptr ()) +typeInfoReadClassData s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 40) :: IO (Ptr ()) + return val + +typeInfoReadInstanceSize :: TypeInfo -> IO Word16 +typeInfoReadInstanceSize s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 48) :: IO Word16 + return val + +typeInfoReadNPreallocs :: TypeInfo -> IO Word16 +typeInfoReadNPreallocs s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 50) :: IO Word16 + return val + +-- XXX Skipped getter for "TypeInfo:instance_init" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +typeInfoReadValueTable :: TypeInfo -> IO TypeValueTable +typeInfoReadValueTable s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 64) :: IO (Ptr TypeValueTable) + val' <- (newPtr 64 TypeValueTable) val + return val' + + diff --git a/GI/GObject/Structs/TypeInfo.hs-boot b/GI/GObject/Structs/TypeInfo.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/TypeInfo.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.TypeInfo 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 + +newtype TypeInfo = TypeInfo (ForeignPtr TypeInfo) diff --git a/GI/GObject/Structs/TypeInstance.hs b/GI/GObject/Structs/TypeInstance.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/TypeInstance.hs @@ -0,0 +1,34 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +An opaque structure used as the base of all type instances. +-} + +module GI.GObject.Structs.TypeInstance + ( + +-- * Exported types + TypeInstance(..) , + noTypeInstance , + + + ) 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 + +newtype TypeInstance = TypeInstance (ForeignPtr TypeInstance) +noTypeInstance :: Maybe TypeInstance +noTypeInstance = Nothing + + diff --git a/GI/GObject/Structs/TypeInstance.hs-boot b/GI/GObject/Structs/TypeInstance.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/TypeInstance.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.TypeInstance 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 + +newtype TypeInstance = TypeInstance (ForeignPtr TypeInstance) diff --git a/GI/GObject/Structs/TypeInterface.hs b/GI/GObject/Structs/TypeInterface.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/TypeInterface.hs @@ -0,0 +1,67 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +An opaque structure used as the base of all interface types. +-} + +module GI.GObject.Structs.TypeInterface + ( + +-- * Exported types + TypeInterface(..) , + noTypeInterface , + + + -- * Methods +-- ** typeInterfacePeekParent + typeInterfacePeekParent , + + + + + ) 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 + +newtype TypeInterface = TypeInterface (ForeignPtr TypeInterface) +noTypeInterface :: Maybe TypeInterface +noTypeInterface = Nothing + +-- method TypeInterface::peek_parent +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeInterface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "TypeInterface", 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_parent" g_type_interface_peek_parent :: + Ptr TypeInterface -> -- _obj : TInterface "GObject" "TypeInterface" + IO (Ptr TypeInterface) + + +typeInterfacePeekParent :: + (MonadIO m) => + TypeInterface -> -- _obj + m TypeInterface +typeInterfacePeekParent _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_type_interface_peek_parent _obj' + checkUnexpectedReturnNULL "g_type_interface_peek_parent" result + result' <- (newPtr 16 TypeInterface) result + touchManagedPtr _obj + return result' + + diff --git a/GI/GObject/Structs/TypeInterface.hs-boot b/GI/GObject/Structs/TypeInterface.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/TypeInterface.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.TypeInterface 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 + +newtype TypeInterface = TypeInterface (ForeignPtr TypeInterface) diff --git a/GI/GObject/Structs/TypePluginClass.hs b/GI/GObject/Structs/TypePluginClass.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/TypePluginClass.hs @@ -0,0 +1,43 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +The #GTypePlugin interface is used by the type system in order to handle +the lifecycle of dynamically loaded types. +-} + +module GI.GObject.Structs.TypePluginClass + ( + +-- * Exported types + TypePluginClass(..) , + noTypePluginClass , + + + ) 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 + +newtype TypePluginClass = TypePluginClass (ForeignPtr TypePluginClass) +noTypePluginClass :: Maybe TypePluginClass +noTypePluginClass = Nothing + +-- XXX Skipped getter for "TypePluginClass:use_plugin" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "TypePluginClass:unuse_plugin" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "TypePluginClass:complete_type_info" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "TypePluginClass:complete_interface_info" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + + diff --git a/GI/GObject/Structs/TypePluginClass.hs-boot b/GI/GObject/Structs/TypePluginClass.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/TypePluginClass.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.TypePluginClass 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 + +newtype TypePluginClass = TypePluginClass (ForeignPtr TypePluginClass) diff --git a/GI/GObject/Structs/TypeQuery.hs b/GI/GObject/Structs/TypeQuery.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/TypeQuery.hs @@ -0,0 +1,76 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A structure holding information for a specific type. +It is filled in by the g_type_query() function. +-} + +module GI.GObject.Structs.TypeQuery + ( + +-- * Exported types + TypeQuery(..) , + noTypeQuery , + + + -- * Properties +-- ** ClassSize + typeQueryReadClassSize , + + +-- ** InstanceSize + typeQueryReadInstanceSize , + + +-- ** Type + typeQueryReadType , + + +-- ** TypeName + typeQueryReadTypeName , + + + + + ) 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 + +newtype TypeQuery = TypeQuery (ForeignPtr TypeQuery) +noTypeQuery :: Maybe TypeQuery +noTypeQuery = Nothing + +typeQueryReadType :: TypeQuery -> IO GType +typeQueryReadType s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CGType + let val' = GType val + return val' + +typeQueryReadTypeName :: TypeQuery -> IO T.Text +typeQueryReadTypeName s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO CString + val' <- cstringToText val + return val' + +typeQueryReadClassSize :: TypeQuery -> IO Word32 +typeQueryReadClassSize s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO Word32 + return val + +typeQueryReadInstanceSize :: TypeQuery -> IO Word32 +typeQueryReadInstanceSize s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 20) :: IO Word32 + return val + + diff --git a/GI/GObject/Structs/TypeQuery.hs-boot b/GI/GObject/Structs/TypeQuery.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/TypeQuery.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.TypeQuery 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 + +newtype TypeQuery = TypeQuery (ForeignPtr TypeQuery) diff --git a/GI/GObject/Structs/TypeValueTable.hs b/GI/GObject/Structs/TypeValueTable.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/TypeValueTable.hs @@ -0,0 +1,68 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +The #GTypeValueTable provides the functions required by the #GValue +implementation, to serve as a container for values of a type. +-} + +module GI.GObject.Structs.TypeValueTable + ( + +-- * Exported types + TypeValueTable(..) , + noTypeValueTable , + + + -- * Properties +-- ** CollectFormat + typeValueTableReadCollectFormat , + + +-- ** LcopyFormat + typeValueTableReadLcopyFormat , + + + + + ) 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 + +newtype TypeValueTable = TypeValueTable (ForeignPtr TypeValueTable) +noTypeValueTable :: Maybe TypeValueTable +noTypeValueTable = Nothing + +-- XXX Skipped getter for "TypeValueTable:value_init" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "TypeValueTable:value_free" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "TypeValueTable:value_copy" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +typeValueTableReadCollectFormat :: TypeValueTable -> IO T.Text +typeValueTableReadCollectFormat s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 32) :: IO CString + val' <- cstringToText val + return val' + +-- XXX Skipped getter for "TypeValueTable:collect_value" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +typeValueTableReadLcopyFormat :: TypeValueTable -> IO T.Text +typeValueTableReadLcopyFormat s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 48) :: IO CString + val' <- cstringToText val + return val' + +-- XXX Skipped getter for "TypeValueTable:lcopy_value" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + + diff --git a/GI/GObject/Structs/TypeValueTable.hs-boot b/GI/GObject/Structs/TypeValueTable.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/TypeValueTable.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.TypeValueTable 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 + +newtype TypeValueTable = TypeValueTable (ForeignPtr TypeValueTable) diff --git a/GI/GObject/Structs/ValueArray.hs b/GI/GObject/Structs/ValueArray.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/ValueArray.hs @@ -0,0 +1,368 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A #GValueArray contains an array of #GValue elements. +-} + +module GI.GObject.Structs.ValueArray + ( + +-- * Exported types + ValueArray(..) , + noValueArray , + + + -- * Methods +-- ** valueArrayAppend + valueArrayAppend , + + +-- ** valueArrayCopy + valueArrayCopy , + + +-- ** valueArrayFree + valueArrayFree , + + +-- ** valueArrayGetNth + valueArrayGetNth , + + +-- ** valueArrayInsert + valueArrayInsert , + + +-- ** valueArrayNew + valueArrayNew , + + +-- ** valueArrayPrepend + valueArrayPrepend , + + +-- ** valueArrayRemove + valueArrayRemove , + + +-- ** valueArraySort + valueArraySort , + + + + + -- * Properties +-- ** NValues + valueArrayReadNValues , + + +-- ** Values + valueArrayReadValues , + + + + + ) 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 + +newtype ValueArray = ValueArray (ForeignPtr ValueArray) +foreign import ccall "g_value_array_get_type" c_g_value_array_get_type :: + IO GType + +instance BoxedObject ValueArray where + boxedType _ = c_g_value_array_get_type + +noValueArray :: Maybe ValueArray +noValueArray = Nothing + +valueArrayReadNValues :: ValueArray -> IO Word32 +valueArrayReadNValues s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word32 + return val + +valueArrayReadValues :: ValueArray -> IO GValue +valueArrayReadValues s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO (Ptr GValue) + val' <- (newBoxed GValue) val + return val' + +-- method ValueArray::new +-- method type : Constructor +-- Args : [Arg {argName = "n_prealloced", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "n_prealloced", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GObject" "ValueArray" +-- throws : False +-- Skip return : False + +foreign import ccall "g_value_array_new" g_value_array_new :: + Word32 -> -- n_prealloced : TBasicType TUInt32 + IO (Ptr ValueArray) + +{-# DEPRECATED valueArrayNew ["(Since version 2.32)","Use #GArray and g_array_sized_new() instead."]#-} +valueArrayNew :: + (MonadIO m) => + Word32 -> -- n_prealloced + m ValueArray +valueArrayNew n_prealloced = liftIO $ do + result <- g_value_array_new n_prealloced + checkUnexpectedReturnNULL "g_value_array_new" result + result' <- (wrapBoxed ValueArray) result + return result' + +-- method ValueArray::append +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GObject" "ValueArray" +-- throws : False +-- Skip return : False + +foreign import ccall "g_value_array_append" g_value_array_append :: + Ptr ValueArray -> -- _obj : TInterface "GObject" "ValueArray" + Ptr GValue -> -- value : TInterface "GObject" "Value" + IO (Ptr ValueArray) + +{-# DEPRECATED valueArrayAppend ["(Since version 2.32)","Use #GArray and g_array_append_val() instead."]#-} +valueArrayAppend :: + (MonadIO m) => + ValueArray -> -- _obj + Maybe (GValue) -> -- value + m ValueArray +valueArrayAppend _obj value = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeValue <- case value of + Nothing -> return nullPtr + Just jValue -> do + let jValue' = unsafeManagedPtrGetPtr jValue + return jValue' + result <- g_value_array_append _obj' maybeValue + checkUnexpectedReturnNULL "g_value_array_append" result + result' <- (newBoxed ValueArray) result + touchManagedPtr _obj + whenJust value touchManagedPtr + return result' + +-- method ValueArray::copy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GObject" "ValueArray" +-- throws : False +-- Skip return : False + +foreign import ccall "g_value_array_copy" g_value_array_copy :: + Ptr ValueArray -> -- _obj : TInterface "GObject" "ValueArray" + IO (Ptr ValueArray) + +{-# DEPRECATED valueArrayCopy ["(Since version 2.32)","Use #GArray and g_array_ref() instead."]#-} +valueArrayCopy :: + (MonadIO m) => + ValueArray -> -- _obj + m ValueArray +valueArrayCopy _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_value_array_copy _obj' + checkUnexpectedReturnNULL "g_value_array_copy" result + result' <- (wrapBoxed ValueArray) result + touchManagedPtr _obj + return result' + +-- method ValueArray::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_value_array_free" g_value_array_free :: + Ptr ValueArray -> -- _obj : TInterface "GObject" "ValueArray" + IO () + +{-# DEPRECATED valueArrayFree ["(Since version 2.32)","Use #GArray and g_array_unref() instead."]#-} +valueArrayFree :: + (MonadIO m) => + ValueArray -> -- _obj + m () +valueArrayFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_value_array_free _obj' + touchManagedPtr _obj + return () + +-- method ValueArray::get_nth +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GObject" "Value" +-- throws : False +-- Skip return : False + +foreign import ccall "g_value_array_get_nth" g_value_array_get_nth :: + Ptr ValueArray -> -- _obj : TInterface "GObject" "ValueArray" + Word32 -> -- index_ : TBasicType TUInt32 + IO (Ptr GValue) + +{-# DEPRECATED valueArrayGetNth ["(Since version 2.32)","Use g_array_index() instead."]#-} +valueArrayGetNth :: + (MonadIO m) => + ValueArray -> -- _obj + Word32 -> -- index_ + m GValue +valueArrayGetNth _obj index_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_value_array_get_nth _obj' index_ + checkUnexpectedReturnNULL "g_value_array_get_nth" result + result' <- (newBoxed GValue) result + touchManagedPtr _obj + return result' + +-- method ValueArray::insert +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GObject" "ValueArray" +-- throws : False +-- Skip return : False + +foreign import ccall "g_value_array_insert" g_value_array_insert :: + Ptr ValueArray -> -- _obj : TInterface "GObject" "ValueArray" + Word32 -> -- index_ : TBasicType TUInt32 + Ptr GValue -> -- value : TInterface "GObject" "Value" + IO (Ptr ValueArray) + +{-# DEPRECATED valueArrayInsert ["(Since version 2.32)","Use #GArray and g_array_insert_val() instead."]#-} +valueArrayInsert :: + (MonadIO m) => + ValueArray -> -- _obj + Word32 -> -- index_ + Maybe (GValue) -> -- value + m ValueArray +valueArrayInsert _obj index_ value = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeValue <- case value of + Nothing -> return nullPtr + Just jValue -> do + let jValue' = unsafeManagedPtrGetPtr jValue + return jValue' + result <- g_value_array_insert _obj' index_ maybeValue + checkUnexpectedReturnNULL "g_value_array_insert" result + result' <- (newBoxed ValueArray) result + touchManagedPtr _obj + whenJust value touchManagedPtr + return result' + +-- method ValueArray::prepend +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GObject" "ValueArray" +-- throws : False +-- Skip return : False + +foreign import ccall "g_value_array_prepend" g_value_array_prepend :: + Ptr ValueArray -> -- _obj : TInterface "GObject" "ValueArray" + Ptr GValue -> -- value : TInterface "GObject" "Value" + IO (Ptr ValueArray) + +{-# DEPRECATED valueArrayPrepend ["(Since version 2.32)","Use #GArray and g_array_prepend_val() instead."]#-} +valueArrayPrepend :: + (MonadIO m) => + ValueArray -> -- _obj + Maybe (GValue) -> -- value + m ValueArray +valueArrayPrepend _obj value = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeValue <- case value of + Nothing -> return nullPtr + Just jValue -> do + let jValue' = unsafeManagedPtrGetPtr jValue + return jValue' + result <- g_value_array_prepend _obj' maybeValue + checkUnexpectedReturnNULL "g_value_array_prepend" result + result' <- (newBoxed ValueArray) result + touchManagedPtr _obj + whenJust value touchManagedPtr + return result' + +-- method ValueArray::remove +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GObject" "ValueArray" +-- throws : False +-- Skip return : False + +foreign import ccall "g_value_array_remove" g_value_array_remove :: + Ptr ValueArray -> -- _obj : TInterface "GObject" "ValueArray" + Word32 -> -- index_ : TBasicType TUInt32 + IO (Ptr ValueArray) + +{-# DEPRECATED valueArrayRemove ["(Since version 2.32)","Use #GArray and g_array_remove_index() instead."]#-} +valueArrayRemove :: + (MonadIO m) => + ValueArray -> -- _obj + Word32 -> -- index_ + m ValueArray +valueArrayRemove _obj index_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_value_array_remove _obj' index_ + checkUnexpectedReturnNULL "g_value_array_remove" result + result' <- (newBoxed ValueArray) result + touchManagedPtr _obj + return result' + +-- method ValueArray::sort +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_func", argType = TInterface "GLib" "CompareDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GObject" "ValueArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_func", argType = TInterface "GLib" "CompareDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GObject" "ValueArray" +-- throws : False +-- Skip return : False + +foreign import ccall "g_value_array_sort_with_data" g_value_array_sort_with_data :: + Ptr ValueArray -> -- _obj : TInterface "GObject" "ValueArray" + FunPtr GLib.CompareDataFuncC -> -- compare_func : TInterface "GLib" "CompareDataFunc" + Ptr () -> -- user_data : TBasicType TVoid + IO (Ptr ValueArray) + +{-# DEPRECATED valueArraySort ["(Since version 2.32)","Use #GArray and g_array_sort_with_data()."]#-} +valueArraySort :: + (MonadIO m) => + ValueArray -> -- _obj + GLib.CompareDataFunc -> -- compare_func + m ValueArray +valueArraySort _obj compare_func = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + compare_func' <- GLib.mkCompareDataFunc (GLib.compareDataFuncWrapper Nothing compare_func) + let user_data = nullPtr + result <- g_value_array_sort_with_data _obj' compare_func' user_data + checkUnexpectedReturnNULL "g_value_array_sort_with_data" result + result' <- (newBoxed ValueArray) result + safeFreeFunPtr $ castFunPtrToPtr compare_func' + touchManagedPtr _obj + return result' + + diff --git a/GI/GObject/Structs/ValueArray.hs-boot b/GI/GObject/Structs/ValueArray.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/ValueArray.hs-boot @@ -0,0 +1,11 @@ +module GI.GObject.Structs.ValueArray 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 + +newtype ValueArray = ValueArray (ForeignPtr ValueArray) +instance BoxedObject ValueArray where diff --git a/GI/GObject/Structs/WeakRef.hs b/GI/GObject/Structs/WeakRef.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/WeakRef.hs @@ -0,0 +1,53 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A structure containing a weak reference to a #GObject. It can either +be empty (i.e. point to %NULL), or point to an object for as long as +at least one "strong" reference to that object exists. Before the +object's #GObjectClass.dispose method is called, every #GWeakRef +associated with becomes empty (i.e. points to %NULL). + +Like #GValue, #GWeakRef can be statically allocated, stack- or +heap-allocated, or embedded in larger structures. + +Unlike g_object_weak_ref() and g_object_add_weak_pointer(), this weak +reference is thread-safe: converting a weak pointer to a reference is +atomic with respect to invalidation of weak pointers to destroyed +objects. + +If the object's #GObjectClass.dispose method results in additional +references to the object being held, any #GWeakRefs taken +before it was disposed will continue to point to %NULL. If +#GWeakRefs are taken after the object is disposed and +re-referenced, they will continue to point to it until its refcount +goes back to zero, at which point they too will be invalidated. +-} + +module GI.GObject.Structs.WeakRef + ( + +-- * Exported types + WeakRef(..) , + noWeakRef , + + + ) 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 + +newtype WeakRef = WeakRef (ForeignPtr WeakRef) +noWeakRef :: Maybe WeakRef +noWeakRef = Nothing + + diff --git a/GI/GObject/Structs/WeakRef.hs-boot b/GI/GObject/Structs/WeakRef.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Structs/WeakRef.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Structs.WeakRef 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 + +newtype WeakRef = WeakRef (ForeignPtr WeakRef) diff --git a/GI/GObject/Types.hs b/GI/GObject/Types.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Types.hs @@ -0,0 +1,70 @@ +module GI.GObject.Types + ( module GI.GObject.Interfaces.TypePlugin , + module GI.GObject.Objects.Binding , + module GI.GObject.Objects.InitiallyUnowned, + module GI.GObject.Objects.Object , + module GI.GObject.Objects.TypeModule , + module GI.GObject.Structs.CClosure , + module GI.GObject.Structs.ClosureNotifyData, + module GI.GObject.Structs.EnumClass , + module GI.GObject.Structs.EnumValue , + module GI.GObject.Structs.FlagsClass , + module GI.GObject.Structs.FlagsValue , + module GI.GObject.Structs.InterfaceInfo , + module GI.GObject.Structs.ObjectConstructParam, + module GI.GObject.Structs.ParamSpecPool , + module GI.GObject.Structs.ParamSpecTypeInfo, + module GI.GObject.Structs.Parameter , + module GI.GObject.Structs.SignalInvocationHint, + module GI.GObject.Structs.SignalQuery , + module GI.GObject.Structs.TypeClass , + module GI.GObject.Structs.TypeFundamentalInfo, + module GI.GObject.Structs.TypeInfo , + module GI.GObject.Structs.TypeInstance , + module GI.GObject.Structs.TypeInterface , + module GI.GObject.Structs.TypePluginClass, + module GI.GObject.Structs.TypeQuery , + module GI.GObject.Structs.TypeValueTable, + module GI.GObject.Structs.ValueArray , + module GI.GObject.Structs.WeakRef , + module GI.GObject.Unions.TypeCValue , + module GI.GObject.Unions.Value_Data_Union_, + module GI.GObject.Flags , + + + ) where + + +import {-# SOURCE #-} GI.GObject.Interfaces.TypePlugin +import {-# SOURCE #-} GI.GObject.Objects.Binding +import {-# SOURCE #-} GI.GObject.Objects.InitiallyUnowned +import {-# SOURCE #-} GI.GObject.Objects.Object +import {-# SOURCE #-} GI.GObject.Objects.TypeModule +import {-# SOURCE #-} GI.GObject.Structs.CClosure +import {-# SOURCE #-} GI.GObject.Structs.ClosureNotifyData +import {-# SOURCE #-} GI.GObject.Structs.EnumClass +import {-# SOURCE #-} GI.GObject.Structs.EnumValue +import {-# SOURCE #-} GI.GObject.Structs.FlagsClass +import {-# SOURCE #-} GI.GObject.Structs.FlagsValue +import {-# SOURCE #-} GI.GObject.Structs.InterfaceInfo +import {-# SOURCE #-} GI.GObject.Structs.ObjectConstructParam +import {-# SOURCE #-} GI.GObject.Structs.ParamSpecPool +import {-# SOURCE #-} GI.GObject.Structs.ParamSpecTypeInfo +import {-# SOURCE #-} GI.GObject.Structs.Parameter +import {-# SOURCE #-} GI.GObject.Structs.SignalInvocationHint +import {-# SOURCE #-} GI.GObject.Structs.SignalQuery +import {-# SOURCE #-} GI.GObject.Structs.TypeClass +import {-# SOURCE #-} GI.GObject.Structs.TypeFundamentalInfo +import {-# SOURCE #-} GI.GObject.Structs.TypeInfo +import {-# SOURCE #-} GI.GObject.Structs.TypeInstance +import {-# SOURCE #-} GI.GObject.Structs.TypeInterface +import {-# SOURCE #-} GI.GObject.Structs.TypePluginClass +import {-# SOURCE #-} GI.GObject.Structs.TypeQuery +import {-# SOURCE #-} GI.GObject.Structs.TypeValueTable +import {-# SOURCE #-} GI.GObject.Structs.ValueArray +import {-# SOURCE #-} GI.GObject.Structs.WeakRef +import {-# SOURCE #-} GI.GObject.Unions.TypeCValue +import {-# SOURCE #-} GI.GObject.Unions.Value_Data_Union_ + +import GI.GObject.Flags + diff --git a/GI/GObject/Unions.hs b/GI/GObject/Unions.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Unions.hs @@ -0,0 +1,28 @@ + +{- | +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.Unions + ( module GI.GObject.Unions.TypeCValue , + module GI.GObject.Unions.Value_Data_Union_, + + + ) where + +import GI.GObject.Unions.TypeCValue +import GI.GObject.Unions.Value_Data_Union_ + +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 + + diff --git a/GI/GObject/Unions/TypeCValue.hs b/GI/GObject/Unions/TypeCValue.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Unions/TypeCValue.hs @@ -0,0 +1,81 @@ + +{- | +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.Unions.TypeCValue + ( + +-- * Exported types + TypeCValue(..) , + noTypeCValue , + + + -- * Properties +-- ** VDouble + typeCValueReadVDouble , + + +-- ** VInt + typeCValueReadVInt , + + +-- ** VInt64 + typeCValueReadVInt64 , + + +-- ** VLong + typeCValueReadVLong , + + +-- ** VPointer + typeCValueReadVPointer , + + + + + ) 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 + +newtype TypeCValue = TypeCValue (ForeignPtr TypeCValue) +noTypeCValue :: Maybe TypeCValue +noTypeCValue = Nothing + +typeCValueReadVInt :: TypeCValue -> IO Int32 +typeCValueReadVInt s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Int32 + return val + +typeCValueReadVLong :: TypeCValue -> IO Int64 +typeCValueReadVLong s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Int64 + return val + +typeCValueReadVInt64 :: TypeCValue -> IO Int64 +typeCValueReadVInt64 s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Int64 + return val + +typeCValueReadVDouble :: TypeCValue -> IO Double +typeCValueReadVDouble s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CDouble + let val' = realToFrac val + return val' + +typeCValueReadVPointer :: TypeCValue -> IO (Ptr ()) +typeCValueReadVPointer s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) + return val + + diff --git a/GI/GObject/Unions/TypeCValue.hs-boot b/GI/GObject/Unions/TypeCValue.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Unions/TypeCValue.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Unions.TypeCValue 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 + +newtype TypeCValue = TypeCValue (ForeignPtr TypeCValue) diff --git a/GI/GObject/Unions/Value_Data_Union_.hs b/GI/GObject/Unions/Value_Data_Union_.hs new file mode 100644 --- /dev/null +++ b/GI/GObject/Unions/Value_Data_Union_.hs @@ -0,0 +1,118 @@ + +{- | +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.Unions.Value_Data_Union_ + ( + +-- * Exported types + Value_Data_Union_(..) , + noValue_Data_Union_ , + + + -- * Properties +-- ** VDouble + value_Data_Union_ReadVDouble , + + +-- ** VFloat + value_Data_Union_ReadVFloat , + + +-- ** VInt + value_Data_Union_ReadVInt , + + +-- ** VInt64 + value_Data_Union_ReadVInt64 , + + +-- ** VLong + value_Data_Union_ReadVLong , + + +-- ** VPointer + value_Data_Union_ReadVPointer , + + +-- ** VUint + value_Data_Union_ReadVUint , + + +-- ** VUint64 + value_Data_Union_ReadVUint64 , + + +-- ** VUlong + value_Data_Union_ReadVUlong , + + + + + ) 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 + +newtype Value_Data_Union_ = Value_Data_Union_ (ForeignPtr Value_Data_Union_) +noValue_Data_Union_ :: Maybe Value_Data_Union_ +noValue_Data_Union_ = Nothing + +value_Data_Union_ReadVInt :: Value_Data_Union_ -> IO Int32 +value_Data_Union_ReadVInt s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Int32 + return val + +value_Data_Union_ReadVUint :: Value_Data_Union_ -> IO Word32 +value_Data_Union_ReadVUint s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word32 + return val + +value_Data_Union_ReadVLong :: Value_Data_Union_ -> IO Int64 +value_Data_Union_ReadVLong s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Int64 + return val + +value_Data_Union_ReadVUlong :: Value_Data_Union_ -> IO Word64 +value_Data_Union_ReadVUlong s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word64 + return val + +value_Data_Union_ReadVInt64 :: Value_Data_Union_ -> IO Int64 +value_Data_Union_ReadVInt64 s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Int64 + return val + +value_Data_Union_ReadVUint64 :: Value_Data_Union_ -> IO Word64 +value_Data_Union_ReadVUint64 s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word64 + return val + +value_Data_Union_ReadVFloat :: Value_Data_Union_ -> IO Float +value_Data_Union_ReadVFloat s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CFloat + let val' = realToFrac val + return val' + +value_Data_Union_ReadVDouble :: Value_Data_Union_ -> IO Double +value_Data_Union_ReadVDouble s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CDouble + let val' = realToFrac val + return val' + +value_Data_Union_ReadVPointer :: Value_Data_Union_ -> IO (Ptr ()) +value_Data_Union_ReadVPointer s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) + return val + + diff --git a/GI/GObject/Unions/Value_Data_Union_.hs-boot b/GI/GObject/Unions/Value_Data_Union_.hs-boot new file mode 100644 --- /dev/null +++ b/GI/GObject/Unions/Value_Data_Union_.hs-boot @@ -0,0 +1,10 @@ +module GI.GObject.Unions.Value_Data_Union_ 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 + +newtype Value_Data_Union_ = Value_Data_Union_ (ForeignPtr Value_Data_Union_) diff --git a/GI/GObjectAttributes.hs b/GI/GObjectAttributes.hs deleted file mode 100644 --- a/GI/GObjectAttributes.hs +++ /dev/null @@ -1,163 +0,0 @@ -{-# OPTIONS_GHC -fno-warn-orphans -fno-warn-unused-imports #-} - --- Generated code. - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - -{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds, - TypeFamilies, MultiParamTypeClasses, KindSignatures, - FlexibleInstances, UndecidableInstances, DataKinds, - OverloadedStrings, NegativeLiterals, FlexibleContexts #-} - -module GI.GObjectAttributes where - -import Prelude () -import Data.GI.Base.ShortPrelude -import Data.Char -import Data.Int -import Data.Word -import qualified Data.ByteString.Char8 as B -import Data.ByteString.Char8 (ByteString) -import qualified Data.Map as Map -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr -import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) -import Foreign.Storable (peek, poke, sizeOf) -import Control.Applicative ((<$>)) -import Control.Exception (onException) -import Control.Monad.IO.Class -import qualified Data.Text as T - -import Data.GI.Base.Attributes hiding (get, set) -import Data.GI.Base.BasicTypes -import Data.GI.Base.BasicConversions -import Data.GI.Base.Closure -import Data.GI.Base.GError -import Data.GI.Base.GHashTable -import Data.GI.Base.GParamSpec -import Data.GI.Base.GVariant -import Data.GI.Base.GValue -import Data.GI.Base.ManagedPtr -import Data.GI.Base.Overloading -import Data.GI.Base.Properties hiding (new) -import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId) -import Data.GI.Base.Utils - -import GI.GObject - --- VVV Prop "flags" - -- Type: TInterface "GObject" "BindingFlags" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getBindingFlags :: (MonadIO m, BindingK o) => o -> m [BindingFlags] -getBindingFlags obj = liftIO $ getObjectPropertyFlags obj "flags" - -constructBindingFlags :: [BindingFlags] -> IO ([Char], GValue) -constructBindingFlags val = constructObjectPropertyFlags "flags" val - -data BindingFlagsPropertyInfo -instance AttrInfo BindingFlagsPropertyInfo where - type AttrAllowedOps BindingFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint BindingFlagsPropertyInfo = (~) [BindingFlags] - type AttrBaseTypeConstraint BindingFlagsPropertyInfo = BindingK - type AttrGetType BindingFlagsPropertyInfo = [BindingFlags] - type AttrLabel BindingFlagsPropertyInfo = "Binding::flags" - attrGet _ = getBindingFlags - attrSet _ = undefined - attrConstruct _ = constructBindingFlags - --- VVV Prop "source" - -- Type: TInterface "GObject" "Object" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getBindingSource :: (MonadIO m, BindingK o) => o -> m Object -getBindingSource obj = liftIO $ getObjectPropertyObject obj "source" Object - -constructBindingSource :: (ObjectK a) => a -> IO ([Char], GValue) -constructBindingSource val = constructObjectPropertyObject "source" val - -data BindingSourcePropertyInfo -instance AttrInfo BindingSourcePropertyInfo where - type AttrAllowedOps BindingSourcePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint BindingSourcePropertyInfo = ObjectK - type AttrBaseTypeConstraint BindingSourcePropertyInfo = BindingK - type AttrGetType BindingSourcePropertyInfo = Object - type AttrLabel BindingSourcePropertyInfo = "Binding::source" - attrGet _ = getBindingSource - attrSet _ = undefined - attrConstruct _ = constructBindingSource - --- VVV Prop "source-property" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getBindingSourceProperty :: (MonadIO m, BindingK o) => o -> m T.Text -getBindingSourceProperty obj = liftIO $ getObjectPropertyString obj "source-property" - -constructBindingSourceProperty :: T.Text -> IO ([Char], GValue) -constructBindingSourceProperty val = constructObjectPropertyString "source-property" val - -data BindingSourcePropertyPropertyInfo -instance AttrInfo BindingSourcePropertyPropertyInfo where - type AttrAllowedOps BindingSourcePropertyPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint BindingSourcePropertyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint BindingSourcePropertyPropertyInfo = BindingK - type AttrGetType BindingSourcePropertyPropertyInfo = T.Text - type AttrLabel BindingSourcePropertyPropertyInfo = "Binding::source-property" - attrGet _ = getBindingSourceProperty - attrSet _ = undefined - attrConstruct _ = constructBindingSourceProperty - --- VVV Prop "target" - -- Type: TInterface "GObject" "Object" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getBindingTarget :: (MonadIO m, BindingK o) => o -> m Object -getBindingTarget obj = liftIO $ getObjectPropertyObject obj "target" Object - -constructBindingTarget :: (ObjectK a) => a -> IO ([Char], GValue) -constructBindingTarget val = constructObjectPropertyObject "target" val - -data BindingTargetPropertyInfo -instance AttrInfo BindingTargetPropertyInfo where - type AttrAllowedOps BindingTargetPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint BindingTargetPropertyInfo = ObjectK - type AttrBaseTypeConstraint BindingTargetPropertyInfo = BindingK - type AttrGetType BindingTargetPropertyInfo = Object - type AttrLabel BindingTargetPropertyInfo = "Binding::target" - attrGet _ = getBindingTarget - attrSet _ = undefined - attrConstruct _ = constructBindingTarget - --- VVV Prop "target-property" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getBindingTargetProperty :: (MonadIO m, BindingK o) => o -> m T.Text -getBindingTargetProperty obj = liftIO $ getObjectPropertyString obj "target-property" - -constructBindingTargetProperty :: T.Text -> IO ([Char], GValue) -constructBindingTargetProperty val = constructObjectPropertyString "target-property" val - -data BindingTargetPropertyPropertyInfo -instance AttrInfo BindingTargetPropertyPropertyInfo where - type AttrAllowedOps BindingTargetPropertyPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint BindingTargetPropertyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint BindingTargetPropertyPropertyInfo = BindingK - type AttrGetType BindingTargetPropertyPropertyInfo = T.Text - type AttrLabel BindingTargetPropertyPropertyInfo = "Binding::target-property" - attrGet _ = getBindingTargetProperty - attrSet _ = undefined - attrConstruct _ = constructBindingTargetProperty - -type instance AttributeList Binding = '[ '("flags", BindingFlagsPropertyInfo), '("source", BindingSourcePropertyInfo), '("source-property", BindingSourcePropertyPropertyInfo), '("target", BindingTargetPropertyInfo), '("target-property", BindingTargetPropertyPropertyInfo)] - -type instance AttributeList InitiallyUnowned = '[ ] - -type instance AttributeList Object = '[ ] - -type instance AttributeList TypeModule = '[ ] - -type instance AttributeList TypePlugin = '[ ] - diff --git a/GI/GObjectSignals.hs b/GI/GObjectSignals.hs deleted file mode 100644 --- a/GI/GObjectSignals.hs +++ /dev/null @@ -1,31 +0,0 @@ --- Generated code. - -{-# OPTIONS_GHC -fno-warn-orphans #-} - -{-# LANGUAGE DataKinds, FlexibleInstances, - TypeFamilies, MultiParamTypeClasses, - TypeOperators #-} - -module GI.GObjectSignals where - -import Data.GI.Base.Properties (GObjectNotifySignalInfo) -import Data.GI.Base.Signals -import Data.GI.Base.Overloading - -import GI.GObject - -type instance SignalList Binding = '[ '("notify", ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList InitiallyUnowned = '[ '("notify", ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data ObjectNotifySignalInfo -instance SignalInfo ObjectNotifySignalInfo where - type HaskellCallbackType ObjectNotifySignalInfo = ObjectNotifyCallback - connectSignal _ = connectObjectNotify - -type instance SignalList Object = '[ '("notify", ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList TypeModule = '[ '("notify", ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList TypePlugin = '[ ] - diff --git a/gi-gobject.cabal b/gi-gobject.cabal --- a/gi-gobject.cabal +++ b/gi-gobject.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-gobject -version: 0.2.44.11 +version: 0.2.44.12 synopsis: GObject bindings description: Bindings for GObject, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -14,11 +14,53 @@ library default-language: Haskell2010 - exposed-modules: GI.GObject, GI.GObjectAttributes, GI.GObjectSignals + default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts + other-extensions: PatternSynonyms ScopedTypeVariables, ViewPatterns + ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations + exposed-modules: GI.GObject.Types + GI.GObject + GI.GObject.Callbacks + GI.GObject.Constants + GI.GObject.Flags + GI.GObject.Functions + GI.GObject.Interfaces + GI.GObject.Interfaces.TypePlugin + GI.GObject.Objects + GI.GObject.Objects.Binding + GI.GObject.Objects.InitiallyUnowned + GI.GObject.Objects.Object + GI.GObject.Objects.TypeModule + GI.GObject.Structs + GI.GObject.Structs.CClosure + GI.GObject.Structs.ClosureNotifyData + GI.GObject.Structs.EnumClass + GI.GObject.Structs.EnumValue + GI.GObject.Structs.FlagsClass + GI.GObject.Structs.FlagsValue + GI.GObject.Structs.InterfaceInfo + GI.GObject.Structs.ObjectConstructParam + GI.GObject.Structs.ParamSpecPool + GI.GObject.Structs.ParamSpecTypeInfo + GI.GObject.Structs.Parameter + GI.GObject.Structs.SignalInvocationHint + GI.GObject.Structs.SignalQuery + GI.GObject.Structs.TypeClass + GI.GObject.Structs.TypeFundamentalInfo + GI.GObject.Structs.TypeInfo + GI.GObject.Structs.TypeInstance + GI.GObject.Structs.TypeInterface + GI.GObject.Structs.TypePluginClass + GI.GObject.Structs.TypeQuery + GI.GObject.Structs.TypeValueTable + GI.GObject.Structs.ValueArray + GI.GObject.Structs.WeakRef + GI.GObject.Unions + GI.GObject.Unions.TypeCValue + GI.GObject.Unions.Value_Data_Union_ pkgconfig-depends: gobject-2.0 >= 2.44 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.11 && < 1, - gi-glib >= 0.2.44.11 && < 0.2.45, + haskell-gi-base >= 0.12 && < 1, + gi-glib >= 0.2.44.12 && < 0.2.45, bytestring >= 0.10, containers >= 0.5, text >= 1.0,