#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GstPbutils.Objects.DiscovererStreamInfo
(
DiscovererStreamInfo(..) ,
IsDiscovererStreamInfo ,
toDiscovererStreamInfo ,
noDiscovererStreamInfo ,
#if ENABLE_OVERLOADING
DiscovererStreamInfoGetCapsMethodInfo ,
#endif
discovererStreamInfoGetCaps ,
#if ENABLE_OVERLOADING
DiscovererStreamInfoGetMiscMethodInfo ,
#endif
discovererStreamInfoGetMisc ,
#if ENABLE_OVERLOADING
DiscovererStreamInfoGetNextMethodInfo ,
#endif
discovererStreamInfoGetNext ,
#if ENABLE_OVERLOADING
DiscovererStreamInfoGetPreviousMethodInfo,
#endif
discovererStreamInfoGetPrevious ,
#if ENABLE_OVERLOADING
DiscovererStreamInfoGetStreamIdMethodInfo,
#endif
discovererStreamInfoGetStreamId ,
#if ENABLE_OVERLOADING
DiscovererStreamInfoGetStreamTypeNickMethodInfo,
#endif
discovererStreamInfoGetStreamTypeNick ,
#if ENABLE_OVERLOADING
DiscovererStreamInfoGetTagsMethodInfo ,
#endif
discovererStreamInfoGetTags ,
#if ENABLE_OVERLOADING
DiscovererStreamInfoGetTocMethodInfo ,
#endif
discovererStreamInfoGetToc ,
discovererStreamInfoListFree ,
) 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 qualified GI.Gst.Structs.Caps as Gst.Caps
import qualified GI.Gst.Structs.Structure as Gst.Structure
import qualified GI.Gst.Structs.TagList as Gst.TagList
import qualified GI.Gst.Structs.Toc as Gst.Toc
newtype DiscovererStreamInfo = DiscovererStreamInfo (ManagedPtr DiscovererStreamInfo)
foreign import ccall "gst_discoverer_stream_info_get_type"
c_gst_discoverer_stream_info_get_type :: IO GType
instance GObject DiscovererStreamInfo where
gobjectType = c_gst_discoverer_stream_info_get_type
class (GObject o, O.IsDescendantOf DiscovererStreamInfo o) => IsDiscovererStreamInfo o
instance (GObject o, O.IsDescendantOf DiscovererStreamInfo o) => IsDiscovererStreamInfo o
instance O.HasParentTypes DiscovererStreamInfo
type instance O.ParentTypes DiscovererStreamInfo = '[GObject.Object.Object]
toDiscovererStreamInfo :: (MonadIO m, IsDiscovererStreamInfo o) => o -> m DiscovererStreamInfo
toDiscovererStreamInfo = liftIO . unsafeCastTo DiscovererStreamInfo
noDiscovererStreamInfo :: Maybe DiscovererStreamInfo
noDiscovererStreamInfo = Nothing
#if ENABLE_OVERLOADING
type family ResolveDiscovererStreamInfoMethod (t :: Symbol) (o :: *) :: * where
ResolveDiscovererStreamInfoMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDiscovererStreamInfoMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDiscovererStreamInfoMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDiscovererStreamInfoMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDiscovererStreamInfoMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDiscovererStreamInfoMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDiscovererStreamInfoMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDiscovererStreamInfoMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDiscovererStreamInfoMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDiscovererStreamInfoMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDiscovererStreamInfoMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDiscovererStreamInfoMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDiscovererStreamInfoMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDiscovererStreamInfoMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDiscovererStreamInfoMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDiscovererStreamInfoMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDiscovererStreamInfoMethod "getCaps" o = DiscovererStreamInfoGetCapsMethodInfo
ResolveDiscovererStreamInfoMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDiscovererStreamInfoMethod "getMisc" o = DiscovererStreamInfoGetMiscMethodInfo
ResolveDiscovererStreamInfoMethod "getNext" o = DiscovererStreamInfoGetNextMethodInfo
ResolveDiscovererStreamInfoMethod "getPrevious" o = DiscovererStreamInfoGetPreviousMethodInfo
ResolveDiscovererStreamInfoMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDiscovererStreamInfoMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDiscovererStreamInfoMethod "getStreamId" o = DiscovererStreamInfoGetStreamIdMethodInfo
ResolveDiscovererStreamInfoMethod "getStreamTypeNick" o = DiscovererStreamInfoGetStreamTypeNickMethodInfo
ResolveDiscovererStreamInfoMethod "getTags" o = DiscovererStreamInfoGetTagsMethodInfo
ResolveDiscovererStreamInfoMethod "getToc" o = DiscovererStreamInfoGetTocMethodInfo
ResolveDiscovererStreamInfoMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDiscovererStreamInfoMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDiscovererStreamInfoMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDiscovererStreamInfoMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDiscovererStreamInfoMethod t DiscovererStreamInfo, O.MethodInfo info DiscovererStreamInfo p) => OL.IsLabel t (DiscovererStreamInfo -> 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 DiscovererStreamInfo
type instance O.AttributeList DiscovererStreamInfo = DiscovererStreamInfoAttributeList
type DiscovererStreamInfoAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList DiscovererStreamInfo = DiscovererStreamInfoSignalList
type DiscovererStreamInfoSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gst_discoverer_stream_info_get_caps" gst_discoverer_stream_info_get_caps ::
Ptr DiscovererStreamInfo ->
IO (Ptr Gst.Caps.Caps)
discovererStreamInfoGetCaps ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererStreamInfo a) =>
a
-> m Gst.Caps.Caps
discovererStreamInfoGetCaps info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_stream_info_get_caps info'
checkUnexpectedReturnNULL "discovererStreamInfoGetCaps" result
result' <- (wrapBoxed Gst.Caps.Caps) result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
data DiscovererStreamInfoGetCapsMethodInfo
instance (signature ~ (m Gst.Caps.Caps), MonadIO m, IsDiscovererStreamInfo a) => O.MethodInfo DiscovererStreamInfoGetCapsMethodInfo a signature where
overloadedMethod _ = discovererStreamInfoGetCaps
#endif
foreign import ccall "gst_discoverer_stream_info_get_misc" gst_discoverer_stream_info_get_misc ::
Ptr DiscovererStreamInfo ->
IO (Ptr Gst.Structure.Structure)
{-# DEPRECATED discovererStreamInfoGetMisc ["This functions is deprecated since version 1.4, use","@/gst_discoverer_info_get_missing_elements_installer_details/@"] #-}
discovererStreamInfoGetMisc ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererStreamInfo a) =>
a
-> m Gst.Structure.Structure
discovererStreamInfoGetMisc info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_stream_info_get_misc info'
checkUnexpectedReturnNULL "discovererStreamInfoGetMisc" result
result' <- (newBoxed Gst.Structure.Structure) result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
data DiscovererStreamInfoGetMiscMethodInfo
instance (signature ~ (m Gst.Structure.Structure), MonadIO m, IsDiscovererStreamInfo a) => O.MethodInfo DiscovererStreamInfoGetMiscMethodInfo a signature where
overloadedMethod _ = discovererStreamInfoGetMisc
#endif
foreign import ccall "gst_discoverer_stream_info_get_next" gst_discoverer_stream_info_get_next ::
Ptr DiscovererStreamInfo ->
IO (Ptr DiscovererStreamInfo)
discovererStreamInfoGetNext ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererStreamInfo a) =>
a
-> m DiscovererStreamInfo
discovererStreamInfoGetNext info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_stream_info_get_next info'
checkUnexpectedReturnNULL "discovererStreamInfoGetNext" result
result' <- (wrapObject DiscovererStreamInfo) result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
data DiscovererStreamInfoGetNextMethodInfo
instance (signature ~ (m DiscovererStreamInfo), MonadIO m, IsDiscovererStreamInfo a) => O.MethodInfo DiscovererStreamInfoGetNextMethodInfo a signature where
overloadedMethod _ = discovererStreamInfoGetNext
#endif
foreign import ccall "gst_discoverer_stream_info_get_previous" gst_discoverer_stream_info_get_previous ::
Ptr DiscovererStreamInfo ->
IO (Ptr DiscovererStreamInfo)
discovererStreamInfoGetPrevious ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererStreamInfo a) =>
a
-> m DiscovererStreamInfo
discovererStreamInfoGetPrevious info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_stream_info_get_previous info'
checkUnexpectedReturnNULL "discovererStreamInfoGetPrevious" result
result' <- (wrapObject DiscovererStreamInfo) result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
data DiscovererStreamInfoGetPreviousMethodInfo
instance (signature ~ (m DiscovererStreamInfo), MonadIO m, IsDiscovererStreamInfo a) => O.MethodInfo DiscovererStreamInfoGetPreviousMethodInfo a signature where
overloadedMethod _ = discovererStreamInfoGetPrevious
#endif
foreign import ccall "gst_discoverer_stream_info_get_stream_id" gst_discoverer_stream_info_get_stream_id ::
Ptr DiscovererStreamInfo ->
IO CString
discovererStreamInfoGetStreamId ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererStreamInfo a) =>
a
-> m T.Text
discovererStreamInfoGetStreamId info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_stream_info_get_stream_id info'
checkUnexpectedReturnNULL "discovererStreamInfoGetStreamId" result
result' <- cstringToText result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
data DiscovererStreamInfoGetStreamIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDiscovererStreamInfo a) => O.MethodInfo DiscovererStreamInfoGetStreamIdMethodInfo a signature where
overloadedMethod _ = discovererStreamInfoGetStreamId
#endif
foreign import ccall "gst_discoverer_stream_info_get_stream_type_nick" gst_discoverer_stream_info_get_stream_type_nick ::
Ptr DiscovererStreamInfo ->
IO CString
discovererStreamInfoGetStreamTypeNick ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererStreamInfo a) =>
a
-> m T.Text
discovererStreamInfoGetStreamTypeNick info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_stream_info_get_stream_type_nick info'
checkUnexpectedReturnNULL "discovererStreamInfoGetStreamTypeNick" result
result' <- cstringToText result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
data DiscovererStreamInfoGetStreamTypeNickMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDiscovererStreamInfo a) => O.MethodInfo DiscovererStreamInfoGetStreamTypeNickMethodInfo a signature where
overloadedMethod _ = discovererStreamInfoGetStreamTypeNick
#endif
foreign import ccall "gst_discoverer_stream_info_get_tags" gst_discoverer_stream_info_get_tags ::
Ptr DiscovererStreamInfo ->
IO (Ptr Gst.TagList.TagList)
discovererStreamInfoGetTags ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererStreamInfo a) =>
a
-> m Gst.TagList.TagList
discovererStreamInfoGetTags info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_stream_info_get_tags info'
checkUnexpectedReturnNULL "discovererStreamInfoGetTags" result
result' <- (newBoxed Gst.TagList.TagList) result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
data DiscovererStreamInfoGetTagsMethodInfo
instance (signature ~ (m Gst.TagList.TagList), MonadIO m, IsDiscovererStreamInfo a) => O.MethodInfo DiscovererStreamInfoGetTagsMethodInfo a signature where
overloadedMethod _ = discovererStreamInfoGetTags
#endif
foreign import ccall "gst_discoverer_stream_info_get_toc" gst_discoverer_stream_info_get_toc ::
Ptr DiscovererStreamInfo ->
IO (Ptr Gst.Toc.Toc)
discovererStreamInfoGetToc ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererStreamInfo a) =>
a
-> m Gst.Toc.Toc
discovererStreamInfoGetToc info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_stream_info_get_toc info'
checkUnexpectedReturnNULL "discovererStreamInfoGetToc" result
result' <- (newBoxed Gst.Toc.Toc) result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
data DiscovererStreamInfoGetTocMethodInfo
instance (signature ~ (m Gst.Toc.Toc), MonadIO m, IsDiscovererStreamInfo a) => O.MethodInfo DiscovererStreamInfoGetTocMethodInfo a signature where
overloadedMethod _ = discovererStreamInfoGetToc
#endif
foreign import ccall "gst_discoverer_stream_info_list_free" gst_discoverer_stream_info_list_free ::
Ptr (GList (Ptr DiscovererStreamInfo)) ->
IO ()
discovererStreamInfoListFree ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererStreamInfo a) =>
[a]
-> m ()
discovererStreamInfoListFree infos = liftIO $ do
infos' <- mapM unsafeManagedPtrCastPtr infos
infos'' <- packGList infos'
gst_discoverer_stream_info_list_free infos''
mapM_ touchManagedPtr infos
g_list_free infos''
return ()
#if ENABLE_OVERLOADING
#endif