{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GstBase.Objects.BaseTransform
(
BaseTransform(..) ,
IsBaseTransform ,
toBaseTransform ,
#if defined(ENABLE_OVERLOADING)
ResolveBaseTransformMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
BaseTransformGetAllocatorMethodInfo ,
#endif
baseTransformGetAllocator ,
#if defined(ENABLE_OVERLOADING)
BaseTransformGetBufferPoolMethodInfo ,
#endif
baseTransformGetBufferPool ,
#if defined(ENABLE_OVERLOADING)
BaseTransformIsInPlaceMethodInfo ,
#endif
baseTransformIsInPlace ,
#if defined(ENABLE_OVERLOADING)
BaseTransformIsPassthroughMethodInfo ,
#endif
baseTransformIsPassthrough ,
#if defined(ENABLE_OVERLOADING)
BaseTransformIsQosEnabledMethodInfo ,
#endif
baseTransformIsQosEnabled ,
#if defined(ENABLE_OVERLOADING)
BaseTransformReconfigureMethodInfo ,
#endif
baseTransformReconfigure ,
#if defined(ENABLE_OVERLOADING)
BaseTransformReconfigureSinkMethodInfo ,
#endif
baseTransformReconfigureSink ,
#if defined(ENABLE_OVERLOADING)
BaseTransformReconfigureSrcMethodInfo ,
#endif
baseTransformReconfigureSrc ,
#if defined(ENABLE_OVERLOADING)
BaseTransformSetGapAwareMethodInfo ,
#endif
baseTransformSetGapAware ,
#if defined(ENABLE_OVERLOADING)
BaseTransformSetInPlaceMethodInfo ,
#endif
baseTransformSetInPlace ,
#if defined(ENABLE_OVERLOADING)
BaseTransformSetPassthroughMethodInfo ,
#endif
baseTransformSetPassthrough ,
#if defined(ENABLE_OVERLOADING)
BaseTransformSetPreferPassthroughMethodInfo,
#endif
baseTransformSetPreferPassthrough ,
#if defined(ENABLE_OVERLOADING)
BaseTransformSetQosEnabledMethodInfo ,
#endif
baseTransformSetQosEnabled ,
#if defined(ENABLE_OVERLOADING)
BaseTransformUpdateQosMethodInfo ,
#endif
baseTransformUpdateQos ,
#if defined(ENABLE_OVERLOADING)
BaseTransformUpdateSrcCapsMethodInfo ,
#endif
baseTransformUpdateSrcCaps ,
#if defined(ENABLE_OVERLOADING)
BaseTransformQosPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
baseTransformQos ,
#endif
constructBaseTransformQos ,
getBaseTransformQos ,
setBaseTransformQos ,
) 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.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.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.Objects.Allocator as Gst.Allocator
import qualified GI.Gst.Objects.BufferPool as Gst.BufferPool
import qualified GI.Gst.Objects.Element as Gst.Element
import qualified GI.Gst.Objects.Object as Gst.Object
import qualified GI.Gst.Structs.AllocationParams as Gst.AllocationParams
import qualified GI.Gst.Structs.Caps as Gst.Caps
newtype BaseTransform = BaseTransform (SP.ManagedPtr BaseTransform)
deriving (BaseTransform -> BaseTransform -> Bool
(BaseTransform -> BaseTransform -> Bool)
-> (BaseTransform -> BaseTransform -> Bool) -> Eq BaseTransform
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BaseTransform -> BaseTransform -> Bool
$c/= :: BaseTransform -> BaseTransform -> Bool
== :: BaseTransform -> BaseTransform -> Bool
$c== :: BaseTransform -> BaseTransform -> Bool
Eq)
instance SP.ManagedPtrNewtype BaseTransform where
toManagedPtr :: BaseTransform -> ManagedPtr BaseTransform
toManagedPtr (BaseTransform ManagedPtr BaseTransform
p) = ManagedPtr BaseTransform
p
foreign import ccall "gst_base_transform_get_type"
c_gst_base_transform_get_type :: IO B.Types.GType
instance B.Types.TypedObject BaseTransform where
glibType :: IO GType
glibType = IO GType
c_gst_base_transform_get_type
instance B.Types.GObject BaseTransform
class (SP.GObject o, O.IsDescendantOf BaseTransform o) => IsBaseTransform o
instance (SP.GObject o, O.IsDescendantOf BaseTransform o) => IsBaseTransform o
instance O.HasParentTypes BaseTransform
type instance O.ParentTypes BaseTransform = '[Gst.Element.Element, Gst.Object.Object, GObject.Object.Object]
toBaseTransform :: (MIO.MonadIO m, IsBaseTransform o) => o -> m BaseTransform
toBaseTransform :: forall (m :: * -> *) o.
(MonadIO m, IsBaseTransform o) =>
o -> m BaseTransform
toBaseTransform = IO BaseTransform -> m BaseTransform
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO BaseTransform -> m BaseTransform)
-> (o -> IO BaseTransform) -> o -> m BaseTransform
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr BaseTransform -> BaseTransform)
-> o -> IO BaseTransform
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr BaseTransform -> BaseTransform
BaseTransform
instance B.GValue.IsGValue (Maybe BaseTransform) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gst_base_transform_get_type
gvalueSet_ :: Ptr GValue -> Maybe BaseTransform -> IO ()
gvalueSet_ Ptr GValue
gv Maybe BaseTransform
P.Nothing = Ptr GValue -> Ptr BaseTransform -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr BaseTransform
forall a. Ptr a
FP.nullPtr :: FP.Ptr BaseTransform)
gvalueSet_ Ptr GValue
gv (P.Just BaseTransform
obj) = BaseTransform -> (Ptr BaseTransform -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr BaseTransform
obj (Ptr GValue -> Ptr BaseTransform -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe BaseTransform)
gvalueGet_ Ptr GValue
gv = do
Ptr BaseTransform
ptr <- Ptr GValue -> IO (Ptr BaseTransform)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr BaseTransform)
if Ptr BaseTransform
ptr Ptr BaseTransform -> Ptr BaseTransform -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr BaseTransform
forall a. Ptr a
FP.nullPtr
then BaseTransform -> Maybe BaseTransform
forall a. a -> Maybe a
P.Just (BaseTransform -> Maybe BaseTransform)
-> IO BaseTransform -> IO (Maybe BaseTransform)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr BaseTransform -> BaseTransform)
-> Ptr BaseTransform -> IO BaseTransform
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr BaseTransform -> BaseTransform
BaseTransform Ptr BaseTransform
ptr
else Maybe BaseTransform -> IO (Maybe BaseTransform)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe BaseTransform
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveBaseTransformMethod (t :: Symbol) (o :: *) :: * where
ResolveBaseTransformMethod "abortState" o = Gst.Element.ElementAbortStateMethodInfo
ResolveBaseTransformMethod "addControlBinding" o = Gst.Object.ObjectAddControlBindingMethodInfo
ResolveBaseTransformMethod "addPad" o = Gst.Element.ElementAddPadMethodInfo
ResolveBaseTransformMethod "addPropertyDeepNotifyWatch" o = Gst.Element.ElementAddPropertyDeepNotifyWatchMethodInfo
ResolveBaseTransformMethod "addPropertyNotifyWatch" o = Gst.Element.ElementAddPropertyNotifyWatchMethodInfo
ResolveBaseTransformMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveBaseTransformMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveBaseTransformMethod "callAsync" o = Gst.Element.ElementCallAsyncMethodInfo
ResolveBaseTransformMethod "changeState" o = Gst.Element.ElementChangeStateMethodInfo
ResolveBaseTransformMethod "continueState" o = Gst.Element.ElementContinueStateMethodInfo
ResolveBaseTransformMethod "createAllPads" o = Gst.Element.ElementCreateAllPadsMethodInfo
ResolveBaseTransformMethod "defaultError" o = Gst.Object.ObjectDefaultErrorMethodInfo
ResolveBaseTransformMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveBaseTransformMethod "foreachPad" o = Gst.Element.ElementForeachPadMethodInfo
ResolveBaseTransformMethod "foreachSinkPad" o = Gst.Element.ElementForeachSinkPadMethodInfo
ResolveBaseTransformMethod "foreachSrcPad" o = Gst.Element.ElementForeachSrcPadMethodInfo
ResolveBaseTransformMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveBaseTransformMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveBaseTransformMethod "hasActiveControlBindings" o = Gst.Object.ObjectHasActiveControlBindingsMethodInfo
ResolveBaseTransformMethod "hasAncestor" o = Gst.Object.ObjectHasAncestorMethodInfo
ResolveBaseTransformMethod "hasAsAncestor" o = Gst.Object.ObjectHasAsAncestorMethodInfo
ResolveBaseTransformMethod "hasAsParent" o = Gst.Object.ObjectHasAsParentMethodInfo
ResolveBaseTransformMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveBaseTransformMethod "isInPlace" o = BaseTransformIsInPlaceMethodInfo
ResolveBaseTransformMethod "isLockedState" o = Gst.Element.ElementIsLockedStateMethodInfo
ResolveBaseTransformMethod "isPassthrough" o = BaseTransformIsPassthroughMethodInfo
ResolveBaseTransformMethod "isQosEnabled" o = BaseTransformIsQosEnabledMethodInfo
ResolveBaseTransformMethod "iteratePads" o = Gst.Element.ElementIteratePadsMethodInfo
ResolveBaseTransformMethod "iterateSinkPads" o = Gst.Element.ElementIterateSinkPadsMethodInfo
ResolveBaseTransformMethod "iterateSrcPads" o = Gst.Element.ElementIterateSrcPadsMethodInfo
ResolveBaseTransformMethod "link" o = Gst.Element.ElementLinkMethodInfo
ResolveBaseTransformMethod "linkFiltered" o = Gst.Element.ElementLinkFilteredMethodInfo
ResolveBaseTransformMethod "linkPads" o = Gst.Element.ElementLinkPadsMethodInfo
ResolveBaseTransformMethod "linkPadsFiltered" o = Gst.Element.ElementLinkPadsFilteredMethodInfo
ResolveBaseTransformMethod "linkPadsFull" o = Gst.Element.ElementLinkPadsFullMethodInfo
ResolveBaseTransformMethod "lostState" o = Gst.Element.ElementLostStateMethodInfo
ResolveBaseTransformMethod "messageFull" o = Gst.Element.ElementMessageFullMethodInfo
ResolveBaseTransformMethod "messageFullWithDetails" o = Gst.Element.ElementMessageFullWithDetailsMethodInfo
ResolveBaseTransformMethod "noMorePads" o = Gst.Element.ElementNoMorePadsMethodInfo
ResolveBaseTransformMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveBaseTransformMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveBaseTransformMethod "postMessage" o = Gst.Element.ElementPostMessageMethodInfo
ResolveBaseTransformMethod "provideClock" o = Gst.Element.ElementProvideClockMethodInfo
ResolveBaseTransformMethod "query" o = Gst.Element.ElementQueryMethodInfo
ResolveBaseTransformMethod "queryConvert" o = Gst.Element.ElementQueryConvertMethodInfo
ResolveBaseTransformMethod "queryDuration" o = Gst.Element.ElementQueryDurationMethodInfo
ResolveBaseTransformMethod "queryPosition" o = Gst.Element.ElementQueryPositionMethodInfo
ResolveBaseTransformMethod "reconfigure" o = BaseTransformReconfigureMethodInfo
ResolveBaseTransformMethod "reconfigureSink" o = BaseTransformReconfigureSinkMethodInfo
ResolveBaseTransformMethod "reconfigureSrc" o = BaseTransformReconfigureSrcMethodInfo
ResolveBaseTransformMethod "ref" o = Gst.Object.ObjectRefMethodInfo
ResolveBaseTransformMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveBaseTransformMethod "releaseRequestPad" o = Gst.Element.ElementReleaseRequestPadMethodInfo
ResolveBaseTransformMethod "removeControlBinding" o = Gst.Object.ObjectRemoveControlBindingMethodInfo
ResolveBaseTransformMethod "removePad" o = Gst.Element.ElementRemovePadMethodInfo
ResolveBaseTransformMethod "removePropertyNotifyWatch" o = Gst.Element.ElementRemovePropertyNotifyWatchMethodInfo
ResolveBaseTransformMethod "requestPad" o = Gst.Element.ElementRequestPadMethodInfo
ResolveBaseTransformMethod "requestPadSimple" o = Gst.Element.ElementRequestPadSimpleMethodInfo
ResolveBaseTransformMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveBaseTransformMethod "seek" o = Gst.Element.ElementSeekMethodInfo
ResolveBaseTransformMethod "seekSimple" o = Gst.Element.ElementSeekSimpleMethodInfo
ResolveBaseTransformMethod "sendEvent" o = Gst.Element.ElementSendEventMethodInfo
ResolveBaseTransformMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveBaseTransformMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveBaseTransformMethod "suggestNextSync" o = Gst.Object.ObjectSuggestNextSyncMethodInfo
ResolveBaseTransformMethod "syncStateWithParent" o = Gst.Element.ElementSyncStateWithParentMethodInfo
ResolveBaseTransformMethod "syncValues" o = Gst.Object.ObjectSyncValuesMethodInfo
ResolveBaseTransformMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveBaseTransformMethod "unlink" o = Gst.Element.ElementUnlinkMethodInfo
ResolveBaseTransformMethod "unlinkPads" o = Gst.Element.ElementUnlinkPadsMethodInfo
ResolveBaseTransformMethod "unparent" o = Gst.Object.ObjectUnparentMethodInfo
ResolveBaseTransformMethod "unref" o = Gst.Object.ObjectUnrefMethodInfo
ResolveBaseTransformMethod "updateQos" o = BaseTransformUpdateQosMethodInfo
ResolveBaseTransformMethod "updateSrcCaps" o = BaseTransformUpdateSrcCapsMethodInfo
ResolveBaseTransformMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveBaseTransformMethod "getAllocator" o = BaseTransformGetAllocatorMethodInfo
ResolveBaseTransformMethod "getBaseTime" o = Gst.Element.ElementGetBaseTimeMethodInfo
ResolveBaseTransformMethod "getBufferPool" o = BaseTransformGetBufferPoolMethodInfo
ResolveBaseTransformMethod "getBus" o = Gst.Element.ElementGetBusMethodInfo
ResolveBaseTransformMethod "getClock" o = Gst.Element.ElementGetClockMethodInfo
ResolveBaseTransformMethod "getCompatiblePad" o = Gst.Element.ElementGetCompatiblePadMethodInfo
ResolveBaseTransformMethod "getCompatiblePadTemplate" o = Gst.Element.ElementGetCompatiblePadTemplateMethodInfo
ResolveBaseTransformMethod "getContext" o = Gst.Element.ElementGetContextMethodInfo
ResolveBaseTransformMethod "getContextUnlocked" o = Gst.Element.ElementGetContextUnlockedMethodInfo
ResolveBaseTransformMethod "getContexts" o = Gst.Element.ElementGetContextsMethodInfo
ResolveBaseTransformMethod "getControlBinding" o = Gst.Object.ObjectGetControlBindingMethodInfo
ResolveBaseTransformMethod "getControlRate" o = Gst.Object.ObjectGetControlRateMethodInfo
ResolveBaseTransformMethod "getCurrentClockTime" o = Gst.Element.ElementGetCurrentClockTimeMethodInfo
ResolveBaseTransformMethod "getCurrentRunningTime" o = Gst.Element.ElementGetCurrentRunningTimeMethodInfo
ResolveBaseTransformMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveBaseTransformMethod "getFactory" o = Gst.Element.ElementGetFactoryMethodInfo
ResolveBaseTransformMethod "getGValueArray" o = Gst.Object.ObjectGetGValueArrayMethodInfo
ResolveBaseTransformMethod "getMetadata" o = Gst.Element.ElementGetMetadataMethodInfo
ResolveBaseTransformMethod "getName" o = Gst.Object.ObjectGetNameMethodInfo
ResolveBaseTransformMethod "getPadTemplate" o = Gst.Element.ElementGetPadTemplateMethodInfo
ResolveBaseTransformMethod "getPadTemplateList" o = Gst.Element.ElementGetPadTemplateListMethodInfo
ResolveBaseTransformMethod "getParent" o = Gst.Object.ObjectGetParentMethodInfo
ResolveBaseTransformMethod "getPathString" o = Gst.Object.ObjectGetPathStringMethodInfo
ResolveBaseTransformMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveBaseTransformMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveBaseTransformMethod "getRequestPad" o = Gst.Element.ElementGetRequestPadMethodInfo
ResolveBaseTransformMethod "getStartTime" o = Gst.Element.ElementGetStartTimeMethodInfo
ResolveBaseTransformMethod "getState" o = Gst.Element.ElementGetStateMethodInfo
ResolveBaseTransformMethod "getStaticPad" o = Gst.Element.ElementGetStaticPadMethodInfo
ResolveBaseTransformMethod "getValue" o = Gst.Object.ObjectGetValueMethodInfo
ResolveBaseTransformMethod "setBaseTime" o = Gst.Element.ElementSetBaseTimeMethodInfo
ResolveBaseTransformMethod "setBus" o = Gst.Element.ElementSetBusMethodInfo
ResolveBaseTransformMethod "setClock" o = Gst.Element.ElementSetClockMethodInfo
ResolveBaseTransformMethod "setContext" o = Gst.Element.ElementSetContextMethodInfo
ResolveBaseTransformMethod "setControlBindingDisabled" o = Gst.Object.ObjectSetControlBindingDisabledMethodInfo
ResolveBaseTransformMethod "setControlBindingsDisabled" o = Gst.Object.ObjectSetControlBindingsDisabledMethodInfo
ResolveBaseTransformMethod "setControlRate" o = Gst.Object.ObjectSetControlRateMethodInfo
ResolveBaseTransformMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveBaseTransformMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveBaseTransformMethod "setGapAware" o = BaseTransformSetGapAwareMethodInfo
ResolveBaseTransformMethod "setInPlace" o = BaseTransformSetInPlaceMethodInfo
ResolveBaseTransformMethod "setLockedState" o = Gst.Element.ElementSetLockedStateMethodInfo
ResolveBaseTransformMethod "setName" o = Gst.Object.ObjectSetNameMethodInfo
ResolveBaseTransformMethod "setParent" o = Gst.Object.ObjectSetParentMethodInfo
ResolveBaseTransformMethod "setPassthrough" o = BaseTransformSetPassthroughMethodInfo
ResolveBaseTransformMethod "setPreferPassthrough" o = BaseTransformSetPreferPassthroughMethodInfo
ResolveBaseTransformMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveBaseTransformMethod "setQosEnabled" o = BaseTransformSetQosEnabledMethodInfo
ResolveBaseTransformMethod "setStartTime" o = Gst.Element.ElementSetStartTimeMethodInfo
ResolveBaseTransformMethod "setState" o = Gst.Element.ElementSetStateMethodInfo
ResolveBaseTransformMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveBaseTransformMethod t BaseTransform, O.OverloadedMethod info BaseTransform p) => OL.IsLabel t (BaseTransform -> 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 ~ ResolveBaseTransformMethod t BaseTransform, O.OverloadedMethod info BaseTransform p, R.HasField t BaseTransform p) => R.HasField t BaseTransform p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveBaseTransformMethod t BaseTransform, O.OverloadedMethodInfo info BaseTransform) => OL.IsLabel t (O.MethodProxy info BaseTransform) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getBaseTransformQos :: (MonadIO m, IsBaseTransform o) => o -> m Bool
getBaseTransformQos :: forall (m :: * -> *) o.
(MonadIO m, IsBaseTransform o) =>
o -> m Bool
getBaseTransformQos o
obj = IO Bool -> m Bool
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
"qos"
setBaseTransformQos :: (MonadIO m, IsBaseTransform o) => o -> Bool -> m ()
setBaseTransformQos :: forall (m :: * -> *) o.
(MonadIO m, IsBaseTransform o) =>
o -> Bool -> m ()
setBaseTransformQos o
obj Bool
val = IO () -> m ()
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
"qos" Bool
val
constructBaseTransformQos :: (IsBaseTransform o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructBaseTransformQos :: forall o (m :: * -> *).
(IsBaseTransform o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructBaseTransformQos 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"qos" Bool
val
#if defined(ENABLE_OVERLOADING)
data BaseTransformQosPropertyInfo
instance AttrInfo BaseTransformQosPropertyInfo where
type AttrAllowedOps BaseTransformQosPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BaseTransformQosPropertyInfo = IsBaseTransform
type AttrSetTypeConstraint BaseTransformQosPropertyInfo = (~) Bool
type AttrTransferTypeConstraint BaseTransformQosPropertyInfo = (~) Bool
type AttrTransferType BaseTransformQosPropertyInfo = Bool
type AttrGetType BaseTransformQosPropertyInfo = Bool
type AttrLabel BaseTransformQosPropertyInfo = "qos"
type AttrOrigin BaseTransformQosPropertyInfo = BaseTransform
attrGet = getBaseTransformQos
attrSet = setBaseTransformQos
attrTransfer _ v = do
return v
attrConstruct = constructBaseTransformQos
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseTransform.qos"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.25/docs/GI-GstBase-Objects-BaseTransform.html#g:attr:qos"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList BaseTransform
type instance O.AttributeList BaseTransform = BaseTransformAttributeList
type BaseTransformAttributeList = ('[ '("name", Gst.Object.ObjectNamePropertyInfo), '("parent", Gst.Object.ObjectParentPropertyInfo), '("qos", BaseTransformQosPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
baseTransformQos :: AttrLabelProxy "qos"
baseTransformQos = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList BaseTransform = BaseTransformSignalList
type BaseTransformSignalList = ('[ '("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_transform_get_allocator" gst_base_transform_get_allocator ::
Ptr BaseTransform ->
Ptr (Ptr Gst.Allocator.Allocator) ->
Ptr Gst.AllocationParams.AllocationParams ->
IO ()
baseTransformGetAllocator ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseTransform a) =>
a
-> m ((Maybe Gst.Allocator.Allocator, Gst.AllocationParams.AllocationParams))
baseTransformGetAllocator :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseTransform a) =>
a -> m (Maybe Allocator, AllocationParams)
baseTransformGetAllocator a
trans = IO (Maybe Allocator, AllocationParams)
-> m (Maybe Allocator, AllocationParams)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Allocator, AllocationParams)
-> m (Maybe Allocator, AllocationParams))
-> IO (Maybe Allocator, AllocationParams)
-> m (Maybe Allocator, AllocationParams)
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseTransform
trans' <- a -> IO (Ptr BaseTransform)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
trans
Ptr (Ptr Allocator)
allocator <- IO (Ptr (Ptr Allocator))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr Gst.Allocator.Allocator))
Ptr AllocationParams
params <- Int -> IO (Ptr AllocationParams)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
64 :: IO (Ptr Gst.AllocationParams.AllocationParams)
Ptr BaseTransform
-> Ptr (Ptr Allocator) -> Ptr AllocationParams -> IO ()
gst_base_transform_get_allocator Ptr BaseTransform
trans' Ptr (Ptr Allocator)
allocator Ptr AllocationParams
params
Ptr Allocator
allocator' <- Ptr (Ptr Allocator) -> IO (Ptr Allocator)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr Allocator)
allocator
Maybe Allocator
maybeAllocator' <- Ptr Allocator
-> (Ptr Allocator -> IO Allocator) -> IO (Maybe Allocator)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Allocator
allocator' ((Ptr Allocator -> IO Allocator) -> IO (Maybe Allocator))
-> (Ptr Allocator -> IO Allocator) -> IO (Maybe Allocator)
forall a b. (a -> b) -> a -> b
$ \Ptr Allocator
allocator'' -> do
Allocator
allocator''' <- ((ManagedPtr Allocator -> Allocator)
-> Ptr Allocator -> IO Allocator
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Allocator -> Allocator
Gst.Allocator.Allocator) Ptr Allocator
allocator''
Allocator -> IO Allocator
forall (m :: * -> *) a. Monad m => a -> m a
return Allocator
allocator'''
AllocationParams
params' <- ((ManagedPtr AllocationParams -> AllocationParams)
-> Ptr AllocationParams -> IO AllocationParams
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr AllocationParams -> AllocationParams
Gst.AllocationParams.AllocationParams) Ptr AllocationParams
params
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
trans
Ptr (Ptr Allocator) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr Allocator)
allocator
(Maybe Allocator, AllocationParams)
-> IO (Maybe Allocator, AllocationParams)
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Allocator
maybeAllocator', AllocationParams
params')
#if defined(ENABLE_OVERLOADING)
data BaseTransformGetAllocatorMethodInfo
instance (signature ~ (m ((Maybe Gst.Allocator.Allocator, Gst.AllocationParams.AllocationParams))), MonadIO m, IsBaseTransform a) => O.OverloadedMethod BaseTransformGetAllocatorMethodInfo a signature where
overloadedMethod = baseTransformGetAllocator
instance O.OverloadedMethodInfo BaseTransformGetAllocatorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseTransform.baseTransformGetAllocator",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.25/docs/GI-GstBase-Objects-BaseTransform.html#v:baseTransformGetAllocator"
})
#endif
foreign import ccall "gst_base_transform_get_buffer_pool" gst_base_transform_get_buffer_pool ::
Ptr BaseTransform ->
IO (Ptr Gst.BufferPool.BufferPool)
baseTransformGetBufferPool ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseTransform a) =>
a
-> m (Maybe Gst.BufferPool.BufferPool)
baseTransformGetBufferPool :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseTransform a) =>
a -> m (Maybe BufferPool)
baseTransformGetBufferPool a
trans = IO (Maybe BufferPool) -> m (Maybe BufferPool)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe BufferPool) -> m (Maybe BufferPool))
-> IO (Maybe BufferPool) -> m (Maybe BufferPool)
forall a b. (a -> b) -> a -> b
$ do
Ptr BaseTransform
trans' <- a -> IO (Ptr BaseTransform)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
trans
Ptr BufferPool
result <- Ptr BaseTransform -> IO (Ptr BufferPool)
gst_base_transform_get_buffer_pool Ptr BaseTransform
trans'
Maybe BufferPool
maybeResult <- Ptr BufferPool
-> (Ptr BufferPool -> IO BufferPool) -> IO (Maybe BufferPool)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr BufferPool
result ((Ptr BufferPool -> IO BufferPool) -> IO (Maybe BufferPool))
-> (Ptr BufferPool -> IO BufferPool) -> IO (Maybe BufferPool)
forall a b. (a -> b) -> a -> b
$ \Ptr BufferPool
result' -> do
BufferPool
result'' <- ((ManagedPtr BufferPool -> BufferPool)
-> Ptr BufferPool -> IO BufferPool
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr BufferPool -> BufferPool
Gst.BufferPool.BufferPool) Ptr BufferPool
result'
BufferPool -> IO BufferPool
forall (m :: * -> *) a. Monad m => a -> m a
return BufferPool
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
trans
Maybe BufferPool -> IO (Maybe BufferPool)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe BufferPool
maybeResult
#if defined(ENABLE_OVERLOADING)
data BaseTransformGetBufferPoolMethodInfo
instance (signature ~ (m (Maybe Gst.BufferPool.BufferPool)), MonadIO m, IsBaseTransform a) => O.OverloadedMethod BaseTransformGetBufferPoolMethodInfo a signature where
overloadedMethod = baseTransformGetBufferPool
instance O.OverloadedMethodInfo BaseTransformGetBufferPoolMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseTransform.baseTransformGetBufferPool",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.25/docs/GI-GstBase-Objects-BaseTransform.html#v:baseTransformGetBufferPool"
})
#endif
foreign import ccall "gst_base_transform_is_in_place" gst_base_transform_is_in_place ::
Ptr BaseTransform ->
IO CInt
baseTransformIsInPlace ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseTransform a) =>
a
-> m Bool
baseTransformIsInPlace :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseTransform a) =>
a -> m Bool
baseTransformIsInPlace a
trans = 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 BaseTransform
trans' <- a -> IO (Ptr BaseTransform)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
trans
CInt
result <- Ptr BaseTransform -> IO CInt
gst_base_transform_is_in_place Ptr BaseTransform
trans'
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
trans
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data BaseTransformIsInPlaceMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBaseTransform a) => O.OverloadedMethod BaseTransformIsInPlaceMethodInfo a signature where
overloadedMethod = baseTransformIsInPlace
instance O.OverloadedMethodInfo BaseTransformIsInPlaceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseTransform.baseTransformIsInPlace",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.25/docs/GI-GstBase-Objects-BaseTransform.html#v:baseTransformIsInPlace"
})
#endif
foreign import ccall "gst_base_transform_is_passthrough" gst_base_transform_is_passthrough ::
Ptr BaseTransform ->
IO CInt
baseTransformIsPassthrough ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseTransform a) =>
a
-> m Bool
baseTransformIsPassthrough :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseTransform a) =>
a -> m Bool
baseTransformIsPassthrough a
trans = 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 BaseTransform
trans' <- a -> IO (Ptr BaseTransform)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
trans
CInt
result <- Ptr BaseTransform -> IO CInt
gst_base_transform_is_passthrough Ptr BaseTransform
trans'
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
trans
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data BaseTransformIsPassthroughMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBaseTransform a) => O.OverloadedMethod BaseTransformIsPassthroughMethodInfo a signature where
overloadedMethod = baseTransformIsPassthrough
instance O.OverloadedMethodInfo BaseTransformIsPassthroughMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseTransform.baseTransformIsPassthrough",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.25/docs/GI-GstBase-Objects-BaseTransform.html#v:baseTransformIsPassthrough"
})
#endif
foreign import ccall "gst_base_transform_is_qos_enabled" gst_base_transform_is_qos_enabled ::
Ptr BaseTransform ->
IO CInt
baseTransformIsQosEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseTransform a) =>
a
-> m Bool
baseTransformIsQosEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseTransform a) =>
a -> m Bool
baseTransformIsQosEnabled a
trans = 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 BaseTransform
trans' <- a -> IO (Ptr BaseTransform)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
trans
CInt
result <- Ptr BaseTransform -> IO CInt
gst_base_transform_is_qos_enabled Ptr BaseTransform
trans'
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
trans
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data BaseTransformIsQosEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBaseTransform a) => O.OverloadedMethod BaseTransformIsQosEnabledMethodInfo a signature where
overloadedMethod = baseTransformIsQosEnabled
instance O.OverloadedMethodInfo BaseTransformIsQosEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseTransform.baseTransformIsQosEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.25/docs/GI-GstBase-Objects-BaseTransform.html#v:baseTransformIsQosEnabled"
})
#endif
foreign import ccall "gst_base_transform_reconfigure" gst_base_transform_reconfigure ::
Ptr BaseTransform ->
IO CInt
baseTransformReconfigure ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseTransform a) =>
a
-> m Bool
baseTransformReconfigure :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseTransform a) =>
a -> m Bool
baseTransformReconfigure a
trans = 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 BaseTransform
trans' <- a -> IO (Ptr BaseTransform)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
trans
CInt
result <- Ptr BaseTransform -> IO CInt
gst_base_transform_reconfigure Ptr BaseTransform
trans'
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
trans
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data BaseTransformReconfigureMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBaseTransform a) => O.OverloadedMethod BaseTransformReconfigureMethodInfo a signature where
overloadedMethod = baseTransformReconfigure
instance O.OverloadedMethodInfo BaseTransformReconfigureMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseTransform.baseTransformReconfigure",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.25/docs/GI-GstBase-Objects-BaseTransform.html#v:baseTransformReconfigure"
})
#endif
foreign import ccall "gst_base_transform_reconfigure_sink" gst_base_transform_reconfigure_sink ::
Ptr BaseTransform ->
IO ()
baseTransformReconfigureSink ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseTransform a) =>
a
-> m ()
baseTransformReconfigureSink :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseTransform a) =>
a -> m ()
baseTransformReconfigureSink a
trans = 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 BaseTransform
trans' <- a -> IO (Ptr BaseTransform)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
trans
Ptr BaseTransform -> IO ()
gst_base_transform_reconfigure_sink Ptr BaseTransform
trans'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
trans
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseTransformReconfigureSinkMethodInfo
instance (signature ~ (m ()), MonadIO m, IsBaseTransform a) => O.OverloadedMethod BaseTransformReconfigureSinkMethodInfo a signature where
overloadedMethod = baseTransformReconfigureSink
instance O.OverloadedMethodInfo BaseTransformReconfigureSinkMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseTransform.baseTransformReconfigureSink",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.25/docs/GI-GstBase-Objects-BaseTransform.html#v:baseTransformReconfigureSink"
})
#endif
foreign import ccall "gst_base_transform_reconfigure_src" gst_base_transform_reconfigure_src ::
Ptr BaseTransform ->
IO ()
baseTransformReconfigureSrc ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseTransform a) =>
a
-> m ()
baseTransformReconfigureSrc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseTransform a) =>
a -> m ()
baseTransformReconfigureSrc a
trans = 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 BaseTransform
trans' <- a -> IO (Ptr BaseTransform)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
trans
Ptr BaseTransform -> IO ()
gst_base_transform_reconfigure_src Ptr BaseTransform
trans'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
trans
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseTransformReconfigureSrcMethodInfo
instance (signature ~ (m ()), MonadIO m, IsBaseTransform a) => O.OverloadedMethod BaseTransformReconfigureSrcMethodInfo a signature where
overloadedMethod = baseTransformReconfigureSrc
instance O.OverloadedMethodInfo BaseTransformReconfigureSrcMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseTransform.baseTransformReconfigureSrc",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.25/docs/GI-GstBase-Objects-BaseTransform.html#v:baseTransformReconfigureSrc"
})
#endif
foreign import ccall "gst_base_transform_set_gap_aware" gst_base_transform_set_gap_aware ::
Ptr BaseTransform ->
CInt ->
IO ()
baseTransformSetGapAware ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseTransform a) =>
a
-> Bool
-> m ()
baseTransformSetGapAware :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseTransform a) =>
a -> Bool -> m ()
baseTransformSetGapAware a
trans Bool
gapAware = 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 BaseTransform
trans' <- a -> IO (Ptr BaseTransform)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
trans
let gapAware' :: CInt
gapAware' = (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
gapAware
Ptr BaseTransform -> CInt -> IO ()
gst_base_transform_set_gap_aware Ptr BaseTransform
trans' CInt
gapAware'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
trans
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseTransformSetGapAwareMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseTransform a) => O.OverloadedMethod BaseTransformSetGapAwareMethodInfo a signature where
overloadedMethod = baseTransformSetGapAware
instance O.OverloadedMethodInfo BaseTransformSetGapAwareMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseTransform.baseTransformSetGapAware",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.25/docs/GI-GstBase-Objects-BaseTransform.html#v:baseTransformSetGapAware"
})
#endif
foreign import ccall "gst_base_transform_set_in_place" gst_base_transform_set_in_place ::
Ptr BaseTransform ->
CInt ->
IO ()
baseTransformSetInPlace ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseTransform a) =>
a
-> Bool
-> m ()
baseTransformSetInPlace :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseTransform a) =>
a -> Bool -> m ()
baseTransformSetInPlace a
trans Bool
inPlace = 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 BaseTransform
trans' <- a -> IO (Ptr BaseTransform)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
trans
let inPlace' :: CInt
inPlace' = (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
inPlace
Ptr BaseTransform -> CInt -> IO ()
gst_base_transform_set_in_place Ptr BaseTransform
trans' CInt
inPlace'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
trans
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseTransformSetInPlaceMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseTransform a) => O.OverloadedMethod BaseTransformSetInPlaceMethodInfo a signature where
overloadedMethod = baseTransformSetInPlace
instance O.OverloadedMethodInfo BaseTransformSetInPlaceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseTransform.baseTransformSetInPlace",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.25/docs/GI-GstBase-Objects-BaseTransform.html#v:baseTransformSetInPlace"
})
#endif
foreign import ccall "gst_base_transform_set_passthrough" gst_base_transform_set_passthrough ::
Ptr BaseTransform ->
CInt ->
IO ()
baseTransformSetPassthrough ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseTransform a) =>
a
-> Bool
-> m ()
baseTransformSetPassthrough :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseTransform a) =>
a -> Bool -> m ()
baseTransformSetPassthrough a
trans 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 BaseTransform
trans' <- a -> IO (Ptr BaseTransform)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
trans
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 BaseTransform -> CInt -> IO ()
gst_base_transform_set_passthrough Ptr BaseTransform
trans' CInt
passthrough'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
trans
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseTransformSetPassthroughMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseTransform a) => O.OverloadedMethod BaseTransformSetPassthroughMethodInfo a signature where
overloadedMethod = baseTransformSetPassthrough
instance O.OverloadedMethodInfo BaseTransformSetPassthroughMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseTransform.baseTransformSetPassthrough",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.25/docs/GI-GstBase-Objects-BaseTransform.html#v:baseTransformSetPassthrough"
})
#endif
foreign import ccall "gst_base_transform_set_prefer_passthrough" gst_base_transform_set_prefer_passthrough ::
Ptr BaseTransform ->
CInt ->
IO ()
baseTransformSetPreferPassthrough ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseTransform a) =>
a
-> Bool
-> m ()
baseTransformSetPreferPassthrough :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseTransform a) =>
a -> Bool -> m ()
baseTransformSetPreferPassthrough a
trans Bool
preferPassthrough = 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 BaseTransform
trans' <- a -> IO (Ptr BaseTransform)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
trans
let preferPassthrough' :: CInt
preferPassthrough' = (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
preferPassthrough
Ptr BaseTransform -> CInt -> IO ()
gst_base_transform_set_prefer_passthrough Ptr BaseTransform
trans' CInt
preferPassthrough'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
trans
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseTransformSetPreferPassthroughMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseTransform a) => O.OverloadedMethod BaseTransformSetPreferPassthroughMethodInfo a signature where
overloadedMethod = baseTransformSetPreferPassthrough
instance O.OverloadedMethodInfo BaseTransformSetPreferPassthroughMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseTransform.baseTransformSetPreferPassthrough",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.25/docs/GI-GstBase-Objects-BaseTransform.html#v:baseTransformSetPreferPassthrough"
})
#endif
foreign import ccall "gst_base_transform_set_qos_enabled" gst_base_transform_set_qos_enabled ::
Ptr BaseTransform ->
CInt ->
IO ()
baseTransformSetQosEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseTransform a) =>
a
-> Bool
-> m ()
baseTransformSetQosEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseTransform a) =>
a -> Bool -> m ()
baseTransformSetQosEnabled a
trans Bool
enabled = 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 BaseTransform
trans' <- a -> IO (Ptr BaseTransform)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
trans
let enabled' :: CInt
enabled' = (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
enabled
Ptr BaseTransform -> CInt -> IO ()
gst_base_transform_set_qos_enabled Ptr BaseTransform
trans' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
trans
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseTransformSetQosEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBaseTransform a) => O.OverloadedMethod BaseTransformSetQosEnabledMethodInfo a signature where
overloadedMethod = baseTransformSetQosEnabled
instance O.OverloadedMethodInfo BaseTransformSetQosEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseTransform.baseTransformSetQosEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.25/docs/GI-GstBase-Objects-BaseTransform.html#v:baseTransformSetQosEnabled"
})
#endif
foreign import ccall "gst_base_transform_update_qos" gst_base_transform_update_qos ::
Ptr BaseTransform ->
CDouble ->
Int64 ->
Word64 ->
IO ()
baseTransformUpdateQos ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseTransform a) =>
a
-> Double
-> Int64
-> Word64
-> m ()
baseTransformUpdateQos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseTransform a) =>
a -> Double -> Int64 -> Word64 -> m ()
baseTransformUpdateQos a
trans Double
proportion Int64
diff Word64
timestamp = 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 BaseTransform
trans' <- a -> IO (Ptr BaseTransform)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
trans
let proportion' :: CDouble
proportion' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
proportion
Ptr BaseTransform -> CDouble -> Int64 -> Word64 -> IO ()
gst_base_transform_update_qos Ptr BaseTransform
trans' CDouble
proportion' Int64
diff Word64
timestamp
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
trans
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BaseTransformUpdateQosMethodInfo
instance (signature ~ (Double -> Int64 -> Word64 -> m ()), MonadIO m, IsBaseTransform a) => O.OverloadedMethod BaseTransformUpdateQosMethodInfo a signature where
overloadedMethod = baseTransformUpdateQos
instance O.OverloadedMethodInfo BaseTransformUpdateQosMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseTransform.baseTransformUpdateQos",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.25/docs/GI-GstBase-Objects-BaseTransform.html#v:baseTransformUpdateQos"
})
#endif
foreign import ccall "gst_base_transform_update_src_caps" gst_base_transform_update_src_caps ::
Ptr BaseTransform ->
Ptr Gst.Caps.Caps ->
IO CInt
baseTransformUpdateSrcCaps ::
(B.CallStack.HasCallStack, MonadIO m, IsBaseTransform a) =>
a
-> Gst.Caps.Caps
-> m Bool
baseTransformUpdateSrcCaps :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBaseTransform a) =>
a -> Caps -> m Bool
baseTransformUpdateSrcCaps a
trans Caps
updatedCaps = 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 BaseTransform
trans' <- a -> IO (Ptr BaseTransform)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
trans
Ptr Caps
updatedCaps' <- Caps -> IO (Ptr Caps)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Caps
updatedCaps
CInt
result <- Ptr BaseTransform -> Ptr Caps -> IO CInt
gst_base_transform_update_src_caps Ptr BaseTransform
trans' Ptr Caps
updatedCaps'
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
trans
Caps -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Caps
updatedCaps
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data BaseTransformUpdateSrcCapsMethodInfo
instance (signature ~ (Gst.Caps.Caps -> m Bool), MonadIO m, IsBaseTransform a) => O.OverloadedMethod BaseTransformUpdateSrcCapsMethodInfo a signature where
overloadedMethod = baseTransformUpdateSrcCaps
instance O.OverloadedMethodInfo BaseTransformUpdateSrcCapsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstBase.Objects.BaseTransform.baseTransformUpdateSrcCaps",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstbase-1.0.25/docs/GI-GstBase-Objects-BaseTransform.html#v:baseTransformUpdateSrcCaps"
})
#endif