gi-gstaudio-0.1.6.13: GI/GstAudio/Objects/AudioBaseSink.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.GstAudio.Objects.AudioBaseSink
(
-- * Exported types
AudioBaseSink(..) ,
AudioBaseSinkK ,
toAudioBaseSink ,
noAudioBaseSink ,
-- * Methods
-- ** audioBaseSinkCreateRingbuffer
AudioBaseSinkCreateRingbufferMethodInfo ,
audioBaseSinkCreateRingbuffer ,
-- ** audioBaseSinkGetAlignmentThreshold
AudioBaseSinkGetAlignmentThresholdMethodInfo,
audioBaseSinkGetAlignmentThreshold ,
-- ** audioBaseSinkGetDiscontWait
AudioBaseSinkGetDiscontWaitMethodInfo ,
audioBaseSinkGetDiscontWait ,
-- ** audioBaseSinkGetDriftTolerance
AudioBaseSinkGetDriftToleranceMethodInfo,
audioBaseSinkGetDriftTolerance ,
-- ** audioBaseSinkGetProvideClock
AudioBaseSinkGetProvideClockMethodInfo ,
audioBaseSinkGetProvideClock ,
-- ** audioBaseSinkGetSlaveMethod
AudioBaseSinkGetSlaveMethodMethodInfo ,
audioBaseSinkGetSlaveMethod ,
-- ** audioBaseSinkReportDeviceFailure
AudioBaseSinkReportDeviceFailureMethodInfo,
audioBaseSinkReportDeviceFailure ,
-- ** audioBaseSinkSetAlignmentThreshold
AudioBaseSinkSetAlignmentThresholdMethodInfo,
audioBaseSinkSetAlignmentThreshold ,
-- ** audioBaseSinkSetCustomSlavingCallback
AudioBaseSinkSetCustomSlavingCallbackMethodInfo,
audioBaseSinkSetCustomSlavingCallback ,
-- ** audioBaseSinkSetDiscontWait
AudioBaseSinkSetDiscontWaitMethodInfo ,
audioBaseSinkSetDiscontWait ,
-- ** audioBaseSinkSetDriftTolerance
AudioBaseSinkSetDriftToleranceMethodInfo,
audioBaseSinkSetDriftTolerance ,
-- ** audioBaseSinkSetProvideClock
AudioBaseSinkSetProvideClockMethodInfo ,
audioBaseSinkSetProvideClock ,
-- ** audioBaseSinkSetSlaveMethod
AudioBaseSinkSetSlaveMethodMethodInfo ,
audioBaseSinkSetSlaveMethod ,
-- * Properties
-- ** AlignmentThreshold
AudioBaseSinkAlignmentThresholdPropertyInfo,
constructAudioBaseSinkAlignmentThreshold,
getAudioBaseSinkAlignmentThreshold ,
setAudioBaseSinkAlignmentThreshold ,
-- ** BufferTime
AudioBaseSinkBufferTimePropertyInfo ,
constructAudioBaseSinkBufferTime ,
getAudioBaseSinkBufferTime ,
setAudioBaseSinkBufferTime ,
-- ** CanActivatePull
AudioBaseSinkCanActivatePullPropertyInfo,
constructAudioBaseSinkCanActivatePull ,
getAudioBaseSinkCanActivatePull ,
setAudioBaseSinkCanActivatePull ,
-- ** DiscontWait
AudioBaseSinkDiscontWaitPropertyInfo ,
constructAudioBaseSinkDiscontWait ,
getAudioBaseSinkDiscontWait ,
setAudioBaseSinkDiscontWait ,
-- ** DriftTolerance
AudioBaseSinkDriftTolerancePropertyInfo ,
constructAudioBaseSinkDriftTolerance ,
getAudioBaseSinkDriftTolerance ,
setAudioBaseSinkDriftTolerance ,
-- ** LatencyTime
AudioBaseSinkLatencyTimePropertyInfo ,
constructAudioBaseSinkLatencyTime ,
getAudioBaseSinkLatencyTime ,
setAudioBaseSinkLatencyTime ,
-- ** ProvideClock
AudioBaseSinkProvideClockPropertyInfo ,
constructAudioBaseSinkProvideClock ,
getAudioBaseSinkProvideClock ,
setAudioBaseSinkProvideClock ,
-- ** SlaveMethod
AudioBaseSinkSlaveMethodPropertyInfo ,
constructAudioBaseSinkSlaveMethod ,
getAudioBaseSinkSlaveMethod ,
setAudioBaseSinkSlaveMethod ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.GstAudio.Types
import GI.GstAudio.Callbacks
import qualified GI.GLib as GLib
import qualified GI.GObject as GObject
import qualified GI.Gst as Gst
import qualified GI.GstBase as GstBase
newtype AudioBaseSink = AudioBaseSink (ForeignPtr AudioBaseSink)
foreign import ccall "gst_audio_base_sink_get_type"
c_gst_audio_base_sink_get_type :: IO GType
type instance ParentTypes AudioBaseSink = AudioBaseSinkParentTypes
type AudioBaseSinkParentTypes = '[GstBase.BaseSink, Gst.Element, Gst.Object, GObject.Object]
instance GObject AudioBaseSink where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gst_audio_base_sink_get_type
class GObject o => AudioBaseSinkK o
instance (GObject o, IsDescendantOf AudioBaseSink o) => AudioBaseSinkK o
toAudioBaseSink :: AudioBaseSinkK o => o -> IO AudioBaseSink
toAudioBaseSink = unsafeCastTo AudioBaseSink
noAudioBaseSink :: Maybe AudioBaseSink
noAudioBaseSink = Nothing
type family ResolveAudioBaseSinkMethod (t :: Symbol) (o :: *) :: * where
ResolveAudioBaseSinkMethod "abortState" o = Gst.ElementAbortStateMethodInfo
ResolveAudioBaseSinkMethod "addControlBinding" o = Gst.ObjectAddControlBindingMethodInfo
ResolveAudioBaseSinkMethod "addPad" o = Gst.ElementAddPadMethodInfo
ResolveAudioBaseSinkMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveAudioBaseSinkMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveAudioBaseSinkMethod "changeState" o = Gst.ElementChangeStateMethodInfo
ResolveAudioBaseSinkMethod "continueState" o = Gst.ElementContinueStateMethodInfo
ResolveAudioBaseSinkMethod "createAllPads" o = Gst.ElementCreateAllPadsMethodInfo
ResolveAudioBaseSinkMethod "createRingbuffer" o = AudioBaseSinkCreateRingbufferMethodInfo
ResolveAudioBaseSinkMethod "defaultError" o = Gst.ObjectDefaultErrorMethodInfo
ResolveAudioBaseSinkMethod "doPreroll" o = GstBase.BaseSinkDoPrerollMethodInfo
ResolveAudioBaseSinkMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveAudioBaseSinkMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveAudioBaseSinkMethod "hasActiveControlBindings" o = Gst.ObjectHasActiveControlBindingsMethodInfo
ResolveAudioBaseSinkMethod "hasAncestor" o = Gst.ObjectHasAncestorMethodInfo
ResolveAudioBaseSinkMethod "hasAsAncestor" o = Gst.ObjectHasAsAncestorMethodInfo
ResolveAudioBaseSinkMethod "hasAsParent" o = Gst.ObjectHasAsParentMethodInfo
ResolveAudioBaseSinkMethod "isAsyncEnabled" o = GstBase.BaseSinkIsAsyncEnabledMethodInfo
ResolveAudioBaseSinkMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveAudioBaseSinkMethod "isLastSampleEnabled" o = GstBase.BaseSinkIsLastSampleEnabledMethodInfo
ResolveAudioBaseSinkMethod "isLockedState" o = Gst.ElementIsLockedStateMethodInfo
ResolveAudioBaseSinkMethod "isQosEnabled" o = GstBase.BaseSinkIsQosEnabledMethodInfo
ResolveAudioBaseSinkMethod "iteratePads" o = Gst.ElementIteratePadsMethodInfo
ResolveAudioBaseSinkMethod "iterateSinkPads" o = Gst.ElementIterateSinkPadsMethodInfo
ResolveAudioBaseSinkMethod "iterateSrcPads" o = Gst.ElementIterateSrcPadsMethodInfo
ResolveAudioBaseSinkMethod "link" o = Gst.ElementLinkMethodInfo
ResolveAudioBaseSinkMethod "linkFiltered" o = Gst.ElementLinkFilteredMethodInfo
ResolveAudioBaseSinkMethod "linkPads" o = Gst.ElementLinkPadsMethodInfo
ResolveAudioBaseSinkMethod "linkPadsFiltered" o = Gst.ElementLinkPadsFilteredMethodInfo
ResolveAudioBaseSinkMethod "linkPadsFull" o = Gst.ElementLinkPadsFullMethodInfo
ResolveAudioBaseSinkMethod "lostState" o = Gst.ElementLostStateMethodInfo
ResolveAudioBaseSinkMethod "messageFull" o = Gst.ElementMessageFullMethodInfo
ResolveAudioBaseSinkMethod "noMorePads" o = Gst.ElementNoMorePadsMethodInfo
ResolveAudioBaseSinkMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveAudioBaseSinkMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveAudioBaseSinkMethod "postMessage" o = Gst.ElementPostMessageMethodInfo
ResolveAudioBaseSinkMethod "provideClock" o = Gst.ElementProvideClockMethodInfo
ResolveAudioBaseSinkMethod "query" o = Gst.ElementQueryMethodInfo
ResolveAudioBaseSinkMethod "queryConvert" o = Gst.ElementQueryConvertMethodInfo
ResolveAudioBaseSinkMethod "queryDuration" o = Gst.ElementQueryDurationMethodInfo
ResolveAudioBaseSinkMethod "queryLatency" o = GstBase.BaseSinkQueryLatencyMethodInfo
ResolveAudioBaseSinkMethod "queryPosition" o = Gst.ElementQueryPositionMethodInfo
ResolveAudioBaseSinkMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveAudioBaseSinkMethod "releaseRequestPad" o = Gst.ElementReleaseRequestPadMethodInfo
ResolveAudioBaseSinkMethod "removeControlBinding" o = Gst.ObjectRemoveControlBindingMethodInfo
ResolveAudioBaseSinkMethod "removePad" o = Gst.ElementRemovePadMethodInfo
ResolveAudioBaseSinkMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveAudioBaseSinkMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveAudioBaseSinkMethod "reportDeviceFailure" o = AudioBaseSinkReportDeviceFailureMethodInfo
ResolveAudioBaseSinkMethod "requestPad" o = Gst.ElementRequestPadMethodInfo
ResolveAudioBaseSinkMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveAudioBaseSinkMethod "seek" o = Gst.ElementSeekMethodInfo
ResolveAudioBaseSinkMethod "seekSimple" o = Gst.ElementSeekSimpleMethodInfo
ResolveAudioBaseSinkMethod "sendEvent" o = Gst.ElementSendEventMethodInfo
ResolveAudioBaseSinkMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveAudioBaseSinkMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveAudioBaseSinkMethod "suggestNextSync" o = Gst.ObjectSuggestNextSyncMethodInfo
ResolveAudioBaseSinkMethod "syncStateWithParent" o = Gst.ElementSyncStateWithParentMethodInfo
ResolveAudioBaseSinkMethod "syncValues" o = Gst.ObjectSyncValuesMethodInfo
ResolveAudioBaseSinkMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveAudioBaseSinkMethod "unlink" o = Gst.ElementUnlinkMethodInfo
ResolveAudioBaseSinkMethod "unlinkPads" o = Gst.ElementUnlinkPadsMethodInfo
ResolveAudioBaseSinkMethod "unparent" o = Gst.ObjectUnparentMethodInfo
ResolveAudioBaseSinkMethod "wait" o = GstBase.BaseSinkWaitMethodInfo
ResolveAudioBaseSinkMethod "waitClock" o = GstBase.BaseSinkWaitClockMethodInfo
ResolveAudioBaseSinkMethod "waitPreroll" o = GstBase.BaseSinkWaitPrerollMethodInfo
ResolveAudioBaseSinkMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveAudioBaseSinkMethod "getAlignmentThreshold" o = AudioBaseSinkGetAlignmentThresholdMethodInfo
ResolveAudioBaseSinkMethod "getBaseTime" o = Gst.ElementGetBaseTimeMethodInfo
ResolveAudioBaseSinkMethod "getBlocksize" o = GstBase.BaseSinkGetBlocksizeMethodInfo
ResolveAudioBaseSinkMethod "getBus" o = Gst.ElementGetBusMethodInfo
ResolveAudioBaseSinkMethod "getClock" o = Gst.ElementGetClockMethodInfo
ResolveAudioBaseSinkMethod "getCompatiblePad" o = Gst.ElementGetCompatiblePadMethodInfo
ResolveAudioBaseSinkMethod "getCompatiblePadTemplate" o = Gst.ElementGetCompatiblePadTemplateMethodInfo
ResolveAudioBaseSinkMethod "getControlBinding" o = Gst.ObjectGetControlBindingMethodInfo
ResolveAudioBaseSinkMethod "getControlRate" o = Gst.ObjectGetControlRateMethodInfo
ResolveAudioBaseSinkMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveAudioBaseSinkMethod "getDiscontWait" o = AudioBaseSinkGetDiscontWaitMethodInfo
ResolveAudioBaseSinkMethod "getDriftTolerance" o = AudioBaseSinkGetDriftToleranceMethodInfo
ResolveAudioBaseSinkMethod "getFactory" o = Gst.ElementGetFactoryMethodInfo
ResolveAudioBaseSinkMethod "getGValueArray" o = Gst.ObjectGetGValueArrayMethodInfo
ResolveAudioBaseSinkMethod "getLastSample" o = GstBase.BaseSinkGetLastSampleMethodInfo
ResolveAudioBaseSinkMethod "getLatency" o = GstBase.BaseSinkGetLatencyMethodInfo
ResolveAudioBaseSinkMethod "getMaxBitrate" o = GstBase.BaseSinkGetMaxBitrateMethodInfo
ResolveAudioBaseSinkMethod "getMaxLateness" o = GstBase.BaseSinkGetMaxLatenessMethodInfo
ResolveAudioBaseSinkMethod "getName" o = Gst.ObjectGetNameMethodInfo
ResolveAudioBaseSinkMethod "getParent" o = Gst.ObjectGetParentMethodInfo
ResolveAudioBaseSinkMethod "getPathString" o = Gst.ObjectGetPathStringMethodInfo
ResolveAudioBaseSinkMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveAudioBaseSinkMethod "getProvideClock" o = AudioBaseSinkGetProvideClockMethodInfo
ResolveAudioBaseSinkMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveAudioBaseSinkMethod "getRenderDelay" o = GstBase.BaseSinkGetRenderDelayMethodInfo
ResolveAudioBaseSinkMethod "getRequestPad" o = Gst.ElementGetRequestPadMethodInfo
ResolveAudioBaseSinkMethod "getSlaveMethod" o = AudioBaseSinkGetSlaveMethodMethodInfo
ResolveAudioBaseSinkMethod "getStartTime" o = Gst.ElementGetStartTimeMethodInfo
ResolveAudioBaseSinkMethod "getState" o = Gst.ElementGetStateMethodInfo
ResolveAudioBaseSinkMethod "getStaticPad" o = Gst.ElementGetStaticPadMethodInfo
ResolveAudioBaseSinkMethod "getSync" o = GstBase.BaseSinkGetSyncMethodInfo
ResolveAudioBaseSinkMethod "getThrottleTime" o = GstBase.BaseSinkGetThrottleTimeMethodInfo
ResolveAudioBaseSinkMethod "getTsOffset" o = GstBase.BaseSinkGetTsOffsetMethodInfo
ResolveAudioBaseSinkMethod "getValue" o = Gst.ObjectGetValueMethodInfo
ResolveAudioBaseSinkMethod "getValueArray" o = Gst.ObjectGetValueArrayMethodInfo
ResolveAudioBaseSinkMethod "setAlignmentThreshold" o = AudioBaseSinkSetAlignmentThresholdMethodInfo
ResolveAudioBaseSinkMethod "setAsyncEnabled" o = GstBase.BaseSinkSetAsyncEnabledMethodInfo
ResolveAudioBaseSinkMethod "setBaseTime" o = Gst.ElementSetBaseTimeMethodInfo
ResolveAudioBaseSinkMethod "setBlocksize" o = GstBase.BaseSinkSetBlocksizeMethodInfo
ResolveAudioBaseSinkMethod "setBus" o = Gst.ElementSetBusMethodInfo
ResolveAudioBaseSinkMethod "setClock" o = Gst.ElementSetClockMethodInfo
ResolveAudioBaseSinkMethod "setContext" o = Gst.ElementSetContextMethodInfo
ResolveAudioBaseSinkMethod "setControlBindingDisabled" o = Gst.ObjectSetControlBindingDisabledMethodInfo
ResolveAudioBaseSinkMethod "setControlBindingsDisabled" o = Gst.ObjectSetControlBindingsDisabledMethodInfo
ResolveAudioBaseSinkMethod "setControlRate" o = Gst.ObjectSetControlRateMethodInfo
ResolveAudioBaseSinkMethod "setCustomSlavingCallback" o = AudioBaseSinkSetCustomSlavingCallbackMethodInfo
ResolveAudioBaseSinkMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveAudioBaseSinkMethod "setDiscontWait" o = AudioBaseSinkSetDiscontWaitMethodInfo
ResolveAudioBaseSinkMethod "setDriftTolerance" o = AudioBaseSinkSetDriftToleranceMethodInfo
ResolveAudioBaseSinkMethod "setLastSampleEnabled" o = GstBase.BaseSinkSetLastSampleEnabledMethodInfo
ResolveAudioBaseSinkMethod "setLockedState" o = Gst.ElementSetLockedStateMethodInfo
ResolveAudioBaseSinkMethod "setMaxBitrate" o = GstBase.BaseSinkSetMaxBitrateMethodInfo
ResolveAudioBaseSinkMethod "setMaxLateness" o = GstBase.BaseSinkSetMaxLatenessMethodInfo
ResolveAudioBaseSinkMethod "setName" o = Gst.ObjectSetNameMethodInfo
ResolveAudioBaseSinkMethod "setParent" o = Gst.ObjectSetParentMethodInfo
ResolveAudioBaseSinkMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveAudioBaseSinkMethod "setProvideClock" o = AudioBaseSinkSetProvideClockMethodInfo
ResolveAudioBaseSinkMethod "setQosEnabled" o = GstBase.BaseSinkSetQosEnabledMethodInfo
ResolveAudioBaseSinkMethod "setRenderDelay" o = GstBase.BaseSinkSetRenderDelayMethodInfo
ResolveAudioBaseSinkMethod "setSlaveMethod" o = AudioBaseSinkSetSlaveMethodMethodInfo
ResolveAudioBaseSinkMethod "setStartTime" o = Gst.ElementSetStartTimeMethodInfo
ResolveAudioBaseSinkMethod "setState" o = Gst.ElementSetStateMethodInfo
ResolveAudioBaseSinkMethod "setSync" o = GstBase.BaseSinkSetSyncMethodInfo
ResolveAudioBaseSinkMethod "setThrottleTime" o = GstBase.BaseSinkSetThrottleTimeMethodInfo
ResolveAudioBaseSinkMethod "setTsOffset" o = GstBase.BaseSinkSetTsOffsetMethodInfo
ResolveAudioBaseSinkMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveAudioBaseSinkMethod t AudioBaseSink, MethodInfo info AudioBaseSink p) => IsLabelProxy t (AudioBaseSink -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveAudioBaseSinkMethod t AudioBaseSink, MethodInfo info AudioBaseSink p) => IsLabel t (AudioBaseSink -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- VVV Prop "alignment-threshold"
-- Type: TBasicType TUInt64
-- Flags: [PropertyReadable,PropertyWritable]
getAudioBaseSinkAlignmentThreshold :: (MonadIO m, AudioBaseSinkK o) => o -> m Word64
getAudioBaseSinkAlignmentThreshold obj = liftIO $ getObjectPropertyUInt64 obj "alignment-threshold"
setAudioBaseSinkAlignmentThreshold :: (MonadIO m, AudioBaseSinkK o) => o -> Word64 -> m ()
setAudioBaseSinkAlignmentThreshold obj val = liftIO $ setObjectPropertyUInt64 obj "alignment-threshold" val
constructAudioBaseSinkAlignmentThreshold :: Word64 -> IO ([Char], GValue)
constructAudioBaseSinkAlignmentThreshold val = constructObjectPropertyUInt64 "alignment-threshold" val
data AudioBaseSinkAlignmentThresholdPropertyInfo
instance AttrInfo AudioBaseSinkAlignmentThresholdPropertyInfo where
type AttrAllowedOps AudioBaseSinkAlignmentThresholdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AudioBaseSinkAlignmentThresholdPropertyInfo = (~) Word64
type AttrBaseTypeConstraint AudioBaseSinkAlignmentThresholdPropertyInfo = AudioBaseSinkK
type AttrGetType AudioBaseSinkAlignmentThresholdPropertyInfo = Word64
type AttrLabel AudioBaseSinkAlignmentThresholdPropertyInfo = "alignment-threshold"
attrGet _ = getAudioBaseSinkAlignmentThreshold
attrSet _ = setAudioBaseSinkAlignmentThreshold
attrConstruct _ = constructAudioBaseSinkAlignmentThreshold
-- VVV Prop "buffer-time"
-- Type: TBasicType TInt64
-- Flags: [PropertyReadable,PropertyWritable]
getAudioBaseSinkBufferTime :: (MonadIO m, AudioBaseSinkK o) => o -> m Int64
getAudioBaseSinkBufferTime obj = liftIO $ getObjectPropertyInt64 obj "buffer-time"
setAudioBaseSinkBufferTime :: (MonadIO m, AudioBaseSinkK o) => o -> Int64 -> m ()
setAudioBaseSinkBufferTime obj val = liftIO $ setObjectPropertyInt64 obj "buffer-time" val
constructAudioBaseSinkBufferTime :: Int64 -> IO ([Char], GValue)
constructAudioBaseSinkBufferTime val = constructObjectPropertyInt64 "buffer-time" val
data AudioBaseSinkBufferTimePropertyInfo
instance AttrInfo AudioBaseSinkBufferTimePropertyInfo where
type AttrAllowedOps AudioBaseSinkBufferTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AudioBaseSinkBufferTimePropertyInfo = (~) Int64
type AttrBaseTypeConstraint AudioBaseSinkBufferTimePropertyInfo = AudioBaseSinkK
type AttrGetType AudioBaseSinkBufferTimePropertyInfo = Int64
type AttrLabel AudioBaseSinkBufferTimePropertyInfo = "buffer-time"
attrGet _ = getAudioBaseSinkBufferTime
attrSet _ = setAudioBaseSinkBufferTime
attrConstruct _ = constructAudioBaseSinkBufferTime
-- VVV Prop "can-activate-pull"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getAudioBaseSinkCanActivatePull :: (MonadIO m, AudioBaseSinkK o) => o -> m Bool
getAudioBaseSinkCanActivatePull obj = liftIO $ getObjectPropertyBool obj "can-activate-pull"
setAudioBaseSinkCanActivatePull :: (MonadIO m, AudioBaseSinkK o) => o -> Bool -> m ()
setAudioBaseSinkCanActivatePull obj val = liftIO $ setObjectPropertyBool obj "can-activate-pull" val
constructAudioBaseSinkCanActivatePull :: Bool -> IO ([Char], GValue)
constructAudioBaseSinkCanActivatePull val = constructObjectPropertyBool "can-activate-pull" val
data AudioBaseSinkCanActivatePullPropertyInfo
instance AttrInfo AudioBaseSinkCanActivatePullPropertyInfo where
type AttrAllowedOps AudioBaseSinkCanActivatePullPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AudioBaseSinkCanActivatePullPropertyInfo = (~) Bool
type AttrBaseTypeConstraint AudioBaseSinkCanActivatePullPropertyInfo = AudioBaseSinkK
type AttrGetType AudioBaseSinkCanActivatePullPropertyInfo = Bool
type AttrLabel AudioBaseSinkCanActivatePullPropertyInfo = "can-activate-pull"
attrGet _ = getAudioBaseSinkCanActivatePull
attrSet _ = setAudioBaseSinkCanActivatePull
attrConstruct _ = constructAudioBaseSinkCanActivatePull
-- VVV Prop "discont-wait"
-- Type: TBasicType TUInt64
-- Flags: [PropertyReadable,PropertyWritable]
getAudioBaseSinkDiscontWait :: (MonadIO m, AudioBaseSinkK o) => o -> m Word64
getAudioBaseSinkDiscontWait obj = liftIO $ getObjectPropertyUInt64 obj "discont-wait"
setAudioBaseSinkDiscontWait :: (MonadIO m, AudioBaseSinkK o) => o -> Word64 -> m ()
setAudioBaseSinkDiscontWait obj val = liftIO $ setObjectPropertyUInt64 obj "discont-wait" val
constructAudioBaseSinkDiscontWait :: Word64 -> IO ([Char], GValue)
constructAudioBaseSinkDiscontWait val = constructObjectPropertyUInt64 "discont-wait" val
data AudioBaseSinkDiscontWaitPropertyInfo
instance AttrInfo AudioBaseSinkDiscontWaitPropertyInfo where
type AttrAllowedOps AudioBaseSinkDiscontWaitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AudioBaseSinkDiscontWaitPropertyInfo = (~) Word64
type AttrBaseTypeConstraint AudioBaseSinkDiscontWaitPropertyInfo = AudioBaseSinkK
type AttrGetType AudioBaseSinkDiscontWaitPropertyInfo = Word64
type AttrLabel AudioBaseSinkDiscontWaitPropertyInfo = "discont-wait"
attrGet _ = getAudioBaseSinkDiscontWait
attrSet _ = setAudioBaseSinkDiscontWait
attrConstruct _ = constructAudioBaseSinkDiscontWait
-- VVV Prop "drift-tolerance"
-- Type: TBasicType TInt64
-- Flags: [PropertyReadable,PropertyWritable]
getAudioBaseSinkDriftTolerance :: (MonadIO m, AudioBaseSinkK o) => o -> m Int64
getAudioBaseSinkDriftTolerance obj = liftIO $ getObjectPropertyInt64 obj "drift-tolerance"
setAudioBaseSinkDriftTolerance :: (MonadIO m, AudioBaseSinkK o) => o -> Int64 -> m ()
setAudioBaseSinkDriftTolerance obj val = liftIO $ setObjectPropertyInt64 obj "drift-tolerance" val
constructAudioBaseSinkDriftTolerance :: Int64 -> IO ([Char], GValue)
constructAudioBaseSinkDriftTolerance val = constructObjectPropertyInt64 "drift-tolerance" val
data AudioBaseSinkDriftTolerancePropertyInfo
instance AttrInfo AudioBaseSinkDriftTolerancePropertyInfo where
type AttrAllowedOps AudioBaseSinkDriftTolerancePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AudioBaseSinkDriftTolerancePropertyInfo = (~) Int64
type AttrBaseTypeConstraint AudioBaseSinkDriftTolerancePropertyInfo = AudioBaseSinkK
type AttrGetType AudioBaseSinkDriftTolerancePropertyInfo = Int64
type AttrLabel AudioBaseSinkDriftTolerancePropertyInfo = "drift-tolerance"
attrGet _ = getAudioBaseSinkDriftTolerance
attrSet _ = setAudioBaseSinkDriftTolerance
attrConstruct _ = constructAudioBaseSinkDriftTolerance
-- VVV Prop "latency-time"
-- Type: TBasicType TInt64
-- Flags: [PropertyReadable,PropertyWritable]
getAudioBaseSinkLatencyTime :: (MonadIO m, AudioBaseSinkK o) => o -> m Int64
getAudioBaseSinkLatencyTime obj = liftIO $ getObjectPropertyInt64 obj "latency-time"
setAudioBaseSinkLatencyTime :: (MonadIO m, AudioBaseSinkK o) => o -> Int64 -> m ()
setAudioBaseSinkLatencyTime obj val = liftIO $ setObjectPropertyInt64 obj "latency-time" val
constructAudioBaseSinkLatencyTime :: Int64 -> IO ([Char], GValue)
constructAudioBaseSinkLatencyTime val = constructObjectPropertyInt64 "latency-time" val
data AudioBaseSinkLatencyTimePropertyInfo
instance AttrInfo AudioBaseSinkLatencyTimePropertyInfo where
type AttrAllowedOps AudioBaseSinkLatencyTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AudioBaseSinkLatencyTimePropertyInfo = (~) Int64
type AttrBaseTypeConstraint AudioBaseSinkLatencyTimePropertyInfo = AudioBaseSinkK
type AttrGetType AudioBaseSinkLatencyTimePropertyInfo = Int64
type AttrLabel AudioBaseSinkLatencyTimePropertyInfo = "latency-time"
attrGet _ = getAudioBaseSinkLatencyTime
attrSet _ = setAudioBaseSinkLatencyTime
attrConstruct _ = constructAudioBaseSinkLatencyTime
-- VVV Prop "provide-clock"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getAudioBaseSinkProvideClock :: (MonadIO m, AudioBaseSinkK o) => o -> m Bool
getAudioBaseSinkProvideClock obj = liftIO $ getObjectPropertyBool obj "provide-clock"
setAudioBaseSinkProvideClock :: (MonadIO m, AudioBaseSinkK o) => o -> Bool -> m ()
setAudioBaseSinkProvideClock obj val = liftIO $ setObjectPropertyBool obj "provide-clock" val
constructAudioBaseSinkProvideClock :: Bool -> IO ([Char], GValue)
constructAudioBaseSinkProvideClock val = constructObjectPropertyBool "provide-clock" val
data AudioBaseSinkProvideClockPropertyInfo
instance AttrInfo AudioBaseSinkProvideClockPropertyInfo where
type AttrAllowedOps AudioBaseSinkProvideClockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AudioBaseSinkProvideClockPropertyInfo = (~) Bool
type AttrBaseTypeConstraint AudioBaseSinkProvideClockPropertyInfo = AudioBaseSinkK
type AttrGetType AudioBaseSinkProvideClockPropertyInfo = Bool
type AttrLabel AudioBaseSinkProvideClockPropertyInfo = "provide-clock"
attrGet _ = getAudioBaseSinkProvideClock
attrSet _ = setAudioBaseSinkProvideClock
attrConstruct _ = constructAudioBaseSinkProvideClock
-- VVV Prop "slave-method"
-- Type: TInterface "GstAudio" "AudioBaseSinkSlaveMethod"
-- Flags: [PropertyReadable,PropertyWritable]
getAudioBaseSinkSlaveMethod :: (MonadIO m, AudioBaseSinkK o) => o -> m AudioBaseSinkSlaveMethod
getAudioBaseSinkSlaveMethod obj = liftIO $ getObjectPropertyEnum obj "slave-method"
setAudioBaseSinkSlaveMethod :: (MonadIO m, AudioBaseSinkK o) => o -> AudioBaseSinkSlaveMethod -> m ()
setAudioBaseSinkSlaveMethod obj val = liftIO $ setObjectPropertyEnum obj "slave-method" val
constructAudioBaseSinkSlaveMethod :: AudioBaseSinkSlaveMethod -> IO ([Char], GValue)
constructAudioBaseSinkSlaveMethod val = constructObjectPropertyEnum "slave-method" val
data AudioBaseSinkSlaveMethodPropertyInfo
instance AttrInfo AudioBaseSinkSlaveMethodPropertyInfo where
type AttrAllowedOps AudioBaseSinkSlaveMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint AudioBaseSinkSlaveMethodPropertyInfo = (~) AudioBaseSinkSlaveMethod
type AttrBaseTypeConstraint AudioBaseSinkSlaveMethodPropertyInfo = AudioBaseSinkK
type AttrGetType AudioBaseSinkSlaveMethodPropertyInfo = AudioBaseSinkSlaveMethod
type AttrLabel AudioBaseSinkSlaveMethodPropertyInfo = "slave-method"
attrGet _ = getAudioBaseSinkSlaveMethod
attrSet _ = setAudioBaseSinkSlaveMethod
attrConstruct _ = constructAudioBaseSinkSlaveMethod
type instance AttributeList AudioBaseSink = AudioBaseSinkAttributeList
type AudioBaseSinkAttributeList = ('[ '("alignmentThreshold", AudioBaseSinkAlignmentThresholdPropertyInfo), '("async", GstBase.BaseSinkAsyncPropertyInfo), '("blocksize", GstBase.BaseSinkBlocksizePropertyInfo), '("bufferTime", AudioBaseSinkBufferTimePropertyInfo), '("canActivatePull", AudioBaseSinkCanActivatePullPropertyInfo), '("discontWait", AudioBaseSinkDiscontWaitPropertyInfo), '("driftTolerance", AudioBaseSinkDriftTolerancePropertyInfo), '("enableLastSample", GstBase.BaseSinkEnableLastSamplePropertyInfo), '("lastSample", GstBase.BaseSinkLastSamplePropertyInfo), '("latencyTime", AudioBaseSinkLatencyTimePropertyInfo), '("maxBitrate", GstBase.BaseSinkMaxBitratePropertyInfo), '("maxLateness", GstBase.BaseSinkMaxLatenessPropertyInfo), '("name", Gst.ObjectNamePropertyInfo), '("parent", Gst.ObjectParentPropertyInfo), '("provideClock", AudioBaseSinkProvideClockPropertyInfo), '("qos", GstBase.BaseSinkQosPropertyInfo), '("renderDelay", GstBase.BaseSinkRenderDelayPropertyInfo), '("slaveMethod", AudioBaseSinkSlaveMethodPropertyInfo), '("sync", GstBase.BaseSinkSyncPropertyInfo), '("throttleTime", GstBase.BaseSinkThrottleTimePropertyInfo), '("tsOffset", GstBase.BaseSinkTsOffsetPropertyInfo)] :: [(Symbol, *)])
type instance SignalList AudioBaseSink = AudioBaseSinkSignalList
type AudioBaseSinkSignalList = ('[ '("deepNotify", Gst.ObjectDeepNotifySignalInfo), '("noMorePads", Gst.ElementNoMorePadsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("padAdded", Gst.ElementPadAddedSignalInfo), '("padRemoved", Gst.ElementPadRemovedSignalInfo)] :: [(Symbol, *)])
-- method AudioBaseSink::create_ringbuffer
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioBaseSink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "GstAudio" "AudioRingBuffer"
-- throws : False
-- Skip return : False
foreign import ccall "gst_audio_base_sink_create_ringbuffer" gst_audio_base_sink_create_ringbuffer ::
Ptr AudioBaseSink -> -- _obj : TInterface "GstAudio" "AudioBaseSink"
IO (Ptr AudioRingBuffer)
audioBaseSinkCreateRingbuffer ::
(MonadIO m, AudioBaseSinkK a) =>
a -- _obj
-> m AudioRingBuffer -- result
audioBaseSinkCreateRingbuffer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_base_sink_create_ringbuffer _obj'
checkUnexpectedReturnNULL "gst_audio_base_sink_create_ringbuffer" result
result' <- (newObject AudioRingBuffer) result
touchManagedPtr _obj
return result'
data AudioBaseSinkCreateRingbufferMethodInfo
instance (signature ~ (m AudioRingBuffer), MonadIO m, AudioBaseSinkK a) => MethodInfo AudioBaseSinkCreateRingbufferMethodInfo a signature where
overloadedMethod _ = audioBaseSinkCreateRingbuffer
-- method AudioBaseSink::get_alignment_threshold
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioBaseSink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt64
-- throws : False
-- Skip return : False
foreign import ccall "gst_audio_base_sink_get_alignment_threshold" gst_audio_base_sink_get_alignment_threshold ::
Ptr AudioBaseSink -> -- _obj : TInterface "GstAudio" "AudioBaseSink"
IO Word64
audioBaseSinkGetAlignmentThreshold ::
(MonadIO m, AudioBaseSinkK a) =>
a -- _obj
-> m Word64 -- result
audioBaseSinkGetAlignmentThreshold _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_base_sink_get_alignment_threshold _obj'
touchManagedPtr _obj
return result
data AudioBaseSinkGetAlignmentThresholdMethodInfo
instance (signature ~ (m Word64), MonadIO m, AudioBaseSinkK a) => MethodInfo AudioBaseSinkGetAlignmentThresholdMethodInfo a signature where
overloadedMethod _ = audioBaseSinkGetAlignmentThreshold
-- method AudioBaseSink::get_discont_wait
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioBaseSink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt64
-- throws : False
-- Skip return : False
foreign import ccall "gst_audio_base_sink_get_discont_wait" gst_audio_base_sink_get_discont_wait ::
Ptr AudioBaseSink -> -- _obj : TInterface "GstAudio" "AudioBaseSink"
IO Word64
audioBaseSinkGetDiscontWait ::
(MonadIO m, AudioBaseSinkK a) =>
a -- _obj
-> m Word64 -- result
audioBaseSinkGetDiscontWait _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_base_sink_get_discont_wait _obj'
touchManagedPtr _obj
return result
data AudioBaseSinkGetDiscontWaitMethodInfo
instance (signature ~ (m Word64), MonadIO m, AudioBaseSinkK a) => MethodInfo AudioBaseSinkGetDiscontWaitMethodInfo a signature where
overloadedMethod _ = audioBaseSinkGetDiscontWait
-- method AudioBaseSink::get_drift_tolerance
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioBaseSink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt64
-- throws : False
-- Skip return : False
foreign import ccall "gst_audio_base_sink_get_drift_tolerance" gst_audio_base_sink_get_drift_tolerance ::
Ptr AudioBaseSink -> -- _obj : TInterface "GstAudio" "AudioBaseSink"
IO Int64
audioBaseSinkGetDriftTolerance ::
(MonadIO m, AudioBaseSinkK a) =>
a -- _obj
-> m Int64 -- result
audioBaseSinkGetDriftTolerance _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_base_sink_get_drift_tolerance _obj'
touchManagedPtr _obj
return result
data AudioBaseSinkGetDriftToleranceMethodInfo
instance (signature ~ (m Int64), MonadIO m, AudioBaseSinkK a) => MethodInfo AudioBaseSinkGetDriftToleranceMethodInfo a signature where
overloadedMethod _ = audioBaseSinkGetDriftTolerance
-- method AudioBaseSink::get_provide_clock
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioBaseSink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gst_audio_base_sink_get_provide_clock" gst_audio_base_sink_get_provide_clock ::
Ptr AudioBaseSink -> -- _obj : TInterface "GstAudio" "AudioBaseSink"
IO CInt
audioBaseSinkGetProvideClock ::
(MonadIO m, AudioBaseSinkK a) =>
a -- _obj
-> m Bool -- result
audioBaseSinkGetProvideClock _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_base_sink_get_provide_clock _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data AudioBaseSinkGetProvideClockMethodInfo
instance (signature ~ (m Bool), MonadIO m, AudioBaseSinkK a) => MethodInfo AudioBaseSinkGetProvideClockMethodInfo a signature where
overloadedMethod _ = audioBaseSinkGetProvideClock
-- method AudioBaseSink::get_slave_method
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioBaseSink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "GstAudio" "AudioBaseSinkSlaveMethod"
-- throws : False
-- Skip return : False
foreign import ccall "gst_audio_base_sink_get_slave_method" gst_audio_base_sink_get_slave_method ::
Ptr AudioBaseSink -> -- _obj : TInterface "GstAudio" "AudioBaseSink"
IO CUInt
audioBaseSinkGetSlaveMethod ::
(MonadIO m, AudioBaseSinkK a) =>
a -- _obj
-> m AudioBaseSinkSlaveMethod -- result
audioBaseSinkGetSlaveMethod _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_base_sink_get_slave_method _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data AudioBaseSinkGetSlaveMethodMethodInfo
instance (signature ~ (m AudioBaseSinkSlaveMethod), MonadIO m, AudioBaseSinkK a) => MethodInfo AudioBaseSinkGetSlaveMethodMethodInfo a signature where
overloadedMethod _ = audioBaseSinkGetSlaveMethod
-- method AudioBaseSink::report_device_failure
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioBaseSink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_audio_base_sink_report_device_failure" gst_audio_base_sink_report_device_failure ::
Ptr AudioBaseSink -> -- _obj : TInterface "GstAudio" "AudioBaseSink"
IO ()
audioBaseSinkReportDeviceFailure ::
(MonadIO m, AudioBaseSinkK a) =>
a -- _obj
-> m () -- result
audioBaseSinkReportDeviceFailure _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gst_audio_base_sink_report_device_failure _obj'
touchManagedPtr _obj
return ()
data AudioBaseSinkReportDeviceFailureMethodInfo
instance (signature ~ (m ()), MonadIO m, AudioBaseSinkK a) => MethodInfo AudioBaseSinkReportDeviceFailureMethodInfo a signature where
overloadedMethod _ = audioBaseSinkReportDeviceFailure
-- method AudioBaseSink::set_alignment_threshold
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioBaseSink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alignment_threshold", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_audio_base_sink_set_alignment_threshold" gst_audio_base_sink_set_alignment_threshold ::
Ptr AudioBaseSink -> -- _obj : TInterface "GstAudio" "AudioBaseSink"
Word64 -> -- alignment_threshold : TBasicType TUInt64
IO ()
audioBaseSinkSetAlignmentThreshold ::
(MonadIO m, AudioBaseSinkK a) =>
a -- _obj
-> Word64 -- alignmentThreshold
-> m () -- result
audioBaseSinkSetAlignmentThreshold _obj alignmentThreshold = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gst_audio_base_sink_set_alignment_threshold _obj' alignmentThreshold
touchManagedPtr _obj
return ()
data AudioBaseSinkSetAlignmentThresholdMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, AudioBaseSinkK a) => MethodInfo AudioBaseSinkSetAlignmentThresholdMethodInfo a signature where
overloadedMethod _ = audioBaseSinkSetAlignmentThreshold
-- method AudioBaseSink::set_custom_slaving_callback
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioBaseSink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "GstAudio" "AudioBaseSinkCustomSlavingCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_audio_base_sink_set_custom_slaving_callback" gst_audio_base_sink_set_custom_slaving_callback ::
Ptr AudioBaseSink -> -- _obj : TInterface "GstAudio" "AudioBaseSink"
FunPtr AudioBaseSinkCustomSlavingCallbackC -> -- callback : TInterface "GstAudio" "AudioBaseSinkCustomSlavingCallback"
Ptr () -> -- user_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify"
IO ()
audioBaseSinkSetCustomSlavingCallback ::
(MonadIO m, AudioBaseSinkK a) =>
a -- _obj
-> AudioBaseSinkCustomSlavingCallback -- callback
-> m () -- result
audioBaseSinkSetCustomSlavingCallback _obj callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
callback' <- mkAudioBaseSinkCustomSlavingCallback (audioBaseSinkCustomSlavingCallbackWrapper Nothing callback)
let userData = castFunPtrToPtr callback'
let notify = safeFreeFunPtrPtr
gst_audio_base_sink_set_custom_slaving_callback _obj' callback' userData notify
touchManagedPtr _obj
return ()
data AudioBaseSinkSetCustomSlavingCallbackMethodInfo
instance (signature ~ (AudioBaseSinkCustomSlavingCallback -> m ()), MonadIO m, AudioBaseSinkK a) => MethodInfo AudioBaseSinkSetCustomSlavingCallbackMethodInfo a signature where
overloadedMethod _ = audioBaseSinkSetCustomSlavingCallback
-- method AudioBaseSink::set_discont_wait
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioBaseSink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "discont_wait", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_audio_base_sink_set_discont_wait" gst_audio_base_sink_set_discont_wait ::
Ptr AudioBaseSink -> -- _obj : TInterface "GstAudio" "AudioBaseSink"
Word64 -> -- discont_wait : TBasicType TUInt64
IO ()
audioBaseSinkSetDiscontWait ::
(MonadIO m, AudioBaseSinkK a) =>
a -- _obj
-> Word64 -- discontWait
-> m () -- result
audioBaseSinkSetDiscontWait _obj discontWait = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gst_audio_base_sink_set_discont_wait _obj' discontWait
touchManagedPtr _obj
return ()
data AudioBaseSinkSetDiscontWaitMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, AudioBaseSinkK a) => MethodInfo AudioBaseSinkSetDiscontWaitMethodInfo a signature where
overloadedMethod _ = audioBaseSinkSetDiscontWait
-- method AudioBaseSink::set_drift_tolerance
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioBaseSink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drift_tolerance", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_audio_base_sink_set_drift_tolerance" gst_audio_base_sink_set_drift_tolerance ::
Ptr AudioBaseSink -> -- _obj : TInterface "GstAudio" "AudioBaseSink"
Int64 -> -- drift_tolerance : TBasicType TInt64
IO ()
audioBaseSinkSetDriftTolerance ::
(MonadIO m, AudioBaseSinkK a) =>
a -- _obj
-> Int64 -- driftTolerance
-> m () -- result
audioBaseSinkSetDriftTolerance _obj driftTolerance = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gst_audio_base_sink_set_drift_tolerance _obj' driftTolerance
touchManagedPtr _obj
return ()
data AudioBaseSinkSetDriftToleranceMethodInfo
instance (signature ~ (Int64 -> m ()), MonadIO m, AudioBaseSinkK a) => MethodInfo AudioBaseSinkSetDriftToleranceMethodInfo a signature where
overloadedMethod _ = audioBaseSinkSetDriftTolerance
-- method AudioBaseSink::set_provide_clock
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioBaseSink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "provide", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_audio_base_sink_set_provide_clock" gst_audio_base_sink_set_provide_clock ::
Ptr AudioBaseSink -> -- _obj : TInterface "GstAudio" "AudioBaseSink"
CInt -> -- provide : TBasicType TBoolean
IO ()
audioBaseSinkSetProvideClock ::
(MonadIO m, AudioBaseSinkK a) =>
a -- _obj
-> Bool -- provide
-> m () -- result
audioBaseSinkSetProvideClock _obj provide = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let provide' = (fromIntegral . fromEnum) provide
gst_audio_base_sink_set_provide_clock _obj' provide'
touchManagedPtr _obj
return ()
data AudioBaseSinkSetProvideClockMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, AudioBaseSinkK a) => MethodInfo AudioBaseSinkSetProvideClockMethodInfo a signature where
overloadedMethod _ = audioBaseSinkSetProvideClock
-- method AudioBaseSink::set_slave_method
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioBaseSink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method", argType = TInterface "GstAudio" "AudioBaseSinkSlaveMethod", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_audio_base_sink_set_slave_method" gst_audio_base_sink_set_slave_method ::
Ptr AudioBaseSink -> -- _obj : TInterface "GstAudio" "AudioBaseSink"
CUInt -> -- method : TInterface "GstAudio" "AudioBaseSinkSlaveMethod"
IO ()
audioBaseSinkSetSlaveMethod ::
(MonadIO m, AudioBaseSinkK a) =>
a -- _obj
-> AudioBaseSinkSlaveMethod -- method
-> m () -- result
audioBaseSinkSetSlaveMethod _obj method = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let method' = (fromIntegral . fromEnum) method
gst_audio_base_sink_set_slave_method _obj' method'
touchManagedPtr _obj
return ()
data AudioBaseSinkSetSlaveMethodMethodInfo
instance (signature ~ (AudioBaseSinkSlaveMethod -> m ()), MonadIO m, AudioBaseSinkK a) => MethodInfo AudioBaseSinkSetSlaveMethodMethodInfo a signature where
overloadedMethod _ = audioBaseSinkSetSlaveMethod