#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Gst.Objects.TypeFindFactory
(
TypeFindFactory(..) ,
IsTypeFindFactory ,
toTypeFindFactory ,
noTypeFindFactory ,
#if ENABLE_OVERLOADING
TypeFindFactoryCallFunctionMethodInfo ,
#endif
typeFindFactoryCallFunction ,
#if ENABLE_OVERLOADING
TypeFindFactoryGetCapsMethodInfo ,
#endif
typeFindFactoryGetCaps ,
#if ENABLE_OVERLOADING
TypeFindFactoryGetExtensionsMethodInfo ,
#endif
typeFindFactoryGetExtensions ,
typeFindFactoryGetList ,
#if ENABLE_OVERLOADING
TypeFindFactoryHasFunctionMethodInfo ,
#endif
typeFindFactoryHasFunction ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gst.Objects.Object as Gst.Object
import {-# SOURCE #-} qualified GI.Gst.Objects.PluginFeature as Gst.PluginFeature
import {-# SOURCE #-} qualified GI.Gst.Structs.Caps as Gst.Caps
import {-# SOURCE #-} qualified GI.Gst.Structs.TypeFind as Gst.TypeFind
newtype TypeFindFactory = TypeFindFactory (ManagedPtr TypeFindFactory)
foreign import ccall "gst_type_find_factory_get_type"
c_gst_type_find_factory_get_type :: IO GType
instance GObject TypeFindFactory where
gobjectType = c_gst_type_find_factory_get_type
class (GObject o, O.IsDescendantOf TypeFindFactory o) => IsTypeFindFactory o
instance (GObject o, O.IsDescendantOf TypeFindFactory o) => IsTypeFindFactory o
instance O.HasParentTypes TypeFindFactory
type instance O.ParentTypes TypeFindFactory = '[Gst.PluginFeature.PluginFeature, Gst.Object.Object, GObject.Object.Object]
toTypeFindFactory :: (MonadIO m, IsTypeFindFactory o) => o -> m TypeFindFactory
toTypeFindFactory = liftIO . unsafeCastTo TypeFindFactory
noTypeFindFactory :: Maybe TypeFindFactory
noTypeFindFactory = Nothing
#if ENABLE_OVERLOADING
type family ResolveTypeFindFactoryMethod (t :: Symbol) (o :: *) :: * where
ResolveTypeFindFactoryMethod "addControlBinding" o = Gst.Object.ObjectAddControlBindingMethodInfo
ResolveTypeFindFactoryMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTypeFindFactoryMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTypeFindFactoryMethod "callFunction" o = TypeFindFactoryCallFunctionMethodInfo
ResolveTypeFindFactoryMethod "checkVersion" o = Gst.PluginFeature.PluginFeatureCheckVersionMethodInfo
ResolveTypeFindFactoryMethod "defaultError" o = Gst.Object.ObjectDefaultErrorMethodInfo
ResolveTypeFindFactoryMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTypeFindFactoryMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTypeFindFactoryMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTypeFindFactoryMethod "hasActiveControlBindings" o = Gst.Object.ObjectHasActiveControlBindingsMethodInfo
ResolveTypeFindFactoryMethod "hasAncestor" o = Gst.Object.ObjectHasAncestorMethodInfo
ResolveTypeFindFactoryMethod "hasAsAncestor" o = Gst.Object.ObjectHasAsAncestorMethodInfo
ResolveTypeFindFactoryMethod "hasAsParent" o = Gst.Object.ObjectHasAsParentMethodInfo
ResolveTypeFindFactoryMethod "hasFunction" o = TypeFindFactoryHasFunctionMethodInfo
ResolveTypeFindFactoryMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTypeFindFactoryMethod "load" o = Gst.PluginFeature.PluginFeatureLoadMethodInfo
ResolveTypeFindFactoryMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTypeFindFactoryMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTypeFindFactoryMethod "ref" o = Gst.Object.ObjectRefMethodInfo
ResolveTypeFindFactoryMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTypeFindFactoryMethod "removeControlBinding" o = Gst.Object.ObjectRemoveControlBindingMethodInfo
ResolveTypeFindFactoryMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTypeFindFactoryMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTypeFindFactoryMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTypeFindFactoryMethod "suggestNextSync" o = Gst.Object.ObjectSuggestNextSyncMethodInfo
ResolveTypeFindFactoryMethod "syncValues" o = Gst.Object.ObjectSyncValuesMethodInfo
ResolveTypeFindFactoryMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTypeFindFactoryMethod "unparent" o = Gst.Object.ObjectUnparentMethodInfo
ResolveTypeFindFactoryMethod "unref" o = Gst.Object.ObjectUnrefMethodInfo
ResolveTypeFindFactoryMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTypeFindFactoryMethod "getCaps" o = TypeFindFactoryGetCapsMethodInfo
ResolveTypeFindFactoryMethod "getControlBinding" o = Gst.Object.ObjectGetControlBindingMethodInfo
ResolveTypeFindFactoryMethod "getControlRate" o = Gst.Object.ObjectGetControlRateMethodInfo
ResolveTypeFindFactoryMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTypeFindFactoryMethod "getExtensions" o = TypeFindFactoryGetExtensionsMethodInfo
ResolveTypeFindFactoryMethod "getGValueArray" o = Gst.Object.ObjectGetGValueArrayMethodInfo
ResolveTypeFindFactoryMethod "getName" o = Gst.Object.ObjectGetNameMethodInfo
ResolveTypeFindFactoryMethod "getParent" o = Gst.Object.ObjectGetParentMethodInfo
ResolveTypeFindFactoryMethod "getPathString" o = Gst.Object.ObjectGetPathStringMethodInfo
ResolveTypeFindFactoryMethod "getPlugin" o = Gst.PluginFeature.PluginFeatureGetPluginMethodInfo
ResolveTypeFindFactoryMethod "getPluginName" o = Gst.PluginFeature.PluginFeatureGetPluginNameMethodInfo
ResolveTypeFindFactoryMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTypeFindFactoryMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTypeFindFactoryMethod "getRank" o = Gst.PluginFeature.PluginFeatureGetRankMethodInfo
ResolveTypeFindFactoryMethod "getValue" o = Gst.Object.ObjectGetValueMethodInfo
ResolveTypeFindFactoryMethod "setControlBindingDisabled" o = Gst.Object.ObjectSetControlBindingDisabledMethodInfo
ResolveTypeFindFactoryMethod "setControlBindingsDisabled" o = Gst.Object.ObjectSetControlBindingsDisabledMethodInfo
ResolveTypeFindFactoryMethod "setControlRate" o = Gst.Object.ObjectSetControlRateMethodInfo
ResolveTypeFindFactoryMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTypeFindFactoryMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTypeFindFactoryMethod "setName" o = Gst.Object.ObjectSetNameMethodInfo
ResolveTypeFindFactoryMethod "setParent" o = Gst.Object.ObjectSetParentMethodInfo
ResolveTypeFindFactoryMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTypeFindFactoryMethod "setRank" o = Gst.PluginFeature.PluginFeatureSetRankMethodInfo
ResolveTypeFindFactoryMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTypeFindFactoryMethod t TypeFindFactory, O.MethodInfo info TypeFindFactory p) => OL.IsLabel t (TypeFindFactory -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList TypeFindFactory
type instance O.AttributeList TypeFindFactory = TypeFindFactoryAttributeList
type TypeFindFactoryAttributeList = ('[ '("name", Gst.Object.ObjectNamePropertyInfo), '("parent", Gst.Object.ObjectParentPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList TypeFindFactory = TypeFindFactorySignalList
type TypeFindFactorySignalList = ('[ '("deepNotify", Gst.Object.ObjectDeepNotifySignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gst_type_find_factory_call_function" gst_type_find_factory_call_function ::
Ptr TypeFindFactory ->
Ptr Gst.TypeFind.TypeFind ->
IO ()
typeFindFactoryCallFunction ::
(B.CallStack.HasCallStack, MonadIO m, IsTypeFindFactory a) =>
a
-> Gst.TypeFind.TypeFind
-> m ()
typeFindFactoryCallFunction factory find = liftIO $ do
factory' <- unsafeManagedPtrCastPtr factory
find' <- unsafeManagedPtrGetPtr find
gst_type_find_factory_call_function factory' find'
touchManagedPtr factory
touchManagedPtr find
return ()
#if ENABLE_OVERLOADING
data TypeFindFactoryCallFunctionMethodInfo
instance (signature ~ (Gst.TypeFind.TypeFind -> m ()), MonadIO m, IsTypeFindFactory a) => O.MethodInfo TypeFindFactoryCallFunctionMethodInfo a signature where
overloadedMethod _ = typeFindFactoryCallFunction
#endif
foreign import ccall "gst_type_find_factory_get_caps" gst_type_find_factory_get_caps ::
Ptr TypeFindFactory ->
IO (Ptr Gst.Caps.Caps)
typeFindFactoryGetCaps ::
(B.CallStack.HasCallStack, MonadIO m, IsTypeFindFactory a) =>
a
-> m Gst.Caps.Caps
typeFindFactoryGetCaps factory = liftIO $ do
factory' <- unsafeManagedPtrCastPtr factory
result <- gst_type_find_factory_get_caps factory'
checkUnexpectedReturnNULL "typeFindFactoryGetCaps" result
result' <- (newBoxed Gst.Caps.Caps) result
touchManagedPtr factory
return result'
#if ENABLE_OVERLOADING
data TypeFindFactoryGetCapsMethodInfo
instance (signature ~ (m Gst.Caps.Caps), MonadIO m, IsTypeFindFactory a) => O.MethodInfo TypeFindFactoryGetCapsMethodInfo a signature where
overloadedMethod _ = typeFindFactoryGetCaps
#endif
foreign import ccall "gst_type_find_factory_get_extensions" gst_type_find_factory_get_extensions ::
Ptr TypeFindFactory ->
IO (Ptr CString)
typeFindFactoryGetExtensions ::
(B.CallStack.HasCallStack, MonadIO m, IsTypeFindFactory a) =>
a
-> m (Maybe [T.Text])
typeFindFactoryGetExtensions factory = liftIO $ do
factory' <- unsafeManagedPtrCastPtr factory
result <- gst_type_find_factory_get_extensions factory'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- unpackZeroTerminatedUTF8CArray result'
return result''
touchManagedPtr factory
return maybeResult
#if ENABLE_OVERLOADING
data TypeFindFactoryGetExtensionsMethodInfo
instance (signature ~ (m (Maybe [T.Text])), MonadIO m, IsTypeFindFactory a) => O.MethodInfo TypeFindFactoryGetExtensionsMethodInfo a signature where
overloadedMethod _ = typeFindFactoryGetExtensions
#endif
foreign import ccall "gst_type_find_factory_has_function" gst_type_find_factory_has_function ::
Ptr TypeFindFactory ->
IO CInt
typeFindFactoryHasFunction ::
(B.CallStack.HasCallStack, MonadIO m, IsTypeFindFactory a) =>
a
-> m Bool
typeFindFactoryHasFunction factory = liftIO $ do
factory' <- unsafeManagedPtrCastPtr factory
result <- gst_type_find_factory_has_function factory'
let result' = (/= 0) result
touchManagedPtr factory
return result'
#if ENABLE_OVERLOADING
data TypeFindFactoryHasFunctionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTypeFindFactory a) => O.MethodInfo TypeFindFactoryHasFunctionMethodInfo a signature where
overloadedMethod _ = typeFindFactoryHasFunction
#endif
foreign import ccall "gst_type_find_factory_get_list" gst_type_find_factory_get_list ::
IO (Ptr (GList (Ptr TypeFindFactory)))
typeFindFactoryGetList ::
(B.CallStack.HasCallStack, MonadIO m) =>
m [TypeFindFactory]
typeFindFactoryGetList = liftIO $ do
result <- gst_type_find_factory_get_list
result' <- unpackGList result
result'' <- mapM (wrapObject TypeFindFactory) result'
g_list_free result
return result''
#if ENABLE_OVERLOADING
#endif