module GI.GstPbutils.Objects.DiscovererVideoInfo
(
DiscovererVideoInfo(..) ,
IsDiscovererVideoInfo ,
toDiscovererVideoInfo ,
noDiscovererVideoInfo ,
DiscovererVideoInfoGetBitrateMethodInfo ,
discovererVideoInfoGetBitrate ,
DiscovererVideoInfoGetDepthMethodInfo ,
discovererVideoInfoGetDepth ,
DiscovererVideoInfoGetFramerateDenomMethodInfo,
discovererVideoInfoGetFramerateDenom ,
DiscovererVideoInfoGetFramerateNumMethodInfo,
discovererVideoInfoGetFramerateNum ,
DiscovererVideoInfoGetHeightMethodInfo ,
discovererVideoInfoGetHeight ,
DiscovererVideoInfoGetMaxBitrateMethodInfo,
discovererVideoInfoGetMaxBitrate ,
DiscovererVideoInfoGetParDenomMethodInfo,
discovererVideoInfoGetParDenom ,
DiscovererVideoInfoGetParNumMethodInfo ,
discovererVideoInfoGetParNum ,
DiscovererVideoInfoGetWidthMethodInfo ,
discovererVideoInfoGetWidth ,
DiscovererVideoInfoIsImageMethodInfo ,
discovererVideoInfoIsImage ,
DiscovererVideoInfoIsInterlacedMethodInfo,
discovererVideoInfoIsInterlaced ,
) 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.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.GObject.Objects.Object as GObject.Object
import qualified GI.GstPbutils.Objects.DiscovererStreamInfo as GstPbutils.DiscovererStreamInfo
newtype DiscovererVideoInfo = DiscovererVideoInfo (ManagedPtr DiscovererVideoInfo)
foreign import ccall "gst_discoverer_video_info_get_type"
c_gst_discoverer_video_info_get_type :: IO GType
instance GObject DiscovererVideoInfo where
gobjectType _ = c_gst_discoverer_video_info_get_type
class GObject o => IsDiscovererVideoInfo o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError DiscovererVideoInfo a) =>
IsDiscovererVideoInfo a
#endif
instance IsDiscovererVideoInfo DiscovererVideoInfo
instance GstPbutils.DiscovererStreamInfo.IsDiscovererStreamInfo DiscovererVideoInfo
instance GObject.Object.IsObject DiscovererVideoInfo
toDiscovererVideoInfo :: IsDiscovererVideoInfo o => o -> IO DiscovererVideoInfo
toDiscovererVideoInfo = unsafeCastTo DiscovererVideoInfo
noDiscovererVideoInfo :: Maybe DiscovererVideoInfo
noDiscovererVideoInfo = Nothing
type family ResolveDiscovererVideoInfoMethod (t :: Symbol) (o :: *) :: * where
ResolveDiscovererVideoInfoMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDiscovererVideoInfoMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDiscovererVideoInfoMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDiscovererVideoInfoMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDiscovererVideoInfoMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDiscovererVideoInfoMethod "isImage" o = DiscovererVideoInfoIsImageMethodInfo
ResolveDiscovererVideoInfoMethod "isInterlaced" o = DiscovererVideoInfoIsInterlacedMethodInfo
ResolveDiscovererVideoInfoMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDiscovererVideoInfoMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDiscovererVideoInfoMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDiscovererVideoInfoMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDiscovererVideoInfoMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveDiscovererVideoInfoMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveDiscovererVideoInfoMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDiscovererVideoInfoMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDiscovererVideoInfoMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDiscovererVideoInfoMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDiscovererVideoInfoMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDiscovererVideoInfoMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDiscovererVideoInfoMethod "getBitrate" o = DiscovererVideoInfoGetBitrateMethodInfo
ResolveDiscovererVideoInfoMethod "getCaps" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetCapsMethodInfo
ResolveDiscovererVideoInfoMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDiscovererVideoInfoMethod "getDepth" o = DiscovererVideoInfoGetDepthMethodInfo
ResolveDiscovererVideoInfoMethod "getFramerateDenom" o = DiscovererVideoInfoGetFramerateDenomMethodInfo
ResolveDiscovererVideoInfoMethod "getFramerateNum" o = DiscovererVideoInfoGetFramerateNumMethodInfo
ResolveDiscovererVideoInfoMethod "getHeight" o = DiscovererVideoInfoGetHeightMethodInfo
ResolveDiscovererVideoInfoMethod "getMaxBitrate" o = DiscovererVideoInfoGetMaxBitrateMethodInfo
ResolveDiscovererVideoInfoMethod "getMisc" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetMiscMethodInfo
ResolveDiscovererVideoInfoMethod "getNext" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetNextMethodInfo
ResolveDiscovererVideoInfoMethod "getParDenom" o = DiscovererVideoInfoGetParDenomMethodInfo
ResolveDiscovererVideoInfoMethod "getParNum" o = DiscovererVideoInfoGetParNumMethodInfo
ResolveDiscovererVideoInfoMethod "getPrevious" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetPreviousMethodInfo
ResolveDiscovererVideoInfoMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDiscovererVideoInfoMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDiscovererVideoInfoMethod "getStreamId" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetStreamIdMethodInfo
ResolveDiscovererVideoInfoMethod "getStreamTypeNick" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetStreamTypeNickMethodInfo
ResolveDiscovererVideoInfoMethod "getTags" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetTagsMethodInfo
ResolveDiscovererVideoInfoMethod "getToc" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetTocMethodInfo
ResolveDiscovererVideoInfoMethod "getWidth" o = DiscovererVideoInfoGetWidthMethodInfo
ResolveDiscovererVideoInfoMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDiscovererVideoInfoMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDiscovererVideoInfoMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDiscovererVideoInfoMethod t DiscovererVideoInfo, O.MethodInfo info DiscovererVideoInfo p) => O.IsLabelProxy t (DiscovererVideoInfo -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDiscovererVideoInfoMethod t DiscovererVideoInfo, O.MethodInfo info DiscovererVideoInfo p) => O.IsLabel t (DiscovererVideoInfo -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
instance O.HasAttributeList DiscovererVideoInfo
type instance O.AttributeList DiscovererVideoInfo = DiscovererVideoInfoAttributeList
type DiscovererVideoInfoAttributeList = ('[ ] :: [(Symbol, *)])
type instance O.SignalList DiscovererVideoInfo = DiscovererVideoInfoSignalList
type DiscovererVideoInfoSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gst_discoverer_video_info_get_bitrate" gst_discoverer_video_info_get_bitrate ::
Ptr DiscovererVideoInfo ->
IO Word32
discovererVideoInfoGetBitrate ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>
a
-> m Word32
discovererVideoInfoGetBitrate info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_video_info_get_bitrate info'
touchManagedPtr info
return result
data DiscovererVideoInfoGetBitrateMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoGetBitrateMethodInfo a signature where
overloadedMethod _ = discovererVideoInfoGetBitrate
foreign import ccall "gst_discoverer_video_info_get_depth" gst_discoverer_video_info_get_depth ::
Ptr DiscovererVideoInfo ->
IO Word32
discovererVideoInfoGetDepth ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>
a
-> m Word32
discovererVideoInfoGetDepth info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_video_info_get_depth info'
touchManagedPtr info
return result
data DiscovererVideoInfoGetDepthMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoGetDepthMethodInfo a signature where
overloadedMethod _ = discovererVideoInfoGetDepth
foreign import ccall "gst_discoverer_video_info_get_framerate_denom" gst_discoverer_video_info_get_framerate_denom ::
Ptr DiscovererVideoInfo ->
IO Word32
discovererVideoInfoGetFramerateDenom ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>
a
-> m Word32
discovererVideoInfoGetFramerateDenom info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_video_info_get_framerate_denom info'
touchManagedPtr info
return result
data DiscovererVideoInfoGetFramerateDenomMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoGetFramerateDenomMethodInfo a signature where
overloadedMethod _ = discovererVideoInfoGetFramerateDenom
foreign import ccall "gst_discoverer_video_info_get_framerate_num" gst_discoverer_video_info_get_framerate_num ::
Ptr DiscovererVideoInfo ->
IO Word32
discovererVideoInfoGetFramerateNum ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>
a
-> m Word32
discovererVideoInfoGetFramerateNum info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_video_info_get_framerate_num info'
touchManagedPtr info
return result
data DiscovererVideoInfoGetFramerateNumMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoGetFramerateNumMethodInfo a signature where
overloadedMethod _ = discovererVideoInfoGetFramerateNum
foreign import ccall "gst_discoverer_video_info_get_height" gst_discoverer_video_info_get_height ::
Ptr DiscovererVideoInfo ->
IO Word32
discovererVideoInfoGetHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>
a
-> m Word32
discovererVideoInfoGetHeight info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_video_info_get_height info'
touchManagedPtr info
return result
data DiscovererVideoInfoGetHeightMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoGetHeightMethodInfo a signature where
overloadedMethod _ = discovererVideoInfoGetHeight
foreign import ccall "gst_discoverer_video_info_get_max_bitrate" gst_discoverer_video_info_get_max_bitrate ::
Ptr DiscovererVideoInfo ->
IO Word32
discovererVideoInfoGetMaxBitrate ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>
a
-> m Word32
discovererVideoInfoGetMaxBitrate info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_video_info_get_max_bitrate info'
touchManagedPtr info
return result
data DiscovererVideoInfoGetMaxBitrateMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoGetMaxBitrateMethodInfo a signature where
overloadedMethod _ = discovererVideoInfoGetMaxBitrate
foreign import ccall "gst_discoverer_video_info_get_par_denom" gst_discoverer_video_info_get_par_denom ::
Ptr DiscovererVideoInfo ->
IO Word32
discovererVideoInfoGetParDenom ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>
a
-> m Word32
discovererVideoInfoGetParDenom info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_video_info_get_par_denom info'
touchManagedPtr info
return result
data DiscovererVideoInfoGetParDenomMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoGetParDenomMethodInfo a signature where
overloadedMethod _ = discovererVideoInfoGetParDenom
foreign import ccall "gst_discoverer_video_info_get_par_num" gst_discoverer_video_info_get_par_num ::
Ptr DiscovererVideoInfo ->
IO Word32
discovererVideoInfoGetParNum ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>
a
-> m Word32
discovererVideoInfoGetParNum info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_video_info_get_par_num info'
touchManagedPtr info
return result
data DiscovererVideoInfoGetParNumMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoGetParNumMethodInfo a signature where
overloadedMethod _ = discovererVideoInfoGetParNum
foreign import ccall "gst_discoverer_video_info_get_width" gst_discoverer_video_info_get_width ::
Ptr DiscovererVideoInfo ->
IO Word32
discovererVideoInfoGetWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>
a
-> m Word32
discovererVideoInfoGetWidth info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_video_info_get_width info'
touchManagedPtr info
return result
data DiscovererVideoInfoGetWidthMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoGetWidthMethodInfo a signature where
overloadedMethod _ = discovererVideoInfoGetWidth
foreign import ccall "gst_discoverer_video_info_is_image" gst_discoverer_video_info_is_image ::
Ptr DiscovererVideoInfo ->
IO CInt
discovererVideoInfoIsImage ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>
a
-> m Bool
discovererVideoInfoIsImage info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_video_info_is_image info'
let result' = (/= 0) result
touchManagedPtr info
return result'
data DiscovererVideoInfoIsImageMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoIsImageMethodInfo a signature where
overloadedMethod _ = discovererVideoInfoIsImage
foreign import ccall "gst_discoverer_video_info_is_interlaced" gst_discoverer_video_info_is_interlaced ::
Ptr DiscovererVideoInfo ->
IO CInt
discovererVideoInfoIsInterlaced ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererVideoInfo a) =>
a
-> m Bool
discovererVideoInfoIsInterlaced info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_discoverer_video_info_is_interlaced info'
let result' = (/= 0) result
touchManagedPtr info
return result'
data DiscovererVideoInfoIsInterlacedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDiscovererVideoInfo a) => O.MethodInfo DiscovererVideoInfoIsInterlacedMethodInfo a signature where
overloadedMethod _ = discovererVideoInfoIsInterlaced