{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GstBase.Objects.BaseSink
(
BaseSink(..) ,
IsBaseSink ,
toBaseSink ,
#if defined(ENABLE_OVERLOADING)
ResolveBaseSinkMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
BaseSinkDoPrerollMethodInfo ,
#endif
baseSinkDoPreroll ,
#if defined(ENABLE_OVERLOADING)
BaseSinkGetBlocksizeMethodInfo ,
#endif
baseSinkGetBlocksize ,
#if defined(ENABLE_OVERLOADING)
BaseSinkGetDropOutOfSegmentMethodInfo ,
#endif
baseSinkGetDropOutOfSegment ,
#if defined(ENABLE_OVERLOADING)
BaseSinkGetLastSampleMethodInfo ,
#endif
baseSinkGetLastSample ,
#if defined(ENABLE_OVERLOADING)
BaseSinkGetLatencyMethodInfo ,
#endif
baseSinkGetLatency ,
#if defined(ENABLE_OVERLOADING)
BaseSinkGetMaxBitrateMethodInfo ,
#endif
baseSinkGetMaxBitrate ,
#if defined(ENABLE_OVERLOADING)
BaseSinkGetMaxLatenessMethodInfo ,
#endif
baseSinkGetMaxLateness ,
#if defined(ENABLE_OVERLOADING)
BaseSinkGetProcessingDeadlineMethodInfo ,
#endif
baseSinkGetProcessingDeadline ,
#if defined(ENABLE_OVERLOADING)
BaseSinkGetRenderDelayMethodInfo ,
#endif
baseSinkGetRenderDelay ,
#if defined(ENABLE_OVERLOADING)
BaseSinkGetSyncMethodInfo ,
#endif
baseSinkGetSync ,
#if defined(ENABLE_OVERLOADING)
BaseSinkGetThrottleTimeMethodInfo ,
#endif
baseSinkGetThrottleTime ,
#if defined(ENABLE_OVERLOADING)
BaseSinkGetTsOffsetMethodInfo ,
#endif
baseSinkGetTsOffset ,
#if defined(ENABLE_OVERLOADING)
BaseSinkIsAsyncEnabledMethodInfo ,
#endif
baseSinkIsAsyncEnabled ,
#if defined(ENABLE_OVERLOADING)
BaseSinkIsLastSampleEnabledMethodInfo ,
#endif
baseSinkIsLastSampleEnabled ,
#if defined(ENABLE_OVERLOADING)
BaseSinkIsQosEnabledMethodInfo ,
#endif
baseSinkIsQosEnabled ,
#if defined(ENABLE_OVERLOADING)
BaseSinkQueryLatencyMethodInfo ,
#endif
baseSinkQueryLatency ,
#if defined(ENABLE_OVERLOADING)
BaseSinkSetAsyncEnabledMethodInfo ,
#endif
baseSinkSetAsyncEnabled ,
#if defined(ENABLE_OVERLOADING)
BaseSinkSetBlocksizeMethodInfo ,
#endif
baseSinkSetBlocksize ,
#if defined(ENABLE_OVERLOADING)
BaseSinkSetDropOutOfSegmentMethodInfo ,
#endif
baseSinkSetDropOutOfSegment ,
#if defined(ENABLE_OVERLOADING)
BaseSinkSetLastSampleEnabledMethodInfo ,
#endif
baseSinkSetLastSampleEnabled ,
#if defined(ENABLE_OVERLOADING)
BaseSinkSetMaxBitrateMethodInfo ,
#endif
baseSinkSetMaxBitrate ,
#if defined(ENABLE_OVERLOADING)
BaseSinkSetMaxLatenessMethodInfo ,
#endif
baseSinkSetMaxLateness ,
#if defined(ENABLE_OVERLOADING)
BaseSinkSetProcessingDeadlineMethodInfo ,
#endif
baseSinkSetProcessingDeadline ,
#if defined(ENABLE_OVERLOADING)
BaseSinkSetQosEnabledMethodInfo ,
#endif
baseSinkSetQosEnabled ,
#if defined(ENABLE_OVERLOADING)
BaseSinkSetRenderDelayMethodInfo ,
#endif
baseSinkSetRenderDelay ,
#if defined(ENABLE_OVERLOADING)
BaseSinkSetSyncMethodInfo ,
#endif
baseSinkSetSync ,
#if defined(ENABLE_OVERLOADING)
BaseSinkSetThrottleTimeMethodInfo ,
#endif
baseSinkSetThrottleTime ,
#if defined(ENABLE_OVERLOADING)
BaseSinkSetTsOffsetMethodInfo ,
#endif
baseSinkSetTsOffset ,
#if defined(ENABLE_OVERLOADING)
BaseSinkWaitMethodInfo ,
#endif
baseSinkWait ,
#if defined(ENABLE_OVERLOADING)
BaseSinkWaitClockMethodInfo ,
#endif
baseSinkWaitClock ,
#if defined(ENABLE_OVERLOADING)
BaseSinkWaitPrerollMethodInfo ,
#endif
baseSinkWaitPreroll ,
#if defined(ENABLE_OVERLOADING)
BaseSinkAsyncPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
baseSinkAsync ,
#endif
constructBaseSinkAsync ,
getBaseSinkAsync ,
setBaseSinkAsync ,
#if defined(ENABLE_OVERLOADING)
BaseSinkBlocksizePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
baseSinkBlocksize ,
#endif
constructBaseSinkBlocksize ,
getBaseSinkBlocksize ,
setBaseSinkBlocksize ,
#if defined(ENABLE_OVERLOADING)
BaseSinkEnableLastSamplePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
baseSinkEnableLastSample ,
#endif
constructBaseSinkEnableLastSample ,
getBaseSinkEnableLastSample ,
setBaseSinkEnableLastSample ,
#if defined(ENABLE_OVERLOADING)
BaseSinkLastSamplePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
baseSinkLastSample ,
#endif
getBaseSinkLastSample ,
#if defined(ENABLE_OVERLOADING)
BaseSinkMaxBitratePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
baseSinkMaxBitrate ,
#endif
constructBaseSinkMaxBitrate ,
getBaseSinkMaxBitrate ,
setBaseSinkMaxBitrate ,
#if defined(ENABLE_OVERLOADING)
BaseSinkMaxLatenessPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
baseSinkMaxLateness ,
#endif
constructBaseSinkMaxLateness ,
getBaseSinkMaxLateness ,
setBaseSinkMaxLateness ,
#if defined(ENABLE_OVERLOADING)
BaseSinkProcessingDeadlinePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
baseSinkProcessingDeadline ,
#endif
constructBaseSinkProcessingDeadline ,
getBaseSinkProcessingDeadline ,
setBaseSinkProcessingDeadline ,
#if defined(ENABLE_OVERLOADING)
BaseSinkQosPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
baseSinkQos ,
#endif
constructBaseSinkQos ,
getBaseSinkQos ,
setBaseSinkQos ,
#if defined(ENABLE_OVERLOADING)
BaseSinkRenderDelayPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
baseSinkRenderDelay ,
#endif
constructBaseSinkRenderDelay ,
getBaseSinkRenderDelay ,
setBaseSinkRenderDelay ,
#if defined(ENABLE_OVERLOADING)
BaseSinkSyncPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
baseSinkSync ,
#endif
constructBaseSinkSync ,
getBaseSinkSync ,
setBaseSinkSync ,
#if defined(ENABLE_OVERLOADING)
BaseSinkThrottleTimePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
baseSinkThrottleTime ,
#endif
constructBaseSinkThrottleTime ,
getBaseSinkThrottleTime ,
setBaseSinkThrottleTime ,
#if defined(ENABLE_OVERLOADING)
BaseSinkTsOffsetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
baseSinkTsOffset ,
#endif
constructBaseSinkTsOffset ,
getBaseSinkTsOffset ,
setBaseSinkTsOffset ,
) 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.BasicTypes as B.Types
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.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
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.Enums as Gst.Enums
import qualified GI.Gst.Objects.Element as Gst.Element
import qualified GI.Gst.Objects.Object as Gst.Object
import qualified GI.Gst.Structs.MiniObject as Gst.MiniObject
import qualified GI.Gst.Structs.Sample as Gst.Sample
newtype BaseSink = BaseSink (SP.ManagedPtr BaseSink)
deriving (BaseSink -> BaseSink -> Bool
(BaseSink -> BaseSink -> Bool)
-> (BaseSink -> BaseSink -> Bool) -> Eq BaseSink
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BaseSink -> BaseSink -> Bool
$c/= :: BaseSink -> BaseSink -> Bool
== :: BaseSink -> BaseSink -> Bool
$c== :: BaseSink -> BaseSink -> Bool
Eq)
instance SP.ManagedPtrNewtype BaseSink where
toManagedPtr :: BaseSink -> ManagedPtr BaseSink
toManagedPtr (BaseSink ManagedPtr BaseSink
p) = ManagedPtr BaseSink
p
foreign import ccall "gst_base_sink_get_type"
c_gst_base_sink_get_type :: IO B.Types.GType
instance B.Types.TypedObject BaseSink where
glibType :: IO GType
glibType = IO GType
c_gst_base_sink_get_type
instance B.Types.GObject BaseSink
instance B.GValue.IsGValue BaseSink where
toGValue :: BaseSink -> IO GValue
toGValue BaseSink
o = do
GType
gtype <- IO GType
c_gst_base_sink_get_type
BaseSink -> (Ptr BaseSink -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr BaseSink
o (GType
-> (GValue -> Ptr BaseSink -> IO ()) -> Ptr BaseSink -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr BaseSink -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO BaseSink
fromGValue GValue
gv = do
Ptr BaseSink
ptr <- GValue -> IO (Ptr BaseSink)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr BaseSink)
(ManagedPtr BaseSink -> BaseSink) -> Ptr BaseSink -> IO BaseSink
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr BaseSink -> BaseSink
BaseSink Ptr BaseSink
ptr
class (SP.GObject o, O.IsDescendantOf BaseSink o) => IsBaseSink o
instance (SP.GObject o, O.IsDescendantOf BaseSink o) => IsBaseSink o
instance O.HasParentTypes BaseSink
type instance O.ParentTypes BaseSink = '[Gst.Element.Element, Gst.Object.Object, GObject.Object.Object]
toBaseSink :: (MonadIO m, IsBaseSink o) => o -> m BaseSink
toBaseSink :: o -> m BaseSink
toBaseSink = IO BaseSink -> m BaseSink
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO BaseSink -> m BaseSink)
-> (o -> IO BaseSink) -> o -> m BaseSink
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr BaseSink -> BaseSink) -> o -> IO BaseSink
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr BaseSink -> BaseSink
BaseSink
#if defined(ENABLE_OVERLOADING)
type family ResolveBaseSinkMethod (t :: Symbol) (o :: *) :: * where
ResolveBaseSinkMethod "abortState" o = Gst.Element.ElementAbortStateMethodInfo
ResolveBaseSinkMethod "addControlBinding" o = Gst.Object.ObjectAddControlBindingMethodInfo
ResolveBaseSinkMethod "addPad" o = Gst.Element.ElementAddPadMethodInfo
ResolveBaseSinkMethod "addPropertyDeepNotifyWatch" o = Gst.Element.ElementAddPropertyDeepNotifyWatchMethodInfo
ResolveBaseSinkMethod "addPropertyNotifyWatch" o = Gst.Element.ElementAddPropertyNotifyWatchMethodInfo
ResolveBaseSinkMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveBaseSinkMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveBaseSinkMethod "callAsync" o = Gst.Element.ElementCallAsyncMethodInfo
ResolveBaseSinkMethod "changeState" o = Gst.Element.ElementChangeStateMethodInfo
ResolveBaseSinkMethod "continueState" o = Gst.Element.ElementContinueStateMethodInfo
ResolveBaseSinkMethod "createAllPads" o = Gst.Element.ElementCreateAllPadsMethodInfo
ResolveBaseSinkMethod "defaultError" o = Gst.Object.ObjectDefaultErrorMethodInfo
ResolveBaseSinkMethod "doPreroll" o = BaseSinkDoPrerollMethodInfo
ResolveBaseSinkMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveBaseSinkMethod "foreachPad" o = Gst.Element.ElementForeachPadMethodInfo
ResolveBaseSinkMethod "foreachSinkPad" o = Gst.Element.ElementForeachSinkPadMethodInfo
ResolveBaseSinkMethod "foreachSrcPad" o = Gst.Element.ElementForeachSrcPadMethodInfo
ResolveBaseSinkMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveBaseSinkMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveBaseSinkMethod "hasActiveControlBindings" o = Gst.Object.ObjectHasActiveControlBindingsMethodInfo
ResolveBaseSinkMethod "hasAncestor" o = Gst.Object.ObjectHasAncestorMethodInfo
ResolveBaseSinkMethod "hasAsAncestor" o = Gst.Object.ObjectHasAsAncestorMethodInfo
ResolveBaseSinkMethod "hasAsParent" o = Gst.Object.ObjectHasAsParentMethodInfo
ResolveBaseSinkMethod "isAsyncEnabled" o = BaseSinkIsAsyncEnabledMethodInfo
ResolveBaseSinkMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveBaseSinkMethod "isLastSampleEnabled" o = BaseSinkIsLastSampleEnabledMethodInfo
ResolveBaseSinkMethod "isLockedState" o = Gst.Element.ElementIsLockedStateMethodInfo
ResolveBaseSinkMethod "isQosEnabled" o = BaseSinkIsQosEnabledMethodInfo
ResolveBaseSinkMethod "iteratePads" o = Gst.Element.ElementIteratePadsMethodInfo
ResolveBaseSinkMethod "iterateSinkPads" o = Gst.Element.ElementIterateSinkPadsMethodInfo
ResolveBaseSinkMethod "iterateSrcPads" o = Gst.Element.ElementIterateSrcPadsMethodInfo
ResolveBaseSinkMethod "link" o = Gst.Element.ElementLinkMethodInfo
ResolveBaseSinkMethod "linkFiltered" o = Gst.Element.ElementLinkFilteredMethodInfo
ResolveBaseSinkMethod "linkPads" o = Gst.Element.ElementLinkPadsMethodInfo
ResolveBaseSinkMethod "linkPadsFiltered" o = Gst.Element.ElementLinkPadsFilteredMethodInfo
ResolveBaseSinkMethod "linkPadsFull" o = Gst.Element.ElementLinkPadsFullMethodInfo
ResolveBaseSinkMethod "lostState" o = Gst.Element.ElementLostStateMethodInfo
ResolveBaseSinkMethod "messageFull" o = Gst.Element.ElementMessageFullMethodInfo
ResolveBaseSinkMethod "messageFullWithDetails" o = Gst.Element.ElementMessageFullWithDetailsMethodInfo
ResolveBaseSinkMethod "noMorePads" o = Gst.Element.ElementNoMorePadsMethodInfo
ResolveBaseSinkMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveBaseSinkMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveBaseSinkMethod "postMessage" o = Gst.Element.ElementPostMessageMethodInfo
ResolveBaseSinkMethod "provideClock" o = Gst.Element.ElementProvideClockMethodInfo
ResolveBaseSinkMethod "query" o = Gst.Element.ElementQueryMethodInfo
ResolveBaseSinkMethod "queryConvert" o = Gst.Element.ElementQueryConvertMethodInfo
ResolveBaseSinkMethod "queryDuration" o = Gst.Element.ElementQueryDurationMethodInfo
ResolveBaseSinkMethod "queryLatency" o = BaseSinkQueryLatencyMethodInfo
ResolveBaseSinkMethod "queryPosition" o = Gst.Element.ElementQueryPositionMethodInfo
ResolveBaseSinkMethod "ref" o = Gst.Object.ObjectRefMethodInfo
ResolveBaseSinkMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveBaseSinkMethod "releaseRequestPad" o = Gst.Element.ElementReleaseRequestPadMethodInfo
ResolveBaseSinkMethod "removeControlBinding" o = Gst.Object.ObjectRemoveControlBindingMethodInfo
ResolveBaseSinkMethod "removePad" o = Gst.Element.ElementRemovePadMethodInfo
ResolveBaseSinkMethod "removePropertyNotifyWatch" o = Gst.Element.ElementRemovePropertyNotifyWatchMethodInfo
ResolveBaseSinkMethod "requestPad" o = Gst.Element.ElementRequestPadMethodInfo
ResolveBaseSinkMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveBaseSinkMethod "seek" o = Gst.Element.ElementSeekMethodInfo
ResolveBaseSinkMethod "seekSimple" o = Gst.Element.ElementSeekSimpleMethodInfo
ResolveBaseSinkMethod "sendEvent" o = Gst.Element.ElementSendEventMethodInfo
ResolveBaseSinkMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveBaseSinkMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveBaseSinkMethod "suggestNextSync" o = Gst.Object.ObjectSuggestNextSyncMethodInfo
ResolveBaseSinkMethod "syncStateWithParent" o = Gst.Element.ElementSyncStateWithParentMethodInfo
ResolveBaseSinkMethod "syncValues" o = Gst.Object.ObjectSyncValuesMethodInfo
ResolveBaseSinkMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveBaseSinkMethod "unlink" o = Gst.Element.ElementUnlinkMethodInfo
ResolveBaseSinkMethod "unlinkPads" o = Gst.Element.ElementUnlinkPadsMethodInfo
ResolveBaseSinkMethod "unparent" o = Gst.Object.ObjectUnparentMethodInfo
ResolveBaseSinkMethod "unref" o = Gst.Object.ObjectUnrefMethodInfo
ResolveBaseSinkMethod "wait" o = BaseSinkWaitMethodInfo
ResolveBaseSinkMethod "waitClock" o = BaseSinkWaitClockMethodInfo
ResolveBaseSinkMethod "waitPreroll" o = BaseSinkWaitPrerollMethodInfo
ResolveBaseSinkMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveBaseSinkMethod "getBaseTime" o = Gst.Element.ElementGetBaseTimeMethodInfo
ResolveBaseSinkMethod "getBlocksize" o = BaseSinkGetBlocksizeMethodInfo
ResolveBaseSinkMethod "getBus" o = Gst.Element.ElementGetBusMethodInfo
ResolveBaseSinkMethod "getClock" o = Gst.Element.ElementGetClockMethodInfo
ResolveBaseSinkMethod "getCompatiblePad" o = Gst.Element.ElementGetCompatiblePadMethodInfo
ResolveBaseSinkMethod "getCompatiblePadTemplate" o = Gst.Element.ElementGetCompatiblePadTemplateMethodInfo
ResolveBaseSinkMethod "getContext" o = Gst.Element.ElementGetContextMethodInfo
ResolveBaseSinkMethod "getContextUnlocked" o = Gst.Element.ElementGetContextUnlockedMethodInfo
ResolveBaseSinkMethod "getContexts" o = Gst.Element.ElementGetContextsMethodInfo
ResolveBaseSinkMethod "getControlBinding" o = Gst.Object.ObjectGetControlBindingMethodInfo
ResolveBaseSinkMethod "getControlRate" o = Gst.Object.ObjectGetControlRateMethodInfo
ResolveBaseSinkMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveBaseSinkMethod "getDropOutOfSegment" o = BaseSinkGetDropOutOfSegmentMethodInfo
ResolveBaseSinkMethod "getFactory" o = Gst.Element.ElementGetFactoryMethodInfo
ResolveBaseSinkMethod "getGValueArray" o = Gst.Object.ObjectGetGValueArrayMethodInfo
ResolveBaseSinkMethod "getLastSample" o = BaseSinkGetLastSampleMethodInfo
ResolveBaseSinkMethod "getLatency" o = BaseSinkGetLatencyMethodInfo
ResolveBaseSinkMethod "getMaxBitrate" o = BaseSinkGetMaxBitrateMethodInfo
ResolveBaseSinkMethod "getMaxLateness" o = BaseSinkGetMaxLatenessMethodInfo
ResolveBaseSinkMethod "getMetadata" o = Gst.Element.ElementGetMetadataMethodInfo
ResolveBaseSinkMethod "getName" o = Gst.Object.ObjectGetNameMethodInfo
ResolveBaseSinkMethod "getPadTemplate" o = Gst.Element.ElementGetPadTemplateMethodInfo
ResolveBaseSinkMethod "getPadTemplateList" o = Gst.Element.ElementGetPadTemplateListMethodInfo
ResolveBaseSinkMethod "getParent" o = Gst.Object.ObjectGetParentMethodInfo
ResolveBaseSinkMethod "getPathString" o = Gst.Object.ObjectGetPathStringMethodInfo
ResolveBaseSinkMethod "getProcessingDeadline" o = BaseSinkGetProcessingDeadlineMethodInfo
ResolveBaseSinkMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveBaseSinkMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveBaseSinkMethod "getRenderDelay" o = BaseSinkGetRenderDelayMethodInfo
ResolveBaseSinkMethod "getRequestPad" o = Gst.Element.ElementGetRequestPadMethodInfo
ResolveBaseSinkMethod "getStartTime" o = Gst.Element.ElementGetStartTimeMethodInfo
ResolveBaseSinkMethod "getState" o = Gst.Element.ElementGetStateMethodInfo
ResolveBaseSinkMethod "getStaticPad" o = Gst.Element.ElementGetStaticPadMethodInfo
ResolveBaseSinkMethod "getSync" o = BaseSinkGetSyncMethodInfo
ResolveBaseSinkMethod "getThrottleTime" o = BaseSinkGetThrottleTimeMethodInfo
ResolveBaseSinkMethod "getTsOffset" o = BaseSinkGetTsOffsetMethodInfo
ResolveBaseSinkMethod "getValue" o = Gst.Object.ObjectGetValueMethodInfo
ResolveBaseSinkMethod "setAsyncEnabled" o = BaseSinkSetAsyncEnabledMethodInfo
ResolveBaseSinkMethod "setBaseTime" o = Gst.Element.ElementSetBaseTimeMethodInfo
ResolveBaseSinkMethod "setBlocksize" o = BaseSinkSetBlocksizeMethodInfo
ResolveBaseSinkMethod "setBus" o = Gst.Element.ElementSetBusMethodInfo
ResolveBaseSinkMethod "setClock" o = Gst.Element.ElementSetClockMethodInfo
ResolveBaseSinkMethod "setContext" o = Gst.Element.ElementSetContextMethodInfo
ResolveBaseSinkMethod "setControlBindingDisabled" o = Gst.Object.ObjectSetControlBindingDisabledMethodInfo
ResolveBaseSinkMethod "setControlBindingsDisabled" o = Gst.Object.ObjectSetControlBindingsDisabledMethodInfo
ResolveBaseSinkMethod "setControlRate" o = Gst.Object.ObjectSetControlRateMethodInfo
ResolveBaseSinkMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveBaseSinkMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveBaseSinkMethod "setDropOutOfSegment" o = BaseSinkSetDropOutOfSegmentMethodInfo
ResolveBaseSinkMethod "setLastSampleEnabled" o = BaseSinkSetLastSampleEnabledMethodInfo
ResolveBaseSinkMethod "setLockedState" o = Gst.Element.ElementSetLockedStateMethodInfo
ResolveBaseSinkMethod "setMaxBitrate" o = BaseSinkSetMaxBitrateMethodInfo
ResolveBaseSinkMethod "setMaxLateness" o = BaseSinkSetMaxLatenessMethodInfo
ResolveBaseSinkMethod "setName" o = Gst.Object.ObjectSetNameMethodInfo
ResolveBaseSinkMethod "setParent" o = Gst.Object.ObjectSetParentMethodInfo
ResolveBaseSinkMethod "setProcessingDeadline" o = BaseSinkSetProcessingDeadlineMethodInfo
ResolveBaseSinkMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveBaseSinkMethod "setQosEnabled" o = BaseSinkSetQosEnabledMethodInfo
ResolveBaseSinkMethod "setRenderDelay" o = BaseSinkSetRenderDelayMethodInfo
ResolveBaseSinkMethod "setStartTime" o = Gst.Element.ElementSetStartTimeMethodInfo
ResolveBaseSinkMethod "setState" o = Gst.Element.ElementSetStateMethodInfo
ResolveBaseSinkMethod "setSync" o = BaseSinkSetSyncMethodInfo
ResolveBaseSinkMethod "setThrottleTime" o = BaseSinkSetThrottleTimeMethodInfo
ResolveBaseSinkMethod "setTsOffset" o = BaseSinkSetTsOffsetMethodInfo
ResolveBaseSinkMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveBaseSinkMethod t BaseSink, O.MethodInfo info BaseSink p) => OL.IsLabel t (BaseSink -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getBaseSinkAsync :: (MonadIO m, IsBaseSink o) => o -> m Bool
getBaseSinkAsync :: o -> m Bool
getBaseSinkAsync o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"async"
setBaseSinkAsync :: (MonadIO m, IsBaseSink o) => o -> Bool -> m ()
setBaseSinkAsync :: o -> Bool -> m ()
setBaseSinkAsync o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"async" Bool
val
constructBaseSinkAsync :: (IsBaseSink o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructBaseSinkAsync :: Bool -> m (GValueConstruct o)
constructBaseSinkAsync Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"async" Bool
val
#if defined(ENABLE_OVERLOADING)
data BaseSinkAsyncPropertyInfo
instance AttrInfo BaseSinkAsyncPropertyInfo where
type AttrAllowedOps BaseSinkAsyncPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BaseSinkAsyncPropertyInfo = IsBaseSink
type AttrSetTypeConstraint BaseSinkAsyncPropertyInfo = (~) Bool
type AttrTransferTypeConstraint BaseSinkAsyncPropertyInfo = (~) Bool
type AttrTransferType BaseSinkAsyncPropertyInfo = Bool
type AttrGetType BaseSinkAsyncPropertyInfo = Bool
type AttrLabel BaseSinkAsyncPropertyInfo = "async"
type AttrOrigin BaseSinkAsyncPropertyInfo = BaseSink
attrGet = getBaseSinkAsync
attrSet = setBaseSinkAsync
attrTransfer _ v = do
return v
attrConstruct = constructBaseSinkAsync
attrClear = undefined
#endif
getBaseSinkBlocksize :: (MonadIO m, IsBaseSink o) => o -> m Word32
getBaseSinkBlocksize :: o -> m Word32
getBaseSinkBlocksize o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"blocksize"
setBaseSinkBlocksize :: (MonadIO m, IsBaseSink o) => o -> Word32 -> m ()
setBaseSinkBlocksize :: o -> Word32 -> m ()
setBaseSinkBlocksize o
obj Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"blocksize" Word32
val
constructBaseSinkBlocksize :: (IsBaseSink o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructBaseSinkBlocksize :: Word32 -> m (GValueConstruct o)
constructBaseSinkBlocksize Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"blocksize" Word32
val
#if defined(ENABLE_OVERLOADING)
data BaseSinkBlocksizePropertyInfo
instance AttrInfo BaseSinkBlocksizePropertyInfo where
type AttrAllowedOps BaseSinkBlocksizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BaseSinkBlocksizePropertyInfo = IsBaseSink
type AttrSetTypeConstraint BaseSinkBlocksizePropertyInfo = (~) Word32
type AttrTransferTypeConstraint BaseSinkBlocksizePropertyInfo = (~) Word32
type AttrTransferType BaseSinkBlocksizePropertyInfo = Word32
type AttrGetType BaseSinkBlocksizePropertyInfo = Word32
type AttrLabel BaseSinkBlocksizePropertyInfo = "blocksize"
type AttrOrigin BaseSinkBlocksizePropertyInfo = BaseSink
attrGet = getBaseSinkBlocksize
attrSet = setBaseSinkBlocksize
attrTransfer _ v = do
return v
attrConstruct = constructBaseSinkBlocksize
attrClear = undefined
#endif
getBaseSinkEnableLastSample :: (MonadIO m, IsBaseSink o) => o -> m Bool
getBaseSinkEnableLastSample :: o -> m Bool
getBaseSinkEnableLastSample o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"enable-last-sample"
setBaseSinkEnableLastSample :: (MonadIO m, IsBaseSink o) => o -> Bool -> m ()
setBaseSinkEnableLastSample :: o -> Bool -> m ()
setBaseSinkEnableLastSample o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-last-sample" Bool
val
constructBaseSinkEnableLastSample :: (IsBaseSink o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructBaseSinkEnableLastSample :: Bool -> m (GValueConstruct o)
constructBaseSinkEnableLastSample Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"enable-last-sample" Bool
val
#if defined(ENABLE_OVERLOADING)
data BaseSinkEnableLastSamplePropertyInfo
instance AttrInfo BaseSinkEnableLastSamplePropertyInfo where
type AttrAllowedOps BaseSinkEnableLastSamplePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BaseSinkEnableLastSamplePropertyInfo = IsBaseSink
type AttrSetTypeConstraint BaseSinkEnableLastSamplePropertyInfo = (~) Bool
type AttrTransferTypeConstraint BaseSinkEnableLastSamplePropertyInfo = (~) Bool
type AttrTransferType BaseSinkEnableLastSamplePropertyInfo = Bool
type AttrGetType BaseSinkEnableLastSamplePropertyInfo = Bool
type AttrLabel BaseSinkEnableLastSamplePropertyInfo = "enable-last-sample"
type AttrOrigin BaseSinkEnableLastSamplePropertyInfo = BaseSink
attrGet = getBaseSinkEnableLastSample
attrSet = setBaseSinkEnableLastSample
attrTransfer _ v = do
return v
attrConstruct = constructBaseSinkEnableLastSample
attrClear = undefined
#endif
getBaseSinkLastSample :: (MonadIO m, IsBaseSink o) => o -> m (Maybe Gst.Sample.Sample)
getBaseSinkLastSample :: o -> m (Maybe Sample)
getBaseSinkLastSample o
obj = IO (Maybe Sample) -> m (Maybe Sample)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Sample) -> m (Maybe Sample))
-> IO (Maybe Sample) -> m (Maybe Sample)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Sample -> Sample) -> IO (Maybe Sample)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"last-sample" ManagedPtr Sample -> Sample
Gst.Sample.Sample
#if defined(ENABLE_OVERLOADING)
data BaseSinkLastSamplePropertyInfo
instance AttrInfo BaseSinkLastSamplePropertyInfo where
type AttrAllowedOps BaseSinkLastSamplePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint BaseSinkLastSamplePropertyInfo = IsBaseSink
type AttrSetTypeConstraint BaseSinkLastSamplePropertyInfo = (~) ()
type AttrTransferTypeConstraint BaseSinkLastSamplePropertyInfo = (~) ()
type AttrTransferType BaseSinkLastSamplePropertyInfo = ()
type AttrGetType BaseSinkLastSamplePropertyInfo = (Maybe Gst.Sample.Sample)
type AttrLabel BaseSinkLastSamplePropertyInfo = "last-sample"
type AttrOrigin BaseSinkLastSamplePropertyInfo = BaseSink
attrGet = getBaseSinkLastSample
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getBaseSinkMaxBitrate :: (MonadIO m, IsBaseSink o) => o -> m Word64
getBaseSinkMaxBitrate :: o -> m Word64
getBaseSinkMaxBitrate o
obj = IO Word64 -> m Word64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word64
forall a. GObject a => a -> String -> IO Word64
B.Properties.getObjectPropertyUInt64 o
obj String
"max-bitrate"
setBaseSinkMaxBitrate :: (MonadIO m, IsBaseSink o) => o -> Word64 -> m ()
setBaseSinkMaxBitrate :: o -> Word64 -> m ()
setBaseSinkMaxBitrate o
obj Word64
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word64 -> IO ()
forall a. GObject a => a -> String -> Word64 -> IO ()
B.Properties.setObjectPropertyUInt64 o
obj String
"max-bitrate" Word64
val
constructBaseSinkMaxBitrate :: (IsBaseSink o, MIO.MonadIO m) => Word64 -> m (GValueConstruct o)
constructBaseSinkMaxBitrate :: Word64 -> m (GValueConstruct o)
constructBaseSinkMaxBitrate Word64
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word64 -> IO (GValueConstruct o)
forall o. String -> Word64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt64 String
"max-bitrate" Word64
val
#if defined(ENABLE_OVERLOADING)
data BaseSinkMaxBitratePropertyInfo
instance AttrInfo BaseSinkMaxBitratePropertyInfo where
type AttrAllowedOps BaseSinkMaxBitratePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BaseSinkMaxBitratePropertyInfo = IsBaseSink
type AttrSetTypeConstraint BaseSinkMaxBitratePropertyInfo = (~) Word64
type AttrTransferTypeConstraint BaseSinkMaxBitratePropertyInfo = (~) Word64
type AttrTransferType BaseSinkMaxBitratePropertyInfo = Word64
type AttrGetType BaseSinkMaxBitratePropertyInfo = Word64
type AttrLabel BaseSinkMaxBitratePropertyInfo = "max-bitrate"
type AttrOrigin BaseSinkMaxBitratePropertyInfo = BaseSink
attrGet = getBaseSinkMaxBitrate
attrSet = setBaseSinkMaxBitrate
attrTransfer _ v = do
return v
attrConstruct = constructBaseSinkMaxBitrate
attrClear = undefined
#endif
getBaseSinkMaxLateness :: (MonadIO m, IsBaseSink o) => o -> m Int64
getBaseSinkMaxLateness :: o -> m Int64
getBaseSinkMaxLateness o
obj = IO Int64 -> m Int64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int64 -> m Int64) -> IO Int64 -> m Int64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int64
forall a. GObject a => a -> String -> IO Int64
B.Properties.getObjectPropertyInt64 o
obj String
"max-lateness"
setBaseSinkMaxLateness :: (MonadIO m, IsBaseSink o) => o -> Int64 -> m ()
setBaseSinkMaxLateness :: o -> Int64 -> m ()
setBaseSinkMaxLateness o
obj Int64
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int64 -> IO ()
forall a. GObject a => a -> String -> Int64 -> IO ()
B.Properties.setObjectPropertyInt64 o
obj String
"max-lateness" Int64
val
constructBaseSinkMaxLateness :: (IsBaseSink o, MIO.MonadIO m) => Int64 -> m (GValueConstruct o)
constructBaseSinkMaxLateness :: Int64 -> m (GValueConstruct o)
constructBaseSinkMaxLateness Int64
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int64 -> IO (GValueConstruct o)
forall o. String -> Int64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt64 String
"max-lateness" Int64
val
#if defined(ENABLE_OVERLOADING)
data BaseSinkMaxLatenessPropertyInfo
instance AttrInfo BaseSinkMaxLatenessPropertyInfo where
type AttrAllowedOps BaseSinkMaxLatenessPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BaseSinkMaxLatenessPropertyInfo = IsBaseSink
type AttrSetTypeConstraint BaseSinkMaxLatenessPropertyInfo = (~) Int64
type AttrTransferTypeConstraint BaseSinkMaxLatenessPropertyInfo = (~) Int64
type AttrTransferType BaseSinkMaxLatenessPropertyInfo = Int64
type AttrGetType BaseSinkMaxLatenessPropertyInfo = Int64
type AttrLabel BaseSinkMaxLatenessPropertyInfo = "max-lateness"
type AttrOrigin BaseSinkMaxLatenessPropertyInfo = BaseSink
attrGet = getBaseSinkMaxLateness
attrSet = setBaseSinkMaxLateness
attrTransfer _ v = do
return v
attrConstruct = constructBaseSinkMaxLateness
attrClear = undefined
#endif
getBaseSinkProcessingDeadline :: (MonadIO m, IsBaseSink o) => o -> m Word64
getBaseSinkProcessingDeadline :: o -> m Word64
getBaseSinkProcessingDeadline o
obj = IO Word64 -> m Word64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word64
forall a. GObject a => a -> String -> IO Word64
B.Properties.getObjectPropertyUInt64 o
obj String
"processing-deadline"
setBaseSinkProcessingDeadline :: (MonadIO m, IsBaseSink o) => o -> Word64 -> m ()
setBaseSinkProcessingDeadline :: o -> Word64 -> m ()
setBaseSinkProcessingDeadline o
obj Word64
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word64 -> IO ()
forall a. GObject a => a -> String -> Word64 -> IO ()
B.Properties.setObjectPropertyUInt64 o
obj String
"processing-deadline" Word64
val
constructBaseSinkProcessingDeadline :: (IsBaseSink o, MIO.MonadIO m) => Word64 -> m (GValueConstruct o)
constructBaseSinkProcessingDeadline :: Word64 -> m (GValueConstruct o)
constructBaseSinkProcessingDeadline Word64
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word64 -> IO (GValueConstruct o)
forall o. String -> Word64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt64 String
"processing-deadline" Word64
val
#if defined(ENABLE_OVERLOADING)
data BaseSinkProcessingDeadlinePropertyInfo
instance AttrInfo BaseSinkProcessingDeadlinePropertyInfo where
type AttrAllowedOps BaseSinkProcessingDeadlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BaseSinkProcessingDeadlinePropertyInfo = IsBaseSink
type AttrSetTypeConstraint BaseSinkProcessingDeadlinePropertyInfo = (~) Word64
type AttrTransferTypeConstraint BaseSinkProcessingDeadlinePropertyInfo = (~) Word64
type AttrTransferType BaseSinkProcessingDeadlinePropertyInfo = Word64
type AttrGetType BaseSinkProcessingDeadlinePropertyInfo = Word64
type AttrLabel BaseSinkProcessingDeadlinePropertyInfo = "processing-deadline"
type AttrOrigin BaseSinkProcessingDeadlinePropertyInfo = BaseSink
attrGet = getBaseSinkProcessingDeadline
attrSet = setBaseSinkProcessingDeadline
attrTransfer _ v = do
return v
attrConstruct = constructBaseSinkProcessingDeadline
attrClear = undefined
#endif
getBaseSinkQos :: (MonadIO m, IsBaseSink o) => o -> m Bool
getBaseSinkQos :: o -> m Bool
getBaseSinkQos o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"qos"
setBaseSinkQos :: (MonadIO m, IsBaseSink o) => o -> Bool -> m ()
setBaseSinkQos :: o -> Bool -> m ()
setBaseSinkQos o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"qos" Bool
val
constructBaseSinkQos :: (IsBaseSink o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructBaseSinkQos :: Bool -> m (GValueConstruct o)
constructBaseSinkQos Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"qos" Bool
val
#if defined(ENABLE_OVERLOADING)
data BaseSinkQosPropertyInfo
instance AttrInfo BaseSinkQosPropertyInfo where
type AttrAllowedOps BaseSinkQosPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BaseSinkQosPropertyInfo = IsBaseSink
type AttrSetTypeConstraint BaseSinkQosPropertyInfo = (~) Bool
type AttrTransferTypeConstraint BaseSinkQosPropertyInfo = (~) Bool
type AttrTransferType BaseSinkQosPropertyInfo = Bool
type AttrGetType BaseSinkQosPropertyInfo = Bool
type AttrLabel BaseSinkQosPropertyInfo = "qos"
type AttrOrigin BaseSinkQosPropertyInfo = BaseSink
attrGet = getBaseSinkQos
attrSet = setBaseSinkQos
attrTransfer _ v = do
return v
attrConstruct = constructBaseSinkQos
attrClear = undefined
#endif
getBaseSinkRenderDelay :: (MonadIO m, IsBaseSink o) => o -> m Word64
getBaseSinkRenderDelay :: o -> m Word64
getBaseSinkRenderDelay o
obj = IO Word64 -> m Word64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word64
forall a. GObject a => a -> String -> IO Word64
B.Properties.getObjectPropertyUInt64 o
obj String
"render-delay"
setBaseSinkRenderDelay :: (MonadIO m, IsBaseSink o) => o -> Word64 -> m ()
setBaseSinkRenderDelay :: o -> Word64 -> m ()
setBaseSinkRenderDelay o
obj Word64
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word64 -> IO ()
forall a. GObject a => a -> String -> Word64 -> IO ()
B.Properties.setObjectPropertyUInt64 o
obj String
"render-delay" Word64
val
constructBaseSinkRenderDelay :: (IsBaseSink o, MIO.MonadIO m) => Word64 -> m (GValueConstruct o)
constructBaseSinkRenderDelay :: Word64 -> m (GValueConstruct o)
constructBaseSinkRenderDelay Word64
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word64 -> IO (GValueConstruct o)
forall o. String -> Word64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt64 String
"render-delay" Word64
val
#if defined(ENABLE_OVERLOADING)
data BaseSinkRenderDelayPropertyInfo
instance AttrInfo BaseSinkRenderDelayPropertyInfo where
type AttrAllowedOps BaseSinkRenderDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BaseSinkRenderDelayPropertyInfo = IsBaseSink
type AttrSetTypeConstraint BaseSinkRenderDelayPropertyInfo = (~) Word64
type AttrTransferTypeConstraint BaseSinkRenderDelayPropertyInfo = (~) Word64
type AttrTransferType BaseSinkRenderDelayPropertyInfo = Word64
type AttrGetType BaseSinkRenderDelayPropertyInfo = Word64
type AttrLabel BaseSinkRenderDelayPropertyInfo = "render-delay"
type AttrOrigin BaseSinkRenderDelayPropertyInfo = BaseSink
attrGet = getBaseSinkRenderDelay
attrSet = setBaseSinkRenderDelay
attrTransfer _ v = do
return v
attrConstruct = constructBaseSinkRenderDelay
attrClear = undefined
#endif
getBaseSinkSync :: (MonadIO m, IsBaseSink o) => o -> m Bool
getBaseSinkSync :: o -> m Bool
getBaseSinkSync o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"sync"
setBaseSinkSync :: (MonadIO m, IsBaseSink o) => o -> Bool -> m ()
setBaseSinkSync :: o -> Bool -> m ()
setBaseSinkSync o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"sync" Bool
val
constructBaseSinkSync :: (IsBaseSink o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructBaseSinkSync :: Bool -> m (GValueConstruct o)
constructBaseSinkSync Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"sync" Bool
val
#if defined(ENABLE_OVERLOADING)
data BaseSinkSyncPropertyInfo
instance AttrInfo BaseSinkSyncPropertyInfo where
type AttrAllowedOps BaseSinkSyncPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BaseSinkSyncPropertyInfo = IsBaseSink
type AttrSetTypeConstraint BaseSinkSyncPropertyInfo = (~) Bool
type AttrTransferTypeConstraint BaseSinkSyncPropertyInfo = (~) Bool
type AttrTransferType BaseSinkSyncPropertyInfo = Bool
type AttrGetType BaseSinkSyncPropertyInfo = Bool
type AttrLabel BaseSinkSyncPropertyInfo = "sync"
type AttrOrigin BaseSinkSyncPropertyInfo = BaseSink
attrGet = getBaseSinkSync
attrSet = setBaseSinkSync
attrTransfer _ v = do
return v
attrConstruct = constructBaseSinkSync
attrClear = undefined
#endif
getBaseSinkThrottleTime :: (MonadIO m, IsBaseSink o) => o -> m Word64
getBaseSinkThrottleTime :: o -> m Word64
getBaseSinkThrottleTime o
obj = IO Word64 -> m Word64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word64
forall a. GObject a => a -> String -> IO Word64
B.Properties.getObjectPropertyUInt64 o
obj String
"throttle-time"
setBaseSinkThrottleTime :: (MonadIO m, IsBaseSink o) => o -> Word64 -> m ()
setBaseSinkThrottleTime :: o -> Word64 -> m ()
setBaseSinkThrottleTime o
obj Word64
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word64 -> IO ()
forall a. GObject a => a -> String -> Word64 -> IO ()
B.Properties.setObjectPropertyUInt64 o
obj String
"throttle-time" Word64
val
constructBaseSinkThrottleTime :: (IsBaseSink o, MIO.MonadIO m) => Word64 -> m (GValueConstruct o)
constructBaseSinkThrottleTime :: Word64 -> m (GValueConstruct o)
constructBaseSinkThrottleTime Word64
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word64 -> IO (GValueConstruct o)
forall o. String -> Word64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt64 String
"throttle-time" Word64
val
#if defined(ENABLE_OVERLOADING)
data BaseSinkThrottleTimePropertyInfo
instance AttrInfo BaseSinkThrottleTimePropertyInfo where
type AttrAllowedOps BaseSinkThrottleTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BaseSinkThrottleTimePropertyInfo = IsBaseSink
type AttrSetTypeConstraint BaseSinkThrottleTimePropertyInfo = (~) Word64
type AttrTransferTypeConstraint BaseSinkThrottleTimePropertyInfo = (~) Word64
type AttrTransferType BaseSinkThrottleTimePropertyInfo = Word64
type AttrGetType BaseSinkThrottleTimePropertyInfo = Word64
type AttrLabel BaseSinkThrottleTimePropertyInfo = "throttle-time"
type AttrOrigin BaseSinkThrottleTimePropertyInfo = BaseSink
attrGet = getBaseSinkThrottleTime
attrSet = setBaseSinkThrottleTime
attrTransfer _ v = do
return v
attrConstruct = constructBaseSinkThrottleTime
attrClear = undefined
#endif
getBaseSinkTsOffset :: (MonadIO m, IsBaseSink o) => o -> m Int64
getBaseSinkTsOffset :: o -> m Int64
getBaseSinkTsOffset o
obj = IO Int64 -> m Int64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int64 -> m Int64) -> IO Int64 -> m Int64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int64
forall a. GObject a => a -> String -> IO Int64
B.Properties.getObjectPropertyInt64 o
obj String
"ts-offset"
setBaseSinkTsOffset :: (MonadIO m, IsBaseSink o) => o -> Int64 -> m ()
setBaseSinkTsOffset :: o -> Int64 -> m ()
setBaseSinkTsOffset o
obj Int64
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int64 -> IO ()
forall a. GObject a => a -> String -> Int64 -> IO ()
B.Properties.setObjectPropertyInt64 o
obj String
"ts-offset" Int64
val
constructBaseSinkTsOffset :: (IsBaseSink o, MIO.MonadIO m) => Int64 -> m (GValueConstruct o)
constructBaseSinkTsOffset :: Int64 -> m (GValueConstruct o)
constructBaseSinkTsOffset Int64
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int64 -> IO (GValueConstruct o)
forall o. String -> Int64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt64 String
"ts-offset" Int64
val
#if defined(ENABLE_OVERLOADING)
data BaseSinkTsOffsetPropertyInfo
instance AttrInfo BaseSinkTsOffsetPropertyInfo where
type AttrAllowedOps BaseSinkTsOffsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BaseSinkTsOffsetPropertyInfo = IsBaseSink
type AttrSetTypeConstraint BaseSinkTsOffsetPropertyInfo = (~) Int64
type AttrTransferTypeConstraint BaseSinkTsOffsetPropertyInfo = (~) Int64
type AttrTransferType BaseSinkTsOffsetPropertyInfo = Int64
type AttrGetType BaseSinkTsOffsetPropertyInfo = Int64
type AttrLabel BaseSinkTsOffsetPropertyInfo = "ts-offset"
type AttrOrigin BaseSinkTsOffsetPropertyInfo = BaseSink
attrGet = getBaseSinkTsOffset
attrSet = setBaseSinkTsOffset
attrTransfer _ v = do
return v
attrConstruct = constructBaseSinkTsOffset
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList BaseSink
type instance O.AttributeList BaseSink = BaseSinkAttributeList
type BaseSinkAttributeList = ('[ '("async", BaseSinkAsyncPropertyInfo), '("blocksize", BaseSinkBlocksizePropertyInfo), '("enableLastSample", BaseSinkEnableLastSamplePropertyInfo), '("lastSample", BaseSinkLastSamplePropertyInfo), '("maxBitrate", BaseSinkMaxBitratePropertyInfo), '("maxLateness", BaseSinkMaxLatenessPropertyInfo), '("name", Gst.Object.ObjectNamePropertyInfo), '("parent", Gst.Object.ObjectParentPropertyInfo), '("processingDeadline", BaseSinkProcessingDeadlinePropertyInfo), '("qos", BaseSinkQosPropertyInfo), '("renderDelay", BaseSinkRenderDelayPropertyInfo), '("sync", BaseSinkSyncPropertyInfo), '("throttleTime", BaseSinkThrottleTimePropertyInfo), '("tsOffset", BaseSinkTsOffsetPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
baseSinkAsync :: AttrLabelProxy "async"
baseSinkAsync = AttrLabelProxy
baseSinkBlocksize :: AttrLabelProxy "blocksize"
baseSinkBlocksize = AttrLabelProxy
baseSinkEnableLastSample :: AttrLabelProxy "enableLastSample"
baseSinkEnableLastSample = AttrLabelProxy
baseSinkLastSample :: AttrLabelProxy "lastSample"
baseSinkLastSample = AttrLabelProxy
baseSinkMaxBitrate :: AttrLabelProxy "maxBitrate"
baseSinkMaxBitrate = AttrLabelProxy
baseSinkMaxLateness :: AttrLabelProxy "maxLateness"
baseSinkMaxLateness = AttrLabelProxy
baseSinkProcessingDeadline :: AttrLabelProxy "processingDeadline"
baseSinkProcessingDeadline = AttrLabelProxy
baseSinkQos :: AttrLabelProxy "qos"
baseSinkQos = AttrLabelProxy
baseSinkRenderDelay :: AttrLabelProxy "renderDelay"
baseSinkRenderDelay = AttrLabelProxy
baseSinkSync :: AttrLabelProxy "sync"
baseSinkSync = AttrLabelProxy
baseSinkThrottleTime :: AttrLabelProxy "throttleTime"
baseSinkThrottleTime = AttrLabelProxy
baseSinkTsOffset :: AttrLabelProxy "tsOffset"
baseSinkTsOffset = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList BaseSink = BaseSinkSignalList
type BaseSinkSignalList = ('[ '("deepNotify", Gst.Object.ObjectDeepNotifySignalInfo), '("noMorePads", Gst.Element.ElementNoMorePadsSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("padAdded", Gst.Element.ElementPadAddedSignalInfo), '("padRemoved", Gst.Element.ElementPadRemovedSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gst_base_sink_do_preroll" gst_base_sink_do_preroll ::
Ptr BaseSink ->
Ptr Gst.MiniObject.MiniObject ->
IO CInt
baseSinkDoPreroll ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> Gst.MiniObject.MiniObject
-> m Gst.Enums.FlowReturn
baseSinkDoPreroll :: a -> MiniObject -> m FlowReturn
baseSinkDoPreroll a
sink MiniObject
obj = IO FlowReturn -> m FlowReturn
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FlowReturn -> m FlowReturn) -> IO FlowReturn -> m FlowReturn
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Ptr MiniObject
obj' <- MiniObject -> IO (Ptr MiniObject)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MiniObject
obj
CInt
result <- Ptr BaseSink -> Ptr MiniObject -> IO CInt
gst_base_sink_do_preroll Ptr BaseSink
sink' Ptr MiniObject
obj'
let result' :: FlowReturn
result' = (Int -> FlowReturn
forall a. Enum a => Int -> a
toEnum (Int -> FlowReturn) -> (CInt -> Int) -> CInt -> FlowReturn
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
MiniObject -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MiniObject
obj
FlowReturn -> IO FlowReturn
forall (m :: * -> *) a. Monad m => a -> m a
return FlowReturn
result'
#if defined(ENABLE_OVERLOADING)
data BaseSinkDoPrerollMethodInfo
instance (signature ~ (Gst.MiniObject.MiniObject -> m Gst.Enums.FlowReturn), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkDoPrerollMethodInfo a signature where
overloadedMethod = baseSinkDoPreroll
#endif
foreign import ccall "gst_base_sink_get_blocksize" gst_base_sink_get_blocksize ::
Ptr BaseSink ->
IO Word32
baseSinkGetBlocksize ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> m Word32
baseSinkGetBlocksize :: a -> m Word32
baseSinkGetBlocksize a
sink = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Word32
result <- Ptr BaseSink -> IO Word32
gst_base_sink_get_blocksize Ptr BaseSink
sink'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data BaseSinkGetBlocksizeMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkGetBlocksizeMethodInfo a signature where
overloadedMethod = baseSinkGetBlocksize
#endif
foreign import ccall "gst_base_sink_get_drop_out_of_segment" gst_base_sink_get_drop_out_of_segment ::
Ptr BaseSink ->
IO CInt
baseSinkGetDropOutOfSegment ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> m Bool
baseSinkGetDropOutOfSegment :: a -> m Bool
baseSinkGetDropOutOfSegment a
sink = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
CInt
result <- Ptr BaseSink -> IO CInt
gst_base_sink_get_drop_out_of_segment Ptr BaseSink
sink'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data BaseSinkGetDropOutOfSegmentMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkGetDropOutOfSegmentMethodInfo a signature where
overloadedMethod = baseSinkGetDropOutOfSegment
#endif
foreign import ccall "gst_base_sink_get_last_sample" gst_base_sink_get_last_sample ::
Ptr BaseSink ->
IO (Ptr Gst.Sample.Sample)
baseSinkGetLastSample ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> m (Maybe Gst.Sample.Sample)
baseSinkGetLastSample :: a -> m (Maybe Sample)
baseSinkGetLastSample a
sink = IO (Maybe Sample) -> m (Maybe Sample)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Sample) -> m (Maybe Sample))
-> IO (Maybe Sample) -> m (Maybe Sample)
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Ptr Sample
result <- Ptr BaseSink -> IO (Ptr Sample)
gst_base_sink_get_last_sample Ptr BaseSink
sink'
Maybe Sample
maybeResult <- Ptr Sample -> (Ptr Sample -> IO Sample) -> IO (Maybe Sample)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Sample
result ((Ptr Sample -> IO Sample) -> IO (Maybe Sample))
-> (Ptr Sample -> IO Sample) -> IO (Maybe Sample)
forall a b. (a -> b) -> a -> b
$ \Ptr Sample
result' -> do
Sample
result'' <- ((ManagedPtr Sample -> Sample) -> Ptr Sample -> IO Sample
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Sample -> Sample
Gst.Sample.Sample) Ptr Sample
result'
Sample -> IO Sample
forall (m :: * -> *) a. Monad m => a -> m a
return Sample
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Maybe Sample -> IO (Maybe Sample)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Sample
maybeResult
#if defined(ENABLE_OVERLOADING)
data BaseSinkGetLastSampleMethodInfo
instance (signature ~ (m (Maybe Gst.Sample.Sample)), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkGetLastSampleMethodInfo a signature where
overloadedMethod = baseSinkGetLastSample
#endif
foreign import ccall "gst_base_sink_get_latency" gst_base_sink_get_latency ::
Ptr BaseSink ->
IO Word64
baseSinkGetLatency ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> m Word64
baseSinkGetLatency :: a -> m Word64
baseSinkGetLatency a
sink = IO Word64 -> m Word64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Word64
result <- Ptr BaseSink -> IO Word64
gst_base_sink_get_latency Ptr BaseSink
sink'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Word64 -> IO Word64
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data BaseSinkGetLatencyMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkGetLatencyMethodInfo a signature where
overloadedMethod = baseSinkGetLatency
#endif
foreign import ccall "gst_base_sink_get_max_bitrate" gst_base_sink_get_max_bitrate ::
Ptr BaseSink ->
IO Word64
baseSinkGetMaxBitrate ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> m Word64
baseSinkGetMaxBitrate :: a -> m Word64
baseSinkGetMaxBitrate a
sink = IO Word64 -> m Word64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Word64
result <- Ptr BaseSink -> IO Word64
gst_base_sink_get_max_bitrate Ptr BaseSink
sink'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Word64 -> IO Word64
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data BaseSinkGetMaxBitrateMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkGetMaxBitrateMethodInfo a signature where
overloadedMethod = baseSinkGetMaxBitrate
#endif
foreign import ccall "gst_base_sink_get_max_lateness" gst_base_sink_get_max_lateness ::
Ptr BaseSink ->
IO Int64
baseSinkGetMaxLateness ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> m Int64
baseSinkGetMaxLateness :: a -> m Int64
baseSinkGetMaxLateness a
sink = IO Int64 -> m Int64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int64 -> m Int64) -> IO Int64 -> m Int64
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Int64
result <- Ptr BaseSink -> IO Int64
gst_base_sink_get_max_lateness Ptr BaseSink
sink'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Int64 -> IO Int64
forall (m :: * -> *) a. Monad m => a -> m a
return Int64
result
#if defined(ENABLE_OVERLOADING)
data BaseSinkGetMaxLatenessMethodInfo
instance (signature ~ (m Int64), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkGetMaxLatenessMethodInfo a signature where
overloadedMethod = baseSinkGetMaxLateness
#endif
foreign import ccall "gst_base_sink_get_processing_deadline" gst_base_sink_get_processing_deadline ::
Ptr BaseSink ->
IO Word64
baseSinkGetProcessingDeadline ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> m Word64
baseSinkGetProcessingDeadline :: a -> m Word64
baseSinkGetProcessingDeadline a
sink = IO Word64 -> m Word64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Word64
result <- Ptr BaseSink -> IO Word64
gst_base_sink_get_processing_deadline Ptr BaseSink
sink'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Word64 -> IO Word64
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data BaseSinkGetProcessingDeadlineMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkGetProcessingDeadlineMethodInfo a signature where
overloadedMethod = baseSinkGetProcessingDeadline
#endif
foreign import ccall "gst_base_sink_get_render_delay" gst_base_sink_get_render_delay ::
Ptr BaseSink ->
IO Word64
baseSinkGetRenderDelay ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> m Word64
baseSinkGetRenderDelay :: a -> m Word64
baseSinkGetRenderDelay a
sink = IO Word64 -> m Word64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Word64
result <- Ptr BaseSink -> IO Word64
gst_base_sink_get_render_delay Ptr BaseSink
sink'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Word64 -> IO Word64
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data BaseSinkGetRenderDelayMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkGetRenderDelayMethodInfo a signature where
overloadedMethod = baseSinkGetRenderDelay
#endif
foreign import ccall "gst_base_sink_get_sync" gst_base_sink_get_sync ::
Ptr BaseSink ->
IO CInt
baseSinkGetSync ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> m Bool
baseSinkGetSync :: a -> m Bool
baseSinkGetSync a
sink = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
CInt
result <- Ptr BaseSink -> IO CInt
gst_base_sink_get_sync Ptr BaseSink
sink'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data BaseSinkGetSyncMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkGetSyncMethodInfo a signature where
overloadedMethod = baseSinkGetSync
#endif
foreign import ccall "gst_base_sink_get_throttle_time" gst_base_sink_get_throttle_time ::
Ptr BaseSink ->
IO Word64
baseSinkGetThrottleTime ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> m Word64
baseSinkGetThrottleTime :: a -> m Word64
baseSinkGetThrottleTime a
sink = IO Word64 -> m Word64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Word64
result <- Ptr BaseSink -> IO Word64
gst_base_sink_get_throttle_time Ptr BaseSink
sink'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Word64 -> IO Word64
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data BaseSinkGetThrottleTimeMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkGetThrottleTimeMethodInfo a signature where
overloadedMethod = baseSinkGetThrottleTime
#endif
foreign import ccall "gst_base_sink_get_ts_offset" gst_base_sink_get_ts_offset ::
Ptr BaseSink ->
IO Int64
baseSinkGetTsOffset ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> m Int64
baseSinkGetTsOffset :: a -> m Int64
baseSinkGetTsOffset a
sink = IO Int64 -> m Int64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int64 -> m Int64) -> IO Int64 -> m Int64
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Int64
result <- Ptr BaseSink -> IO Int64
gst_base_sink_get_ts_offset Ptr BaseSink
sink'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Int64 -> IO Int64
forall (m :: * -> *) a. Monad m => a -> m a
return Int64
result
#if defined(ENABLE_OVERLOADING)
data BaseSinkGetTsOffsetMethodInfo
instance (signature ~ (m Int64), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkGetTsOffsetMethodInfo a signature where
overloadedMethod = baseSinkGetTsOffset
#endif
foreign import ccall "gst_base_sink_is_async_enabled" gst_base_sink_is_async_enabled ::
Ptr BaseSink ->
IO CInt
baseSinkIsAsyncEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> m Bool
baseSinkIsAsyncEnabled :: a -> m Bool
baseSinkIsAsyncEnabled a
sink = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
CInt
result <- Ptr BaseSink -> IO CInt
gst_base_sink_is_async_enabled Ptr BaseSink
sink'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data BaseSinkIsAsyncEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkIsAsyncEnabledMethodInfo a signature where
overloadedMethod = baseSinkIsAsyncEnabled
#endif
foreign import ccall "gst_base_sink_is_last_sample_enabled" gst_base_sink_is_last_sample_enabled ::
Ptr BaseSink ->
IO CInt
baseSinkIsLastSampleEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> m Bool
baseSinkIsLastSampleEnabled :: a -> m Bool
baseSinkIsLastSampleEnabled a
sink = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
CInt
result <- Ptr BaseSink -> IO CInt
gst_base_sink_is_last_sample_enabled Ptr BaseSink
sink'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data BaseSinkIsLastSampleEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkIsLastSampleEnabledMethodInfo a signature where
overloadedMethod = baseSinkIsLastSampleEnabled
#endif
foreign import ccall "gst_base_sink_is_qos_enabled" gst_base_sink_is_qos_enabled ::
Ptr BaseSink ->
IO CInt
baseSinkIsQosEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> m Bool
baseSinkIsQosEnabled :: a -> m Bool
baseSinkIsQosEnabled a
sink = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
CInt
result <- Ptr BaseSink -> IO CInt
gst_base_sink_is_qos_enabled Ptr BaseSink
sink'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data BaseSinkIsQosEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkIsQosEnabledMethodInfo a signature where
overloadedMethod = baseSinkIsQosEnabled
#endif
foreign import ccall "gst_base_sink_query_latency" gst_base_sink_query_latency ::
Ptr BaseSink ->
Ptr CInt ->
Ptr CInt ->
Ptr Word64 ->
Ptr Word64 ->
IO CInt
baseSinkQueryLatency ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> m ((Bool, Bool, Bool, Word64, Word64))
baseSinkQueryLatency :: a -> m (Bool, Bool, Bool, Word64, Word64)
baseSinkQueryLatency a
sink = IO (Bool, Bool, Bool, Word64, Word64)
-> m (Bool, Bool, Bool, Word64, Word64)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Bool, Bool, Word64, Word64)
-> m (Bool, Bool, Bool, Word64, Word64))
-> IO (Bool, Bool, Bool, Word64, Word64)
-> m (Bool, Bool, Bool, Word64, Word64)
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Ptr CInt
live <- IO (Ptr CInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CInt)
Ptr CInt
upstreamLive <- IO (Ptr CInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CInt)
Ptr Word64
minLatency <- IO (Ptr Word64)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word64)
Ptr Word64
maxLatency <- IO (Ptr Word64)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word64)
CInt
result <- Ptr BaseSink
-> Ptr CInt -> Ptr CInt -> Ptr Word64 -> Ptr Word64 -> IO CInt
gst_base_sink_query_latency Ptr BaseSink
sink' Ptr CInt
live Ptr CInt
upstreamLive Ptr Word64
minLatency Ptr Word64
maxLatency
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
CInt
live' <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
live
let live'' :: Bool
live'' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
live'
CInt
upstreamLive' <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
upstreamLive
let upstreamLive'' :: Bool
upstreamLive'' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
upstreamLive'
Word64
minLatency' <- Ptr Word64 -> IO Word64
forall a. Storable a => Ptr a -> IO a
peek Ptr Word64
minLatency
Word64
maxLatency' <- Ptr Word64 -> IO Word64
forall a. Storable a => Ptr a -> IO a
peek Ptr Word64
maxLatency
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Ptr CInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CInt
live
Ptr CInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CInt
upstreamLive
Ptr Word64 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word64
minLatency
Ptr Word64 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word64
maxLatency
(Bool, Bool, Bool, Word64, Word64)
-> IO (Bool, Bool, Bool, Word64, Word64)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Bool
live'', Bool
upstreamLive'', Word64
minLatency', Word64
maxLatency')
#if defined(ENABLE_OVERLOADING)
data BaseSinkQueryLatencyMethodInfo
instance (signature ~ (m ((Bool, Bool, Bool, Word64, Word64))), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkQueryLatencyMethodInfo a signature where
overloadedMethod = baseSinkQueryLatency
#endif
foreign import ccall "gst_base_sink_set_async_enabled" gst_base_sink_set_async_enabled ::
Ptr BaseSink ->
CInt ->
IO ()
baseSinkSetAsyncEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> Bool
-> m ()
baseSinkSetAsyncEnabled :: a -> Bool -> m ()
baseSinkSetAsyncEnabled a
sink Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
Ptr BaseSink -> CInt -> IO ()
gst_base_sink_set_async_enabled Ptr BaseSink
sink' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetAsyncEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkSetAsyncEnabledMethodInfo a signature where
overloadedMethod = baseSinkSetAsyncEnabled
#endif
foreign import ccall "gst_base_sink_set_blocksize" gst_base_sink_set_blocksize ::
Ptr BaseSink ->
Word32 ->
IO ()
baseSinkSetBlocksize ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> Word32
-> m ()
baseSinkSetBlocksize :: a -> Word32 -> m ()
baseSinkSetBlocksize a
sink Word32
blocksize = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Ptr BaseSink -> Word32 -> IO ()
gst_base_sink_set_blocksize Ptr BaseSink
sink' Word32
blocksize
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetBlocksizeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkSetBlocksizeMethodInfo a signature where
overloadedMethod = baseSinkSetBlocksize
#endif
foreign import ccall "gst_base_sink_set_drop_out_of_segment" gst_base_sink_set_drop_out_of_segment ::
Ptr BaseSink ->
CInt ->
IO ()
baseSinkSetDropOutOfSegment ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> Bool
-> m ()
baseSinkSetDropOutOfSegment :: a -> Bool -> m ()
baseSinkSetDropOutOfSegment a
sink Bool
dropOutOfSegment = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
let dropOutOfSegment' :: CInt
dropOutOfSegment' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
dropOutOfSegment
Ptr BaseSink -> CInt -> IO ()
gst_base_sink_set_drop_out_of_segment Ptr BaseSink
sink' CInt
dropOutOfSegment'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetDropOutOfSegmentMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkSetDropOutOfSegmentMethodInfo a signature where
overloadedMethod = baseSinkSetDropOutOfSegment
#endif
foreign import ccall "gst_base_sink_set_last_sample_enabled" gst_base_sink_set_last_sample_enabled ::
Ptr BaseSink ->
CInt ->
IO ()
baseSinkSetLastSampleEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> Bool
-> m ()
baseSinkSetLastSampleEnabled :: a -> Bool -> m ()
baseSinkSetLastSampleEnabled a
sink Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
Ptr BaseSink -> CInt -> IO ()
gst_base_sink_set_last_sample_enabled Ptr BaseSink
sink' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetLastSampleEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkSetLastSampleEnabledMethodInfo a signature where
overloadedMethod = baseSinkSetLastSampleEnabled
#endif
foreign import ccall "gst_base_sink_set_max_bitrate" gst_base_sink_set_max_bitrate ::
Ptr BaseSink ->
Word64 ->
IO ()
baseSinkSetMaxBitrate ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> Word64
-> m ()
baseSinkSetMaxBitrate :: a -> Word64 -> m ()
baseSinkSetMaxBitrate a
sink Word64
maxBitrate = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Ptr BaseSink -> Word64 -> IO ()
gst_base_sink_set_max_bitrate Ptr BaseSink
sink' Word64
maxBitrate
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetMaxBitrateMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkSetMaxBitrateMethodInfo a signature where
overloadedMethod = baseSinkSetMaxBitrate
#endif
foreign import ccall "gst_base_sink_set_max_lateness" gst_base_sink_set_max_lateness ::
Ptr BaseSink ->
Int64 ->
IO ()
baseSinkSetMaxLateness ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> Int64
-> m ()
baseSinkSetMaxLateness :: a -> Int64 -> m ()
baseSinkSetMaxLateness a
sink Int64
maxLateness = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Ptr BaseSink -> Int64 -> IO ()
gst_base_sink_set_max_lateness Ptr BaseSink
sink' Int64
maxLateness
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetMaxLatenessMethodInfo
instance (signature ~ (Int64 -> m ()), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkSetMaxLatenessMethodInfo a signature where
overloadedMethod = baseSinkSetMaxLateness
#endif
foreign import ccall "gst_base_sink_set_processing_deadline" gst_base_sink_set_processing_deadline ::
Ptr BaseSink ->
Word64 ->
IO ()
baseSinkSetProcessingDeadline ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> Word64
-> m ()
baseSinkSetProcessingDeadline :: a -> Word64 -> m ()
baseSinkSetProcessingDeadline a
sink Word64
processingDeadline = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Ptr BaseSink -> Word64 -> IO ()
gst_base_sink_set_processing_deadline Ptr BaseSink
sink' Word64
processingDeadline
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetProcessingDeadlineMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkSetProcessingDeadlineMethodInfo a signature where
overloadedMethod = baseSinkSetProcessingDeadline
#endif
foreign import ccall "gst_base_sink_set_qos_enabled" gst_base_sink_set_qos_enabled ::
Ptr BaseSink ->
CInt ->
IO ()
baseSinkSetQosEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> Bool
-> m ()
baseSinkSetQosEnabled :: a -> Bool -> m ()
baseSinkSetQosEnabled a
sink Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
Ptr BaseSink -> CInt -> IO ()
gst_base_sink_set_qos_enabled Ptr BaseSink
sink' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetQosEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkSetQosEnabledMethodInfo a signature where
overloadedMethod = baseSinkSetQosEnabled
#endif
foreign import ccall "gst_base_sink_set_render_delay" gst_base_sink_set_render_delay ::
Ptr BaseSink ->
Word64 ->
IO ()
baseSinkSetRenderDelay ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> Word64
-> m ()
baseSinkSetRenderDelay :: a -> Word64 -> m ()
baseSinkSetRenderDelay a
sink Word64
delay = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Ptr BaseSink -> Word64 -> IO ()
gst_base_sink_set_render_delay Ptr BaseSink
sink' Word64
delay
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetRenderDelayMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkSetRenderDelayMethodInfo a signature where
overloadedMethod = baseSinkSetRenderDelay
#endif
foreign import ccall "gst_base_sink_set_sync" gst_base_sink_set_sync ::
Ptr BaseSink ->
CInt ->
IO ()
baseSinkSetSync ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> Bool
-> m ()
baseSinkSetSync :: a -> Bool -> m ()
baseSinkSetSync a
sink Bool
sync = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
let sync' :: CInt
sync' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
sync
Ptr BaseSink -> CInt -> IO ()
gst_base_sink_set_sync Ptr BaseSink
sink' CInt
sync'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetSyncMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkSetSyncMethodInfo a signature where
overloadedMethod = baseSinkSetSync
#endif
foreign import ccall "gst_base_sink_set_throttle_time" gst_base_sink_set_throttle_time ::
Ptr BaseSink ->
Word64 ->
IO ()
baseSinkSetThrottleTime ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> Word64
-> m ()
baseSinkSetThrottleTime :: a -> Word64 -> m ()
baseSinkSetThrottleTime a
sink Word64
throttle = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Ptr BaseSink -> Word64 -> IO ()
gst_base_sink_set_throttle_time Ptr BaseSink
sink' Word64
throttle
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetThrottleTimeMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkSetThrottleTimeMethodInfo a signature where
overloadedMethod = baseSinkSetThrottleTime
#endif
foreign import ccall "gst_base_sink_set_ts_offset" gst_base_sink_set_ts_offset ::
Ptr BaseSink ->
Int64 ->
IO ()
baseSinkSetTsOffset ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> Int64
-> m ()
baseSinkSetTsOffset :: a -> Int64 -> m ()
baseSinkSetTsOffset a
sink Int64
offset = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Ptr BaseSink -> Int64 -> IO ()
gst_base_sink_set_ts_offset Ptr BaseSink
sink' Int64
offset
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetTsOffsetMethodInfo
instance (signature ~ (Int64 -> m ()), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkSetTsOffsetMethodInfo a signature where
overloadedMethod = baseSinkSetTsOffset
#endif
foreign import ccall "gst_base_sink_wait" gst_base_sink_wait ::
Ptr BaseSink ->
Word64 ->
Ptr Int64 ->
IO CInt
baseSinkWait ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> Word64
-> m ((Gst.Enums.FlowReturn, Int64))
baseSinkWait :: a -> Word64 -> m (FlowReturn, Int64)
baseSinkWait a
sink Word64
time = IO (FlowReturn, Int64) -> m (FlowReturn, Int64)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (FlowReturn, Int64) -> m (FlowReturn, Int64))
-> IO (FlowReturn, Int64) -> m (FlowReturn, Int64)
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Ptr Int64
jitter <- IO (Ptr Int64)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int64)
CInt
result <- Ptr BaseSink -> Word64 -> Ptr Int64 -> IO CInt
gst_base_sink_wait Ptr BaseSink
sink' Word64
time Ptr Int64
jitter
let result' :: FlowReturn
result' = (Int -> FlowReturn
forall a. Enum a => Int -> a
toEnum (Int -> FlowReturn) -> (CInt -> Int) -> CInt -> FlowReturn
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CInt
result
Int64
jitter' <- Ptr Int64 -> IO Int64
forall a. Storable a => Ptr a -> IO a
peek Ptr Int64
jitter
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Ptr Int64 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int64
jitter
(FlowReturn, Int64) -> IO (FlowReturn, Int64)
forall (m :: * -> *) a. Monad m => a -> m a
return (FlowReturn
result', Int64
jitter')
#if defined(ENABLE_OVERLOADING)
data BaseSinkWaitMethodInfo
instance (signature ~ (Word64 -> m ((Gst.Enums.FlowReturn, Int64))), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkWaitMethodInfo a signature where
overloadedMethod = baseSinkWait
#endif
foreign import ccall "gst_base_sink_wait_clock" gst_base_sink_wait_clock ::
Ptr BaseSink ->
Word64 ->
Ptr Int64 ->
IO CUInt
baseSinkWaitClock ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> Word64
-> m ((Gst.Enums.ClockReturn, Int64))
baseSinkWaitClock :: a -> Word64 -> m (ClockReturn, Int64)
baseSinkWaitClock a
sink Word64
time = IO (ClockReturn, Int64) -> m (ClockReturn, Int64)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (ClockReturn, Int64) -> m (ClockReturn, Int64))
-> IO (ClockReturn, Int64) -> m (ClockReturn, Int64)
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Ptr Int64
jitter <- IO (Ptr Int64)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int64)
CUInt
result <- Ptr BaseSink -> Word64 -> Ptr Int64 -> IO CUInt
gst_base_sink_wait_clock Ptr BaseSink
sink' Word64
time Ptr Int64
jitter
let result' :: ClockReturn
result' = (Int -> ClockReturn
forall a. Enum a => Int -> a
toEnum (Int -> ClockReturn) -> (CUInt -> Int) -> CUInt -> ClockReturn
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
Int64
jitter' <- Ptr Int64 -> IO Int64
forall a. Storable a => Ptr a -> IO a
peek Ptr Int64
jitter
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Ptr Int64 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int64
jitter
(ClockReturn, Int64) -> IO (ClockReturn, Int64)
forall (m :: * -> *) a. Monad m => a -> m a
return (ClockReturn
result', Int64
jitter')
#if defined(ENABLE_OVERLOADING)
data BaseSinkWaitClockMethodInfo
instance (signature ~ (Word64 -> m ((Gst.Enums.ClockReturn, Int64))), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkWaitClockMethodInfo a signature where
overloadedMethod = baseSinkWaitClock
#endif
foreign import ccall "gst_base_sink_wait_preroll" gst_base_sink_wait_preroll ::
Ptr BaseSink ->
IO CInt
baseSinkWaitPreroll ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> m Gst.Enums.FlowReturn
baseSinkWaitPreroll :: a -> m FlowReturn
baseSinkWaitPreroll a
sink = IO FlowReturn -> m FlowReturn
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FlowReturn -> m FlowReturn) -> IO FlowReturn -> m FlowReturn
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseSink
sink' <- a -> IO (Ptr BaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
CInt
result <- Ptr BaseSink -> IO CInt
gst_base_sink_wait_preroll Ptr BaseSink
sink'
let result' :: FlowReturn
result' = (Int -> FlowReturn
forall a. Enum a => Int -> a
toEnum (Int -> FlowReturn) -> (CInt -> Int) -> CInt -> FlowReturn
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
FlowReturn -> IO FlowReturn
forall (m :: * -> *) a. Monad m => a -> m a
return FlowReturn
result'
#if defined(ENABLE_OVERLOADING)
data BaseSinkWaitPrerollMethodInfo
instance (signature ~ (m Gst.Enums.FlowReturn), MonadIO m, IsBaseSink a) => O.MethodInfo BaseSinkWaitPrerollMethodInfo a signature where
overloadedMethod = baseSinkWaitPreroll
#endif