gi-gstaudio-0.1.6.13: GI/GstAudio/Objects/AudioRingBuffer.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.AudioRingBuffer
(
-- * Exported types
AudioRingBuffer(..) ,
AudioRingBufferK ,
toAudioRingBuffer ,
noAudioRingBuffer ,
-- * Methods
-- ** audioRingBufferAcquire
AudioRingBufferAcquireMethodInfo ,
audioRingBufferAcquire ,
-- ** audioRingBufferActivate
AudioRingBufferActivateMethodInfo ,
audioRingBufferActivate ,
-- ** audioRingBufferAdvance
AudioRingBufferAdvanceMethodInfo ,
audioRingBufferAdvance ,
-- ** audioRingBufferClear
AudioRingBufferClearMethodInfo ,
audioRingBufferClear ,
-- ** audioRingBufferClearAll
AudioRingBufferClearAllMethodInfo ,
audioRingBufferClearAll ,
-- ** audioRingBufferCloseDevice
AudioRingBufferCloseDeviceMethodInfo ,
audioRingBufferCloseDevice ,
-- ** audioRingBufferCommit
AudioRingBufferCommitMethodInfo ,
audioRingBufferCommit ,
-- ** audioRingBufferConvert
AudioRingBufferConvertMethodInfo ,
audioRingBufferConvert ,
-- ** audioRingBufferDebugSpecBuff
audioRingBufferDebugSpecBuff ,
-- ** audioRingBufferDebugSpecCaps
audioRingBufferDebugSpecCaps ,
-- ** audioRingBufferDelay
AudioRingBufferDelayMethodInfo ,
audioRingBufferDelay ,
-- ** audioRingBufferDeviceIsOpen
AudioRingBufferDeviceIsOpenMethodInfo ,
audioRingBufferDeviceIsOpen ,
-- ** audioRingBufferIsAcquired
AudioRingBufferIsAcquiredMethodInfo ,
audioRingBufferIsAcquired ,
-- ** audioRingBufferIsActive
AudioRingBufferIsActiveMethodInfo ,
audioRingBufferIsActive ,
-- ** audioRingBufferIsFlushing
AudioRingBufferIsFlushingMethodInfo ,
audioRingBufferIsFlushing ,
-- ** audioRingBufferMayStart
AudioRingBufferMayStartMethodInfo ,
audioRingBufferMayStart ,
-- ** audioRingBufferOpenDevice
AudioRingBufferOpenDeviceMethodInfo ,
audioRingBufferOpenDevice ,
-- ** audioRingBufferParseCaps
audioRingBufferParseCaps ,
-- ** audioRingBufferPause
AudioRingBufferPauseMethodInfo ,
audioRingBufferPause ,
-- ** audioRingBufferPrepareRead
AudioRingBufferPrepareReadMethodInfo ,
audioRingBufferPrepareRead ,
-- ** audioRingBufferRead
AudioRingBufferReadMethodInfo ,
audioRingBufferRead ,
-- ** audioRingBufferRelease
AudioRingBufferReleaseMethodInfo ,
audioRingBufferRelease ,
-- ** audioRingBufferSamplesDone
AudioRingBufferSamplesDoneMethodInfo ,
audioRingBufferSamplesDone ,
-- ** audioRingBufferSetCallback
AudioRingBufferSetCallbackMethodInfo ,
audioRingBufferSetCallback ,
-- ** audioRingBufferSetChannelPositions
AudioRingBufferSetChannelPositionsMethodInfo,
audioRingBufferSetChannelPositions ,
-- ** audioRingBufferSetFlushing
AudioRingBufferSetFlushingMethodInfo ,
audioRingBufferSetFlushing ,
-- ** audioRingBufferSetSample
AudioRingBufferSetSampleMethodInfo ,
audioRingBufferSetSample ,
-- ** audioRingBufferSetTimestamp
AudioRingBufferSetTimestampMethodInfo ,
audioRingBufferSetTimestamp ,
-- ** audioRingBufferStart
AudioRingBufferStartMethodInfo ,
audioRingBufferStart ,
-- ** audioRingBufferStop
AudioRingBufferStopMethodInfo ,
audioRingBufferStop ,
) 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.GObject as GObject
import qualified GI.Gst as Gst
newtype AudioRingBuffer = AudioRingBuffer (ForeignPtr AudioRingBuffer)
foreign import ccall "gst_audio_ring_buffer_get_type"
c_gst_audio_ring_buffer_get_type :: IO GType
type instance ParentTypes AudioRingBuffer = AudioRingBufferParentTypes
type AudioRingBufferParentTypes = '[Gst.Object, GObject.Object]
instance GObject AudioRingBuffer where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gst_audio_ring_buffer_get_type
class GObject o => AudioRingBufferK o
instance (GObject o, IsDescendantOf AudioRingBuffer o) => AudioRingBufferK o
toAudioRingBuffer :: AudioRingBufferK o => o -> IO AudioRingBuffer
toAudioRingBuffer = unsafeCastTo AudioRingBuffer
noAudioRingBuffer :: Maybe AudioRingBuffer
noAudioRingBuffer = Nothing
type family ResolveAudioRingBufferMethod (t :: Symbol) (o :: *) :: * where
ResolveAudioRingBufferMethod "acquire" o = AudioRingBufferAcquireMethodInfo
ResolveAudioRingBufferMethod "activate" o = AudioRingBufferActivateMethodInfo
ResolveAudioRingBufferMethod "addControlBinding" o = Gst.ObjectAddControlBindingMethodInfo
ResolveAudioRingBufferMethod "advance" o = AudioRingBufferAdvanceMethodInfo
ResolveAudioRingBufferMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveAudioRingBufferMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveAudioRingBufferMethod "clear" o = AudioRingBufferClearMethodInfo
ResolveAudioRingBufferMethod "clearAll" o = AudioRingBufferClearAllMethodInfo
ResolveAudioRingBufferMethod "closeDevice" o = AudioRingBufferCloseDeviceMethodInfo
ResolveAudioRingBufferMethod "commit" o = AudioRingBufferCommitMethodInfo
ResolveAudioRingBufferMethod "convert" o = AudioRingBufferConvertMethodInfo
ResolveAudioRingBufferMethod "defaultError" o = Gst.ObjectDefaultErrorMethodInfo
ResolveAudioRingBufferMethod "delay" o = AudioRingBufferDelayMethodInfo
ResolveAudioRingBufferMethod "deviceIsOpen" o = AudioRingBufferDeviceIsOpenMethodInfo
ResolveAudioRingBufferMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveAudioRingBufferMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveAudioRingBufferMethod "hasActiveControlBindings" o = Gst.ObjectHasActiveControlBindingsMethodInfo
ResolveAudioRingBufferMethod "hasAncestor" o = Gst.ObjectHasAncestorMethodInfo
ResolveAudioRingBufferMethod "hasAsAncestor" o = Gst.ObjectHasAsAncestorMethodInfo
ResolveAudioRingBufferMethod "hasAsParent" o = Gst.ObjectHasAsParentMethodInfo
ResolveAudioRingBufferMethod "isAcquired" o = AudioRingBufferIsAcquiredMethodInfo
ResolveAudioRingBufferMethod "isActive" o = AudioRingBufferIsActiveMethodInfo
ResolveAudioRingBufferMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveAudioRingBufferMethod "isFlushing" o = AudioRingBufferIsFlushingMethodInfo
ResolveAudioRingBufferMethod "mayStart" o = AudioRingBufferMayStartMethodInfo
ResolveAudioRingBufferMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveAudioRingBufferMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveAudioRingBufferMethod "openDevice" o = AudioRingBufferOpenDeviceMethodInfo
ResolveAudioRingBufferMethod "pause" o = AudioRingBufferPauseMethodInfo
ResolveAudioRingBufferMethod "prepareRead" o = AudioRingBufferPrepareReadMethodInfo
ResolveAudioRingBufferMethod "read" o = AudioRingBufferReadMethodInfo
ResolveAudioRingBufferMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveAudioRingBufferMethod "release" o = AudioRingBufferReleaseMethodInfo
ResolveAudioRingBufferMethod "removeControlBinding" o = Gst.ObjectRemoveControlBindingMethodInfo
ResolveAudioRingBufferMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveAudioRingBufferMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveAudioRingBufferMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveAudioRingBufferMethod "samplesDone" o = AudioRingBufferSamplesDoneMethodInfo
ResolveAudioRingBufferMethod "start" o = AudioRingBufferStartMethodInfo
ResolveAudioRingBufferMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveAudioRingBufferMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveAudioRingBufferMethod "stop" o = AudioRingBufferStopMethodInfo
ResolveAudioRingBufferMethod "suggestNextSync" o = Gst.ObjectSuggestNextSyncMethodInfo
ResolveAudioRingBufferMethod "syncValues" o = Gst.ObjectSyncValuesMethodInfo
ResolveAudioRingBufferMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveAudioRingBufferMethod "unparent" o = Gst.ObjectUnparentMethodInfo
ResolveAudioRingBufferMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveAudioRingBufferMethod "getControlBinding" o = Gst.ObjectGetControlBindingMethodInfo
ResolveAudioRingBufferMethod "getControlRate" o = Gst.ObjectGetControlRateMethodInfo
ResolveAudioRingBufferMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveAudioRingBufferMethod "getGValueArray" o = Gst.ObjectGetGValueArrayMethodInfo
ResolveAudioRingBufferMethod "getName" o = Gst.ObjectGetNameMethodInfo
ResolveAudioRingBufferMethod "getParent" o = Gst.ObjectGetParentMethodInfo
ResolveAudioRingBufferMethod "getPathString" o = Gst.ObjectGetPathStringMethodInfo
ResolveAudioRingBufferMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveAudioRingBufferMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveAudioRingBufferMethod "getValue" o = Gst.ObjectGetValueMethodInfo
ResolveAudioRingBufferMethod "getValueArray" o = Gst.ObjectGetValueArrayMethodInfo
ResolveAudioRingBufferMethod "setCallback" o = AudioRingBufferSetCallbackMethodInfo
ResolveAudioRingBufferMethod "setChannelPositions" o = AudioRingBufferSetChannelPositionsMethodInfo
ResolveAudioRingBufferMethod "setControlBindingDisabled" o = Gst.ObjectSetControlBindingDisabledMethodInfo
ResolveAudioRingBufferMethod "setControlBindingsDisabled" o = Gst.ObjectSetControlBindingsDisabledMethodInfo
ResolveAudioRingBufferMethod "setControlRate" o = Gst.ObjectSetControlRateMethodInfo
ResolveAudioRingBufferMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveAudioRingBufferMethod "setFlushing" o = AudioRingBufferSetFlushingMethodInfo
ResolveAudioRingBufferMethod "setName" o = Gst.ObjectSetNameMethodInfo
ResolveAudioRingBufferMethod "setParent" o = Gst.ObjectSetParentMethodInfo
ResolveAudioRingBufferMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveAudioRingBufferMethod "setSample" o = AudioRingBufferSetSampleMethodInfo
ResolveAudioRingBufferMethod "setTimestamp" o = AudioRingBufferSetTimestampMethodInfo
ResolveAudioRingBufferMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveAudioRingBufferMethod t AudioRingBuffer, MethodInfo info AudioRingBuffer p) => IsLabelProxy t (AudioRingBuffer -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveAudioRingBufferMethod t AudioRingBuffer, MethodInfo info AudioRingBuffer p) => IsLabel t (AudioRingBuffer -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
type instance AttributeList AudioRingBuffer = AudioRingBufferAttributeList
type AudioRingBufferAttributeList = ('[ '("name", Gst.ObjectNamePropertyInfo), '("parent", Gst.ObjectParentPropertyInfo)] :: [(Symbol, *)])
type instance SignalList AudioRingBuffer = AudioRingBufferSignalList
type AudioRingBufferSignalList = ('[ '("deepNotify", Gst.ObjectDeepNotifySignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method AudioRingBuffer::acquire
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spec", argType = TInterface "GstAudio" "AudioRingBufferSpec", 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_ring_buffer_acquire" gst_audio_ring_buffer_acquire ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
Ptr AudioRingBufferSpec -> -- spec : TInterface "GstAudio" "AudioRingBufferSpec"
IO CInt
audioRingBufferAcquire ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> AudioRingBufferSpec -- spec
-> m Bool -- result
audioRingBufferAcquire _obj spec = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let spec' = unsafeManagedPtrGetPtr spec
result <- gst_audio_ring_buffer_acquire _obj' spec'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr spec
return result'
data AudioRingBufferAcquireMethodInfo
instance (signature ~ (AudioRingBufferSpec -> m Bool), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferAcquireMethodInfo a signature where
overloadedMethod _ = audioRingBufferAcquire
-- method AudioRingBuffer::activate
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "active", argType = TBasicType TBoolean, 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_ring_buffer_activate" gst_audio_ring_buffer_activate ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
CInt -> -- active : TBasicType TBoolean
IO CInt
audioRingBufferActivate ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> Bool -- active
-> m Bool -- result
audioRingBufferActivate _obj active = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let active' = (fromIntegral . fromEnum) active
result <- gst_audio_ring_buffer_activate _obj' active'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data AudioRingBufferActivateMethodInfo
instance (signature ~ (Bool -> m Bool), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferActivateMethodInfo a signature where
overloadedMethod _ = audioRingBufferActivate
-- method AudioRingBuffer::advance
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "advance", argType = TBasicType TUInt32, 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_ring_buffer_advance" gst_audio_ring_buffer_advance ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
Word32 -> -- advance : TBasicType TUInt32
IO ()
audioRingBufferAdvance ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> Word32 -- advance
-> m () -- result
audioRingBufferAdvance _obj advance = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gst_audio_ring_buffer_advance _obj' advance
touchManagedPtr _obj
return ()
data AudioRingBufferAdvanceMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferAdvanceMethodInfo a signature where
overloadedMethod _ = audioRingBufferAdvance
-- method AudioRingBuffer::clear
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "segment", argType = TBasicType TInt32, 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_ring_buffer_clear" gst_audio_ring_buffer_clear ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
Int32 -> -- segment : TBasicType TInt32
IO ()
audioRingBufferClear ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> Int32 -- segment
-> m () -- result
audioRingBufferClear _obj segment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gst_audio_ring_buffer_clear _obj' segment
touchManagedPtr _obj
return ()
data AudioRingBufferClearMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferClearMethodInfo a signature where
overloadedMethod _ = audioRingBufferClear
-- method AudioRingBuffer::clear_all
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", 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_ring_buffer_clear_all" gst_audio_ring_buffer_clear_all ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
IO ()
audioRingBufferClearAll ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> m () -- result
audioRingBufferClearAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gst_audio_ring_buffer_clear_all _obj'
touchManagedPtr _obj
return ()
data AudioRingBufferClearAllMethodInfo
instance (signature ~ (m ()), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferClearAllMethodInfo a signature where
overloadedMethod _ = audioRingBufferClearAll
-- method AudioRingBuffer::close_device
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", 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_ring_buffer_close_device" gst_audio_ring_buffer_close_device ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
IO CInt
audioRingBufferCloseDevice ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> m Bool -- result
audioRingBufferCloseDevice _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_ring_buffer_close_device _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data AudioRingBufferCloseDeviceMethodInfo
instance (signature ~ (m Bool), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferCloseDeviceMethodInfo a signature where
overloadedMethod _ = audioRingBufferCloseDevice
-- method AudioRingBuffer::commit
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sample", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "in_samples", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_samples", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gst_audio_ring_buffer_commit" gst_audio_ring_buffer_commit ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
Word64 -> -- sample : TBasicType TUInt64
Word8 -> -- data : TBasicType TUInt8
Int32 -> -- in_samples : TBasicType TInt32
Int32 -> -- out_samples : TBasicType TInt32
Int32 -> -- accum : TBasicType TInt32
IO Word32
audioRingBufferCommit ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> Word64 -- sample
-> Word8 -- data_
-> Int32 -- inSamples
-> Int32 -- outSamples
-> Int32 -- accum
-> m Word32 -- result
audioRingBufferCommit _obj sample data_ inSamples outSamples accum = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_ring_buffer_commit _obj' sample data_ inSamples outSamples accum
touchManagedPtr _obj
return result
data AudioRingBufferCommitMethodInfo
instance (signature ~ (Word64 -> Word8 -> Int32 -> Int32 -> Int32 -> m Word32), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferCommitMethodInfo a signature where
overloadedMethod _ = audioRingBufferCommit
-- method AudioRingBuffer::convert
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_fmt", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_val", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_fmt", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_val", argType = TBasicType TInt64, 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_ring_buffer_convert" gst_audio_ring_buffer_convert ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
CUInt -> -- src_fmt : TInterface "Gst" "Format"
Int64 -> -- src_val : TBasicType TInt64
CUInt -> -- dest_fmt : TInterface "Gst" "Format"
Int64 -> -- dest_val : TBasicType TInt64
IO CInt
audioRingBufferConvert ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> Gst.Format -- srcFmt
-> Int64 -- srcVal
-> Gst.Format -- destFmt
-> Int64 -- destVal
-> m Bool -- result
audioRingBufferConvert _obj srcFmt srcVal destFmt destVal = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let srcFmt' = (fromIntegral . fromEnum) srcFmt
let destFmt' = (fromIntegral . fromEnum) destFmt
result <- gst_audio_ring_buffer_convert _obj' srcFmt' srcVal destFmt' destVal
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data AudioRingBufferConvertMethodInfo
instance (signature ~ (Gst.Format -> Int64 -> Gst.Format -> Int64 -> m Bool), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferConvertMethodInfo a signature where
overloadedMethod _ = audioRingBufferConvert
-- method AudioRingBuffer::delay
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gst_audio_ring_buffer_delay" gst_audio_ring_buffer_delay ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
IO Word32
audioRingBufferDelay ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> m Word32 -- result
audioRingBufferDelay _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_ring_buffer_delay _obj'
touchManagedPtr _obj
return result
data AudioRingBufferDelayMethodInfo
instance (signature ~ (m Word32), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferDelayMethodInfo a signature where
overloadedMethod _ = audioRingBufferDelay
-- method AudioRingBuffer::device_is_open
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", 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_ring_buffer_device_is_open" gst_audio_ring_buffer_device_is_open ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
IO CInt
audioRingBufferDeviceIsOpen ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> m Bool -- result
audioRingBufferDeviceIsOpen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_ring_buffer_device_is_open _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data AudioRingBufferDeviceIsOpenMethodInfo
instance (signature ~ (m Bool), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferDeviceIsOpenMethodInfo a signature where
overloadedMethod _ = audioRingBufferDeviceIsOpen
-- method AudioRingBuffer::is_acquired
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", 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_ring_buffer_is_acquired" gst_audio_ring_buffer_is_acquired ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
IO CInt
audioRingBufferIsAcquired ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> m Bool -- result
audioRingBufferIsAcquired _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_ring_buffer_is_acquired _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data AudioRingBufferIsAcquiredMethodInfo
instance (signature ~ (m Bool), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferIsAcquiredMethodInfo a signature where
overloadedMethod _ = audioRingBufferIsAcquired
-- method AudioRingBuffer::is_active
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", 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_ring_buffer_is_active" gst_audio_ring_buffer_is_active ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
IO CInt
audioRingBufferIsActive ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> m Bool -- result
audioRingBufferIsActive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_ring_buffer_is_active _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data AudioRingBufferIsActiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferIsActiveMethodInfo a signature where
overloadedMethod _ = audioRingBufferIsActive
-- method AudioRingBuffer::is_flushing
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", 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_ring_buffer_is_flushing" gst_audio_ring_buffer_is_flushing ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
IO CInt
audioRingBufferIsFlushing ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> m Bool -- result
audioRingBufferIsFlushing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_ring_buffer_is_flushing _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data AudioRingBufferIsFlushingMethodInfo
instance (signature ~ (m Bool), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferIsFlushingMethodInfo a signature where
overloadedMethod _ = audioRingBufferIsFlushing
-- method AudioRingBuffer::may_start
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", 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_ring_buffer_may_start" gst_audio_ring_buffer_may_start ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
CInt -> -- allowed : TBasicType TBoolean
IO ()
audioRingBufferMayStart ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> Bool -- allowed
-> m () -- result
audioRingBufferMayStart _obj allowed = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let allowed' = (fromIntegral . fromEnum) allowed
gst_audio_ring_buffer_may_start _obj' allowed'
touchManagedPtr _obj
return ()
data AudioRingBufferMayStartMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferMayStartMethodInfo a signature where
overloadedMethod _ = audioRingBufferMayStart
-- method AudioRingBuffer::open_device
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", 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_ring_buffer_open_device" gst_audio_ring_buffer_open_device ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
IO CInt
audioRingBufferOpenDevice ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> m Bool -- result
audioRingBufferOpenDevice _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_ring_buffer_open_device _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data AudioRingBufferOpenDeviceMethodInfo
instance (signature ~ (m Bool), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferOpenDeviceMethodInfo a signature where
overloadedMethod _ = audioRingBufferOpenDevice
-- method AudioRingBuffer::pause
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", 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_ring_buffer_pause" gst_audio_ring_buffer_pause ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
IO CInt
audioRingBufferPause ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> m Bool -- result
audioRingBufferPause _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_ring_buffer_pause _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data AudioRingBufferPauseMethodInfo
instance (signature ~ (m Bool), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferPauseMethodInfo a signature where
overloadedMethod _ = audioRingBufferPause
-- method AudioRingBuffer::prepare_read
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "segment", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "readptr", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, 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_ring_buffer_prepare_read" gst_audio_ring_buffer_prepare_read ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
Int32 -> -- segment : TBasicType TInt32
Word8 -> -- readptr : TBasicType TUInt8
Int32 -> -- len : TBasicType TInt32
IO CInt
audioRingBufferPrepareRead ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> Int32 -- segment
-> Word8 -- readptr
-> Int32 -- len
-> m Bool -- result
audioRingBufferPrepareRead _obj segment readptr len = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_ring_buffer_prepare_read _obj' segment readptr len
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data AudioRingBufferPrepareReadMethodInfo
instance (signature ~ (Int32 -> Word8 -> Int32 -> m Bool), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferPrepareReadMethodInfo a signature where
overloadedMethod _ = audioRingBufferPrepareRead
-- method AudioRingBuffer::read
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sample", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gst_audio_ring_buffer_read" gst_audio_ring_buffer_read ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
Word64 -> -- sample : TBasicType TUInt64
Word8 -> -- data : TBasicType TUInt8
Word32 -> -- len : TBasicType TUInt32
Word64 -> -- timestamp : TBasicType TUInt64
IO Word32
audioRingBufferRead ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> Word64 -- sample
-> Word8 -- data_
-> Word32 -- len
-> Word64 -- timestamp
-> m Word32 -- result
audioRingBufferRead _obj sample data_ len timestamp = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_ring_buffer_read _obj' sample data_ len timestamp
touchManagedPtr _obj
return result
data AudioRingBufferReadMethodInfo
instance (signature ~ (Word64 -> Word8 -> Word32 -> Word64 -> m Word32), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferReadMethodInfo a signature where
overloadedMethod _ = audioRingBufferRead
-- method AudioRingBuffer::release
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", 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_ring_buffer_release" gst_audio_ring_buffer_release ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
IO CInt
audioRingBufferRelease ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> m Bool -- result
audioRingBufferRelease _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_ring_buffer_release _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data AudioRingBufferReleaseMethodInfo
instance (signature ~ (m Bool), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferReleaseMethodInfo a signature where
overloadedMethod _ = audioRingBufferRelease
-- method AudioRingBuffer::samples_done
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", 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_ring_buffer_samples_done" gst_audio_ring_buffer_samples_done ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
IO Word64
audioRingBufferSamplesDone ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> m Word64 -- result
audioRingBufferSamplesDone _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_ring_buffer_samples_done _obj'
touchManagedPtr _obj
return result
data AudioRingBufferSamplesDoneMethodInfo
instance (signature ~ (m Word64), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferSamplesDoneMethodInfo a signature where
overloadedMethod _ = audioRingBufferSamplesDone
-- method AudioRingBuffer::set_callback
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cb", argType = TInterface "GstAudio" "AudioRingBufferCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, 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}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_audio_ring_buffer_set_callback" gst_audio_ring_buffer_set_callback ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
FunPtr AudioRingBufferCallbackC -> -- cb : TInterface "GstAudio" "AudioRingBufferCallback"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
audioRingBufferSetCallback ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> AudioRingBufferCallback -- cb
-> m () -- result
audioRingBufferSetCallback _obj cb = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
ptrcb <- callocMem :: IO (Ptr (FunPtr AudioRingBufferCallbackC))
cb' <- mkAudioRingBufferCallback (audioRingBufferCallbackWrapper (Just ptrcb) cb)
poke ptrcb cb'
let userData = nullPtr
gst_audio_ring_buffer_set_callback _obj' cb' userData
touchManagedPtr _obj
return ()
data AudioRingBufferSetCallbackMethodInfo
instance (signature ~ (AudioRingBufferCallback -> m ()), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferSetCallbackMethodInfo a signature where
overloadedMethod _ = audioRingBufferSetCallback
-- method AudioRingBuffer::set_channel_positions
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "GstAudio" "AudioChannelPosition", 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_ring_buffer_set_channel_positions" gst_audio_ring_buffer_set_channel_positions ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
CUInt -> -- position : TInterface "GstAudio" "AudioChannelPosition"
IO ()
audioRingBufferSetChannelPositions ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> AudioChannelPosition -- position
-> m () -- result
audioRingBufferSetChannelPositions _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let position' = (fromIntegral . fromEnum) position
gst_audio_ring_buffer_set_channel_positions _obj' position'
touchManagedPtr _obj
return ()
data AudioRingBufferSetChannelPositionsMethodInfo
instance (signature ~ (AudioChannelPosition -> m ()), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferSetChannelPositionsMethodInfo a signature where
overloadedMethod _ = audioRingBufferSetChannelPositions
-- method AudioRingBuffer::set_flushing
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flushing", 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_ring_buffer_set_flushing" gst_audio_ring_buffer_set_flushing ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
CInt -> -- flushing : TBasicType TBoolean
IO ()
audioRingBufferSetFlushing ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> Bool -- flushing
-> m () -- result
audioRingBufferSetFlushing _obj flushing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flushing' = (fromIntegral . fromEnum) flushing
gst_audio_ring_buffer_set_flushing _obj' flushing'
touchManagedPtr _obj
return ()
data AudioRingBufferSetFlushingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferSetFlushingMethodInfo a signature where
overloadedMethod _ = audioRingBufferSetFlushing
-- method AudioRingBuffer::set_sample
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sample", 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_ring_buffer_set_sample" gst_audio_ring_buffer_set_sample ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
Word64 -> -- sample : TBasicType TUInt64
IO ()
audioRingBufferSetSample ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> Word64 -- sample
-> m () -- result
audioRingBufferSetSample _obj sample = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gst_audio_ring_buffer_set_sample _obj' sample
touchManagedPtr _obj
return ()
data AudioRingBufferSetSampleMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferSetSampleMethodInfo a signature where
overloadedMethod _ = audioRingBufferSetSample
-- method AudioRingBuffer::set_timestamp
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "readseg", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", 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_ring_buffer_set_timestamp" gst_audio_ring_buffer_set_timestamp ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
Int32 -> -- readseg : TBasicType TInt32
Word64 -> -- timestamp : TBasicType TUInt64
IO ()
audioRingBufferSetTimestamp ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> Int32 -- readseg
-> Word64 -- timestamp
-> m () -- result
audioRingBufferSetTimestamp _obj readseg timestamp = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gst_audio_ring_buffer_set_timestamp _obj' readseg timestamp
touchManagedPtr _obj
return ()
data AudioRingBufferSetTimestampMethodInfo
instance (signature ~ (Int32 -> Word64 -> m ()), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferSetTimestampMethodInfo a signature where
overloadedMethod _ = audioRingBufferSetTimestamp
-- method AudioRingBuffer::start
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", 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_ring_buffer_start" gst_audio_ring_buffer_start ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
IO CInt
audioRingBufferStart ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> m Bool -- result
audioRingBufferStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_ring_buffer_start _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data AudioRingBufferStartMethodInfo
instance (signature ~ (m Bool), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferStartMethodInfo a signature where
overloadedMethod _ = audioRingBufferStart
-- method AudioRingBuffer::stop
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstAudio" "AudioRingBuffer", 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_ring_buffer_stop" gst_audio_ring_buffer_stop ::
Ptr AudioRingBuffer -> -- _obj : TInterface "GstAudio" "AudioRingBuffer"
IO CInt
audioRingBufferStop ::
(MonadIO m, AudioRingBufferK a) =>
a -- _obj
-> m Bool -- result
audioRingBufferStop _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_audio_ring_buffer_stop _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data AudioRingBufferStopMethodInfo
instance (signature ~ (m Bool), MonadIO m, AudioRingBufferK a) => MethodInfo AudioRingBufferStopMethodInfo a signature where
overloadedMethod _ = audioRingBufferStop
-- method AudioRingBuffer::debug_spec_buff
-- method type : MemberFunction
-- Args : [Arg {argCName = "spec", argType = TInterface "GstAudio" "AudioRingBufferSpec", 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_ring_buffer_debug_spec_buff" gst_audio_ring_buffer_debug_spec_buff ::
Ptr AudioRingBufferSpec -> -- spec : TInterface "GstAudio" "AudioRingBufferSpec"
IO ()
audioRingBufferDebugSpecBuff ::
(MonadIO m) =>
AudioRingBufferSpec -- spec
-> m () -- result
audioRingBufferDebugSpecBuff spec = liftIO $ do
let spec' = unsafeManagedPtrGetPtr spec
gst_audio_ring_buffer_debug_spec_buff spec'
touchManagedPtr spec
return ()
-- method AudioRingBuffer::debug_spec_caps
-- method type : MemberFunction
-- Args : [Arg {argCName = "spec", argType = TInterface "GstAudio" "AudioRingBufferSpec", 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_ring_buffer_debug_spec_caps" gst_audio_ring_buffer_debug_spec_caps ::
Ptr AudioRingBufferSpec -> -- spec : TInterface "GstAudio" "AudioRingBufferSpec"
IO ()
audioRingBufferDebugSpecCaps ::
(MonadIO m) =>
AudioRingBufferSpec -- spec
-> m () -- result
audioRingBufferDebugSpecCaps spec = liftIO $ do
let spec' = unsafeManagedPtrGetPtr spec
gst_audio_ring_buffer_debug_spec_caps spec'
touchManagedPtr spec
return ()
-- method AudioRingBuffer::parse_caps
-- method type : MemberFunction
-- Args : [Arg {argCName = "spec", argType = TInterface "GstAudio" "AudioRingBufferSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "caps", argType = TInterface "Gst" "Caps", 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_ring_buffer_parse_caps" gst_audio_ring_buffer_parse_caps ::
Ptr AudioRingBufferSpec -> -- spec : TInterface "GstAudio" "AudioRingBufferSpec"
Ptr Gst.Caps -> -- caps : TInterface "Gst" "Caps"
IO CInt
audioRingBufferParseCaps ::
(MonadIO m) =>
AudioRingBufferSpec -- spec
-> Gst.Caps -- caps
-> m Bool -- result
audioRingBufferParseCaps spec caps = liftIO $ do
let spec' = unsafeManagedPtrGetPtr spec
let caps' = unsafeManagedPtrGetPtr caps
result <- gst_audio_ring_buffer_parse_caps spec' caps'
let result' = (/= 0) result
touchManagedPtr spec
touchManagedPtr caps
return result'