{-# 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)
BaseSinkGetStatsMethodInfo ,
#endif
baseSinkGetStats ,
#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)
BaseSinkStatsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
baseSinkStats ,
#endif
getBaseSinkStats ,
#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.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.Coerce as Coerce
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 GHC.Records as R
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
import qualified GI.Gst.Structs.Structure as Gst.Structure
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
$c== :: BaseSink -> BaseSink -> Bool
== :: BaseSink -> BaseSink -> Bool
$c/= :: BaseSink -> BaseSink -> Bool
/= :: 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
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 :: (MIO.MonadIO m, IsBaseSink o) => o -> m BaseSink
toBaseSink :: forall (m :: * -> *) o.
(MonadIO m, IsBaseSink o) =>
o -> m BaseSink
toBaseSink = IO BaseSink -> m BaseSink
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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'
B.ManagedPtr.unsafeCastTo ManagedPtr BaseSink -> BaseSink
BaseSink
instance B.GValue.IsGValue (Maybe BaseSink) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gst_base_sink_get_type
gvalueSet_ :: Ptr GValue -> Maybe BaseSink -> IO ()
gvalueSet_ Ptr GValue
gv Maybe BaseSink
P.Nothing = Ptr GValue -> Ptr BaseSink -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr BaseSink
forall a. Ptr a
FP.nullPtr :: FP.Ptr BaseSink)
gvalueSet_ Ptr GValue
gv (P.Just BaseSink
obj) = BaseSink -> (Ptr BaseSink -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr BaseSink
obj (Ptr GValue -> Ptr BaseSink -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe BaseSink)
gvalueGet_ Ptr GValue
gv = do
Ptr BaseSink
ptr <- Ptr GValue -> IO (Ptr BaseSink)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr BaseSink)
if Ptr BaseSink
ptr Ptr BaseSink -> Ptr BaseSink -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr BaseSink
forall a. Ptr a
FP.nullPtr
then BaseSink -> Maybe BaseSink
forall a. a -> Maybe a
P.Just (BaseSink -> Maybe BaseSink) -> IO BaseSink -> IO (Maybe BaseSink)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe BaseSink -> IO (Maybe BaseSink)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe BaseSink
forall a. Maybe a
P.Nothing
#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 "requestPadSimple" o = Gst.Element.ElementRequestPadSimpleMethodInfo
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 "getCurrentClockTime" o = Gst.Element.ElementGetCurrentClockTimeMethodInfo
ResolveBaseSinkMethod "getCurrentRunningTime" o = Gst.Element.ElementGetCurrentRunningTimeMethodInfo
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 "getStats" o = BaseSinkGetStatsMethodInfo
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.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveBaseSinkMethod t BaseSink, O.OverloadedMethod info BaseSink p, R.HasField t BaseSink p) => R.HasField t BaseSink p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveBaseSinkMethod t BaseSink, O.OverloadedMethodInfo info BaseSink) => OL.IsLabel t (O.MethodProxy info BaseSink) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getBaseSinkAsync :: (MonadIO m, IsBaseSink o) => o -> m Bool
getBaseSinkAsync :: forall (m :: * -> *) o. (MonadIO m, IsBaseSink o) => o -> m Bool
getBaseSinkAsync o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsBaseSink o) =>
o -> Bool -> m ()
setBaseSinkAsync o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsBaseSink o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructBaseSinkAsync Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.async"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#g:attr:async"
})
#endif
getBaseSinkBlocksize :: (MonadIO m, IsBaseSink o) => o -> m Word32
getBaseSinkBlocksize :: forall (m :: * -> *) o. (MonadIO m, IsBaseSink o) => o -> m Word32
getBaseSinkBlocksize o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsBaseSink o) =>
o -> Word32 -> m ()
setBaseSinkBlocksize o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsBaseSink o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructBaseSinkBlocksize Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.blocksize"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#g:attr:blocksize"
})
#endif
getBaseSinkEnableLastSample :: (MonadIO m, IsBaseSink o) => o -> m Bool
getBaseSinkEnableLastSample :: forall (m :: * -> *) o. (MonadIO m, IsBaseSink o) => o -> m Bool
getBaseSinkEnableLastSample o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsBaseSink o) =>
o -> Bool -> m ()
setBaseSinkEnableLastSample o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsBaseSink o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructBaseSinkEnableLastSample Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.enableLastSample"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#g:attr:enableLastSample"
})
#endif
getBaseSinkLastSample :: (MonadIO m, IsBaseSink o) => o -> m (Maybe Gst.Sample.Sample)
getBaseSinkLastSample :: forall (m :: * -> *) o.
(MonadIO m, IsBaseSink o) =>
o -> m (Maybe Sample)
getBaseSinkLastSample o
obj = IO (Maybe Sample) -> m (Maybe Sample)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.lastSample"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#g:attr:lastSample"
})
#endif
getBaseSinkMaxBitrate :: (MonadIO m, IsBaseSink o) => o -> m Word64
getBaseSinkMaxBitrate :: forall (m :: * -> *) o. (MonadIO m, IsBaseSink o) => o -> m Word64
getBaseSinkMaxBitrate o
obj = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsBaseSink o) =>
o -> Word64 -> m ()
setBaseSinkMaxBitrate o
obj Word64
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsBaseSink o, MonadIO m) =>
Word64 -> m (GValueConstruct o)
constructBaseSinkMaxBitrate Word64
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.maxBitrate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#g:attr:maxBitrate"
})
#endif
getBaseSinkMaxLateness :: (MonadIO m, IsBaseSink o) => o -> m Int64
getBaseSinkMaxLateness :: forall (m :: * -> *) o. (MonadIO m, IsBaseSink o) => o -> m Int64
getBaseSinkMaxLateness o
obj = IO Int64 -> m Int64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsBaseSink o) =>
o -> Int64 -> m ()
setBaseSinkMaxLateness o
obj Int64
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsBaseSink o, MonadIO m) =>
Int64 -> m (GValueConstruct o)
constructBaseSinkMaxLateness Int64
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.maxLateness"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#g:attr:maxLateness"
})
#endif
getBaseSinkProcessingDeadline :: (MonadIO m, IsBaseSink o) => o -> m Word64
getBaseSinkProcessingDeadline :: forall (m :: * -> *) o. (MonadIO m, IsBaseSink o) => o -> m Word64
getBaseSinkProcessingDeadline o
obj = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsBaseSink o) =>
o -> Word64 -> m ()
setBaseSinkProcessingDeadline o
obj Word64
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsBaseSink o, MonadIO m) =>
Word64 -> m (GValueConstruct o)
constructBaseSinkProcessingDeadline Word64
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.processingDeadline"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#g:attr:processingDeadline"
})
#endif
getBaseSinkQos :: (MonadIO m, IsBaseSink o) => o -> m Bool
getBaseSinkQos :: forall (m :: * -> *) o. (MonadIO m, IsBaseSink o) => o -> m Bool
getBaseSinkQos o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsBaseSink o) =>
o -> Bool -> m ()
setBaseSinkQos o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsBaseSink o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructBaseSinkQos Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.qos"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#g:attr:qos"
})
#endif
getBaseSinkRenderDelay :: (MonadIO m, IsBaseSink o) => o -> m Word64
getBaseSinkRenderDelay :: forall (m :: * -> *) o. (MonadIO m, IsBaseSink o) => o -> m Word64
getBaseSinkRenderDelay o
obj = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsBaseSink o) =>
o -> Word64 -> m ()
setBaseSinkRenderDelay o
obj Word64
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsBaseSink o, MonadIO m) =>
Word64 -> m (GValueConstruct o)
constructBaseSinkRenderDelay Word64
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.renderDelay"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#g:attr:renderDelay"
})
#endif
getBaseSinkStats :: (MonadIO m, IsBaseSink o) => o -> m (Maybe Gst.Structure.Structure)
getBaseSinkStats :: forall (m :: * -> *) o.
(MonadIO m, IsBaseSink o) =>
o -> m (Maybe Structure)
getBaseSinkStats o
obj = IO (Maybe Structure) -> m (Maybe Structure)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Structure) -> m (Maybe Structure))
-> IO (Maybe Structure) -> m (Maybe Structure)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr Structure -> Structure)
-> IO (Maybe Structure)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"stats" ManagedPtr Structure -> Structure
Gst.Structure.Structure
#if defined(ENABLE_OVERLOADING)
data BaseSinkStatsPropertyInfo
instance AttrInfo BaseSinkStatsPropertyInfo where
type AttrAllowedOps BaseSinkStatsPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint BaseSinkStatsPropertyInfo = IsBaseSink
type AttrSetTypeConstraint BaseSinkStatsPropertyInfo = (~) ()
type AttrTransferTypeConstraint BaseSinkStatsPropertyInfo = (~) ()
type AttrTransferType BaseSinkStatsPropertyInfo = ()
type AttrGetType BaseSinkStatsPropertyInfo = (Maybe Gst.Structure.Structure)
type AttrLabel BaseSinkStatsPropertyInfo = "stats"
type AttrOrigin BaseSinkStatsPropertyInfo = BaseSink
attrGet = getBaseSinkStats
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.stats"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#g:attr:stats"
})
#endif
getBaseSinkSync :: (MonadIO m, IsBaseSink o) => o -> m Bool
getBaseSinkSync :: forall (m :: * -> *) o. (MonadIO m, IsBaseSink o) => o -> m Bool
getBaseSinkSync o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsBaseSink o) =>
o -> Bool -> m ()
setBaseSinkSync o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsBaseSink o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructBaseSinkSync Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.sync"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#g:attr:sync"
})
#endif
getBaseSinkThrottleTime :: (MonadIO m, IsBaseSink o) => o -> m Word64
getBaseSinkThrottleTime :: forall (m :: * -> *) o. (MonadIO m, IsBaseSink o) => o -> m Word64
getBaseSinkThrottleTime o
obj = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsBaseSink o) =>
o -> Word64 -> m ()
setBaseSinkThrottleTime o
obj Word64
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsBaseSink o, MonadIO m) =>
Word64 -> m (GValueConstruct o)
constructBaseSinkThrottleTime Word64
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.throttleTime"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#g:attr:throttleTime"
})
#endif
getBaseSinkTsOffset :: (MonadIO m, IsBaseSink o) => o -> m Int64
getBaseSinkTsOffset :: forall (m :: * -> *) o. (MonadIO m, IsBaseSink o) => o -> m Int64
getBaseSinkTsOffset o
obj = IO Int64 -> m Int64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsBaseSink o) =>
o -> Int64 -> m ()
setBaseSinkTsOffset o
obj Int64
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsBaseSink o, MonadIO m) =>
Int64 -> m (GValueConstruct o)
constructBaseSinkTsOffset Int64
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.tsOffset"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#g:attr:tsOffset"
})
#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), '("stats", BaseSinkStatsPropertyInfo), '("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
baseSinkStats :: AttrLabelProxy "stats"
baseSinkStats = 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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> MiniObject -> m FlowReturn
baseSinkDoPreroll a
sink MiniObject
obj = IO FlowReturn -> m FlowReturn
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseSinkDoPrerollMethodInfo a signature where
overloadedMethod = baseSinkDoPreroll
instance O.OverloadedMethodInfo BaseSinkDoPrerollMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkDoPreroll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> m Word32
baseSinkGetBlocksize a
sink = IO Word32 -> m Word32
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseSinkGetBlocksizeMethodInfo a signature where
overloadedMethod = baseSinkGetBlocksize
instance O.OverloadedMethodInfo BaseSinkGetBlocksizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkGetBlocksize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> m Bool
baseSinkGetDropOutOfSegment a
sink = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseSinkGetDropOutOfSegmentMethodInfo a signature where
overloadedMethod = baseSinkGetDropOutOfSegment
instance O.OverloadedMethodInfo BaseSinkGetDropOutOfSegmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkGetDropOutOfSegment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> m (Maybe Sample)
baseSinkGetLastSample a
sink = IO (Maybe Sample) -> m (Maybe Sample)
forall a. IO a -> m a
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 a. a -> IO a
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 a. a -> IO a
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.OverloadedMethod BaseSinkGetLastSampleMethodInfo a signature where
overloadedMethod = baseSinkGetLastSample
instance O.OverloadedMethodInfo BaseSinkGetLastSampleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkGetLastSample",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> m Word64
baseSinkGetLatency a
sink = IO Word64 -> m Word64
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseSinkGetLatencyMethodInfo a signature where
overloadedMethod = baseSinkGetLatency
instance O.OverloadedMethodInfo BaseSinkGetLatencyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkGetLatency",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> m Word64
baseSinkGetMaxBitrate a
sink = IO Word64 -> m Word64
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseSinkGetMaxBitrateMethodInfo a signature where
overloadedMethod = baseSinkGetMaxBitrate
instance O.OverloadedMethodInfo BaseSinkGetMaxBitrateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkGetMaxBitrate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> m Int64
baseSinkGetMaxLateness a
sink = IO Int64 -> m Int64
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseSinkGetMaxLatenessMethodInfo a signature where
overloadedMethod = baseSinkGetMaxLateness
instance O.OverloadedMethodInfo BaseSinkGetMaxLatenessMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkGetMaxLateness",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> m Word64
baseSinkGetProcessingDeadline a
sink = IO Word64 -> m Word64
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseSinkGetProcessingDeadlineMethodInfo a signature where
overloadedMethod = baseSinkGetProcessingDeadline
instance O.OverloadedMethodInfo BaseSinkGetProcessingDeadlineMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkGetProcessingDeadline",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> m Word64
baseSinkGetRenderDelay a
sink = IO Word64 -> m Word64
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseSinkGetRenderDelayMethodInfo a signature where
overloadedMethod = baseSinkGetRenderDelay
instance O.OverloadedMethodInfo BaseSinkGetRenderDelayMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkGetRenderDelay",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v:baseSinkGetRenderDelay"
})
#endif
foreign import ccall "gst_base_sink_get_stats" gst_base_sink_get_stats ::
Ptr BaseSink ->
IO (Ptr Gst.Structure.Structure)
baseSinkGetStats ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseSink a) =>
a
-> m Gst.Structure.Structure
baseSinkGetStats :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> m Structure
baseSinkGetStats a
sink = IO Structure -> m Structure
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Structure -> m Structure) -> IO Structure -> m Structure
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 Structure
result <- Ptr BaseSink -> IO (Ptr Structure)
gst_base_sink_get_stats Ptr BaseSink
sink'
Text -> Ptr Structure -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"baseSinkGetStats" Ptr Structure
result
Structure
result' <- ((ManagedPtr Structure -> Structure)
-> Ptr Structure -> IO Structure
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Structure -> Structure
Gst.Structure.Structure) Ptr Structure
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Structure -> IO Structure
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Structure
result'
#if defined(ENABLE_OVERLOADING)
data BaseSinkGetStatsMethodInfo
instance (signature ~ (m Gst.Structure.Structure), MonadIO m, IsBaseSink a) => O.OverloadedMethod BaseSinkGetStatsMethodInfo a signature where
overloadedMethod = baseSinkGetStats
instance O.OverloadedMethodInfo BaseSinkGetStatsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkGetStats",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v:baseSinkGetStats"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> m Bool
baseSinkGetSync a
sink = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseSinkGetSyncMethodInfo a signature where
overloadedMethod = baseSinkGetSync
instance O.OverloadedMethodInfo BaseSinkGetSyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkGetSync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> m Word64
baseSinkGetThrottleTime a
sink = IO Word64 -> m Word64
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseSinkGetThrottleTimeMethodInfo a signature where
overloadedMethod = baseSinkGetThrottleTime
instance O.OverloadedMethodInfo BaseSinkGetThrottleTimeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkGetThrottleTime",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> m Int64
baseSinkGetTsOffset a
sink = IO Int64 -> m Int64
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseSinkGetTsOffsetMethodInfo a signature where
overloadedMethod = baseSinkGetTsOffset
instance O.OverloadedMethodInfo BaseSinkGetTsOffsetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkGetTsOffset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> m Bool
baseSinkIsAsyncEnabled a
sink = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseSinkIsAsyncEnabledMethodInfo a signature where
overloadedMethod = baseSinkIsAsyncEnabled
instance O.OverloadedMethodInfo BaseSinkIsAsyncEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkIsAsyncEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> m Bool
baseSinkIsLastSampleEnabled a
sink = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseSinkIsLastSampleEnabledMethodInfo a signature where
overloadedMethod = baseSinkIsLastSampleEnabled
instance O.OverloadedMethodInfo BaseSinkIsLastSampleEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkIsLastSampleEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> m Bool
baseSinkIsQosEnabled a
sink = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseSinkIsQosEnabledMethodInfo a signature where
overloadedMethod = baseSinkIsQosEnabled
instance O.OverloadedMethodInfo BaseSinkIsQosEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkIsQosEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> m (Bool, Bool, Bool, Word64, Word64)
baseSinkQueryLatency a
sink = IO (Bool, Bool, Bool, Word64, Word64)
-> m (Bool, Bool, Bool, Word64, Word64)
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseSinkQueryLatencyMethodInfo a signature where
overloadedMethod = baseSinkQueryLatency
instance O.OverloadedMethodInfo BaseSinkQueryLatencyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkQueryLatency",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> Bool -> m ()
baseSinkSetAsyncEnabled a
sink Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetAsyncEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseSink a) => O.OverloadedMethod BaseSinkSetAsyncEnabledMethodInfo a signature where
overloadedMethod = baseSinkSetAsyncEnabled
instance O.OverloadedMethodInfo BaseSinkSetAsyncEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkSetAsyncEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> Word32 -> m ()
baseSinkSetBlocksize a
sink Word32
blocksize = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetBlocksizeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsBaseSink a) => O.OverloadedMethod BaseSinkSetBlocksizeMethodInfo a signature where
overloadedMethod = baseSinkSetBlocksize
instance O.OverloadedMethodInfo BaseSinkSetBlocksizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkSetBlocksize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> Bool -> m ()
baseSinkSetDropOutOfSegment a
sink Bool
dropOutOfSegment = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetDropOutOfSegmentMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseSink a) => O.OverloadedMethod BaseSinkSetDropOutOfSegmentMethodInfo a signature where
overloadedMethod = baseSinkSetDropOutOfSegment
instance O.OverloadedMethodInfo BaseSinkSetDropOutOfSegmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkSetDropOutOfSegment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> Bool -> m ()
baseSinkSetLastSampleEnabled a
sink Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetLastSampleEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseSink a) => O.OverloadedMethod BaseSinkSetLastSampleEnabledMethodInfo a signature where
overloadedMethod = baseSinkSetLastSampleEnabled
instance O.OverloadedMethodInfo BaseSinkSetLastSampleEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkSetLastSampleEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> Word64 -> m ()
baseSinkSetMaxBitrate a
sink Word64
maxBitrate = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetMaxBitrateMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, IsBaseSink a) => O.OverloadedMethod BaseSinkSetMaxBitrateMethodInfo a signature where
overloadedMethod = baseSinkSetMaxBitrate
instance O.OverloadedMethodInfo BaseSinkSetMaxBitrateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkSetMaxBitrate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> Int64 -> m ()
baseSinkSetMaxLateness a
sink Int64
maxLateness = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetMaxLatenessMethodInfo
instance (signature ~ (Int64 -> m ()), MonadIO m, IsBaseSink a) => O.OverloadedMethod BaseSinkSetMaxLatenessMethodInfo a signature where
overloadedMethod = baseSinkSetMaxLateness
instance O.OverloadedMethodInfo BaseSinkSetMaxLatenessMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkSetMaxLateness",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> Word64 -> m ()
baseSinkSetProcessingDeadline a
sink Word64
processingDeadline = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetProcessingDeadlineMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, IsBaseSink a) => O.OverloadedMethod BaseSinkSetProcessingDeadlineMethodInfo a signature where
overloadedMethod = baseSinkSetProcessingDeadline
instance O.OverloadedMethodInfo BaseSinkSetProcessingDeadlineMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkSetProcessingDeadline",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> Bool -> m ()
baseSinkSetQosEnabled a
sink Bool
enabled = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetQosEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseSink a) => O.OverloadedMethod BaseSinkSetQosEnabledMethodInfo a signature where
overloadedMethod = baseSinkSetQosEnabled
instance O.OverloadedMethodInfo BaseSinkSetQosEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkSetQosEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> Word64 -> m ()
baseSinkSetRenderDelay a
sink Word64
delay = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetRenderDelayMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, IsBaseSink a) => O.OverloadedMethod BaseSinkSetRenderDelayMethodInfo a signature where
overloadedMethod = baseSinkSetRenderDelay
instance O.OverloadedMethodInfo BaseSinkSetRenderDelayMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkSetRenderDelay",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> Bool -> m ()
baseSinkSetSync a
sink Bool
sync = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetSyncMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseSink a) => O.OverloadedMethod BaseSinkSetSyncMethodInfo a signature where
overloadedMethod = baseSinkSetSync
instance O.OverloadedMethodInfo BaseSinkSetSyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkSetSync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> Word64 -> m ()
baseSinkSetThrottleTime a
sink Word64
throttle = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetThrottleTimeMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, IsBaseSink a) => O.OverloadedMethod BaseSinkSetThrottleTimeMethodInfo a signature where
overloadedMethod = baseSinkSetThrottleTime
instance O.OverloadedMethodInfo BaseSinkSetThrottleTimeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkSetThrottleTime",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> Int64 -> m ()
baseSinkSetTsOffset a
sink Int64
offset = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseSinkSetTsOffsetMethodInfo
instance (signature ~ (Int64 -> m ()), MonadIO m, IsBaseSink a) => O.OverloadedMethod BaseSinkSetTsOffsetMethodInfo a signature where
overloadedMethod = baseSinkSetTsOffset
instance O.OverloadedMethodInfo BaseSinkSetTsOffsetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkSetTsOffset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> Word64 -> m (FlowReturn, Int64)
baseSinkWait a
sink Word64
time = IO (FlowReturn, Int64) -> m (FlowReturn, Int64)
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseSinkWaitMethodInfo a signature where
overloadedMethod = baseSinkWait
instance O.OverloadedMethodInfo BaseSinkWaitMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkWait",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> Word64 -> m (ClockReturn, Int64)
baseSinkWaitClock a
sink Word64
time = IO (ClockReturn, Int64) -> m (ClockReturn, Int64)
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseSinkWaitClockMethodInfo a signature where
overloadedMethod = baseSinkWaitClock
instance O.OverloadedMethodInfo BaseSinkWaitClockMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkWaitClock",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseSink a) =>
a -> m FlowReturn
baseSinkWaitPreroll a
sink = IO FlowReturn -> m FlowReturn
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseSinkWaitPrerollMethodInfo a signature where
overloadedMethod = baseSinkWaitPreroll
instance O.OverloadedMethodInfo BaseSinkWaitPrerollMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseSink.baseSinkWaitPreroll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.26/docs/GI-GstBase-Objects-BaseSink.html#v:baseSinkWaitPreroll"
})
#endif