{- | 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.GIRepository.Functions ( -- * Methods -- ** argInfoGetClosure argInfoGetClosure , -- ** argInfoGetDestroy argInfoGetDestroy , -- ** argInfoGetDirection argInfoGetDirection , -- ** argInfoGetOwnershipTransfer argInfoGetOwnershipTransfer , -- ** argInfoGetScope argInfoGetScope , -- ** argInfoGetType argInfoGetType , -- ** argInfoIsCallerAllocates argInfoIsCallerAllocates , -- ** argInfoIsOptional argInfoIsOptional , -- ** argInfoIsReturnValue argInfoIsReturnValue , -- ** argInfoIsSkip argInfoIsSkip , -- ** argInfoLoadType argInfoLoadType , -- ** argInfoMayBeNull argInfoMayBeNull , -- ** callableInfoCanThrowGerror callableInfoCanThrowGerror , -- ** callableInfoGetArg callableInfoGetArg , -- ** callableInfoGetCallerOwns callableInfoGetCallerOwns , -- ** callableInfoGetInstanceOwnershipTransfer callableInfoGetInstanceOwnershipTransfer, -- ** callableInfoGetNArgs callableInfoGetNArgs , -- ** callableInfoGetReturnAttribute callableInfoGetReturnAttribute , -- ** callableInfoGetReturnType callableInfoGetReturnType , -- ** callableInfoInvoke callableInfoInvoke , -- ** callableInfoIsMethod callableInfoIsMethod , -- ** callableInfoIterateReturnAttributes callableInfoIterateReturnAttributes , -- ** callableInfoLoadArg callableInfoLoadArg , -- ** callableInfoLoadReturnType callableInfoLoadReturnType , -- ** callableInfoMayReturnNull callableInfoMayReturnNull , -- ** callableInfoSkipReturn callableInfoSkipReturn , -- ** constantInfoGetType constantInfoGetType , -- ** enumInfoGetErrorDomain enumInfoGetErrorDomain , -- ** enumInfoGetMethod enumInfoGetMethod , -- ** enumInfoGetNMethods enumInfoGetNMethods , -- ** enumInfoGetNValues enumInfoGetNValues , -- ** enumInfoGetStorageType enumInfoGetStorageType , -- ** enumInfoGetValue enumInfoGetValue , -- ** fieldInfoGetFlags fieldInfoGetFlags , -- ** fieldInfoGetOffset fieldInfoGetOffset , -- ** fieldInfoGetSize fieldInfoGetSize , -- ** fieldInfoGetType fieldInfoGetType , -- ** functionInfoGetFlags functionInfoGetFlags , -- ** functionInfoGetProperty functionInfoGetProperty , -- ** functionInfoGetSymbol functionInfoGetSymbol , -- ** functionInfoGetVfunc functionInfoGetVfunc , -- ** infoNew infoNew , -- ** infoTypeToString infoTypeToString , -- ** interfaceInfoFindMethod interfaceInfoFindMethod , -- ** interfaceInfoFindSignal interfaceInfoFindSignal , -- ** interfaceInfoFindVfunc interfaceInfoFindVfunc , -- ** interfaceInfoGetConstant interfaceInfoGetConstant , -- ** interfaceInfoGetIfaceStruct interfaceInfoGetIfaceStruct , -- ** interfaceInfoGetMethod interfaceInfoGetMethod , -- ** interfaceInfoGetNConstants interfaceInfoGetNConstants , -- ** interfaceInfoGetNMethods interfaceInfoGetNMethods , -- ** interfaceInfoGetNPrerequisites interfaceInfoGetNPrerequisites , -- ** interfaceInfoGetNProperties interfaceInfoGetNProperties , -- ** interfaceInfoGetNSignals interfaceInfoGetNSignals , -- ** interfaceInfoGetNVfuncs interfaceInfoGetNVfuncs , -- ** interfaceInfoGetPrerequisite interfaceInfoGetPrerequisite , -- ** interfaceInfoGetProperty interfaceInfoGetProperty , -- ** interfaceInfoGetSignal interfaceInfoGetSignal , -- ** interfaceInfoGetVfunc interfaceInfoGetVfunc , -- ** invokeErrorQuark invokeErrorQuark , -- ** objectInfoFindMethod objectInfoFindMethod , -- ** objectInfoFindMethodUsingInterfaces objectInfoFindMethodUsingInterfaces , -- ** objectInfoFindSignal objectInfoFindSignal , -- ** objectInfoFindVfunc objectInfoFindVfunc , -- ** objectInfoFindVfuncUsingInterfaces objectInfoFindVfuncUsingInterfaces , -- ** objectInfoGetAbstract objectInfoGetAbstract , -- ** objectInfoGetClassStruct objectInfoGetClassStruct , -- ** objectInfoGetConstant objectInfoGetConstant , -- ** objectInfoGetField objectInfoGetField , -- ** objectInfoGetFundamental objectInfoGetFundamental , -- ** objectInfoGetGetValueFunction objectInfoGetGetValueFunction , -- ** objectInfoGetInterface objectInfoGetInterface , -- ** objectInfoGetMethod objectInfoGetMethod , -- ** objectInfoGetNConstants objectInfoGetNConstants , -- ** objectInfoGetNFields objectInfoGetNFields , -- ** objectInfoGetNInterfaces objectInfoGetNInterfaces , -- ** objectInfoGetNMethods objectInfoGetNMethods , -- ** objectInfoGetNProperties objectInfoGetNProperties , -- ** objectInfoGetNSignals objectInfoGetNSignals , -- ** objectInfoGetNVfuncs objectInfoGetNVfuncs , -- ** objectInfoGetParent objectInfoGetParent , -- ** objectInfoGetProperty objectInfoGetProperty , -- ** objectInfoGetRefFunction objectInfoGetRefFunction , -- ** objectInfoGetSetValueFunction objectInfoGetSetValueFunction , -- ** objectInfoGetSignal objectInfoGetSignal , -- ** objectInfoGetTypeInit objectInfoGetTypeInit , -- ** objectInfoGetTypeName objectInfoGetTypeName , -- ** objectInfoGetUnrefFunction objectInfoGetUnrefFunction , -- ** objectInfoGetVfunc objectInfoGetVfunc , -- ** propertyInfoGetFlags propertyInfoGetFlags , -- ** propertyInfoGetOwnershipTransfer propertyInfoGetOwnershipTransfer , -- ** propertyInfoGetType propertyInfoGetType , -- ** registeredTypeInfoGetGType registeredTypeInfoGetGType , -- ** registeredTypeInfoGetTypeInit registeredTypeInfoGetTypeInit , -- ** registeredTypeInfoGetTypeName registeredTypeInfoGetTypeName , -- ** signalInfoGetClassClosure signalInfoGetClassClosure , -- ** signalInfoGetFlags signalInfoGetFlags , -- ** signalInfoTrueStopsEmit signalInfoTrueStopsEmit , -- ** structInfoFindMethod structInfoFindMethod , -- ** structInfoGetAlignment structInfoGetAlignment , -- ** structInfoGetField structInfoGetField , -- ** structInfoGetMethod structInfoGetMethod , -- ** structInfoGetNFields structInfoGetNFields , -- ** structInfoGetNMethods structInfoGetNMethods , -- ** structInfoGetSize structInfoGetSize , -- ** structInfoIsForeign structInfoIsForeign , -- ** structInfoIsGtypeStruct structInfoIsGtypeStruct , -- ** typeInfoGetArrayFixedSize typeInfoGetArrayFixedSize , -- ** typeInfoGetArrayLength typeInfoGetArrayLength , -- ** typeInfoGetArrayType typeInfoGetArrayType , -- ** typeInfoGetInterface typeInfoGetInterface , -- ** typeInfoGetParamType typeInfoGetParamType , -- ** typeInfoGetTag typeInfoGetTag , -- ** typeInfoIsPointer typeInfoIsPointer , -- ** typeInfoIsZeroTerminated typeInfoIsZeroTerminated , -- ** typeTagToString typeTagToString , -- ** unionInfoFindMethod unionInfoFindMethod , -- ** unionInfoGetAlignment unionInfoGetAlignment , -- ** unionInfoGetDiscriminator unionInfoGetDiscriminator , -- ** unionInfoGetDiscriminatorOffset unionInfoGetDiscriminatorOffset , -- ** unionInfoGetDiscriminatorType unionInfoGetDiscriminatorType , -- ** unionInfoGetField unionInfoGetField , -- ** unionInfoGetMethod unionInfoGetMethod , -- ** unionInfoGetNFields unionInfoGetNFields , -- ** unionInfoGetNMethods unionInfoGetNMethods , -- ** unionInfoGetSize unionInfoGetSize , -- ** unionInfoIsDiscriminated unionInfoIsDiscriminated , -- ** valueInfoGetValue valueInfoGetValue , -- ** vfuncInfoGetFlags vfuncInfoGetFlags , -- ** vfuncInfoGetInvoker vfuncInfoGetInvoker , -- ** vfuncInfoGetOffset vfuncInfoGetOffset , -- ** vfuncInfoGetSignal vfuncInfoGetSignal , ) 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.GIRepository.Types import GI.GIRepository.Callbacks import qualified GI.GObject as GObject -- function g_vfunc_info_get_signal -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_vfunc_info_get_signal" g_vfunc_info_get_signal :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO (Ptr BaseInfo) vfuncInfoGetSignal :: (MonadIO m) => BaseInfo -> -- info m BaseInfo vfuncInfoGetSignal info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_vfunc_info_get_signal info' checkUnexpectedReturnNULL "g_vfunc_info_get_signal" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_vfunc_info_get_offset -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_vfunc_info_get_offset" g_vfunc_info_get_offset :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 vfuncInfoGetOffset :: (MonadIO m) => BaseInfo -> -- info m Int32 vfuncInfoGetOffset info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_vfunc_info_get_offset info' touchManagedPtr info return result -- function g_vfunc_info_get_invoker -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_vfunc_info_get_invoker" g_vfunc_info_get_invoker :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO (Ptr BaseInfo) vfuncInfoGetInvoker :: (MonadIO m) => BaseInfo -> -- info m BaseInfo vfuncInfoGetInvoker info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_vfunc_info_get_invoker info' checkUnexpectedReturnNULL "g_vfunc_info_get_invoker" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_vfunc_info_get_flags -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "VFuncInfoFlags" -- throws : False -- Skip return : False foreign import ccall "g_vfunc_info_get_flags" g_vfunc_info_get_flags :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CUInt vfuncInfoGetFlags :: (MonadIO m) => BaseInfo -> -- info m [VFuncInfoFlags] vfuncInfoGetFlags info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_vfunc_info_get_flags info' let result' = wordToGFlags result touchManagedPtr info return result' -- function g_value_info_get_value -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "g_value_info_get_value" g_value_info_get_value :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int64 valueInfoGetValue :: (MonadIO m) => BaseInfo -> -- info m Int64 valueInfoGetValue info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_value_info_get_value info' touchManagedPtr info return result -- function g_union_info_is_discriminated -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_union_info_is_discriminated" g_union_info_is_discriminated :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CInt unionInfoIsDiscriminated :: (MonadIO m) => BaseInfo -> -- info m Bool unionInfoIsDiscriminated info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_union_info_is_discriminated info' let result' = (/= 0) result touchManagedPtr info return result' -- function g_union_info_get_size -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False foreign import ccall "g_union_info_get_size" g_union_info_get_size :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Word64 unionInfoGetSize :: (MonadIO m) => BaseInfo -> -- info m Word64 unionInfoGetSize info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_union_info_get_size info' touchManagedPtr info return result -- function g_union_info_get_n_methods -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_union_info_get_n_methods" g_union_info_get_n_methods :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 unionInfoGetNMethods :: (MonadIO m) => BaseInfo -> -- info m Int32 unionInfoGetNMethods info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_union_info_get_n_methods info' touchManagedPtr info return result -- function g_union_info_get_n_fields -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_union_info_get_n_fields" g_union_info_get_n_fields :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 unionInfoGetNFields :: (MonadIO m) => BaseInfo -> -- info m Int32 unionInfoGetNFields info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_union_info_get_n_fields info' touchManagedPtr info return result -- function g_union_info_get_method -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_union_info_get_method" g_union_info_get_method :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) unionInfoGetMethod :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo unionInfoGetMethod info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_union_info_get_method info' n checkUnexpectedReturnNULL "g_union_info_get_method" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_union_info_get_field -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_union_info_get_field" g_union_info_get_field :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) unionInfoGetField :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo unionInfoGetField info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_union_info_get_field info' n checkUnexpectedReturnNULL "g_union_info_get_field" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_union_info_get_discriminator_type -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_union_info_get_discriminator_type" g_union_info_get_discriminator_type :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO (Ptr BaseInfo) unionInfoGetDiscriminatorType :: (MonadIO m) => BaseInfo -> -- info m BaseInfo unionInfoGetDiscriminatorType info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_union_info_get_discriminator_type info' checkUnexpectedReturnNULL "g_union_info_get_discriminator_type" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_union_info_get_discriminator_offset -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_union_info_get_discriminator_offset" g_union_info_get_discriminator_offset :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 unionInfoGetDiscriminatorOffset :: (MonadIO m) => BaseInfo -> -- info m Int32 unionInfoGetDiscriminatorOffset info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_union_info_get_discriminator_offset info' touchManagedPtr info return result -- function g_union_info_get_discriminator -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_union_info_get_discriminator" g_union_info_get_discriminator :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) unionInfoGetDiscriminator :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo unionInfoGetDiscriminator info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_union_info_get_discriminator info' n checkUnexpectedReturnNULL "g_union_info_get_discriminator" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_union_info_get_alignment -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False foreign import ccall "g_union_info_get_alignment" g_union_info_get_alignment :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Word64 unionInfoGetAlignment :: (MonadIO m) => BaseInfo -> -- info m Word64 unionInfoGetAlignment info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_union_info_get_alignment info' touchManagedPtr info return result -- function g_union_info_find_method -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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 = "info", argType = TInterface "GIRepository" "BaseInfo", 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 "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_union_info_find_method" g_union_info_find_method :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" CString -> -- name : TBasicType TUTF8 IO (Ptr BaseInfo) unionInfoFindMethod :: (MonadIO m) => BaseInfo -> -- info T.Text -> -- name m BaseInfo unionInfoFindMethod info name = liftIO $ do let info' = unsafeManagedPtrGetPtr info name' <- textToCString name result <- g_union_info_find_method info' name' checkUnexpectedReturnNULL "g_union_info_find_method" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info freeMem name' return result' -- function g_type_tag_to_string -- Args : [Arg {argName = "type", argType = TInterface "GIRepository" "TypeTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TInterface "GIRepository" "TypeTag", 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_tag_to_string" g_type_tag_to_string :: CUInt -> -- type : TInterface "GIRepository" "TypeTag" IO CString typeTagToString :: (MonadIO m) => TypeTag -> -- type m T.Text typeTagToString type_ = liftIO $ do let type_' = (fromIntegral . fromEnum) type_ result <- g_type_tag_to_string type_' checkUnexpectedReturnNULL "g_type_tag_to_string" result result' <- cstringToText result return result' -- function g_type_info_is_zero_terminated -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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_info_is_zero_terminated" g_type_info_is_zero_terminated :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CInt typeInfoIsZeroTerminated :: (MonadIO m) => BaseInfo -> -- info m Bool typeInfoIsZeroTerminated info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_type_info_is_zero_terminated info' let result' = (/= 0) result touchManagedPtr info return result' -- function g_type_info_is_pointer -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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_info_is_pointer" g_type_info_is_pointer :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CInt typeInfoIsPointer :: (MonadIO m) => BaseInfo -> -- info m Bool typeInfoIsPointer info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_type_info_is_pointer info' let result' = (/= 0) result touchManagedPtr info return result' -- function g_type_info_get_tag -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "TypeTag" -- throws : False -- Skip return : False foreign import ccall "g_type_info_get_tag" g_type_info_get_tag :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CUInt typeInfoGetTag :: (MonadIO m) => BaseInfo -> -- info m TypeTag typeInfoGetTag info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_type_info_get_tag info' let result' = (toEnum . fromIntegral) result touchManagedPtr info return result' -- function g_type_info_get_param_type -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_type_info_get_param_type" g_type_info_get_param_type :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) typeInfoGetParamType :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo typeInfoGetParamType info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_type_info_get_param_type info' n checkUnexpectedReturnNULL "g_type_info_get_param_type" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_type_info_get_interface -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_type_info_get_interface" g_type_info_get_interface :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO (Ptr BaseInfo) typeInfoGetInterface :: (MonadIO m) => BaseInfo -> -- info m BaseInfo typeInfoGetInterface info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_type_info_get_interface info' checkUnexpectedReturnNULL "g_type_info_get_interface" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_type_info_get_array_type -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "ArrayType" -- throws : False -- Skip return : False foreign import ccall "g_type_info_get_array_type" g_type_info_get_array_type :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CUInt typeInfoGetArrayType :: (MonadIO m) => BaseInfo -> -- info m ArrayType typeInfoGetArrayType info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_type_info_get_array_type info' let result' = (toEnum . fromIntegral) result touchManagedPtr info return result' -- function g_type_info_get_array_length -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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_info_get_array_length" g_type_info_get_array_length :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 typeInfoGetArrayLength :: (MonadIO m) => BaseInfo -> -- info m Int32 typeInfoGetArrayLength info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_type_info_get_array_length info' touchManagedPtr info return result -- function g_type_info_get_array_fixed_size -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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_info_get_array_fixed_size" g_type_info_get_array_fixed_size :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 typeInfoGetArrayFixedSize :: (MonadIO m) => BaseInfo -> -- info m Int32 typeInfoGetArrayFixedSize info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_type_info_get_array_fixed_size info' touchManagedPtr info return result -- function g_struct_info_is_gtype_struct -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_struct_info_is_gtype_struct" g_struct_info_is_gtype_struct :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CInt structInfoIsGtypeStruct :: (MonadIO m) => BaseInfo -> -- info m Bool structInfoIsGtypeStruct info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_struct_info_is_gtype_struct info' let result' = (/= 0) result touchManagedPtr info return result' -- function g_struct_info_is_foreign -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_struct_info_is_foreign" g_struct_info_is_foreign :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CInt structInfoIsForeign :: (MonadIO m) => BaseInfo -> -- info m Bool structInfoIsForeign info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_struct_info_is_foreign info' let result' = (/= 0) result touchManagedPtr info return result' -- function g_struct_info_get_size -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False foreign import ccall "g_struct_info_get_size" g_struct_info_get_size :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Word64 structInfoGetSize :: (MonadIO m) => BaseInfo -> -- info m Word64 structInfoGetSize info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_struct_info_get_size info' touchManagedPtr info return result -- function g_struct_info_get_n_methods -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_struct_info_get_n_methods" g_struct_info_get_n_methods :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 structInfoGetNMethods :: (MonadIO m) => BaseInfo -> -- info m Int32 structInfoGetNMethods info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_struct_info_get_n_methods info' touchManagedPtr info return result -- function g_struct_info_get_n_fields -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_struct_info_get_n_fields" g_struct_info_get_n_fields :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 structInfoGetNFields :: (MonadIO m) => BaseInfo -> -- info m Int32 structInfoGetNFields info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_struct_info_get_n_fields info' touchManagedPtr info return result -- function g_struct_info_get_method -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_struct_info_get_method" g_struct_info_get_method :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) structInfoGetMethod :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo structInfoGetMethod info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_struct_info_get_method info' n checkUnexpectedReturnNULL "g_struct_info_get_method" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_struct_info_get_field -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_struct_info_get_field" g_struct_info_get_field :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) structInfoGetField :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo structInfoGetField info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_struct_info_get_field info' n checkUnexpectedReturnNULL "g_struct_info_get_field" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_struct_info_get_alignment -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False foreign import ccall "g_struct_info_get_alignment" g_struct_info_get_alignment :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Word64 structInfoGetAlignment :: (MonadIO m) => BaseInfo -> -- info m Word64 structInfoGetAlignment info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_struct_info_get_alignment info' touchManagedPtr info return result -- function g_struct_info_find_method -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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 = "info", argType = TInterface "GIRepository" "BaseInfo", 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 "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_struct_info_find_method" g_struct_info_find_method :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" CString -> -- name : TBasicType TUTF8 IO (Ptr BaseInfo) structInfoFindMethod :: (MonadIO m) => BaseInfo -> -- info T.Text -> -- name m BaseInfo structInfoFindMethod info name = liftIO $ do let info' = unsafeManagedPtrGetPtr info name' <- textToCString name result <- g_struct_info_find_method info' name' checkUnexpectedReturnNULL "g_struct_info_find_method" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info freeMem name' return result' -- function g_signal_info_true_stops_emit -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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_info_true_stops_emit" g_signal_info_true_stops_emit :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CInt signalInfoTrueStopsEmit :: (MonadIO m) => BaseInfo -> -- info m Bool signalInfoTrueStopsEmit info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_signal_info_true_stops_emit info' let result' = (/= 0) result touchManagedPtr info return result' -- function g_signal_info_get_flags -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "SignalFlags" -- throws : False -- Skip return : False foreign import ccall "g_signal_info_get_flags" g_signal_info_get_flags :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CUInt signalInfoGetFlags :: (MonadIO m) => BaseInfo -> -- info m [GObject.SignalFlags] signalInfoGetFlags info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_signal_info_get_flags info' let result' = wordToGFlags result touchManagedPtr info return result' -- function g_signal_info_get_class_closure -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_signal_info_get_class_closure" g_signal_info_get_class_closure :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO (Ptr BaseInfo) signalInfoGetClassClosure :: (MonadIO m) => BaseInfo -> -- info m BaseInfo signalInfoGetClassClosure info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_signal_info_get_class_closure info' checkUnexpectedReturnNULL "g_signal_info_get_class_closure" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_registered_type_info_get_type_name -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_registered_type_info_get_type_name" g_registered_type_info_get_type_name :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CString registeredTypeInfoGetTypeName :: (MonadIO m) => BaseInfo -> -- info m T.Text registeredTypeInfoGetTypeName info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_registered_type_info_get_type_name info' checkUnexpectedReturnNULL "g_registered_type_info_get_type_name" result result' <- cstringToText result touchManagedPtr info return result' -- function g_registered_type_info_get_type_init -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_registered_type_info_get_type_init" g_registered_type_info_get_type_init :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CString registeredTypeInfoGetTypeInit :: (MonadIO m) => BaseInfo -> -- info m T.Text registeredTypeInfoGetTypeInit info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_registered_type_info_get_type_init info' checkUnexpectedReturnNULL "g_registered_type_info_get_type_init" result result' <- cstringToText result touchManagedPtr info return result' -- function g_registered_type_info_get_g_type -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "g_registered_type_info_get_g_type" g_registered_type_info_get_g_type :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CGType registeredTypeInfoGetGType :: (MonadIO m) => BaseInfo -> -- info m GType registeredTypeInfoGetGType info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_registered_type_info_get_g_type info' let result' = GType result touchManagedPtr info return result' -- function g_property_info_get_type -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_property_info_get_type" g_property_info_get_type :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO (Ptr BaseInfo) propertyInfoGetType :: (MonadIO m) => BaseInfo -> -- info m BaseInfo propertyInfoGetType info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_property_info_get_type info' checkUnexpectedReturnNULL "g_property_info_get_type" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_property_info_get_ownership_transfer -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "Transfer" -- throws : False -- Skip return : False foreign import ccall "g_property_info_get_ownership_transfer" g_property_info_get_ownership_transfer :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CUInt propertyInfoGetOwnershipTransfer :: (MonadIO m) => BaseInfo -> -- info m Transfer propertyInfoGetOwnershipTransfer info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_property_info_get_ownership_transfer info' let result' = (toEnum . fromIntegral) result touchManagedPtr info return result' -- function g_property_info_get_flags -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "ParamFlags" -- throws : False -- Skip return : False foreign import ccall "g_property_info_get_flags" g_property_info_get_flags :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CUInt propertyInfoGetFlags :: (MonadIO m) => BaseInfo -> -- info m [GObject.ParamFlags] propertyInfoGetFlags info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_property_info_get_flags info' let result' = wordToGFlags result touchManagedPtr info return result' -- function g_object_info_get_vfunc -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_vfunc" g_object_info_get_vfunc :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) objectInfoGetVfunc :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo objectInfoGetVfunc info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_vfunc info' n checkUnexpectedReturnNULL "g_object_info_get_vfunc" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_object_info_get_unref_function -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_unref_function" g_object_info_get_unref_function :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CString objectInfoGetUnrefFunction :: (MonadIO m) => BaseInfo -> -- info m T.Text objectInfoGetUnrefFunction info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_unref_function info' checkUnexpectedReturnNULL "g_object_info_get_unref_function" result result' <- cstringToText result touchManagedPtr info return result' -- function g_object_info_get_type_name -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_type_name" g_object_info_get_type_name :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CString objectInfoGetTypeName :: (MonadIO m) => BaseInfo -> -- info m T.Text objectInfoGetTypeName info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_type_name info' checkUnexpectedReturnNULL "g_object_info_get_type_name" result result' <- cstringToText result touchManagedPtr info return result' -- function g_object_info_get_type_init -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_type_init" g_object_info_get_type_init :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CString objectInfoGetTypeInit :: (MonadIO m) => BaseInfo -> -- info m T.Text objectInfoGetTypeInit info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_type_init info' checkUnexpectedReturnNULL "g_object_info_get_type_init" result result' <- cstringToText result touchManagedPtr info return result' -- function g_object_info_get_signal -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_signal" g_object_info_get_signal :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) objectInfoGetSignal :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo objectInfoGetSignal info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_signal info' n checkUnexpectedReturnNULL "g_object_info_get_signal" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_object_info_get_set_value_function -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_set_value_function" g_object_info_get_set_value_function :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CString objectInfoGetSetValueFunction :: (MonadIO m) => BaseInfo -> -- info m T.Text objectInfoGetSetValueFunction info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_set_value_function info' checkUnexpectedReturnNULL "g_object_info_get_set_value_function" result result' <- cstringToText result touchManagedPtr info return result' -- function g_object_info_get_ref_function -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_ref_function" g_object_info_get_ref_function :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CString objectInfoGetRefFunction :: (MonadIO m) => BaseInfo -> -- info m T.Text objectInfoGetRefFunction info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_ref_function info' checkUnexpectedReturnNULL "g_object_info_get_ref_function" result result' <- cstringToText result touchManagedPtr info return result' -- function g_object_info_get_property -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_property" g_object_info_get_property :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) objectInfoGetProperty :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo objectInfoGetProperty info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_property info' n checkUnexpectedReturnNULL "g_object_info_get_property" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_object_info_get_parent -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_parent" g_object_info_get_parent :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO (Ptr BaseInfo) objectInfoGetParent :: (MonadIO m) => BaseInfo -> -- info m BaseInfo objectInfoGetParent info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_parent info' checkUnexpectedReturnNULL "g_object_info_get_parent" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_object_info_get_n_vfuncs -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_n_vfuncs" g_object_info_get_n_vfuncs :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 objectInfoGetNVfuncs :: (MonadIO m) => BaseInfo -> -- info m Int32 objectInfoGetNVfuncs info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_n_vfuncs info' touchManagedPtr info return result -- function g_object_info_get_n_signals -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_n_signals" g_object_info_get_n_signals :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 objectInfoGetNSignals :: (MonadIO m) => BaseInfo -> -- info m Int32 objectInfoGetNSignals info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_n_signals info' touchManagedPtr info return result -- function g_object_info_get_n_properties -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_n_properties" g_object_info_get_n_properties :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 objectInfoGetNProperties :: (MonadIO m) => BaseInfo -> -- info m Int32 objectInfoGetNProperties info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_n_properties info' touchManagedPtr info return result -- function g_object_info_get_n_methods -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_n_methods" g_object_info_get_n_methods :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 objectInfoGetNMethods :: (MonadIO m) => BaseInfo -> -- info m Int32 objectInfoGetNMethods info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_n_methods info' touchManagedPtr info return result -- function g_object_info_get_n_interfaces -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_n_interfaces" g_object_info_get_n_interfaces :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 objectInfoGetNInterfaces :: (MonadIO m) => BaseInfo -> -- info m Int32 objectInfoGetNInterfaces info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_n_interfaces info' touchManagedPtr info return result -- function g_object_info_get_n_fields -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_n_fields" g_object_info_get_n_fields :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 objectInfoGetNFields :: (MonadIO m) => BaseInfo -> -- info m Int32 objectInfoGetNFields info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_n_fields info' touchManagedPtr info return result -- function g_object_info_get_n_constants -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_n_constants" g_object_info_get_n_constants :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 objectInfoGetNConstants :: (MonadIO m) => BaseInfo -> -- info m Int32 objectInfoGetNConstants info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_n_constants info' touchManagedPtr info return result -- function g_object_info_get_method -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_method" g_object_info_get_method :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) objectInfoGetMethod :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo objectInfoGetMethod info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_method info' n checkUnexpectedReturnNULL "g_object_info_get_method" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_object_info_get_interface -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_interface" g_object_info_get_interface :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) objectInfoGetInterface :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo objectInfoGetInterface info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_interface info' n checkUnexpectedReturnNULL "g_object_info_get_interface" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_object_info_get_get_value_function -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_get_value_function" g_object_info_get_get_value_function :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CString objectInfoGetGetValueFunction :: (MonadIO m) => BaseInfo -> -- info m T.Text objectInfoGetGetValueFunction info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_get_value_function info' checkUnexpectedReturnNULL "g_object_info_get_get_value_function" result result' <- cstringToText result touchManagedPtr info return result' -- function g_object_info_get_fundamental -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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_info_get_fundamental" g_object_info_get_fundamental :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CInt objectInfoGetFundamental :: (MonadIO m) => BaseInfo -> -- info m Bool objectInfoGetFundamental info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_fundamental info' let result' = (/= 0) result touchManagedPtr info return result' -- function g_object_info_get_field -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_field" g_object_info_get_field :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) objectInfoGetField :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo objectInfoGetField info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_field info' n checkUnexpectedReturnNULL "g_object_info_get_field" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_object_info_get_constant -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_constant" g_object_info_get_constant :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) objectInfoGetConstant :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo objectInfoGetConstant info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_constant info' n checkUnexpectedReturnNULL "g_object_info_get_constant" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_object_info_get_class_struct -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_object_info_get_class_struct" g_object_info_get_class_struct :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO (Ptr BaseInfo) objectInfoGetClassStruct :: (MonadIO m) => BaseInfo -> -- info m BaseInfo objectInfoGetClassStruct info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_class_struct info' checkUnexpectedReturnNULL "g_object_info_get_class_struct" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_object_info_get_abstract -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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_info_get_abstract" g_object_info_get_abstract :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CInt objectInfoGetAbstract :: (MonadIO m) => BaseInfo -> -- info m Bool objectInfoGetAbstract info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_object_info_get_abstract info' let result' = (/= 0) result touchManagedPtr info return result' -- function g_object_info_find_vfunc_using_interfaces -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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 = "implementor", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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 "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_object_info_find_vfunc_using_interfaces" g_object_info_find_vfunc_using_interfaces :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" CString -> -- name : TBasicType TUTF8 Ptr BaseInfo -> -- implementor : TInterface "GIRepository" "BaseInfo" IO (Ptr BaseInfo) objectInfoFindVfuncUsingInterfaces :: (MonadIO m) => BaseInfo -> -- info T.Text -> -- name m (BaseInfo,BaseInfo) objectInfoFindVfuncUsingInterfaces info name = liftIO $ do let info' = unsafeManagedPtrGetPtr info name' <- textToCString name implementor <- callocBoxedBytes 72 :: IO (Ptr BaseInfo) result <- g_object_info_find_vfunc_using_interfaces info' name' implementor checkUnexpectedReturnNULL "g_object_info_find_vfunc_using_interfaces" result result' <- (wrapBoxed BaseInfo) result implementor' <- (wrapBoxed BaseInfo) implementor touchManagedPtr info freeMem name' return (result', implementor') -- function g_object_info_find_vfunc -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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 = "info", argType = TInterface "GIRepository" "BaseInfo", 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 "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_object_info_find_vfunc" g_object_info_find_vfunc :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" CString -> -- name : TBasicType TUTF8 IO (Ptr BaseInfo) objectInfoFindVfunc :: (MonadIO m) => BaseInfo -> -- info T.Text -> -- name m BaseInfo objectInfoFindVfunc info name = liftIO $ do let info' = unsafeManagedPtrGetPtr info name' <- textToCString name result <- g_object_info_find_vfunc info' name' checkUnexpectedReturnNULL "g_object_info_find_vfunc" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info freeMem name' return result' -- function g_object_info_find_signal -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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 = "info", argType = TInterface "GIRepository" "BaseInfo", 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 "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_object_info_find_signal" g_object_info_find_signal :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" CString -> -- name : TBasicType TUTF8 IO (Ptr BaseInfo) objectInfoFindSignal :: (MonadIO m) => BaseInfo -> -- info T.Text -> -- name m BaseInfo objectInfoFindSignal info name = liftIO $ do let info' = unsafeManagedPtrGetPtr info name' <- textToCString name result <- g_object_info_find_signal info' name' checkUnexpectedReturnNULL "g_object_info_find_signal" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info freeMem name' return result' -- function g_object_info_find_method_using_interfaces -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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 = "implementor", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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 "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_object_info_find_method_using_interfaces" g_object_info_find_method_using_interfaces :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" CString -> -- name : TBasicType TUTF8 Ptr BaseInfo -> -- implementor : TInterface "GIRepository" "BaseInfo" IO (Ptr BaseInfo) objectInfoFindMethodUsingInterfaces :: (MonadIO m) => BaseInfo -> -- info T.Text -> -- name m (BaseInfo,BaseInfo) objectInfoFindMethodUsingInterfaces info name = liftIO $ do let info' = unsafeManagedPtrGetPtr info name' <- textToCString name implementor <- callocBoxedBytes 72 :: IO (Ptr BaseInfo) result <- g_object_info_find_method_using_interfaces info' name' implementor checkUnexpectedReturnNULL "g_object_info_find_method_using_interfaces" result result' <- (wrapBoxed BaseInfo) result implementor' <- (wrapBoxed BaseInfo) implementor touchManagedPtr info freeMem name' return (result', implementor') -- function g_object_info_find_method -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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 = "info", argType = TInterface "GIRepository" "BaseInfo", 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 "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_object_info_find_method" g_object_info_find_method :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" CString -> -- name : TBasicType TUTF8 IO (Ptr BaseInfo) objectInfoFindMethod :: (MonadIO m) => BaseInfo -> -- info T.Text -> -- name m BaseInfo objectInfoFindMethod info name = liftIO $ do let info' = unsafeManagedPtrGetPtr info name' <- textToCString name result <- g_object_info_find_method info' name' checkUnexpectedReturnNULL "g_object_info_find_method" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info freeMem name' return result' -- function g_invoke_error_quark -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "g_invoke_error_quark" g_invoke_error_quark :: IO Word32 invokeErrorQuark :: (MonadIO m) => m Word32 invokeErrorQuark = liftIO $ do result <- g_invoke_error_quark return result -- function g_interface_info_get_vfunc -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_interface_info_get_vfunc" g_interface_info_get_vfunc :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) interfaceInfoGetVfunc :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo interfaceInfoGetVfunc info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_interface_info_get_vfunc info' n checkUnexpectedReturnNULL "g_interface_info_get_vfunc" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_interface_info_get_signal -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_interface_info_get_signal" g_interface_info_get_signal :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) interfaceInfoGetSignal :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo interfaceInfoGetSignal info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_interface_info_get_signal info' n checkUnexpectedReturnNULL "g_interface_info_get_signal" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_interface_info_get_property -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_interface_info_get_property" g_interface_info_get_property :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) interfaceInfoGetProperty :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo interfaceInfoGetProperty info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_interface_info_get_property info' n checkUnexpectedReturnNULL "g_interface_info_get_property" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_interface_info_get_prerequisite -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_interface_info_get_prerequisite" g_interface_info_get_prerequisite :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) interfaceInfoGetPrerequisite :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo interfaceInfoGetPrerequisite info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_interface_info_get_prerequisite info' n checkUnexpectedReturnNULL "g_interface_info_get_prerequisite" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_interface_info_get_n_vfuncs -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_interface_info_get_n_vfuncs" g_interface_info_get_n_vfuncs :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 interfaceInfoGetNVfuncs :: (MonadIO m) => BaseInfo -> -- info m Int32 interfaceInfoGetNVfuncs info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_interface_info_get_n_vfuncs info' touchManagedPtr info return result -- function g_interface_info_get_n_signals -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_interface_info_get_n_signals" g_interface_info_get_n_signals :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 interfaceInfoGetNSignals :: (MonadIO m) => BaseInfo -> -- info m Int32 interfaceInfoGetNSignals info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_interface_info_get_n_signals info' touchManagedPtr info return result -- function g_interface_info_get_n_properties -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_interface_info_get_n_properties" g_interface_info_get_n_properties :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 interfaceInfoGetNProperties :: (MonadIO m) => BaseInfo -> -- info m Int32 interfaceInfoGetNProperties info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_interface_info_get_n_properties info' touchManagedPtr info return result -- function g_interface_info_get_n_prerequisites -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_interface_info_get_n_prerequisites" g_interface_info_get_n_prerequisites :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 interfaceInfoGetNPrerequisites :: (MonadIO m) => BaseInfo -> -- info m Int32 interfaceInfoGetNPrerequisites info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_interface_info_get_n_prerequisites info' touchManagedPtr info return result -- function g_interface_info_get_n_methods -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_interface_info_get_n_methods" g_interface_info_get_n_methods :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 interfaceInfoGetNMethods :: (MonadIO m) => BaseInfo -> -- info m Int32 interfaceInfoGetNMethods info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_interface_info_get_n_methods info' touchManagedPtr info return result -- function g_interface_info_get_n_constants -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_interface_info_get_n_constants" g_interface_info_get_n_constants :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 interfaceInfoGetNConstants :: (MonadIO m) => BaseInfo -> -- info m Int32 interfaceInfoGetNConstants info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_interface_info_get_n_constants info' touchManagedPtr info return result -- function g_interface_info_get_method -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_interface_info_get_method" g_interface_info_get_method :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) interfaceInfoGetMethod :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo interfaceInfoGetMethod info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_interface_info_get_method info' n checkUnexpectedReturnNULL "g_interface_info_get_method" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_interface_info_get_iface_struct -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_interface_info_get_iface_struct" g_interface_info_get_iface_struct :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO (Ptr BaseInfo) interfaceInfoGetIfaceStruct :: (MonadIO m) => BaseInfo -> -- info m BaseInfo interfaceInfoGetIfaceStruct info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_interface_info_get_iface_struct info' checkUnexpectedReturnNULL "g_interface_info_get_iface_struct" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_interface_info_get_constant -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_interface_info_get_constant" g_interface_info_get_constant :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) interfaceInfoGetConstant :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo interfaceInfoGetConstant info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_interface_info_get_constant info' n checkUnexpectedReturnNULL "g_interface_info_get_constant" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_interface_info_find_vfunc -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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 = "info", argType = TInterface "GIRepository" "BaseInfo", 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 "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_interface_info_find_vfunc" g_interface_info_find_vfunc :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" CString -> -- name : TBasicType TUTF8 IO (Ptr BaseInfo) interfaceInfoFindVfunc :: (MonadIO m) => BaseInfo -> -- info T.Text -> -- name m BaseInfo interfaceInfoFindVfunc info name = liftIO $ do let info' = unsafeManagedPtrGetPtr info name' <- textToCString name result <- g_interface_info_find_vfunc info' name' checkUnexpectedReturnNULL "g_interface_info_find_vfunc" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info freeMem name' return result' -- function g_interface_info_find_signal -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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 = "info", argType = TInterface "GIRepository" "BaseInfo", 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 "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_interface_info_find_signal" g_interface_info_find_signal :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" CString -> -- name : TBasicType TUTF8 IO (Ptr BaseInfo) interfaceInfoFindSignal :: (MonadIO m) => BaseInfo -> -- info T.Text -> -- name m BaseInfo interfaceInfoFindSignal info name = liftIO $ do let info' = unsafeManagedPtrGetPtr info name' <- textToCString name result <- g_interface_info_find_signal info' name' checkUnexpectedReturnNULL "g_interface_info_find_signal" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info freeMem name' return result' -- function g_interface_info_find_method -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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 = "info", argType = TInterface "GIRepository" "BaseInfo", 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 "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_interface_info_find_method" g_interface_info_find_method :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" CString -> -- name : TBasicType TUTF8 IO (Ptr BaseInfo) interfaceInfoFindMethod :: (MonadIO m) => BaseInfo -> -- info T.Text -> -- name m BaseInfo interfaceInfoFindMethod info name = liftIO $ do let info' = unsafeManagedPtrGetPtr info name' <- textToCString name result <- g_interface_info_find_method info' name' checkUnexpectedReturnNULL "g_interface_info_find_method" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info freeMem name' return result' -- function g_info_type_to_string -- Args : [Arg {argName = "type", argType = TInterface "GIRepository" "InfoType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TInterface "GIRepository" "InfoType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_info_type_to_string" g_info_type_to_string :: CUInt -> -- type : TInterface "GIRepository" "InfoType" IO CString infoTypeToString :: (MonadIO m) => InfoType -> -- type m T.Text infoTypeToString type_ = liftIO $ do let type_' = (fromIntegral . fromEnum) type_ result <- g_info_type_to_string type_' checkUnexpectedReturnNULL "g_info_type_to_string" result result' <- cstringToText result return result' -- function g_info_new -- Args : [Arg {argName = "type", argType = TInterface "GIRepository" "InfoType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "container", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "typelib", argType = TInterface "GIRepository" "Typelib", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TInterface "GIRepository" "InfoType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "container", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "typelib", argType = TInterface "GIRepository" "Typelib", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_info_new" g_info_new :: CUInt -> -- type : TInterface "GIRepository" "InfoType" Ptr BaseInfo -> -- container : TInterface "GIRepository" "BaseInfo" Ptr Typelib -> -- typelib : TInterface "GIRepository" "Typelib" Word32 -> -- offset : TBasicType TUInt32 IO (Ptr BaseInfo) infoNew :: (MonadIO m) => InfoType -> -- type BaseInfo -> -- container Typelib -> -- typelib Word32 -> -- offset m BaseInfo infoNew type_ container typelib offset = liftIO $ do let type_' = (fromIntegral . fromEnum) type_ let container' = unsafeManagedPtrGetPtr container let typelib' = unsafeManagedPtrGetPtr typelib result <- g_info_new type_' container' typelib' offset checkUnexpectedReturnNULL "g_info_new" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr container touchManagedPtr typelib return result' -- function g_function_info_get_vfunc -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_function_info_get_vfunc" g_function_info_get_vfunc :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO (Ptr BaseInfo) functionInfoGetVfunc :: (MonadIO m) => BaseInfo -> -- info m BaseInfo functionInfoGetVfunc info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_function_info_get_vfunc info' checkUnexpectedReturnNULL "g_function_info_get_vfunc" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_function_info_get_symbol -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_function_info_get_symbol" g_function_info_get_symbol :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CString functionInfoGetSymbol :: (MonadIO m) => BaseInfo -> -- info m T.Text functionInfoGetSymbol info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_function_info_get_symbol info' checkUnexpectedReturnNULL "g_function_info_get_symbol" result result' <- cstringToText result touchManagedPtr info return result' -- function g_function_info_get_property -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_function_info_get_property" g_function_info_get_property :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO (Ptr BaseInfo) functionInfoGetProperty :: (MonadIO m) => BaseInfo -> -- info m BaseInfo functionInfoGetProperty info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_function_info_get_property info' checkUnexpectedReturnNULL "g_function_info_get_property" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_function_info_get_flags -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "FunctionInfoFlags" -- throws : False -- Skip return : False foreign import ccall "g_function_info_get_flags" g_function_info_get_flags :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CUInt functionInfoGetFlags :: (MonadIO m) => BaseInfo -> -- info m [FunctionInfoFlags] functionInfoGetFlags info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_function_info_get_flags info' let result' = wordToGFlags result touchManagedPtr info return result' -- function g_field_info_get_type -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_field_info_get_type" g_field_info_get_type :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO (Ptr BaseInfo) fieldInfoGetType :: (MonadIO m) => BaseInfo -> -- info m BaseInfo fieldInfoGetType info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_field_info_get_type info' checkUnexpectedReturnNULL "g_field_info_get_type" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_field_info_get_size -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_field_info_get_size" g_field_info_get_size :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 fieldInfoGetSize :: (MonadIO m) => BaseInfo -> -- info m Int32 fieldInfoGetSize info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_field_info_get_size info' touchManagedPtr info return result -- function g_field_info_get_offset -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_field_info_get_offset" g_field_info_get_offset :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 fieldInfoGetOffset :: (MonadIO m) => BaseInfo -> -- info m Int32 fieldInfoGetOffset info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_field_info_get_offset info' touchManagedPtr info return result -- function g_field_info_get_flags -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "FieldInfoFlags" -- throws : False -- Skip return : False foreign import ccall "g_field_info_get_flags" g_field_info_get_flags :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CUInt fieldInfoGetFlags :: (MonadIO m) => BaseInfo -> -- info m [FieldInfoFlags] fieldInfoGetFlags info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_field_info_get_flags info' let result' = wordToGFlags result touchManagedPtr info return result' -- function g_enum_info_get_value -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_enum_info_get_value" g_enum_info_get_value :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) enumInfoGetValue :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo enumInfoGetValue info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_enum_info_get_value info' n checkUnexpectedReturnNULL "g_enum_info_get_value" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_enum_info_get_storage_type -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "TypeTag" -- throws : False -- Skip return : False foreign import ccall "g_enum_info_get_storage_type" g_enum_info_get_storage_type :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CUInt enumInfoGetStorageType :: (MonadIO m) => BaseInfo -> -- info m TypeTag enumInfoGetStorageType info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_enum_info_get_storage_type info' let result' = (toEnum . fromIntegral) result touchManagedPtr info return result' -- function g_enum_info_get_n_values -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_enum_info_get_n_values" g_enum_info_get_n_values :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 enumInfoGetNValues :: (MonadIO m) => BaseInfo -> -- info m Int32 enumInfoGetNValues info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_enum_info_get_n_values info' touchManagedPtr info return result -- function g_enum_info_get_n_methods -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_enum_info_get_n_methods" g_enum_info_get_n_methods :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 enumInfoGetNMethods :: (MonadIO m) => BaseInfo -> -- info m Int32 enumInfoGetNMethods info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_enum_info_get_n_methods info' touchManagedPtr info return result -- function g_enum_info_get_method -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_enum_info_get_method" g_enum_info_get_method :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) enumInfoGetMethod :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo enumInfoGetMethod info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_enum_info_get_method info' n checkUnexpectedReturnNULL "g_enum_info_get_method" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_enum_info_get_error_domain -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_enum_info_get_error_domain" g_enum_info_get_error_domain :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CString enumInfoGetErrorDomain :: (MonadIO m) => BaseInfo -> -- info m T.Text enumInfoGetErrorDomain info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_enum_info_get_error_domain info' checkUnexpectedReturnNULL "g_enum_info_get_error_domain" result result' <- cstringToText result touchManagedPtr info return result' -- function g_constant_info_get_type -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_constant_info_get_type" g_constant_info_get_type :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO (Ptr BaseInfo) constantInfoGetType :: (MonadIO m) => BaseInfo -> -- info m BaseInfo constantInfoGetType info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_constant_info_get_type info' checkUnexpectedReturnNULL "g_constant_info_get_type" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_callable_info_skip_return -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_callable_info_skip_return" g_callable_info_skip_return :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CInt callableInfoSkipReturn :: (MonadIO m) => BaseInfo -> -- info m Bool callableInfoSkipReturn info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_callable_info_skip_return info' let result' = (/= 0) result touchManagedPtr info return result' -- function g_callable_info_may_return_null -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_callable_info_may_return_null" g_callable_info_may_return_null :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CInt callableInfoMayReturnNull :: (MonadIO m) => BaseInfo -> -- info m Bool callableInfoMayReturnNull info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_callable_info_may_return_null info' let result' = (/= 0) result touchManagedPtr info return result' -- function g_callable_info_load_return_type -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_callable_info_load_return_type" g_callable_info_load_return_type :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Ptr BaseInfo -> -- type : TInterface "GIRepository" "BaseInfo" IO () callableInfoLoadReturnType :: (MonadIO m) => BaseInfo -> -- info m (BaseInfo) callableInfoLoadReturnType info = liftIO $ do let info' = unsafeManagedPtrGetPtr info type_ <- callocBoxedBytes 72 :: IO (Ptr BaseInfo) g_callable_info_load_return_type info' type_ type_' <- (wrapBoxed BaseInfo) type_ touchManagedPtr info return type_' -- function g_callable_info_load_arg -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", 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_callable_info_load_arg" g_callable_info_load_arg :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 Ptr BaseInfo -> -- arg : TInterface "GIRepository" "BaseInfo" IO () callableInfoLoadArg :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m (BaseInfo) callableInfoLoadArg info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info arg <- callocBoxedBytes 72 :: IO (Ptr BaseInfo) g_callable_info_load_arg info' n arg arg' <- (wrapBoxed BaseInfo) arg touchManagedPtr info return arg' -- function g_callable_info_iterate_return_attributes -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iterator", argType = TInterface "GIRepository" "AttributeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iterator", argType = TInterface "GIRepository" "AttributeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_callable_info_iterate_return_attributes" g_callable_info_iterate_return_attributes :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Ptr AttributeIter -> -- iterator : TInterface "GIRepository" "AttributeIter" Ptr CString -> -- name : TBasicType TUTF8 Ptr CString -> -- value : TBasicType TUTF8 IO CInt callableInfoIterateReturnAttributes :: (MonadIO m) => BaseInfo -> -- info AttributeIter -> -- iterator m (Bool,T.Text,T.Text) callableInfoIterateReturnAttributes info iterator = liftIO $ do let info' = unsafeManagedPtrGetPtr info let iterator' = unsafeManagedPtrGetPtr iterator name <- allocMem :: IO (Ptr CString) value <- allocMem :: IO (Ptr CString) result <- g_callable_info_iterate_return_attributes info' iterator' name value let result' = (/= 0) result name' <- peek name name'' <- cstringToText name' value' <- peek value value'' <- cstringToText value' touchManagedPtr info touchManagedPtr iterator freeMem name freeMem value return (result', name'', value'') -- function g_callable_info_is_method -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_callable_info_is_method" g_callable_info_is_method :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CInt callableInfoIsMethod :: (MonadIO m) => BaseInfo -> -- info m Bool callableInfoIsMethod info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_callable_info_is_method info' let result' = (/= 0) result touchManagedPtr info return result' -- function g_callable_info_invoke -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "in_args", argType = TInterface "GIRepository" "Argument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_in_args", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_args", argType = TInterface "GIRepository" "Argument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_out_args", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GIRepository" "Argument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_method", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "throws", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "in_args", argType = TInterface "GIRepository" "Argument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_in_args", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_args", argType = TInterface "GIRepository" "Argument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_out_args", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_value", argType = TInterface "GIRepository" "Argument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_method", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "throws", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False foreign import ccall "g_callable_info_invoke" g_callable_info_invoke :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Ptr () -> -- function : TBasicType TVoid Ptr Argument -> -- in_args : TInterface "GIRepository" "Argument" Int32 -> -- n_in_args : TBasicType TInt32 Ptr Argument -> -- out_args : TInterface "GIRepository" "Argument" Int32 -> -- n_out_args : TBasicType TInt32 Ptr Argument -> -- return_value : TInterface "GIRepository" "Argument" CInt -> -- is_method : TBasicType TBoolean CInt -> -- throws : TBasicType TBoolean Ptr (Ptr GError) -> -- error IO CInt callableInfoInvoke :: (MonadIO m) => BaseInfo -> -- info Ptr () -> -- function Argument -> -- in_args Int32 -> -- n_in_args Argument -> -- out_args Int32 -> -- n_out_args Argument -> -- return_value Bool -> -- is_method Bool -> -- throws m () callableInfoInvoke info function in_args n_in_args out_args n_out_args return_value is_method throws = liftIO $ do let info' = unsafeManagedPtrGetPtr info let in_args' = unsafeManagedPtrGetPtr in_args let out_args' = unsafeManagedPtrGetPtr out_args let return_value' = unsafeManagedPtrGetPtr return_value let is_method' = (fromIntegral . fromEnum) is_method let throws' = (fromIntegral . fromEnum) throws onException (do _ <- propagateGError $ g_callable_info_invoke info' function in_args' n_in_args out_args' n_out_args return_value' is_method' throws' touchManagedPtr info touchManagedPtr in_args touchManagedPtr out_args touchManagedPtr return_value return () ) (do return () ) -- function g_callable_info_get_return_type -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_callable_info_get_return_type" g_callable_info_get_return_type :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO (Ptr BaseInfo) callableInfoGetReturnType :: (MonadIO m) => BaseInfo -> -- info m BaseInfo callableInfoGetReturnType info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_callable_info_get_return_type info' checkUnexpectedReturnNULL "g_callable_info_get_return_type" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_callable_info_get_return_attribute -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", 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 = "info", argType = TInterface "GIRepository" "BaseInfo", 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 TUTF8 -- throws : False -- Skip return : False foreign import ccall "g_callable_info_get_return_attribute" g_callable_info_get_return_attribute :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" CString -> -- name : TBasicType TUTF8 IO CString callableInfoGetReturnAttribute :: (MonadIO m) => BaseInfo -> -- info T.Text -> -- name m T.Text callableInfoGetReturnAttribute info name = liftIO $ do let info' = unsafeManagedPtrGetPtr info name' <- textToCString name result <- g_callable_info_get_return_attribute info' name' checkUnexpectedReturnNULL "g_callable_info_get_return_attribute" result result' <- cstringToText result touchManagedPtr info freeMem name' return result' -- function g_callable_info_get_n_args -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_callable_info_get_n_args" g_callable_info_get_n_args :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 callableInfoGetNArgs :: (MonadIO m) => BaseInfo -> -- info m Int32 callableInfoGetNArgs info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_callable_info_get_n_args info' touchManagedPtr info return result -- function g_callable_info_get_instance_ownership_transfer -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "Transfer" -- throws : False -- Skip return : False foreign import ccall "g_callable_info_get_instance_ownership_transfer" g_callable_info_get_instance_ownership_transfer :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CUInt callableInfoGetInstanceOwnershipTransfer :: (MonadIO m) => BaseInfo -> -- info m Transfer callableInfoGetInstanceOwnershipTransfer info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_callable_info_get_instance_ownership_transfer info' let result' = (toEnum . fromIntegral) result touchManagedPtr info return result' -- function g_callable_info_get_caller_owns -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "Transfer" -- throws : False -- Skip return : False foreign import ccall "g_callable_info_get_caller_owns" g_callable_info_get_caller_owns :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CUInt callableInfoGetCallerOwns :: (MonadIO m) => BaseInfo -> -- info m Transfer callableInfoGetCallerOwns info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_callable_info_get_caller_owns info' let result' = (toEnum . fromIntegral) result touchManagedPtr info return result' -- function g_callable_info_get_arg -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_callable_info_get_arg" g_callable_info_get_arg :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Int32 -> -- n : TBasicType TInt32 IO (Ptr BaseInfo) callableInfoGetArg :: (MonadIO m) => BaseInfo -> -- info Int32 -> -- n m BaseInfo callableInfoGetArg info n = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_callable_info_get_arg info' n checkUnexpectedReturnNULL "g_callable_info_get_arg" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_callable_info_can_throw_gerror -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_callable_info_can_throw_gerror" g_callable_info_can_throw_gerror :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CInt callableInfoCanThrowGerror :: (MonadIO m) => BaseInfo -> -- info m Bool callableInfoCanThrowGerror info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_callable_info_can_throw_gerror info' let result' = (/= 0) result touchManagedPtr info return result' -- function g_arg_info_may_be_null -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_arg_info_may_be_null" g_arg_info_may_be_null :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CInt argInfoMayBeNull :: (MonadIO m) => BaseInfo -> -- info m Bool argInfoMayBeNull info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_arg_info_may_be_null info' let result' = (/= 0) result touchManagedPtr info return result' -- function g_arg_info_load_type -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "g_arg_info_load_type" g_arg_info_load_type :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" Ptr BaseInfo -> -- type : TInterface "GIRepository" "BaseInfo" IO () argInfoLoadType :: (MonadIO m) => BaseInfo -> -- info m (BaseInfo) argInfoLoadType info = liftIO $ do let info' = unsafeManagedPtrGetPtr info type_ <- callocBoxedBytes 72 :: IO (Ptr BaseInfo) g_arg_info_load_type info' type_ type_' <- (wrapBoxed BaseInfo) type_ touchManagedPtr info return type_' -- function g_arg_info_is_skip -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_arg_info_is_skip" g_arg_info_is_skip :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CInt argInfoIsSkip :: (MonadIO m) => BaseInfo -> -- info m Bool argInfoIsSkip info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_arg_info_is_skip info' let result' = (/= 0) result touchManagedPtr info return result' -- function g_arg_info_is_return_value -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_arg_info_is_return_value" g_arg_info_is_return_value :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CInt argInfoIsReturnValue :: (MonadIO m) => BaseInfo -> -- info m Bool argInfoIsReturnValue info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_arg_info_is_return_value info' let result' = (/= 0) result touchManagedPtr info return result' -- function g_arg_info_is_optional -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_arg_info_is_optional" g_arg_info_is_optional :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CInt argInfoIsOptional :: (MonadIO m) => BaseInfo -> -- info m Bool argInfoIsOptional info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_arg_info_is_optional info' let result' = (/= 0) result touchManagedPtr info return result' -- function g_arg_info_is_caller_allocates -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "g_arg_info_is_caller_allocates" g_arg_info_is_caller_allocates :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CInt argInfoIsCallerAllocates :: (MonadIO m) => BaseInfo -> -- info m Bool argInfoIsCallerAllocates info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_arg_info_is_caller_allocates info' let result' = (/= 0) result touchManagedPtr info return result' -- function g_arg_info_get_type -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "BaseInfo" -- throws : False -- Skip return : False foreign import ccall "g_arg_info_get_type" g_arg_info_get_type :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO (Ptr BaseInfo) argInfoGetType :: (MonadIO m) => BaseInfo -> -- info m BaseInfo argInfoGetType info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_arg_info_get_type info' checkUnexpectedReturnNULL "g_arg_info_get_type" result result' <- (wrapBoxed BaseInfo) result touchManagedPtr info return result' -- function g_arg_info_get_scope -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "ScopeType" -- throws : False -- Skip return : False foreign import ccall "g_arg_info_get_scope" g_arg_info_get_scope :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CUInt argInfoGetScope :: (MonadIO m) => BaseInfo -> -- info m ScopeType argInfoGetScope info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_arg_info_get_scope info' let result' = (toEnum . fromIntegral) result touchManagedPtr info return result' -- function g_arg_info_get_ownership_transfer -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "Transfer" -- throws : False -- Skip return : False foreign import ccall "g_arg_info_get_ownership_transfer" g_arg_info_get_ownership_transfer :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CUInt argInfoGetOwnershipTransfer :: (MonadIO m) => BaseInfo -> -- info m Transfer argInfoGetOwnershipTransfer info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_arg_info_get_ownership_transfer info' let result' = (toEnum . fromIntegral) result touchManagedPtr info return result' -- function g_arg_info_get_direction -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GIRepository" "Direction" -- throws : False -- Skip return : False foreign import ccall "g_arg_info_get_direction" g_arg_info_get_direction :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO CUInt argInfoGetDirection :: (MonadIO m) => BaseInfo -> -- info m Direction argInfoGetDirection info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_arg_info_get_direction info' let result' = (toEnum . fromIntegral) result touchManagedPtr info return result' -- function g_arg_info_get_destroy -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_arg_info_get_destroy" g_arg_info_get_destroy :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 argInfoGetDestroy :: (MonadIO m) => BaseInfo -> -- info m Int32 argInfoGetDestroy info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_arg_info_get_destroy info' touchManagedPtr info return result -- function g_arg_info_get_closure -- Args : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "info", argType = TInterface "GIRepository" "BaseInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "g_arg_info_get_closure" g_arg_info_get_closure :: Ptr BaseInfo -> -- info : TInterface "GIRepository" "BaseInfo" IO Int32 argInfoGetClosure :: (MonadIO m) => BaseInfo -> -- info m Int32 argInfoGetClosure info = liftIO $ do let info' = unsafeManagedPtrGetPtr info result <- g_arg_info_get_closure info' touchManagedPtr info return result