#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GstPbutils.Objects.DiscovererInfo
(
DiscovererInfo(..) ,
IsDiscovererInfo ,
toDiscovererInfo ,
noDiscovererInfo ,
#if ENABLE_OVERLOADING
DiscovererInfoCopyMethodInfo ,
#endif
discovererInfoCopy ,
discovererInfoFromVariant ,
#if ENABLE_OVERLOADING
DiscovererInfoGetAudioStreamsMethodInfo ,
#endif
discovererInfoGetAudioStreams ,
#if ENABLE_OVERLOADING
DiscovererInfoGetContainerStreamsMethodInfo,
#endif
discovererInfoGetContainerStreams ,
#if ENABLE_OVERLOADING
DiscovererInfoGetDurationMethodInfo ,
#endif
discovererInfoGetDuration ,
#if ENABLE_OVERLOADING
DiscovererInfoGetLiveMethodInfo ,
#endif
discovererInfoGetLive ,
#if ENABLE_OVERLOADING
DiscovererInfoGetMiscMethodInfo ,
#endif
discovererInfoGetMisc ,
#if ENABLE_OVERLOADING
DiscovererInfoGetMissingElementsInstallerDetailsMethodInfo,
#endif
discovererInfoGetMissingElementsInstallerDetails,
#if ENABLE_OVERLOADING
DiscovererInfoGetResultMethodInfo ,
#endif
discovererInfoGetResult ,
#if ENABLE_OVERLOADING
DiscovererInfoGetSeekableMethodInfo ,
#endif
discovererInfoGetSeekable ,
#if ENABLE_OVERLOADING
DiscovererInfoGetStreamInfoMethodInfo ,
#endif
discovererInfoGetStreamInfo ,
#if ENABLE_OVERLOADING
DiscovererInfoGetStreamListMethodInfo ,
#endif
discovererInfoGetStreamList ,
#if ENABLE_OVERLOADING
DiscovererInfoGetStreamsMethodInfo ,
#endif
discovererInfoGetStreams ,
#if ENABLE_OVERLOADING
DiscovererInfoGetSubtitleStreamsMethodInfo,
#endif
discovererInfoGetSubtitleStreams ,
#if ENABLE_OVERLOADING
DiscovererInfoGetTagsMethodInfo ,
#endif
discovererInfoGetTags ,
#if ENABLE_OVERLOADING
DiscovererInfoGetTocMethodInfo ,
#endif
discovererInfoGetToc ,
#if ENABLE_OVERLOADING
DiscovererInfoGetUriMethodInfo ,
#endif
discovererInfoGetUri ,
#if ENABLE_OVERLOADING
DiscovererInfoGetVideoStreamsMethodInfo ,
#endif
discovererInfoGetVideoStreams ,
#if ENABLE_OVERLOADING
DiscovererInfoToVariantMethodInfo ,
#endif
discovererInfoToVariant ,
) 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.Structure as Gst.Structure
import qualified GI.Gst.Structs.TagList as Gst.TagList
import qualified GI.Gst.Structs.Toc as Gst.Toc
import {-# SOURCE #-} qualified GI.GstPbutils.Enums as GstPbutils.Enums
import {-# SOURCE #-} qualified GI.GstPbutils.Flags as GstPbutils.Flags
import {-# SOURCE #-} qualified GI.GstPbutils.Objects.DiscovererStreamInfo as GstPbutils.DiscovererStreamInfo
newtype DiscovererInfo = DiscovererInfo (ManagedPtr DiscovererInfo)
foreign import ccall "gst_discoverer_info_get_type"
c_gst_discoverer_info_get_type :: IO GType
instance GObject DiscovererInfo where
gobjectType = c_gst_discoverer_info_get_type
class (GObject o, O.IsDescendantOf DiscovererInfo o) => IsDiscovererInfo o
instance (GObject o, O.IsDescendantOf DiscovererInfo o) => IsDiscovererInfo o
instance O.HasParentTypes DiscovererInfo
type instance O.ParentTypes DiscovererInfo = '[GObject.Object.Object]
toDiscovererInfo :: (MonadIO m, IsDiscovererInfo o) => o -> m DiscovererInfo
toDiscovererInfo = liftIO . unsafeCastTo DiscovererInfo
noDiscovererInfo :: Maybe DiscovererInfo
noDiscovererInfo = Nothing
#if ENABLE_OVERLOADING
type family ResolveDiscovererInfoMethod (t :: Symbol) (o :: *) :: * where
ResolveDiscovererInfoMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDiscovererInfoMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDiscovererInfoMethod "copy" o = DiscovererInfoCopyMethodInfo
ResolveDiscovererInfoMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDiscovererInfoMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDiscovererInfoMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDiscovererInfoMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDiscovererInfoMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDiscovererInfoMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDiscovererInfoMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDiscovererInfoMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDiscovererInfoMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDiscovererInfoMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDiscovererInfoMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDiscovererInfoMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDiscovererInfoMethod "toVariant" o = DiscovererInfoToVariantMethodInfo
ResolveDiscovererInfoMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDiscovererInfoMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDiscovererInfoMethod "getAudioStreams" o = DiscovererInfoGetAudioStreamsMethodInfo
ResolveDiscovererInfoMethod "getContainerStreams" o = DiscovererInfoGetContainerStreamsMethodInfo
ResolveDiscovererInfoMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDiscovererInfoMethod "getDuration" o = DiscovererInfoGetDurationMethodInfo
ResolveDiscovererInfoMethod "getLive" o = DiscovererInfoGetLiveMethodInfo
ResolveDiscovererInfoMethod "getMisc" o = DiscovererInfoGetMiscMethodInfo
ResolveDiscovererInfoMethod "getMissingElementsInstallerDetails" o = DiscovererInfoGetMissingElementsInstallerDetailsMethodInfo
ResolveDiscovererInfoMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDiscovererInfoMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDiscovererInfoMethod "getResult" o = DiscovererInfoGetResultMethodInfo
ResolveDiscovererInfoMethod "getSeekable" o = DiscovererInfoGetSeekableMethodInfo
ResolveDiscovererInfoMethod "getStreamInfo" o = DiscovererInfoGetStreamInfoMethodInfo
ResolveDiscovererInfoMethod "getStreamList" o = DiscovererInfoGetStreamListMethodInfo
ResolveDiscovererInfoMethod "getStreams" o = DiscovererInfoGetStreamsMethodInfo
ResolveDiscovererInfoMethod "getSubtitleStreams" o = DiscovererInfoGetSubtitleStreamsMethodInfo
ResolveDiscovererInfoMethod "getTags" o = DiscovererInfoGetTagsMethodInfo
ResolveDiscovererInfoMethod "getToc" o = DiscovererInfoGetTocMethodInfo
ResolveDiscovererInfoMethod "getUri" o = DiscovererInfoGetUriMethodInfo
ResolveDiscovererInfoMethod "getVideoStreams" o = DiscovererInfoGetVideoStreamsMethodInfo
ResolveDiscovererInfoMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDiscovererInfoMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDiscovererInfoMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDiscovererInfoMethod t DiscovererInfo, O.MethodInfo info DiscovererInfo p) => OL.IsLabel t (DiscovererInfo -> 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 DiscovererInfo
type instance O.AttributeList DiscovererInfo = DiscovererInfoAttributeList
type DiscovererInfoAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList DiscovererInfo = DiscovererInfoSignalList
type DiscovererInfoSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gst_discoverer_info_copy" gst_discoverer_info_copy ::
Ptr DiscovererInfo ->
IO (Ptr DiscovererInfo)
discovererInfoCopy ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a
-> m DiscovererInfo
discovererInfoCopy ptr = liftIO $ do
ptr' <- unsafeManagedPtrCastPtr ptr
result <- gst_discoverer_info_copy ptr'
checkUnexpectedReturnNULL "discovererInfoCopy" result
result' <- (wrapObject DiscovererInfo) result
touchManagedPtr ptr
return result'
#if ENABLE_OVERLOADING
data DiscovererInfoCopyMethodInfo
instance (signature ~ (m DiscovererInfo), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoCopyMethodInfo a signature where
overloadedMethod _ = discovererInfoCopy
#endif
foreign import ccall "gst_discoverer_info_get_audio_streams" gst_discoverer_info_get_audio_streams ::
Ptr DiscovererInfo ->
IO (Ptr (GList (Ptr GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo)))
discovererInfoGetAudioStreams ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a
-> m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]
discovererInfoGetAudioStreams info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_info_get_audio_streams info'
result' <- unpackGList result
result'' <- mapM (wrapObject GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo) result'
g_list_free result
touchManagedPtr info
return result''
#if ENABLE_OVERLOADING
data DiscovererInfoGetAudioStreamsMethodInfo
instance (signature ~ (m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetAudioStreamsMethodInfo a signature where
overloadedMethod _ = discovererInfoGetAudioStreams
#endif
foreign import ccall "gst_discoverer_info_get_container_streams" gst_discoverer_info_get_container_streams ::
Ptr DiscovererInfo ->
IO (Ptr (GList (Ptr GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo)))
discovererInfoGetContainerStreams ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a
-> m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]
discovererInfoGetContainerStreams info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_info_get_container_streams info'
result' <- unpackGList result
result'' <- mapM (wrapObject GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo) result'
g_list_free result
touchManagedPtr info
return result''
#if ENABLE_OVERLOADING
data DiscovererInfoGetContainerStreamsMethodInfo
instance (signature ~ (m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetContainerStreamsMethodInfo a signature where
overloadedMethod _ = discovererInfoGetContainerStreams
#endif
foreign import ccall "gst_discoverer_info_get_duration" gst_discoverer_info_get_duration ::
Ptr DiscovererInfo ->
IO Word64
discovererInfoGetDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a
-> m Word64
discovererInfoGetDuration info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_info_get_duration info'
touchManagedPtr info
return result
#if ENABLE_OVERLOADING
data DiscovererInfoGetDurationMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetDurationMethodInfo a signature where
overloadedMethod _ = discovererInfoGetDuration
#endif
foreign import ccall "gst_discoverer_info_get_live" gst_discoverer_info_get_live ::
Ptr DiscovererInfo ->
IO CInt
discovererInfoGetLive ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a
-> m Bool
discovererInfoGetLive info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_info_get_live info'
let result' = (/= 0) result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
data DiscovererInfoGetLiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetLiveMethodInfo a signature where
overloadedMethod _ = discovererInfoGetLive
#endif
foreign import ccall "gst_discoverer_info_get_misc" gst_discoverer_info_get_misc ::
Ptr DiscovererInfo ->
IO (Ptr Gst.Structure.Structure)
{-# DEPRECATED discovererInfoGetMisc ["This functions is deprecated since version 1.4, use","@/gst_discoverer_info_get_missing_elements_installer_details/@"] #-}
discovererInfoGetMisc ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a
-> m Gst.Structure.Structure
discovererInfoGetMisc info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_info_get_misc info'
checkUnexpectedReturnNULL "discovererInfoGetMisc" result
result' <- (newBoxed Gst.Structure.Structure) result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
data DiscovererInfoGetMiscMethodInfo
instance (signature ~ (m Gst.Structure.Structure), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetMiscMethodInfo a signature where
overloadedMethod _ = discovererInfoGetMisc
#endif
foreign import ccall "gst_discoverer_info_get_missing_elements_installer_details" gst_discoverer_info_get_missing_elements_installer_details ::
Ptr DiscovererInfo ->
IO (Ptr CString)
discovererInfoGetMissingElementsInstallerDetails ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a
-> m [T.Text]
discovererInfoGetMissingElementsInstallerDetails info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_info_get_missing_elements_installer_details info'
checkUnexpectedReturnNULL "discovererInfoGetMissingElementsInstallerDetails" result
result' <- unpackZeroTerminatedUTF8CArray result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
data DiscovererInfoGetMissingElementsInstallerDetailsMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetMissingElementsInstallerDetailsMethodInfo a signature where
overloadedMethod _ = discovererInfoGetMissingElementsInstallerDetails
#endif
foreign import ccall "gst_discoverer_info_get_result" gst_discoverer_info_get_result ::
Ptr DiscovererInfo ->
IO CUInt
discovererInfoGetResult ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a
-> m GstPbutils.Enums.DiscovererResult
discovererInfoGetResult info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_info_get_result info'
let result' = (toEnum . fromIntegral) result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
data DiscovererInfoGetResultMethodInfo
instance (signature ~ (m GstPbutils.Enums.DiscovererResult), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetResultMethodInfo a signature where
overloadedMethod _ = discovererInfoGetResult
#endif
foreign import ccall "gst_discoverer_info_get_seekable" gst_discoverer_info_get_seekable ::
Ptr DiscovererInfo ->
IO CInt
discovererInfoGetSeekable ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a
-> m Bool
discovererInfoGetSeekable info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_info_get_seekable info'
let result' = (/= 0) result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
data DiscovererInfoGetSeekableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetSeekableMethodInfo a signature where
overloadedMethod _ = discovererInfoGetSeekable
#endif
foreign import ccall "gst_discoverer_info_get_stream_info" gst_discoverer_info_get_stream_info ::
Ptr DiscovererInfo ->
IO (Ptr GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo)
discovererInfoGetStreamInfo ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a
-> m GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo
discovererInfoGetStreamInfo info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_info_get_stream_info info'
checkUnexpectedReturnNULL "discovererInfoGetStreamInfo" result
result' <- (wrapObject GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo) result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
data DiscovererInfoGetStreamInfoMethodInfo
instance (signature ~ (m GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetStreamInfoMethodInfo a signature where
overloadedMethod _ = discovererInfoGetStreamInfo
#endif
foreign import ccall "gst_discoverer_info_get_stream_list" gst_discoverer_info_get_stream_list ::
Ptr DiscovererInfo ->
IO (Ptr (GList (Ptr GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo)))
discovererInfoGetStreamList ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a
-> m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]
discovererInfoGetStreamList info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_info_get_stream_list info'
result' <- unpackGList result
result'' <- mapM (wrapObject GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo) result'
g_list_free result
touchManagedPtr info
return result''
#if ENABLE_OVERLOADING
data DiscovererInfoGetStreamListMethodInfo
instance (signature ~ (m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetStreamListMethodInfo a signature where
overloadedMethod _ = discovererInfoGetStreamList
#endif
foreign import ccall "gst_discoverer_info_get_streams" gst_discoverer_info_get_streams ::
Ptr DiscovererInfo ->
CGType ->
IO (Ptr (GList (Ptr GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo)))
discovererInfoGetStreams ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a
-> GType
-> m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]
discovererInfoGetStreams info streamtype = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
let streamtype' = gtypeToCGType streamtype
result <- gst_discoverer_info_get_streams info' streamtype'
result' <- unpackGList result
result'' <- mapM (wrapObject GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo) result'
g_list_free result
touchManagedPtr info
return result''
#if ENABLE_OVERLOADING
data DiscovererInfoGetStreamsMethodInfo
instance (signature ~ (GType -> m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetStreamsMethodInfo a signature where
overloadedMethod _ = discovererInfoGetStreams
#endif
foreign import ccall "gst_discoverer_info_get_subtitle_streams" gst_discoverer_info_get_subtitle_streams ::
Ptr DiscovererInfo ->
IO (Ptr (GList (Ptr GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo)))
discovererInfoGetSubtitleStreams ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a
-> m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]
discovererInfoGetSubtitleStreams info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_info_get_subtitle_streams info'
result' <- unpackGList result
result'' <- mapM (wrapObject GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo) result'
g_list_free result
touchManagedPtr info
return result''
#if ENABLE_OVERLOADING
data DiscovererInfoGetSubtitleStreamsMethodInfo
instance (signature ~ (m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetSubtitleStreamsMethodInfo a signature where
overloadedMethod _ = discovererInfoGetSubtitleStreams
#endif
foreign import ccall "gst_discoverer_info_get_tags" gst_discoverer_info_get_tags ::
Ptr DiscovererInfo ->
IO (Ptr Gst.TagList.TagList)
discovererInfoGetTags ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a
-> m Gst.TagList.TagList
discovererInfoGetTags info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_info_get_tags info'
checkUnexpectedReturnNULL "discovererInfoGetTags" result
result' <- (newBoxed Gst.TagList.TagList) result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
data DiscovererInfoGetTagsMethodInfo
instance (signature ~ (m Gst.TagList.TagList), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetTagsMethodInfo a signature where
overloadedMethod _ = discovererInfoGetTags
#endif
foreign import ccall "gst_discoverer_info_get_toc" gst_discoverer_info_get_toc ::
Ptr DiscovererInfo ->
IO (Ptr Gst.Toc.Toc)
discovererInfoGetToc ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a
-> m Gst.Toc.Toc
discovererInfoGetToc info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_info_get_toc info'
checkUnexpectedReturnNULL "discovererInfoGetToc" result
result' <- (newBoxed Gst.Toc.Toc) result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
data DiscovererInfoGetTocMethodInfo
instance (signature ~ (m Gst.Toc.Toc), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetTocMethodInfo a signature where
overloadedMethod _ = discovererInfoGetToc
#endif
foreign import ccall "gst_discoverer_info_get_uri" gst_discoverer_info_get_uri ::
Ptr DiscovererInfo ->
IO CString
discovererInfoGetUri ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a
-> m T.Text
discovererInfoGetUri info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_info_get_uri info'
checkUnexpectedReturnNULL "discovererInfoGetUri" result
result' <- cstringToText result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
data DiscovererInfoGetUriMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetUriMethodInfo a signature where
overloadedMethod _ = discovererInfoGetUri
#endif
foreign import ccall "gst_discoverer_info_get_video_streams" gst_discoverer_info_get_video_streams ::
Ptr DiscovererInfo ->
IO (Ptr (GList (Ptr GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo)))
discovererInfoGetVideoStreams ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a
-> m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]
discovererInfoGetVideoStreams info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_info_get_video_streams info'
result' <- unpackGList result
result'' <- mapM (wrapObject GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo) result'
g_list_free result
touchManagedPtr info
return result''
#if ENABLE_OVERLOADING
data DiscovererInfoGetVideoStreamsMethodInfo
instance (signature ~ (m [GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo]), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoGetVideoStreamsMethodInfo a signature where
overloadedMethod _ = discovererInfoGetVideoStreams
#endif
foreign import ccall "gst_discoverer_info_to_variant" gst_discoverer_info_to_variant ::
Ptr DiscovererInfo ->
CUInt ->
IO (Ptr GVariant)
discovererInfoToVariant ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a
-> [GstPbutils.Flags.DiscovererSerializeFlags]
-> m GVariant
discovererInfoToVariant info flags = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
let flags' = gflagsToWord flags
result <- gst_discoverer_info_to_variant info' flags'
checkUnexpectedReturnNULL "discovererInfoToVariant" result
result' <- B.GVariant.wrapGVariantPtr result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
data DiscovererInfoToVariantMethodInfo
instance (signature ~ ([GstPbutils.Flags.DiscovererSerializeFlags] -> m GVariant), MonadIO m, IsDiscovererInfo a) => O.MethodInfo DiscovererInfoToVariantMethodInfo a signature where
overloadedMethod _ = discovererInfoToVariant
#endif
foreign import ccall "gst_discoverer_info_from_variant" gst_discoverer_info_from_variant ::
Ptr GVariant ->
IO (Ptr DiscovererInfo)
discovererInfoFromVariant ::
(B.CallStack.HasCallStack, MonadIO m) =>
GVariant
-> m DiscovererInfo
discovererInfoFromVariant variant = liftIO $ do
variant' <- unsafeManagedPtrGetPtr variant
result <- gst_discoverer_info_from_variant variant'
checkUnexpectedReturnNULL "discovererInfoFromVariant" result
result' <- (wrapObject DiscovererInfo) result
touchManagedPtr variant
return result'
#if ENABLE_OVERLOADING
#endif