gi-gstbase-0.1.6.13: GI/GstBase/Objects/BaseParse.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.BaseParse
(
-- * Exported types
BaseParse(..) ,
BaseParseK ,
toBaseParse ,
noBaseParse ,
-- * Methods
-- ** baseParseAddIndexEntry
BaseParseAddIndexEntryMethodInfo ,
baseParseAddIndexEntry ,
-- ** baseParseConvertDefault
BaseParseConvertDefaultMethodInfo ,
baseParseConvertDefault ,
-- ** baseParseFinishFrame
BaseParseFinishFrameMethodInfo ,
baseParseFinishFrame ,
-- ** baseParseMergeTags
BaseParseMergeTagsMethodInfo ,
baseParseMergeTags ,
-- ** baseParsePushFrame
BaseParsePushFrameMethodInfo ,
baseParsePushFrame ,
-- ** baseParseSetAverageBitrate
BaseParseSetAverageBitrateMethodInfo ,
baseParseSetAverageBitrate ,
-- ** baseParseSetDuration
BaseParseSetDurationMethodInfo ,
baseParseSetDuration ,
-- ** baseParseSetFrameRate
BaseParseSetFrameRateMethodInfo ,
baseParseSetFrameRate ,
-- ** baseParseSetHasTimingInfo
BaseParseSetHasTimingInfoMethodInfo ,
baseParseSetHasTimingInfo ,
-- ** baseParseSetInferTs
BaseParseSetInferTsMethodInfo ,
baseParseSetInferTs ,
-- ** baseParseSetLatency
BaseParseSetLatencyMethodInfo ,
baseParseSetLatency ,
-- ** baseParseSetMinFrameSize
BaseParseSetMinFrameSizeMethodInfo ,
baseParseSetMinFrameSize ,
-- ** baseParseSetPassthrough
BaseParseSetPassthroughMethodInfo ,
baseParseSetPassthrough ,
-- ** baseParseSetPtsInterpolation
BaseParseSetPtsInterpolationMethodInfo ,
baseParseSetPtsInterpolation ,
-- ** baseParseSetSyncable
BaseParseSetSyncableMethodInfo ,
baseParseSetSyncable ,
-- ** baseParseSetTsAtOffset
BaseParseSetTsAtOffsetMethodInfo ,
baseParseSetTsAtOffset ,
-- * Properties
-- ** DisablePassthrough
BaseParseDisablePassthroughPropertyInfo ,
constructBaseParseDisablePassthrough ,
getBaseParseDisablePassthrough ,
setBaseParseDisablePassthrough ,
) 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 BaseParse = BaseParse (ForeignPtr BaseParse)
foreign import ccall "gst_base_parse_get_type"
c_gst_base_parse_get_type :: IO GType
type instance ParentTypes BaseParse = BaseParseParentTypes
type BaseParseParentTypes = '[Gst.Element, Gst.Object, GObject.Object]
instance GObject BaseParse where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gst_base_parse_get_type
class GObject o => BaseParseK o
instance (GObject o, IsDescendantOf BaseParse o) => BaseParseK o
toBaseParse :: BaseParseK o => o -> IO BaseParse
toBaseParse = unsafeCastTo BaseParse
noBaseParse :: Maybe BaseParse
noBaseParse = Nothing
type family ResolveBaseParseMethod (t :: Symbol) (o :: *) :: * where
ResolveBaseParseMethod "abortState" o = Gst.ElementAbortStateMethodInfo
ResolveBaseParseMethod "addControlBinding" o = Gst.ObjectAddControlBindingMethodInfo
ResolveBaseParseMethod "addIndexEntry" o = BaseParseAddIndexEntryMethodInfo
ResolveBaseParseMethod "addPad" o = Gst.ElementAddPadMethodInfo
ResolveBaseParseMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveBaseParseMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveBaseParseMethod "changeState" o = Gst.ElementChangeStateMethodInfo
ResolveBaseParseMethod "continueState" o = Gst.ElementContinueStateMethodInfo
ResolveBaseParseMethod "convertDefault" o = BaseParseConvertDefaultMethodInfo
ResolveBaseParseMethod "createAllPads" o = Gst.ElementCreateAllPadsMethodInfo
ResolveBaseParseMethod "defaultError" o = Gst.ObjectDefaultErrorMethodInfo
ResolveBaseParseMethod "finishFrame" o = BaseParseFinishFrameMethodInfo
ResolveBaseParseMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveBaseParseMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveBaseParseMethod "hasActiveControlBindings" o = Gst.ObjectHasActiveControlBindingsMethodInfo
ResolveBaseParseMethod "hasAncestor" o = Gst.ObjectHasAncestorMethodInfo
ResolveBaseParseMethod "hasAsAncestor" o = Gst.ObjectHasAsAncestorMethodInfo
ResolveBaseParseMethod "hasAsParent" o = Gst.ObjectHasAsParentMethodInfo
ResolveBaseParseMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveBaseParseMethod "isLockedState" o = Gst.ElementIsLockedStateMethodInfo
ResolveBaseParseMethod "iteratePads" o = Gst.ElementIteratePadsMethodInfo
ResolveBaseParseMethod "iterateSinkPads" o = Gst.ElementIterateSinkPadsMethodInfo
ResolveBaseParseMethod "iterateSrcPads" o = Gst.ElementIterateSrcPadsMethodInfo
ResolveBaseParseMethod "link" o = Gst.ElementLinkMethodInfo
ResolveBaseParseMethod "linkFiltered" o = Gst.ElementLinkFilteredMethodInfo
ResolveBaseParseMethod "linkPads" o = Gst.ElementLinkPadsMethodInfo
ResolveBaseParseMethod "linkPadsFiltered" o = Gst.ElementLinkPadsFilteredMethodInfo
ResolveBaseParseMethod "linkPadsFull" o = Gst.ElementLinkPadsFullMethodInfo
ResolveBaseParseMethod "lostState" o = Gst.ElementLostStateMethodInfo
ResolveBaseParseMethod "mergeTags" o = BaseParseMergeTagsMethodInfo
ResolveBaseParseMethod "messageFull" o = Gst.ElementMessageFullMethodInfo
ResolveBaseParseMethod "noMorePads" o = Gst.ElementNoMorePadsMethodInfo
ResolveBaseParseMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveBaseParseMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveBaseParseMethod "postMessage" o = Gst.ElementPostMessageMethodInfo
ResolveBaseParseMethod "provideClock" o = Gst.ElementProvideClockMethodInfo
ResolveBaseParseMethod "pushFrame" o = BaseParsePushFrameMethodInfo
ResolveBaseParseMethod "query" o = Gst.ElementQueryMethodInfo
ResolveBaseParseMethod "queryConvert" o = Gst.ElementQueryConvertMethodInfo
ResolveBaseParseMethod "queryDuration" o = Gst.ElementQueryDurationMethodInfo
ResolveBaseParseMethod "queryPosition" o = Gst.ElementQueryPositionMethodInfo
ResolveBaseParseMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveBaseParseMethod "releaseRequestPad" o = Gst.ElementReleaseRequestPadMethodInfo
ResolveBaseParseMethod "removeControlBinding" o = Gst.ObjectRemoveControlBindingMethodInfo
ResolveBaseParseMethod "removePad" o = Gst.ElementRemovePadMethodInfo
ResolveBaseParseMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveBaseParseMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveBaseParseMethod "requestPad" o = Gst.ElementRequestPadMethodInfo
ResolveBaseParseMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveBaseParseMethod "seek" o = Gst.ElementSeekMethodInfo
ResolveBaseParseMethod "seekSimple" o = Gst.ElementSeekSimpleMethodInfo
ResolveBaseParseMethod "sendEvent" o = Gst.ElementSendEventMethodInfo
ResolveBaseParseMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveBaseParseMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveBaseParseMethod "suggestNextSync" o = Gst.ObjectSuggestNextSyncMethodInfo
ResolveBaseParseMethod "syncStateWithParent" o = Gst.ElementSyncStateWithParentMethodInfo
ResolveBaseParseMethod "syncValues" o = Gst.ObjectSyncValuesMethodInfo
ResolveBaseParseMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveBaseParseMethod "unlink" o = Gst.ElementUnlinkMethodInfo
ResolveBaseParseMethod "unlinkPads" o = Gst.ElementUnlinkPadsMethodInfo
ResolveBaseParseMethod "unparent" o = Gst.ObjectUnparentMethodInfo
ResolveBaseParseMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveBaseParseMethod "getBaseTime" o = Gst.ElementGetBaseTimeMethodInfo
ResolveBaseParseMethod "getBus" o = Gst.ElementGetBusMethodInfo
ResolveBaseParseMethod "getClock" o = Gst.ElementGetClockMethodInfo
ResolveBaseParseMethod "getCompatiblePad" o = Gst.ElementGetCompatiblePadMethodInfo
ResolveBaseParseMethod "getCompatiblePadTemplate" o = Gst.ElementGetCompatiblePadTemplateMethodInfo
ResolveBaseParseMethod "getControlBinding" o = Gst.ObjectGetControlBindingMethodInfo
ResolveBaseParseMethod "getControlRate" o = Gst.ObjectGetControlRateMethodInfo
ResolveBaseParseMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveBaseParseMethod "getFactory" o = Gst.ElementGetFactoryMethodInfo
ResolveBaseParseMethod "getGValueArray" o = Gst.ObjectGetGValueArrayMethodInfo
ResolveBaseParseMethod "getName" o = Gst.ObjectGetNameMethodInfo
ResolveBaseParseMethod "getParent" o = Gst.ObjectGetParentMethodInfo
ResolveBaseParseMethod "getPathString" o = Gst.ObjectGetPathStringMethodInfo
ResolveBaseParseMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveBaseParseMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveBaseParseMethod "getRequestPad" o = Gst.ElementGetRequestPadMethodInfo
ResolveBaseParseMethod "getStartTime" o = Gst.ElementGetStartTimeMethodInfo
ResolveBaseParseMethod "getState" o = Gst.ElementGetStateMethodInfo
ResolveBaseParseMethod "getStaticPad" o = Gst.ElementGetStaticPadMethodInfo
ResolveBaseParseMethod "getValue" o = Gst.ObjectGetValueMethodInfo
ResolveBaseParseMethod "getValueArray" o = Gst.ObjectGetValueArrayMethodInfo
ResolveBaseParseMethod "setAverageBitrate" o = BaseParseSetAverageBitrateMethodInfo
ResolveBaseParseMethod "setBaseTime" o = Gst.ElementSetBaseTimeMethodInfo
ResolveBaseParseMethod "setBus" o = Gst.ElementSetBusMethodInfo
ResolveBaseParseMethod "setClock" o = Gst.ElementSetClockMethodInfo
ResolveBaseParseMethod "setContext" o = Gst.ElementSetContextMethodInfo
ResolveBaseParseMethod "setControlBindingDisabled" o = Gst.ObjectSetControlBindingDisabledMethodInfo
ResolveBaseParseMethod "setControlBindingsDisabled" o = Gst.ObjectSetControlBindingsDisabledMethodInfo
ResolveBaseParseMethod "setControlRate" o = Gst.ObjectSetControlRateMethodInfo
ResolveBaseParseMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveBaseParseMethod "setDuration" o = BaseParseSetDurationMethodInfo
ResolveBaseParseMethod "setFrameRate" o = BaseParseSetFrameRateMethodInfo
ResolveBaseParseMethod "setHasTimingInfo" o = BaseParseSetHasTimingInfoMethodInfo
ResolveBaseParseMethod "setInferTs" o = BaseParseSetInferTsMethodInfo
ResolveBaseParseMethod "setLatency" o = BaseParseSetLatencyMethodInfo
ResolveBaseParseMethod "setLockedState" o = Gst.ElementSetLockedStateMethodInfo
ResolveBaseParseMethod "setMinFrameSize" o = BaseParseSetMinFrameSizeMethodInfo
ResolveBaseParseMethod "setName" o = Gst.ObjectSetNameMethodInfo
ResolveBaseParseMethod "setParent" o = Gst.ObjectSetParentMethodInfo
ResolveBaseParseMethod "setPassthrough" o = BaseParseSetPassthroughMethodInfo
ResolveBaseParseMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveBaseParseMethod "setPtsInterpolation" o = BaseParseSetPtsInterpolationMethodInfo
ResolveBaseParseMethod "setStartTime" o = Gst.ElementSetStartTimeMethodInfo
ResolveBaseParseMethod "setState" o = Gst.ElementSetStateMethodInfo
ResolveBaseParseMethod "setSyncable" o = BaseParseSetSyncableMethodInfo
ResolveBaseParseMethod "setTsAtOffset" o = BaseParseSetTsAtOffsetMethodInfo
ResolveBaseParseMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveBaseParseMethod t BaseParse, MethodInfo info BaseParse p) => IsLabelProxy t (BaseParse -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveBaseParseMethod t BaseParse, MethodInfo info BaseParse p) => IsLabel t (BaseParse -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- VVV Prop "disable-passthrough"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getBaseParseDisablePassthrough :: (MonadIO m, BaseParseK o) => o -> m Bool
getBaseParseDisablePassthrough obj = liftIO $ getObjectPropertyBool obj "disable-passthrough"
setBaseParseDisablePassthrough :: (MonadIO m, BaseParseK o) => o -> Bool -> m ()
setBaseParseDisablePassthrough obj val = liftIO $ setObjectPropertyBool obj "disable-passthrough" val
constructBaseParseDisablePassthrough :: Bool -> IO ([Char], GValue)
constructBaseParseDisablePassthrough val = constructObjectPropertyBool "disable-passthrough" val
data BaseParseDisablePassthroughPropertyInfo
instance AttrInfo BaseParseDisablePassthroughPropertyInfo where
type AttrAllowedOps BaseParseDisablePassthroughPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint BaseParseDisablePassthroughPropertyInfo = (~) Bool
type AttrBaseTypeConstraint BaseParseDisablePassthroughPropertyInfo = BaseParseK
type AttrGetType BaseParseDisablePassthroughPropertyInfo = Bool
type AttrLabel BaseParseDisablePassthroughPropertyInfo = "disable-passthrough"
attrGet _ = getBaseParseDisablePassthrough
attrSet _ = setBaseParseDisablePassthrough
attrConstruct _ = constructBaseParseDisablePassthrough
type instance AttributeList BaseParse = BaseParseAttributeList
type BaseParseAttributeList = ('[ '("disablePassthrough", BaseParseDisablePassthroughPropertyInfo), '("name", Gst.ObjectNamePropertyInfo), '("parent", Gst.ObjectParentPropertyInfo)] :: [(Symbol, *)])
type instance SignalList BaseParse = BaseParseSignalList
type BaseParseSignalList = ('[ '("deepNotify", Gst.ObjectDeepNotifySignalInfo), '("noMorePads", Gst.ElementNoMorePadsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("padAdded", Gst.ElementPadAddedSignalInfo), '("padRemoved", Gst.ElementPadRemovedSignalInfo)] :: [(Symbol, *)])
-- method BaseParse::add_index_entry
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseParse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ts", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "force", 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_base_parse_add_index_entry" gst_base_parse_add_index_entry ::
Ptr BaseParse -> -- _obj : TInterface "GstBase" "BaseParse"
Word64 -> -- offset : TBasicType TUInt64
Word64 -> -- ts : TBasicType TUInt64
CInt -> -- key : TBasicType TBoolean
CInt -> -- force : TBasicType TBoolean
IO CInt
baseParseAddIndexEntry ::
(MonadIO m, BaseParseK a) =>
a -- _obj
-> Word64 -- offset
-> Word64 -- ts
-> Bool -- key
-> Bool -- force
-> m Bool -- result
baseParseAddIndexEntry _obj offset ts key force = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let key' = (fromIntegral . fromEnum) key
let force' = (fromIntegral . fromEnum) force
result <- gst_base_parse_add_index_entry _obj' offset ts key' force'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data BaseParseAddIndexEntryMethodInfo
instance (signature ~ (Word64 -> Word64 -> Bool -> Bool -> m Bool), MonadIO m, BaseParseK a) => MethodInfo BaseParseAddIndexEntryMethodInfo a signature where
overloadedMethod _ = baseParseAddIndexEntry
-- method BaseParse::convert_default
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseParse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_format", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_format", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_value", 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_parse_convert_default" gst_base_parse_convert_default ::
Ptr BaseParse -> -- _obj : TInterface "GstBase" "BaseParse"
CUInt -> -- src_format : TInterface "Gst" "Format"
Int64 -> -- src_value : TBasicType TInt64
CUInt -> -- dest_format : TInterface "Gst" "Format"
Int64 -> -- dest_value : TBasicType TInt64
IO CInt
baseParseConvertDefault ::
(MonadIO m, BaseParseK a) =>
a -- _obj
-> Gst.Format -- srcFormat
-> Int64 -- srcValue
-> Gst.Format -- destFormat
-> Int64 -- destValue
-> m Bool -- result
baseParseConvertDefault _obj srcFormat srcValue destFormat destValue = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let srcFormat' = (fromIntegral . fromEnum) srcFormat
let destFormat' = (fromIntegral . fromEnum) destFormat
result <- gst_base_parse_convert_default _obj' srcFormat' srcValue destFormat' destValue
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data BaseParseConvertDefaultMethodInfo
instance (signature ~ (Gst.Format -> Int64 -> Gst.Format -> Int64 -> m Bool), MonadIO m, BaseParseK a) => MethodInfo BaseParseConvertDefaultMethodInfo a signature where
overloadedMethod _ = baseParseConvertDefault
-- method BaseParse::finish_frame
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseParse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "frame", argType = TInterface "GstBase" "BaseParseFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, 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_parse_finish_frame" gst_base_parse_finish_frame ::
Ptr BaseParse -> -- _obj : TInterface "GstBase" "BaseParse"
Ptr BaseParseFrame -> -- frame : TInterface "GstBase" "BaseParseFrame"
Int32 -> -- size : TBasicType TInt32
IO CUInt
baseParseFinishFrame ::
(MonadIO m, BaseParseK a) =>
a -- _obj
-> BaseParseFrame -- frame
-> Int32 -- size
-> m Gst.FlowReturn -- result
baseParseFinishFrame _obj frame size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let frame' = unsafeManagedPtrGetPtr frame
result <- gst_base_parse_finish_frame _obj' frame' size
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
touchManagedPtr frame
return result'
data BaseParseFinishFrameMethodInfo
instance (signature ~ (BaseParseFrame -> Int32 -> m Gst.FlowReturn), MonadIO m, BaseParseK a) => MethodInfo BaseParseFinishFrameMethodInfo a signature where
overloadedMethod _ = baseParseFinishFrame
-- method BaseParse::merge_tags
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseParse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tags", argType = TInterface "Gst" "TagList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gst" "TagMergeMode", 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_parse_merge_tags" gst_base_parse_merge_tags ::
Ptr BaseParse -> -- _obj : TInterface "GstBase" "BaseParse"
Ptr Gst.TagList -> -- tags : TInterface "Gst" "TagList"
CUInt -> -- mode : TInterface "Gst" "TagMergeMode"
IO ()
baseParseMergeTags ::
(MonadIO m, BaseParseK a) =>
a -- _obj
-> Maybe (Gst.TagList) -- tags
-> Gst.TagMergeMode -- mode
-> m () -- result
baseParseMergeTags _obj tags mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeTags <- case tags of
Nothing -> return nullPtr
Just jTags -> do
let jTags' = unsafeManagedPtrGetPtr jTags
return jTags'
let mode' = (fromIntegral . fromEnum) mode
gst_base_parse_merge_tags _obj' maybeTags mode'
touchManagedPtr _obj
whenJust tags touchManagedPtr
return ()
data BaseParseMergeTagsMethodInfo
instance (signature ~ (Maybe (Gst.TagList) -> Gst.TagMergeMode -> m ()), MonadIO m, BaseParseK a) => MethodInfo BaseParseMergeTagsMethodInfo a signature where
overloadedMethod _ = baseParseMergeTags
-- method BaseParse::push_frame
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseParse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "frame", argType = TInterface "GstBase" "BaseParseFrame", 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_parse_push_frame" gst_base_parse_push_frame ::
Ptr BaseParse -> -- _obj : TInterface "GstBase" "BaseParse"
Ptr BaseParseFrame -> -- frame : TInterface "GstBase" "BaseParseFrame"
IO CUInt
baseParsePushFrame ::
(MonadIO m, BaseParseK a) =>
a -- _obj
-> BaseParseFrame -- frame
-> m Gst.FlowReturn -- result
baseParsePushFrame _obj frame = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let frame' = unsafeManagedPtrGetPtr frame
result <- gst_base_parse_push_frame _obj' frame'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
touchManagedPtr frame
return result'
data BaseParsePushFrameMethodInfo
instance (signature ~ (BaseParseFrame -> m Gst.FlowReturn), MonadIO m, BaseParseK a) => MethodInfo BaseParsePushFrameMethodInfo a signature where
overloadedMethod _ = baseParsePushFrame
-- method BaseParse::set_average_bitrate
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseParse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bitrate", 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_parse_set_average_bitrate" gst_base_parse_set_average_bitrate ::
Ptr BaseParse -> -- _obj : TInterface "GstBase" "BaseParse"
Word32 -> -- bitrate : TBasicType TUInt32
IO ()
baseParseSetAverageBitrate ::
(MonadIO m, BaseParseK a) =>
a -- _obj
-> Word32 -- bitrate
-> m () -- result
baseParseSetAverageBitrate _obj bitrate = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gst_base_parse_set_average_bitrate _obj' bitrate
touchManagedPtr _obj
return ()
data BaseParseSetAverageBitrateMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, BaseParseK a) => MethodInfo BaseParseSetAverageBitrateMethodInfo a signature where
overloadedMethod _ = baseParseSetAverageBitrate
-- method BaseParse::set_duration
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseParse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fmt", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "duration", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_base_parse_set_duration" gst_base_parse_set_duration ::
Ptr BaseParse -> -- _obj : TInterface "GstBase" "BaseParse"
CUInt -> -- fmt : TInterface "Gst" "Format"
Int64 -> -- duration : TBasicType TInt64
Int32 -> -- interval : TBasicType TInt32
IO ()
baseParseSetDuration ::
(MonadIO m, BaseParseK a) =>
a -- _obj
-> Gst.Format -- fmt
-> Int64 -- duration
-> Int32 -- interval
-> m () -- result
baseParseSetDuration _obj fmt duration interval = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let fmt' = (fromIntegral . fromEnum) fmt
gst_base_parse_set_duration _obj' fmt' duration interval
touchManagedPtr _obj
return ()
data BaseParseSetDurationMethodInfo
instance (signature ~ (Gst.Format -> Int64 -> Int32 -> m ()), MonadIO m, BaseParseK a) => MethodInfo BaseParseSetDurationMethodInfo a signature where
overloadedMethod _ = baseParseSetDuration
-- method BaseParse::set_frame_rate
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseParse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fps_num", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fps_den", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lead_in", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lead_out", 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_parse_set_frame_rate" gst_base_parse_set_frame_rate ::
Ptr BaseParse -> -- _obj : TInterface "GstBase" "BaseParse"
Word32 -> -- fps_num : TBasicType TUInt32
Word32 -> -- fps_den : TBasicType TUInt32
Word32 -> -- lead_in : TBasicType TUInt32
Word32 -> -- lead_out : TBasicType TUInt32
IO ()
baseParseSetFrameRate ::
(MonadIO m, BaseParseK a) =>
a -- _obj
-> Word32 -- fpsNum
-> Word32 -- fpsDen
-> Word32 -- leadIn
-> Word32 -- leadOut
-> m () -- result
baseParseSetFrameRate _obj fpsNum fpsDen leadIn leadOut = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gst_base_parse_set_frame_rate _obj' fpsNum fpsDen leadIn leadOut
touchManagedPtr _obj
return ()
data BaseParseSetFrameRateMethodInfo
instance (signature ~ (Word32 -> Word32 -> Word32 -> Word32 -> m ()), MonadIO m, BaseParseK a) => MethodInfo BaseParseSetFrameRateMethodInfo a signature where
overloadedMethod _ = baseParseSetFrameRate
-- method BaseParse::set_has_timing_info
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseParse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_timing", 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_parse_set_has_timing_info" gst_base_parse_set_has_timing_info ::
Ptr BaseParse -> -- _obj : TInterface "GstBase" "BaseParse"
CInt -> -- has_timing : TBasicType TBoolean
IO ()
baseParseSetHasTimingInfo ::
(MonadIO m, BaseParseK a) =>
a -- _obj
-> Bool -- hasTiming
-> m () -- result
baseParseSetHasTimingInfo _obj hasTiming = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let hasTiming' = (fromIntegral . fromEnum) hasTiming
gst_base_parse_set_has_timing_info _obj' hasTiming'
touchManagedPtr _obj
return ()
data BaseParseSetHasTimingInfoMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, BaseParseK a) => MethodInfo BaseParseSetHasTimingInfoMethodInfo a signature where
overloadedMethod _ = baseParseSetHasTimingInfo
-- method BaseParse::set_infer_ts
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseParse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "infer_ts", 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_parse_set_infer_ts" gst_base_parse_set_infer_ts ::
Ptr BaseParse -> -- _obj : TInterface "GstBase" "BaseParse"
CInt -> -- infer_ts : TBasicType TBoolean
IO ()
baseParseSetInferTs ::
(MonadIO m, BaseParseK a) =>
a -- _obj
-> Bool -- inferTs
-> m () -- result
baseParseSetInferTs _obj inferTs = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let inferTs' = (fromIntegral . fromEnum) inferTs
gst_base_parse_set_infer_ts _obj' inferTs'
touchManagedPtr _obj
return ()
data BaseParseSetInferTsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, BaseParseK a) => MethodInfo BaseParseSetInferTsMethodInfo a signature where
overloadedMethod _ = baseParseSetInferTs
-- method BaseParse::set_latency
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseParse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_latency", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_latency", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_base_parse_set_latency" gst_base_parse_set_latency ::
Ptr BaseParse -> -- _obj : TInterface "GstBase" "BaseParse"
Word64 -> -- min_latency : TBasicType TUInt64
Word64 -> -- max_latency : TBasicType TUInt64
IO ()
baseParseSetLatency ::
(MonadIO m, BaseParseK a) =>
a -- _obj
-> Word64 -- minLatency
-> Word64 -- maxLatency
-> m () -- result
baseParseSetLatency _obj minLatency maxLatency = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gst_base_parse_set_latency _obj' minLatency maxLatency
touchManagedPtr _obj
return ()
data BaseParseSetLatencyMethodInfo
instance (signature ~ (Word64 -> Word64 -> m ()), MonadIO m, BaseParseK a) => MethodInfo BaseParseSetLatencyMethodInfo a signature where
overloadedMethod _ = baseParseSetLatency
-- method BaseParse::set_min_frame_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseParse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_size", 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_parse_set_min_frame_size" gst_base_parse_set_min_frame_size ::
Ptr BaseParse -> -- _obj : TInterface "GstBase" "BaseParse"
Word32 -> -- min_size : TBasicType TUInt32
IO ()
baseParseSetMinFrameSize ::
(MonadIO m, BaseParseK a) =>
a -- _obj
-> Word32 -- minSize
-> m () -- result
baseParseSetMinFrameSize _obj minSize = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gst_base_parse_set_min_frame_size _obj' minSize
touchManagedPtr _obj
return ()
data BaseParseSetMinFrameSizeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, BaseParseK a) => MethodInfo BaseParseSetMinFrameSizeMethodInfo a signature where
overloadedMethod _ = baseParseSetMinFrameSize
-- method BaseParse::set_passthrough
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseParse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "passthrough", 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_parse_set_passthrough" gst_base_parse_set_passthrough ::
Ptr BaseParse -> -- _obj : TInterface "GstBase" "BaseParse"
CInt -> -- passthrough : TBasicType TBoolean
IO ()
baseParseSetPassthrough ::
(MonadIO m, BaseParseK a) =>
a -- _obj
-> Bool -- passthrough
-> m () -- result
baseParseSetPassthrough _obj passthrough = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let passthrough' = (fromIntegral . fromEnum) passthrough
gst_base_parse_set_passthrough _obj' passthrough'
touchManagedPtr _obj
return ()
data BaseParseSetPassthroughMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, BaseParseK a) => MethodInfo BaseParseSetPassthroughMethodInfo a signature where
overloadedMethod _ = baseParseSetPassthrough
-- method BaseParse::set_pts_interpolation
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseParse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pts_interpolate", 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_parse_set_pts_interpolation" gst_base_parse_set_pts_interpolation ::
Ptr BaseParse -> -- _obj : TInterface "GstBase" "BaseParse"
CInt -> -- pts_interpolate : TBasicType TBoolean
IO ()
baseParseSetPtsInterpolation ::
(MonadIO m, BaseParseK a) =>
a -- _obj
-> Bool -- ptsInterpolate
-> m () -- result
baseParseSetPtsInterpolation _obj ptsInterpolate = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let ptsInterpolate' = (fromIntegral . fromEnum) ptsInterpolate
gst_base_parse_set_pts_interpolation _obj' ptsInterpolate'
touchManagedPtr _obj
return ()
data BaseParseSetPtsInterpolationMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, BaseParseK a) => MethodInfo BaseParseSetPtsInterpolationMethodInfo a signature where
overloadedMethod _ = baseParseSetPtsInterpolation
-- method BaseParse::set_syncable
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseParse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "syncable", 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_parse_set_syncable" gst_base_parse_set_syncable ::
Ptr BaseParse -> -- _obj : TInterface "GstBase" "BaseParse"
CInt -> -- syncable : TBasicType TBoolean
IO ()
baseParseSetSyncable ::
(MonadIO m, BaseParseK a) =>
a -- _obj
-> Bool -- syncable
-> m () -- result
baseParseSetSyncable _obj syncable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let syncable' = (fromIntegral . fromEnum) syncable
gst_base_parse_set_syncable _obj' syncable'
touchManagedPtr _obj
return ()
data BaseParseSetSyncableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, BaseParseK a) => MethodInfo BaseParseSetSyncableMethodInfo a signature where
overloadedMethod _ = baseParseSetSyncable
-- method BaseParse::set_ts_at_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GstBase" "BaseParse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_base_parse_set_ts_at_offset" gst_base_parse_set_ts_at_offset ::
Ptr BaseParse -> -- _obj : TInterface "GstBase" "BaseParse"
Word64 -> -- offset : TBasicType TUInt64
IO ()
baseParseSetTsAtOffset ::
(MonadIO m, BaseParseK a) =>
a -- _obj
-> Word64 -- offset
-> m () -- result
baseParseSetTsAtOffset _obj offset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gst_base_parse_set_ts_at_offset _obj' offset
touchManagedPtr _obj
return ()
data BaseParseSetTsAtOffsetMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, BaseParseK a) => MethodInfo BaseParseSetTsAtOffsetMethodInfo a signature where
overloadedMethod _ = baseParseSetTsAtOffset