{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GstAudio.Objects.AudioBaseSink
(
AudioBaseSink(..) ,
IsAudioBaseSink ,
toAudioBaseSink ,
noAudioBaseSink ,
#if defined(ENABLE_OVERLOADING)
ResolveAudioBaseSinkMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkCreateRingbufferMethodInfo ,
#endif
audioBaseSinkCreateRingbuffer ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkGetAlignmentThresholdMethodInfo,
#endif
audioBaseSinkGetAlignmentThreshold ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkGetDiscontWaitMethodInfo ,
#endif
audioBaseSinkGetDiscontWait ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkGetDriftToleranceMethodInfo,
#endif
audioBaseSinkGetDriftTolerance ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkGetProvideClockMethodInfo ,
#endif
audioBaseSinkGetProvideClock ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkGetSlaveMethodMethodInfo ,
#endif
audioBaseSinkGetSlaveMethod ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkReportDeviceFailureMethodInfo,
#endif
audioBaseSinkReportDeviceFailure ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkSetAlignmentThresholdMethodInfo,
#endif
audioBaseSinkSetAlignmentThreshold ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkSetCustomSlavingCallbackMethodInfo,
#endif
audioBaseSinkSetCustomSlavingCallback ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkSetDiscontWaitMethodInfo ,
#endif
audioBaseSinkSetDiscontWait ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkSetDriftToleranceMethodInfo,
#endif
audioBaseSinkSetDriftTolerance ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkSetProvideClockMethodInfo ,
#endif
audioBaseSinkSetProvideClock ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkSetSlaveMethodMethodInfo ,
#endif
audioBaseSinkSetSlaveMethod ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkAlignmentThresholdPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
audioBaseSinkAlignmentThreshold ,
#endif
constructAudioBaseSinkAlignmentThreshold,
getAudioBaseSinkAlignmentThreshold ,
setAudioBaseSinkAlignmentThreshold ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkBufferTimePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
audioBaseSinkBufferTime ,
#endif
constructAudioBaseSinkBufferTime ,
getAudioBaseSinkBufferTime ,
setAudioBaseSinkBufferTime ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkCanActivatePullPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
audioBaseSinkCanActivatePull ,
#endif
constructAudioBaseSinkCanActivatePull ,
getAudioBaseSinkCanActivatePull ,
setAudioBaseSinkCanActivatePull ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkDiscontWaitPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
audioBaseSinkDiscontWait ,
#endif
constructAudioBaseSinkDiscontWait ,
getAudioBaseSinkDiscontWait ,
setAudioBaseSinkDiscontWait ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkDriftTolerancePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
audioBaseSinkDriftTolerance ,
#endif
constructAudioBaseSinkDriftTolerance ,
getAudioBaseSinkDriftTolerance ,
setAudioBaseSinkDriftTolerance ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkLatencyTimePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
audioBaseSinkLatencyTime ,
#endif
constructAudioBaseSinkLatencyTime ,
getAudioBaseSinkLatencyTime ,
setAudioBaseSinkLatencyTime ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkProvideClockPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
audioBaseSinkProvideClock ,
#endif
constructAudioBaseSinkProvideClock ,
getAudioBaseSinkProvideClock ,
setAudioBaseSinkProvideClock ,
#if defined(ENABLE_OVERLOADING)
AudioBaseSinkSlaveMethodPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
audioBaseSinkSlaveMethod ,
#endif
constructAudioBaseSinkSlaveMethod ,
getAudioBaseSinkSlaveMethod ,
setAudioBaseSinkSlaveMethod ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gst.Objects.Element as Gst.Element
import qualified GI.Gst.Objects.Object as Gst.Object
import qualified GI.GstAudio.Callbacks as GstAudio.Callbacks
import {-# SOURCE #-} qualified GI.GstAudio.Enums as GstAudio.Enums
import {-# SOURCE #-} qualified GI.GstAudio.Objects.AudioRingBuffer as GstAudio.AudioRingBuffer
import qualified GI.GstBase.Objects.BaseSink as GstBase.BaseSink
newtype AudioBaseSink = AudioBaseSink (ManagedPtr AudioBaseSink)
deriving (AudioBaseSink -> AudioBaseSink -> Bool
(AudioBaseSink -> AudioBaseSink -> Bool)
-> (AudioBaseSink -> AudioBaseSink -> Bool) -> Eq AudioBaseSink
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AudioBaseSink -> AudioBaseSink -> Bool
$c/= :: AudioBaseSink -> AudioBaseSink -> Bool
== :: AudioBaseSink -> AudioBaseSink -> Bool
$c== :: AudioBaseSink -> AudioBaseSink -> Bool
Eq)
foreign import ccall "gst_audio_base_sink_get_type"
c_gst_audio_base_sink_get_type :: IO GType
instance GObject AudioBaseSink where
gobjectType :: IO GType
gobjectType = IO GType
c_gst_audio_base_sink_get_type
instance B.GValue.IsGValue AudioBaseSink where
toGValue :: AudioBaseSink -> IO GValue
toGValue o :: AudioBaseSink
o = do
GType
gtype <- IO GType
c_gst_audio_base_sink_get_type
AudioBaseSink -> (Ptr AudioBaseSink -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr AudioBaseSink
o (GType
-> (GValue -> Ptr AudioBaseSink -> IO ())
-> Ptr AudioBaseSink
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr AudioBaseSink -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO AudioBaseSink
fromGValue gv :: GValue
gv = do
Ptr AudioBaseSink
ptr <- GValue -> IO (Ptr AudioBaseSink)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr AudioBaseSink)
(ManagedPtr AudioBaseSink -> AudioBaseSink)
-> Ptr AudioBaseSink -> IO AudioBaseSink
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr AudioBaseSink -> AudioBaseSink
AudioBaseSink Ptr AudioBaseSink
ptr
class (GObject o, O.IsDescendantOf AudioBaseSink o) => IsAudioBaseSink o
instance (GObject o, O.IsDescendantOf AudioBaseSink o) => IsAudioBaseSink o
instance O.HasParentTypes AudioBaseSink
type instance O.ParentTypes AudioBaseSink = '[GstBase.BaseSink.BaseSink, Gst.Element.Element, Gst.Object.Object, GObject.Object.Object]
toAudioBaseSink :: (MonadIO m, IsAudioBaseSink o) => o -> m AudioBaseSink
toAudioBaseSink :: o -> m AudioBaseSink
toAudioBaseSink = IO AudioBaseSink -> m AudioBaseSink
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AudioBaseSink -> m AudioBaseSink)
-> (o -> IO AudioBaseSink) -> o -> m AudioBaseSink
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr AudioBaseSink -> AudioBaseSink)
-> o -> IO AudioBaseSink
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr AudioBaseSink -> AudioBaseSink
AudioBaseSink
noAudioBaseSink :: Maybe AudioBaseSink
noAudioBaseSink :: Maybe AudioBaseSink
noAudioBaseSink = Maybe AudioBaseSink
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveAudioBaseSinkMethod (t :: Symbol) (o :: *) :: * where
ResolveAudioBaseSinkMethod "abortState" o = Gst.Element.ElementAbortStateMethodInfo
ResolveAudioBaseSinkMethod "addControlBinding" o = Gst.Object.ObjectAddControlBindingMethodInfo
ResolveAudioBaseSinkMethod "addPad" o = Gst.Element.ElementAddPadMethodInfo
ResolveAudioBaseSinkMethod "addPropertyDeepNotifyWatch" o = Gst.Element.ElementAddPropertyDeepNotifyWatchMethodInfo
ResolveAudioBaseSinkMethod "addPropertyNotifyWatch" o = Gst.Element.ElementAddPropertyNotifyWatchMethodInfo
ResolveAudioBaseSinkMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAudioBaseSinkMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAudioBaseSinkMethod "callAsync" o = Gst.Element.ElementCallAsyncMethodInfo
ResolveAudioBaseSinkMethod "changeState" o = Gst.Element.ElementChangeStateMethodInfo
ResolveAudioBaseSinkMethod "continueState" o = Gst.Element.ElementContinueStateMethodInfo
ResolveAudioBaseSinkMethod "createAllPads" o = Gst.Element.ElementCreateAllPadsMethodInfo
ResolveAudioBaseSinkMethod "createRingbuffer" o = AudioBaseSinkCreateRingbufferMethodInfo
ResolveAudioBaseSinkMethod "defaultError" o = Gst.Object.ObjectDefaultErrorMethodInfo
ResolveAudioBaseSinkMethod "doPreroll" o = GstBase.BaseSink.BaseSinkDoPrerollMethodInfo
ResolveAudioBaseSinkMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAudioBaseSinkMethod "foreachPad" o = Gst.Element.ElementForeachPadMethodInfo
ResolveAudioBaseSinkMethod "foreachSinkPad" o = Gst.Element.ElementForeachSinkPadMethodInfo
ResolveAudioBaseSinkMethod "foreachSrcPad" o = Gst.Element.ElementForeachSrcPadMethodInfo
ResolveAudioBaseSinkMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAudioBaseSinkMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveAudioBaseSinkMethod "hasActiveControlBindings" o = Gst.Object.ObjectHasActiveControlBindingsMethodInfo
ResolveAudioBaseSinkMethod "hasAncestor" o = Gst.Object.ObjectHasAncestorMethodInfo
ResolveAudioBaseSinkMethod "hasAsAncestor" o = Gst.Object.ObjectHasAsAncestorMethodInfo
ResolveAudioBaseSinkMethod "hasAsParent" o = Gst.Object.ObjectHasAsParentMethodInfo
ResolveAudioBaseSinkMethod "isAsyncEnabled" o = GstBase.BaseSink.BaseSinkIsAsyncEnabledMethodInfo
ResolveAudioBaseSinkMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAudioBaseSinkMethod "isLastSampleEnabled" o = GstBase.BaseSink.BaseSinkIsLastSampleEnabledMethodInfo
ResolveAudioBaseSinkMethod "isLockedState" o = Gst.Element.ElementIsLockedStateMethodInfo
ResolveAudioBaseSinkMethod "isQosEnabled" o = GstBase.BaseSink.BaseSinkIsQosEnabledMethodInfo
ResolveAudioBaseSinkMethod "iteratePads" o = Gst.Element.ElementIteratePadsMethodInfo
ResolveAudioBaseSinkMethod "iterateSinkPads" o = Gst.Element.ElementIterateSinkPadsMethodInfo
ResolveAudioBaseSinkMethod "iterateSrcPads" o = Gst.Element.ElementIterateSrcPadsMethodInfo
ResolveAudioBaseSinkMethod "link" o = Gst.Element.ElementLinkMethodInfo
ResolveAudioBaseSinkMethod "linkFiltered" o = Gst.Element.ElementLinkFilteredMethodInfo
ResolveAudioBaseSinkMethod "linkPads" o = Gst.Element.ElementLinkPadsMethodInfo
ResolveAudioBaseSinkMethod "linkPadsFiltered" o = Gst.Element.ElementLinkPadsFilteredMethodInfo
ResolveAudioBaseSinkMethod "linkPadsFull" o = Gst.Element.ElementLinkPadsFullMethodInfo
ResolveAudioBaseSinkMethod "lostState" o = Gst.Element.ElementLostStateMethodInfo
ResolveAudioBaseSinkMethod "messageFull" o = Gst.Element.ElementMessageFullMethodInfo
ResolveAudioBaseSinkMethod "messageFullWithDetails" o = Gst.Element.ElementMessageFullWithDetailsMethodInfo
ResolveAudioBaseSinkMethod "noMorePads" o = Gst.Element.ElementNoMorePadsMethodInfo
ResolveAudioBaseSinkMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAudioBaseSinkMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAudioBaseSinkMethod "postMessage" o = Gst.Element.ElementPostMessageMethodInfo
ResolveAudioBaseSinkMethod "provideClock" o = Gst.Element.ElementProvideClockMethodInfo
ResolveAudioBaseSinkMethod "query" o = Gst.Element.ElementQueryMethodInfo
ResolveAudioBaseSinkMethod "queryConvert" o = Gst.Element.ElementQueryConvertMethodInfo
ResolveAudioBaseSinkMethod "queryDuration" o = Gst.Element.ElementQueryDurationMethodInfo
ResolveAudioBaseSinkMethod "queryLatency" o = GstBase.BaseSink.BaseSinkQueryLatencyMethodInfo
ResolveAudioBaseSinkMethod "queryPosition" o = Gst.Element.ElementQueryPositionMethodInfo
ResolveAudioBaseSinkMethod "ref" o = Gst.Object.ObjectRefMethodInfo
ResolveAudioBaseSinkMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAudioBaseSinkMethod "releaseRequestPad" o = Gst.Element.ElementReleaseRequestPadMethodInfo
ResolveAudioBaseSinkMethod "removeControlBinding" o = Gst.Object.ObjectRemoveControlBindingMethodInfo
ResolveAudioBaseSinkMethod "removePad" o = Gst.Element.ElementRemovePadMethodInfo
ResolveAudioBaseSinkMethod "removePropertyNotifyWatch" o = Gst.Element.ElementRemovePropertyNotifyWatchMethodInfo
ResolveAudioBaseSinkMethod "reportDeviceFailure" o = AudioBaseSinkReportDeviceFailureMethodInfo
ResolveAudioBaseSinkMethod "requestPad" o = Gst.Element.ElementRequestPadMethodInfo
ResolveAudioBaseSinkMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAudioBaseSinkMethod "seek" o = Gst.Element.ElementSeekMethodInfo
ResolveAudioBaseSinkMethod "seekSimple" o = Gst.Element.ElementSeekSimpleMethodInfo
ResolveAudioBaseSinkMethod "sendEvent" o = Gst.Element.ElementSendEventMethodInfo
ResolveAudioBaseSinkMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAudioBaseSinkMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAudioBaseSinkMethod "suggestNextSync" o = Gst.Object.ObjectSuggestNextSyncMethodInfo
ResolveAudioBaseSinkMethod "syncStateWithParent" o = Gst.Element.ElementSyncStateWithParentMethodInfo
ResolveAudioBaseSinkMethod "syncValues" o = Gst.Object.ObjectSyncValuesMethodInfo
ResolveAudioBaseSinkMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAudioBaseSinkMethod "unlink" o = Gst.Element.ElementUnlinkMethodInfo
ResolveAudioBaseSinkMethod "unlinkPads" o = Gst.Element.ElementUnlinkPadsMethodInfo
ResolveAudioBaseSinkMethod "unparent" o = Gst.Object.ObjectUnparentMethodInfo
ResolveAudioBaseSinkMethod "unref" o = Gst.Object.ObjectUnrefMethodInfo
ResolveAudioBaseSinkMethod "wait" o = GstBase.BaseSink.BaseSinkWaitMethodInfo
ResolveAudioBaseSinkMethod "waitClock" o = GstBase.BaseSink.BaseSinkWaitClockMethodInfo
ResolveAudioBaseSinkMethod "waitPreroll" o = GstBase.BaseSink.BaseSinkWaitPrerollMethodInfo
ResolveAudioBaseSinkMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAudioBaseSinkMethod "getAlignmentThreshold" o = AudioBaseSinkGetAlignmentThresholdMethodInfo
ResolveAudioBaseSinkMethod "getBaseTime" o = Gst.Element.ElementGetBaseTimeMethodInfo
ResolveAudioBaseSinkMethod "getBlocksize" o = GstBase.BaseSink.BaseSinkGetBlocksizeMethodInfo
ResolveAudioBaseSinkMethod "getBus" o = Gst.Element.ElementGetBusMethodInfo
ResolveAudioBaseSinkMethod "getClock" o = Gst.Element.ElementGetClockMethodInfo
ResolveAudioBaseSinkMethod "getCompatiblePad" o = Gst.Element.ElementGetCompatiblePadMethodInfo
ResolveAudioBaseSinkMethod "getCompatiblePadTemplate" o = Gst.Element.ElementGetCompatiblePadTemplateMethodInfo
ResolveAudioBaseSinkMethod "getContext" o = Gst.Element.ElementGetContextMethodInfo
ResolveAudioBaseSinkMethod "getContextUnlocked" o = Gst.Element.ElementGetContextUnlockedMethodInfo
ResolveAudioBaseSinkMethod "getContexts" o = Gst.Element.ElementGetContextsMethodInfo
ResolveAudioBaseSinkMethod "getControlBinding" o = Gst.Object.ObjectGetControlBindingMethodInfo
ResolveAudioBaseSinkMethod "getControlRate" o = Gst.Object.ObjectGetControlRateMethodInfo
ResolveAudioBaseSinkMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAudioBaseSinkMethod "getDiscontWait" o = AudioBaseSinkGetDiscontWaitMethodInfo
ResolveAudioBaseSinkMethod "getDriftTolerance" o = AudioBaseSinkGetDriftToleranceMethodInfo
ResolveAudioBaseSinkMethod "getDropOutOfSegment" o = GstBase.BaseSink.BaseSinkGetDropOutOfSegmentMethodInfo
ResolveAudioBaseSinkMethod "getFactory" o = Gst.Element.ElementGetFactoryMethodInfo
ResolveAudioBaseSinkMethod "getGValueArray" o = Gst.Object.ObjectGetGValueArrayMethodInfo
ResolveAudioBaseSinkMethod "getLastSample" o = GstBase.BaseSink.BaseSinkGetLastSampleMethodInfo
ResolveAudioBaseSinkMethod "getLatency" o = GstBase.BaseSink.BaseSinkGetLatencyMethodInfo
ResolveAudioBaseSinkMethod "getMaxBitrate" o = GstBase.BaseSink.BaseSinkGetMaxBitrateMethodInfo
ResolveAudioBaseSinkMethod "getMaxLateness" o = GstBase.BaseSink.BaseSinkGetMaxLatenessMethodInfo
ResolveAudioBaseSinkMethod "getMetadata" o = Gst.Element.ElementGetMetadataMethodInfo
ResolveAudioBaseSinkMethod "getName" o = Gst.Object.ObjectGetNameMethodInfo
ResolveAudioBaseSinkMethod "getPadTemplate" o = Gst.Element.ElementGetPadTemplateMethodInfo
ResolveAudioBaseSinkMethod "getPadTemplateList" o = Gst.Element.ElementGetPadTemplateListMethodInfo
ResolveAudioBaseSinkMethod "getParent" o = Gst.Object.ObjectGetParentMethodInfo
ResolveAudioBaseSinkMethod "getPathString" o = Gst.Object.ObjectGetPathStringMethodInfo
ResolveAudioBaseSinkMethod "getProcessingDeadline" o = GstBase.BaseSink.BaseSinkGetProcessingDeadlineMethodInfo
ResolveAudioBaseSinkMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAudioBaseSinkMethod "getProvideClock" o = AudioBaseSinkGetProvideClockMethodInfo
ResolveAudioBaseSinkMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAudioBaseSinkMethod "getRenderDelay" o = GstBase.BaseSink.BaseSinkGetRenderDelayMethodInfo
ResolveAudioBaseSinkMethod "getRequestPad" o = Gst.Element.ElementGetRequestPadMethodInfo
ResolveAudioBaseSinkMethod "getSlaveMethod" o = AudioBaseSinkGetSlaveMethodMethodInfo
ResolveAudioBaseSinkMethod "getStartTime" o = Gst.Element.ElementGetStartTimeMethodInfo
ResolveAudioBaseSinkMethod "getState" o = Gst.Element.ElementGetStateMethodInfo
ResolveAudioBaseSinkMethod "getStaticPad" o = Gst.Element.ElementGetStaticPadMethodInfo
ResolveAudioBaseSinkMethod "getSync" o = GstBase.BaseSink.BaseSinkGetSyncMethodInfo
ResolveAudioBaseSinkMethod "getThrottleTime" o = GstBase.BaseSink.BaseSinkGetThrottleTimeMethodInfo
ResolveAudioBaseSinkMethod "getTsOffset" o = GstBase.BaseSink.BaseSinkGetTsOffsetMethodInfo
ResolveAudioBaseSinkMethod "getValue" o = Gst.Object.ObjectGetValueMethodInfo
ResolveAudioBaseSinkMethod "setAlignmentThreshold" o = AudioBaseSinkSetAlignmentThresholdMethodInfo
ResolveAudioBaseSinkMethod "setAsyncEnabled" o = GstBase.BaseSink.BaseSinkSetAsyncEnabledMethodInfo
ResolveAudioBaseSinkMethod "setBaseTime" o = Gst.Element.ElementSetBaseTimeMethodInfo
ResolveAudioBaseSinkMethod "setBlocksize" o = GstBase.BaseSink.BaseSinkSetBlocksizeMethodInfo
ResolveAudioBaseSinkMethod "setBus" o = Gst.Element.ElementSetBusMethodInfo
ResolveAudioBaseSinkMethod "setClock" o = Gst.Element.ElementSetClockMethodInfo
ResolveAudioBaseSinkMethod "setContext" o = Gst.Element.ElementSetContextMethodInfo
ResolveAudioBaseSinkMethod "setControlBindingDisabled" o = Gst.Object.ObjectSetControlBindingDisabledMethodInfo
ResolveAudioBaseSinkMethod "setControlBindingsDisabled" o = Gst.Object.ObjectSetControlBindingsDisabledMethodInfo
ResolveAudioBaseSinkMethod "setControlRate" o = Gst.Object.ObjectSetControlRateMethodInfo
ResolveAudioBaseSinkMethod "setCustomSlavingCallback" o = AudioBaseSinkSetCustomSlavingCallbackMethodInfo
ResolveAudioBaseSinkMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAudioBaseSinkMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveAudioBaseSinkMethod "setDiscontWait" o = AudioBaseSinkSetDiscontWaitMethodInfo
ResolveAudioBaseSinkMethod "setDriftTolerance" o = AudioBaseSinkSetDriftToleranceMethodInfo
ResolveAudioBaseSinkMethod "setDropOutOfSegment" o = GstBase.BaseSink.BaseSinkSetDropOutOfSegmentMethodInfo
ResolveAudioBaseSinkMethod "setLastSampleEnabled" o = GstBase.BaseSink.BaseSinkSetLastSampleEnabledMethodInfo
ResolveAudioBaseSinkMethod "setLockedState" o = Gst.Element.ElementSetLockedStateMethodInfo
ResolveAudioBaseSinkMethod "setMaxBitrate" o = GstBase.BaseSink.BaseSinkSetMaxBitrateMethodInfo
ResolveAudioBaseSinkMethod "setMaxLateness" o = GstBase.BaseSink.BaseSinkSetMaxLatenessMethodInfo
ResolveAudioBaseSinkMethod "setName" o = Gst.Object.ObjectSetNameMethodInfo
ResolveAudioBaseSinkMethod "setParent" o = Gst.Object.ObjectSetParentMethodInfo
ResolveAudioBaseSinkMethod "setProcessingDeadline" o = GstBase.BaseSink.BaseSinkSetProcessingDeadlineMethodInfo
ResolveAudioBaseSinkMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAudioBaseSinkMethod "setProvideClock" o = AudioBaseSinkSetProvideClockMethodInfo
ResolveAudioBaseSinkMethod "setQosEnabled" o = GstBase.BaseSink.BaseSinkSetQosEnabledMethodInfo
ResolveAudioBaseSinkMethod "setRenderDelay" o = GstBase.BaseSink.BaseSinkSetRenderDelayMethodInfo
ResolveAudioBaseSinkMethod "setSlaveMethod" o = AudioBaseSinkSetSlaveMethodMethodInfo
ResolveAudioBaseSinkMethod "setStartTime" o = Gst.Element.ElementSetStartTimeMethodInfo
ResolveAudioBaseSinkMethod "setState" o = Gst.Element.ElementSetStateMethodInfo
ResolveAudioBaseSinkMethod "setSync" o = GstBase.BaseSink.BaseSinkSetSyncMethodInfo
ResolveAudioBaseSinkMethod "setThrottleTime" o = GstBase.BaseSink.BaseSinkSetThrottleTimeMethodInfo
ResolveAudioBaseSinkMethod "setTsOffset" o = GstBase.BaseSink.BaseSinkSetTsOffsetMethodInfo
ResolveAudioBaseSinkMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAudioBaseSinkMethod t AudioBaseSink, O.MethodInfo info AudioBaseSink p) => OL.IsLabel t (AudioBaseSink -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getAudioBaseSinkAlignmentThreshold :: (MonadIO m, IsAudioBaseSink o) => o -> m Word64
getAudioBaseSinkAlignmentThreshold :: o -> m Word64
getAudioBaseSinkAlignmentThreshold obj :: o
obj = IO Word64 -> m Word64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word64
forall a. GObject a => a -> String -> IO Word64
B.Properties.getObjectPropertyUInt64 o
obj "alignment-threshold"
setAudioBaseSinkAlignmentThreshold :: (MonadIO m, IsAudioBaseSink o) => o -> Word64 -> m ()
setAudioBaseSinkAlignmentThreshold :: o -> Word64 -> m ()
setAudioBaseSinkAlignmentThreshold obj :: o
obj val :: Word64
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word64 -> IO ()
forall a. GObject a => a -> String -> Word64 -> IO ()
B.Properties.setObjectPropertyUInt64 o
obj "alignment-threshold" Word64
val
constructAudioBaseSinkAlignmentThreshold :: (IsAudioBaseSink o) => Word64 -> IO (GValueConstruct o)
constructAudioBaseSinkAlignmentThreshold :: Word64 -> IO (GValueConstruct o)
constructAudioBaseSinkAlignmentThreshold val :: Word64
val = String -> Word64 -> IO (GValueConstruct o)
forall o. String -> Word64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt64 "alignment-threshold" Word64
val
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkAlignmentThresholdPropertyInfo
instance AttrInfo AudioBaseSinkAlignmentThresholdPropertyInfo where
type AttrAllowedOps AudioBaseSinkAlignmentThresholdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AudioBaseSinkAlignmentThresholdPropertyInfo = IsAudioBaseSink
type AttrSetTypeConstraint AudioBaseSinkAlignmentThresholdPropertyInfo = (~) Word64
type AttrTransferTypeConstraint AudioBaseSinkAlignmentThresholdPropertyInfo = (~) Word64
type AttrTransferType AudioBaseSinkAlignmentThresholdPropertyInfo = Word64
type AttrGetType AudioBaseSinkAlignmentThresholdPropertyInfo = Word64
type AttrLabel AudioBaseSinkAlignmentThresholdPropertyInfo = "alignment-threshold"
type AttrOrigin AudioBaseSinkAlignmentThresholdPropertyInfo = AudioBaseSink
attrGet = getAudioBaseSinkAlignmentThreshold
attrSet = setAudioBaseSinkAlignmentThreshold
attrTransfer _ v = do
return v
attrConstruct = constructAudioBaseSinkAlignmentThreshold
attrClear = undefined
#endif
getAudioBaseSinkBufferTime :: (MonadIO m, IsAudioBaseSink o) => o -> m Int64
getAudioBaseSinkBufferTime :: o -> m Int64
getAudioBaseSinkBufferTime obj :: o
obj = IO Int64 -> m Int64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int64 -> m Int64) -> IO Int64 -> m Int64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int64
forall a. GObject a => a -> String -> IO Int64
B.Properties.getObjectPropertyInt64 o
obj "buffer-time"
setAudioBaseSinkBufferTime :: (MonadIO m, IsAudioBaseSink o) => o -> Int64 -> m ()
setAudioBaseSinkBufferTime :: o -> Int64 -> m ()
setAudioBaseSinkBufferTime obj :: o
obj val :: Int64
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int64 -> IO ()
forall a. GObject a => a -> String -> Int64 -> IO ()
B.Properties.setObjectPropertyInt64 o
obj "buffer-time" Int64
val
constructAudioBaseSinkBufferTime :: (IsAudioBaseSink o) => Int64 -> IO (GValueConstruct o)
constructAudioBaseSinkBufferTime :: Int64 -> IO (GValueConstruct o)
constructAudioBaseSinkBufferTime val :: Int64
val = String -> Int64 -> IO (GValueConstruct o)
forall o. String -> Int64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt64 "buffer-time" Int64
val
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkBufferTimePropertyInfo
instance AttrInfo AudioBaseSinkBufferTimePropertyInfo where
type AttrAllowedOps AudioBaseSinkBufferTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AudioBaseSinkBufferTimePropertyInfo = IsAudioBaseSink
type AttrSetTypeConstraint AudioBaseSinkBufferTimePropertyInfo = (~) Int64
type AttrTransferTypeConstraint AudioBaseSinkBufferTimePropertyInfo = (~) Int64
type AttrTransferType AudioBaseSinkBufferTimePropertyInfo = Int64
type AttrGetType AudioBaseSinkBufferTimePropertyInfo = Int64
type AttrLabel AudioBaseSinkBufferTimePropertyInfo = "buffer-time"
type AttrOrigin AudioBaseSinkBufferTimePropertyInfo = AudioBaseSink
attrGet = getAudioBaseSinkBufferTime
attrSet = setAudioBaseSinkBufferTime
attrTransfer _ v = do
return v
attrConstruct = constructAudioBaseSinkBufferTime
attrClear = undefined
#endif
getAudioBaseSinkCanActivatePull :: (MonadIO m, IsAudioBaseSink o) => o -> m Bool
getAudioBaseSinkCanActivatePull :: o -> m Bool
getAudioBaseSinkCanActivatePull obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "can-activate-pull"
setAudioBaseSinkCanActivatePull :: (MonadIO m, IsAudioBaseSink o) => o -> Bool -> m ()
setAudioBaseSinkCanActivatePull :: o -> Bool -> m ()
setAudioBaseSinkCanActivatePull obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "can-activate-pull" Bool
val
constructAudioBaseSinkCanActivatePull :: (IsAudioBaseSink o) => Bool -> IO (GValueConstruct o)
constructAudioBaseSinkCanActivatePull :: Bool -> IO (GValueConstruct o)
constructAudioBaseSinkCanActivatePull val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "can-activate-pull" Bool
val
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkCanActivatePullPropertyInfo
instance AttrInfo AudioBaseSinkCanActivatePullPropertyInfo where
type AttrAllowedOps AudioBaseSinkCanActivatePullPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AudioBaseSinkCanActivatePullPropertyInfo = IsAudioBaseSink
type AttrSetTypeConstraint AudioBaseSinkCanActivatePullPropertyInfo = (~) Bool
type AttrTransferTypeConstraint AudioBaseSinkCanActivatePullPropertyInfo = (~) Bool
type AttrTransferType AudioBaseSinkCanActivatePullPropertyInfo = Bool
type AttrGetType AudioBaseSinkCanActivatePullPropertyInfo = Bool
type AttrLabel AudioBaseSinkCanActivatePullPropertyInfo = "can-activate-pull"
type AttrOrigin AudioBaseSinkCanActivatePullPropertyInfo = AudioBaseSink
attrGet = getAudioBaseSinkCanActivatePull
attrSet = setAudioBaseSinkCanActivatePull
attrTransfer _ v = do
return v
attrConstruct = constructAudioBaseSinkCanActivatePull
attrClear = undefined
#endif
getAudioBaseSinkDiscontWait :: (MonadIO m, IsAudioBaseSink o) => o -> m Word64
getAudioBaseSinkDiscontWait :: o -> m Word64
getAudioBaseSinkDiscontWait obj :: o
obj = IO Word64 -> m Word64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word64
forall a. GObject a => a -> String -> IO Word64
B.Properties.getObjectPropertyUInt64 o
obj "discont-wait"
setAudioBaseSinkDiscontWait :: (MonadIO m, IsAudioBaseSink o) => o -> Word64 -> m ()
setAudioBaseSinkDiscontWait :: o -> Word64 -> m ()
setAudioBaseSinkDiscontWait obj :: o
obj val :: Word64
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word64 -> IO ()
forall a. GObject a => a -> String -> Word64 -> IO ()
B.Properties.setObjectPropertyUInt64 o
obj "discont-wait" Word64
val
constructAudioBaseSinkDiscontWait :: (IsAudioBaseSink o) => Word64 -> IO (GValueConstruct o)
constructAudioBaseSinkDiscontWait :: Word64 -> IO (GValueConstruct o)
constructAudioBaseSinkDiscontWait val :: Word64
val = String -> Word64 -> IO (GValueConstruct o)
forall o. String -> Word64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt64 "discont-wait" Word64
val
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkDiscontWaitPropertyInfo
instance AttrInfo AudioBaseSinkDiscontWaitPropertyInfo where
type AttrAllowedOps AudioBaseSinkDiscontWaitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AudioBaseSinkDiscontWaitPropertyInfo = IsAudioBaseSink
type AttrSetTypeConstraint AudioBaseSinkDiscontWaitPropertyInfo = (~) Word64
type AttrTransferTypeConstraint AudioBaseSinkDiscontWaitPropertyInfo = (~) Word64
type AttrTransferType AudioBaseSinkDiscontWaitPropertyInfo = Word64
type AttrGetType AudioBaseSinkDiscontWaitPropertyInfo = Word64
type AttrLabel AudioBaseSinkDiscontWaitPropertyInfo = "discont-wait"
type AttrOrigin AudioBaseSinkDiscontWaitPropertyInfo = AudioBaseSink
attrGet = getAudioBaseSinkDiscontWait
attrSet = setAudioBaseSinkDiscontWait
attrTransfer _ v = do
return v
attrConstruct = constructAudioBaseSinkDiscontWait
attrClear = undefined
#endif
getAudioBaseSinkDriftTolerance :: (MonadIO m, IsAudioBaseSink o) => o -> m Int64
getAudioBaseSinkDriftTolerance :: o -> m Int64
getAudioBaseSinkDriftTolerance obj :: o
obj = IO Int64 -> m Int64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int64 -> m Int64) -> IO Int64 -> m Int64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int64
forall a. GObject a => a -> String -> IO Int64
B.Properties.getObjectPropertyInt64 o
obj "drift-tolerance"
setAudioBaseSinkDriftTolerance :: (MonadIO m, IsAudioBaseSink o) => o -> Int64 -> m ()
setAudioBaseSinkDriftTolerance :: o -> Int64 -> m ()
setAudioBaseSinkDriftTolerance obj :: o
obj val :: Int64
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int64 -> IO ()
forall a. GObject a => a -> String -> Int64 -> IO ()
B.Properties.setObjectPropertyInt64 o
obj "drift-tolerance" Int64
val
constructAudioBaseSinkDriftTolerance :: (IsAudioBaseSink o) => Int64 -> IO (GValueConstruct o)
constructAudioBaseSinkDriftTolerance :: Int64 -> IO (GValueConstruct o)
constructAudioBaseSinkDriftTolerance val :: Int64
val = String -> Int64 -> IO (GValueConstruct o)
forall o. String -> Int64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt64 "drift-tolerance" Int64
val
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkDriftTolerancePropertyInfo
instance AttrInfo AudioBaseSinkDriftTolerancePropertyInfo where
type AttrAllowedOps AudioBaseSinkDriftTolerancePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AudioBaseSinkDriftTolerancePropertyInfo = IsAudioBaseSink
type AttrSetTypeConstraint AudioBaseSinkDriftTolerancePropertyInfo = (~) Int64
type AttrTransferTypeConstraint AudioBaseSinkDriftTolerancePropertyInfo = (~) Int64
type AttrTransferType AudioBaseSinkDriftTolerancePropertyInfo = Int64
type AttrGetType AudioBaseSinkDriftTolerancePropertyInfo = Int64
type AttrLabel AudioBaseSinkDriftTolerancePropertyInfo = "drift-tolerance"
type AttrOrigin AudioBaseSinkDriftTolerancePropertyInfo = AudioBaseSink
attrGet = getAudioBaseSinkDriftTolerance
attrSet = setAudioBaseSinkDriftTolerance
attrTransfer _ v = do
return v
attrConstruct = constructAudioBaseSinkDriftTolerance
attrClear = undefined
#endif
getAudioBaseSinkLatencyTime :: (MonadIO m, IsAudioBaseSink o) => o -> m Int64
getAudioBaseSinkLatencyTime :: o -> m Int64
getAudioBaseSinkLatencyTime obj :: o
obj = IO Int64 -> m Int64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int64 -> m Int64) -> IO Int64 -> m Int64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int64
forall a. GObject a => a -> String -> IO Int64
B.Properties.getObjectPropertyInt64 o
obj "latency-time"
setAudioBaseSinkLatencyTime :: (MonadIO m, IsAudioBaseSink o) => o -> Int64 -> m ()
setAudioBaseSinkLatencyTime :: o -> Int64 -> m ()
setAudioBaseSinkLatencyTime obj :: o
obj val :: Int64
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int64 -> IO ()
forall a. GObject a => a -> String -> Int64 -> IO ()
B.Properties.setObjectPropertyInt64 o
obj "latency-time" Int64
val
constructAudioBaseSinkLatencyTime :: (IsAudioBaseSink o) => Int64 -> IO (GValueConstruct o)
constructAudioBaseSinkLatencyTime :: Int64 -> IO (GValueConstruct o)
constructAudioBaseSinkLatencyTime val :: Int64
val = String -> Int64 -> IO (GValueConstruct o)
forall o. String -> Int64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt64 "latency-time" Int64
val
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkLatencyTimePropertyInfo
instance AttrInfo AudioBaseSinkLatencyTimePropertyInfo where
type AttrAllowedOps AudioBaseSinkLatencyTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AudioBaseSinkLatencyTimePropertyInfo = IsAudioBaseSink
type AttrSetTypeConstraint AudioBaseSinkLatencyTimePropertyInfo = (~) Int64
type AttrTransferTypeConstraint AudioBaseSinkLatencyTimePropertyInfo = (~) Int64
type AttrTransferType AudioBaseSinkLatencyTimePropertyInfo = Int64
type AttrGetType AudioBaseSinkLatencyTimePropertyInfo = Int64
type AttrLabel AudioBaseSinkLatencyTimePropertyInfo = "latency-time"
type AttrOrigin AudioBaseSinkLatencyTimePropertyInfo = AudioBaseSink
attrGet = getAudioBaseSinkLatencyTime
attrSet = setAudioBaseSinkLatencyTime
attrTransfer _ v = do
return v
attrConstruct = constructAudioBaseSinkLatencyTime
attrClear = undefined
#endif
getAudioBaseSinkProvideClock :: (MonadIO m, IsAudioBaseSink o) => o -> m Bool
getAudioBaseSinkProvideClock :: o -> m Bool
getAudioBaseSinkProvideClock obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "provide-clock"
setAudioBaseSinkProvideClock :: (MonadIO m, IsAudioBaseSink o) => o -> Bool -> m ()
setAudioBaseSinkProvideClock :: o -> Bool -> m ()
setAudioBaseSinkProvideClock obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "provide-clock" Bool
val
constructAudioBaseSinkProvideClock :: (IsAudioBaseSink o) => Bool -> IO (GValueConstruct o)
constructAudioBaseSinkProvideClock :: Bool -> IO (GValueConstruct o)
constructAudioBaseSinkProvideClock val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "provide-clock" Bool
val
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkProvideClockPropertyInfo
instance AttrInfo AudioBaseSinkProvideClockPropertyInfo where
type AttrAllowedOps AudioBaseSinkProvideClockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AudioBaseSinkProvideClockPropertyInfo = IsAudioBaseSink
type AttrSetTypeConstraint AudioBaseSinkProvideClockPropertyInfo = (~) Bool
type AttrTransferTypeConstraint AudioBaseSinkProvideClockPropertyInfo = (~) Bool
type AttrTransferType AudioBaseSinkProvideClockPropertyInfo = Bool
type AttrGetType AudioBaseSinkProvideClockPropertyInfo = Bool
type AttrLabel AudioBaseSinkProvideClockPropertyInfo = "provide-clock"
type AttrOrigin AudioBaseSinkProvideClockPropertyInfo = AudioBaseSink
attrGet = getAudioBaseSinkProvideClock
attrSet = setAudioBaseSinkProvideClock
attrTransfer _ v = do
return v
attrConstruct = constructAudioBaseSinkProvideClock
attrClear = undefined
#endif
getAudioBaseSinkSlaveMethod :: (MonadIO m, IsAudioBaseSink o) => o -> m GstAudio.Enums.AudioBaseSinkSlaveMethod
getAudioBaseSinkSlaveMethod :: o -> m AudioBaseSinkSlaveMethod
getAudioBaseSinkSlaveMethod obj :: o
obj = IO AudioBaseSinkSlaveMethod -> m AudioBaseSinkSlaveMethod
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AudioBaseSinkSlaveMethod -> m AudioBaseSinkSlaveMethod)
-> IO AudioBaseSinkSlaveMethod -> m AudioBaseSinkSlaveMethod
forall a b. (a -> b) -> a -> b
$ o -> String -> IO AudioBaseSinkSlaveMethod
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "slave-method"
setAudioBaseSinkSlaveMethod :: (MonadIO m, IsAudioBaseSink o) => o -> GstAudio.Enums.AudioBaseSinkSlaveMethod -> m ()
setAudioBaseSinkSlaveMethod :: o -> AudioBaseSinkSlaveMethod -> m ()
setAudioBaseSinkSlaveMethod obj :: o
obj val :: AudioBaseSinkSlaveMethod
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> AudioBaseSinkSlaveMethod -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "slave-method" AudioBaseSinkSlaveMethod
val
constructAudioBaseSinkSlaveMethod :: (IsAudioBaseSink o) => GstAudio.Enums.AudioBaseSinkSlaveMethod -> IO (GValueConstruct o)
constructAudioBaseSinkSlaveMethod :: AudioBaseSinkSlaveMethod -> IO (GValueConstruct o)
constructAudioBaseSinkSlaveMethod val :: AudioBaseSinkSlaveMethod
val = String -> AudioBaseSinkSlaveMethod -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "slave-method" AudioBaseSinkSlaveMethod
val
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkSlaveMethodPropertyInfo
instance AttrInfo AudioBaseSinkSlaveMethodPropertyInfo where
type AttrAllowedOps AudioBaseSinkSlaveMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AudioBaseSinkSlaveMethodPropertyInfo = IsAudioBaseSink
type AttrSetTypeConstraint AudioBaseSinkSlaveMethodPropertyInfo = (~) GstAudio.Enums.AudioBaseSinkSlaveMethod
type AttrTransferTypeConstraint AudioBaseSinkSlaveMethodPropertyInfo = (~) GstAudio.Enums.AudioBaseSinkSlaveMethod
type AttrTransferType AudioBaseSinkSlaveMethodPropertyInfo = GstAudio.Enums.AudioBaseSinkSlaveMethod
type AttrGetType AudioBaseSinkSlaveMethodPropertyInfo = GstAudio.Enums.AudioBaseSinkSlaveMethod
type AttrLabel AudioBaseSinkSlaveMethodPropertyInfo = "slave-method"
type AttrOrigin AudioBaseSinkSlaveMethodPropertyInfo = AudioBaseSink
attrGet = getAudioBaseSinkSlaveMethod
attrSet = setAudioBaseSinkSlaveMethod
attrTransfer _ v = do
return v
attrConstruct = constructAudioBaseSinkSlaveMethod
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList AudioBaseSink
type instance O.AttributeList AudioBaseSink = AudioBaseSinkAttributeList
type AudioBaseSinkAttributeList = ('[ '("alignmentThreshold", AudioBaseSinkAlignmentThresholdPropertyInfo), '("async", GstBase.BaseSink.BaseSinkAsyncPropertyInfo), '("blocksize", GstBase.BaseSink.BaseSinkBlocksizePropertyInfo), '("bufferTime", AudioBaseSinkBufferTimePropertyInfo), '("canActivatePull", AudioBaseSinkCanActivatePullPropertyInfo), '("discontWait", AudioBaseSinkDiscontWaitPropertyInfo), '("driftTolerance", AudioBaseSinkDriftTolerancePropertyInfo), '("enableLastSample", GstBase.BaseSink.BaseSinkEnableLastSamplePropertyInfo), '("lastSample", GstBase.BaseSink.BaseSinkLastSamplePropertyInfo), '("latencyTime", AudioBaseSinkLatencyTimePropertyInfo), '("maxBitrate", GstBase.BaseSink.BaseSinkMaxBitratePropertyInfo), '("maxLateness", GstBase.BaseSink.BaseSinkMaxLatenessPropertyInfo), '("name", Gst.Object.ObjectNamePropertyInfo), '("parent", Gst.Object.ObjectParentPropertyInfo), '("processingDeadline", GstBase.BaseSink.BaseSinkProcessingDeadlinePropertyInfo), '("provideClock", AudioBaseSinkProvideClockPropertyInfo), '("qos", GstBase.BaseSink.BaseSinkQosPropertyInfo), '("renderDelay", GstBase.BaseSink.BaseSinkRenderDelayPropertyInfo), '("slaveMethod", AudioBaseSinkSlaveMethodPropertyInfo), '("sync", GstBase.BaseSink.BaseSinkSyncPropertyInfo), '("throttleTime", GstBase.BaseSink.BaseSinkThrottleTimePropertyInfo), '("tsOffset", GstBase.BaseSink.BaseSinkTsOffsetPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
audioBaseSinkAlignmentThreshold :: AttrLabelProxy "alignmentThreshold"
audioBaseSinkAlignmentThreshold = AttrLabelProxy
audioBaseSinkBufferTime :: AttrLabelProxy "bufferTime"
audioBaseSinkBufferTime = AttrLabelProxy
audioBaseSinkCanActivatePull :: AttrLabelProxy "canActivatePull"
audioBaseSinkCanActivatePull = AttrLabelProxy
audioBaseSinkDiscontWait :: AttrLabelProxy "discontWait"
audioBaseSinkDiscontWait = AttrLabelProxy
audioBaseSinkDriftTolerance :: AttrLabelProxy "driftTolerance"
audioBaseSinkDriftTolerance = AttrLabelProxy
audioBaseSinkLatencyTime :: AttrLabelProxy "latencyTime"
audioBaseSinkLatencyTime = AttrLabelProxy
audioBaseSinkProvideClock :: AttrLabelProxy "provideClock"
audioBaseSinkProvideClock = AttrLabelProxy
audioBaseSinkSlaveMethod :: AttrLabelProxy "slaveMethod"
audioBaseSinkSlaveMethod = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList AudioBaseSink = AudioBaseSinkSignalList
type AudioBaseSinkSignalList = ('[ '("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_audio_base_sink_create_ringbuffer" gst_audio_base_sink_create_ringbuffer ::
Ptr AudioBaseSink ->
IO (Ptr GstAudio.AudioRingBuffer.AudioRingBuffer)
audioBaseSinkCreateRingbuffer ::
(B.CallStack.HasCallStack, MonadIO m, IsAudioBaseSink a) =>
a
-> m GstAudio.AudioRingBuffer.AudioRingBuffer
audioBaseSinkCreateRingbuffer :: a -> m AudioRingBuffer
audioBaseSinkCreateRingbuffer sink :: a
sink = IO AudioRingBuffer -> m AudioRingBuffer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AudioRingBuffer -> m AudioRingBuffer)
-> IO AudioRingBuffer -> m AudioRingBuffer
forall a b. (a -> b) -> a -> b
$ do
Ptr AudioBaseSink
sink' <- a -> IO (Ptr AudioBaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Ptr AudioRingBuffer
result <- Ptr AudioBaseSink -> IO (Ptr AudioRingBuffer)
gst_audio_base_sink_create_ringbuffer Ptr AudioBaseSink
sink'
Text -> Ptr AudioRingBuffer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "audioBaseSinkCreateRingbuffer" Ptr AudioRingBuffer
result
AudioRingBuffer
result' <- ((ManagedPtr AudioRingBuffer -> AudioRingBuffer)
-> Ptr AudioRingBuffer -> IO AudioRingBuffer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr AudioRingBuffer -> AudioRingBuffer
GstAudio.AudioRingBuffer.AudioRingBuffer) Ptr AudioRingBuffer
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
AudioRingBuffer -> IO AudioRingBuffer
forall (m :: * -> *) a. Monad m => a -> m a
return AudioRingBuffer
result'
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkCreateRingbufferMethodInfo
instance (signature ~ (m GstAudio.AudioRingBuffer.AudioRingBuffer), MonadIO m, IsAudioBaseSink a) => O.MethodInfo AudioBaseSinkCreateRingbufferMethodInfo a signature where
overloadedMethod = audioBaseSinkCreateRingbuffer
#endif
foreign import ccall "gst_audio_base_sink_get_alignment_threshold" gst_audio_base_sink_get_alignment_threshold ::
Ptr AudioBaseSink ->
IO Word64
audioBaseSinkGetAlignmentThreshold ::
(B.CallStack.HasCallStack, MonadIO m, IsAudioBaseSink a) =>
a
-> m Word64
audioBaseSinkGetAlignmentThreshold :: a -> m Word64
audioBaseSinkGetAlignmentThreshold sink :: a
sink = IO Word64 -> m Word64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr AudioBaseSink
sink' <- a -> IO (Ptr AudioBaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Word64
result <- Ptr AudioBaseSink -> IO Word64
gst_audio_base_sink_get_alignment_threshold Ptr AudioBaseSink
sink'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Word64 -> IO Word64
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkGetAlignmentThresholdMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsAudioBaseSink a) => O.MethodInfo AudioBaseSinkGetAlignmentThresholdMethodInfo a signature where
overloadedMethod = audioBaseSinkGetAlignmentThreshold
#endif
foreign import ccall "gst_audio_base_sink_get_discont_wait" gst_audio_base_sink_get_discont_wait ::
Ptr AudioBaseSink ->
IO Word64
audioBaseSinkGetDiscontWait ::
(B.CallStack.HasCallStack, MonadIO m, IsAudioBaseSink a) =>
a
-> m Word64
audioBaseSinkGetDiscontWait :: a -> m Word64
audioBaseSinkGetDiscontWait sink :: a
sink = IO Word64 -> m Word64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr AudioBaseSink
sink' <- a -> IO (Ptr AudioBaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Word64
result <- Ptr AudioBaseSink -> IO Word64
gst_audio_base_sink_get_discont_wait Ptr AudioBaseSink
sink'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Word64 -> IO Word64
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkGetDiscontWaitMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsAudioBaseSink a) => O.MethodInfo AudioBaseSinkGetDiscontWaitMethodInfo a signature where
overloadedMethod = audioBaseSinkGetDiscontWait
#endif
foreign import ccall "gst_audio_base_sink_get_drift_tolerance" gst_audio_base_sink_get_drift_tolerance ::
Ptr AudioBaseSink ->
IO Int64
audioBaseSinkGetDriftTolerance ::
(B.CallStack.HasCallStack, MonadIO m, IsAudioBaseSink a) =>
a
-> m Int64
audioBaseSinkGetDriftTolerance :: a -> m Int64
audioBaseSinkGetDriftTolerance sink :: a
sink = IO Int64 -> m Int64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int64 -> m Int64) -> IO Int64 -> m Int64
forall a b. (a -> b) -> a -> b
$ do
Ptr AudioBaseSink
sink' <- a -> IO (Ptr AudioBaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Int64
result <- Ptr AudioBaseSink -> IO Int64
gst_audio_base_sink_get_drift_tolerance Ptr AudioBaseSink
sink'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Int64 -> IO Int64
forall (m :: * -> *) a. Monad m => a -> m a
return Int64
result
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkGetDriftToleranceMethodInfo
instance (signature ~ (m Int64), MonadIO m, IsAudioBaseSink a) => O.MethodInfo AudioBaseSinkGetDriftToleranceMethodInfo a signature where
overloadedMethod = audioBaseSinkGetDriftTolerance
#endif
foreign import ccall "gst_audio_base_sink_get_provide_clock" gst_audio_base_sink_get_provide_clock ::
Ptr AudioBaseSink ->
IO CInt
audioBaseSinkGetProvideClock ::
(B.CallStack.HasCallStack, MonadIO m, IsAudioBaseSink a) =>
a
-> m Bool
audioBaseSinkGetProvideClock :: a -> m Bool
audioBaseSinkGetProvideClock sink :: a
sink = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr AudioBaseSink
sink' <- a -> IO (Ptr AudioBaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
CInt
result <- Ptr AudioBaseSink -> IO CInt
gst_audio_base_sink_get_provide_clock Ptr AudioBaseSink
sink'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkGetProvideClockMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAudioBaseSink a) => O.MethodInfo AudioBaseSinkGetProvideClockMethodInfo a signature where
overloadedMethod = audioBaseSinkGetProvideClock
#endif
foreign import ccall "gst_audio_base_sink_get_slave_method" gst_audio_base_sink_get_slave_method ::
Ptr AudioBaseSink ->
IO CUInt
audioBaseSinkGetSlaveMethod ::
(B.CallStack.HasCallStack, MonadIO m, IsAudioBaseSink a) =>
a
-> m GstAudio.Enums.AudioBaseSinkSlaveMethod
audioBaseSinkGetSlaveMethod :: a -> m AudioBaseSinkSlaveMethod
audioBaseSinkGetSlaveMethod sink :: a
sink = IO AudioBaseSinkSlaveMethod -> m AudioBaseSinkSlaveMethod
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AudioBaseSinkSlaveMethod -> m AudioBaseSinkSlaveMethod)
-> IO AudioBaseSinkSlaveMethod -> m AudioBaseSinkSlaveMethod
forall a b. (a -> b) -> a -> b
$ do
Ptr AudioBaseSink
sink' <- a -> IO (Ptr AudioBaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
CUInt
result <- Ptr AudioBaseSink -> IO CUInt
gst_audio_base_sink_get_slave_method Ptr AudioBaseSink
sink'
let result' :: AudioBaseSinkSlaveMethod
result' = (Int -> AudioBaseSinkSlaveMethod
forall a. Enum a => Int -> a
toEnum (Int -> AudioBaseSinkSlaveMethod)
-> (CUInt -> Int) -> CUInt -> AudioBaseSinkSlaveMethod
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
AudioBaseSinkSlaveMethod -> IO AudioBaseSinkSlaveMethod
forall (m :: * -> *) a. Monad m => a -> m a
return AudioBaseSinkSlaveMethod
result'
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkGetSlaveMethodMethodInfo
instance (signature ~ (m GstAudio.Enums.AudioBaseSinkSlaveMethod), MonadIO m, IsAudioBaseSink a) => O.MethodInfo AudioBaseSinkGetSlaveMethodMethodInfo a signature where
overloadedMethod = audioBaseSinkGetSlaveMethod
#endif
foreign import ccall "gst_audio_base_sink_report_device_failure" gst_audio_base_sink_report_device_failure ::
Ptr AudioBaseSink ->
IO ()
audioBaseSinkReportDeviceFailure ::
(B.CallStack.HasCallStack, MonadIO m, IsAudioBaseSink a) =>
a
-> m ()
audioBaseSinkReportDeviceFailure :: a -> m ()
audioBaseSinkReportDeviceFailure sink :: a
sink = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr AudioBaseSink
sink' <- a -> IO (Ptr AudioBaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Ptr AudioBaseSink -> IO ()
gst_audio_base_sink_report_device_failure Ptr AudioBaseSink
sink'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkReportDeviceFailureMethodInfo
instance (signature ~ (m ()), MonadIO m, IsAudioBaseSink a) => O.MethodInfo AudioBaseSinkReportDeviceFailureMethodInfo a signature where
overloadedMethod = audioBaseSinkReportDeviceFailure
#endif
foreign import ccall "gst_audio_base_sink_set_alignment_threshold" gst_audio_base_sink_set_alignment_threshold ::
Ptr AudioBaseSink ->
Word64 ->
IO ()
audioBaseSinkSetAlignmentThreshold ::
(B.CallStack.HasCallStack, MonadIO m, IsAudioBaseSink a) =>
a
-> Word64
-> m ()
audioBaseSinkSetAlignmentThreshold :: a -> Word64 -> m ()
audioBaseSinkSetAlignmentThreshold sink :: a
sink alignmentThreshold :: Word64
alignmentThreshold = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr AudioBaseSink
sink' <- a -> IO (Ptr AudioBaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Ptr AudioBaseSink -> Word64 -> IO ()
gst_audio_base_sink_set_alignment_threshold Ptr AudioBaseSink
sink' Word64
alignmentThreshold
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkSetAlignmentThresholdMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, IsAudioBaseSink a) => O.MethodInfo AudioBaseSinkSetAlignmentThresholdMethodInfo a signature where
overloadedMethod = audioBaseSinkSetAlignmentThreshold
#endif
foreign import ccall "gst_audio_base_sink_set_custom_slaving_callback" gst_audio_base_sink_set_custom_slaving_callback ::
Ptr AudioBaseSink ->
FunPtr GstAudio.Callbacks.C_AudioBaseSinkCustomSlavingCallback ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
audioBaseSinkSetCustomSlavingCallback ::
(B.CallStack.HasCallStack, MonadIO m, IsAudioBaseSink a) =>
a
-> GstAudio.Callbacks.AudioBaseSinkCustomSlavingCallback
-> m ()
audioBaseSinkSetCustomSlavingCallback :: a -> AudioBaseSinkCustomSlavingCallback -> m ()
audioBaseSinkSetCustomSlavingCallback sink :: a
sink callback :: AudioBaseSinkCustomSlavingCallback
callback = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr AudioBaseSink
sink' <- a -> IO (Ptr AudioBaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
FunPtr C_AudioBaseSinkCustomSlavingCallback
callback' <- C_AudioBaseSinkCustomSlavingCallback
-> IO (FunPtr C_AudioBaseSinkCustomSlavingCallback)
GstAudio.Callbacks.mk_AudioBaseSinkCustomSlavingCallback (Maybe (Ptr (FunPtr C_AudioBaseSinkCustomSlavingCallback))
-> AudioBaseSinkCustomSlavingCallback_WithClosures
-> C_AudioBaseSinkCustomSlavingCallback
GstAudio.Callbacks.wrap_AudioBaseSinkCustomSlavingCallback Maybe (Ptr (FunPtr C_AudioBaseSinkCustomSlavingCallback))
forall a. Maybe a
Nothing (AudioBaseSinkCustomSlavingCallback
-> AudioBaseSinkCustomSlavingCallback_WithClosures
GstAudio.Callbacks.drop_closures_AudioBaseSinkCustomSlavingCallback AudioBaseSinkCustomSlavingCallback
callback))
let userData :: Ptr ()
userData = FunPtr C_AudioBaseSinkCustomSlavingCallback -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_AudioBaseSinkCustomSlavingCallback
callback'
let notify :: FunPtr (Ptr a -> IO ())
notify = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
safeFreeFunPtrPtr
Ptr AudioBaseSink
-> FunPtr C_AudioBaseSinkCustomSlavingCallback
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
gst_audio_base_sink_set_custom_slaving_callback Ptr AudioBaseSink
sink' FunPtr C_AudioBaseSinkCustomSlavingCallback
callback' Ptr ()
userData FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
notify
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkSetCustomSlavingCallbackMethodInfo
instance (signature ~ (GstAudio.Callbacks.AudioBaseSinkCustomSlavingCallback -> m ()), MonadIO m, IsAudioBaseSink a) => O.MethodInfo AudioBaseSinkSetCustomSlavingCallbackMethodInfo a signature where
overloadedMethod = audioBaseSinkSetCustomSlavingCallback
#endif
foreign import ccall "gst_audio_base_sink_set_discont_wait" gst_audio_base_sink_set_discont_wait ::
Ptr AudioBaseSink ->
Word64 ->
IO ()
audioBaseSinkSetDiscontWait ::
(B.CallStack.HasCallStack, MonadIO m, IsAudioBaseSink a) =>
a
-> Word64
-> m ()
audioBaseSinkSetDiscontWait :: a -> Word64 -> m ()
audioBaseSinkSetDiscontWait sink :: a
sink discontWait :: Word64
discontWait = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr AudioBaseSink
sink' <- a -> IO (Ptr AudioBaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Ptr AudioBaseSink -> Word64 -> IO ()
gst_audio_base_sink_set_discont_wait Ptr AudioBaseSink
sink' Word64
discontWait
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkSetDiscontWaitMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, IsAudioBaseSink a) => O.MethodInfo AudioBaseSinkSetDiscontWaitMethodInfo a signature where
overloadedMethod = audioBaseSinkSetDiscontWait
#endif
foreign import ccall "gst_audio_base_sink_set_drift_tolerance" gst_audio_base_sink_set_drift_tolerance ::
Ptr AudioBaseSink ->
Int64 ->
IO ()
audioBaseSinkSetDriftTolerance ::
(B.CallStack.HasCallStack, MonadIO m, IsAudioBaseSink a) =>
a
-> Int64
-> m ()
audioBaseSinkSetDriftTolerance :: a -> Int64 -> m ()
audioBaseSinkSetDriftTolerance sink :: a
sink driftTolerance :: Int64
driftTolerance = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr AudioBaseSink
sink' <- a -> IO (Ptr AudioBaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
Ptr AudioBaseSink -> Int64 -> IO ()
gst_audio_base_sink_set_drift_tolerance Ptr AudioBaseSink
sink' Int64
driftTolerance
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkSetDriftToleranceMethodInfo
instance (signature ~ (Int64 -> m ()), MonadIO m, IsAudioBaseSink a) => O.MethodInfo AudioBaseSinkSetDriftToleranceMethodInfo a signature where
overloadedMethod = audioBaseSinkSetDriftTolerance
#endif
foreign import ccall "gst_audio_base_sink_set_provide_clock" gst_audio_base_sink_set_provide_clock ::
Ptr AudioBaseSink ->
CInt ->
IO ()
audioBaseSinkSetProvideClock ::
(B.CallStack.HasCallStack, MonadIO m, IsAudioBaseSink a) =>
a
-> Bool
-> m ()
audioBaseSinkSetProvideClock :: a -> Bool -> m ()
audioBaseSinkSetProvideClock sink :: a
sink provide :: Bool
provide = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr AudioBaseSink
sink' <- a -> IO (Ptr AudioBaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
let provide' :: CInt
provide' = (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
provide
Ptr AudioBaseSink -> CInt -> IO ()
gst_audio_base_sink_set_provide_clock Ptr AudioBaseSink
sink' CInt
provide'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkSetProvideClockMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAudioBaseSink a) => O.MethodInfo AudioBaseSinkSetProvideClockMethodInfo a signature where
overloadedMethod = audioBaseSinkSetProvideClock
#endif
foreign import ccall "gst_audio_base_sink_set_slave_method" gst_audio_base_sink_set_slave_method ::
Ptr AudioBaseSink ->
CUInt ->
IO ()
audioBaseSinkSetSlaveMethod ::
(B.CallStack.HasCallStack, MonadIO m, IsAudioBaseSink a) =>
a
-> GstAudio.Enums.AudioBaseSinkSlaveMethod
-> m ()
audioBaseSinkSetSlaveMethod :: a -> AudioBaseSinkSlaveMethod -> m ()
audioBaseSinkSetSlaveMethod sink :: a
sink method :: AudioBaseSinkSlaveMethod
method = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr AudioBaseSink
sink' <- a -> IO (Ptr AudioBaseSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
sink
let method' :: CUInt
method' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (AudioBaseSinkSlaveMethod -> Int)
-> AudioBaseSinkSlaveMethod
-> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AudioBaseSinkSlaveMethod -> Int
forall a. Enum a => a -> Int
fromEnum) AudioBaseSinkSlaveMethod
method
Ptr AudioBaseSink -> CUInt -> IO ()
gst_audio_base_sink_set_slave_method Ptr AudioBaseSink
sink' CUInt
method'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
sink
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AudioBaseSinkSetSlaveMethodMethodInfo
instance (signature ~ (GstAudio.Enums.AudioBaseSinkSlaveMethod -> m ()), MonadIO m, IsAudioBaseSink a) => O.MethodInfo AudioBaseSinkSetSlaveMethodMethodInfo a signature where
overloadedMethod = audioBaseSinkSetSlaveMethod
#endif