gi-gstbase-0.1.6.13: GI/GstBase/Objects/BaseSrc.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.GstBase.Objects.BaseSrc
(
-- * Exported types
BaseSrc(..) ,
BaseSrcK ,
toBaseSrc ,
noBaseSrc ,
-- * Methods
-- ** baseSrcGetAllocator
BaseSrcGetAllocatorMethodInfo ,
baseSrcGetAllocator ,
-- ** baseSrcGetBlocksize
BaseSrcGetBlocksizeMethodInfo ,
baseSrcGetBlocksize ,
-- ** baseSrcGetBufferPool
BaseSrcGetBufferPoolMethodInfo ,
baseSrcGetBufferPool ,
-- ** baseSrcGetDoTimestamp
BaseSrcGetDoTimestampMethodInfo ,
baseSrcGetDoTimestamp ,
-- ** baseSrcIsAsync
BaseSrcIsAsyncMethodInfo ,
baseSrcIsAsync ,
-- ** baseSrcIsLive
BaseSrcIsLiveMethodInfo ,
baseSrcIsLive ,
-- ** baseSrcNewSeamlessSegment
BaseSrcNewSeamlessSegmentMethodInfo ,
baseSrcNewSeamlessSegment ,
-- ** baseSrcQueryLatency
BaseSrcQueryLatencyMethodInfo ,
baseSrcQueryLatency ,
-- ** baseSrcSetAsync
BaseSrcSetAsyncMethodInfo ,
baseSrcSetAsync ,
-- ** baseSrcSetAutomaticEos
BaseSrcSetAutomaticEosMethodInfo ,
baseSrcSetAutomaticEos ,
-- ** baseSrcSetBlocksize
BaseSrcSetBlocksizeMethodInfo ,
baseSrcSetBlocksize ,
-- ** baseSrcSetCaps
BaseSrcSetCapsMethodInfo ,
baseSrcSetCaps ,
-- ** baseSrcSetDoTimestamp
BaseSrcSetDoTimestampMethodInfo ,
baseSrcSetDoTimestamp ,
-- ** baseSrcSetDynamicSize
BaseSrcSetDynamicSizeMethodInfo ,
baseSrcSetDynamicSize ,
-- ** baseSrcSetFormat
BaseSrcSetFormatMethodInfo ,
baseSrcSetFormat ,
-- ** baseSrcSetLive
BaseSrcSetLiveMethodInfo ,
baseSrcSetLive ,
-- ** baseSrcStartComplete
BaseSrcStartCompleteMethodInfo ,
baseSrcStartComplete ,
-- ** baseSrcStartWait
BaseSrcStartWaitMethodInfo ,
baseSrcStartWait ,
-- ** baseSrcWaitPlaying
BaseSrcWaitPlayingMethodInfo ,
baseSrcWaitPlaying ,
-- * Properties
-- ** Blocksize
BaseSrcBlocksizePropertyInfo ,
constructBaseSrcBlocksize ,
getBaseSrcBlocksize ,
setBaseSrcBlocksize ,
-- ** DoTimestamp
BaseSrcDoTimestampPropertyInfo ,
constructBaseSrcDoTimestamp ,
getBaseSrcDoTimestamp ,
setBaseSrcDoTimestamp ,
-- ** NumBuffers
BaseSrcNumBuffersPropertyInfo ,
constructBaseSrcNumBuffers ,
getBaseSrcNumBuffers ,
setBaseSrcNumBuffers ,
-- ** Typefind
BaseSrcTypefindPropertyInfo ,
constructBaseSrcTypefind ,
getBaseSrcTypefind ,
setBaseSrcTypefind ,
) 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.GstBase.Types
import GI.GstBase.Callbacks
import qualified GI.GObject as GObject
import qualified GI.Gst as Gst
newtype BaseSrc = BaseSrc (ForeignPtr BaseSrc)
foreign import ccall "gst_base_src_get_type"
c_gst_base_src_get_type :: IO GType
type instance ParentTypes BaseSrc = BaseSrcParentTypes
type BaseSrcParentTypes = '[Gst.Element, Gst.Object, GObject.Object]
instance GObject BaseSrc where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gst_base_src_get_type
class GObject o => BaseSrcK o
instance (GObject o, IsDescendantOf BaseSrc o) => BaseSrcK o
toBaseSrc :: BaseSrcK o => o -> IO BaseSrc
toBaseSrc = unsafeCastTo BaseSrc
noBaseSrc :: Maybe BaseSrc
noBaseSrc = Nothing
type family ResolveBaseSrcMethod (t :: Symbol) (o :: *) :: * where
ResolveBaseSrcMethod "abortState" o = Gst.ElementAbortStateMethodInfo
ResolveBaseSrcMethod "addControlBinding" o = Gst.ObjectAddControlBindingMethodInfo
ResolveBaseSrcMethod "addPad" o = Gst.ElementAddPadMethodInfo
ResolveBaseSrcMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveBaseSrcMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveBaseSrcMethod "changeState" o = Gst.ElementChangeStateMethodInfo
ResolveBaseSrcMethod "continueState" o = Gst.ElementContinueStateMethodInfo
ResolveBaseSrcMethod "createAllPads" o = Gst.ElementCreateAllPadsMethodInfo
ResolveBaseSrcMethod "defaultError" o = Gst.ObjectDefaultErrorMethodInfo
ResolveBaseSrcMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveBaseSrcMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveBaseSrcMethod "hasActiveControlBindings" o = Gst.ObjectHasActiveControlBindingsMethodInfo
ResolveBaseSrcMethod "hasAncestor" o = Gst.ObjectHasAncestorMethodInfo
ResolveBaseSrcMethod "hasAsAncestor" o = Gst.ObjectHasAsAncestorMethodInfo
ResolveBaseSrcMethod "hasAsParent" o = Gst.ObjectHasAsParentMethodInfo
ResolveBaseSrcMethod "isAsync" o = BaseSrcIsAsyncMethodInfo
ResolveBaseSrcMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveBaseSrcMethod "isLive" o = BaseSrcIsLiveMethodInfo
ResolveBaseSrcMethod "isLockedState" o = Gst.ElementIsLockedStateMethodInfo
ResolveBaseSrcMethod "iteratePads" o = Gst.ElementIteratePadsMethodInfo
ResolveBaseSrcMethod "iterateSinkPads" o = Gst.ElementIterateSinkPadsMethodInfo
ResolveBaseSrcMethod "iterateSrcPads" o = Gst.ElementIterateSrcPadsMethodInfo
ResolveBaseSrcMethod "link" o = Gst.ElementLinkMethodInfo
ResolveBaseSrcMethod "linkFiltered" o = Gst.ElementLinkFilteredMethodInfo
ResolveBaseSrcMethod "linkPads" o = Gst.ElementLinkPadsMethodInfo
ResolveBaseSrcMethod "linkPadsFiltered" o = Gst.ElementLinkPadsFilteredMethodInfo
ResolveBaseSrcMethod "linkPadsFull" o = Gst.ElementLinkPadsFullMethodInfo
ResolveBaseSrcMethod "lostState" o = Gst.ElementLostStateMethodInfo
ResolveBaseSrcMethod "messageFull" o = Gst.ElementMessageFullMethodInfo
ResolveBaseSrcMethod "newSeamlessSegment" o = BaseSrcNewSeamlessSegmentMethodInfo
ResolveBaseSrcMethod "noMorePads" o = Gst.ElementNoMorePadsMethodInfo
ResolveBaseSrcMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveBaseSrcMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveBaseSrcMethod "postMessage" o = Gst.ElementPostMessageMethodInfo
ResolveBaseSrcMethod "provideClock" o = Gst.ElementProvideClockMethodInfo
ResolveBaseSrcMethod "query" o = Gst.ElementQueryMethodInfo
ResolveBaseSrcMethod "queryConvert" o = Gst.ElementQueryConvertMethodInfo
ResolveBaseSrcMethod "queryDuration" o = Gst.ElementQueryDurationMethodInfo
ResolveBaseSrcMethod "queryLatency" o = BaseSrcQueryLatencyMethodInfo
ResolveBaseSrcMethod "queryPosition" o = Gst.ElementQueryPositionMethodInfo
ResolveBaseSrcMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveBaseSrcMethod "releaseRequestPad" o = Gst.ElementReleaseRequestPadMethodInfo
ResolveBaseSrcMethod "removeControlBinding" o = Gst.ObjectRemoveControlBindingMethodInfo
ResolveBaseSrcMethod "removePad" o = Gst.ElementRemovePadMethodInfo
ResolveBaseSrcMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveBaseSrcMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveBaseSrcMethod "requestPad" o = Gst.ElementRequestPadMethodInfo
ResolveBaseSrcMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveBaseSrcMethod "seek" o = Gst.ElementSeekMethodInfo
ResolveBaseSrcMethod "seekSimple" o = Gst.ElementSeekSimpleMethodInfo
ResolveBaseSrcMethod "sendEvent" o = Gst.ElementSendEventMethodInfo
ResolveBaseSrcMethod "startComplete" o = BaseSrcStartCompleteMethodInfo
ResolveBaseSrcMethod "startWait" o = BaseSrcStartWaitMethodInfo
ResolveBaseSrcMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveBaseSrcMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveBaseSrcMethod "suggestNextSync" o = Gst.ObjectSuggestNextSyncMethodInfo
ResolveBaseSrcMethod "syncStateWithParent" o = Gst.ElementSyncStateWithParentMethodInfo
ResolveBaseSrcMethod "syncValues" o = Gst.ObjectSyncValuesMethodInfo
ResolveBaseSrcMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveBaseSrcMethod "unlink" o = Gst.ElementUnlinkMethodInfo
ResolveBaseSrcMethod "unlinkPads" o = Gst.ElementUnlinkPadsMethodInfo
ResolveBaseSrcMethod "unparent" o = Gst.ObjectUnparentMethodInfo
ResolveBaseSrcMethod "waitPlaying" o = BaseSrcWaitPlayingMethodInfo
ResolveBaseSrcMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveBaseSrcMethod "getAllocator" o = BaseSrcGetAllocatorMethodInfo
ResolveBaseSrcMethod "getBaseTime" o = Gst.ElementGetBaseTimeMethodInfo
ResolveBaseSrcMethod "getBlocksize" o = BaseSrcGetBlocksizeMethodInfo
ResolveBaseSrcMethod "getBufferPool" o = BaseSrcGetBufferPoolMethodInfo
ResolveBaseSrcMethod "getBus" o = Gst.ElementGetBusMethodInfo
ResolveBaseSrcMethod "getClock" o = Gst.ElementGetClockMethodInfo
ResolveBaseSrcMethod "getCompatiblePad" o = Gst.ElementGetCompatiblePadMethodInfo
ResolveBaseSrcMethod "getCompatiblePadTemplate" o = Gst.ElementGetCompatiblePadTemplateMethodInfo
ResolveBaseSrcMethod "getControlBinding" o = Gst.ObjectGetControlBindingMethodInfo
ResolveBaseSrcMethod "getControlRate" o = Gst.ObjectGetControlRateMethodInfo
ResolveBaseSrcMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveBaseSrcMethod "getDoTimestamp" o = BaseSrcGetDoTimestampMethodInfo
ResolveBaseSrcMethod "getFactory" o = Gst.ElementGetFactoryMethodInfo
ResolveBaseSrcMethod "getGValueArray" o = Gst.ObjectGetGValueArrayMethodInfo
ResolveBaseSrcMethod "getName" o = Gst.ObjectGetNameMethodInfo
ResolveBaseSrcMethod "getParent" o = Gst.ObjectGetParentMethodInfo
ResolveBaseSrcMethod "getPathString" o = Gst.ObjectGetPathStringMethodInfo
ResolveBaseSrcMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveBaseSrcMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveBaseSrcMethod "getRequestPad" o = Gst.ElementGetRequestPadMethodInfo
ResolveBaseSrcMethod "getStartTime" o = Gst.ElementGetStartTimeMethodInfo
ResolveBaseSrcMethod "getState" o = Gst.ElementGetStateMethodInfo
ResolveBaseSrcMethod "getStaticPad" o = Gst.ElementGetStaticPadMethodInfo
ResolveBaseSrcMethod "getValue" o = Gst.ObjectGetValueMethodInfo
ResolveBaseSrcMethod "getValueArray" o = Gst.ObjectGetValueArrayMethodInfo
ResolveBaseSrcMethod "setAsync" o = BaseSrcSetAsyncMethodInfo
ResolveBaseSrcMethod "setAutomaticEos" o = BaseSrcSetAutomaticEosMethodInfo
ResolveBaseSrcMethod "setBaseTime" o = Gst.ElementSetBaseTimeMethodInfo
ResolveBaseSrcMethod "setBlocksize" o = BaseSrcSetBlocksizeMethodInfo
ResolveBaseSrcMethod "setBus" o = Gst.ElementSetBusMethodInfo
ResolveBaseSrcMethod "setCaps" o = BaseSrcSetCapsMethodInfo
ResolveBaseSrcMethod "setClock" o = Gst.ElementSetClockMethodInfo
ResolveBaseSrcMethod "setContext" o = Gst.ElementSetContextMethodInfo
ResolveBaseSrcMethod "setControlBindingDisabled" o = Gst.ObjectSetControlBindingDisabledMethodInfo
ResolveBaseSrcMethod "setControlBindingsDisabled" o = Gst.ObjectSetControlBindingsDisabledMethodInfo
ResolveBaseSrcMethod "setControlRate" o = Gst.ObjectSetControlRateMethodInfo
ResolveBaseSrcMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveBaseSrcMethod "setDoTimestamp" o = BaseSrcSetDoTimestampMethodInfo
ResolveBaseSrcMethod "setDynamicSize" o = BaseSrcSetDynamicSizeMethodInfo
ResolveBaseSrcMethod "setFormat" o = BaseSrcSetFormatMethodInfo
ResolveBaseSrcMethod "setLive" o = BaseSrcSetLiveMethodInfo
ResolveBaseSrcMethod "setLockedState" o = Gst.ElementSetLockedStateMethodInfo
ResolveBaseSrcMethod "setName" o = Gst.ObjectSetNameMethodInfo
ResolveBaseSrcMethod "setParent" o = Gst.ObjectSetParentMethodInfo
ResolveBaseSrcMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveBaseSrcMethod "setStartTime" o = Gst.ElementSetStartTimeMethodInfo
ResolveBaseSrcMethod "setState" o = Gst.ElementSetStateMethodInfo
ResolveBaseSrcMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveBaseSrcMethod t BaseSrc, MethodInfo info BaseSrc p) => IsLabelProxy t (BaseSrc -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveBaseSrcMethod t BaseSrc, MethodInfo info BaseSrc p) => IsLabel t (BaseSrc -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- VVV Prop "blocksize"
-- Type: TBasicType TUInt32
-- Flags: [PropertyReadable,PropertyWritable]
getBaseSrcBlocksize :: (MonadIO m, BaseSrcK o) => o -> m Word32
getBaseSrcBlocksize obj = liftIO $ getObjectPropertyCUInt obj "blocksize"
setBaseSrcBlocksize :: (MonadIO m, BaseSrcK o) => o -> Word32 -> m ()
setBaseSrcBlocksize obj val = liftIO $ setObjectPropertyCUInt obj "blocksize" val
constructBaseSrcBlocksize :: Word32 -> IO ([Char], GValue)
constructBaseSrcBlocksize val = constructObjectPropertyCUInt "blocksize" val
data BaseSrcBlocksizePropertyInfo
instance AttrInfo BaseSrcBlocksizePropertyInfo where
type AttrAllowedOps BaseSrcBlocksizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint BaseSrcBlocksizePropertyInfo = (~) Word32
type AttrBaseTypeConstraint BaseSrcBlocksizePropertyInfo = BaseSrcK
type AttrGetType BaseSrcBlocksizePropertyInfo = Word32
type AttrLabel BaseSrcBlocksizePropertyInfo = "blocksize"
attrGet _ = getBaseSrcBlocksize
attrSet _ = setBaseSrcBlocksize
attrConstruct _ = constructBaseSrcBlocksize
-- VVV Prop "do-timestamp"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getBaseSrcDoTimestamp :: (MonadIO m, BaseSrcK o) => o -> m Bool
getBaseSrcDoTimestamp obj = liftIO $ getObjectPropertyBool obj "do-timestamp"
setBaseSrcDoTimestamp :: (MonadIO m, BaseSrcK o) => o -> Bool -> m ()
setBaseSrcDoTimestamp obj val = liftIO $ setObjectPropertyBool obj "do-timestamp" val
constructBaseSrcDoTimestamp :: Bool -> IO ([Char], GValue)
constructBaseSrcDoTimestamp val = constructObjectPropertyBool "do-timestamp" val
data BaseSrcDoTimestampPropertyInfo
instance AttrInfo BaseSrcDoTimestampPropertyInfo where
type AttrAllowedOps BaseSrcDoTimestampPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint BaseSrcDoTimestampPropertyInfo = (~) Bool
type AttrBaseTypeConstraint BaseSrcDoTimestampPropertyInfo = BaseSrcK
type AttrGetType BaseSrcDoTimestampPropertyInfo = Bool
type AttrLabel BaseSrcDoTimestampPropertyInfo = "do-timestamp"
attrGet _ = getBaseSrcDoTimestamp
attrSet _ = setBaseSrcDoTimestamp
attrConstruct _ = constructBaseSrcDoTimestamp
-- VVV Prop "num-buffers"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable]
getBaseSrcNumBuffers :: (MonadIO m, BaseSrcK o) => o -> m Int32
getBaseSrcNumBuffers obj = liftIO $ getObjectPropertyCInt obj "num-buffers"
setBaseSrcNumBuffers :: (MonadIO m, BaseSrcK o) => o -> Int32 -> m ()
setBaseSrcNumBuffers obj val = liftIO $ setObjectPropertyCInt obj "num-buffers" val
constructBaseSrcNumBuffers :: Int32 -> IO ([Char], GValue)
constructBaseSrcNumBuffers val = constructObjectPropertyCInt "num-buffers" val
data BaseSrcNumBuffersPropertyInfo
instance AttrInfo BaseSrcNumBuffersPropertyInfo where
type AttrAllowedOps BaseSrcNumBuffersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint BaseSrcNumBuffersPropertyInfo = (~) Int32
type AttrBaseTypeConstraint BaseSrcNumBuffersPropertyInfo = BaseSrcK
type AttrGetType BaseSrcNumBuffersPropertyInfo = Int32
type AttrLabel BaseSrcNumBuffersPropertyInfo = "num-buffers"
attrGet _ = getBaseSrcNumBuffers
attrSet _ = setBaseSrcNumBuffers
attrConstruct _ = constructBaseSrcNumBuffers
-- VVV Prop "typefind"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getBaseSrcTypefind :: (MonadIO m, BaseSrcK o) => o -> m Bool
getBaseSrcTypefind obj = liftIO $ getObjectPropertyBool obj "typefind"
setBaseSrcTypefind :: (MonadIO m, BaseSrcK o) => o -> Bool -> m ()
setBaseSrcTypefind obj val = liftIO $ setObjectPropertyBool obj "typefind" val
constructBaseSrcTypefind :: Bool -> IO ([Char], GValue)
constructBaseSrcTypefind val = constructObjectPropertyBool "typefind" val
data BaseSrcTypefindPropertyInfo
instance AttrInfo BaseSrcTypefindPropertyInfo where
type AttrAllowedOps BaseSrcTypefindPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint BaseSrcTypefindPropertyInfo = (~) Bool
type AttrBaseTypeConstraint BaseSrcTypefindPropertyInfo = BaseSrcK
type AttrGetType BaseSrcTypefindPropertyInfo = Bool
type AttrLabel BaseSrcTypefindPropertyInfo = "typefind"
attrGet _ = getBaseSrcTypefind
attrSet _ = setBaseSrcTypefind
attrConstruct _ = constructBaseSrcTypefind
type instance AttributeList BaseSrc = BaseSrcAttributeList
type BaseSrcAttributeList = ('[ '("blocksize", BaseSrcBlocksizePropertyInfo), '("doTimestamp", BaseSrcDoTimestampPropertyInfo), '("name", Gst.ObjectNamePropertyInfo), '("numBuffers", BaseSrcNumBuffersPropertyInfo), '("parent", Gst.ObjectParentPropertyInfo), '("typefind", BaseSrcTypefindPropertyInfo)] :: [(Symbol, *)])
type instance SignalList BaseSrc = BaseSrcSignalList
type BaseSrcSignalList = ('[ '("deepNotify", Gst.ObjectDeepNotifySignalInfo), '("noMorePads", Gst.ElementNoMorePadsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("padAdded", Gst.ElementPadAddedSignalInfo), '("padRemoved", Gst.ElementPadRemovedSignalInfo)] :: [(Symbol, *)])
-- method BaseSrc::get_allocator
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocator", argType = TInterface "Gst" "Allocator", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "params", argType = TInterface "Gst" "AllocationParams", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_base_src_get_allocator" gst_base_src_get_allocator ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
Ptr (Ptr Gst.Allocator) -> -- allocator : TInterface "Gst" "Allocator"
Ptr Gst.AllocationParams -> -- params : TInterface "Gst" "AllocationParams"
IO ()
baseSrcGetAllocator ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> m (Gst.Allocator,Gst.AllocationParams)-- result
baseSrcGetAllocator _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
allocator <- allocMem :: IO (Ptr (Ptr Gst.Allocator))
params <- callocBoxedBytes 64 :: IO (Ptr Gst.AllocationParams)
gst_base_src_get_allocator _obj' allocator params
allocator' <- peek allocator
allocator'' <- (wrapObject Gst.Allocator) allocator'
params' <- (wrapBoxed Gst.AllocationParams) params
touchManagedPtr _obj
freeMem allocator
return (allocator'', params')
data BaseSrcGetAllocatorMethodInfo
instance (signature ~ (m (Gst.Allocator,Gst.AllocationParams)), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcGetAllocatorMethodInfo a signature where
overloadedMethod _ = baseSrcGetAllocator
-- method BaseSrc::get_blocksize
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", 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_base_src_get_blocksize" gst_base_src_get_blocksize ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
IO Word32
baseSrcGetBlocksize ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> m Word32 -- result
baseSrcGetBlocksize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_base_src_get_blocksize _obj'
touchManagedPtr _obj
return result
data BaseSrcGetBlocksizeMethodInfo
instance (signature ~ (m Word32), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcGetBlocksizeMethodInfo a signature where
overloadedMethod _ = baseSrcGetBlocksize
-- method BaseSrc::get_buffer_pool
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "BufferPool"
-- throws : False
-- Skip return : False
foreign import ccall "gst_base_src_get_buffer_pool" gst_base_src_get_buffer_pool ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
IO (Ptr Gst.BufferPool)
baseSrcGetBufferPool ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> m Gst.BufferPool -- result
baseSrcGetBufferPool _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_base_src_get_buffer_pool _obj'
checkUnexpectedReturnNULL "gst_base_src_get_buffer_pool" result
result' <- (wrapObject Gst.BufferPool) result
touchManagedPtr _obj
return result'
data BaseSrcGetBufferPoolMethodInfo
instance (signature ~ (m Gst.BufferPool), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcGetBufferPoolMethodInfo a signature where
overloadedMethod _ = baseSrcGetBufferPool
-- method BaseSrc::get_do_timestamp
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", 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_base_src_get_do_timestamp" gst_base_src_get_do_timestamp ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
IO CInt
baseSrcGetDoTimestamp ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> m Bool -- result
baseSrcGetDoTimestamp _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_base_src_get_do_timestamp _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data BaseSrcGetDoTimestampMethodInfo
instance (signature ~ (m Bool), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcGetDoTimestampMethodInfo a signature where
overloadedMethod _ = baseSrcGetDoTimestamp
-- method BaseSrc::is_async
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", 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_base_src_is_async" gst_base_src_is_async ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
IO CInt
baseSrcIsAsync ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> m Bool -- result
baseSrcIsAsync _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_base_src_is_async _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data BaseSrcIsAsyncMethodInfo
instance (signature ~ (m Bool), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcIsAsyncMethodInfo a signature where
overloadedMethod _ = baseSrcIsAsync
-- method BaseSrc::is_live
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", 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_base_src_is_live" gst_base_src_is_live ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
IO CInt
baseSrcIsLive ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> m Bool -- result
baseSrcIsLive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_base_src_is_live _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data BaseSrcIsLiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcIsLiveMethodInfo a signature where
overloadedMethod _ = baseSrcIsLive
-- method BaseSrc::new_seamless_segment
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time", 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_base_src_new_seamless_segment" gst_base_src_new_seamless_segment ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
Int64 -> -- start : TBasicType TInt64
Int64 -> -- stop : TBasicType TInt64
Int64 -> -- time : TBasicType TInt64
IO CInt
baseSrcNewSeamlessSegment ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> Int64 -- start
-> Int64 -- stop
-> Int64 -- time
-> m Bool -- result
baseSrcNewSeamlessSegment _obj start stop time = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_base_src_new_seamless_segment _obj' start stop time
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data BaseSrcNewSeamlessSegmentMethodInfo
instance (signature ~ (Int64 -> Int64 -> Int64 -> m Bool), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcNewSeamlessSegmentMethodInfo a signature where
overloadedMethod _ = baseSrcNewSeamlessSegment
-- method BaseSrc::query_latency
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "live", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "min_latency", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "max_latency", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gst_base_src_query_latency" gst_base_src_query_latency ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
Ptr CInt -> -- live : TBasicType TBoolean
Ptr Word64 -> -- min_latency : TBasicType TUInt64
Ptr Word64 -> -- max_latency : TBasicType TUInt64
IO CInt
baseSrcQueryLatency ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> m (Bool,Bool,Word64,Word64) -- result
baseSrcQueryLatency _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
live <- allocMem :: IO (Ptr CInt)
minLatency <- allocMem :: IO (Ptr Word64)
maxLatency <- allocMem :: IO (Ptr Word64)
result <- gst_base_src_query_latency _obj' live minLatency maxLatency
let result' = (/= 0) result
live' <- peek live
let live'' = (/= 0) live'
minLatency' <- peek minLatency
maxLatency' <- peek maxLatency
touchManagedPtr _obj
freeMem live
freeMem minLatency
freeMem maxLatency
return (result', live'', minLatency', maxLatency')
data BaseSrcQueryLatencyMethodInfo
instance (signature ~ (m (Bool,Bool,Word64,Word64)), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcQueryLatencyMethodInfo a signature where
overloadedMethod _ = baseSrcQueryLatency
-- method BaseSrc::set_async
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "async", 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_base_src_set_async" gst_base_src_set_async ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
CInt -> -- async : TBasicType TBoolean
IO ()
baseSrcSetAsync ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> Bool -- async
-> m () -- result
baseSrcSetAsync _obj async = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let async' = (fromIntegral . fromEnum) async
gst_base_src_set_async _obj' async'
touchManagedPtr _obj
return ()
data BaseSrcSetAsyncMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcSetAsyncMethodInfo a signature where
overloadedMethod _ = baseSrcSetAsync
-- method BaseSrc::set_automatic_eos
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "automatic_eos", 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_base_src_set_automatic_eos" gst_base_src_set_automatic_eos ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
CInt -> -- automatic_eos : TBasicType TBoolean
IO ()
baseSrcSetAutomaticEos ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> Bool -- automaticEos
-> m () -- result
baseSrcSetAutomaticEos _obj automaticEos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let automaticEos' = (fromIntegral . fromEnum) automaticEos
gst_base_src_set_automatic_eos _obj' automaticEos'
touchManagedPtr _obj
return ()
data BaseSrcSetAutomaticEosMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcSetAutomaticEosMethodInfo a signature where
overloadedMethod _ = baseSrcSetAutomaticEos
-- method BaseSrc::set_blocksize
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocksize", 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_base_src_set_blocksize" gst_base_src_set_blocksize ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
Word32 -> -- blocksize : TBasicType TUInt32
IO ()
baseSrcSetBlocksize ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> Word32 -- blocksize
-> m () -- result
baseSrcSetBlocksize _obj blocksize = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gst_base_src_set_blocksize _obj' blocksize
touchManagedPtr _obj
return ()
data BaseSrcSetBlocksizeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcSetBlocksizeMethodInfo a signature where
overloadedMethod _ = baseSrcSetBlocksize
-- method BaseSrc::set_caps
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", 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_base_src_set_caps" gst_base_src_set_caps ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
Ptr Gst.Caps -> -- caps : TInterface "Gst" "Caps"
IO CInt
baseSrcSetCaps ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> Gst.Caps -- caps
-> m Bool -- result
baseSrcSetCaps _obj caps = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let caps' = unsafeManagedPtrGetPtr caps
result <- gst_base_src_set_caps _obj' caps'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr caps
return result'
data BaseSrcSetCapsMethodInfo
instance (signature ~ (Gst.Caps -> m Bool), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcSetCapsMethodInfo a signature where
overloadedMethod _ = baseSrcSetCaps
-- method BaseSrc::set_do_timestamp
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", 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_base_src_set_do_timestamp" gst_base_src_set_do_timestamp ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
CInt -> -- timestamp : TBasicType TBoolean
IO ()
baseSrcSetDoTimestamp ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> Bool -- timestamp
-> m () -- result
baseSrcSetDoTimestamp _obj timestamp = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let timestamp' = (fromIntegral . fromEnum) timestamp
gst_base_src_set_do_timestamp _obj' timestamp'
touchManagedPtr _obj
return ()
data BaseSrcSetDoTimestampMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcSetDoTimestampMethodInfo a signature where
overloadedMethod _ = baseSrcSetDoTimestamp
-- method BaseSrc::set_dynamic_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dynamic", 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_base_src_set_dynamic_size" gst_base_src_set_dynamic_size ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
CInt -> -- dynamic : TBasicType TBoolean
IO ()
baseSrcSetDynamicSize ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> Bool -- dynamic
-> m () -- result
baseSrcSetDynamicSize _obj dynamic = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let dynamic' = (fromIntegral . fromEnum) dynamic
gst_base_src_set_dynamic_size _obj' dynamic'
touchManagedPtr _obj
return ()
data BaseSrcSetDynamicSizeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcSetDynamicSizeMethodInfo a signature where
overloadedMethod _ = baseSrcSetDynamicSize
-- method BaseSrc::set_format
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gst" "Format", 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_base_src_set_format" gst_base_src_set_format ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
CUInt -> -- format : TInterface "Gst" "Format"
IO ()
baseSrcSetFormat ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> Gst.Format -- format
-> m () -- result
baseSrcSetFormat _obj format = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let format' = (fromIntegral . fromEnum) format
gst_base_src_set_format _obj' format'
touchManagedPtr _obj
return ()
data BaseSrcSetFormatMethodInfo
instance (signature ~ (Gst.Format -> m ()), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcSetFormatMethodInfo a signature where
overloadedMethod _ = baseSrcSetFormat
-- method BaseSrc::set_live
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "live", 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_base_src_set_live" gst_base_src_set_live ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
CInt -> -- live : TBasicType TBoolean
IO ()
baseSrcSetLive ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> Bool -- live
-> m () -- result
baseSrcSetLive _obj live = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let live' = (fromIntegral . fromEnum) live
gst_base_src_set_live _obj' live'
touchManagedPtr _obj
return ()
data BaseSrcSetLiveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcSetLiveMethodInfo a signature where
overloadedMethod _ = baseSrcSetLive
-- method BaseSrc::start_complete
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ret", argType = TInterface "Gst" "FlowReturn", 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_base_src_start_complete" gst_base_src_start_complete ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
CUInt -> -- ret : TInterface "Gst" "FlowReturn"
IO ()
baseSrcStartComplete ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> Gst.FlowReturn -- ret
-> m () -- result
baseSrcStartComplete _obj ret = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let ret' = (fromIntegral . fromEnum) ret
gst_base_src_start_complete _obj' ret'
touchManagedPtr _obj
return ()
data BaseSrcStartCompleteMethodInfo
instance (signature ~ (Gst.FlowReturn -> m ()), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcStartCompleteMethodInfo a signature where
overloadedMethod _ = baseSrcStartComplete
-- method BaseSrc::start_wait
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "FlowReturn"
-- throws : False
-- Skip return : False
foreign import ccall "gst_base_src_start_wait" gst_base_src_start_wait ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
IO CUInt
baseSrcStartWait ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> m Gst.FlowReturn -- result
baseSrcStartWait _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_base_src_start_wait _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data BaseSrcStartWaitMethodInfo
instance (signature ~ (m Gst.FlowReturn), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcStartWaitMethodInfo a signature where
overloadedMethod _ = baseSrcStartWait
-- method BaseSrc::wait_playing
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseSrc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "FlowReturn"
-- throws : False
-- Skip return : False
foreign import ccall "gst_base_src_wait_playing" gst_base_src_wait_playing ::
Ptr BaseSrc -> -- _obj : TInterface "GstBase" "BaseSrc"
IO CUInt
baseSrcWaitPlaying ::
(MonadIO m, BaseSrcK a) =>
a -- _obj
-> m Gst.FlowReturn -- result
baseSrcWaitPlaying _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_base_src_wait_playing _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data BaseSrcWaitPlayingMethodInfo
instance (signature ~ (m Gst.FlowReturn), MonadIO m, BaseSrcK a) => MethodInfo BaseSrcWaitPlayingMethodInfo a signature where
overloadedMethod _ = baseSrcWaitPlaying