{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GstBase.Objects.BaseParse
(
BaseParse(..) ,
IsBaseParse ,
toBaseParse ,
#if defined(ENABLE_OVERLOADING)
ResolveBaseParseMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
BaseParseAddIndexEntryMethodInfo ,
#endif
baseParseAddIndexEntry ,
#if defined(ENABLE_OVERLOADING)
BaseParseConvertDefaultMethodInfo ,
#endif
baseParseConvertDefault ,
#if defined(ENABLE_OVERLOADING)
BaseParseDrainMethodInfo ,
#endif
baseParseDrain ,
#if defined(ENABLE_OVERLOADING)
BaseParseFinishFrameMethodInfo ,
#endif
baseParseFinishFrame ,
#if defined(ENABLE_OVERLOADING)
BaseParseMergeTagsMethodInfo ,
#endif
baseParseMergeTags ,
#if defined(ENABLE_OVERLOADING)
BaseParsePushFrameMethodInfo ,
#endif
baseParsePushFrame ,
#if defined(ENABLE_OVERLOADING)
BaseParseSetAverageBitrateMethodInfo ,
#endif
baseParseSetAverageBitrate ,
#if defined(ENABLE_OVERLOADING)
BaseParseSetDurationMethodInfo ,
#endif
baseParseSetDuration ,
#if defined(ENABLE_OVERLOADING)
BaseParseSetFrameRateMethodInfo ,
#endif
baseParseSetFrameRate ,
#if defined(ENABLE_OVERLOADING)
BaseParseSetHasTimingInfoMethodInfo ,
#endif
baseParseSetHasTimingInfo ,
#if defined(ENABLE_OVERLOADING)
BaseParseSetInferTsMethodInfo ,
#endif
baseParseSetInferTs ,
#if defined(ENABLE_OVERLOADING)
BaseParseSetLatencyMethodInfo ,
#endif
baseParseSetLatency ,
#if defined(ENABLE_OVERLOADING)
BaseParseSetMinFrameSizeMethodInfo ,
#endif
baseParseSetMinFrameSize ,
#if defined(ENABLE_OVERLOADING)
BaseParseSetPassthroughMethodInfo ,
#endif
baseParseSetPassthrough ,
#if defined(ENABLE_OVERLOADING)
BaseParseSetPtsInterpolationMethodInfo ,
#endif
baseParseSetPtsInterpolation ,
#if defined(ENABLE_OVERLOADING)
BaseParseSetSyncableMethodInfo ,
#endif
baseParseSetSyncable ,
#if defined(ENABLE_OVERLOADING)
BaseParseSetTsAtOffsetMethodInfo ,
#endif
baseParseSetTsAtOffset ,
#if defined(ENABLE_OVERLOADING)
BaseParseDisablePassthroughPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
baseParseDisablePassthrough ,
#endif
constructBaseParseDisablePassthrough ,
getBaseParseDisablePassthrough ,
setBaseParseDisablePassthrough ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gst.Enums as Gst.Enums
import qualified GI.Gst.Objects.Element as Gst.Element
import qualified GI.Gst.Objects.Object as Gst.Object
import qualified GI.Gst.Structs.TagList as Gst.TagList
import {-# SOURCE #-} qualified GI.GstBase.Structs.BaseParseFrame as GstBase.BaseParseFrame
newtype BaseParse = BaseParse (SP.ManagedPtr BaseParse)
deriving (BaseParse -> BaseParse -> Bool
(BaseParse -> BaseParse -> Bool)
-> (BaseParse -> BaseParse -> Bool) -> Eq BaseParse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BaseParse -> BaseParse -> Bool
$c/= :: BaseParse -> BaseParse -> Bool
== :: BaseParse -> BaseParse -> Bool
$c== :: BaseParse -> BaseParse -> Bool
Eq)
instance SP.ManagedPtrNewtype BaseParse where
toManagedPtr :: BaseParse -> ManagedPtr BaseParse
toManagedPtr (BaseParse ManagedPtr BaseParse
p) = ManagedPtr BaseParse
p
foreign import ccall "gst_base_parse_get_type"
c_gst_base_parse_get_type :: IO B.Types.GType
instance B.Types.TypedObject BaseParse where
glibType :: IO GType
glibType = IO GType
c_gst_base_parse_get_type
instance B.Types.GObject BaseParse
instance B.GValue.IsGValue BaseParse where
toGValue :: BaseParse -> IO GValue
toGValue BaseParse
o = do
GType
gtype <- IO GType
c_gst_base_parse_get_type
BaseParse -> (Ptr BaseParse -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr BaseParse
o (GType
-> (GValue -> Ptr BaseParse -> IO ()) -> Ptr BaseParse -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr BaseParse -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO BaseParse
fromGValue GValue
gv = do
Ptr BaseParse
ptr <- GValue -> IO (Ptr BaseParse)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr BaseParse)
(ManagedPtr BaseParse -> BaseParse)
-> Ptr BaseParse -> IO BaseParse
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr BaseParse -> BaseParse
BaseParse Ptr BaseParse
ptr
class (SP.GObject o, O.IsDescendantOf BaseParse o) => IsBaseParse o
instance (SP.GObject o, O.IsDescendantOf BaseParse o) => IsBaseParse o
instance O.HasParentTypes BaseParse
type instance O.ParentTypes BaseParse = '[Gst.Element.Element, Gst.Object.Object, GObject.Object.Object]
toBaseParse :: (MonadIO m, IsBaseParse o) => o -> m BaseParse
toBaseParse :: o -> m BaseParse
toBaseParse = IO BaseParse -> m BaseParse
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO BaseParse -> m BaseParse)
-> (o -> IO BaseParse) -> o -> m BaseParse
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr BaseParse -> BaseParse) -> o -> IO BaseParse
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr BaseParse -> BaseParse
BaseParse
#if defined(ENABLE_OVERLOADING)
type family ResolveBaseParseMethod (t :: Symbol) (o :: *) :: * where
ResolveBaseParseMethod "abortState" o = Gst.Element.ElementAbortStateMethodInfo
ResolveBaseParseMethod "addControlBinding" o = Gst.Object.ObjectAddControlBindingMethodInfo
ResolveBaseParseMethod "addIndexEntry" o = BaseParseAddIndexEntryMethodInfo
ResolveBaseParseMethod "addPad" o = Gst.Element.ElementAddPadMethodInfo
ResolveBaseParseMethod "addPropertyDeepNotifyWatch" o = Gst.Element.ElementAddPropertyDeepNotifyWatchMethodInfo
ResolveBaseParseMethod "addPropertyNotifyWatch" o = Gst.Element.ElementAddPropertyNotifyWatchMethodInfo
ResolveBaseParseMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveBaseParseMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveBaseParseMethod "callAsync" o = Gst.Element.ElementCallAsyncMethodInfo
ResolveBaseParseMethod "changeState" o = Gst.Element.ElementChangeStateMethodInfo
ResolveBaseParseMethod "continueState" o = Gst.Element.ElementContinueStateMethodInfo
ResolveBaseParseMethod "convertDefault" o = BaseParseConvertDefaultMethodInfo
ResolveBaseParseMethod "createAllPads" o = Gst.Element.ElementCreateAllPadsMethodInfo
ResolveBaseParseMethod "defaultError" o = Gst.Object.ObjectDefaultErrorMethodInfo
ResolveBaseParseMethod "drain" o = BaseParseDrainMethodInfo
ResolveBaseParseMethod "finishFrame" o = BaseParseFinishFrameMethodInfo
ResolveBaseParseMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveBaseParseMethod "foreachPad" o = Gst.Element.ElementForeachPadMethodInfo
ResolveBaseParseMethod "foreachSinkPad" o = Gst.Element.ElementForeachSinkPadMethodInfo
ResolveBaseParseMethod "foreachSrcPad" o = Gst.Element.ElementForeachSrcPadMethodInfo
ResolveBaseParseMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveBaseParseMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveBaseParseMethod "hasActiveControlBindings" o = Gst.Object.ObjectHasActiveControlBindingsMethodInfo
ResolveBaseParseMethod "hasAncestor" o = Gst.Object.ObjectHasAncestorMethodInfo
ResolveBaseParseMethod "hasAsAncestor" o = Gst.Object.ObjectHasAsAncestorMethodInfo
ResolveBaseParseMethod "hasAsParent" o = Gst.Object.ObjectHasAsParentMethodInfo
ResolveBaseParseMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveBaseParseMethod "isLockedState" o = Gst.Element.ElementIsLockedStateMethodInfo
ResolveBaseParseMethod "iteratePads" o = Gst.Element.ElementIteratePadsMethodInfo
ResolveBaseParseMethod "iterateSinkPads" o = Gst.Element.ElementIterateSinkPadsMethodInfo
ResolveBaseParseMethod "iterateSrcPads" o = Gst.Element.ElementIterateSrcPadsMethodInfo
ResolveBaseParseMethod "link" o = Gst.Element.ElementLinkMethodInfo
ResolveBaseParseMethod "linkFiltered" o = Gst.Element.ElementLinkFilteredMethodInfo
ResolveBaseParseMethod "linkPads" o = Gst.Element.ElementLinkPadsMethodInfo
ResolveBaseParseMethod "linkPadsFiltered" o = Gst.Element.ElementLinkPadsFilteredMethodInfo
ResolveBaseParseMethod "linkPadsFull" o = Gst.Element.ElementLinkPadsFullMethodInfo
ResolveBaseParseMethod "lostState" o = Gst.Element.ElementLostStateMethodInfo
ResolveBaseParseMethod "mergeTags" o = BaseParseMergeTagsMethodInfo
ResolveBaseParseMethod "messageFull" o = Gst.Element.ElementMessageFullMethodInfo
ResolveBaseParseMethod "messageFullWithDetails" o = Gst.Element.ElementMessageFullWithDetailsMethodInfo
ResolveBaseParseMethod "noMorePads" o = Gst.Element.ElementNoMorePadsMethodInfo
ResolveBaseParseMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveBaseParseMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveBaseParseMethod "postMessage" o = Gst.Element.ElementPostMessageMethodInfo
ResolveBaseParseMethod "provideClock" o = Gst.Element.ElementProvideClockMethodInfo
ResolveBaseParseMethod "pushFrame" o = BaseParsePushFrameMethodInfo
ResolveBaseParseMethod "query" o = Gst.Element.ElementQueryMethodInfo
ResolveBaseParseMethod "queryConvert" o = Gst.Element.ElementQueryConvertMethodInfo
ResolveBaseParseMethod "queryDuration" o = Gst.Element.ElementQueryDurationMethodInfo
ResolveBaseParseMethod "queryPosition" o = Gst.Element.ElementQueryPositionMethodInfo
ResolveBaseParseMethod "ref" o = Gst.Object.ObjectRefMethodInfo
ResolveBaseParseMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveBaseParseMethod "releaseRequestPad" o = Gst.Element.ElementReleaseRequestPadMethodInfo
ResolveBaseParseMethod "removeControlBinding" o = Gst.Object.ObjectRemoveControlBindingMethodInfo
ResolveBaseParseMethod "removePad" o = Gst.Element.ElementRemovePadMethodInfo
ResolveBaseParseMethod "removePropertyNotifyWatch" o = Gst.Element.ElementRemovePropertyNotifyWatchMethodInfo
ResolveBaseParseMethod "requestPad" o = Gst.Element.ElementRequestPadMethodInfo
ResolveBaseParseMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveBaseParseMethod "seek" o = Gst.Element.ElementSeekMethodInfo
ResolveBaseParseMethod "seekSimple" o = Gst.Element.ElementSeekSimpleMethodInfo
ResolveBaseParseMethod "sendEvent" o = Gst.Element.ElementSendEventMethodInfo
ResolveBaseParseMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveBaseParseMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveBaseParseMethod "suggestNextSync" o = Gst.Object.ObjectSuggestNextSyncMethodInfo
ResolveBaseParseMethod "syncStateWithParent" o = Gst.Element.ElementSyncStateWithParentMethodInfo
ResolveBaseParseMethod "syncValues" o = Gst.Object.ObjectSyncValuesMethodInfo
ResolveBaseParseMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveBaseParseMethod "unlink" o = Gst.Element.ElementUnlinkMethodInfo
ResolveBaseParseMethod "unlinkPads" o = Gst.Element.ElementUnlinkPadsMethodInfo
ResolveBaseParseMethod "unparent" o = Gst.Object.ObjectUnparentMethodInfo
ResolveBaseParseMethod "unref" o = Gst.Object.ObjectUnrefMethodInfo
ResolveBaseParseMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveBaseParseMethod "getBaseTime" o = Gst.Element.ElementGetBaseTimeMethodInfo
ResolveBaseParseMethod "getBus" o = Gst.Element.ElementGetBusMethodInfo
ResolveBaseParseMethod "getClock" o = Gst.Element.ElementGetClockMethodInfo
ResolveBaseParseMethod "getCompatiblePad" o = Gst.Element.ElementGetCompatiblePadMethodInfo
ResolveBaseParseMethod "getCompatiblePadTemplate" o = Gst.Element.ElementGetCompatiblePadTemplateMethodInfo
ResolveBaseParseMethod "getContext" o = Gst.Element.ElementGetContextMethodInfo
ResolveBaseParseMethod "getContextUnlocked" o = Gst.Element.ElementGetContextUnlockedMethodInfo
ResolveBaseParseMethod "getContexts" o = Gst.Element.ElementGetContextsMethodInfo
ResolveBaseParseMethod "getControlBinding" o = Gst.Object.ObjectGetControlBindingMethodInfo
ResolveBaseParseMethod "getControlRate" o = Gst.Object.ObjectGetControlRateMethodInfo
ResolveBaseParseMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveBaseParseMethod "getFactory" o = Gst.Element.ElementGetFactoryMethodInfo
ResolveBaseParseMethod "getGValueArray" o = Gst.Object.ObjectGetGValueArrayMethodInfo
ResolveBaseParseMethod "getMetadata" o = Gst.Element.ElementGetMetadataMethodInfo
ResolveBaseParseMethod "getName" o = Gst.Object.ObjectGetNameMethodInfo
ResolveBaseParseMethod "getPadTemplate" o = Gst.Element.ElementGetPadTemplateMethodInfo
ResolveBaseParseMethod "getPadTemplateList" o = Gst.Element.ElementGetPadTemplateListMethodInfo
ResolveBaseParseMethod "getParent" o = Gst.Object.ObjectGetParentMethodInfo
ResolveBaseParseMethod "getPathString" o = Gst.Object.ObjectGetPathStringMethodInfo
ResolveBaseParseMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveBaseParseMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveBaseParseMethod "getRequestPad" o = Gst.Element.ElementGetRequestPadMethodInfo
ResolveBaseParseMethod "getStartTime" o = Gst.Element.ElementGetStartTimeMethodInfo
ResolveBaseParseMethod "getState" o = Gst.Element.ElementGetStateMethodInfo
ResolveBaseParseMethod "getStaticPad" o = Gst.Element.ElementGetStaticPadMethodInfo
ResolveBaseParseMethod "getValue" o = Gst.Object.ObjectGetValueMethodInfo
ResolveBaseParseMethod "setAverageBitrate" o = BaseParseSetAverageBitrateMethodInfo
ResolveBaseParseMethod "setBaseTime" o = Gst.Element.ElementSetBaseTimeMethodInfo
ResolveBaseParseMethod "setBus" o = Gst.Element.ElementSetBusMethodInfo
ResolveBaseParseMethod "setClock" o = Gst.Element.ElementSetClockMethodInfo
ResolveBaseParseMethod "setContext" o = Gst.Element.ElementSetContextMethodInfo
ResolveBaseParseMethod "setControlBindingDisabled" o = Gst.Object.ObjectSetControlBindingDisabledMethodInfo
ResolveBaseParseMethod "setControlBindingsDisabled" o = Gst.Object.ObjectSetControlBindingsDisabledMethodInfo
ResolveBaseParseMethod "setControlRate" o = Gst.Object.ObjectSetControlRateMethodInfo
ResolveBaseParseMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveBaseParseMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveBaseParseMethod "setDuration" o = BaseParseSetDurationMethodInfo
ResolveBaseParseMethod "setFrameRate" o = BaseParseSetFrameRateMethodInfo
ResolveBaseParseMethod "setHasTimingInfo" o = BaseParseSetHasTimingInfoMethodInfo
ResolveBaseParseMethod "setInferTs" o = BaseParseSetInferTsMethodInfo
ResolveBaseParseMethod "setLatency" o = BaseParseSetLatencyMethodInfo
ResolveBaseParseMethod "setLockedState" o = Gst.Element.ElementSetLockedStateMethodInfo
ResolveBaseParseMethod "setMinFrameSize" o = BaseParseSetMinFrameSizeMethodInfo
ResolveBaseParseMethod "setName" o = Gst.Object.ObjectSetNameMethodInfo
ResolveBaseParseMethod "setParent" o = Gst.Object.ObjectSetParentMethodInfo
ResolveBaseParseMethod "setPassthrough" o = BaseParseSetPassthroughMethodInfo
ResolveBaseParseMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveBaseParseMethod "setPtsInterpolation" o = BaseParseSetPtsInterpolationMethodInfo
ResolveBaseParseMethod "setStartTime" o = Gst.Element.ElementSetStartTimeMethodInfo
ResolveBaseParseMethod "setState" o = Gst.Element.ElementSetStateMethodInfo
ResolveBaseParseMethod "setSyncable" o = BaseParseSetSyncableMethodInfo
ResolveBaseParseMethod "setTsAtOffset" o = BaseParseSetTsAtOffsetMethodInfo
ResolveBaseParseMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveBaseParseMethod t BaseParse, O.MethodInfo info BaseParse p) => OL.IsLabel t (BaseParse -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getBaseParseDisablePassthrough :: (MonadIO m, IsBaseParse o) => o -> m Bool
getBaseParseDisablePassthrough :: o -> m Bool
getBaseParseDisablePassthrough o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"disable-passthrough"
setBaseParseDisablePassthrough :: (MonadIO m, IsBaseParse o) => o -> Bool -> m ()
setBaseParseDisablePassthrough :: o -> Bool -> m ()
setBaseParseDisablePassthrough o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"disable-passthrough" Bool
val
constructBaseParseDisablePassthrough :: (IsBaseParse o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructBaseParseDisablePassthrough :: Bool -> m (GValueConstruct o)
constructBaseParseDisablePassthrough Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"disable-passthrough" Bool
val
#if defined(ENABLE_OVERLOADING)
data BaseParseDisablePassthroughPropertyInfo
instance AttrInfo BaseParseDisablePassthroughPropertyInfo where
type AttrAllowedOps BaseParseDisablePassthroughPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BaseParseDisablePassthroughPropertyInfo = IsBaseParse
type AttrSetTypeConstraint BaseParseDisablePassthroughPropertyInfo = (~) Bool
type AttrTransferTypeConstraint BaseParseDisablePassthroughPropertyInfo = (~) Bool
type AttrTransferType BaseParseDisablePassthroughPropertyInfo = Bool
type AttrGetType BaseParseDisablePassthroughPropertyInfo = Bool
type AttrLabel BaseParseDisablePassthroughPropertyInfo = "disable-passthrough"
type AttrOrigin BaseParseDisablePassthroughPropertyInfo = BaseParse
attrGet = getBaseParseDisablePassthrough
attrSet = setBaseParseDisablePassthrough
attrTransfer _ v = do
return v
attrConstruct = constructBaseParseDisablePassthrough
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList BaseParse
type instance O.AttributeList BaseParse = BaseParseAttributeList
type BaseParseAttributeList = ('[ '("disablePassthrough", BaseParseDisablePassthroughPropertyInfo), '("name", Gst.Object.ObjectNamePropertyInfo), '("parent", Gst.Object.ObjectParentPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
baseParseDisablePassthrough :: AttrLabelProxy "disablePassthrough"
baseParseDisablePassthrough = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList BaseParse = BaseParseSignalList
type BaseParseSignalList = ('[ '("deepNotify", Gst.Object.ObjectDeepNotifySignalInfo), '("noMorePads", Gst.Element.ElementNoMorePadsSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("padAdded", Gst.Element.ElementPadAddedSignalInfo), '("padRemoved", Gst.Element.ElementPadRemovedSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gst_base_parse_add_index_entry" gst_base_parse_add_index_entry ::
Ptr BaseParse ->
Word64 ->
Word64 ->
CInt ->
CInt ->
IO CInt
baseParseAddIndexEntry ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseParse a) =>
a
-> Word64
-> Word64
-> Bool
-> Bool
-> m Bool
baseParseAddIndexEntry :: a -> Word64 -> Word64 -> Bool -> Bool -> m Bool
baseParseAddIndexEntry a
parse Word64
offset Word64
ts Bool
key Bool
force = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseParse
parse' <- a -> IO (Ptr BaseParse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parse
let key' :: CInt
key' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
key
let force' :: CInt
force' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
force
CInt
result <- Ptr BaseParse -> Word64 -> Word64 -> CInt -> CInt -> IO CInt
gst_base_parse_add_index_entry Ptr BaseParse
parse' Word64
offset Word64
ts CInt
key' CInt
force'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parse
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data BaseParseAddIndexEntryMethodInfo
instance (signature ~ (Word64 -> Word64 -> Bool -> Bool -> m Bool), MonadIO m, IsBaseParse a) => O.MethodInfo BaseParseAddIndexEntryMethodInfo a signature where
overloadedMethod = baseParseAddIndexEntry
#endif
foreign import ccall "gst_base_parse_convert_default" gst_base_parse_convert_default ::
Ptr BaseParse ->
CUInt ->
Int64 ->
CUInt ->
Ptr Int64 ->
IO CInt
baseParseConvertDefault ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseParse a) =>
a
-> Gst.Enums.Format
-> Int64
-> Gst.Enums.Format
-> m ((Bool, Int64))
baseParseConvertDefault :: a -> Format -> Int64 -> Format -> m (Bool, Int64)
baseParseConvertDefault a
parse Format
srcFormat Int64
srcValue Format
destFormat = IO (Bool, Int64) -> m (Bool, Int64)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Int64) -> m (Bool, Int64))
-> IO (Bool, Int64) -> m (Bool, Int64)
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseParse
parse' <- a -> IO (Ptr BaseParse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parse
let srcFormat' :: CUInt
srcFormat' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Format -> Int) -> Format -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Format -> Int
forall a. Enum a => a -> Int
fromEnum) Format
srcFormat
let destFormat' :: CUInt
destFormat' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Format -> Int) -> Format -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Format -> Int
forall a. Enum a => a -> Int
fromEnum) Format
destFormat
Ptr Int64
destValue <- IO (Ptr Int64)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int64)
CInt
result <- Ptr BaseParse -> CUInt -> Int64 -> CUInt -> Ptr Int64 -> IO CInt
gst_base_parse_convert_default Ptr BaseParse
parse' CUInt
srcFormat' Int64
srcValue CUInt
destFormat' Ptr Int64
destValue
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Int64
destValue' <- Ptr Int64 -> IO Int64
forall a. Storable a => Ptr a -> IO a
peek Ptr Int64
destValue
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parse
Ptr Int64 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int64
destValue
(Bool, Int64) -> IO (Bool, Int64)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Int64
destValue')
#if defined(ENABLE_OVERLOADING)
data BaseParseConvertDefaultMethodInfo
instance (signature ~ (Gst.Enums.Format -> Int64 -> Gst.Enums.Format -> m ((Bool, Int64))), MonadIO m, IsBaseParse a) => O.MethodInfo BaseParseConvertDefaultMethodInfo a signature where
overloadedMethod = baseParseConvertDefault
#endif
foreign import ccall "gst_base_parse_drain" gst_base_parse_drain ::
Ptr BaseParse ->
IO ()
baseParseDrain ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseParse a) =>
a
-> m ()
baseParseDrain :: a -> m ()
baseParseDrain a
parse = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseParse
parse' <- a -> IO (Ptr BaseParse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parse
Ptr BaseParse -> IO ()
gst_base_parse_drain Ptr BaseParse
parse'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parse
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseDrainMethodInfo
instance (signature ~ (m ()), MonadIO m, IsBaseParse a) => O.MethodInfo BaseParseDrainMethodInfo a signature where
overloadedMethod = baseParseDrain
#endif
foreign import ccall "gst_base_parse_finish_frame" gst_base_parse_finish_frame ::
Ptr BaseParse ->
Ptr GstBase.BaseParseFrame.BaseParseFrame ->
Int32 ->
IO CInt
baseParseFinishFrame ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseParse a) =>
a
-> GstBase.BaseParseFrame.BaseParseFrame
-> Int32
-> m Gst.Enums.FlowReturn
baseParseFinishFrame :: a -> BaseParseFrame -> Int32 -> m FlowReturn
baseParseFinishFrame a
parse BaseParseFrame
frame Int32
size = IO FlowReturn -> m FlowReturn
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FlowReturn -> m FlowReturn) -> IO FlowReturn -> m FlowReturn
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseParse
parse' <- a -> IO (Ptr BaseParse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parse
Ptr BaseParseFrame
frame' <- BaseParseFrame -> IO (Ptr BaseParseFrame)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BaseParseFrame
frame
CInt
result <- Ptr BaseParse -> Ptr BaseParseFrame -> Int32 -> IO CInt
gst_base_parse_finish_frame Ptr BaseParse
parse' Ptr BaseParseFrame
frame' Int32
size
let result' :: FlowReturn
result' = (Int -> FlowReturn
forall a. Enum a => Int -> a
toEnum (Int -> FlowReturn) -> (CInt -> Int) -> CInt -> FlowReturn
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parse
BaseParseFrame -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr BaseParseFrame
frame
FlowReturn -> IO FlowReturn
forall (m :: * -> *) a. Monad m => a -> m a
return FlowReturn
result'
#if defined(ENABLE_OVERLOADING)
data BaseParseFinishFrameMethodInfo
instance (signature ~ (GstBase.BaseParseFrame.BaseParseFrame -> Int32 -> m Gst.Enums.FlowReturn), MonadIO m, IsBaseParse a) => O.MethodInfo BaseParseFinishFrameMethodInfo a signature where
overloadedMethod = baseParseFinishFrame
#endif
foreign import ccall "gst_base_parse_merge_tags" gst_base_parse_merge_tags ::
Ptr BaseParse ->
Ptr Gst.TagList.TagList ->
CUInt ->
IO ()
baseParseMergeTags ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseParse a) =>
a
-> Maybe (Gst.TagList.TagList)
-> Gst.Enums.TagMergeMode
-> m ()
baseParseMergeTags :: a -> Maybe TagList -> TagMergeMode -> m ()
baseParseMergeTags a
parse Maybe TagList
tags TagMergeMode
mode = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseParse
parse' <- a -> IO (Ptr BaseParse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parse
Ptr TagList
maybeTags <- case Maybe TagList
tags of
Maybe TagList
Nothing -> Ptr TagList -> IO (Ptr TagList)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TagList
forall a. Ptr a
nullPtr
Just TagList
jTags -> do
Ptr TagList
jTags' <- TagList -> IO (Ptr TagList)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TagList
jTags
Ptr TagList -> IO (Ptr TagList)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TagList
jTags'
let mode' :: CUInt
mode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (TagMergeMode -> Int) -> TagMergeMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TagMergeMode -> Int
forall a. Enum a => a -> Int
fromEnum) TagMergeMode
mode
Ptr BaseParse -> Ptr TagList -> CUInt -> IO ()
gst_base_parse_merge_tags Ptr BaseParse
parse' Ptr TagList
maybeTags CUInt
mode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parse
Maybe TagList -> (TagList -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe TagList
tags TagList -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseMergeTagsMethodInfo
instance (signature ~ (Maybe (Gst.TagList.TagList) -> Gst.Enums.TagMergeMode -> m ()), MonadIO m, IsBaseParse a) => O.MethodInfo BaseParseMergeTagsMethodInfo a signature where
overloadedMethod = baseParseMergeTags
#endif
foreign import ccall "gst_base_parse_push_frame" gst_base_parse_push_frame ::
Ptr BaseParse ->
Ptr GstBase.BaseParseFrame.BaseParseFrame ->
IO CInt
baseParsePushFrame ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseParse a) =>
a
-> GstBase.BaseParseFrame.BaseParseFrame
-> m Gst.Enums.FlowReturn
baseParsePushFrame :: a -> BaseParseFrame -> m FlowReturn
baseParsePushFrame a
parse BaseParseFrame
frame = IO FlowReturn -> m FlowReturn
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FlowReturn -> m FlowReturn) -> IO FlowReturn -> m FlowReturn
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseParse
parse' <- a -> IO (Ptr BaseParse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parse
Ptr BaseParseFrame
frame' <- BaseParseFrame -> IO (Ptr BaseParseFrame)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BaseParseFrame
frame
CInt
result <- Ptr BaseParse -> Ptr BaseParseFrame -> IO CInt
gst_base_parse_push_frame Ptr BaseParse
parse' Ptr BaseParseFrame
frame'
let result' :: FlowReturn
result' = (Int -> FlowReturn
forall a. Enum a => Int -> a
toEnum (Int -> FlowReturn) -> (CInt -> Int) -> CInt -> FlowReturn
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parse
BaseParseFrame -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr BaseParseFrame
frame
FlowReturn -> IO FlowReturn
forall (m :: * -> *) a. Monad m => a -> m a
return FlowReturn
result'
#if defined(ENABLE_OVERLOADING)
data BaseParsePushFrameMethodInfo
instance (signature ~ (GstBase.BaseParseFrame.BaseParseFrame -> m Gst.Enums.FlowReturn), MonadIO m, IsBaseParse a) => O.MethodInfo BaseParsePushFrameMethodInfo a signature where
overloadedMethod = baseParsePushFrame
#endif
foreign import ccall "gst_base_parse_set_average_bitrate" gst_base_parse_set_average_bitrate ::
Ptr BaseParse ->
Word32 ->
IO ()
baseParseSetAverageBitrate ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseParse a) =>
a
-> Word32
-> m ()
baseParseSetAverageBitrate :: a -> Word32 -> m ()
baseParseSetAverageBitrate a
parse Word32
bitrate = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseParse
parse' <- a -> IO (Ptr BaseParse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parse
Ptr BaseParse -> Word32 -> IO ()
gst_base_parse_set_average_bitrate Ptr BaseParse
parse' Word32
bitrate
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parse
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetAverageBitrateMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsBaseParse a) => O.MethodInfo BaseParseSetAverageBitrateMethodInfo a signature where
overloadedMethod = baseParseSetAverageBitrate
#endif
foreign import ccall "gst_base_parse_set_duration" gst_base_parse_set_duration ::
Ptr BaseParse ->
CUInt ->
Int64 ->
Int32 ->
IO ()
baseParseSetDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseParse a) =>
a
-> Gst.Enums.Format
-> Int64
-> Int32
-> m ()
baseParseSetDuration :: a -> Format -> Int64 -> Int32 -> m ()
baseParseSetDuration a
parse Format
fmt Int64
duration Int32
interval = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseParse
parse' <- a -> IO (Ptr BaseParse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parse
let fmt' :: CUInt
fmt' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Format -> Int) -> Format -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Format -> Int
forall a. Enum a => a -> Int
fromEnum) Format
fmt
Ptr BaseParse -> CUInt -> Int64 -> Int32 -> IO ()
gst_base_parse_set_duration Ptr BaseParse
parse' CUInt
fmt' Int64
duration Int32
interval
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parse
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetDurationMethodInfo
instance (signature ~ (Gst.Enums.Format -> Int64 -> Int32 -> m ()), MonadIO m, IsBaseParse a) => O.MethodInfo BaseParseSetDurationMethodInfo a signature where
overloadedMethod = baseParseSetDuration
#endif
foreign import ccall "gst_base_parse_set_frame_rate" gst_base_parse_set_frame_rate ::
Ptr BaseParse ->
Word32 ->
Word32 ->
Word32 ->
Word32 ->
IO ()
baseParseSetFrameRate ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseParse a) =>
a
-> Word32
-> Word32
-> Word32
-> Word32
-> m ()
baseParseSetFrameRate :: a -> Word32 -> Word32 -> Word32 -> Word32 -> m ()
baseParseSetFrameRate a
parse Word32
fpsNum Word32
fpsDen Word32
leadIn Word32
leadOut = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseParse
parse' <- a -> IO (Ptr BaseParse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parse
Ptr BaseParse -> Word32 -> Word32 -> Word32 -> Word32 -> IO ()
gst_base_parse_set_frame_rate Ptr BaseParse
parse' Word32
fpsNum Word32
fpsDen Word32
leadIn Word32
leadOut
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parse
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetFrameRateMethodInfo
instance (signature ~ (Word32 -> Word32 -> Word32 -> Word32 -> m ()), MonadIO m, IsBaseParse a) => O.MethodInfo BaseParseSetFrameRateMethodInfo a signature where
overloadedMethod = baseParseSetFrameRate
#endif
foreign import ccall "gst_base_parse_set_has_timing_info" gst_base_parse_set_has_timing_info ::
Ptr BaseParse ->
CInt ->
IO ()
baseParseSetHasTimingInfo ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseParse a) =>
a
-> Bool
-> m ()
baseParseSetHasTimingInfo :: a -> Bool -> m ()
baseParseSetHasTimingInfo a
parse Bool
hasTiming = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseParse
parse' <- a -> IO (Ptr BaseParse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parse
let hasTiming' :: CInt
hasTiming' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
hasTiming
Ptr BaseParse -> CInt -> IO ()
gst_base_parse_set_has_timing_info Ptr BaseParse
parse' CInt
hasTiming'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parse
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetHasTimingInfoMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseParse a) => O.MethodInfo BaseParseSetHasTimingInfoMethodInfo a signature where
overloadedMethod = baseParseSetHasTimingInfo
#endif
foreign import ccall "gst_base_parse_set_infer_ts" gst_base_parse_set_infer_ts ::
Ptr BaseParse ->
CInt ->
IO ()
baseParseSetInferTs ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseParse a) =>
a
-> Bool
-> m ()
baseParseSetInferTs :: a -> Bool -> m ()
baseParseSetInferTs a
parse Bool
inferTs = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseParse
parse' <- a -> IO (Ptr BaseParse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parse
let inferTs' :: CInt
inferTs' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
inferTs
Ptr BaseParse -> CInt -> IO ()
gst_base_parse_set_infer_ts Ptr BaseParse
parse' CInt
inferTs'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parse
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetInferTsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseParse a) => O.MethodInfo BaseParseSetInferTsMethodInfo a signature where
overloadedMethod = baseParseSetInferTs
#endif
foreign import ccall "gst_base_parse_set_latency" gst_base_parse_set_latency ::
Ptr BaseParse ->
Word64 ->
Word64 ->
IO ()
baseParseSetLatency ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseParse a) =>
a
-> Word64
-> Word64
-> m ()
baseParseSetLatency :: a -> Word64 -> Word64 -> m ()
baseParseSetLatency a
parse Word64
minLatency Word64
maxLatency = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseParse
parse' <- a -> IO (Ptr BaseParse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parse
Ptr BaseParse -> Word64 -> Word64 -> IO ()
gst_base_parse_set_latency Ptr BaseParse
parse' Word64
minLatency Word64
maxLatency
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parse
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetLatencyMethodInfo
instance (signature ~ (Word64 -> Word64 -> m ()), MonadIO m, IsBaseParse a) => O.MethodInfo BaseParseSetLatencyMethodInfo a signature where
overloadedMethod = baseParseSetLatency
#endif
foreign import ccall "gst_base_parse_set_min_frame_size" gst_base_parse_set_min_frame_size ::
Ptr BaseParse ->
Word32 ->
IO ()
baseParseSetMinFrameSize ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseParse a) =>
a
-> Word32
-> m ()
baseParseSetMinFrameSize :: a -> Word32 -> m ()
baseParseSetMinFrameSize a
parse Word32
minSize = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseParse
parse' <- a -> IO (Ptr BaseParse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parse
Ptr BaseParse -> Word32 -> IO ()
gst_base_parse_set_min_frame_size Ptr BaseParse
parse' Word32
minSize
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parse
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetMinFrameSizeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsBaseParse a) => O.MethodInfo BaseParseSetMinFrameSizeMethodInfo a signature where
overloadedMethod = baseParseSetMinFrameSize
#endif
foreign import ccall "gst_base_parse_set_passthrough" gst_base_parse_set_passthrough ::
Ptr BaseParse ->
CInt ->
IO ()
baseParseSetPassthrough ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseParse a) =>
a
-> Bool
-> m ()
baseParseSetPassthrough :: a -> Bool -> m ()
baseParseSetPassthrough a
parse Bool
passthrough = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseParse
parse' <- a -> IO (Ptr BaseParse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parse
let passthrough' :: CInt
passthrough' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
passthrough
Ptr BaseParse -> CInt -> IO ()
gst_base_parse_set_passthrough Ptr BaseParse
parse' CInt
passthrough'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parse
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetPassthroughMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseParse a) => O.MethodInfo BaseParseSetPassthroughMethodInfo a signature where
overloadedMethod = baseParseSetPassthrough
#endif
foreign import ccall "gst_base_parse_set_pts_interpolation" gst_base_parse_set_pts_interpolation ::
Ptr BaseParse ->
CInt ->
IO ()
baseParseSetPtsInterpolation ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseParse a) =>
a
-> Bool
-> m ()
baseParseSetPtsInterpolation :: a -> Bool -> m ()
baseParseSetPtsInterpolation a
parse Bool
ptsInterpolate = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseParse
parse' <- a -> IO (Ptr BaseParse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parse
let ptsInterpolate' :: CInt
ptsInterpolate' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
ptsInterpolate
Ptr BaseParse -> CInt -> IO ()
gst_base_parse_set_pts_interpolation Ptr BaseParse
parse' CInt
ptsInterpolate'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parse
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetPtsInterpolationMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseParse a) => O.MethodInfo BaseParseSetPtsInterpolationMethodInfo a signature where
overloadedMethod = baseParseSetPtsInterpolation
#endif
foreign import ccall "gst_base_parse_set_syncable" gst_base_parse_set_syncable ::
Ptr BaseParse ->
CInt ->
IO ()
baseParseSetSyncable ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseParse a) =>
a
-> Bool
-> m ()
baseParseSetSyncable :: a -> Bool -> m ()
baseParseSetSyncable a
parse Bool
syncable = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseParse
parse' <- a -> IO (Ptr BaseParse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parse
let syncable' :: CInt
syncable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
syncable
Ptr BaseParse -> CInt -> IO ()
gst_base_parse_set_syncable Ptr BaseParse
parse' CInt
syncable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parse
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetSyncableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseParse a) => O.MethodInfo BaseParseSetSyncableMethodInfo a signature where
overloadedMethod = baseParseSetSyncable
#endif
foreign import ccall "gst_base_parse_set_ts_at_offset" gst_base_parse_set_ts_at_offset ::
Ptr BaseParse ->
Word64 ->
IO ()
baseParseSetTsAtOffset ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseParse a) =>
a
-> Word64
-> m ()
baseParseSetTsAtOffset :: a -> Word64 -> m ()
baseParseSetTsAtOffset a
parse Word64
offset = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseParse
parse' <- a -> IO (Ptr BaseParse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parse
Ptr BaseParse -> Word64 -> IO ()
gst_base_parse_set_ts_at_offset Ptr BaseParse
parse' Word64
offset
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parse
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetTsAtOffsetMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, IsBaseParse a) => O.MethodInfo BaseParseSetTsAtOffsetMethodInfo a signature where
overloadedMethod = baseParseSetTsAtOffset
#endif