gi-gstbase-0.1.6.13: GI/GstBase/Objects/CollectPads.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.CollectPads
(
-- * Exported types
CollectPads(..) ,
CollectPadsK ,
toCollectPads ,
noCollectPads ,
-- * Methods
-- ** collectPadsAddPad
CollectPadsAddPadMethodInfo ,
collectPadsAddPad ,
-- ** collectPadsAvailable
CollectPadsAvailableMethodInfo ,
collectPadsAvailable ,
-- ** collectPadsClipRunningTime
CollectPadsClipRunningTimeMethodInfo ,
collectPadsClipRunningTime ,
-- ** collectPadsEventDefault
CollectPadsEventDefaultMethodInfo ,
collectPadsEventDefault ,
-- ** collectPadsFlush
CollectPadsFlushMethodInfo ,
collectPadsFlush ,
-- ** collectPadsNew
collectPadsNew ,
-- ** collectPadsPeek
CollectPadsPeekMethodInfo ,
collectPadsPeek ,
-- ** collectPadsPop
CollectPadsPopMethodInfo ,
collectPadsPop ,
-- ** collectPadsQueryDefault
CollectPadsQueryDefaultMethodInfo ,
collectPadsQueryDefault ,
-- ** collectPadsReadBuffer
CollectPadsReadBufferMethodInfo ,
collectPadsReadBuffer ,
-- ** collectPadsRemovePad
CollectPadsRemovePadMethodInfo ,
collectPadsRemovePad ,
-- ** collectPadsSetBufferFunction
CollectPadsSetBufferFunctionMethodInfo ,
collectPadsSetBufferFunction ,
-- ** collectPadsSetClipFunction
CollectPadsSetClipFunctionMethodInfo ,
collectPadsSetClipFunction ,
-- ** collectPadsSetCompareFunction
CollectPadsSetCompareFunctionMethodInfo ,
collectPadsSetCompareFunction ,
-- ** collectPadsSetEventFunction
CollectPadsSetEventFunctionMethodInfo ,
collectPadsSetEventFunction ,
-- ** collectPadsSetFlushFunction
CollectPadsSetFlushFunctionMethodInfo ,
collectPadsSetFlushFunction ,
-- ** collectPadsSetFlushing
CollectPadsSetFlushingMethodInfo ,
collectPadsSetFlushing ,
-- ** collectPadsSetFunction
CollectPadsSetFunctionMethodInfo ,
collectPadsSetFunction ,
-- ** collectPadsSetQueryFunction
CollectPadsSetQueryFunctionMethodInfo ,
collectPadsSetQueryFunction ,
-- ** collectPadsSetWaiting
CollectPadsSetWaitingMethodInfo ,
collectPadsSetWaiting ,
-- ** collectPadsSrcEventDefault
CollectPadsSrcEventDefaultMethodInfo ,
collectPadsSrcEventDefault ,
-- ** collectPadsStart
CollectPadsStartMethodInfo ,
collectPadsStart ,
-- ** collectPadsStop
CollectPadsStopMethodInfo ,
collectPadsStop ,
-- ** collectPadsTakeBuffer
CollectPadsTakeBufferMethodInfo ,
collectPadsTakeBuffer ,
) 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 CollectPads = CollectPads (ForeignPtr CollectPads)
foreign import ccall "gst_collect_pads_get_type"
c_gst_collect_pads_get_type :: IO GType
type instance ParentTypes CollectPads = CollectPadsParentTypes
type CollectPadsParentTypes = '[Gst.Object, GObject.Object]
instance GObject CollectPads where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gst_collect_pads_get_type
class GObject o => CollectPadsK o
instance (GObject o, IsDescendantOf CollectPads o) => CollectPadsK o
toCollectPads :: CollectPadsK o => o -> IO CollectPads
toCollectPads = unsafeCastTo CollectPads
noCollectPads :: Maybe CollectPads
noCollectPads = Nothing
type family ResolveCollectPadsMethod (t :: Symbol) (o :: *) :: * where
ResolveCollectPadsMethod "addControlBinding" o = Gst.ObjectAddControlBindingMethodInfo
ResolveCollectPadsMethod "addPad" o = CollectPadsAddPadMethodInfo
ResolveCollectPadsMethod "available" o = CollectPadsAvailableMethodInfo
ResolveCollectPadsMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveCollectPadsMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveCollectPadsMethod "clipRunningTime" o = CollectPadsClipRunningTimeMethodInfo
ResolveCollectPadsMethod "defaultError" o = Gst.ObjectDefaultErrorMethodInfo
ResolveCollectPadsMethod "eventDefault" o = CollectPadsEventDefaultMethodInfo
ResolveCollectPadsMethod "flush" o = CollectPadsFlushMethodInfo
ResolveCollectPadsMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveCollectPadsMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveCollectPadsMethod "hasActiveControlBindings" o = Gst.ObjectHasActiveControlBindingsMethodInfo
ResolveCollectPadsMethod "hasAncestor" o = Gst.ObjectHasAncestorMethodInfo
ResolveCollectPadsMethod "hasAsAncestor" o = Gst.ObjectHasAsAncestorMethodInfo
ResolveCollectPadsMethod "hasAsParent" o = Gst.ObjectHasAsParentMethodInfo
ResolveCollectPadsMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveCollectPadsMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveCollectPadsMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveCollectPadsMethod "peek" o = CollectPadsPeekMethodInfo
ResolveCollectPadsMethod "pop" o = CollectPadsPopMethodInfo
ResolveCollectPadsMethod "queryDefault" o = CollectPadsQueryDefaultMethodInfo
ResolveCollectPadsMethod "readBuffer" o = CollectPadsReadBufferMethodInfo
ResolveCollectPadsMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveCollectPadsMethod "removeControlBinding" o = Gst.ObjectRemoveControlBindingMethodInfo
ResolveCollectPadsMethod "removePad" o = CollectPadsRemovePadMethodInfo
ResolveCollectPadsMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveCollectPadsMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveCollectPadsMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveCollectPadsMethod "srcEventDefault" o = CollectPadsSrcEventDefaultMethodInfo
ResolveCollectPadsMethod "start" o = CollectPadsStartMethodInfo
ResolveCollectPadsMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveCollectPadsMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveCollectPadsMethod "stop" o = CollectPadsStopMethodInfo
ResolveCollectPadsMethod "suggestNextSync" o = Gst.ObjectSuggestNextSyncMethodInfo
ResolveCollectPadsMethod "syncValues" o = Gst.ObjectSyncValuesMethodInfo
ResolveCollectPadsMethod "takeBuffer" o = CollectPadsTakeBufferMethodInfo
ResolveCollectPadsMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveCollectPadsMethod "unparent" o = Gst.ObjectUnparentMethodInfo
ResolveCollectPadsMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveCollectPadsMethod "getControlBinding" o = Gst.ObjectGetControlBindingMethodInfo
ResolveCollectPadsMethod "getControlRate" o = Gst.ObjectGetControlRateMethodInfo
ResolveCollectPadsMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveCollectPadsMethod "getGValueArray" o = Gst.ObjectGetGValueArrayMethodInfo
ResolveCollectPadsMethod "getName" o = Gst.ObjectGetNameMethodInfo
ResolveCollectPadsMethod "getParent" o = Gst.ObjectGetParentMethodInfo
ResolveCollectPadsMethod "getPathString" o = Gst.ObjectGetPathStringMethodInfo
ResolveCollectPadsMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveCollectPadsMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveCollectPadsMethod "getValue" o = Gst.ObjectGetValueMethodInfo
ResolveCollectPadsMethod "getValueArray" o = Gst.ObjectGetValueArrayMethodInfo
ResolveCollectPadsMethod "setBufferFunction" o = CollectPadsSetBufferFunctionMethodInfo
ResolveCollectPadsMethod "setClipFunction" o = CollectPadsSetClipFunctionMethodInfo
ResolveCollectPadsMethod "setCompareFunction" o = CollectPadsSetCompareFunctionMethodInfo
ResolveCollectPadsMethod "setControlBindingDisabled" o = Gst.ObjectSetControlBindingDisabledMethodInfo
ResolveCollectPadsMethod "setControlBindingsDisabled" o = Gst.ObjectSetControlBindingsDisabledMethodInfo
ResolveCollectPadsMethod "setControlRate" o = Gst.ObjectSetControlRateMethodInfo
ResolveCollectPadsMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveCollectPadsMethod "setEventFunction" o = CollectPadsSetEventFunctionMethodInfo
ResolveCollectPadsMethod "setFlushFunction" o = CollectPadsSetFlushFunctionMethodInfo
ResolveCollectPadsMethod "setFlushing" o = CollectPadsSetFlushingMethodInfo
ResolveCollectPadsMethod "setFunction" o = CollectPadsSetFunctionMethodInfo
ResolveCollectPadsMethod "setName" o = Gst.ObjectSetNameMethodInfo
ResolveCollectPadsMethod "setParent" o = Gst.ObjectSetParentMethodInfo
ResolveCollectPadsMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveCollectPadsMethod "setQueryFunction" o = CollectPadsSetQueryFunctionMethodInfo
ResolveCollectPadsMethod "setWaiting" o = CollectPadsSetWaitingMethodInfo
ResolveCollectPadsMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveCollectPadsMethod t CollectPads, MethodInfo info CollectPads p) => IsLabelProxy t (CollectPads -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveCollectPadsMethod t CollectPads, MethodInfo info CollectPads p) => IsLabel t (CollectPads -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
type instance AttributeList CollectPads = CollectPadsAttributeList
type CollectPadsAttributeList = ('[ '("name", Gst.ObjectNamePropertyInfo), '("parent", Gst.ObjectParentPropertyInfo)] :: [(Symbol, *)])
type instance SignalList CollectPads = CollectPadsSignalList
type CollectPadsSignalList = ('[ '("deepNotify", Gst.ObjectDeepNotifySignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method CollectPads::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- returnType : TInterface "GstBase" "CollectPads"
-- throws : False
-- Skip return : False
foreign import ccall "gst_collect_pads_new" gst_collect_pads_new ::
IO (Ptr CollectPads)
collectPadsNew ::
(MonadIO m) =>
m CollectPads -- result
collectPadsNew = liftIO $ do
result <- gst_collect_pads_new
checkUnexpectedReturnNULL "gst_collect_pads_new" result
result' <- (wrapObject CollectPads) result
return result'
-- method CollectPads::add_pad
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pad", argType = TInterface "Gst" "Pad", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy_notify", argType = TInterface "GstBase" "CollectDataDestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "GstBase" "CollectData"
-- throws : False
-- Skip return : False
foreign import ccall "gst_collect_pads_add_pad" gst_collect_pads_add_pad ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
Ptr Gst.Pad -> -- pad : TInterface "Gst" "Pad"
Word32 -> -- size : TBasicType TUInt32
FunPtr CollectDataDestroyNotifyC -> -- destroy_notify : TInterface "GstBase" "CollectDataDestroyNotify"
CInt -> -- lock : TBasicType TBoolean
IO (Ptr CollectData)
collectPadsAddPad ::
(MonadIO m, CollectPadsK a, Gst.PadK b) =>
a -- _obj
-> b -- pad
-> Word32 -- size
-> CollectDataDestroyNotify -- destroyNotify
-> Bool -- lock
-> m CollectData -- result
collectPadsAddPad _obj pad size destroyNotify lock = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let pad' = unsafeManagedPtrCastPtr pad
ptrdestroyNotify <- callocMem :: IO (Ptr (FunPtr CollectDataDestroyNotifyC))
destroyNotify' <- mkCollectDataDestroyNotify (collectDataDestroyNotifyWrapper (Just ptrdestroyNotify) destroyNotify)
poke ptrdestroyNotify destroyNotify'
let lock' = (fromIntegral . fromEnum) lock
result <- gst_collect_pads_add_pad _obj' pad' size destroyNotify' lock'
checkUnexpectedReturnNULL "gst_collect_pads_add_pad" result
result' <- (newPtr 168 CollectData) result
touchManagedPtr _obj
touchManagedPtr pad
return result'
data CollectPadsAddPadMethodInfo
instance (signature ~ (b -> Word32 -> CollectDataDestroyNotify -> Bool -> m CollectData), MonadIO m, CollectPadsK a, Gst.PadK b) => MethodInfo CollectPadsAddPadMethodInfo a signature where
overloadedMethod _ = collectPadsAddPad
-- method CollectPads::available
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", 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_collect_pads_available" gst_collect_pads_available ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
IO Word32
collectPadsAvailable ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> m Word32 -- result
collectPadsAvailable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gst_collect_pads_available _obj'
touchManagedPtr _obj
return result
data CollectPadsAvailableMethodInfo
instance (signature ~ (m Word32), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsAvailableMethodInfo a signature where
overloadedMethod _ = collectPadsAvailable
-- method CollectPads::clip_running_time
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cdata", argType = TInterface "GstBase" "CollectData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buf", argType = TInterface "Gst" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "outbuf", argType = TInterface "Gst" "Buffer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, 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 : TInterface "Gst" "FlowReturn"
-- throws : False
-- Skip return : False
foreign import ccall "gst_collect_pads_clip_running_time" gst_collect_pads_clip_running_time ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
Ptr CollectData -> -- cdata : TInterface "GstBase" "CollectData"
Ptr Gst.Buffer -> -- buf : TInterface "Gst" "Buffer"
Ptr Gst.Buffer -> -- outbuf : TInterface "Gst" "Buffer"
Ptr () -> -- user_data : TBasicType TVoid
IO CUInt
collectPadsClipRunningTime ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> CollectData -- cdata
-> Gst.Buffer -- buf
-> Maybe (Gst.Buffer) -- outbuf
-> Ptr () -- userData
-> m Gst.FlowReturn -- result
collectPadsClipRunningTime _obj cdata buf outbuf userData = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cdata' = unsafeManagedPtrGetPtr cdata
let buf' = unsafeManagedPtrGetPtr buf
maybeOutbuf <- case outbuf of
Nothing -> return nullPtr
Just jOutbuf -> do
let jOutbuf' = unsafeManagedPtrGetPtr jOutbuf
return jOutbuf'
result <- gst_collect_pads_clip_running_time _obj' cdata' buf' maybeOutbuf userData
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
touchManagedPtr cdata
touchManagedPtr buf
whenJust outbuf touchManagedPtr
return result'
data CollectPadsClipRunningTimeMethodInfo
instance (signature ~ (CollectData -> Gst.Buffer -> Maybe (Gst.Buffer) -> Ptr () -> m Gst.FlowReturn), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsClipRunningTimeMethodInfo a signature where
overloadedMethod _ = collectPadsClipRunningTime
-- method CollectPads::event_default
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TInterface "GstBase" "CollectData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gst" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "discard", 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_collect_pads_event_default" gst_collect_pads_event_default ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
Ptr CollectData -> -- data : TInterface "GstBase" "CollectData"
Ptr Gst.Event -> -- event : TInterface "Gst" "Event"
CInt -> -- discard : TBasicType TBoolean
IO CInt
collectPadsEventDefault ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> CollectData -- data_
-> Gst.Event -- event
-> Bool -- discard
-> m Bool -- result
collectPadsEventDefault _obj data_ event discard = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let data_' = unsafeManagedPtrGetPtr data_
let event' = unsafeManagedPtrGetPtr event
let discard' = (fromIntegral . fromEnum) discard
result <- gst_collect_pads_event_default _obj' data_' event' discard'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr data_
touchManagedPtr event
return result'
data CollectPadsEventDefaultMethodInfo
instance (signature ~ (CollectData -> Gst.Event -> Bool -> m Bool), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsEventDefaultMethodInfo a signature where
overloadedMethod _ = collectPadsEventDefault
-- method CollectPads::flush
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TInterface "GstBase" "CollectData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt32, 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_collect_pads_flush" gst_collect_pads_flush ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
Ptr CollectData -> -- data : TInterface "GstBase" "CollectData"
Word32 -> -- size : TBasicType TUInt32
IO Word32
collectPadsFlush ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> CollectData -- data_
-> Word32 -- size
-> m Word32 -- result
collectPadsFlush _obj data_ size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let data_' = unsafeManagedPtrGetPtr data_
result <- gst_collect_pads_flush _obj' data_' size
touchManagedPtr _obj
touchManagedPtr data_
return result
data CollectPadsFlushMethodInfo
instance (signature ~ (CollectData -> Word32 -> m Word32), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsFlushMethodInfo a signature where
overloadedMethod _ = collectPadsFlush
-- method CollectPads::peek
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TInterface "GstBase" "CollectData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "Buffer"
-- throws : False
-- Skip return : False
foreign import ccall "gst_collect_pads_peek" gst_collect_pads_peek ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
Ptr CollectData -> -- data : TInterface "GstBase" "CollectData"
IO (Ptr Gst.Buffer)
collectPadsPeek ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> CollectData -- data_
-> m Gst.Buffer -- result
collectPadsPeek _obj data_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let data_' = unsafeManagedPtrGetPtr data_
result <- gst_collect_pads_peek _obj' data_'
checkUnexpectedReturnNULL "gst_collect_pads_peek" result
result' <- (wrapBoxed Gst.Buffer) result
touchManagedPtr _obj
touchManagedPtr data_
return result'
data CollectPadsPeekMethodInfo
instance (signature ~ (CollectData -> m Gst.Buffer), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsPeekMethodInfo a signature where
overloadedMethod _ = collectPadsPeek
-- method CollectPads::pop
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TInterface "GstBase" "CollectData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "Buffer"
-- throws : False
-- Skip return : False
foreign import ccall "gst_collect_pads_pop" gst_collect_pads_pop ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
Ptr CollectData -> -- data : TInterface "GstBase" "CollectData"
IO (Ptr Gst.Buffer)
collectPadsPop ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> CollectData -- data_
-> m Gst.Buffer -- result
collectPadsPop _obj data_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let data_' = unsafeManagedPtrGetPtr data_
result <- gst_collect_pads_pop _obj' data_'
checkUnexpectedReturnNULL "gst_collect_pads_pop" result
result' <- (wrapBoxed Gst.Buffer) result
touchManagedPtr _obj
touchManagedPtr data_
return result'
data CollectPadsPopMethodInfo
instance (signature ~ (CollectData -> m Gst.Buffer), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsPopMethodInfo a signature where
overloadedMethod _ = collectPadsPop
-- method CollectPads::query_default
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TInterface "GstBase" "CollectData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "query", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "discard", 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_collect_pads_query_default" gst_collect_pads_query_default ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
Ptr CollectData -> -- data : TInterface "GstBase" "CollectData"
Ptr Gst.Query -> -- query : TInterface "Gst" "Query"
CInt -> -- discard : TBasicType TBoolean
IO CInt
collectPadsQueryDefault ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> CollectData -- data_
-> Gst.Query -- query
-> Bool -- discard
-> m Bool -- result
collectPadsQueryDefault _obj data_ query discard = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let data_' = unsafeManagedPtrGetPtr data_
let query' = unsafeManagedPtrGetPtr query
let discard' = (fromIntegral . fromEnum) discard
result <- gst_collect_pads_query_default _obj' data_' query' discard'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr data_
touchManagedPtr query
return result'
data CollectPadsQueryDefaultMethodInfo
instance (signature ~ (CollectData -> Gst.Query -> Bool -> m Bool), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsQueryDefaultMethodInfo a signature where
overloadedMethod _ = collectPadsQueryDefault
-- method CollectPads::read_buffer
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TInterface "GstBase" "CollectData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "Buffer"
-- throws : False
-- Skip return : False
foreign import ccall "gst_collect_pads_read_buffer" gst_collect_pads_read_buffer ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
Ptr CollectData -> -- data : TInterface "GstBase" "CollectData"
Word32 -> -- size : TBasicType TUInt32
IO (Ptr Gst.Buffer)
collectPadsReadBuffer ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> CollectData -- data_
-> Word32 -- size
-> m Gst.Buffer -- result
collectPadsReadBuffer _obj data_ size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let data_' = unsafeManagedPtrGetPtr data_
result <- gst_collect_pads_read_buffer _obj' data_' size
checkUnexpectedReturnNULL "gst_collect_pads_read_buffer" result
result' <- (wrapBoxed Gst.Buffer) result
touchManagedPtr _obj
touchManagedPtr data_
return result'
data CollectPadsReadBufferMethodInfo
instance (signature ~ (CollectData -> Word32 -> m Gst.Buffer), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsReadBufferMethodInfo a signature where
overloadedMethod _ = collectPadsReadBuffer
-- method CollectPads::remove_pad
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pad", argType = TInterface "Gst" "Pad", 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_collect_pads_remove_pad" gst_collect_pads_remove_pad ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
Ptr Gst.Pad -> -- pad : TInterface "Gst" "Pad"
IO CInt
collectPadsRemovePad ::
(MonadIO m, CollectPadsK a, Gst.PadK b) =>
a -- _obj
-> b -- pad
-> m Bool -- result
collectPadsRemovePad _obj pad = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let pad' = unsafeManagedPtrCastPtr pad
result <- gst_collect_pads_remove_pad _obj' pad'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr pad
return result'
data CollectPadsRemovePadMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, CollectPadsK a, Gst.PadK b) => MethodInfo CollectPadsRemovePadMethodInfo a signature where
overloadedMethod _ = collectPadsRemovePad
-- method CollectPads::set_buffer_function
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "GstBase" "CollectPadsBufferFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, 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_collect_pads_set_buffer_function" gst_collect_pads_set_buffer_function ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
FunPtr CollectPadsBufferFunctionC -> -- func : TInterface "GstBase" "CollectPadsBufferFunction"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
collectPadsSetBufferFunction ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> CollectPadsBufferFunction -- func
-> m () -- result
collectPadsSetBufferFunction _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkCollectPadsBufferFunction (collectPadsBufferFunctionWrapper Nothing func)
let userData = nullPtr
gst_collect_pads_set_buffer_function _obj' func' userData
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr _obj
return ()
data CollectPadsSetBufferFunctionMethodInfo
instance (signature ~ (CollectPadsBufferFunction -> m ()), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsSetBufferFunctionMethodInfo a signature where
overloadedMethod _ = collectPadsSetBufferFunction
-- method CollectPads::set_clip_function
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipfunc", argType = TInterface "GstBase" "CollectPadsClipFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, 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_collect_pads_set_clip_function" gst_collect_pads_set_clip_function ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
FunPtr CollectPadsClipFunctionC -> -- clipfunc : TInterface "GstBase" "CollectPadsClipFunction"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
collectPadsSetClipFunction ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> CollectPadsClipFunction -- clipfunc
-> m () -- result
collectPadsSetClipFunction _obj clipfunc = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
clipfunc' <- mkCollectPadsClipFunction (collectPadsClipFunctionWrapper Nothing clipfunc)
let userData = nullPtr
gst_collect_pads_set_clip_function _obj' clipfunc' userData
safeFreeFunPtr $ castFunPtrToPtr clipfunc'
touchManagedPtr _obj
return ()
data CollectPadsSetClipFunctionMethodInfo
instance (signature ~ (CollectPadsClipFunction -> m ()), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsSetClipFunctionMethodInfo a signature where
overloadedMethod _ = collectPadsSetClipFunction
-- method CollectPads::set_compare_function
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "GstBase" "CollectPadsCompareFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, 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_collect_pads_set_compare_function" gst_collect_pads_set_compare_function ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
FunPtr CollectPadsCompareFunctionC -> -- func : TInterface "GstBase" "CollectPadsCompareFunction"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
collectPadsSetCompareFunction ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> CollectPadsCompareFunction -- func
-> m () -- result
collectPadsSetCompareFunction _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkCollectPadsCompareFunction (collectPadsCompareFunctionWrapper Nothing func)
let userData = nullPtr
gst_collect_pads_set_compare_function _obj' func' userData
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr _obj
return ()
data CollectPadsSetCompareFunctionMethodInfo
instance (signature ~ (CollectPadsCompareFunction -> m ()), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsSetCompareFunctionMethodInfo a signature where
overloadedMethod _ = collectPadsSetCompareFunction
-- method CollectPads::set_event_function
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "GstBase" "CollectPadsEventFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, 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_collect_pads_set_event_function" gst_collect_pads_set_event_function ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
FunPtr CollectPadsEventFunctionC -> -- func : TInterface "GstBase" "CollectPadsEventFunction"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
collectPadsSetEventFunction ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> CollectPadsEventFunction -- func
-> m () -- result
collectPadsSetEventFunction _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkCollectPadsEventFunction (collectPadsEventFunctionWrapper Nothing func)
let userData = nullPtr
gst_collect_pads_set_event_function _obj' func' userData
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr _obj
return ()
data CollectPadsSetEventFunctionMethodInfo
instance (signature ~ (CollectPadsEventFunction -> m ()), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsSetEventFunctionMethodInfo a signature where
overloadedMethod _ = collectPadsSetEventFunction
-- method CollectPads::set_flush_function
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "GstBase" "CollectPadsFlushFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, 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_collect_pads_set_flush_function" gst_collect_pads_set_flush_function ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
FunPtr CollectPadsFlushFunctionC -> -- func : TInterface "GstBase" "CollectPadsFlushFunction"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
collectPadsSetFlushFunction ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> CollectPadsFlushFunction -- func
-> m () -- result
collectPadsSetFlushFunction _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkCollectPadsFlushFunction (collectPadsFlushFunctionWrapper Nothing func)
let userData = nullPtr
gst_collect_pads_set_flush_function _obj' func' userData
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr _obj
return ()
data CollectPadsSetFlushFunctionMethodInfo
instance (signature ~ (CollectPadsFlushFunction -> m ()), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsSetFlushFunctionMethodInfo a signature where
overloadedMethod _ = collectPadsSetFlushFunction
-- method CollectPads::set_flushing
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", 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_collect_pads_set_flushing" gst_collect_pads_set_flushing ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
CInt -> -- flushing : TBasicType TBoolean
IO ()
collectPadsSetFlushing ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> Bool -- flushing
-> m () -- result
collectPadsSetFlushing _obj flushing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flushing' = (fromIntegral . fromEnum) flushing
gst_collect_pads_set_flushing _obj' flushing'
touchManagedPtr _obj
return ()
data CollectPadsSetFlushingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsSetFlushingMethodInfo a signature where
overloadedMethod _ = collectPadsSetFlushing
-- method CollectPads::set_function
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "GstBase" "CollectPadsFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, 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_collect_pads_set_function" gst_collect_pads_set_function ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
FunPtr CollectPadsFunctionC -> -- func : TInterface "GstBase" "CollectPadsFunction"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
collectPadsSetFunction ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> CollectPadsFunction -- func
-> m () -- result
collectPadsSetFunction _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkCollectPadsFunction (collectPadsFunctionWrapper Nothing func)
let userData = nullPtr
gst_collect_pads_set_function _obj' func' userData
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr _obj
return ()
data CollectPadsSetFunctionMethodInfo
instance (signature ~ (CollectPadsFunction -> m ()), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsSetFunctionMethodInfo a signature where
overloadedMethod _ = collectPadsSetFunction
-- method CollectPads::set_query_function
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "GstBase" "CollectPadsQueryFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, 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_collect_pads_set_query_function" gst_collect_pads_set_query_function ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
FunPtr CollectPadsQueryFunctionC -> -- func : TInterface "GstBase" "CollectPadsQueryFunction"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
collectPadsSetQueryFunction ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> CollectPadsQueryFunction -- func
-> m () -- result
collectPadsSetQueryFunction _obj func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
func' <- mkCollectPadsQueryFunction (collectPadsQueryFunctionWrapper Nothing func)
let userData = nullPtr
gst_collect_pads_set_query_function _obj' func' userData
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr _obj
return ()
data CollectPadsSetQueryFunctionMethodInfo
instance (signature ~ (CollectPadsQueryFunction -> m ()), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsSetQueryFunctionMethodInfo a signature where
overloadedMethod _ = collectPadsSetQueryFunction
-- method CollectPads::set_waiting
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TInterface "GstBase" "CollectData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "waiting", 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_collect_pads_set_waiting" gst_collect_pads_set_waiting ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
Ptr CollectData -> -- data : TInterface "GstBase" "CollectData"
CInt -> -- waiting : TBasicType TBoolean
IO ()
collectPadsSetWaiting ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> CollectData -- data_
-> Bool -- waiting
-> m () -- result
collectPadsSetWaiting _obj data_ waiting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let data_' = unsafeManagedPtrGetPtr data_
let waiting' = (fromIntegral . fromEnum) waiting
gst_collect_pads_set_waiting _obj' data_' waiting'
touchManagedPtr _obj
touchManagedPtr data_
return ()
data CollectPadsSetWaitingMethodInfo
instance (signature ~ (CollectData -> Bool -> m ()), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsSetWaitingMethodInfo a signature where
overloadedMethod _ = collectPadsSetWaiting
-- method CollectPads::src_event_default
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pad", argType = TInterface "Gst" "Pad", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gst" "Event", 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_collect_pads_src_event_default" gst_collect_pads_src_event_default ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
Ptr Gst.Pad -> -- pad : TInterface "Gst" "Pad"
Ptr Gst.Event -> -- event : TInterface "Gst" "Event"
IO CInt
collectPadsSrcEventDefault ::
(MonadIO m, CollectPadsK a, Gst.PadK b) =>
a -- _obj
-> b -- pad
-> Gst.Event -- event
-> m Bool -- result
collectPadsSrcEventDefault _obj pad event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let pad' = unsafeManagedPtrCastPtr pad
let event' = unsafeManagedPtrGetPtr event
result <- gst_collect_pads_src_event_default _obj' pad' event'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr pad
touchManagedPtr event
return result'
data CollectPadsSrcEventDefaultMethodInfo
instance (signature ~ (b -> Gst.Event -> m Bool), MonadIO m, CollectPadsK a, Gst.PadK b) => MethodInfo CollectPadsSrcEventDefaultMethodInfo a signature where
overloadedMethod _ = collectPadsSrcEventDefault
-- method CollectPads::start
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", 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_collect_pads_start" gst_collect_pads_start ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
IO ()
collectPadsStart ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> m () -- result
collectPadsStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gst_collect_pads_start _obj'
touchManagedPtr _obj
return ()
data CollectPadsStartMethodInfo
instance (signature ~ (m ()), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsStartMethodInfo a signature where
overloadedMethod _ = collectPadsStart
-- method CollectPads::stop
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", 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_collect_pads_stop" gst_collect_pads_stop ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
IO ()
collectPadsStop ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> m () -- result
collectPadsStop _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gst_collect_pads_stop _obj'
touchManagedPtr _obj
return ()
data CollectPadsStopMethodInfo
instance (signature ~ (m ()), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsStopMethodInfo a signature where
overloadedMethod _ = collectPadsStop
-- method CollectPads::take_buffer
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "CollectPads", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TInterface "GstBase" "CollectData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "Buffer"
-- throws : False
-- Skip return : False
foreign import ccall "gst_collect_pads_take_buffer" gst_collect_pads_take_buffer ::
Ptr CollectPads -> -- _obj : TInterface "GstBase" "CollectPads"
Ptr CollectData -> -- data : TInterface "GstBase" "CollectData"
Word32 -> -- size : TBasicType TUInt32
IO (Ptr Gst.Buffer)
collectPadsTakeBuffer ::
(MonadIO m, CollectPadsK a) =>
a -- _obj
-> CollectData -- data_
-> Word32 -- size
-> m Gst.Buffer -- result
collectPadsTakeBuffer _obj data_ size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let data_' = unsafeManagedPtrGetPtr data_
result <- gst_collect_pads_take_buffer _obj' data_' size
checkUnexpectedReturnNULL "gst_collect_pads_take_buffer" result
result' <- (wrapBoxed Gst.Buffer) result
touchManagedPtr _obj
touchManagedPtr data_
return result'
data CollectPadsTakeBufferMethodInfo
instance (signature ~ (CollectData -> Word32 -> m Gst.Buffer), MonadIO m, CollectPadsK a) => MethodInfo CollectPadsTakeBufferMethodInfo a signature where
overloadedMethod _ = collectPadsTakeBuffer