{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GstApp.Objects.AppSrc
(
AppSrc(..) ,
IsAppSrc ,
toAppSrc ,
#if defined(ENABLE_OVERLOADING)
ResolveAppSrcMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
AppSrcEndOfStreamMethodInfo ,
#endif
appSrcEndOfStream ,
#if defined(ENABLE_OVERLOADING)
AppSrcGetCapsMethodInfo ,
#endif
appSrcGetCaps ,
#if defined(ENABLE_OVERLOADING)
AppSrcGetCurrentLevelBuffersMethodInfo ,
#endif
appSrcGetCurrentLevelBuffers ,
#if defined(ENABLE_OVERLOADING)
AppSrcGetCurrentLevelBytesMethodInfo ,
#endif
appSrcGetCurrentLevelBytes ,
#if defined(ENABLE_OVERLOADING)
AppSrcGetCurrentLevelTimeMethodInfo ,
#endif
appSrcGetCurrentLevelTime ,
#if defined(ENABLE_OVERLOADING)
AppSrcGetDurationMethodInfo ,
#endif
appSrcGetDuration ,
#if defined(ENABLE_OVERLOADING)
AppSrcGetEmitSignalsMethodInfo ,
#endif
appSrcGetEmitSignals ,
#if defined(ENABLE_OVERLOADING)
AppSrcGetLatencyMethodInfo ,
#endif
appSrcGetLatency ,
#if defined(ENABLE_OVERLOADING)
AppSrcGetLeakyTypeMethodInfo ,
#endif
appSrcGetLeakyType ,
#if defined(ENABLE_OVERLOADING)
AppSrcGetMaxBuffersMethodInfo ,
#endif
appSrcGetMaxBuffers ,
#if defined(ENABLE_OVERLOADING)
AppSrcGetMaxBytesMethodInfo ,
#endif
appSrcGetMaxBytes ,
#if defined(ENABLE_OVERLOADING)
AppSrcGetMaxTimeMethodInfo ,
#endif
appSrcGetMaxTime ,
#if defined(ENABLE_OVERLOADING)
AppSrcGetSizeMethodInfo ,
#endif
appSrcGetSize ,
#if defined(ENABLE_OVERLOADING)
AppSrcGetStreamTypeMethodInfo ,
#endif
appSrcGetStreamType ,
#if defined(ENABLE_OVERLOADING)
AppSrcPushBufferMethodInfo ,
#endif
appSrcPushBuffer ,
#if defined(ENABLE_OVERLOADING)
AppSrcPushBufferListMethodInfo ,
#endif
appSrcPushBufferList ,
#if defined(ENABLE_OVERLOADING)
AppSrcPushSampleMethodInfo ,
#endif
appSrcPushSample ,
#if defined(ENABLE_OVERLOADING)
AppSrcSetCapsMethodInfo ,
#endif
appSrcSetCaps ,
#if defined(ENABLE_OVERLOADING)
AppSrcSetDurationMethodInfo ,
#endif
appSrcSetDuration ,
#if defined(ENABLE_OVERLOADING)
AppSrcSetEmitSignalsMethodInfo ,
#endif
appSrcSetEmitSignals ,
#if defined(ENABLE_OVERLOADING)
AppSrcSetLatencyMethodInfo ,
#endif
appSrcSetLatency ,
#if defined(ENABLE_OVERLOADING)
AppSrcSetLeakyTypeMethodInfo ,
#endif
appSrcSetLeakyType ,
#if defined(ENABLE_OVERLOADING)
AppSrcSetMaxBuffersMethodInfo ,
#endif
appSrcSetMaxBuffers ,
#if defined(ENABLE_OVERLOADING)
AppSrcSetMaxBytesMethodInfo ,
#endif
appSrcSetMaxBytes ,
#if defined(ENABLE_OVERLOADING)
AppSrcSetMaxTimeMethodInfo ,
#endif
appSrcSetMaxTime ,
#if defined(ENABLE_OVERLOADING)
AppSrcSetSizeMethodInfo ,
#endif
appSrcSetSize ,
#if defined(ENABLE_OVERLOADING)
AppSrcSetStreamTypeMethodInfo ,
#endif
appSrcSetStreamType ,
#if defined(ENABLE_OVERLOADING)
AppSrcBlockPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcBlock ,
#endif
constructAppSrcBlock ,
getAppSrcBlock ,
setAppSrcBlock ,
#if defined(ENABLE_OVERLOADING)
AppSrcCapsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcCaps ,
#endif
clearAppSrcCaps ,
constructAppSrcCaps ,
getAppSrcCaps ,
setAppSrcCaps ,
#if defined(ENABLE_OVERLOADING)
AppSrcCurrentLevelBuffersPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcCurrentLevelBuffers ,
#endif
getAppSrcCurrentLevelBuffers ,
#if defined(ENABLE_OVERLOADING)
AppSrcCurrentLevelBytesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcCurrentLevelBytes ,
#endif
getAppSrcCurrentLevelBytes ,
#if defined(ENABLE_OVERLOADING)
AppSrcCurrentLevelTimePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcCurrentLevelTime ,
#endif
getAppSrcCurrentLevelTime ,
#if defined(ENABLE_OVERLOADING)
AppSrcDurationPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcDuration ,
#endif
constructAppSrcDuration ,
getAppSrcDuration ,
setAppSrcDuration ,
#if defined(ENABLE_OVERLOADING)
AppSrcEmitSignalsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcEmitSignals ,
#endif
constructAppSrcEmitSignals ,
getAppSrcEmitSignals ,
setAppSrcEmitSignals ,
#if defined(ENABLE_OVERLOADING)
AppSrcFormatPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcFormat ,
#endif
constructAppSrcFormat ,
getAppSrcFormat ,
setAppSrcFormat ,
#if defined(ENABLE_OVERLOADING)
AppSrcHandleSegmentChangePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcHandleSegmentChange ,
#endif
constructAppSrcHandleSegmentChange ,
getAppSrcHandleSegmentChange ,
setAppSrcHandleSegmentChange ,
#if defined(ENABLE_OVERLOADING)
AppSrcIsLivePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcIsLive ,
#endif
constructAppSrcIsLive ,
getAppSrcIsLive ,
setAppSrcIsLive ,
#if defined(ENABLE_OVERLOADING)
AppSrcLeakyTypePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcLeakyType ,
#endif
constructAppSrcLeakyType ,
getAppSrcLeakyType ,
setAppSrcLeakyType ,
#if defined(ENABLE_OVERLOADING)
AppSrcMaxBuffersPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcMaxBuffers ,
#endif
constructAppSrcMaxBuffers ,
getAppSrcMaxBuffers ,
setAppSrcMaxBuffers ,
#if defined(ENABLE_OVERLOADING)
AppSrcMaxBytesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcMaxBytes ,
#endif
constructAppSrcMaxBytes ,
getAppSrcMaxBytes ,
setAppSrcMaxBytes ,
#if defined(ENABLE_OVERLOADING)
AppSrcMaxLatencyPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcMaxLatency ,
#endif
constructAppSrcMaxLatency ,
getAppSrcMaxLatency ,
setAppSrcMaxLatency ,
#if defined(ENABLE_OVERLOADING)
AppSrcMaxTimePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcMaxTime ,
#endif
constructAppSrcMaxTime ,
getAppSrcMaxTime ,
setAppSrcMaxTime ,
#if defined(ENABLE_OVERLOADING)
AppSrcMinLatencyPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcMinLatency ,
#endif
constructAppSrcMinLatency ,
getAppSrcMinLatency ,
setAppSrcMinLatency ,
#if defined(ENABLE_OVERLOADING)
AppSrcMinPercentPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcMinPercent ,
#endif
constructAppSrcMinPercent ,
getAppSrcMinPercent ,
setAppSrcMinPercent ,
#if defined(ENABLE_OVERLOADING)
AppSrcSizePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcSize ,
#endif
constructAppSrcSize ,
getAppSrcSize ,
setAppSrcSize ,
#if defined(ENABLE_OVERLOADING)
AppSrcStreamTypePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSrcStreamType ,
#endif
constructAppSrcStreamType ,
getAppSrcStreamType ,
setAppSrcStreamType ,
AppSrcEndOfStreamCallback ,
#if defined(ENABLE_OVERLOADING)
AppSrcEndOfStreamSignalInfo ,
#endif
afterAppSrcEndOfStream ,
onAppSrcEndOfStream ,
AppSrcEnoughDataCallback ,
#if defined(ENABLE_OVERLOADING)
AppSrcEnoughDataSignalInfo ,
#endif
afterAppSrcEnoughData ,
onAppSrcEnoughData ,
AppSrcNeedDataCallback ,
#if defined(ENABLE_OVERLOADING)
AppSrcNeedDataSignalInfo ,
#endif
afterAppSrcNeedData ,
onAppSrcNeedData ,
AppSrcPushBufferCallback ,
#if defined(ENABLE_OVERLOADING)
AppSrcPushBufferSignalInfo ,
#endif
afterAppSrcPushBuffer ,
onAppSrcPushBuffer ,
AppSrcPushBufferListCallback ,
#if defined(ENABLE_OVERLOADING)
AppSrcPushBufferListSignalInfo ,
#endif
afterAppSrcPushBufferList ,
onAppSrcPushBufferList ,
AppSrcPushSampleCallback ,
#if defined(ENABLE_OVERLOADING)
AppSrcPushSampleSignalInfo ,
#endif
afterAppSrcPushSample ,
onAppSrcPushSample ,
AppSrcSeekDataCallback ,
#if defined(ENABLE_OVERLOADING)
AppSrcSeekDataSignalInfo ,
#endif
afterAppSrcSeekData ,
onAppSrcSeekData ,
) 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.Interfaces.URIHandler as Gst.URIHandler
import qualified GI.Gst.Objects.Element as Gst.Element
import qualified GI.Gst.Objects.Object as Gst.Object
import qualified GI.Gst.Structs.Buffer as Gst.Buffer
import qualified GI.Gst.Structs.BufferList as Gst.BufferList
import qualified GI.Gst.Structs.Caps as Gst.Caps
import qualified GI.Gst.Structs.Sample as Gst.Sample
import {-# SOURCE #-} qualified GI.GstApp.Enums as GstApp.Enums
import qualified GI.GstBase.Objects.BaseSrc as GstBase.BaseSrc
newtype AppSrc = AppSrc (SP.ManagedPtr AppSrc)
deriving (AppSrc -> AppSrc -> Bool
(AppSrc -> AppSrc -> Bool)
-> (AppSrc -> AppSrc -> Bool) -> Eq AppSrc
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AppSrc -> AppSrc -> Bool
== :: AppSrc -> AppSrc -> Bool
$c/= :: AppSrc -> AppSrc -> Bool
/= :: AppSrc -> AppSrc -> Bool
Eq)
instance SP.ManagedPtrNewtype AppSrc where
toManagedPtr :: AppSrc -> ManagedPtr AppSrc
toManagedPtr (AppSrc ManagedPtr AppSrc
p) = ManagedPtr AppSrc
p
foreign import ccall "gst_app_src_get_type"
c_gst_app_src_get_type :: IO B.Types.GType
instance B.Types.TypedObject AppSrc where
glibType :: IO GType
glibType = IO GType
c_gst_app_src_get_type
instance B.Types.GObject AppSrc
class (SP.GObject o, O.IsDescendantOf AppSrc o) => IsAppSrc o
instance (SP.GObject o, O.IsDescendantOf AppSrc o) => IsAppSrc o
instance O.HasParentTypes AppSrc
type instance O.ParentTypes AppSrc = '[GstBase.BaseSrc.BaseSrc, Gst.Element.Element, Gst.Object.Object, GObject.Object.Object, Gst.URIHandler.URIHandler]
toAppSrc :: (MIO.MonadIO m, IsAppSrc o) => o -> m AppSrc
toAppSrc :: forall (m :: * -> *) o. (MonadIO m, IsAppSrc o) => o -> m AppSrc
toAppSrc = IO AppSrc -> m AppSrc
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO AppSrc -> m AppSrc) -> (o -> IO AppSrc) -> o -> m AppSrc
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr AppSrc -> AppSrc) -> o -> IO AppSrc
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr AppSrc -> AppSrc
AppSrc
instance B.GValue.IsGValue (Maybe AppSrc) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gst_app_src_get_type
gvalueSet_ :: Ptr GValue -> Maybe AppSrc -> IO ()
gvalueSet_ Ptr GValue
gv Maybe AppSrc
P.Nothing = Ptr GValue -> Ptr AppSrc -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr AppSrc
forall a. Ptr a
FP.nullPtr :: FP.Ptr AppSrc)
gvalueSet_ Ptr GValue
gv (P.Just AppSrc
obj) = AppSrc -> (Ptr AppSrc -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr AppSrc
obj (Ptr GValue -> Ptr AppSrc -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe AppSrc)
gvalueGet_ Ptr GValue
gv = do
Ptr AppSrc
ptr <- Ptr GValue -> IO (Ptr AppSrc)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr AppSrc)
if Ptr AppSrc
ptr Ptr AppSrc -> Ptr AppSrc -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr AppSrc
forall a. Ptr a
FP.nullPtr
then AppSrc -> Maybe AppSrc
forall a. a -> Maybe a
P.Just (AppSrc -> Maybe AppSrc) -> IO AppSrc -> IO (Maybe AppSrc)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr AppSrc -> AppSrc) -> Ptr AppSrc -> IO AppSrc
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr AppSrc -> AppSrc
AppSrc Ptr AppSrc
ptr
else Maybe AppSrc -> IO (Maybe AppSrc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe AppSrc
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveAppSrcMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveAppSrcMethod "abortState" o = Gst.Element.ElementAbortStateMethodInfo
ResolveAppSrcMethod "addControlBinding" o = Gst.Object.ObjectAddControlBindingMethodInfo
ResolveAppSrcMethod "addPad" o = Gst.Element.ElementAddPadMethodInfo
ResolveAppSrcMethod "addPropertyDeepNotifyWatch" o = Gst.Element.ElementAddPropertyDeepNotifyWatchMethodInfo
ResolveAppSrcMethod "addPropertyNotifyWatch" o = Gst.Element.ElementAddPropertyNotifyWatchMethodInfo
ResolveAppSrcMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAppSrcMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAppSrcMethod "callAsync" o = Gst.Element.ElementCallAsyncMethodInfo
ResolveAppSrcMethod "changeState" o = Gst.Element.ElementChangeStateMethodInfo
ResolveAppSrcMethod "continueState" o = Gst.Element.ElementContinueStateMethodInfo
ResolveAppSrcMethod "createAllPads" o = Gst.Element.ElementCreateAllPadsMethodInfo
ResolveAppSrcMethod "defaultError" o = Gst.Object.ObjectDefaultErrorMethodInfo
ResolveAppSrcMethod "endOfStream" o = AppSrcEndOfStreamMethodInfo
ResolveAppSrcMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAppSrcMethod "foreachPad" o = Gst.Element.ElementForeachPadMethodInfo
ResolveAppSrcMethod "foreachSinkPad" o = Gst.Element.ElementForeachSinkPadMethodInfo
ResolveAppSrcMethod "foreachSrcPad" o = Gst.Element.ElementForeachSrcPadMethodInfo
ResolveAppSrcMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAppSrcMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveAppSrcMethod "hasActiveControlBindings" o = Gst.Object.ObjectHasActiveControlBindingsMethodInfo
ResolveAppSrcMethod "hasAncestor" o = Gst.Object.ObjectHasAncestorMethodInfo
ResolveAppSrcMethod "hasAsAncestor" o = Gst.Object.ObjectHasAsAncestorMethodInfo
ResolveAppSrcMethod "hasAsParent" o = Gst.Object.ObjectHasAsParentMethodInfo
ResolveAppSrcMethod "isAsync" o = GstBase.BaseSrc.BaseSrcIsAsyncMethodInfo
ResolveAppSrcMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAppSrcMethod "isLive" o = GstBase.BaseSrc.BaseSrcIsLiveMethodInfo
ResolveAppSrcMethod "isLockedState" o = Gst.Element.ElementIsLockedStateMethodInfo
ResolveAppSrcMethod "iteratePads" o = Gst.Element.ElementIteratePadsMethodInfo
ResolveAppSrcMethod "iterateSinkPads" o = Gst.Element.ElementIterateSinkPadsMethodInfo
ResolveAppSrcMethod "iterateSrcPads" o = Gst.Element.ElementIterateSrcPadsMethodInfo
ResolveAppSrcMethod "link" o = Gst.Element.ElementLinkMethodInfo
ResolveAppSrcMethod "linkFiltered" o = Gst.Element.ElementLinkFilteredMethodInfo
ResolveAppSrcMethod "linkPads" o = Gst.Element.ElementLinkPadsMethodInfo
ResolveAppSrcMethod "linkPadsFiltered" o = Gst.Element.ElementLinkPadsFilteredMethodInfo
ResolveAppSrcMethod "linkPadsFull" o = Gst.Element.ElementLinkPadsFullMethodInfo
ResolveAppSrcMethod "lostState" o = Gst.Element.ElementLostStateMethodInfo
ResolveAppSrcMethod "messageFull" o = Gst.Element.ElementMessageFullMethodInfo
ResolveAppSrcMethod "messageFullWithDetails" o = Gst.Element.ElementMessageFullWithDetailsMethodInfo
ResolveAppSrcMethod "negotiate" o = GstBase.BaseSrc.BaseSrcNegotiateMethodInfo
ResolveAppSrcMethod "newSeamlessSegment" o = GstBase.BaseSrc.BaseSrcNewSeamlessSegmentMethodInfo
ResolveAppSrcMethod "newSegment" o = GstBase.BaseSrc.BaseSrcNewSegmentMethodInfo
ResolveAppSrcMethod "noMorePads" o = Gst.Element.ElementNoMorePadsMethodInfo
ResolveAppSrcMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAppSrcMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAppSrcMethod "postMessage" o = Gst.Element.ElementPostMessageMethodInfo
ResolveAppSrcMethod "provideClock" o = Gst.Element.ElementProvideClockMethodInfo
ResolveAppSrcMethod "pushBuffer" o = AppSrcPushBufferMethodInfo
ResolveAppSrcMethod "pushBufferList" o = AppSrcPushBufferListMethodInfo
ResolveAppSrcMethod "pushSample" o = AppSrcPushSampleMethodInfo
ResolveAppSrcMethod "query" o = Gst.Element.ElementQueryMethodInfo
ResolveAppSrcMethod "queryConvert" o = Gst.Element.ElementQueryConvertMethodInfo
ResolveAppSrcMethod "queryDuration" o = Gst.Element.ElementQueryDurationMethodInfo
ResolveAppSrcMethod "queryLatency" o = GstBase.BaseSrc.BaseSrcQueryLatencyMethodInfo
ResolveAppSrcMethod "queryPosition" o = Gst.Element.ElementQueryPositionMethodInfo
ResolveAppSrcMethod "ref" o = Gst.Object.ObjectRefMethodInfo
ResolveAppSrcMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAppSrcMethod "releaseRequestPad" o = Gst.Element.ElementReleaseRequestPadMethodInfo
ResolveAppSrcMethod "removeControlBinding" o = Gst.Object.ObjectRemoveControlBindingMethodInfo
ResolveAppSrcMethod "removePad" o = Gst.Element.ElementRemovePadMethodInfo
ResolveAppSrcMethod "removePropertyNotifyWatch" o = Gst.Element.ElementRemovePropertyNotifyWatchMethodInfo
ResolveAppSrcMethod "requestPad" o = Gst.Element.ElementRequestPadMethodInfo
ResolveAppSrcMethod "requestPadSimple" o = Gst.Element.ElementRequestPadSimpleMethodInfo
ResolveAppSrcMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAppSrcMethod "seek" o = Gst.Element.ElementSeekMethodInfo
ResolveAppSrcMethod "seekSimple" o = Gst.Element.ElementSeekSimpleMethodInfo
ResolveAppSrcMethod "sendEvent" o = Gst.Element.ElementSendEventMethodInfo
ResolveAppSrcMethod "startComplete" o = GstBase.BaseSrc.BaseSrcStartCompleteMethodInfo
ResolveAppSrcMethod "startWait" o = GstBase.BaseSrc.BaseSrcStartWaitMethodInfo
ResolveAppSrcMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAppSrcMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAppSrcMethod "submitBufferList" o = GstBase.BaseSrc.BaseSrcSubmitBufferListMethodInfo
ResolveAppSrcMethod "suggestNextSync" o = Gst.Object.ObjectSuggestNextSyncMethodInfo
ResolveAppSrcMethod "syncStateWithParent" o = Gst.Element.ElementSyncStateWithParentMethodInfo
ResolveAppSrcMethod "syncValues" o = Gst.Object.ObjectSyncValuesMethodInfo
ResolveAppSrcMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAppSrcMethod "unlink" o = Gst.Element.ElementUnlinkMethodInfo
ResolveAppSrcMethod "unlinkPads" o = Gst.Element.ElementUnlinkPadsMethodInfo
ResolveAppSrcMethod "unparent" o = Gst.Object.ObjectUnparentMethodInfo
ResolveAppSrcMethod "unref" o = Gst.Object.ObjectUnrefMethodInfo
ResolveAppSrcMethod "waitPlaying" o = GstBase.BaseSrc.BaseSrcWaitPlayingMethodInfo
ResolveAppSrcMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAppSrcMethod "getAllocator" o = GstBase.BaseSrc.BaseSrcGetAllocatorMethodInfo
ResolveAppSrcMethod "getBaseTime" o = Gst.Element.ElementGetBaseTimeMethodInfo
ResolveAppSrcMethod "getBlocksize" o = GstBase.BaseSrc.BaseSrcGetBlocksizeMethodInfo
ResolveAppSrcMethod "getBufferPool" o = GstBase.BaseSrc.BaseSrcGetBufferPoolMethodInfo
ResolveAppSrcMethod "getBus" o = Gst.Element.ElementGetBusMethodInfo
ResolveAppSrcMethod "getCaps" o = AppSrcGetCapsMethodInfo
ResolveAppSrcMethod "getClock" o = Gst.Element.ElementGetClockMethodInfo
ResolveAppSrcMethod "getCompatiblePad" o = Gst.Element.ElementGetCompatiblePadMethodInfo
ResolveAppSrcMethod "getCompatiblePadTemplate" o = Gst.Element.ElementGetCompatiblePadTemplateMethodInfo
ResolveAppSrcMethod "getContext" o = Gst.Element.ElementGetContextMethodInfo
ResolveAppSrcMethod "getContextUnlocked" o = Gst.Element.ElementGetContextUnlockedMethodInfo
ResolveAppSrcMethod "getContexts" o = Gst.Element.ElementGetContextsMethodInfo
ResolveAppSrcMethod "getControlBinding" o = Gst.Object.ObjectGetControlBindingMethodInfo
ResolveAppSrcMethod "getControlRate" o = Gst.Object.ObjectGetControlRateMethodInfo
ResolveAppSrcMethod "getCurrentClockTime" o = Gst.Element.ElementGetCurrentClockTimeMethodInfo
ResolveAppSrcMethod "getCurrentLevelBuffers" o = AppSrcGetCurrentLevelBuffersMethodInfo
ResolveAppSrcMethod "getCurrentLevelBytes" o = AppSrcGetCurrentLevelBytesMethodInfo
ResolveAppSrcMethod "getCurrentLevelTime" o = AppSrcGetCurrentLevelTimeMethodInfo
ResolveAppSrcMethod "getCurrentRunningTime" o = Gst.Element.ElementGetCurrentRunningTimeMethodInfo
ResolveAppSrcMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAppSrcMethod "getDoTimestamp" o = GstBase.BaseSrc.BaseSrcGetDoTimestampMethodInfo
ResolveAppSrcMethod "getDuration" o = AppSrcGetDurationMethodInfo
ResolveAppSrcMethod "getEmitSignals" o = AppSrcGetEmitSignalsMethodInfo
ResolveAppSrcMethod "getFactory" o = Gst.Element.ElementGetFactoryMethodInfo
ResolveAppSrcMethod "getGValueArray" o = Gst.Object.ObjectGetGValueArrayMethodInfo
ResolveAppSrcMethod "getLatency" o = AppSrcGetLatencyMethodInfo
ResolveAppSrcMethod "getLeakyType" o = AppSrcGetLeakyTypeMethodInfo
ResolveAppSrcMethod "getMaxBuffers" o = AppSrcGetMaxBuffersMethodInfo
ResolveAppSrcMethod "getMaxBytes" o = AppSrcGetMaxBytesMethodInfo
ResolveAppSrcMethod "getMaxTime" o = AppSrcGetMaxTimeMethodInfo
ResolveAppSrcMethod "getMetadata" o = Gst.Element.ElementGetMetadataMethodInfo
ResolveAppSrcMethod "getName" o = Gst.Object.ObjectGetNameMethodInfo
ResolveAppSrcMethod "getPadTemplate" o = Gst.Element.ElementGetPadTemplateMethodInfo
ResolveAppSrcMethod "getPadTemplateList" o = Gst.Element.ElementGetPadTemplateListMethodInfo
ResolveAppSrcMethod "getParent" o = Gst.Object.ObjectGetParentMethodInfo
ResolveAppSrcMethod "getPathString" o = Gst.Object.ObjectGetPathStringMethodInfo
ResolveAppSrcMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAppSrcMethod "getProtocols" o = Gst.URIHandler.URIHandlerGetProtocolsMethodInfo
ResolveAppSrcMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAppSrcMethod "getRequestPad" o = Gst.Element.ElementGetRequestPadMethodInfo
ResolveAppSrcMethod "getSize" o = AppSrcGetSizeMethodInfo
ResolveAppSrcMethod "getStartTime" o = Gst.Element.ElementGetStartTimeMethodInfo
ResolveAppSrcMethod "getState" o = Gst.Element.ElementGetStateMethodInfo
ResolveAppSrcMethod "getStaticPad" o = Gst.Element.ElementGetStaticPadMethodInfo
ResolveAppSrcMethod "getStreamType" o = AppSrcGetStreamTypeMethodInfo
ResolveAppSrcMethod "getUri" o = Gst.URIHandler.URIHandlerGetUriMethodInfo
ResolveAppSrcMethod "getUriType" o = Gst.URIHandler.URIHandlerGetUriTypeMethodInfo
ResolveAppSrcMethod "getValue" o = Gst.Object.ObjectGetValueMethodInfo
ResolveAppSrcMethod "setAsync" o = GstBase.BaseSrc.BaseSrcSetAsyncMethodInfo
ResolveAppSrcMethod "setAutomaticEos" o = GstBase.BaseSrc.BaseSrcSetAutomaticEosMethodInfo
ResolveAppSrcMethod "setBaseTime" o = Gst.Element.ElementSetBaseTimeMethodInfo
ResolveAppSrcMethod "setBlocksize" o = GstBase.BaseSrc.BaseSrcSetBlocksizeMethodInfo
ResolveAppSrcMethod "setBus" o = Gst.Element.ElementSetBusMethodInfo
ResolveAppSrcMethod "setCaps" o = AppSrcSetCapsMethodInfo
ResolveAppSrcMethod "setClock" o = Gst.Element.ElementSetClockMethodInfo
ResolveAppSrcMethod "setContext" o = Gst.Element.ElementSetContextMethodInfo
ResolveAppSrcMethod "setControlBindingDisabled" o = Gst.Object.ObjectSetControlBindingDisabledMethodInfo
ResolveAppSrcMethod "setControlBindingsDisabled" o = Gst.Object.ObjectSetControlBindingsDisabledMethodInfo
ResolveAppSrcMethod "setControlRate" o = Gst.Object.ObjectSetControlRateMethodInfo
ResolveAppSrcMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAppSrcMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveAppSrcMethod "setDoTimestamp" o = GstBase.BaseSrc.BaseSrcSetDoTimestampMethodInfo
ResolveAppSrcMethod "setDuration" o = AppSrcSetDurationMethodInfo
ResolveAppSrcMethod "setDynamicSize" o = GstBase.BaseSrc.BaseSrcSetDynamicSizeMethodInfo
ResolveAppSrcMethod "setEmitSignals" o = AppSrcSetEmitSignalsMethodInfo
ResolveAppSrcMethod "setFormat" o = GstBase.BaseSrc.BaseSrcSetFormatMethodInfo
ResolveAppSrcMethod "setLatency" o = AppSrcSetLatencyMethodInfo
ResolveAppSrcMethod "setLeakyType" o = AppSrcSetLeakyTypeMethodInfo
ResolveAppSrcMethod "setLive" o = GstBase.BaseSrc.BaseSrcSetLiveMethodInfo
ResolveAppSrcMethod "setLockedState" o = Gst.Element.ElementSetLockedStateMethodInfo
ResolveAppSrcMethod "setMaxBuffers" o = AppSrcSetMaxBuffersMethodInfo
ResolveAppSrcMethod "setMaxBytes" o = AppSrcSetMaxBytesMethodInfo
ResolveAppSrcMethod "setMaxTime" o = AppSrcSetMaxTimeMethodInfo
ResolveAppSrcMethod "setName" o = Gst.Object.ObjectSetNameMethodInfo
ResolveAppSrcMethod "setParent" o = Gst.Object.ObjectSetParentMethodInfo
ResolveAppSrcMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAppSrcMethod "setSize" o = AppSrcSetSizeMethodInfo
ResolveAppSrcMethod "setStartTime" o = Gst.Element.ElementSetStartTimeMethodInfo
ResolveAppSrcMethod "setState" o = Gst.Element.ElementSetStateMethodInfo
ResolveAppSrcMethod "setStreamType" o = AppSrcSetStreamTypeMethodInfo
ResolveAppSrcMethod "setUri" o = Gst.URIHandler.URIHandlerSetUriMethodInfo
ResolveAppSrcMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAppSrcMethod t AppSrc, O.OverloadedMethod info AppSrc p) => OL.IsLabel t (AppSrc -> 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 ~ ResolveAppSrcMethod t AppSrc, O.OverloadedMethod info AppSrc p, R.HasField t AppSrc p) => R.HasField t AppSrc p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveAppSrcMethod t AppSrc, O.OverloadedMethodInfo info AppSrc) => OL.IsLabel t (O.MethodProxy info AppSrc) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type AppSrcEndOfStreamCallback =
IO Gst.Enums.FlowReturn
type C_AppSrcEndOfStreamCallback =
Ptr AppSrc ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_AppSrcEndOfStreamCallback :: C_AppSrcEndOfStreamCallback -> IO (FunPtr C_AppSrcEndOfStreamCallback)
wrap_AppSrcEndOfStreamCallback ::
GObject a => (a -> AppSrcEndOfStreamCallback) ->
C_AppSrcEndOfStreamCallback
wrap_AppSrcEndOfStreamCallback :: forall a.
GObject a =>
(a -> AppSrcEndOfStreamCallback) -> C_AppSrcEndOfStreamCallback
wrap_AppSrcEndOfStreamCallback a -> AppSrcEndOfStreamCallback
gi'cb Ptr AppSrc
gi'selfPtr Ptr ()
_ = do
FlowReturn
result <- Ptr AppSrc
-> (AppSrc -> AppSrcEndOfStreamCallback)
-> AppSrcEndOfStreamCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr AppSrc
gi'selfPtr ((AppSrc -> AppSrcEndOfStreamCallback)
-> AppSrcEndOfStreamCallback)
-> (AppSrc -> AppSrcEndOfStreamCallback)
-> AppSrcEndOfStreamCallback
forall a b. (a -> b) -> a -> b
$ \AppSrc
gi'self -> a -> AppSrcEndOfStreamCallback
gi'cb (AppSrc -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AppSrc
gi'self)
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (FlowReturn -> Int) -> FlowReturn -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FlowReturn -> Int
forall a. Enum a => a -> Int
fromEnum) FlowReturn
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onAppSrcEndOfStream :: (IsAppSrc a, MonadIO m) => a -> ((?self :: a) => AppSrcEndOfStreamCallback) -> m SignalHandlerId
onAppSrcEndOfStream :: forall a (m :: * -> *).
(IsAppSrc a, MonadIO m) =>
a -> ((?self::a) => AppSrcEndOfStreamCallback) -> m SignalHandlerId
onAppSrcEndOfStream a
obj (?self::a) => AppSrcEndOfStreamCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> AppSrcEndOfStreamCallback
wrapped a
self = let ?self = a
?self::a
self in AppSrcEndOfStreamCallback
(?self::a) => AppSrcEndOfStreamCallback
cb
let wrapped' :: C_AppSrcEndOfStreamCallback
wrapped' = (a -> AppSrcEndOfStreamCallback) -> C_AppSrcEndOfStreamCallback
forall a.
GObject a =>
(a -> AppSrcEndOfStreamCallback) -> C_AppSrcEndOfStreamCallback
wrap_AppSrcEndOfStreamCallback a -> AppSrcEndOfStreamCallback
wrapped
FunPtr C_AppSrcEndOfStreamCallback
wrapped'' <- C_AppSrcEndOfStreamCallback
-> IO (FunPtr C_AppSrcEndOfStreamCallback)
mk_AppSrcEndOfStreamCallback C_AppSrcEndOfStreamCallback
wrapped'
a
-> Text
-> FunPtr C_AppSrcEndOfStreamCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"end-of-stream" FunPtr C_AppSrcEndOfStreamCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAppSrcEndOfStream :: (IsAppSrc a, MonadIO m) => a -> ((?self :: a) => AppSrcEndOfStreamCallback) -> m SignalHandlerId
afterAppSrcEndOfStream :: forall a (m :: * -> *).
(IsAppSrc a, MonadIO m) =>
a -> ((?self::a) => AppSrcEndOfStreamCallback) -> m SignalHandlerId
afterAppSrcEndOfStream a
obj (?self::a) => AppSrcEndOfStreamCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> AppSrcEndOfStreamCallback
wrapped a
self = let ?self = a
?self::a
self in AppSrcEndOfStreamCallback
(?self::a) => AppSrcEndOfStreamCallback
cb
let wrapped' :: C_AppSrcEndOfStreamCallback
wrapped' = (a -> AppSrcEndOfStreamCallback) -> C_AppSrcEndOfStreamCallback
forall a.
GObject a =>
(a -> AppSrcEndOfStreamCallback) -> C_AppSrcEndOfStreamCallback
wrap_AppSrcEndOfStreamCallback a -> AppSrcEndOfStreamCallback
wrapped
FunPtr C_AppSrcEndOfStreamCallback
wrapped'' <- C_AppSrcEndOfStreamCallback
-> IO (FunPtr C_AppSrcEndOfStreamCallback)
mk_AppSrcEndOfStreamCallback C_AppSrcEndOfStreamCallback
wrapped'
a
-> Text
-> FunPtr C_AppSrcEndOfStreamCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"end-of-stream" FunPtr C_AppSrcEndOfStreamCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AppSrcEndOfStreamSignalInfo
instance SignalInfo AppSrcEndOfStreamSignalInfo where
type HaskellCallbackType AppSrcEndOfStreamSignalInfo = AppSrcEndOfStreamCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AppSrcEndOfStreamCallback cb
cb'' <- mk_AppSrcEndOfStreamCallback cb'
connectSignalFunPtr obj "end-of-stream" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc::end-of-stream"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:signal:endOfStream"})
#endif
type AppSrcEnoughDataCallback =
IO ()
type C_AppSrcEnoughDataCallback =
Ptr AppSrc ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AppSrcEnoughDataCallback :: C_AppSrcEnoughDataCallback -> IO (FunPtr C_AppSrcEnoughDataCallback)
wrap_AppSrcEnoughDataCallback ::
GObject a => (a -> AppSrcEnoughDataCallback) ->
C_AppSrcEnoughDataCallback
wrap_AppSrcEnoughDataCallback :: forall a. GObject a => (a -> IO ()) -> C_AppSrcEnoughDataCallback
wrap_AppSrcEnoughDataCallback a -> IO ()
gi'cb Ptr AppSrc
gi'selfPtr Ptr ()
_ = do
Ptr AppSrc -> (AppSrc -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr AppSrc
gi'selfPtr ((AppSrc -> IO ()) -> IO ()) -> (AppSrc -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \AppSrc
gi'self -> a -> IO ()
gi'cb (AppSrc -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AppSrc
gi'self)
onAppSrcEnoughData :: (IsAppSrc a, MonadIO m) => a -> ((?self :: a) => AppSrcEnoughDataCallback) -> m SignalHandlerId
onAppSrcEnoughData :: forall a (m :: * -> *).
(IsAppSrc a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onAppSrcEnoughData a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_AppSrcEnoughDataCallback
wrapped' = (a -> IO ()) -> C_AppSrcEnoughDataCallback
forall a. GObject a => (a -> IO ()) -> C_AppSrcEnoughDataCallback
wrap_AppSrcEnoughDataCallback a -> IO ()
wrapped
FunPtr C_AppSrcEnoughDataCallback
wrapped'' <- C_AppSrcEnoughDataCallback
-> IO (FunPtr C_AppSrcEnoughDataCallback)
mk_AppSrcEnoughDataCallback C_AppSrcEnoughDataCallback
wrapped'
a
-> Text
-> FunPtr C_AppSrcEnoughDataCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"enough-data" FunPtr C_AppSrcEnoughDataCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAppSrcEnoughData :: (IsAppSrc a, MonadIO m) => a -> ((?self :: a) => AppSrcEnoughDataCallback) -> m SignalHandlerId
afterAppSrcEnoughData :: forall a (m :: * -> *).
(IsAppSrc a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterAppSrcEnoughData a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_AppSrcEnoughDataCallback
wrapped' = (a -> IO ()) -> C_AppSrcEnoughDataCallback
forall a. GObject a => (a -> IO ()) -> C_AppSrcEnoughDataCallback
wrap_AppSrcEnoughDataCallback a -> IO ()
wrapped
FunPtr C_AppSrcEnoughDataCallback
wrapped'' <- C_AppSrcEnoughDataCallback
-> IO (FunPtr C_AppSrcEnoughDataCallback)
mk_AppSrcEnoughDataCallback C_AppSrcEnoughDataCallback
wrapped'
a
-> Text
-> FunPtr C_AppSrcEnoughDataCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"enough-data" FunPtr C_AppSrcEnoughDataCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AppSrcEnoughDataSignalInfo
instance SignalInfo AppSrcEnoughDataSignalInfo where
type HaskellCallbackType AppSrcEnoughDataSignalInfo = AppSrcEnoughDataCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AppSrcEnoughDataCallback cb
cb'' <- mk_AppSrcEnoughDataCallback cb'
connectSignalFunPtr obj "enough-data" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc::enough-data"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:signal:enoughData"})
#endif
type AppSrcNeedDataCallback =
Word32
-> IO ()
type C_AppSrcNeedDataCallback =
Ptr AppSrc ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AppSrcNeedDataCallback :: C_AppSrcNeedDataCallback -> IO (FunPtr C_AppSrcNeedDataCallback)
wrap_AppSrcNeedDataCallback ::
GObject a => (a -> AppSrcNeedDataCallback) ->
C_AppSrcNeedDataCallback
wrap_AppSrcNeedDataCallback :: forall a.
GObject a =>
(a -> AppSrcNeedDataCallback) -> C_AppSrcNeedDataCallback
wrap_AppSrcNeedDataCallback a -> AppSrcNeedDataCallback
gi'cb Ptr AppSrc
gi'selfPtr Word32
length_ Ptr ()
_ = do
Ptr AppSrc -> (AppSrc -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr AppSrc
gi'selfPtr ((AppSrc -> IO ()) -> IO ()) -> (AppSrc -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \AppSrc
gi'self -> a -> AppSrcNeedDataCallback
gi'cb (AppSrc -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AppSrc
gi'self) Word32
length_
onAppSrcNeedData :: (IsAppSrc a, MonadIO m) => a -> ((?self :: a) => AppSrcNeedDataCallback) -> m SignalHandlerId
onAppSrcNeedData :: forall a (m :: * -> *).
(IsAppSrc a, MonadIO m) =>
a -> ((?self::a) => AppSrcNeedDataCallback) -> m SignalHandlerId
onAppSrcNeedData a
obj (?self::a) => AppSrcNeedDataCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> AppSrcNeedDataCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppSrcNeedDataCallback
AppSrcNeedDataCallback
cb
let wrapped' :: C_AppSrcNeedDataCallback
wrapped' = (a -> AppSrcNeedDataCallback) -> C_AppSrcNeedDataCallback
forall a.
GObject a =>
(a -> AppSrcNeedDataCallback) -> C_AppSrcNeedDataCallback
wrap_AppSrcNeedDataCallback a -> AppSrcNeedDataCallback
wrapped
FunPtr C_AppSrcNeedDataCallback
wrapped'' <- C_AppSrcNeedDataCallback -> IO (FunPtr C_AppSrcNeedDataCallback)
mk_AppSrcNeedDataCallback C_AppSrcNeedDataCallback
wrapped'
a
-> Text
-> FunPtr C_AppSrcNeedDataCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"need-data" FunPtr C_AppSrcNeedDataCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAppSrcNeedData :: (IsAppSrc a, MonadIO m) => a -> ((?self :: a) => AppSrcNeedDataCallback) -> m SignalHandlerId
afterAppSrcNeedData :: forall a (m :: * -> *).
(IsAppSrc a, MonadIO m) =>
a -> ((?self::a) => AppSrcNeedDataCallback) -> m SignalHandlerId
afterAppSrcNeedData a
obj (?self::a) => AppSrcNeedDataCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> AppSrcNeedDataCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppSrcNeedDataCallback
AppSrcNeedDataCallback
cb
let wrapped' :: C_AppSrcNeedDataCallback
wrapped' = (a -> AppSrcNeedDataCallback) -> C_AppSrcNeedDataCallback
forall a.
GObject a =>
(a -> AppSrcNeedDataCallback) -> C_AppSrcNeedDataCallback
wrap_AppSrcNeedDataCallback a -> AppSrcNeedDataCallback
wrapped
FunPtr C_AppSrcNeedDataCallback
wrapped'' <- C_AppSrcNeedDataCallback -> IO (FunPtr C_AppSrcNeedDataCallback)
mk_AppSrcNeedDataCallback C_AppSrcNeedDataCallback
wrapped'
a
-> Text
-> FunPtr C_AppSrcNeedDataCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"need-data" FunPtr C_AppSrcNeedDataCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AppSrcNeedDataSignalInfo
instance SignalInfo AppSrcNeedDataSignalInfo where
type HaskellCallbackType AppSrcNeedDataSignalInfo = AppSrcNeedDataCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AppSrcNeedDataCallback cb
cb'' <- mk_AppSrcNeedDataCallback cb'
connectSignalFunPtr obj "need-data" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc::need-data"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:signal:needData"})
#endif
type AppSrcPushBufferCallback =
Gst.Buffer.Buffer
-> IO Gst.Enums.FlowReturn
type C_AppSrcPushBufferCallback =
Ptr AppSrc ->
Ptr Gst.Buffer.Buffer ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_AppSrcPushBufferCallback :: C_AppSrcPushBufferCallback -> IO (FunPtr C_AppSrcPushBufferCallback)
wrap_AppSrcPushBufferCallback ::
GObject a => (a -> AppSrcPushBufferCallback) ->
C_AppSrcPushBufferCallback
wrap_AppSrcPushBufferCallback :: forall a.
GObject a =>
(a -> AppSrcPushBufferCallback) -> C_AppSrcPushBufferCallback
wrap_AppSrcPushBufferCallback a -> AppSrcPushBufferCallback
gi'cb Ptr AppSrc
gi'selfPtr Ptr Buffer
buffer Ptr ()
_ = do
Ptr Buffer -> (Buffer -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Buffer
buffer ((Buffer -> IO CInt) -> IO CInt) -> (Buffer -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Buffer
buffer' -> do
FlowReturn
result <- Ptr AppSrc
-> (AppSrc -> AppSrcEndOfStreamCallback)
-> AppSrcEndOfStreamCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr AppSrc
gi'selfPtr ((AppSrc -> AppSrcEndOfStreamCallback)
-> AppSrcEndOfStreamCallback)
-> (AppSrc -> AppSrcEndOfStreamCallback)
-> AppSrcEndOfStreamCallback
forall a b. (a -> b) -> a -> b
$ \AppSrc
gi'self -> a -> AppSrcPushBufferCallback
gi'cb (AppSrc -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AppSrc
gi'self) Buffer
buffer'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (FlowReturn -> Int) -> FlowReturn -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FlowReturn -> Int
forall a. Enum a => a -> Int
fromEnum) FlowReturn
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onAppSrcPushBuffer :: (IsAppSrc a, MonadIO m) => a -> ((?self :: a) => AppSrcPushBufferCallback) -> m SignalHandlerId
onAppSrcPushBuffer :: forall a (m :: * -> *).
(IsAppSrc a, MonadIO m) =>
a -> ((?self::a) => AppSrcPushBufferCallback) -> m SignalHandlerId
onAppSrcPushBuffer a
obj (?self::a) => AppSrcPushBufferCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> AppSrcPushBufferCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppSrcPushBufferCallback
AppSrcPushBufferCallback
cb
let wrapped' :: C_AppSrcPushBufferCallback
wrapped' = (a -> AppSrcPushBufferCallback) -> C_AppSrcPushBufferCallback
forall a.
GObject a =>
(a -> AppSrcPushBufferCallback) -> C_AppSrcPushBufferCallback
wrap_AppSrcPushBufferCallback a -> AppSrcPushBufferCallback
wrapped
FunPtr C_AppSrcPushBufferCallback
wrapped'' <- C_AppSrcPushBufferCallback
-> IO (FunPtr C_AppSrcPushBufferCallback)
mk_AppSrcPushBufferCallback C_AppSrcPushBufferCallback
wrapped'
a
-> Text
-> FunPtr C_AppSrcPushBufferCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"push-buffer" FunPtr C_AppSrcPushBufferCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAppSrcPushBuffer :: (IsAppSrc a, MonadIO m) => a -> ((?self :: a) => AppSrcPushBufferCallback) -> m SignalHandlerId
afterAppSrcPushBuffer :: forall a (m :: * -> *).
(IsAppSrc a, MonadIO m) =>
a -> ((?self::a) => AppSrcPushBufferCallback) -> m SignalHandlerId
afterAppSrcPushBuffer a
obj (?self::a) => AppSrcPushBufferCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> AppSrcPushBufferCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppSrcPushBufferCallback
AppSrcPushBufferCallback
cb
let wrapped' :: C_AppSrcPushBufferCallback
wrapped' = (a -> AppSrcPushBufferCallback) -> C_AppSrcPushBufferCallback
forall a.
GObject a =>
(a -> AppSrcPushBufferCallback) -> C_AppSrcPushBufferCallback
wrap_AppSrcPushBufferCallback a -> AppSrcPushBufferCallback
wrapped
FunPtr C_AppSrcPushBufferCallback
wrapped'' <- C_AppSrcPushBufferCallback
-> IO (FunPtr C_AppSrcPushBufferCallback)
mk_AppSrcPushBufferCallback C_AppSrcPushBufferCallback
wrapped'
a
-> Text
-> FunPtr C_AppSrcPushBufferCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"push-buffer" FunPtr C_AppSrcPushBufferCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AppSrcPushBufferSignalInfo
instance SignalInfo AppSrcPushBufferSignalInfo where
type HaskellCallbackType AppSrcPushBufferSignalInfo = AppSrcPushBufferCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AppSrcPushBufferCallback cb
cb'' <- mk_AppSrcPushBufferCallback cb'
connectSignalFunPtr obj "push-buffer" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc::push-buffer"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:signal:pushBuffer"})
#endif
type AppSrcPushBufferListCallback =
Gst.BufferList.BufferList
-> IO Gst.Enums.FlowReturn
type C_AppSrcPushBufferListCallback =
Ptr AppSrc ->
Ptr Gst.BufferList.BufferList ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_AppSrcPushBufferListCallback :: C_AppSrcPushBufferListCallback -> IO (FunPtr C_AppSrcPushBufferListCallback)
wrap_AppSrcPushBufferListCallback ::
GObject a => (a -> AppSrcPushBufferListCallback) ->
C_AppSrcPushBufferListCallback
wrap_AppSrcPushBufferListCallback :: forall a.
GObject a =>
(a -> AppSrcPushBufferListCallback)
-> C_AppSrcPushBufferListCallback
wrap_AppSrcPushBufferListCallback a -> AppSrcPushBufferListCallback
gi'cb Ptr AppSrc
gi'selfPtr Ptr BufferList
bufferList Ptr ()
_ = do
Ptr BufferList -> (BufferList -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr BufferList
bufferList ((BufferList -> IO CInt) -> IO CInt)
-> (BufferList -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \BufferList
bufferList' -> do
FlowReturn
result <- Ptr AppSrc
-> (AppSrc -> AppSrcEndOfStreamCallback)
-> AppSrcEndOfStreamCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr AppSrc
gi'selfPtr ((AppSrc -> AppSrcEndOfStreamCallback)
-> AppSrcEndOfStreamCallback)
-> (AppSrc -> AppSrcEndOfStreamCallback)
-> AppSrcEndOfStreamCallback
forall a b. (a -> b) -> a -> b
$ \AppSrc
gi'self -> a -> AppSrcPushBufferListCallback
gi'cb (AppSrc -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AppSrc
gi'self) BufferList
bufferList'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (FlowReturn -> Int) -> FlowReturn -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FlowReturn -> Int
forall a. Enum a => a -> Int
fromEnum) FlowReturn
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onAppSrcPushBufferList :: (IsAppSrc a, MonadIO m) => a -> ((?self :: a) => AppSrcPushBufferListCallback) -> m SignalHandlerId
onAppSrcPushBufferList :: forall a (m :: * -> *).
(IsAppSrc a, MonadIO m) =>
a
-> ((?self::a) => AppSrcPushBufferListCallback)
-> m SignalHandlerId
onAppSrcPushBufferList a
obj (?self::a) => AppSrcPushBufferListCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> AppSrcPushBufferListCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppSrcPushBufferListCallback
AppSrcPushBufferListCallback
cb
let wrapped' :: C_AppSrcPushBufferListCallback
wrapped' = (a -> AppSrcPushBufferListCallback)
-> C_AppSrcPushBufferListCallback
forall a.
GObject a =>
(a -> AppSrcPushBufferListCallback)
-> C_AppSrcPushBufferListCallback
wrap_AppSrcPushBufferListCallback a -> AppSrcPushBufferListCallback
wrapped
FunPtr C_AppSrcPushBufferListCallback
wrapped'' <- C_AppSrcPushBufferListCallback
-> IO (FunPtr C_AppSrcPushBufferListCallback)
mk_AppSrcPushBufferListCallback C_AppSrcPushBufferListCallback
wrapped'
a
-> Text
-> FunPtr C_AppSrcPushBufferListCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"push-buffer-list" FunPtr C_AppSrcPushBufferListCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAppSrcPushBufferList :: (IsAppSrc a, MonadIO m) => a -> ((?self :: a) => AppSrcPushBufferListCallback) -> m SignalHandlerId
afterAppSrcPushBufferList :: forall a (m :: * -> *).
(IsAppSrc a, MonadIO m) =>
a
-> ((?self::a) => AppSrcPushBufferListCallback)
-> m SignalHandlerId
afterAppSrcPushBufferList a
obj (?self::a) => AppSrcPushBufferListCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> AppSrcPushBufferListCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppSrcPushBufferListCallback
AppSrcPushBufferListCallback
cb
let wrapped' :: C_AppSrcPushBufferListCallback
wrapped' = (a -> AppSrcPushBufferListCallback)
-> C_AppSrcPushBufferListCallback
forall a.
GObject a =>
(a -> AppSrcPushBufferListCallback)
-> C_AppSrcPushBufferListCallback
wrap_AppSrcPushBufferListCallback a -> AppSrcPushBufferListCallback
wrapped
FunPtr C_AppSrcPushBufferListCallback
wrapped'' <- C_AppSrcPushBufferListCallback
-> IO (FunPtr C_AppSrcPushBufferListCallback)
mk_AppSrcPushBufferListCallback C_AppSrcPushBufferListCallback
wrapped'
a
-> Text
-> FunPtr C_AppSrcPushBufferListCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"push-buffer-list" FunPtr C_AppSrcPushBufferListCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AppSrcPushBufferListSignalInfo
instance SignalInfo AppSrcPushBufferListSignalInfo where
type HaskellCallbackType AppSrcPushBufferListSignalInfo = AppSrcPushBufferListCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AppSrcPushBufferListCallback cb
cb'' <- mk_AppSrcPushBufferListCallback cb'
connectSignalFunPtr obj "push-buffer-list" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc::push-buffer-list"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:signal:pushBufferList"})
#endif
type AppSrcPushSampleCallback =
Gst.Sample.Sample
-> IO Gst.Enums.FlowReturn
type C_AppSrcPushSampleCallback =
Ptr AppSrc ->
Ptr Gst.Sample.Sample ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_AppSrcPushSampleCallback :: C_AppSrcPushSampleCallback -> IO (FunPtr C_AppSrcPushSampleCallback)
wrap_AppSrcPushSampleCallback ::
GObject a => (a -> AppSrcPushSampleCallback) ->
C_AppSrcPushSampleCallback
wrap_AppSrcPushSampleCallback :: forall a.
GObject a =>
(a -> AppSrcPushSampleCallback) -> C_AppSrcPushSampleCallback
wrap_AppSrcPushSampleCallback a -> AppSrcPushSampleCallback
gi'cb Ptr AppSrc
gi'selfPtr Ptr Sample
sample Ptr ()
_ = do
Ptr Sample -> (Sample -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Sample
sample ((Sample -> IO CInt) -> IO CInt) -> (Sample -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Sample
sample' -> do
FlowReturn
result <- Ptr AppSrc
-> (AppSrc -> AppSrcEndOfStreamCallback)
-> AppSrcEndOfStreamCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr AppSrc
gi'selfPtr ((AppSrc -> AppSrcEndOfStreamCallback)
-> AppSrcEndOfStreamCallback)
-> (AppSrc -> AppSrcEndOfStreamCallback)
-> AppSrcEndOfStreamCallback
forall a b. (a -> b) -> a -> b
$ \AppSrc
gi'self -> a -> AppSrcPushSampleCallback
gi'cb (AppSrc -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AppSrc
gi'self) Sample
sample'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (FlowReturn -> Int) -> FlowReturn -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FlowReturn -> Int
forall a. Enum a => a -> Int
fromEnum) FlowReturn
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onAppSrcPushSample :: (IsAppSrc a, MonadIO m) => a -> ((?self :: a) => AppSrcPushSampleCallback) -> m SignalHandlerId
onAppSrcPushSample :: forall a (m :: * -> *).
(IsAppSrc a, MonadIO m) =>
a -> ((?self::a) => AppSrcPushSampleCallback) -> m SignalHandlerId
onAppSrcPushSample a
obj (?self::a) => AppSrcPushSampleCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> AppSrcPushSampleCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppSrcPushSampleCallback
AppSrcPushSampleCallback
cb
let wrapped' :: C_AppSrcPushSampleCallback
wrapped' = (a -> AppSrcPushSampleCallback) -> C_AppSrcPushSampleCallback
forall a.
GObject a =>
(a -> AppSrcPushSampleCallback) -> C_AppSrcPushSampleCallback
wrap_AppSrcPushSampleCallback a -> AppSrcPushSampleCallback
wrapped
FunPtr C_AppSrcPushSampleCallback
wrapped'' <- C_AppSrcPushSampleCallback
-> IO (FunPtr C_AppSrcPushSampleCallback)
mk_AppSrcPushSampleCallback C_AppSrcPushSampleCallback
wrapped'
a
-> Text
-> FunPtr C_AppSrcPushSampleCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"push-sample" FunPtr C_AppSrcPushSampleCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAppSrcPushSample :: (IsAppSrc a, MonadIO m) => a -> ((?self :: a) => AppSrcPushSampleCallback) -> m SignalHandlerId
afterAppSrcPushSample :: forall a (m :: * -> *).
(IsAppSrc a, MonadIO m) =>
a -> ((?self::a) => AppSrcPushSampleCallback) -> m SignalHandlerId
afterAppSrcPushSample a
obj (?self::a) => AppSrcPushSampleCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> AppSrcPushSampleCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppSrcPushSampleCallback
AppSrcPushSampleCallback
cb
let wrapped' :: C_AppSrcPushSampleCallback
wrapped' = (a -> AppSrcPushSampleCallback) -> C_AppSrcPushSampleCallback
forall a.
GObject a =>
(a -> AppSrcPushSampleCallback) -> C_AppSrcPushSampleCallback
wrap_AppSrcPushSampleCallback a -> AppSrcPushSampleCallback
wrapped
FunPtr C_AppSrcPushSampleCallback
wrapped'' <- C_AppSrcPushSampleCallback
-> IO (FunPtr C_AppSrcPushSampleCallback)
mk_AppSrcPushSampleCallback C_AppSrcPushSampleCallback
wrapped'
a
-> Text
-> FunPtr C_AppSrcPushSampleCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"push-sample" FunPtr C_AppSrcPushSampleCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AppSrcPushSampleSignalInfo
instance SignalInfo AppSrcPushSampleSignalInfo where
type HaskellCallbackType AppSrcPushSampleSignalInfo = AppSrcPushSampleCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AppSrcPushSampleCallback cb
cb'' <- mk_AppSrcPushSampleCallback cb'
connectSignalFunPtr obj "push-sample" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc::push-sample"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:signal:pushSample"})
#endif
type AppSrcSeekDataCallback =
Word64
-> IO Bool
type C_AppSrcSeekDataCallback =
Ptr AppSrc ->
Word64 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_AppSrcSeekDataCallback :: C_AppSrcSeekDataCallback -> IO (FunPtr C_AppSrcSeekDataCallback)
wrap_AppSrcSeekDataCallback ::
GObject a => (a -> AppSrcSeekDataCallback) ->
C_AppSrcSeekDataCallback
wrap_AppSrcSeekDataCallback :: forall a.
GObject a =>
(a -> AppSrcSeekDataCallback) -> C_AppSrcSeekDataCallback
wrap_AppSrcSeekDataCallback a -> AppSrcSeekDataCallback
gi'cb Ptr AppSrc
gi'selfPtr Word64
offset Ptr ()
_ = do
Bool
result <- Ptr AppSrc -> (AppSrc -> IO Bool) -> IO Bool
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr AppSrc
gi'selfPtr ((AppSrc -> IO Bool) -> IO Bool) -> (AppSrc -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \AppSrc
gi'self -> a -> AppSrcSeekDataCallback
gi'cb (AppSrc -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AppSrc
gi'self) Word64
offset
let result' :: CInt
result' = (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
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onAppSrcSeekData :: (IsAppSrc a, MonadIO m) => a -> ((?self :: a) => AppSrcSeekDataCallback) -> m SignalHandlerId
onAppSrcSeekData :: forall a (m :: * -> *).
(IsAppSrc a, MonadIO m) =>
a -> ((?self::a) => AppSrcSeekDataCallback) -> m SignalHandlerId
onAppSrcSeekData a
obj (?self::a) => AppSrcSeekDataCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> AppSrcSeekDataCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppSrcSeekDataCallback
AppSrcSeekDataCallback
cb
let wrapped' :: C_AppSrcSeekDataCallback
wrapped' = (a -> AppSrcSeekDataCallback) -> C_AppSrcSeekDataCallback
forall a.
GObject a =>
(a -> AppSrcSeekDataCallback) -> C_AppSrcSeekDataCallback
wrap_AppSrcSeekDataCallback a -> AppSrcSeekDataCallback
wrapped
FunPtr C_AppSrcSeekDataCallback
wrapped'' <- C_AppSrcSeekDataCallback -> IO (FunPtr C_AppSrcSeekDataCallback)
mk_AppSrcSeekDataCallback C_AppSrcSeekDataCallback
wrapped'
a
-> Text
-> FunPtr C_AppSrcSeekDataCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"seek-data" FunPtr C_AppSrcSeekDataCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAppSrcSeekData :: (IsAppSrc a, MonadIO m) => a -> ((?self :: a) => AppSrcSeekDataCallback) -> m SignalHandlerId
afterAppSrcSeekData :: forall a (m :: * -> *).
(IsAppSrc a, MonadIO m) =>
a -> ((?self::a) => AppSrcSeekDataCallback) -> m SignalHandlerId
afterAppSrcSeekData a
obj (?self::a) => AppSrcSeekDataCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> AppSrcSeekDataCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppSrcSeekDataCallback
AppSrcSeekDataCallback
cb
let wrapped' :: C_AppSrcSeekDataCallback
wrapped' = (a -> AppSrcSeekDataCallback) -> C_AppSrcSeekDataCallback
forall a.
GObject a =>
(a -> AppSrcSeekDataCallback) -> C_AppSrcSeekDataCallback
wrap_AppSrcSeekDataCallback a -> AppSrcSeekDataCallback
wrapped
FunPtr C_AppSrcSeekDataCallback
wrapped'' <- C_AppSrcSeekDataCallback -> IO (FunPtr C_AppSrcSeekDataCallback)
mk_AppSrcSeekDataCallback C_AppSrcSeekDataCallback
wrapped'
a
-> Text
-> FunPtr C_AppSrcSeekDataCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"seek-data" FunPtr C_AppSrcSeekDataCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AppSrcSeekDataSignalInfo
instance SignalInfo AppSrcSeekDataSignalInfo where
type HaskellCallbackType AppSrcSeekDataSignalInfo = AppSrcSeekDataCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AppSrcSeekDataCallback cb
cb'' <- mk_AppSrcSeekDataCallback cb'
connectSignalFunPtr obj "seek-data" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc::seek-data"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:signal:seekData"})
#endif
getAppSrcBlock :: (MonadIO m, IsAppSrc o) => o -> m Bool
getAppSrcBlock :: forall (m :: * -> *) o. (MonadIO m, IsAppSrc o) => o -> m Bool
getAppSrcBlock 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
"block"
setAppSrcBlock :: (MonadIO m, IsAppSrc o) => o -> Bool -> m ()
setAppSrcBlock :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> Bool -> m ()
setAppSrcBlock 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
"block" Bool
val
constructAppSrcBlock :: (IsAppSrc o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructAppSrcBlock :: forall o (m :: * -> *).
(IsAppSrc o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructAppSrcBlock 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
"block" Bool
val
#if defined(ENABLE_OVERLOADING)
data AppSrcBlockPropertyInfo
instance AttrInfo AppSrcBlockPropertyInfo where
type AttrAllowedOps AppSrcBlockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSrcBlockPropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcBlockPropertyInfo = (~) Bool
type AttrTransferTypeConstraint AppSrcBlockPropertyInfo = (~) Bool
type AttrTransferType AppSrcBlockPropertyInfo = Bool
type AttrGetType AppSrcBlockPropertyInfo = Bool
type AttrLabel AppSrcBlockPropertyInfo = "block"
type AttrOrigin AppSrcBlockPropertyInfo = AppSrc
attrGet = getAppSrcBlock
attrSet = setAppSrcBlock
attrTransfer _ v = do
return v
attrConstruct = constructAppSrcBlock
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.block"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:block"
})
#endif
getAppSrcCaps :: (MonadIO m, IsAppSrc o) => o -> m (Maybe Gst.Caps.Caps)
getAppSrcCaps :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> m (Maybe Caps)
getAppSrcCaps o
obj = IO (Maybe Caps) -> m (Maybe Caps)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Caps) -> m (Maybe Caps))
-> IO (Maybe Caps) -> m (Maybe Caps)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Caps -> Caps) -> IO (Maybe Caps)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"caps" ManagedPtr Caps -> Caps
Gst.Caps.Caps
setAppSrcCaps :: (MonadIO m, IsAppSrc o) => o -> Gst.Caps.Caps -> m ()
setAppSrcCaps :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> Caps -> m ()
setAppSrcCaps o
obj Caps
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 -> Maybe Caps -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"caps" (Caps -> Maybe Caps
forall a. a -> Maybe a
Just Caps
val)
constructAppSrcCaps :: (IsAppSrc o, MIO.MonadIO m) => Gst.Caps.Caps -> m (GValueConstruct o)
constructAppSrcCaps :: forall o (m :: * -> *).
(IsAppSrc o, MonadIO m) =>
Caps -> m (GValueConstruct o)
constructAppSrcCaps Caps
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 -> Maybe Caps -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"caps" (Caps -> Maybe Caps
forall a. a -> Maybe a
P.Just Caps
val)
clearAppSrcCaps :: (MonadIO m, IsAppSrc o) => o -> m ()
clearAppSrcCaps :: forall (m :: * -> *) o. (MonadIO m, IsAppSrc o) => o -> m ()
clearAppSrcCaps o
obj = 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
$ o -> String -> Maybe Caps -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"caps" (Maybe Caps
forall a. Maybe a
Nothing :: Maybe Gst.Caps.Caps)
#if defined(ENABLE_OVERLOADING)
data AppSrcCapsPropertyInfo
instance AttrInfo AppSrcCapsPropertyInfo where
type AttrAllowedOps AppSrcCapsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint AppSrcCapsPropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcCapsPropertyInfo = (~) Gst.Caps.Caps
type AttrTransferTypeConstraint AppSrcCapsPropertyInfo = (~) Gst.Caps.Caps
type AttrTransferType AppSrcCapsPropertyInfo = Gst.Caps.Caps
type AttrGetType AppSrcCapsPropertyInfo = (Maybe Gst.Caps.Caps)
type AttrLabel AppSrcCapsPropertyInfo = "caps"
type AttrOrigin AppSrcCapsPropertyInfo = AppSrc
attrGet = getAppSrcCaps
attrSet = setAppSrcCaps
attrTransfer _ v = do
return v
attrConstruct = constructAppSrcCaps
attrClear = clearAppSrcCaps
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.caps"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:caps"
})
#endif
getAppSrcCurrentLevelBuffers :: (MonadIO m, IsAppSrc o) => o -> m Word64
getAppSrcCurrentLevelBuffers :: forall (m :: * -> *) o. (MonadIO m, IsAppSrc o) => o -> m Word64
getAppSrcCurrentLevelBuffers o
obj = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word64
forall a. GObject a => a -> String -> IO Word64
B.Properties.getObjectPropertyUInt64 o
obj String
"current-level-buffers"
#if defined(ENABLE_OVERLOADING)
data AppSrcCurrentLevelBuffersPropertyInfo
instance AttrInfo AppSrcCurrentLevelBuffersPropertyInfo where
type AttrAllowedOps AppSrcCurrentLevelBuffersPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint AppSrcCurrentLevelBuffersPropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcCurrentLevelBuffersPropertyInfo = (~) ()
type AttrTransferTypeConstraint AppSrcCurrentLevelBuffersPropertyInfo = (~) ()
type AttrTransferType AppSrcCurrentLevelBuffersPropertyInfo = ()
type AttrGetType AppSrcCurrentLevelBuffersPropertyInfo = Word64
type AttrLabel AppSrcCurrentLevelBuffersPropertyInfo = "current-level-buffers"
type AttrOrigin AppSrcCurrentLevelBuffersPropertyInfo = AppSrc
attrGet = getAppSrcCurrentLevelBuffers
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.currentLevelBuffers"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:currentLevelBuffers"
})
#endif
getAppSrcCurrentLevelBytes :: (MonadIO m, IsAppSrc o) => o -> m Word64
getAppSrcCurrentLevelBytes :: forall (m :: * -> *) o. (MonadIO m, IsAppSrc o) => o -> m Word64
getAppSrcCurrentLevelBytes o
obj = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word64
forall a. GObject a => a -> String -> IO Word64
B.Properties.getObjectPropertyUInt64 o
obj String
"current-level-bytes"
#if defined(ENABLE_OVERLOADING)
data AppSrcCurrentLevelBytesPropertyInfo
instance AttrInfo AppSrcCurrentLevelBytesPropertyInfo where
type AttrAllowedOps AppSrcCurrentLevelBytesPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint AppSrcCurrentLevelBytesPropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcCurrentLevelBytesPropertyInfo = (~) ()
type AttrTransferTypeConstraint AppSrcCurrentLevelBytesPropertyInfo = (~) ()
type AttrTransferType AppSrcCurrentLevelBytesPropertyInfo = ()
type AttrGetType AppSrcCurrentLevelBytesPropertyInfo = Word64
type AttrLabel AppSrcCurrentLevelBytesPropertyInfo = "current-level-bytes"
type AttrOrigin AppSrcCurrentLevelBytesPropertyInfo = AppSrc
attrGet = getAppSrcCurrentLevelBytes
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.currentLevelBytes"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:currentLevelBytes"
})
#endif
getAppSrcCurrentLevelTime :: (MonadIO m, IsAppSrc o) => o -> m Word64
getAppSrcCurrentLevelTime :: forall (m :: * -> *) o. (MonadIO m, IsAppSrc o) => o -> m Word64
getAppSrcCurrentLevelTime o
obj = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word64
forall a. GObject a => a -> String -> IO Word64
B.Properties.getObjectPropertyUInt64 o
obj String
"current-level-time"
#if defined(ENABLE_OVERLOADING)
data AppSrcCurrentLevelTimePropertyInfo
instance AttrInfo AppSrcCurrentLevelTimePropertyInfo where
type AttrAllowedOps AppSrcCurrentLevelTimePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint AppSrcCurrentLevelTimePropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcCurrentLevelTimePropertyInfo = (~) ()
type AttrTransferTypeConstraint AppSrcCurrentLevelTimePropertyInfo = (~) ()
type AttrTransferType AppSrcCurrentLevelTimePropertyInfo = ()
type AttrGetType AppSrcCurrentLevelTimePropertyInfo = Word64
type AttrLabel AppSrcCurrentLevelTimePropertyInfo = "current-level-time"
type AttrOrigin AppSrcCurrentLevelTimePropertyInfo = AppSrc
attrGet = getAppSrcCurrentLevelTime
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.currentLevelTime"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:currentLevelTime"
})
#endif
getAppSrcDuration :: (MonadIO m, IsAppSrc o) => o -> m Word64
getAppSrcDuration :: forall (m :: * -> *) o. (MonadIO m, IsAppSrc o) => o -> m Word64
getAppSrcDuration o
obj = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word64
forall a. GObject a => a -> String -> IO Word64
B.Properties.getObjectPropertyUInt64 o
obj String
"duration"
setAppSrcDuration :: (MonadIO m, IsAppSrc o) => o -> Word64 -> m ()
setAppSrcDuration :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> Word64 -> m ()
setAppSrcDuration o
obj Word64
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 -> Word64 -> IO ()
forall a. GObject a => a -> String -> Word64 -> IO ()
B.Properties.setObjectPropertyUInt64 o
obj String
"duration" Word64
val
constructAppSrcDuration :: (IsAppSrc o, MIO.MonadIO m) => Word64 -> m (GValueConstruct o)
constructAppSrcDuration :: forall o (m :: * -> *).
(IsAppSrc o, MonadIO m) =>
Word64 -> m (GValueConstruct o)
constructAppSrcDuration Word64
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 -> Word64 -> IO (GValueConstruct o)
forall o. String -> Word64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt64 String
"duration" Word64
val
#if defined(ENABLE_OVERLOADING)
data AppSrcDurationPropertyInfo
instance AttrInfo AppSrcDurationPropertyInfo where
type AttrAllowedOps AppSrcDurationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSrcDurationPropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcDurationPropertyInfo = (~) Word64
type AttrTransferTypeConstraint AppSrcDurationPropertyInfo = (~) Word64
type AttrTransferType AppSrcDurationPropertyInfo = Word64
type AttrGetType AppSrcDurationPropertyInfo = Word64
type AttrLabel AppSrcDurationPropertyInfo = "duration"
type AttrOrigin AppSrcDurationPropertyInfo = AppSrc
attrGet = getAppSrcDuration
attrSet = setAppSrcDuration
attrTransfer _ v = do
return v
attrConstruct = constructAppSrcDuration
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.duration"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:duration"
})
#endif
getAppSrcEmitSignals :: (MonadIO m, IsAppSrc o) => o -> m Bool
getAppSrcEmitSignals :: forall (m :: * -> *) o. (MonadIO m, IsAppSrc o) => o -> m Bool
getAppSrcEmitSignals 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
"emit-signals"
setAppSrcEmitSignals :: (MonadIO m, IsAppSrc o) => o -> Bool -> m ()
setAppSrcEmitSignals :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> Bool -> m ()
setAppSrcEmitSignals 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
"emit-signals" Bool
val
constructAppSrcEmitSignals :: (IsAppSrc o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructAppSrcEmitSignals :: forall o (m :: * -> *).
(IsAppSrc o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructAppSrcEmitSignals 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
"emit-signals" Bool
val
#if defined(ENABLE_OVERLOADING)
data AppSrcEmitSignalsPropertyInfo
instance AttrInfo AppSrcEmitSignalsPropertyInfo where
type AttrAllowedOps AppSrcEmitSignalsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSrcEmitSignalsPropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcEmitSignalsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint AppSrcEmitSignalsPropertyInfo = (~) Bool
type AttrTransferType AppSrcEmitSignalsPropertyInfo = Bool
type AttrGetType AppSrcEmitSignalsPropertyInfo = Bool
type AttrLabel AppSrcEmitSignalsPropertyInfo = "emit-signals"
type AttrOrigin AppSrcEmitSignalsPropertyInfo = AppSrc
attrGet = getAppSrcEmitSignals
attrSet = setAppSrcEmitSignals
attrTransfer _ v = do
return v
attrConstruct = constructAppSrcEmitSignals
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.emitSignals"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:emitSignals"
})
#endif
getAppSrcFormat :: (MonadIO m, IsAppSrc o) => o -> m Gst.Enums.Format
getAppSrcFormat :: forall (m :: * -> *) o. (MonadIO m, IsAppSrc o) => o -> m Format
getAppSrcFormat o
obj = IO Format -> m Format
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Format -> m Format) -> IO Format -> m Format
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Format
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"format"
setAppSrcFormat :: (MonadIO m, IsAppSrc o) => o -> Gst.Enums.Format -> m ()
setAppSrcFormat :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> Format -> m ()
setAppSrcFormat o
obj Format
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 -> Format -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"format" Format
val
constructAppSrcFormat :: (IsAppSrc o, MIO.MonadIO m) => Gst.Enums.Format -> m (GValueConstruct o)
constructAppSrcFormat :: forall o (m :: * -> *).
(IsAppSrc o, MonadIO m) =>
Format -> m (GValueConstruct o)
constructAppSrcFormat Format
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 -> Format -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"format" Format
val
#if defined(ENABLE_OVERLOADING)
data AppSrcFormatPropertyInfo
instance AttrInfo AppSrcFormatPropertyInfo where
type AttrAllowedOps AppSrcFormatPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSrcFormatPropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcFormatPropertyInfo = (~) Gst.Enums.Format
type AttrTransferTypeConstraint AppSrcFormatPropertyInfo = (~) Gst.Enums.Format
type AttrTransferType AppSrcFormatPropertyInfo = Gst.Enums.Format
type AttrGetType AppSrcFormatPropertyInfo = Gst.Enums.Format
type AttrLabel AppSrcFormatPropertyInfo = "format"
type AttrOrigin AppSrcFormatPropertyInfo = AppSrc
attrGet = getAppSrcFormat
attrSet = setAppSrcFormat
attrTransfer _ v = do
return v
attrConstruct = constructAppSrcFormat
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.format"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:format"
})
#endif
getAppSrcHandleSegmentChange :: (MonadIO m, IsAppSrc o) => o -> m Bool
getAppSrcHandleSegmentChange :: forall (m :: * -> *) o. (MonadIO m, IsAppSrc o) => o -> m Bool
getAppSrcHandleSegmentChange 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
"handle-segment-change"
setAppSrcHandleSegmentChange :: (MonadIO m, IsAppSrc o) => o -> Bool -> m ()
setAppSrcHandleSegmentChange :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> Bool -> m ()
setAppSrcHandleSegmentChange 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
"handle-segment-change" Bool
val
constructAppSrcHandleSegmentChange :: (IsAppSrc o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructAppSrcHandleSegmentChange :: forall o (m :: * -> *).
(IsAppSrc o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructAppSrcHandleSegmentChange 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
"handle-segment-change" Bool
val
#if defined(ENABLE_OVERLOADING)
data AppSrcHandleSegmentChangePropertyInfo
instance AttrInfo AppSrcHandleSegmentChangePropertyInfo where
type AttrAllowedOps AppSrcHandleSegmentChangePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSrcHandleSegmentChangePropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcHandleSegmentChangePropertyInfo = (~) Bool
type AttrTransferTypeConstraint AppSrcHandleSegmentChangePropertyInfo = (~) Bool
type AttrTransferType AppSrcHandleSegmentChangePropertyInfo = Bool
type AttrGetType AppSrcHandleSegmentChangePropertyInfo = Bool
type AttrLabel AppSrcHandleSegmentChangePropertyInfo = "handle-segment-change"
type AttrOrigin AppSrcHandleSegmentChangePropertyInfo = AppSrc
attrGet = getAppSrcHandleSegmentChange
attrSet = setAppSrcHandleSegmentChange
attrTransfer _ v = do
return v
attrConstruct = constructAppSrcHandleSegmentChange
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.handleSegmentChange"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:handleSegmentChange"
})
#endif
getAppSrcIsLive :: (MonadIO m, IsAppSrc o) => o -> m Bool
getAppSrcIsLive :: forall (m :: * -> *) o. (MonadIO m, IsAppSrc o) => o -> m Bool
getAppSrcIsLive 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
"is-live"
setAppSrcIsLive :: (MonadIO m, IsAppSrc o) => o -> Bool -> m ()
setAppSrcIsLive :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> Bool -> m ()
setAppSrcIsLive 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
"is-live" Bool
val
constructAppSrcIsLive :: (IsAppSrc o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructAppSrcIsLive :: forall o (m :: * -> *).
(IsAppSrc o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructAppSrcIsLive 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
"is-live" Bool
val
#if defined(ENABLE_OVERLOADING)
data AppSrcIsLivePropertyInfo
instance AttrInfo AppSrcIsLivePropertyInfo where
type AttrAllowedOps AppSrcIsLivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSrcIsLivePropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcIsLivePropertyInfo = (~) Bool
type AttrTransferTypeConstraint AppSrcIsLivePropertyInfo = (~) Bool
type AttrTransferType AppSrcIsLivePropertyInfo = Bool
type AttrGetType AppSrcIsLivePropertyInfo = Bool
type AttrLabel AppSrcIsLivePropertyInfo = "is-live"
type AttrOrigin AppSrcIsLivePropertyInfo = AppSrc
attrGet = getAppSrcIsLive
attrSet = setAppSrcIsLive
attrTransfer _ v = do
return v
attrConstruct = constructAppSrcIsLive
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.isLive"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:isLive"
})
#endif
getAppSrcLeakyType :: (MonadIO m, IsAppSrc o) => o -> m GstApp.Enums.AppLeakyType
getAppSrcLeakyType :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> m AppLeakyType
getAppSrcLeakyType o
obj = IO AppLeakyType -> m AppLeakyType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO AppLeakyType -> m AppLeakyType)
-> IO AppLeakyType -> m AppLeakyType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO AppLeakyType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"leaky-type"
setAppSrcLeakyType :: (MonadIO m, IsAppSrc o) => o -> GstApp.Enums.AppLeakyType -> m ()
setAppSrcLeakyType :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> AppLeakyType -> m ()
setAppSrcLeakyType o
obj AppLeakyType
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 -> AppLeakyType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"leaky-type" AppLeakyType
val
constructAppSrcLeakyType :: (IsAppSrc o, MIO.MonadIO m) => GstApp.Enums.AppLeakyType -> m (GValueConstruct o)
constructAppSrcLeakyType :: forall o (m :: * -> *).
(IsAppSrc o, MonadIO m) =>
AppLeakyType -> m (GValueConstruct o)
constructAppSrcLeakyType AppLeakyType
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 -> AppLeakyType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"leaky-type" AppLeakyType
val
#if defined(ENABLE_OVERLOADING)
data AppSrcLeakyTypePropertyInfo
instance AttrInfo AppSrcLeakyTypePropertyInfo where
type AttrAllowedOps AppSrcLeakyTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSrcLeakyTypePropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcLeakyTypePropertyInfo = (~) GstApp.Enums.AppLeakyType
type AttrTransferTypeConstraint AppSrcLeakyTypePropertyInfo = (~) GstApp.Enums.AppLeakyType
type AttrTransferType AppSrcLeakyTypePropertyInfo = GstApp.Enums.AppLeakyType
type AttrGetType AppSrcLeakyTypePropertyInfo = GstApp.Enums.AppLeakyType
type AttrLabel AppSrcLeakyTypePropertyInfo = "leaky-type"
type AttrOrigin AppSrcLeakyTypePropertyInfo = AppSrc
attrGet = getAppSrcLeakyType
attrSet = setAppSrcLeakyType
attrTransfer _ v = do
return v
attrConstruct = constructAppSrcLeakyType
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.leakyType"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:leakyType"
})
#endif
getAppSrcMaxBuffers :: (MonadIO m, IsAppSrc o) => o -> m Word64
getAppSrcMaxBuffers :: forall (m :: * -> *) o. (MonadIO m, IsAppSrc o) => o -> m Word64
getAppSrcMaxBuffers o
obj = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word64
forall a. GObject a => a -> String -> IO Word64
B.Properties.getObjectPropertyUInt64 o
obj String
"max-buffers"
setAppSrcMaxBuffers :: (MonadIO m, IsAppSrc o) => o -> Word64 -> m ()
setAppSrcMaxBuffers :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> Word64 -> m ()
setAppSrcMaxBuffers o
obj Word64
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 -> Word64 -> IO ()
forall a. GObject a => a -> String -> Word64 -> IO ()
B.Properties.setObjectPropertyUInt64 o
obj String
"max-buffers" Word64
val
constructAppSrcMaxBuffers :: (IsAppSrc o, MIO.MonadIO m) => Word64 -> m (GValueConstruct o)
constructAppSrcMaxBuffers :: forall o (m :: * -> *).
(IsAppSrc o, MonadIO m) =>
Word64 -> m (GValueConstruct o)
constructAppSrcMaxBuffers Word64
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 -> Word64 -> IO (GValueConstruct o)
forall o. String -> Word64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt64 String
"max-buffers" Word64
val
#if defined(ENABLE_OVERLOADING)
data AppSrcMaxBuffersPropertyInfo
instance AttrInfo AppSrcMaxBuffersPropertyInfo where
type AttrAllowedOps AppSrcMaxBuffersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSrcMaxBuffersPropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcMaxBuffersPropertyInfo = (~) Word64
type AttrTransferTypeConstraint AppSrcMaxBuffersPropertyInfo = (~) Word64
type AttrTransferType AppSrcMaxBuffersPropertyInfo = Word64
type AttrGetType AppSrcMaxBuffersPropertyInfo = Word64
type AttrLabel AppSrcMaxBuffersPropertyInfo = "max-buffers"
type AttrOrigin AppSrcMaxBuffersPropertyInfo = AppSrc
attrGet = getAppSrcMaxBuffers
attrSet = setAppSrcMaxBuffers
attrTransfer _ v = do
return v
attrConstruct = constructAppSrcMaxBuffers
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.maxBuffers"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:maxBuffers"
})
#endif
getAppSrcMaxBytes :: (MonadIO m, IsAppSrc o) => o -> m Word64
getAppSrcMaxBytes :: forall (m :: * -> *) o. (MonadIO m, IsAppSrc o) => o -> m Word64
getAppSrcMaxBytes o
obj = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word64
forall a. GObject a => a -> String -> IO Word64
B.Properties.getObjectPropertyUInt64 o
obj String
"max-bytes"
setAppSrcMaxBytes :: (MonadIO m, IsAppSrc o) => o -> Word64 -> m ()
setAppSrcMaxBytes :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> Word64 -> m ()
setAppSrcMaxBytes o
obj Word64
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 -> Word64 -> IO ()
forall a. GObject a => a -> String -> Word64 -> IO ()
B.Properties.setObjectPropertyUInt64 o
obj String
"max-bytes" Word64
val
constructAppSrcMaxBytes :: (IsAppSrc o, MIO.MonadIO m) => Word64 -> m (GValueConstruct o)
constructAppSrcMaxBytes :: forall o (m :: * -> *).
(IsAppSrc o, MonadIO m) =>
Word64 -> m (GValueConstruct o)
constructAppSrcMaxBytes Word64
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 -> Word64 -> IO (GValueConstruct o)
forall o. String -> Word64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt64 String
"max-bytes" Word64
val
#if defined(ENABLE_OVERLOADING)
data AppSrcMaxBytesPropertyInfo
instance AttrInfo AppSrcMaxBytesPropertyInfo where
type AttrAllowedOps AppSrcMaxBytesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSrcMaxBytesPropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcMaxBytesPropertyInfo = (~) Word64
type AttrTransferTypeConstraint AppSrcMaxBytesPropertyInfo = (~) Word64
type AttrTransferType AppSrcMaxBytesPropertyInfo = Word64
type AttrGetType AppSrcMaxBytesPropertyInfo = Word64
type AttrLabel AppSrcMaxBytesPropertyInfo = "max-bytes"
type AttrOrigin AppSrcMaxBytesPropertyInfo = AppSrc
attrGet = getAppSrcMaxBytes
attrSet = setAppSrcMaxBytes
attrTransfer _ v = do
return v
attrConstruct = constructAppSrcMaxBytes
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.maxBytes"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:maxBytes"
})
#endif
getAppSrcMaxLatency :: (MonadIO m, IsAppSrc o) => o -> m Int64
getAppSrcMaxLatency :: forall (m :: * -> *) o. (MonadIO m, IsAppSrc o) => o -> m Int64
getAppSrcMaxLatency o
obj = IO Int64 -> m Int64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int64 -> m Int64) -> IO Int64 -> m Int64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int64
forall a. GObject a => a -> String -> IO Int64
B.Properties.getObjectPropertyInt64 o
obj String
"max-latency"
setAppSrcMaxLatency :: (MonadIO m, IsAppSrc o) => o -> Int64 -> m ()
setAppSrcMaxLatency :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> Int64 -> m ()
setAppSrcMaxLatency o
obj Int64
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 -> Int64 -> IO ()
forall a. GObject a => a -> String -> Int64 -> IO ()
B.Properties.setObjectPropertyInt64 o
obj String
"max-latency" Int64
val
constructAppSrcMaxLatency :: (IsAppSrc o, MIO.MonadIO m) => Int64 -> m (GValueConstruct o)
constructAppSrcMaxLatency :: forall o (m :: * -> *).
(IsAppSrc o, MonadIO m) =>
Int64 -> m (GValueConstruct o)
constructAppSrcMaxLatency Int64
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 -> Int64 -> IO (GValueConstruct o)
forall o. String -> Int64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt64 String
"max-latency" Int64
val
#if defined(ENABLE_OVERLOADING)
data AppSrcMaxLatencyPropertyInfo
instance AttrInfo AppSrcMaxLatencyPropertyInfo where
type AttrAllowedOps AppSrcMaxLatencyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSrcMaxLatencyPropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcMaxLatencyPropertyInfo = (~) Int64
type AttrTransferTypeConstraint AppSrcMaxLatencyPropertyInfo = (~) Int64
type AttrTransferType AppSrcMaxLatencyPropertyInfo = Int64
type AttrGetType AppSrcMaxLatencyPropertyInfo = Int64
type AttrLabel AppSrcMaxLatencyPropertyInfo = "max-latency"
type AttrOrigin AppSrcMaxLatencyPropertyInfo = AppSrc
attrGet = getAppSrcMaxLatency
attrSet = setAppSrcMaxLatency
attrTransfer _ v = do
return v
attrConstruct = constructAppSrcMaxLatency
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.maxLatency"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:maxLatency"
})
#endif
getAppSrcMaxTime :: (MonadIO m, IsAppSrc o) => o -> m Word64
getAppSrcMaxTime :: forall (m :: * -> *) o. (MonadIO m, IsAppSrc o) => o -> m Word64
getAppSrcMaxTime o
obj = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word64
forall a. GObject a => a -> String -> IO Word64
B.Properties.getObjectPropertyUInt64 o
obj String
"max-time"
setAppSrcMaxTime :: (MonadIO m, IsAppSrc o) => o -> Word64 -> m ()
setAppSrcMaxTime :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> Word64 -> m ()
setAppSrcMaxTime o
obj Word64
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 -> Word64 -> IO ()
forall a. GObject a => a -> String -> Word64 -> IO ()
B.Properties.setObjectPropertyUInt64 o
obj String
"max-time" Word64
val
constructAppSrcMaxTime :: (IsAppSrc o, MIO.MonadIO m) => Word64 -> m (GValueConstruct o)
constructAppSrcMaxTime :: forall o (m :: * -> *).
(IsAppSrc o, MonadIO m) =>
Word64 -> m (GValueConstruct o)
constructAppSrcMaxTime Word64
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 -> Word64 -> IO (GValueConstruct o)
forall o. String -> Word64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt64 String
"max-time" Word64
val
#if defined(ENABLE_OVERLOADING)
data AppSrcMaxTimePropertyInfo
instance AttrInfo AppSrcMaxTimePropertyInfo where
type AttrAllowedOps AppSrcMaxTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSrcMaxTimePropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcMaxTimePropertyInfo = (~) Word64
type AttrTransferTypeConstraint AppSrcMaxTimePropertyInfo = (~) Word64
type AttrTransferType AppSrcMaxTimePropertyInfo = Word64
type AttrGetType AppSrcMaxTimePropertyInfo = Word64
type AttrLabel AppSrcMaxTimePropertyInfo = "max-time"
type AttrOrigin AppSrcMaxTimePropertyInfo = AppSrc
attrGet = getAppSrcMaxTime
attrSet = setAppSrcMaxTime
attrTransfer _ v = do
return v
attrConstruct = constructAppSrcMaxTime
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.maxTime"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:maxTime"
})
#endif
getAppSrcMinLatency :: (MonadIO m, IsAppSrc o) => o -> m Int64
getAppSrcMinLatency :: forall (m :: * -> *) o. (MonadIO m, IsAppSrc o) => o -> m Int64
getAppSrcMinLatency o
obj = IO Int64 -> m Int64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int64 -> m Int64) -> IO Int64 -> m Int64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int64
forall a. GObject a => a -> String -> IO Int64
B.Properties.getObjectPropertyInt64 o
obj String
"min-latency"
setAppSrcMinLatency :: (MonadIO m, IsAppSrc o) => o -> Int64 -> m ()
setAppSrcMinLatency :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> Int64 -> m ()
setAppSrcMinLatency o
obj Int64
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 -> Int64 -> IO ()
forall a. GObject a => a -> String -> Int64 -> IO ()
B.Properties.setObjectPropertyInt64 o
obj String
"min-latency" Int64
val
constructAppSrcMinLatency :: (IsAppSrc o, MIO.MonadIO m) => Int64 -> m (GValueConstruct o)
constructAppSrcMinLatency :: forall o (m :: * -> *).
(IsAppSrc o, MonadIO m) =>
Int64 -> m (GValueConstruct o)
constructAppSrcMinLatency Int64
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 -> Int64 -> IO (GValueConstruct o)
forall o. String -> Int64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt64 String
"min-latency" Int64
val
#if defined(ENABLE_OVERLOADING)
data AppSrcMinLatencyPropertyInfo
instance AttrInfo AppSrcMinLatencyPropertyInfo where
type AttrAllowedOps AppSrcMinLatencyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSrcMinLatencyPropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcMinLatencyPropertyInfo = (~) Int64
type AttrTransferTypeConstraint AppSrcMinLatencyPropertyInfo = (~) Int64
type AttrTransferType AppSrcMinLatencyPropertyInfo = Int64
type AttrGetType AppSrcMinLatencyPropertyInfo = Int64
type AttrLabel AppSrcMinLatencyPropertyInfo = "min-latency"
type AttrOrigin AppSrcMinLatencyPropertyInfo = AppSrc
attrGet = getAppSrcMinLatency
attrSet = setAppSrcMinLatency
attrTransfer _ v = do
return v
attrConstruct = constructAppSrcMinLatency
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.minLatency"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:minLatency"
})
#endif
getAppSrcMinPercent :: (MonadIO m, IsAppSrc o) => o -> m Word32
getAppSrcMinPercent :: forall (m :: * -> *) o. (MonadIO m, IsAppSrc o) => o -> m Word32
getAppSrcMinPercent o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"min-percent"
setAppSrcMinPercent :: (MonadIO m, IsAppSrc o) => o -> Word32 -> m ()
setAppSrcMinPercent :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> Word32 -> m ()
setAppSrcMinPercent o
obj Word32
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 -> AppSrcNeedDataCallback
forall a. GObject a => a -> String -> AppSrcNeedDataCallback
B.Properties.setObjectPropertyUInt32 o
obj String
"min-percent" Word32
val
constructAppSrcMinPercent :: (IsAppSrc o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructAppSrcMinPercent :: forall o (m :: * -> *).
(IsAppSrc o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructAppSrcMinPercent Word32
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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"min-percent" Word32
val
#if defined(ENABLE_OVERLOADING)
data AppSrcMinPercentPropertyInfo
instance AttrInfo AppSrcMinPercentPropertyInfo where
type AttrAllowedOps AppSrcMinPercentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSrcMinPercentPropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcMinPercentPropertyInfo = (~) Word32
type AttrTransferTypeConstraint AppSrcMinPercentPropertyInfo = (~) Word32
type AttrTransferType AppSrcMinPercentPropertyInfo = Word32
type AttrGetType AppSrcMinPercentPropertyInfo = Word32
type AttrLabel AppSrcMinPercentPropertyInfo = "min-percent"
type AttrOrigin AppSrcMinPercentPropertyInfo = AppSrc
attrGet = getAppSrcMinPercent
attrSet = setAppSrcMinPercent
attrTransfer _ v = do
return v
attrConstruct = constructAppSrcMinPercent
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.minPercent"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:minPercent"
})
#endif
getAppSrcSize :: (MonadIO m, IsAppSrc o) => o -> m Int64
getAppSrcSize :: forall (m :: * -> *) o. (MonadIO m, IsAppSrc o) => o -> m Int64
getAppSrcSize o
obj = IO Int64 -> m Int64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int64 -> m Int64) -> IO Int64 -> m Int64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int64
forall a. GObject a => a -> String -> IO Int64
B.Properties.getObjectPropertyInt64 o
obj String
"size"
setAppSrcSize :: (MonadIO m, IsAppSrc o) => o -> Int64 -> m ()
setAppSrcSize :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> Int64 -> m ()
setAppSrcSize o
obj Int64
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 -> Int64 -> IO ()
forall a. GObject a => a -> String -> Int64 -> IO ()
B.Properties.setObjectPropertyInt64 o
obj String
"size" Int64
val
constructAppSrcSize :: (IsAppSrc o, MIO.MonadIO m) => Int64 -> m (GValueConstruct o)
constructAppSrcSize :: forall o (m :: * -> *).
(IsAppSrc o, MonadIO m) =>
Int64 -> m (GValueConstruct o)
constructAppSrcSize Int64
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 -> Int64 -> IO (GValueConstruct o)
forall o. String -> Int64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt64 String
"size" Int64
val
#if defined(ENABLE_OVERLOADING)
data AppSrcSizePropertyInfo
instance AttrInfo AppSrcSizePropertyInfo where
type AttrAllowedOps AppSrcSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSrcSizePropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcSizePropertyInfo = (~) Int64
type AttrTransferTypeConstraint AppSrcSizePropertyInfo = (~) Int64
type AttrTransferType AppSrcSizePropertyInfo = Int64
type AttrGetType AppSrcSizePropertyInfo = Int64
type AttrLabel AppSrcSizePropertyInfo = "size"
type AttrOrigin AppSrcSizePropertyInfo = AppSrc
attrGet = getAppSrcSize
attrSet = setAppSrcSize
attrTransfer _ v = do
return v
attrConstruct = constructAppSrcSize
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.size"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:size"
})
#endif
getAppSrcStreamType :: (MonadIO m, IsAppSrc o) => o -> m GstApp.Enums.AppStreamType
getAppSrcStreamType :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> m AppStreamType
getAppSrcStreamType o
obj = IO AppStreamType -> m AppStreamType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO AppStreamType -> m AppStreamType)
-> IO AppStreamType -> m AppStreamType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO AppStreamType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"stream-type"
setAppSrcStreamType :: (MonadIO m, IsAppSrc o) => o -> GstApp.Enums.AppStreamType -> m ()
setAppSrcStreamType :: forall (m :: * -> *) o.
(MonadIO m, IsAppSrc o) =>
o -> AppStreamType -> m ()
setAppSrcStreamType o
obj AppStreamType
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 -> AppStreamType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"stream-type" AppStreamType
val
constructAppSrcStreamType :: (IsAppSrc o, MIO.MonadIO m) => GstApp.Enums.AppStreamType -> m (GValueConstruct o)
constructAppSrcStreamType :: forall o (m :: * -> *).
(IsAppSrc o, MonadIO m) =>
AppStreamType -> m (GValueConstruct o)
constructAppSrcStreamType AppStreamType
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 -> AppStreamType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"stream-type" AppStreamType
val
#if defined(ENABLE_OVERLOADING)
data AppSrcStreamTypePropertyInfo
instance AttrInfo AppSrcStreamTypePropertyInfo where
type AttrAllowedOps AppSrcStreamTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSrcStreamTypePropertyInfo = IsAppSrc
type AttrSetTypeConstraint AppSrcStreamTypePropertyInfo = (~) GstApp.Enums.AppStreamType
type AttrTransferTypeConstraint AppSrcStreamTypePropertyInfo = (~) GstApp.Enums.AppStreamType
type AttrTransferType AppSrcStreamTypePropertyInfo = GstApp.Enums.AppStreamType
type AttrGetType AppSrcStreamTypePropertyInfo = GstApp.Enums.AppStreamType
type AttrLabel AppSrcStreamTypePropertyInfo = "stream-type"
type AttrOrigin AppSrcStreamTypePropertyInfo = AppSrc
attrGet = getAppSrcStreamType
attrSet = setAppSrcStreamType
attrTransfer _ v = do
return v
attrConstruct = constructAppSrcStreamType
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.streamType"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#g:attr:streamType"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList AppSrc
type instance O.AttributeList AppSrc = AppSrcAttributeList
type AppSrcAttributeList = ('[ '("block", AppSrcBlockPropertyInfo), '("blocksize", GstBase.BaseSrc.BaseSrcBlocksizePropertyInfo), '("caps", AppSrcCapsPropertyInfo), '("currentLevelBuffers", AppSrcCurrentLevelBuffersPropertyInfo), '("currentLevelBytes", AppSrcCurrentLevelBytesPropertyInfo), '("currentLevelTime", AppSrcCurrentLevelTimePropertyInfo), '("doTimestamp", GstBase.BaseSrc.BaseSrcDoTimestampPropertyInfo), '("duration", AppSrcDurationPropertyInfo), '("emitSignals", AppSrcEmitSignalsPropertyInfo), '("format", AppSrcFormatPropertyInfo), '("handleSegmentChange", AppSrcHandleSegmentChangePropertyInfo), '("isLive", AppSrcIsLivePropertyInfo), '("leakyType", AppSrcLeakyTypePropertyInfo), '("maxBuffers", AppSrcMaxBuffersPropertyInfo), '("maxBytes", AppSrcMaxBytesPropertyInfo), '("maxLatency", AppSrcMaxLatencyPropertyInfo), '("maxTime", AppSrcMaxTimePropertyInfo), '("minLatency", AppSrcMinLatencyPropertyInfo), '("minPercent", AppSrcMinPercentPropertyInfo), '("name", Gst.Object.ObjectNamePropertyInfo), '("numBuffers", GstBase.BaseSrc.BaseSrcNumBuffersPropertyInfo), '("parent", Gst.Object.ObjectParentPropertyInfo), '("size", AppSrcSizePropertyInfo), '("streamType", AppSrcStreamTypePropertyInfo), '("typefind", GstBase.BaseSrc.BaseSrcTypefindPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
appSrcBlock :: AttrLabelProxy "block"
appSrcBlock = AttrLabelProxy
appSrcCaps :: AttrLabelProxy "caps"
appSrcCaps = AttrLabelProxy
appSrcCurrentLevelBuffers :: AttrLabelProxy "currentLevelBuffers"
appSrcCurrentLevelBuffers = AttrLabelProxy
appSrcCurrentLevelBytes :: AttrLabelProxy "currentLevelBytes"
appSrcCurrentLevelBytes = AttrLabelProxy
appSrcCurrentLevelTime :: AttrLabelProxy "currentLevelTime"
appSrcCurrentLevelTime = AttrLabelProxy
appSrcDuration :: AttrLabelProxy "duration"
appSrcDuration = AttrLabelProxy
appSrcEmitSignals :: AttrLabelProxy "emitSignals"
appSrcEmitSignals = AttrLabelProxy
appSrcFormat :: AttrLabelProxy "format"
appSrcFormat = AttrLabelProxy
appSrcHandleSegmentChange :: AttrLabelProxy "handleSegmentChange"
appSrcHandleSegmentChange = AttrLabelProxy
appSrcIsLive :: AttrLabelProxy "isLive"
appSrcIsLive = AttrLabelProxy
appSrcLeakyType :: AttrLabelProxy "leakyType"
appSrcLeakyType = AttrLabelProxy
appSrcMaxBuffers :: AttrLabelProxy "maxBuffers"
appSrcMaxBuffers = AttrLabelProxy
appSrcMaxBytes :: AttrLabelProxy "maxBytes"
appSrcMaxBytes = AttrLabelProxy
appSrcMaxLatency :: AttrLabelProxy "maxLatency"
appSrcMaxLatency = AttrLabelProxy
appSrcMaxTime :: AttrLabelProxy "maxTime"
appSrcMaxTime = AttrLabelProxy
appSrcMinLatency :: AttrLabelProxy "minLatency"
appSrcMinLatency = AttrLabelProxy
appSrcMinPercent :: AttrLabelProxy "minPercent"
appSrcMinPercent = AttrLabelProxy
appSrcSize :: AttrLabelProxy "size"
appSrcSize = AttrLabelProxy
appSrcStreamType :: AttrLabelProxy "streamType"
appSrcStreamType = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList AppSrc = AppSrcSignalList
type AppSrcSignalList = ('[ '("deepNotify", Gst.Object.ObjectDeepNotifySignalInfo), '("endOfStream", AppSrcEndOfStreamSignalInfo), '("enoughData", AppSrcEnoughDataSignalInfo), '("needData", AppSrcNeedDataSignalInfo), '("noMorePads", Gst.Element.ElementNoMorePadsSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("padAdded", Gst.Element.ElementPadAddedSignalInfo), '("padRemoved", Gst.Element.ElementPadRemovedSignalInfo), '("pushBuffer", AppSrcPushBufferSignalInfo), '("pushBufferList", AppSrcPushBufferListSignalInfo), '("pushSample", AppSrcPushSampleSignalInfo), '("seekData", AppSrcSeekDataSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gst_app_src_end_of_stream" gst_app_src_end_of_stream ::
Ptr AppSrc ->
IO CInt
appSrcEndOfStream ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> m Gst.Enums.FlowReturn
appSrcEndOfStream :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> m FlowReturn
appSrcEndOfStream a
appsrc = AppSrcEndOfStreamCallback -> m FlowReturn
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (AppSrcEndOfStreamCallback -> m FlowReturn)
-> AppSrcEndOfStreamCallback -> m FlowReturn
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
CInt
result <- Ptr AppSrc -> IO CInt
gst_app_src_end_of_stream Ptr AppSrc
appsrc'
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
appsrc
FlowReturn -> AppSrcEndOfStreamCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FlowReturn
result'
#if defined(ENABLE_OVERLOADING)
data AppSrcEndOfStreamMethodInfo
instance (signature ~ (m Gst.Enums.FlowReturn), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcEndOfStreamMethodInfo a signature where
overloadedMethod = appSrcEndOfStream
instance O.OverloadedMethodInfo AppSrcEndOfStreamMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcEndOfStream",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcEndOfStream"
})
#endif
foreign import ccall "gst_app_src_get_caps" gst_app_src_get_caps ::
Ptr AppSrc ->
IO (Ptr Gst.Caps.Caps)
appSrcGetCaps ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> m (Maybe Gst.Caps.Caps)
appSrcGetCaps :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> m (Maybe Caps)
appSrcGetCaps a
appsrc = IO (Maybe Caps) -> m (Maybe Caps)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Caps) -> m (Maybe Caps))
-> IO (Maybe Caps) -> m (Maybe Caps)
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Ptr Caps
result <- Ptr AppSrc -> IO (Ptr Caps)
gst_app_src_get_caps Ptr AppSrc
appsrc'
Maybe Caps
maybeResult <- Ptr Caps -> (Ptr Caps -> IO Caps) -> IO (Maybe Caps)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Caps
result ((Ptr Caps -> IO Caps) -> IO (Maybe Caps))
-> (Ptr Caps -> IO Caps) -> IO (Maybe Caps)
forall a b. (a -> b) -> a -> b
$ \Ptr Caps
result' -> do
Caps
result'' <- ((ManagedPtr Caps -> Caps) -> Ptr Caps -> IO Caps
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Caps -> Caps
Gst.Caps.Caps) Ptr Caps
result'
Caps -> IO Caps
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Caps
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
Maybe Caps -> IO (Maybe Caps)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Caps
maybeResult
#if defined(ENABLE_OVERLOADING)
data AppSrcGetCapsMethodInfo
instance (signature ~ (m (Maybe Gst.Caps.Caps)), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcGetCapsMethodInfo a signature where
overloadedMethod = appSrcGetCaps
instance O.OverloadedMethodInfo AppSrcGetCapsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcGetCaps",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcGetCaps"
})
#endif
foreign import ccall "gst_app_src_get_current_level_buffers" gst_app_src_get_current_level_buffers ::
Ptr AppSrc ->
IO Word64
appSrcGetCurrentLevelBuffers ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> m Word64
appSrcGetCurrentLevelBuffers :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> m Word64
appSrcGetCurrentLevelBuffers a
appsrc = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Word64
result <- Ptr AppSrc -> IO Word64
gst_app_src_get_current_level_buffers Ptr AppSrc
appsrc'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data AppSrcGetCurrentLevelBuffersMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcGetCurrentLevelBuffersMethodInfo a signature where
overloadedMethod = appSrcGetCurrentLevelBuffers
instance O.OverloadedMethodInfo AppSrcGetCurrentLevelBuffersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcGetCurrentLevelBuffers",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcGetCurrentLevelBuffers"
})
#endif
foreign import ccall "gst_app_src_get_current_level_bytes" gst_app_src_get_current_level_bytes ::
Ptr AppSrc ->
IO Word64
appSrcGetCurrentLevelBytes ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> m Word64
appSrcGetCurrentLevelBytes :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> m Word64
appSrcGetCurrentLevelBytes a
appsrc = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Word64
result <- Ptr AppSrc -> IO Word64
gst_app_src_get_current_level_bytes Ptr AppSrc
appsrc'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data AppSrcGetCurrentLevelBytesMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcGetCurrentLevelBytesMethodInfo a signature where
overloadedMethod = appSrcGetCurrentLevelBytes
instance O.OverloadedMethodInfo AppSrcGetCurrentLevelBytesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcGetCurrentLevelBytes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcGetCurrentLevelBytes"
})
#endif
foreign import ccall "gst_app_src_get_current_level_time" gst_app_src_get_current_level_time ::
Ptr AppSrc ->
IO Word64
appSrcGetCurrentLevelTime ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> m Word64
appSrcGetCurrentLevelTime :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> m Word64
appSrcGetCurrentLevelTime a
appsrc = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Word64
result <- Ptr AppSrc -> IO Word64
gst_app_src_get_current_level_time Ptr AppSrc
appsrc'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data AppSrcGetCurrentLevelTimeMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcGetCurrentLevelTimeMethodInfo a signature where
overloadedMethod = appSrcGetCurrentLevelTime
instance O.OverloadedMethodInfo AppSrcGetCurrentLevelTimeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcGetCurrentLevelTime",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcGetCurrentLevelTime"
})
#endif
foreign import ccall "gst_app_src_get_duration" gst_app_src_get_duration ::
Ptr AppSrc ->
IO Word64
appSrcGetDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> m Word64
appSrcGetDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> m Word64
appSrcGetDuration a
appsrc = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Word64
result <- Ptr AppSrc -> IO Word64
gst_app_src_get_duration Ptr AppSrc
appsrc'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data AppSrcGetDurationMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcGetDurationMethodInfo a signature where
overloadedMethod = appSrcGetDuration
instance O.OverloadedMethodInfo AppSrcGetDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcGetDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcGetDuration"
})
#endif
foreign import ccall "gst_app_src_get_emit_signals" gst_app_src_get_emit_signals ::
Ptr AppSrc ->
IO CInt
appSrcGetEmitSignals ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> m Bool
appSrcGetEmitSignals :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> m Bool
appSrcGetEmitSignals a
appsrc = 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 AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
CInt
result <- Ptr AppSrc -> IO CInt
gst_app_src_get_emit_signals Ptr AppSrc
appsrc'
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
appsrc
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AppSrcGetEmitSignalsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcGetEmitSignalsMethodInfo a signature where
overloadedMethod = appSrcGetEmitSignals
instance O.OverloadedMethodInfo AppSrcGetEmitSignalsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcGetEmitSignals",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcGetEmitSignals"
})
#endif
foreign import ccall "gst_app_src_get_latency" gst_app_src_get_latency ::
Ptr AppSrc ->
Ptr Word64 ->
Ptr Word64 ->
IO ()
appSrcGetLatency ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> m ((Word64, Word64))
appSrcGetLatency :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> m (Word64, Word64)
appSrcGetLatency a
appsrc = IO (Word64, Word64) -> m (Word64, Word64)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Word64, Word64) -> m (Word64, Word64))
-> IO (Word64, Word64) -> m (Word64, Word64)
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Ptr Word64
min <- IO (Ptr Word64)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word64)
Ptr Word64
max <- IO (Ptr Word64)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word64)
Ptr AppSrc -> Ptr Word64 -> Ptr Word64 -> IO ()
gst_app_src_get_latency Ptr AppSrc
appsrc' Ptr Word64
min Ptr Word64
max
Word64
min' <- Ptr Word64 -> IO Word64
forall a. Storable a => Ptr a -> IO a
peek Ptr Word64
min
Word64
max' <- Ptr Word64 -> IO Word64
forall a. Storable a => Ptr a -> IO a
peek Ptr Word64
max
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
Ptr Word64 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word64
min
Ptr Word64 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word64
max
(Word64, Word64) -> IO (Word64, Word64)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Word64
min', Word64
max')
#if defined(ENABLE_OVERLOADING)
data AppSrcGetLatencyMethodInfo
instance (signature ~ (m ((Word64, Word64))), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcGetLatencyMethodInfo a signature where
overloadedMethod = appSrcGetLatency
instance O.OverloadedMethodInfo AppSrcGetLatencyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcGetLatency",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcGetLatency"
})
#endif
foreign import ccall "gst_app_src_get_leaky_type" gst_app_src_get_leaky_type ::
Ptr AppSrc ->
IO CUInt
appSrcGetLeakyType ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> m GstApp.Enums.AppLeakyType
appSrcGetLeakyType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> m AppLeakyType
appSrcGetLeakyType a
appsrc = IO AppLeakyType -> m AppLeakyType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AppLeakyType -> m AppLeakyType)
-> IO AppLeakyType -> m AppLeakyType
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
CUInt
result <- Ptr AppSrc -> IO CUInt
gst_app_src_get_leaky_type Ptr AppSrc
appsrc'
let result' :: AppLeakyType
result' = (Int -> AppLeakyType
forall a. Enum a => Int -> a
toEnum (Int -> AppLeakyType) -> (CUInt -> Int) -> CUInt -> AppLeakyType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
AppLeakyType -> IO AppLeakyType
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return AppLeakyType
result'
#if defined(ENABLE_OVERLOADING)
data AppSrcGetLeakyTypeMethodInfo
instance (signature ~ (m GstApp.Enums.AppLeakyType), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcGetLeakyTypeMethodInfo a signature where
overloadedMethod = appSrcGetLeakyType
instance O.OverloadedMethodInfo AppSrcGetLeakyTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcGetLeakyType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcGetLeakyType"
})
#endif
foreign import ccall "gst_app_src_get_max_buffers" gst_app_src_get_max_buffers ::
Ptr AppSrc ->
IO Word64
appSrcGetMaxBuffers ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> m Word64
appSrcGetMaxBuffers :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> m Word64
appSrcGetMaxBuffers a
appsrc = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Word64
result <- Ptr AppSrc -> IO Word64
gst_app_src_get_max_buffers Ptr AppSrc
appsrc'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data AppSrcGetMaxBuffersMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcGetMaxBuffersMethodInfo a signature where
overloadedMethod = appSrcGetMaxBuffers
instance O.OverloadedMethodInfo AppSrcGetMaxBuffersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcGetMaxBuffers",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcGetMaxBuffers"
})
#endif
foreign import ccall "gst_app_src_get_max_bytes" gst_app_src_get_max_bytes ::
Ptr AppSrc ->
IO Word64
appSrcGetMaxBytes ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> m Word64
appSrcGetMaxBytes :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> m Word64
appSrcGetMaxBytes a
appsrc = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Word64
result <- Ptr AppSrc -> IO Word64
gst_app_src_get_max_bytes Ptr AppSrc
appsrc'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data AppSrcGetMaxBytesMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcGetMaxBytesMethodInfo a signature where
overloadedMethod = appSrcGetMaxBytes
instance O.OverloadedMethodInfo AppSrcGetMaxBytesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcGetMaxBytes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcGetMaxBytes"
})
#endif
foreign import ccall "gst_app_src_get_max_time" gst_app_src_get_max_time ::
Ptr AppSrc ->
IO Word64
appSrcGetMaxTime ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> m Word64
appSrcGetMaxTime :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> m Word64
appSrcGetMaxTime a
appsrc = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Word64
result <- Ptr AppSrc -> IO Word64
gst_app_src_get_max_time Ptr AppSrc
appsrc'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data AppSrcGetMaxTimeMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcGetMaxTimeMethodInfo a signature where
overloadedMethod = appSrcGetMaxTime
instance O.OverloadedMethodInfo AppSrcGetMaxTimeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcGetMaxTime",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcGetMaxTime"
})
#endif
foreign import ccall "gst_app_src_get_size" gst_app_src_get_size ::
Ptr AppSrc ->
IO Int64
appSrcGetSize ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> m Int64
appSrcGetSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> m Int64
appSrcGetSize a
appsrc = IO Int64 -> m Int64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int64 -> m Int64) -> IO Int64 -> m Int64
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Int64
result <- Ptr AppSrc -> IO Int64
gst_app_src_get_size Ptr AppSrc
appsrc'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
Int64 -> IO Int64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int64
result
#if defined(ENABLE_OVERLOADING)
data AppSrcGetSizeMethodInfo
instance (signature ~ (m Int64), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcGetSizeMethodInfo a signature where
overloadedMethod = appSrcGetSize
instance O.OverloadedMethodInfo AppSrcGetSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcGetSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcGetSize"
})
#endif
foreign import ccall "gst_app_src_get_stream_type" gst_app_src_get_stream_type ::
Ptr AppSrc ->
IO CUInt
appSrcGetStreamType ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> m GstApp.Enums.AppStreamType
appSrcGetStreamType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> m AppStreamType
appSrcGetStreamType a
appsrc = IO AppStreamType -> m AppStreamType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AppStreamType -> m AppStreamType)
-> IO AppStreamType -> m AppStreamType
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
CUInt
result <- Ptr AppSrc -> IO CUInt
gst_app_src_get_stream_type Ptr AppSrc
appsrc'
let result' :: AppStreamType
result' = (Int -> AppStreamType
forall a. Enum a => Int -> a
toEnum (Int -> AppStreamType) -> (CUInt -> Int) -> CUInt -> AppStreamType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
AppStreamType -> IO AppStreamType
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return AppStreamType
result'
#if defined(ENABLE_OVERLOADING)
data AppSrcGetStreamTypeMethodInfo
instance (signature ~ (m GstApp.Enums.AppStreamType), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcGetStreamTypeMethodInfo a signature where
overloadedMethod = appSrcGetStreamType
instance O.OverloadedMethodInfo AppSrcGetStreamTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcGetStreamType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcGetStreamType"
})
#endif
foreign import ccall "gst_app_src_push_buffer" gst_app_src_push_buffer ::
Ptr AppSrc ->
Ptr Gst.Buffer.Buffer ->
IO CInt
appSrcPushBuffer ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> Gst.Buffer.Buffer
-> m Gst.Enums.FlowReturn
appSrcPushBuffer :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> Buffer -> m FlowReturn
appSrcPushBuffer a
appsrc Buffer
buffer = AppSrcEndOfStreamCallback -> m FlowReturn
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (AppSrcEndOfStreamCallback -> m FlowReturn)
-> AppSrcEndOfStreamCallback -> m FlowReturn
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Ptr Buffer
buffer' <- Buffer -> IO (Ptr Buffer)
forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed Buffer
buffer
CInt
result <- Ptr AppSrc -> Ptr Buffer -> IO CInt
gst_app_src_push_buffer Ptr AppSrc
appsrc' Ptr Buffer
buffer'
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
appsrc
Buffer -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Buffer
buffer
FlowReturn -> AppSrcEndOfStreamCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FlowReturn
result'
#if defined(ENABLE_OVERLOADING)
data AppSrcPushBufferMethodInfo
instance (signature ~ (Gst.Buffer.Buffer -> m Gst.Enums.FlowReturn), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcPushBufferMethodInfo a signature where
overloadedMethod = appSrcPushBuffer
instance O.OverloadedMethodInfo AppSrcPushBufferMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcPushBuffer",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcPushBuffer"
})
#endif
foreign import ccall "gst_app_src_push_buffer_list" gst_app_src_push_buffer_list ::
Ptr AppSrc ->
Ptr Gst.BufferList.BufferList ->
IO CInt
appSrcPushBufferList ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> Gst.BufferList.BufferList
-> m Gst.Enums.FlowReturn
appSrcPushBufferList :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> BufferList -> m FlowReturn
appSrcPushBufferList a
appsrc BufferList
bufferList = AppSrcEndOfStreamCallback -> m FlowReturn
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (AppSrcEndOfStreamCallback -> m FlowReturn)
-> AppSrcEndOfStreamCallback -> m FlowReturn
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Ptr BufferList
bufferList' <- BufferList -> IO (Ptr BufferList)
forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed BufferList
bufferList
CInt
result <- Ptr AppSrc -> Ptr BufferList -> IO CInt
gst_app_src_push_buffer_list Ptr AppSrc
appsrc' Ptr BufferList
bufferList'
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
appsrc
BufferList -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr BufferList
bufferList
FlowReturn -> AppSrcEndOfStreamCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FlowReturn
result'
#if defined(ENABLE_OVERLOADING)
data AppSrcPushBufferListMethodInfo
instance (signature ~ (Gst.BufferList.BufferList -> m Gst.Enums.FlowReturn), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcPushBufferListMethodInfo a signature where
overloadedMethod = appSrcPushBufferList
instance O.OverloadedMethodInfo AppSrcPushBufferListMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcPushBufferList",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcPushBufferList"
})
#endif
foreign import ccall "gst_app_src_push_sample" gst_app_src_push_sample ::
Ptr AppSrc ->
Ptr Gst.Sample.Sample ->
IO CInt
appSrcPushSample ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> Gst.Sample.Sample
-> m Gst.Enums.FlowReturn
appSrcPushSample :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> Sample -> m FlowReturn
appSrcPushSample a
appsrc Sample
sample = AppSrcEndOfStreamCallback -> m FlowReturn
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (AppSrcEndOfStreamCallback -> m FlowReturn)
-> AppSrcEndOfStreamCallback -> m FlowReturn
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Ptr Sample
sample' <- Sample -> IO (Ptr Sample)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Sample
sample
CInt
result <- Ptr AppSrc -> Ptr Sample -> IO CInt
gst_app_src_push_sample Ptr AppSrc
appsrc' Ptr Sample
sample'
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
appsrc
Sample -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Sample
sample
FlowReturn -> AppSrcEndOfStreamCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FlowReturn
result'
#if defined(ENABLE_OVERLOADING)
data AppSrcPushSampleMethodInfo
instance (signature ~ (Gst.Sample.Sample -> m Gst.Enums.FlowReturn), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcPushSampleMethodInfo a signature where
overloadedMethod = appSrcPushSample
instance O.OverloadedMethodInfo AppSrcPushSampleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcPushSample",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcPushSample"
})
#endif
foreign import ccall "gst_app_src_set_caps" gst_app_src_set_caps ::
Ptr AppSrc ->
Ptr Gst.Caps.Caps ->
IO ()
appSrcSetCaps ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> Maybe (Gst.Caps.Caps)
-> m ()
appSrcSetCaps :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> Maybe Caps -> m ()
appSrcSetCaps a
appsrc Maybe Caps
caps = 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 AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Ptr Caps
maybeCaps <- case Maybe Caps
caps of
Maybe Caps
Nothing -> Ptr Caps -> IO (Ptr Caps)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Caps
forall a. Ptr a
nullPtr
Just Caps
jCaps -> do
Ptr Caps
jCaps' <- Caps -> IO (Ptr Caps)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Caps
jCaps
Ptr Caps -> IO (Ptr Caps)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Caps
jCaps'
Ptr AppSrc -> Ptr Caps -> IO ()
gst_app_src_set_caps Ptr AppSrc
appsrc' Ptr Caps
maybeCaps
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
Maybe Caps -> (Caps -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Caps
caps Caps -> 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 AppSrcSetCapsMethodInfo
instance (signature ~ (Maybe (Gst.Caps.Caps) -> m ()), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcSetCapsMethodInfo a signature where
overloadedMethod = appSrcSetCaps
instance O.OverloadedMethodInfo AppSrcSetCapsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcSetCaps",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcSetCaps"
})
#endif
foreign import ccall "gst_app_src_set_duration" gst_app_src_set_duration ::
Ptr AppSrc ->
Word64 ->
IO ()
appSrcSetDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> Word64
-> m ()
appSrcSetDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> Word64 -> m ()
appSrcSetDuration a
appsrc Word64
duration = 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 AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Ptr AppSrc -> Word64 -> IO ()
gst_app_src_set_duration Ptr AppSrc
appsrc' Word64
duration
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppSrcSetDurationMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcSetDurationMethodInfo a signature where
overloadedMethod = appSrcSetDuration
instance O.OverloadedMethodInfo AppSrcSetDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcSetDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcSetDuration"
})
#endif
foreign import ccall "gst_app_src_set_emit_signals" gst_app_src_set_emit_signals ::
Ptr AppSrc ->
CInt ->
IO ()
appSrcSetEmitSignals ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> Bool
-> m ()
appSrcSetEmitSignals :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> Bool -> m ()
appSrcSetEmitSignals a
appsrc Bool
emit = 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 AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
let emit' :: CInt
emit' = (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
emit
Ptr AppSrc -> CInt -> IO ()
gst_app_src_set_emit_signals Ptr AppSrc
appsrc' CInt
emit'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppSrcSetEmitSignalsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcSetEmitSignalsMethodInfo a signature where
overloadedMethod = appSrcSetEmitSignals
instance O.OverloadedMethodInfo AppSrcSetEmitSignalsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcSetEmitSignals",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcSetEmitSignals"
})
#endif
foreign import ccall "gst_app_src_set_latency" gst_app_src_set_latency ::
Ptr AppSrc ->
Word64 ->
Word64 ->
IO ()
appSrcSetLatency ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> Word64
-> Word64
-> m ()
appSrcSetLatency :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> Word64 -> Word64 -> m ()
appSrcSetLatency a
appsrc Word64
min Word64
max = 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 AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Ptr AppSrc -> Word64 -> Word64 -> IO ()
gst_app_src_set_latency Ptr AppSrc
appsrc' Word64
min Word64
max
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppSrcSetLatencyMethodInfo
instance (signature ~ (Word64 -> Word64 -> m ()), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcSetLatencyMethodInfo a signature where
overloadedMethod = appSrcSetLatency
instance O.OverloadedMethodInfo AppSrcSetLatencyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcSetLatency",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcSetLatency"
})
#endif
foreign import ccall "gst_app_src_set_leaky_type" gst_app_src_set_leaky_type ::
Ptr AppSrc ->
CUInt ->
IO ()
appSrcSetLeakyType ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> GstApp.Enums.AppLeakyType
-> m ()
appSrcSetLeakyType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> AppLeakyType -> m ()
appSrcSetLeakyType a
appsrc AppLeakyType
leaky = 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 AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
let leaky' :: CUInt
leaky' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (AppLeakyType -> Int) -> AppLeakyType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AppLeakyType -> Int
forall a. Enum a => a -> Int
fromEnum) AppLeakyType
leaky
Ptr AppSrc -> CUInt -> IO ()
gst_app_src_set_leaky_type Ptr AppSrc
appsrc' CUInt
leaky'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppSrcSetLeakyTypeMethodInfo
instance (signature ~ (GstApp.Enums.AppLeakyType -> m ()), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcSetLeakyTypeMethodInfo a signature where
overloadedMethod = appSrcSetLeakyType
instance O.OverloadedMethodInfo AppSrcSetLeakyTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcSetLeakyType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcSetLeakyType"
})
#endif
foreign import ccall "gst_app_src_set_max_buffers" gst_app_src_set_max_buffers ::
Ptr AppSrc ->
Word64 ->
IO ()
appSrcSetMaxBuffers ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> Word64
-> m ()
appSrcSetMaxBuffers :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> Word64 -> m ()
appSrcSetMaxBuffers a
appsrc Word64
max = 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 AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Ptr AppSrc -> Word64 -> IO ()
gst_app_src_set_max_buffers Ptr AppSrc
appsrc' Word64
max
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppSrcSetMaxBuffersMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcSetMaxBuffersMethodInfo a signature where
overloadedMethod = appSrcSetMaxBuffers
instance O.OverloadedMethodInfo AppSrcSetMaxBuffersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcSetMaxBuffers",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcSetMaxBuffers"
})
#endif
foreign import ccall "gst_app_src_set_max_bytes" gst_app_src_set_max_bytes ::
Ptr AppSrc ->
Word64 ->
IO ()
appSrcSetMaxBytes ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> Word64
-> m ()
appSrcSetMaxBytes :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> Word64 -> m ()
appSrcSetMaxBytes a
appsrc Word64
max = 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 AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Ptr AppSrc -> Word64 -> IO ()
gst_app_src_set_max_bytes Ptr AppSrc
appsrc' Word64
max
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppSrcSetMaxBytesMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcSetMaxBytesMethodInfo a signature where
overloadedMethod = appSrcSetMaxBytes
instance O.OverloadedMethodInfo AppSrcSetMaxBytesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcSetMaxBytes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcSetMaxBytes"
})
#endif
foreign import ccall "gst_app_src_set_max_time" gst_app_src_set_max_time ::
Ptr AppSrc ->
Word64 ->
IO ()
appSrcSetMaxTime ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> Word64
-> m ()
appSrcSetMaxTime :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> Word64 -> m ()
appSrcSetMaxTime a
appsrc Word64
max = 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 AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Ptr AppSrc -> Word64 -> IO ()
gst_app_src_set_max_time Ptr AppSrc
appsrc' Word64
max
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppSrcSetMaxTimeMethodInfo
instance (signature ~ (Word64 -> m ()), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcSetMaxTimeMethodInfo a signature where
overloadedMethod = appSrcSetMaxTime
instance O.OverloadedMethodInfo AppSrcSetMaxTimeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcSetMaxTime",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcSetMaxTime"
})
#endif
foreign import ccall "gst_app_src_set_size" gst_app_src_set_size ::
Ptr AppSrc ->
Int64 ->
IO ()
appSrcSetSize ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> Int64
-> m ()
appSrcSetSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> Int64 -> m ()
appSrcSetSize a
appsrc Int64
size = 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 AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
Ptr AppSrc -> Int64 -> IO ()
gst_app_src_set_size Ptr AppSrc
appsrc' Int64
size
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppSrcSetSizeMethodInfo
instance (signature ~ (Int64 -> m ()), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcSetSizeMethodInfo a signature where
overloadedMethod = appSrcSetSize
instance O.OverloadedMethodInfo AppSrcSetSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcSetSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcSetSize"
})
#endif
foreign import ccall "gst_app_src_set_stream_type" gst_app_src_set_stream_type ::
Ptr AppSrc ->
CUInt ->
IO ()
appSrcSetStreamType ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSrc a) =>
a
-> GstApp.Enums.AppStreamType
-> m ()
appSrcSetStreamType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSrc a) =>
a -> AppStreamType -> m ()
appSrcSetStreamType a
appsrc AppStreamType
type_ = 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 AppSrc
appsrc' <- a -> IO (Ptr AppSrc)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsrc
let type_' :: CUInt
type_' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (AppStreamType -> Int) -> AppStreamType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AppStreamType -> Int
forall a. Enum a => a -> Int
fromEnum) AppStreamType
type_
Ptr AppSrc -> CUInt -> IO ()
gst_app_src_set_stream_type Ptr AppSrc
appsrc' CUInt
type_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsrc
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppSrcSetStreamTypeMethodInfo
instance (signature ~ (GstApp.Enums.AppStreamType -> m ()), MonadIO m, IsAppSrc a) => O.OverloadedMethod AppSrcSetStreamTypeMethodInfo a signature where
overloadedMethod = appSrcSetStreamType
instance O.OverloadedMethodInfo AppSrcSetStreamTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSrc.appSrcSetStreamType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSrc.html#v:appSrcSetStreamType"
})
#endif