{-# 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.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 GHC.Records as R
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
$c== :: BaseParse -> BaseParse -> Bool
== :: BaseParse -> BaseParse -> Bool
$c/= :: BaseParse -> BaseParse -> Bool
/= :: 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
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 :: (MIO.MonadIO m, IsBaseParse o) => o -> m BaseParse
toBaseParse :: forall (m :: * -> *) o.
(MonadIO m, IsBaseParse o) =>
o -> m BaseParse
toBaseParse = IO BaseParse -> m BaseParse
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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'
B.ManagedPtr.unsafeCastTo ManagedPtr BaseParse -> BaseParse
BaseParse
instance B.GValue.IsGValue (Maybe BaseParse) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gst_base_parse_get_type
gvalueSet_ :: Ptr GValue -> Maybe BaseParse -> IO ()
gvalueSet_ Ptr GValue
gv Maybe BaseParse
P.Nothing = Ptr GValue -> Ptr BaseParse -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr BaseParse
forall a. Ptr a
FP.nullPtr :: FP.Ptr BaseParse)
gvalueSet_ Ptr GValue
gv (P.Just BaseParse
obj) = BaseParse -> (Ptr BaseParse -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr BaseParse
obj (Ptr GValue -> Ptr BaseParse -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe BaseParse)
gvalueGet_ Ptr GValue
gv = do
Ptr BaseParse
ptr <- Ptr GValue -> IO (Ptr BaseParse)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr BaseParse)
if Ptr BaseParse
ptr Ptr BaseParse -> Ptr BaseParse -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr BaseParse
forall a. Ptr a
FP.nullPtr
then BaseParse -> Maybe BaseParse
forall a. a -> Maybe a
P.Just (BaseParse -> Maybe BaseParse)
-> IO BaseParse -> IO (Maybe BaseParse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe BaseParse -> IO (Maybe BaseParse)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe BaseParse
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveBaseParseMethod (t :: Symbol) (o :: DK.Type) :: DK.Type 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 "requestPadSimple" o = Gst.Element.ElementRequestPadSimpleMethodInfo
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 "getCurrentClockTime" o = Gst.Element.ElementGetCurrentClockTimeMethodInfo
ResolveBaseParseMethod "getCurrentRunningTime" o = Gst.Element.ElementGetCurrentRunningTimeMethodInfo
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.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveBaseParseMethod t BaseParse, O.OverloadedMethod info BaseParse p, R.HasField t BaseParse p) => R.HasField t BaseParse p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveBaseParseMethod t BaseParse, O.OverloadedMethodInfo info BaseParse) => OL.IsLabel t (O.MethodProxy info BaseParse) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getBaseParseDisablePassthrough :: (MonadIO m, IsBaseParse o) => o -> m Bool
getBaseParseDisablePassthrough :: forall (m :: * -> *) o. (MonadIO m, IsBaseParse o) => o -> m Bool
getBaseParseDisablePassthrough o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsBaseParse o) =>
o -> Bool -> m ()
setBaseParseDisablePassthrough o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsBaseParse o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructBaseParseDisablePassthrough Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseParse.disablePassthrough"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.28/docs/GI-GstBase-Objects-BaseParse.html#g:attr:disablePassthrough"
})
#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, DK.Type)])
#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, DK.Type)])
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseParse a) =>
a -> Word64 -> Word64 -> Bool -> Bool -> m Bool
baseParseAddIndexEntry a
parse Word64
offset Word64
ts Bool
key Bool
force = IO Bool -> m Bool
forall a. IO a -> m a
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
P.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
P.fromEnum) Bool
key
let force' :: CInt
force' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.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 a. a -> IO a
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.OverloadedMethod BaseParseAddIndexEntryMethodInfo a signature where
overloadedMethod = baseParseAddIndexEntry
instance O.OverloadedMethodInfo BaseParseAddIndexEntryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseParse.baseParseAddIndexEntry",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.28/docs/GI-GstBase-Objects-BaseParse.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseParse a) =>
a -> Format -> Int64 -> Format -> m (Bool, Int64)
baseParseConvertDefault a
parse Format
srcFormat Int64
srcValue Format
destFormat = IO (Bool, Int64) -> m (Bool, Int64)
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseParseConvertDefaultMethodInfo a signature where
overloadedMethod = baseParseConvertDefault
instance O.OverloadedMethodInfo BaseParseConvertDefaultMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseParse.baseParseConvertDefault",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.28/docs/GI-GstBase-Objects-BaseParse.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseParse a) =>
a -> m ()
baseParseDrain a
parse = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseDrainMethodInfo
instance (signature ~ (m ()), MonadIO m, IsBaseParse a) => O.OverloadedMethod BaseParseDrainMethodInfo a signature where
overloadedMethod = baseParseDrain
instance O.OverloadedMethodInfo BaseParseDrainMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseParse.baseParseDrain",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.28/docs/GI-GstBase-Objects-BaseParse.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseParse a) =>
a -> BaseParseFrame -> Int32 -> m FlowReturn
baseParseFinishFrame a
parse BaseParseFrame
frame Int32
size = IO FlowReturn -> m FlowReturn
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseParseFinishFrameMethodInfo a signature where
overloadedMethod = baseParseFinishFrame
instance O.OverloadedMethodInfo BaseParseFinishFrameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseParse.baseParseFinishFrame",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.28/docs/GI-GstBase-Objects-BaseParse.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseParse a) =>
a -> Maybe TagList -> TagMergeMode -> m ()
baseParseMergeTags a
parse Maybe TagList
tags TagMergeMode
mode = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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 a. a -> IO a
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 a. a -> IO a
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.OverloadedMethod BaseParseMergeTagsMethodInfo a signature where
overloadedMethod = baseParseMergeTags
instance O.OverloadedMethodInfo BaseParseMergeTagsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseParse.baseParseMergeTags",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.28/docs/GI-GstBase-Objects-BaseParse.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseParse a) =>
a -> BaseParseFrame -> m FlowReturn
baseParsePushFrame a
parse BaseParseFrame
frame = IO FlowReturn -> m FlowReturn
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseParsePushFrameMethodInfo a signature where
overloadedMethod = baseParsePushFrame
instance O.OverloadedMethodInfo BaseParsePushFrameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseParse.baseParsePushFrame",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.28/docs/GI-GstBase-Objects-BaseParse.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseParse a) =>
a -> Word32 -> m ()
baseParseSetAverageBitrate a
parse Word32
bitrate = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetAverageBitrateMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsBaseParse a) => O.OverloadedMethod BaseParseSetAverageBitrateMethodInfo a signature where
overloadedMethod = baseParseSetAverageBitrate
instance O.OverloadedMethodInfo BaseParseSetAverageBitrateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseParse.baseParseSetAverageBitrate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.28/docs/GI-GstBase-Objects-BaseParse.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseParse a) =>
a -> Format -> Int64 -> Int32 -> m ()
baseParseSetDuration a
parse Format
fmt Int64
duration Int32
interval = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseParseSetDurationMethodInfo a signature where
overloadedMethod = baseParseSetDuration
instance O.OverloadedMethodInfo BaseParseSetDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseParse.baseParseSetDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.28/docs/GI-GstBase-Objects-BaseParse.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseParse a) =>
a -> Word32 -> Word32 -> Word32 -> Word32 -> m ()
baseParseSetFrameRate a
parse Word32
fpsNum Word32
fpsDen Word32
leadIn Word32
leadOut = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseParseSetFrameRateMethodInfo a signature where
overloadedMethod = baseParseSetFrameRate
instance O.OverloadedMethodInfo BaseParseSetFrameRateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseParse.baseParseSetFrameRate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.28/docs/GI-GstBase-Objects-BaseParse.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseParse a) =>
a -> Bool -> m ()
baseParseSetHasTimingInfo a
parse Bool
hasTiming = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetHasTimingInfoMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseParse a) => O.OverloadedMethod BaseParseSetHasTimingInfoMethodInfo a signature where
overloadedMethod = baseParseSetHasTimingInfo
instance O.OverloadedMethodInfo BaseParseSetHasTimingInfoMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseParse.baseParseSetHasTimingInfo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.28/docs/GI-GstBase-Objects-BaseParse.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseParse a) =>
a -> Bool -> m ()
baseParseSetInferTs a
parse Bool
inferTs = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetInferTsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseParse a) => O.OverloadedMethod BaseParseSetInferTsMethodInfo a signature where
overloadedMethod = baseParseSetInferTs
instance O.OverloadedMethodInfo BaseParseSetInferTsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseParse.baseParseSetInferTs",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.28/docs/GI-GstBase-Objects-BaseParse.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseParse a) =>
a -> Word64 -> Word64 -> m ()
baseParseSetLatency a
parse Word64
minLatency Word64
maxLatency = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod BaseParseSetLatencyMethodInfo a signature where
overloadedMethod = baseParseSetLatency
instance O.OverloadedMethodInfo BaseParseSetLatencyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseParse.baseParseSetLatency",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.28/docs/GI-GstBase-Objects-BaseParse.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseParse a) =>
a -> Word32 -> m ()
baseParseSetMinFrameSize a
parse Word32
minSize = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetMinFrameSizeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsBaseParse a) => O.OverloadedMethod BaseParseSetMinFrameSizeMethodInfo a signature where
overloadedMethod = baseParseSetMinFrameSize
instance O.OverloadedMethodInfo BaseParseSetMinFrameSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseParse.baseParseSetMinFrameSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.28/docs/GI-GstBase-Objects-BaseParse.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseParse a) =>
a -> Bool -> m ()
baseParseSetPassthrough a
parse Bool
passthrough = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetPassthroughMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseParse a) => O.OverloadedMethod BaseParseSetPassthroughMethodInfo a signature where
overloadedMethod = baseParseSetPassthrough
instance O.OverloadedMethodInfo BaseParseSetPassthroughMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseParse.baseParseSetPassthrough",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.28/docs/GI-GstBase-Objects-BaseParse.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseParse a) =>
a -> Bool -> m ()
baseParseSetPtsInterpolation a
parse Bool
ptsInterpolate = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetPtsInterpolationMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseParse a) => O.OverloadedMethod BaseParseSetPtsInterpolationMethodInfo a signature where
overloadedMethod = baseParseSetPtsInterpolation
instance O.OverloadedMethodInfo BaseParseSetPtsInterpolationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseParse.baseParseSetPtsInterpolation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.28/docs/GI-GstBase-Objects-BaseParse.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseParse a) =>
a -> Bool -> m ()
baseParseSetSyncable a
parse Bool
syncable = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetSyncableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseParse a) => O.OverloadedMethod BaseParseSetSyncableMethodInfo a signature where
overloadedMethod = baseParseSetSyncable
instance O.OverloadedMethodInfo BaseParseSetSyncableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseParse.baseParseSetSyncable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.28/docs/GI-GstBase-Objects-BaseParse.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseParse a) =>
a -> Word64 -> m ()
baseParseSetTsAtOffset a
parse Word64
offset = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseParseSetTsAtOffsetMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, IsBaseParse a) => O.OverloadedMethod BaseParseSetTsAtOffsetMethodInfo a signature where
overloadedMethod = baseParseSetTsAtOffset
instance O.OverloadedMethodInfo BaseParseSetTsAtOffsetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseParse.baseParseSetTsAtOffset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.28/docs/GI-GstBase-Objects-BaseParse.html#v:baseParseSetTsAtOffset"
})
#endif