{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GstApp.Objects.AppSink
(
AppSink(..) ,
IsAppSink ,
toAppSink ,
#if defined(ENABLE_OVERLOADING)
ResolveAppSinkMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
AppSinkGetBufferListSupportMethodInfo ,
#endif
appSinkGetBufferListSupport ,
#if defined(ENABLE_OVERLOADING)
AppSinkGetCapsMethodInfo ,
#endif
appSinkGetCaps ,
#if defined(ENABLE_OVERLOADING)
AppSinkGetDropMethodInfo ,
#endif
appSinkGetDrop ,
#if defined(ENABLE_OVERLOADING)
AppSinkGetEmitSignalsMethodInfo ,
#endif
appSinkGetEmitSignals ,
#if defined(ENABLE_OVERLOADING)
AppSinkGetMaxBuffersMethodInfo ,
#endif
appSinkGetMaxBuffers ,
#if defined(ENABLE_OVERLOADING)
AppSinkGetWaitOnEosMethodInfo ,
#endif
appSinkGetWaitOnEos ,
#if defined(ENABLE_OVERLOADING)
AppSinkIsEosMethodInfo ,
#endif
appSinkIsEos ,
#if defined(ENABLE_OVERLOADING)
AppSinkPullPrerollMethodInfo ,
#endif
appSinkPullPreroll ,
#if defined(ENABLE_OVERLOADING)
AppSinkPullSampleMethodInfo ,
#endif
appSinkPullSample ,
#if defined(ENABLE_OVERLOADING)
AppSinkSetBufferListSupportMethodInfo ,
#endif
appSinkSetBufferListSupport ,
#if defined(ENABLE_OVERLOADING)
AppSinkSetCapsMethodInfo ,
#endif
appSinkSetCaps ,
#if defined(ENABLE_OVERLOADING)
AppSinkSetDropMethodInfo ,
#endif
appSinkSetDrop ,
#if defined(ENABLE_OVERLOADING)
AppSinkSetEmitSignalsMethodInfo ,
#endif
appSinkSetEmitSignals ,
#if defined(ENABLE_OVERLOADING)
AppSinkSetMaxBuffersMethodInfo ,
#endif
appSinkSetMaxBuffers ,
#if defined(ENABLE_OVERLOADING)
AppSinkSetWaitOnEosMethodInfo ,
#endif
appSinkSetWaitOnEos ,
#if defined(ENABLE_OVERLOADING)
AppSinkTryPullPrerollMethodInfo ,
#endif
appSinkTryPullPreroll ,
#if defined(ENABLE_OVERLOADING)
AppSinkTryPullSampleMethodInfo ,
#endif
appSinkTryPullSample ,
#if defined(ENABLE_OVERLOADING)
AppSinkBufferListPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSinkBufferList ,
#endif
constructAppSinkBufferList ,
getAppSinkBufferList ,
setAppSinkBufferList ,
#if defined(ENABLE_OVERLOADING)
AppSinkCapsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSinkCaps ,
#endif
clearAppSinkCaps ,
constructAppSinkCaps ,
getAppSinkCaps ,
setAppSinkCaps ,
#if defined(ENABLE_OVERLOADING)
AppSinkDropPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSinkDrop ,
#endif
constructAppSinkDrop ,
getAppSinkDrop ,
setAppSinkDrop ,
#if defined(ENABLE_OVERLOADING)
AppSinkEmitSignalsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSinkEmitSignals ,
#endif
constructAppSinkEmitSignals ,
getAppSinkEmitSignals ,
setAppSinkEmitSignals ,
#if defined(ENABLE_OVERLOADING)
AppSinkEosPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSinkEos ,
#endif
getAppSinkEos ,
#if defined(ENABLE_OVERLOADING)
AppSinkMaxBuffersPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSinkMaxBuffers ,
#endif
constructAppSinkMaxBuffers ,
getAppSinkMaxBuffers ,
setAppSinkMaxBuffers ,
#if defined(ENABLE_OVERLOADING)
AppSinkWaitOnEosPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
appSinkWaitOnEos ,
#endif
constructAppSinkWaitOnEos ,
getAppSinkWaitOnEos ,
setAppSinkWaitOnEos ,
AppSinkEosCallback ,
#if defined(ENABLE_OVERLOADING)
AppSinkEosSignalInfo ,
#endif
afterAppSinkEos ,
onAppSinkEos ,
AppSinkNewPrerollCallback ,
#if defined(ENABLE_OVERLOADING)
AppSinkNewPrerollSignalInfo ,
#endif
afterAppSinkNewPreroll ,
onAppSinkNewPreroll ,
AppSinkNewSampleCallback ,
#if defined(ENABLE_OVERLOADING)
AppSinkNewSampleSignalInfo ,
#endif
afterAppSinkNewSample ,
onAppSinkNewSample ,
AppSinkNewSerializedEventCallback ,
#if defined(ENABLE_OVERLOADING)
AppSinkNewSerializedEventSignalInfo ,
#endif
afterAppSinkNewSerializedEvent ,
onAppSinkNewSerializedEvent ,
AppSinkPullPrerollCallback ,
#if defined(ENABLE_OVERLOADING)
AppSinkPullPrerollSignalInfo ,
#endif
afterAppSinkPullPreroll ,
onAppSinkPullPreroll ,
AppSinkPullSampleCallback ,
#if defined(ENABLE_OVERLOADING)
AppSinkPullSampleSignalInfo ,
#endif
afterAppSinkPullSample ,
onAppSinkPullSample ,
AppSinkTryPullObjectCallback ,
#if defined(ENABLE_OVERLOADING)
AppSinkTryPullObjectSignalInfo ,
#endif
afterAppSinkTryPullObject ,
onAppSinkTryPullObject ,
AppSinkTryPullPrerollCallback ,
#if defined(ENABLE_OVERLOADING)
AppSinkTryPullPrerollSignalInfo ,
#endif
afterAppSinkTryPullPreroll ,
onAppSinkTryPullPreroll ,
AppSinkTryPullSampleCallback ,
#if defined(ENABLE_OVERLOADING)
AppSinkTryPullSampleSignalInfo ,
#endif
afterAppSinkTryPullSample ,
onAppSinkTryPullSample ,
) 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.Caps as Gst.Caps
import qualified GI.Gst.Structs.MiniObject as Gst.MiniObject
import qualified GI.Gst.Structs.Sample as Gst.Sample
import qualified GI.GstBase.Objects.BaseSink as GstBase.BaseSink
newtype AppSink = AppSink (SP.ManagedPtr AppSink)
deriving (AppSink -> AppSink -> Bool
(AppSink -> AppSink -> Bool)
-> (AppSink -> AppSink -> Bool) -> Eq AppSink
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AppSink -> AppSink -> Bool
== :: AppSink -> AppSink -> Bool
$c/= :: AppSink -> AppSink -> Bool
/= :: AppSink -> AppSink -> Bool
Eq)
instance SP.ManagedPtrNewtype AppSink where
toManagedPtr :: AppSink -> ManagedPtr AppSink
toManagedPtr (AppSink ManagedPtr AppSink
p) = ManagedPtr AppSink
p
foreign import ccall "gst_app_sink_get_type"
c_gst_app_sink_get_type :: IO B.Types.GType
instance B.Types.TypedObject AppSink where
glibType :: IO GType
glibType = IO GType
c_gst_app_sink_get_type
instance B.Types.GObject AppSink
class (SP.GObject o, O.IsDescendantOf AppSink o) => IsAppSink o
instance (SP.GObject o, O.IsDescendantOf AppSink o) => IsAppSink o
instance O.HasParentTypes AppSink
type instance O.ParentTypes AppSink = '[GstBase.BaseSink.BaseSink, Gst.Element.Element, Gst.Object.Object, GObject.Object.Object, Gst.URIHandler.URIHandler]
toAppSink :: (MIO.MonadIO m, IsAppSink o) => o -> m AppSink
toAppSink :: forall (m :: * -> *) o. (MonadIO m, IsAppSink o) => o -> m AppSink
toAppSink = IO AppSink -> m AppSink
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO AppSink -> m AppSink) -> (o -> IO AppSink) -> o -> m AppSink
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr AppSink -> AppSink) -> o -> IO AppSink
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr AppSink -> AppSink
AppSink
instance B.GValue.IsGValue (Maybe AppSink) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gst_app_sink_get_type
gvalueSet_ :: Ptr GValue -> Maybe AppSink -> IO ()
gvalueSet_ Ptr GValue
gv Maybe AppSink
P.Nothing = Ptr GValue -> Ptr AppSink -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr AppSink
forall a. Ptr a
FP.nullPtr :: FP.Ptr AppSink)
gvalueSet_ Ptr GValue
gv (P.Just AppSink
obj) = AppSink -> (Ptr AppSink -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr AppSink
obj (Ptr GValue -> Ptr AppSink -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe AppSink)
gvalueGet_ Ptr GValue
gv = do
Ptr AppSink
ptr <- Ptr GValue -> IO (Ptr AppSink)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr AppSink)
if Ptr AppSink
ptr Ptr AppSink -> Ptr AppSink -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr AppSink
forall a. Ptr a
FP.nullPtr
then AppSink -> Maybe AppSink
forall a. a -> Maybe a
P.Just (AppSink -> Maybe AppSink) -> IO AppSink -> IO (Maybe AppSink)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr AppSink -> AppSink) -> Ptr AppSink -> IO AppSink
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr AppSink -> AppSink
AppSink Ptr AppSink
ptr
else Maybe AppSink -> IO (Maybe AppSink)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe AppSink
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveAppSinkMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveAppSinkMethod "abortState" o = Gst.Element.ElementAbortStateMethodInfo
ResolveAppSinkMethod "addControlBinding" o = Gst.Object.ObjectAddControlBindingMethodInfo
ResolveAppSinkMethod "addPad" o = Gst.Element.ElementAddPadMethodInfo
ResolveAppSinkMethod "addPropertyDeepNotifyWatch" o = Gst.Element.ElementAddPropertyDeepNotifyWatchMethodInfo
ResolveAppSinkMethod "addPropertyNotifyWatch" o = Gst.Element.ElementAddPropertyNotifyWatchMethodInfo
ResolveAppSinkMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAppSinkMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAppSinkMethod "callAsync" o = Gst.Element.ElementCallAsyncMethodInfo
ResolveAppSinkMethod "changeState" o = Gst.Element.ElementChangeStateMethodInfo
ResolveAppSinkMethod "continueState" o = Gst.Element.ElementContinueStateMethodInfo
ResolveAppSinkMethod "createAllPads" o = Gst.Element.ElementCreateAllPadsMethodInfo
ResolveAppSinkMethod "defaultError" o = Gst.Object.ObjectDefaultErrorMethodInfo
ResolveAppSinkMethod "doPreroll" o = GstBase.BaseSink.BaseSinkDoPrerollMethodInfo
ResolveAppSinkMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAppSinkMethod "foreachPad" o = Gst.Element.ElementForeachPadMethodInfo
ResolveAppSinkMethod "foreachSinkPad" o = Gst.Element.ElementForeachSinkPadMethodInfo
ResolveAppSinkMethod "foreachSrcPad" o = Gst.Element.ElementForeachSrcPadMethodInfo
ResolveAppSinkMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAppSinkMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveAppSinkMethod "hasActiveControlBindings" o = Gst.Object.ObjectHasActiveControlBindingsMethodInfo
ResolveAppSinkMethod "hasAncestor" o = Gst.Object.ObjectHasAncestorMethodInfo
ResolveAppSinkMethod "hasAsAncestor" o = Gst.Object.ObjectHasAsAncestorMethodInfo
ResolveAppSinkMethod "hasAsParent" o = Gst.Object.ObjectHasAsParentMethodInfo
ResolveAppSinkMethod "isAsyncEnabled" o = GstBase.BaseSink.BaseSinkIsAsyncEnabledMethodInfo
ResolveAppSinkMethod "isEos" o = AppSinkIsEosMethodInfo
ResolveAppSinkMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAppSinkMethod "isLastSampleEnabled" o = GstBase.BaseSink.BaseSinkIsLastSampleEnabledMethodInfo
ResolveAppSinkMethod "isLockedState" o = Gst.Element.ElementIsLockedStateMethodInfo
ResolveAppSinkMethod "isQosEnabled" o = GstBase.BaseSink.BaseSinkIsQosEnabledMethodInfo
ResolveAppSinkMethod "iteratePads" o = Gst.Element.ElementIteratePadsMethodInfo
ResolveAppSinkMethod "iterateSinkPads" o = Gst.Element.ElementIterateSinkPadsMethodInfo
ResolveAppSinkMethod "iterateSrcPads" o = Gst.Element.ElementIterateSrcPadsMethodInfo
ResolveAppSinkMethod "link" o = Gst.Element.ElementLinkMethodInfo
ResolveAppSinkMethod "linkFiltered" o = Gst.Element.ElementLinkFilteredMethodInfo
ResolveAppSinkMethod "linkPads" o = Gst.Element.ElementLinkPadsMethodInfo
ResolveAppSinkMethod "linkPadsFiltered" o = Gst.Element.ElementLinkPadsFilteredMethodInfo
ResolveAppSinkMethod "linkPadsFull" o = Gst.Element.ElementLinkPadsFullMethodInfo
ResolveAppSinkMethod "lostState" o = Gst.Element.ElementLostStateMethodInfo
ResolveAppSinkMethod "messageFull" o = Gst.Element.ElementMessageFullMethodInfo
ResolveAppSinkMethod "messageFullWithDetails" o = Gst.Element.ElementMessageFullWithDetailsMethodInfo
ResolveAppSinkMethod "noMorePads" o = Gst.Element.ElementNoMorePadsMethodInfo
ResolveAppSinkMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAppSinkMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAppSinkMethod "postMessage" o = Gst.Element.ElementPostMessageMethodInfo
ResolveAppSinkMethod "provideClock" o = Gst.Element.ElementProvideClockMethodInfo
ResolveAppSinkMethod "pullPreroll" o = AppSinkPullPrerollMethodInfo
ResolveAppSinkMethod "pullSample" o = AppSinkPullSampleMethodInfo
ResolveAppSinkMethod "query" o = Gst.Element.ElementQueryMethodInfo
ResolveAppSinkMethod "queryConvert" o = Gst.Element.ElementQueryConvertMethodInfo
ResolveAppSinkMethod "queryDuration" o = Gst.Element.ElementQueryDurationMethodInfo
ResolveAppSinkMethod "queryLatency" o = GstBase.BaseSink.BaseSinkQueryLatencyMethodInfo
ResolveAppSinkMethod "queryPosition" o = Gst.Element.ElementQueryPositionMethodInfo
ResolveAppSinkMethod "ref" o = Gst.Object.ObjectRefMethodInfo
ResolveAppSinkMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAppSinkMethod "releaseRequestPad" o = Gst.Element.ElementReleaseRequestPadMethodInfo
ResolveAppSinkMethod "removeControlBinding" o = Gst.Object.ObjectRemoveControlBindingMethodInfo
ResolveAppSinkMethod "removePad" o = Gst.Element.ElementRemovePadMethodInfo
ResolveAppSinkMethod "removePropertyNotifyWatch" o = Gst.Element.ElementRemovePropertyNotifyWatchMethodInfo
ResolveAppSinkMethod "requestPad" o = Gst.Element.ElementRequestPadMethodInfo
ResolveAppSinkMethod "requestPadSimple" o = Gst.Element.ElementRequestPadSimpleMethodInfo
ResolveAppSinkMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAppSinkMethod "seek" o = Gst.Element.ElementSeekMethodInfo
ResolveAppSinkMethod "seekSimple" o = Gst.Element.ElementSeekSimpleMethodInfo
ResolveAppSinkMethod "sendEvent" o = Gst.Element.ElementSendEventMethodInfo
ResolveAppSinkMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAppSinkMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAppSinkMethod "suggestNextSync" o = Gst.Object.ObjectSuggestNextSyncMethodInfo
ResolveAppSinkMethod "syncStateWithParent" o = Gst.Element.ElementSyncStateWithParentMethodInfo
ResolveAppSinkMethod "syncValues" o = Gst.Object.ObjectSyncValuesMethodInfo
ResolveAppSinkMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAppSinkMethod "tryPullPreroll" o = AppSinkTryPullPrerollMethodInfo
ResolveAppSinkMethod "tryPullSample" o = AppSinkTryPullSampleMethodInfo
ResolveAppSinkMethod "unlink" o = Gst.Element.ElementUnlinkMethodInfo
ResolveAppSinkMethod "unlinkPads" o = Gst.Element.ElementUnlinkPadsMethodInfo
ResolveAppSinkMethod "unparent" o = Gst.Object.ObjectUnparentMethodInfo
ResolveAppSinkMethod "unref" o = Gst.Object.ObjectUnrefMethodInfo
ResolveAppSinkMethod "wait" o = GstBase.BaseSink.BaseSinkWaitMethodInfo
ResolveAppSinkMethod "waitClock" o = GstBase.BaseSink.BaseSinkWaitClockMethodInfo
ResolveAppSinkMethod "waitPreroll" o = GstBase.BaseSink.BaseSinkWaitPrerollMethodInfo
ResolveAppSinkMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAppSinkMethod "getBaseTime" o = Gst.Element.ElementGetBaseTimeMethodInfo
ResolveAppSinkMethod "getBlocksize" o = GstBase.BaseSink.BaseSinkGetBlocksizeMethodInfo
ResolveAppSinkMethod "getBufferListSupport" o = AppSinkGetBufferListSupportMethodInfo
ResolveAppSinkMethod "getBus" o = Gst.Element.ElementGetBusMethodInfo
ResolveAppSinkMethod "getCaps" o = AppSinkGetCapsMethodInfo
ResolveAppSinkMethod "getClock" o = Gst.Element.ElementGetClockMethodInfo
ResolveAppSinkMethod "getCompatiblePad" o = Gst.Element.ElementGetCompatiblePadMethodInfo
ResolveAppSinkMethod "getCompatiblePadTemplate" o = Gst.Element.ElementGetCompatiblePadTemplateMethodInfo
ResolveAppSinkMethod "getContext" o = Gst.Element.ElementGetContextMethodInfo
ResolveAppSinkMethod "getContextUnlocked" o = Gst.Element.ElementGetContextUnlockedMethodInfo
ResolveAppSinkMethod "getContexts" o = Gst.Element.ElementGetContextsMethodInfo
ResolveAppSinkMethod "getControlBinding" o = Gst.Object.ObjectGetControlBindingMethodInfo
ResolveAppSinkMethod "getControlRate" o = Gst.Object.ObjectGetControlRateMethodInfo
ResolveAppSinkMethod "getCurrentClockTime" o = Gst.Element.ElementGetCurrentClockTimeMethodInfo
ResolveAppSinkMethod "getCurrentRunningTime" o = Gst.Element.ElementGetCurrentRunningTimeMethodInfo
ResolveAppSinkMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAppSinkMethod "getDrop" o = AppSinkGetDropMethodInfo
ResolveAppSinkMethod "getDropOutOfSegment" o = GstBase.BaseSink.BaseSinkGetDropOutOfSegmentMethodInfo
ResolveAppSinkMethod "getEmitSignals" o = AppSinkGetEmitSignalsMethodInfo
ResolveAppSinkMethod "getFactory" o = Gst.Element.ElementGetFactoryMethodInfo
ResolveAppSinkMethod "getGValueArray" o = Gst.Object.ObjectGetGValueArrayMethodInfo
ResolveAppSinkMethod "getLastSample" o = GstBase.BaseSink.BaseSinkGetLastSampleMethodInfo
ResolveAppSinkMethod "getLatency" o = GstBase.BaseSink.BaseSinkGetLatencyMethodInfo
ResolveAppSinkMethod "getMaxBitrate" o = GstBase.BaseSink.BaseSinkGetMaxBitrateMethodInfo
ResolveAppSinkMethod "getMaxBuffers" o = AppSinkGetMaxBuffersMethodInfo
ResolveAppSinkMethod "getMaxLateness" o = GstBase.BaseSink.BaseSinkGetMaxLatenessMethodInfo
ResolveAppSinkMethod "getMetadata" o = Gst.Element.ElementGetMetadataMethodInfo
ResolveAppSinkMethod "getName" o = Gst.Object.ObjectGetNameMethodInfo
ResolveAppSinkMethod "getPadTemplate" o = Gst.Element.ElementGetPadTemplateMethodInfo
ResolveAppSinkMethod "getPadTemplateList" o = Gst.Element.ElementGetPadTemplateListMethodInfo
ResolveAppSinkMethod "getParent" o = Gst.Object.ObjectGetParentMethodInfo
ResolveAppSinkMethod "getPathString" o = Gst.Object.ObjectGetPathStringMethodInfo
ResolveAppSinkMethod "getProcessingDeadline" o = GstBase.BaseSink.BaseSinkGetProcessingDeadlineMethodInfo
ResolveAppSinkMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAppSinkMethod "getProtocols" o = Gst.URIHandler.URIHandlerGetProtocolsMethodInfo
ResolveAppSinkMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAppSinkMethod "getRenderDelay" o = GstBase.BaseSink.BaseSinkGetRenderDelayMethodInfo
ResolveAppSinkMethod "getRequestPad" o = Gst.Element.ElementGetRequestPadMethodInfo
ResolveAppSinkMethod "getStartTime" o = Gst.Element.ElementGetStartTimeMethodInfo
ResolveAppSinkMethod "getState" o = Gst.Element.ElementGetStateMethodInfo
ResolveAppSinkMethod "getStaticPad" o = Gst.Element.ElementGetStaticPadMethodInfo
ResolveAppSinkMethod "getStats" o = GstBase.BaseSink.BaseSinkGetStatsMethodInfo
ResolveAppSinkMethod "getSync" o = GstBase.BaseSink.BaseSinkGetSyncMethodInfo
ResolveAppSinkMethod "getThrottleTime" o = GstBase.BaseSink.BaseSinkGetThrottleTimeMethodInfo
ResolveAppSinkMethod "getTsOffset" o = GstBase.BaseSink.BaseSinkGetTsOffsetMethodInfo
ResolveAppSinkMethod "getUri" o = Gst.URIHandler.URIHandlerGetUriMethodInfo
ResolveAppSinkMethod "getUriType" o = Gst.URIHandler.URIHandlerGetUriTypeMethodInfo
ResolveAppSinkMethod "getValue" o = Gst.Object.ObjectGetValueMethodInfo
ResolveAppSinkMethod "getWaitOnEos" o = AppSinkGetWaitOnEosMethodInfo
ResolveAppSinkMethod "setAsyncEnabled" o = GstBase.BaseSink.BaseSinkSetAsyncEnabledMethodInfo
ResolveAppSinkMethod "setBaseTime" o = Gst.Element.ElementSetBaseTimeMethodInfo
ResolveAppSinkMethod "setBlocksize" o = GstBase.BaseSink.BaseSinkSetBlocksizeMethodInfo
ResolveAppSinkMethod "setBufferListSupport" o = AppSinkSetBufferListSupportMethodInfo
ResolveAppSinkMethod "setBus" o = Gst.Element.ElementSetBusMethodInfo
ResolveAppSinkMethod "setCaps" o = AppSinkSetCapsMethodInfo
ResolveAppSinkMethod "setClock" o = Gst.Element.ElementSetClockMethodInfo
ResolveAppSinkMethod "setContext" o = Gst.Element.ElementSetContextMethodInfo
ResolveAppSinkMethod "setControlBindingDisabled" o = Gst.Object.ObjectSetControlBindingDisabledMethodInfo
ResolveAppSinkMethod "setControlBindingsDisabled" o = Gst.Object.ObjectSetControlBindingsDisabledMethodInfo
ResolveAppSinkMethod "setControlRate" o = Gst.Object.ObjectSetControlRateMethodInfo
ResolveAppSinkMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAppSinkMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveAppSinkMethod "setDrop" o = AppSinkSetDropMethodInfo
ResolveAppSinkMethod "setDropOutOfSegment" o = GstBase.BaseSink.BaseSinkSetDropOutOfSegmentMethodInfo
ResolveAppSinkMethod "setEmitSignals" o = AppSinkSetEmitSignalsMethodInfo
ResolveAppSinkMethod "setLastSampleEnabled" o = GstBase.BaseSink.BaseSinkSetLastSampleEnabledMethodInfo
ResolveAppSinkMethod "setLockedState" o = Gst.Element.ElementSetLockedStateMethodInfo
ResolveAppSinkMethod "setMaxBitrate" o = GstBase.BaseSink.BaseSinkSetMaxBitrateMethodInfo
ResolveAppSinkMethod "setMaxBuffers" o = AppSinkSetMaxBuffersMethodInfo
ResolveAppSinkMethod "setMaxLateness" o = GstBase.BaseSink.BaseSinkSetMaxLatenessMethodInfo
ResolveAppSinkMethod "setName" o = Gst.Object.ObjectSetNameMethodInfo
ResolveAppSinkMethod "setParent" o = Gst.Object.ObjectSetParentMethodInfo
ResolveAppSinkMethod "setProcessingDeadline" o = GstBase.BaseSink.BaseSinkSetProcessingDeadlineMethodInfo
ResolveAppSinkMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAppSinkMethod "setQosEnabled" o = GstBase.BaseSink.BaseSinkSetQosEnabledMethodInfo
ResolveAppSinkMethod "setRenderDelay" o = GstBase.BaseSink.BaseSinkSetRenderDelayMethodInfo
ResolveAppSinkMethod "setStartTime" o = Gst.Element.ElementSetStartTimeMethodInfo
ResolveAppSinkMethod "setState" o = Gst.Element.ElementSetStateMethodInfo
ResolveAppSinkMethod "setSync" o = GstBase.BaseSink.BaseSinkSetSyncMethodInfo
ResolveAppSinkMethod "setThrottleTime" o = GstBase.BaseSink.BaseSinkSetThrottleTimeMethodInfo
ResolveAppSinkMethod "setTsOffset" o = GstBase.BaseSink.BaseSinkSetTsOffsetMethodInfo
ResolveAppSinkMethod "setUri" o = Gst.URIHandler.URIHandlerSetUriMethodInfo
ResolveAppSinkMethod "setWaitOnEos" o = AppSinkSetWaitOnEosMethodInfo
ResolveAppSinkMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAppSinkMethod t AppSink, O.OverloadedMethod info AppSink p) => OL.IsLabel t (AppSink -> 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 ~ ResolveAppSinkMethod t AppSink, O.OverloadedMethod info AppSink p, R.HasField t AppSink p) => R.HasField t AppSink p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveAppSinkMethod t AppSink, O.OverloadedMethodInfo info AppSink) => OL.IsLabel t (O.MethodProxy info AppSink) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type AppSinkEosCallback =
IO ()
type C_AppSinkEosCallback =
Ptr AppSink ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AppSinkEosCallback :: C_AppSinkEosCallback -> IO (FunPtr C_AppSinkEosCallback)
wrap_AppSinkEosCallback ::
GObject a => (a -> AppSinkEosCallback) ->
C_AppSinkEosCallback
wrap_AppSinkEosCallback :: forall a. GObject a => (a -> IO ()) -> C_AppSinkEosCallback
wrap_AppSinkEosCallback a -> IO ()
gi'cb Ptr AppSink
gi'selfPtr Ptr ()
_ = do
Ptr AppSink -> (AppSink -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr AppSink
gi'selfPtr ((AppSink -> IO ()) -> IO ()) -> (AppSink -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \AppSink
gi'self -> a -> IO ()
gi'cb (AppSink -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AppSink
gi'self)
onAppSinkEos :: (IsAppSink a, MonadIO m) => a -> ((?self :: a) => AppSinkEosCallback) -> m SignalHandlerId
onAppSinkEos :: forall a (m :: * -> *).
(IsAppSink a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onAppSinkEos 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_AppSinkEosCallback
wrapped' = (a -> IO ()) -> C_AppSinkEosCallback
forall a. GObject a => (a -> IO ()) -> C_AppSinkEosCallback
wrap_AppSinkEosCallback a -> IO ()
wrapped
FunPtr C_AppSinkEosCallback
wrapped'' <- C_AppSinkEosCallback -> IO (FunPtr C_AppSinkEosCallback)
mk_AppSinkEosCallback C_AppSinkEosCallback
wrapped'
a
-> Text
-> FunPtr C_AppSinkEosCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"eos" FunPtr C_AppSinkEosCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAppSinkEos :: (IsAppSink a, MonadIO m) => a -> ((?self :: a) => AppSinkEosCallback) -> m SignalHandlerId
afterAppSinkEos :: forall a (m :: * -> *).
(IsAppSink a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterAppSinkEos 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_AppSinkEosCallback
wrapped' = (a -> IO ()) -> C_AppSinkEosCallback
forall a. GObject a => (a -> IO ()) -> C_AppSinkEosCallback
wrap_AppSinkEosCallback a -> IO ()
wrapped
FunPtr C_AppSinkEosCallback
wrapped'' <- C_AppSinkEosCallback -> IO (FunPtr C_AppSinkEosCallback)
mk_AppSinkEosCallback C_AppSinkEosCallback
wrapped'
a
-> Text
-> FunPtr C_AppSinkEosCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"eos" FunPtr C_AppSinkEosCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AppSinkEosSignalInfo
instance SignalInfo AppSinkEosSignalInfo where
type HaskellCallbackType AppSinkEosSignalInfo = AppSinkEosCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AppSinkEosCallback cb
cb'' <- mk_AppSinkEosCallback cb'
connectSignalFunPtr obj "eos" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink::eos"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#g:signal:eos"})
#endif
type AppSinkNewPrerollCallback =
IO Gst.Enums.FlowReturn
type C_AppSinkNewPrerollCallback =
Ptr AppSink ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_AppSinkNewPrerollCallback :: C_AppSinkNewPrerollCallback -> IO (FunPtr C_AppSinkNewPrerollCallback)
wrap_AppSinkNewPrerollCallback ::
GObject a => (a -> AppSinkNewPrerollCallback) ->
C_AppSinkNewPrerollCallback
wrap_AppSinkNewPrerollCallback :: forall a.
GObject a =>
(a -> AppSinkNewPrerollCallback) -> C_AppSinkNewPrerollCallback
wrap_AppSinkNewPrerollCallback a -> AppSinkNewPrerollCallback
gi'cb Ptr AppSink
gi'selfPtr Ptr ()
_ = do
FlowReturn
result <- Ptr AppSink
-> (AppSink -> AppSinkNewPrerollCallback)
-> AppSinkNewPrerollCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr AppSink
gi'selfPtr ((AppSink -> AppSinkNewPrerollCallback)
-> AppSinkNewPrerollCallback)
-> (AppSink -> AppSinkNewPrerollCallback)
-> AppSinkNewPrerollCallback
forall a b. (a -> b) -> a -> b
$ \AppSink
gi'self -> a -> AppSinkNewPrerollCallback
gi'cb (AppSink -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AppSink
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'
onAppSinkNewPreroll :: (IsAppSink a, MonadIO m) => a -> ((?self :: a) => AppSinkNewPrerollCallback) -> m SignalHandlerId
onAppSinkNewPreroll :: forall a (m :: * -> *).
(IsAppSink a, MonadIO m) =>
a -> ((?self::a) => AppSinkNewPrerollCallback) -> m SignalHandlerId
onAppSinkNewPreroll a
obj (?self::a) => AppSinkNewPrerollCallback
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 -> AppSinkNewPrerollCallback
wrapped a
self = let ?self = a
?self::a
self in AppSinkNewPrerollCallback
(?self::a) => AppSinkNewPrerollCallback
cb
let wrapped' :: C_AppSinkNewPrerollCallback
wrapped' = (a -> AppSinkNewPrerollCallback) -> C_AppSinkNewPrerollCallback
forall a.
GObject a =>
(a -> AppSinkNewPrerollCallback) -> C_AppSinkNewPrerollCallback
wrap_AppSinkNewPrerollCallback a -> AppSinkNewPrerollCallback
wrapped
FunPtr C_AppSinkNewPrerollCallback
wrapped'' <- C_AppSinkNewPrerollCallback
-> IO (FunPtr C_AppSinkNewPrerollCallback)
mk_AppSinkNewPrerollCallback C_AppSinkNewPrerollCallback
wrapped'
a
-> Text
-> FunPtr C_AppSinkNewPrerollCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"new-preroll" FunPtr C_AppSinkNewPrerollCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAppSinkNewPreroll :: (IsAppSink a, MonadIO m) => a -> ((?self :: a) => AppSinkNewPrerollCallback) -> m SignalHandlerId
afterAppSinkNewPreroll :: forall a (m :: * -> *).
(IsAppSink a, MonadIO m) =>
a -> ((?self::a) => AppSinkNewPrerollCallback) -> m SignalHandlerId
afterAppSinkNewPreroll a
obj (?self::a) => AppSinkNewPrerollCallback
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 -> AppSinkNewPrerollCallback
wrapped a
self = let ?self = a
?self::a
self in AppSinkNewPrerollCallback
(?self::a) => AppSinkNewPrerollCallback
cb
let wrapped' :: C_AppSinkNewPrerollCallback
wrapped' = (a -> AppSinkNewPrerollCallback) -> C_AppSinkNewPrerollCallback
forall a.
GObject a =>
(a -> AppSinkNewPrerollCallback) -> C_AppSinkNewPrerollCallback
wrap_AppSinkNewPrerollCallback a -> AppSinkNewPrerollCallback
wrapped
FunPtr C_AppSinkNewPrerollCallback
wrapped'' <- C_AppSinkNewPrerollCallback
-> IO (FunPtr C_AppSinkNewPrerollCallback)
mk_AppSinkNewPrerollCallback C_AppSinkNewPrerollCallback
wrapped'
a
-> Text
-> FunPtr C_AppSinkNewPrerollCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"new-preroll" FunPtr C_AppSinkNewPrerollCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AppSinkNewPrerollSignalInfo
instance SignalInfo AppSinkNewPrerollSignalInfo where
type HaskellCallbackType AppSinkNewPrerollSignalInfo = AppSinkNewPrerollCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AppSinkNewPrerollCallback cb
cb'' <- mk_AppSinkNewPrerollCallback cb'
connectSignalFunPtr obj "new-preroll" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink::new-preroll"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#g:signal:newPreroll"})
#endif
type AppSinkNewSampleCallback =
IO Gst.Enums.FlowReturn
type C_AppSinkNewSampleCallback =
Ptr AppSink ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_AppSinkNewSampleCallback :: C_AppSinkNewSampleCallback -> IO (FunPtr C_AppSinkNewSampleCallback)
wrap_AppSinkNewSampleCallback ::
GObject a => (a -> AppSinkNewSampleCallback) ->
C_AppSinkNewSampleCallback
wrap_AppSinkNewSampleCallback :: forall a.
GObject a =>
(a -> AppSinkNewPrerollCallback) -> C_AppSinkNewPrerollCallback
wrap_AppSinkNewSampleCallback a -> AppSinkNewPrerollCallback
gi'cb Ptr AppSink
gi'selfPtr Ptr ()
_ = do
FlowReturn
result <- Ptr AppSink
-> (AppSink -> AppSinkNewPrerollCallback)
-> AppSinkNewPrerollCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr AppSink
gi'selfPtr ((AppSink -> AppSinkNewPrerollCallback)
-> AppSinkNewPrerollCallback)
-> (AppSink -> AppSinkNewPrerollCallback)
-> AppSinkNewPrerollCallback
forall a b. (a -> b) -> a -> b
$ \AppSink
gi'self -> a -> AppSinkNewPrerollCallback
gi'cb (AppSink -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AppSink
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'
onAppSinkNewSample :: (IsAppSink a, MonadIO m) => a -> ((?self :: a) => AppSinkNewSampleCallback) -> m SignalHandlerId
onAppSinkNewSample :: forall a (m :: * -> *).
(IsAppSink a, MonadIO m) =>
a -> ((?self::a) => AppSinkNewPrerollCallback) -> m SignalHandlerId
onAppSinkNewSample a
obj (?self::a) => AppSinkNewPrerollCallback
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 -> AppSinkNewPrerollCallback
wrapped a
self = let ?self = a
?self::a
self in AppSinkNewPrerollCallback
(?self::a) => AppSinkNewPrerollCallback
cb
let wrapped' :: C_AppSinkNewPrerollCallback
wrapped' = (a -> AppSinkNewPrerollCallback) -> C_AppSinkNewPrerollCallback
forall a.
GObject a =>
(a -> AppSinkNewPrerollCallback) -> C_AppSinkNewPrerollCallback
wrap_AppSinkNewSampleCallback a -> AppSinkNewPrerollCallback
wrapped
FunPtr C_AppSinkNewPrerollCallback
wrapped'' <- C_AppSinkNewPrerollCallback
-> IO (FunPtr C_AppSinkNewPrerollCallback)
mk_AppSinkNewSampleCallback C_AppSinkNewPrerollCallback
wrapped'
a
-> Text
-> FunPtr C_AppSinkNewPrerollCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"new-sample" FunPtr C_AppSinkNewPrerollCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAppSinkNewSample :: (IsAppSink a, MonadIO m) => a -> ((?self :: a) => AppSinkNewSampleCallback) -> m SignalHandlerId
afterAppSinkNewSample :: forall a (m :: * -> *).
(IsAppSink a, MonadIO m) =>
a -> ((?self::a) => AppSinkNewPrerollCallback) -> m SignalHandlerId
afterAppSinkNewSample a
obj (?self::a) => AppSinkNewPrerollCallback
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 -> AppSinkNewPrerollCallback
wrapped a
self = let ?self = a
?self::a
self in AppSinkNewPrerollCallback
(?self::a) => AppSinkNewPrerollCallback
cb
let wrapped' :: C_AppSinkNewPrerollCallback
wrapped' = (a -> AppSinkNewPrerollCallback) -> C_AppSinkNewPrerollCallback
forall a.
GObject a =>
(a -> AppSinkNewPrerollCallback) -> C_AppSinkNewPrerollCallback
wrap_AppSinkNewSampleCallback a -> AppSinkNewPrerollCallback
wrapped
FunPtr C_AppSinkNewPrerollCallback
wrapped'' <- C_AppSinkNewPrerollCallback
-> IO (FunPtr C_AppSinkNewPrerollCallback)
mk_AppSinkNewSampleCallback C_AppSinkNewPrerollCallback
wrapped'
a
-> Text
-> FunPtr C_AppSinkNewPrerollCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"new-sample" FunPtr C_AppSinkNewPrerollCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AppSinkNewSampleSignalInfo
instance SignalInfo AppSinkNewSampleSignalInfo where
type HaskellCallbackType AppSinkNewSampleSignalInfo = AppSinkNewSampleCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AppSinkNewSampleCallback cb
cb'' <- mk_AppSinkNewSampleCallback cb'
connectSignalFunPtr obj "new-sample" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink::new-sample"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#g:signal:newSample"})
#endif
type AppSinkNewSerializedEventCallback =
IO Bool
type C_AppSinkNewSerializedEventCallback =
Ptr AppSink ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_AppSinkNewSerializedEventCallback :: C_AppSinkNewSerializedEventCallback -> IO (FunPtr C_AppSinkNewSerializedEventCallback)
wrap_AppSinkNewSerializedEventCallback ::
GObject a => (a -> AppSinkNewSerializedEventCallback) ->
C_AppSinkNewSerializedEventCallback
wrap_AppSinkNewSerializedEventCallback :: forall a.
GObject a =>
(a -> AppSinkNewSerializedEventCallback)
-> C_AppSinkNewPrerollCallback
wrap_AppSinkNewSerializedEventCallback a -> AppSinkNewSerializedEventCallback
gi'cb Ptr AppSink
gi'selfPtr Ptr ()
_ = do
Bool
result <- Ptr AppSink
-> (AppSink -> AppSinkNewSerializedEventCallback)
-> AppSinkNewSerializedEventCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr AppSink
gi'selfPtr ((AppSink -> AppSinkNewSerializedEventCallback)
-> AppSinkNewSerializedEventCallback)
-> (AppSink -> AppSinkNewSerializedEventCallback)
-> AppSinkNewSerializedEventCallback
forall a b. (a -> b) -> a -> b
$ \AppSink
gi'self -> a -> AppSinkNewSerializedEventCallback
gi'cb (AppSink -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AppSink
gi'self)
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'
onAppSinkNewSerializedEvent :: (IsAppSink a, MonadIO m) => a -> ((?self :: a) => AppSinkNewSerializedEventCallback) -> m SignalHandlerId
onAppSinkNewSerializedEvent :: forall a (m :: * -> *).
(IsAppSink a, MonadIO m) =>
a
-> ((?self::a) => AppSinkNewSerializedEventCallback)
-> m SignalHandlerId
onAppSinkNewSerializedEvent a
obj (?self::a) => AppSinkNewSerializedEventCallback
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 -> AppSinkNewSerializedEventCallback
wrapped a
self = let ?self = a
?self::a
self in AppSinkNewSerializedEventCallback
(?self::a) => AppSinkNewSerializedEventCallback
cb
let wrapped' :: C_AppSinkNewPrerollCallback
wrapped' = (a -> AppSinkNewSerializedEventCallback)
-> C_AppSinkNewPrerollCallback
forall a.
GObject a =>
(a -> AppSinkNewSerializedEventCallback)
-> C_AppSinkNewPrerollCallback
wrap_AppSinkNewSerializedEventCallback a -> AppSinkNewSerializedEventCallback
wrapped
FunPtr C_AppSinkNewPrerollCallback
wrapped'' <- C_AppSinkNewPrerollCallback
-> IO (FunPtr C_AppSinkNewPrerollCallback)
mk_AppSinkNewSerializedEventCallback C_AppSinkNewPrerollCallback
wrapped'
a
-> Text
-> FunPtr C_AppSinkNewPrerollCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"new-serialized-event" FunPtr C_AppSinkNewPrerollCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAppSinkNewSerializedEvent :: (IsAppSink a, MonadIO m) => a -> ((?self :: a) => AppSinkNewSerializedEventCallback) -> m SignalHandlerId
afterAppSinkNewSerializedEvent :: forall a (m :: * -> *).
(IsAppSink a, MonadIO m) =>
a
-> ((?self::a) => AppSinkNewSerializedEventCallback)
-> m SignalHandlerId
afterAppSinkNewSerializedEvent a
obj (?self::a) => AppSinkNewSerializedEventCallback
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 -> AppSinkNewSerializedEventCallback
wrapped a
self = let ?self = a
?self::a
self in AppSinkNewSerializedEventCallback
(?self::a) => AppSinkNewSerializedEventCallback
cb
let wrapped' :: C_AppSinkNewPrerollCallback
wrapped' = (a -> AppSinkNewSerializedEventCallback)
-> C_AppSinkNewPrerollCallback
forall a.
GObject a =>
(a -> AppSinkNewSerializedEventCallback)
-> C_AppSinkNewPrerollCallback
wrap_AppSinkNewSerializedEventCallback a -> AppSinkNewSerializedEventCallback
wrapped
FunPtr C_AppSinkNewPrerollCallback
wrapped'' <- C_AppSinkNewPrerollCallback
-> IO (FunPtr C_AppSinkNewPrerollCallback)
mk_AppSinkNewSerializedEventCallback C_AppSinkNewPrerollCallback
wrapped'
a
-> Text
-> FunPtr C_AppSinkNewPrerollCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"new-serialized-event" FunPtr C_AppSinkNewPrerollCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AppSinkNewSerializedEventSignalInfo
instance SignalInfo AppSinkNewSerializedEventSignalInfo where
type HaskellCallbackType AppSinkNewSerializedEventSignalInfo = AppSinkNewSerializedEventCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AppSinkNewSerializedEventCallback cb
cb'' <- mk_AppSinkNewSerializedEventCallback cb'
connectSignalFunPtr obj "new-serialized-event" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink::new-serialized-event"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#g:signal:newSerializedEvent"})
#endif
type AppSinkPullPrerollCallback =
IO (Maybe Gst.Sample.Sample)
type C_AppSinkPullPrerollCallback =
Ptr AppSink ->
Ptr () ->
IO (Ptr Gst.Sample.Sample)
foreign import ccall "wrapper"
mk_AppSinkPullPrerollCallback :: C_AppSinkPullPrerollCallback -> IO (FunPtr C_AppSinkPullPrerollCallback)
wrap_AppSinkPullPrerollCallback ::
GObject a => (a -> AppSinkPullPrerollCallback) ->
C_AppSinkPullPrerollCallback
wrap_AppSinkPullPrerollCallback :: forall a.
GObject a =>
(a -> AppSinkPullPrerollCallback) -> C_AppSinkPullPrerollCallback
wrap_AppSinkPullPrerollCallback a -> AppSinkPullPrerollCallback
gi'cb Ptr AppSink
gi'selfPtr Ptr ()
_ = do
Maybe Sample
result <- Ptr AppSink
-> (AppSink -> AppSinkPullPrerollCallback)
-> AppSinkPullPrerollCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr AppSink
gi'selfPtr ((AppSink -> AppSinkPullPrerollCallback)
-> AppSinkPullPrerollCallback)
-> (AppSink -> AppSinkPullPrerollCallback)
-> AppSinkPullPrerollCallback
forall a b. (a -> b) -> a -> b
$ \AppSink
gi'self -> a -> AppSinkPullPrerollCallback
gi'cb (AppSink -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AppSink
gi'self)
Ptr Sample
-> Maybe Sample -> (Sample -> IO (Ptr Sample)) -> IO (Ptr Sample)
forall (m :: * -> *) b a.
Monad m =>
b -> Maybe a -> (a -> m b) -> m b
maybeM Ptr Sample
forall a. Ptr a
FP.nullPtr Maybe Sample
result ((Sample -> IO (Ptr Sample)) -> IO (Ptr Sample))
-> (Sample -> IO (Ptr Sample)) -> IO (Ptr Sample)
forall a b. (a -> b) -> a -> b
$ \Sample
result' -> do
Ptr Sample
result'' <- Sample -> IO (Ptr Sample)
forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed Sample
result'
Ptr Sample -> IO (Ptr Sample)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Sample
result''
onAppSinkPullPreroll :: (IsAppSink a, MonadIO m) => a -> ((?self :: a) => AppSinkPullPrerollCallback) -> m SignalHandlerId
onAppSinkPullPreroll :: forall a (m :: * -> *).
(IsAppSink a, MonadIO m) =>
a
-> ((?self::a) => AppSinkPullPrerollCallback) -> m SignalHandlerId
onAppSinkPullPreroll a
obj (?self::a) => AppSinkPullPrerollCallback
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 -> AppSinkPullPrerollCallback
wrapped a
self = let ?self = a
?self::a
self in AppSinkPullPrerollCallback
(?self::a) => AppSinkPullPrerollCallback
cb
let wrapped' :: C_AppSinkPullPrerollCallback
wrapped' = (a -> AppSinkPullPrerollCallback) -> C_AppSinkPullPrerollCallback
forall a.
GObject a =>
(a -> AppSinkPullPrerollCallback) -> C_AppSinkPullPrerollCallback
wrap_AppSinkPullPrerollCallback a -> AppSinkPullPrerollCallback
wrapped
FunPtr C_AppSinkPullPrerollCallback
wrapped'' <- C_AppSinkPullPrerollCallback
-> IO (FunPtr C_AppSinkPullPrerollCallback)
mk_AppSinkPullPrerollCallback C_AppSinkPullPrerollCallback
wrapped'
a
-> Text
-> FunPtr C_AppSinkPullPrerollCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"pull-preroll" FunPtr C_AppSinkPullPrerollCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAppSinkPullPreroll :: (IsAppSink a, MonadIO m) => a -> ((?self :: a) => AppSinkPullPrerollCallback) -> m SignalHandlerId
afterAppSinkPullPreroll :: forall a (m :: * -> *).
(IsAppSink a, MonadIO m) =>
a
-> ((?self::a) => AppSinkPullPrerollCallback) -> m SignalHandlerId
afterAppSinkPullPreroll a
obj (?self::a) => AppSinkPullPrerollCallback
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 -> AppSinkPullPrerollCallback
wrapped a
self = let ?self = a
?self::a
self in AppSinkPullPrerollCallback
(?self::a) => AppSinkPullPrerollCallback
cb
let wrapped' :: C_AppSinkPullPrerollCallback
wrapped' = (a -> AppSinkPullPrerollCallback) -> C_AppSinkPullPrerollCallback
forall a.
GObject a =>
(a -> AppSinkPullPrerollCallback) -> C_AppSinkPullPrerollCallback
wrap_AppSinkPullPrerollCallback a -> AppSinkPullPrerollCallback
wrapped
FunPtr C_AppSinkPullPrerollCallback
wrapped'' <- C_AppSinkPullPrerollCallback
-> IO (FunPtr C_AppSinkPullPrerollCallback)
mk_AppSinkPullPrerollCallback C_AppSinkPullPrerollCallback
wrapped'
a
-> Text
-> FunPtr C_AppSinkPullPrerollCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"pull-preroll" FunPtr C_AppSinkPullPrerollCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AppSinkPullPrerollSignalInfo
instance SignalInfo AppSinkPullPrerollSignalInfo where
type HaskellCallbackType AppSinkPullPrerollSignalInfo = AppSinkPullPrerollCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AppSinkPullPrerollCallback cb
cb'' <- mk_AppSinkPullPrerollCallback cb'
connectSignalFunPtr obj "pull-preroll" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink::pull-preroll"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#g:signal:pullPreroll"})
#endif
type AppSinkPullSampleCallback =
IO (Maybe Gst.Sample.Sample)
type C_AppSinkPullSampleCallback =
Ptr AppSink ->
Ptr () ->
IO (Ptr Gst.Sample.Sample)
foreign import ccall "wrapper"
mk_AppSinkPullSampleCallback :: C_AppSinkPullSampleCallback -> IO (FunPtr C_AppSinkPullSampleCallback)
wrap_AppSinkPullSampleCallback ::
GObject a => (a -> AppSinkPullSampleCallback) ->
C_AppSinkPullSampleCallback
wrap_AppSinkPullSampleCallback :: forall a.
GObject a =>
(a -> AppSinkPullPrerollCallback) -> C_AppSinkPullPrerollCallback
wrap_AppSinkPullSampleCallback a -> AppSinkPullPrerollCallback
gi'cb Ptr AppSink
gi'selfPtr Ptr ()
_ = do
Maybe Sample
result <- Ptr AppSink
-> (AppSink -> AppSinkPullPrerollCallback)
-> AppSinkPullPrerollCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr AppSink
gi'selfPtr ((AppSink -> AppSinkPullPrerollCallback)
-> AppSinkPullPrerollCallback)
-> (AppSink -> AppSinkPullPrerollCallback)
-> AppSinkPullPrerollCallback
forall a b. (a -> b) -> a -> b
$ \AppSink
gi'self -> a -> AppSinkPullPrerollCallback
gi'cb (AppSink -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AppSink
gi'self)
Ptr Sample
-> Maybe Sample -> (Sample -> IO (Ptr Sample)) -> IO (Ptr Sample)
forall (m :: * -> *) b a.
Monad m =>
b -> Maybe a -> (a -> m b) -> m b
maybeM Ptr Sample
forall a. Ptr a
FP.nullPtr Maybe Sample
result ((Sample -> IO (Ptr Sample)) -> IO (Ptr Sample))
-> (Sample -> IO (Ptr Sample)) -> IO (Ptr Sample)
forall a b. (a -> b) -> a -> b
$ \Sample
result' -> do
Ptr Sample
result'' <- Sample -> IO (Ptr Sample)
forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed Sample
result'
Ptr Sample -> IO (Ptr Sample)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Sample
result''
onAppSinkPullSample :: (IsAppSink a, MonadIO m) => a -> ((?self :: a) => AppSinkPullSampleCallback) -> m SignalHandlerId
onAppSinkPullSample :: forall a (m :: * -> *).
(IsAppSink a, MonadIO m) =>
a
-> ((?self::a) => AppSinkPullPrerollCallback) -> m SignalHandlerId
onAppSinkPullSample a
obj (?self::a) => AppSinkPullPrerollCallback
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 -> AppSinkPullPrerollCallback
wrapped a
self = let ?self = a
?self::a
self in AppSinkPullPrerollCallback
(?self::a) => AppSinkPullPrerollCallback
cb
let wrapped' :: C_AppSinkPullPrerollCallback
wrapped' = (a -> AppSinkPullPrerollCallback) -> C_AppSinkPullPrerollCallback
forall a.
GObject a =>
(a -> AppSinkPullPrerollCallback) -> C_AppSinkPullPrerollCallback
wrap_AppSinkPullSampleCallback a -> AppSinkPullPrerollCallback
wrapped
FunPtr C_AppSinkPullPrerollCallback
wrapped'' <- C_AppSinkPullPrerollCallback
-> IO (FunPtr C_AppSinkPullPrerollCallback)
mk_AppSinkPullSampleCallback C_AppSinkPullPrerollCallback
wrapped'
a
-> Text
-> FunPtr C_AppSinkPullPrerollCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"pull-sample" FunPtr C_AppSinkPullPrerollCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAppSinkPullSample :: (IsAppSink a, MonadIO m) => a -> ((?self :: a) => AppSinkPullSampleCallback) -> m SignalHandlerId
afterAppSinkPullSample :: forall a (m :: * -> *).
(IsAppSink a, MonadIO m) =>
a
-> ((?self::a) => AppSinkPullPrerollCallback) -> m SignalHandlerId
afterAppSinkPullSample a
obj (?self::a) => AppSinkPullPrerollCallback
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 -> AppSinkPullPrerollCallback
wrapped a
self = let ?self = a
?self::a
self in AppSinkPullPrerollCallback
(?self::a) => AppSinkPullPrerollCallback
cb
let wrapped' :: C_AppSinkPullPrerollCallback
wrapped' = (a -> AppSinkPullPrerollCallback) -> C_AppSinkPullPrerollCallback
forall a.
GObject a =>
(a -> AppSinkPullPrerollCallback) -> C_AppSinkPullPrerollCallback
wrap_AppSinkPullSampleCallback a -> AppSinkPullPrerollCallback
wrapped
FunPtr C_AppSinkPullPrerollCallback
wrapped'' <- C_AppSinkPullPrerollCallback
-> IO (FunPtr C_AppSinkPullPrerollCallback)
mk_AppSinkPullSampleCallback C_AppSinkPullPrerollCallback
wrapped'
a
-> Text
-> FunPtr C_AppSinkPullPrerollCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"pull-sample" FunPtr C_AppSinkPullPrerollCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AppSinkPullSampleSignalInfo
instance SignalInfo AppSinkPullSampleSignalInfo where
type HaskellCallbackType AppSinkPullSampleSignalInfo = AppSinkPullSampleCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AppSinkPullSampleCallback cb
cb'' <- mk_AppSinkPullSampleCallback cb'
connectSignalFunPtr obj "pull-sample" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink::pull-sample"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#g:signal:pullSample"})
#endif
type AppSinkTryPullObjectCallback =
Word64
-> IO (Maybe Gst.MiniObject.MiniObject)
type C_AppSinkTryPullObjectCallback =
Ptr AppSink ->
Word64 ->
Ptr () ->
IO (Ptr Gst.MiniObject.MiniObject)
foreign import ccall "wrapper"
mk_AppSinkTryPullObjectCallback :: C_AppSinkTryPullObjectCallback -> IO (FunPtr C_AppSinkTryPullObjectCallback)
wrap_AppSinkTryPullObjectCallback ::
GObject a => (a -> AppSinkTryPullObjectCallback) ->
C_AppSinkTryPullObjectCallback
wrap_AppSinkTryPullObjectCallback :: forall a.
GObject a =>
(a -> AppSinkTryPullObjectCallback)
-> C_AppSinkTryPullObjectCallback
wrap_AppSinkTryPullObjectCallback a -> AppSinkTryPullObjectCallback
gi'cb Ptr AppSink
gi'selfPtr Word64
timeout Ptr ()
_ = do
Maybe MiniObject
result <- Ptr AppSink
-> (AppSink -> IO (Maybe MiniObject)) -> IO (Maybe MiniObject)
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr AppSink
gi'selfPtr ((AppSink -> IO (Maybe MiniObject)) -> IO (Maybe MiniObject))
-> (AppSink -> IO (Maybe MiniObject)) -> IO (Maybe MiniObject)
forall a b. (a -> b) -> a -> b
$ \AppSink
gi'self -> a -> AppSinkTryPullObjectCallback
gi'cb (AppSink -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AppSink
gi'self) Word64
timeout
Ptr MiniObject
-> Maybe MiniObject
-> (MiniObject -> IO (Ptr MiniObject))
-> IO (Ptr MiniObject)
forall (m :: * -> *) b a.
Monad m =>
b -> Maybe a -> (a -> m b) -> m b
maybeM Ptr MiniObject
forall a. Ptr a
FP.nullPtr Maybe MiniObject
result ((MiniObject -> IO (Ptr MiniObject)) -> IO (Ptr MiniObject))
-> (MiniObject -> IO (Ptr MiniObject)) -> IO (Ptr MiniObject)
forall a b. (a -> b) -> a -> b
$ \MiniObject
result' -> do
Ptr MiniObject
result'' <- MiniObject -> IO (Ptr MiniObject)
forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed MiniObject
result'
Ptr MiniObject -> IO (Ptr MiniObject)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MiniObject
result''
onAppSinkTryPullObject :: (IsAppSink a, MonadIO m) => a -> ((?self :: a) => AppSinkTryPullObjectCallback) -> m SignalHandlerId
onAppSinkTryPullObject :: forall a (m :: * -> *).
(IsAppSink a, MonadIO m) =>
a
-> ((?self::a) => AppSinkTryPullObjectCallback)
-> m SignalHandlerId
onAppSinkTryPullObject a
obj (?self::a) => AppSinkTryPullObjectCallback
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 -> AppSinkTryPullObjectCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppSinkTryPullObjectCallback
AppSinkTryPullObjectCallback
cb
let wrapped' :: C_AppSinkTryPullObjectCallback
wrapped' = (a -> AppSinkTryPullObjectCallback)
-> C_AppSinkTryPullObjectCallback
forall a.
GObject a =>
(a -> AppSinkTryPullObjectCallback)
-> C_AppSinkTryPullObjectCallback
wrap_AppSinkTryPullObjectCallback a -> AppSinkTryPullObjectCallback
wrapped
FunPtr C_AppSinkTryPullObjectCallback
wrapped'' <- C_AppSinkTryPullObjectCallback
-> IO (FunPtr C_AppSinkTryPullObjectCallback)
mk_AppSinkTryPullObjectCallback C_AppSinkTryPullObjectCallback
wrapped'
a
-> Text
-> FunPtr C_AppSinkTryPullObjectCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"try-pull-object" FunPtr C_AppSinkTryPullObjectCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAppSinkTryPullObject :: (IsAppSink a, MonadIO m) => a -> ((?self :: a) => AppSinkTryPullObjectCallback) -> m SignalHandlerId
afterAppSinkTryPullObject :: forall a (m :: * -> *).
(IsAppSink a, MonadIO m) =>
a
-> ((?self::a) => AppSinkTryPullObjectCallback)
-> m SignalHandlerId
afterAppSinkTryPullObject a
obj (?self::a) => AppSinkTryPullObjectCallback
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 -> AppSinkTryPullObjectCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppSinkTryPullObjectCallback
AppSinkTryPullObjectCallback
cb
let wrapped' :: C_AppSinkTryPullObjectCallback
wrapped' = (a -> AppSinkTryPullObjectCallback)
-> C_AppSinkTryPullObjectCallback
forall a.
GObject a =>
(a -> AppSinkTryPullObjectCallback)
-> C_AppSinkTryPullObjectCallback
wrap_AppSinkTryPullObjectCallback a -> AppSinkTryPullObjectCallback
wrapped
FunPtr C_AppSinkTryPullObjectCallback
wrapped'' <- C_AppSinkTryPullObjectCallback
-> IO (FunPtr C_AppSinkTryPullObjectCallback)
mk_AppSinkTryPullObjectCallback C_AppSinkTryPullObjectCallback
wrapped'
a
-> Text
-> FunPtr C_AppSinkTryPullObjectCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"try-pull-object" FunPtr C_AppSinkTryPullObjectCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AppSinkTryPullObjectSignalInfo
instance SignalInfo AppSinkTryPullObjectSignalInfo where
type HaskellCallbackType AppSinkTryPullObjectSignalInfo = AppSinkTryPullObjectCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AppSinkTryPullObjectCallback cb
cb'' <- mk_AppSinkTryPullObjectCallback cb'
connectSignalFunPtr obj "try-pull-object" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink::try-pull-object"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#g:signal:tryPullObject"})
#endif
type AppSinkTryPullPrerollCallback =
Word64
-> IO (Maybe Gst.Sample.Sample)
type C_AppSinkTryPullPrerollCallback =
Ptr AppSink ->
Word64 ->
Ptr () ->
IO (Ptr Gst.Sample.Sample)
foreign import ccall "wrapper"
mk_AppSinkTryPullPrerollCallback :: C_AppSinkTryPullPrerollCallback -> IO (FunPtr C_AppSinkTryPullPrerollCallback)
wrap_AppSinkTryPullPrerollCallback ::
GObject a => (a -> AppSinkTryPullPrerollCallback) ->
C_AppSinkTryPullPrerollCallback
wrap_AppSinkTryPullPrerollCallback :: forall a.
GObject a =>
(a -> AppSinkTryPullPrerollCallback)
-> C_AppSinkTryPullPrerollCallback
wrap_AppSinkTryPullPrerollCallback a -> AppSinkTryPullPrerollCallback
gi'cb Ptr AppSink
gi'selfPtr Word64
timeout Ptr ()
_ = do
Maybe Sample
result <- Ptr AppSink
-> (AppSink -> AppSinkPullPrerollCallback)
-> AppSinkPullPrerollCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr AppSink
gi'selfPtr ((AppSink -> AppSinkPullPrerollCallback)
-> AppSinkPullPrerollCallback)
-> (AppSink -> AppSinkPullPrerollCallback)
-> AppSinkPullPrerollCallback
forall a b. (a -> b) -> a -> b
$ \AppSink
gi'self -> a -> AppSinkTryPullPrerollCallback
gi'cb (AppSink -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AppSink
gi'self) Word64
timeout
Ptr Sample
-> Maybe Sample -> (Sample -> IO (Ptr Sample)) -> IO (Ptr Sample)
forall (m :: * -> *) b a.
Monad m =>
b -> Maybe a -> (a -> m b) -> m b
maybeM Ptr Sample
forall a. Ptr a
FP.nullPtr Maybe Sample
result ((Sample -> IO (Ptr Sample)) -> IO (Ptr Sample))
-> (Sample -> IO (Ptr Sample)) -> IO (Ptr Sample)
forall a b. (a -> b) -> a -> b
$ \Sample
result' -> do
Ptr Sample
result'' <- Sample -> IO (Ptr Sample)
forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed Sample
result'
Ptr Sample -> IO (Ptr Sample)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Sample
result''
onAppSinkTryPullPreroll :: (IsAppSink a, MonadIO m) => a -> ((?self :: a) => AppSinkTryPullPrerollCallback) -> m SignalHandlerId
onAppSinkTryPullPreroll :: forall a (m :: * -> *).
(IsAppSink a, MonadIO m) =>
a
-> ((?self::a) => AppSinkTryPullPrerollCallback)
-> m SignalHandlerId
onAppSinkTryPullPreroll a
obj (?self::a) => AppSinkTryPullPrerollCallback
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 -> AppSinkTryPullPrerollCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppSinkTryPullPrerollCallback
AppSinkTryPullPrerollCallback
cb
let wrapped' :: C_AppSinkTryPullPrerollCallback
wrapped' = (a -> AppSinkTryPullPrerollCallback)
-> C_AppSinkTryPullPrerollCallback
forall a.
GObject a =>
(a -> AppSinkTryPullPrerollCallback)
-> C_AppSinkTryPullPrerollCallback
wrap_AppSinkTryPullPrerollCallback a -> AppSinkTryPullPrerollCallback
wrapped
FunPtr C_AppSinkTryPullPrerollCallback
wrapped'' <- C_AppSinkTryPullPrerollCallback
-> IO (FunPtr C_AppSinkTryPullPrerollCallback)
mk_AppSinkTryPullPrerollCallback C_AppSinkTryPullPrerollCallback
wrapped'
a
-> Text
-> FunPtr C_AppSinkTryPullPrerollCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"try-pull-preroll" FunPtr C_AppSinkTryPullPrerollCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAppSinkTryPullPreroll :: (IsAppSink a, MonadIO m) => a -> ((?self :: a) => AppSinkTryPullPrerollCallback) -> m SignalHandlerId
afterAppSinkTryPullPreroll :: forall a (m :: * -> *).
(IsAppSink a, MonadIO m) =>
a
-> ((?self::a) => AppSinkTryPullPrerollCallback)
-> m SignalHandlerId
afterAppSinkTryPullPreroll a
obj (?self::a) => AppSinkTryPullPrerollCallback
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 -> AppSinkTryPullPrerollCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppSinkTryPullPrerollCallback
AppSinkTryPullPrerollCallback
cb
let wrapped' :: C_AppSinkTryPullPrerollCallback
wrapped' = (a -> AppSinkTryPullPrerollCallback)
-> C_AppSinkTryPullPrerollCallback
forall a.
GObject a =>
(a -> AppSinkTryPullPrerollCallback)
-> C_AppSinkTryPullPrerollCallback
wrap_AppSinkTryPullPrerollCallback a -> AppSinkTryPullPrerollCallback
wrapped
FunPtr C_AppSinkTryPullPrerollCallback
wrapped'' <- C_AppSinkTryPullPrerollCallback
-> IO (FunPtr C_AppSinkTryPullPrerollCallback)
mk_AppSinkTryPullPrerollCallback C_AppSinkTryPullPrerollCallback
wrapped'
a
-> Text
-> FunPtr C_AppSinkTryPullPrerollCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"try-pull-preroll" FunPtr C_AppSinkTryPullPrerollCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AppSinkTryPullPrerollSignalInfo
instance SignalInfo AppSinkTryPullPrerollSignalInfo where
type HaskellCallbackType AppSinkTryPullPrerollSignalInfo = AppSinkTryPullPrerollCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AppSinkTryPullPrerollCallback cb
cb'' <- mk_AppSinkTryPullPrerollCallback cb'
connectSignalFunPtr obj "try-pull-preroll" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink::try-pull-preroll"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#g:signal:tryPullPreroll"})
#endif
type AppSinkTryPullSampleCallback =
Word64
-> IO (Maybe Gst.Sample.Sample)
type C_AppSinkTryPullSampleCallback =
Ptr AppSink ->
Word64 ->
Ptr () ->
IO (Ptr Gst.Sample.Sample)
foreign import ccall "wrapper"
mk_AppSinkTryPullSampleCallback :: C_AppSinkTryPullSampleCallback -> IO (FunPtr C_AppSinkTryPullSampleCallback)
wrap_AppSinkTryPullSampleCallback ::
GObject a => (a -> AppSinkTryPullSampleCallback) ->
C_AppSinkTryPullSampleCallback
wrap_AppSinkTryPullSampleCallback :: forall a.
GObject a =>
(a -> AppSinkTryPullPrerollCallback)
-> C_AppSinkTryPullPrerollCallback
wrap_AppSinkTryPullSampleCallback a -> AppSinkTryPullPrerollCallback
gi'cb Ptr AppSink
gi'selfPtr Word64
timeout Ptr ()
_ = do
Maybe Sample
result <- Ptr AppSink
-> (AppSink -> AppSinkPullPrerollCallback)
-> AppSinkPullPrerollCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr AppSink
gi'selfPtr ((AppSink -> AppSinkPullPrerollCallback)
-> AppSinkPullPrerollCallback)
-> (AppSink -> AppSinkPullPrerollCallback)
-> AppSinkPullPrerollCallback
forall a b. (a -> b) -> a -> b
$ \AppSink
gi'self -> a -> AppSinkTryPullPrerollCallback
gi'cb (AppSink -> a
forall a b. Coercible a b => a -> b
Coerce.coerce AppSink
gi'self) Word64
timeout
Ptr Sample
-> Maybe Sample -> (Sample -> IO (Ptr Sample)) -> IO (Ptr Sample)
forall (m :: * -> *) b a.
Monad m =>
b -> Maybe a -> (a -> m b) -> m b
maybeM Ptr Sample
forall a. Ptr a
FP.nullPtr Maybe Sample
result ((Sample -> IO (Ptr Sample)) -> IO (Ptr Sample))
-> (Sample -> IO (Ptr Sample)) -> IO (Ptr Sample)
forall a b. (a -> b) -> a -> b
$ \Sample
result' -> do
Ptr Sample
result'' <- Sample -> IO (Ptr Sample)
forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed Sample
result'
Ptr Sample -> IO (Ptr Sample)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Sample
result''
onAppSinkTryPullSample :: (IsAppSink a, MonadIO m) => a -> ((?self :: a) => AppSinkTryPullSampleCallback) -> m SignalHandlerId
onAppSinkTryPullSample :: forall a (m :: * -> *).
(IsAppSink a, MonadIO m) =>
a
-> ((?self::a) => AppSinkTryPullPrerollCallback)
-> m SignalHandlerId
onAppSinkTryPullSample a
obj (?self::a) => AppSinkTryPullPrerollCallback
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 -> AppSinkTryPullPrerollCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppSinkTryPullPrerollCallback
AppSinkTryPullPrerollCallback
cb
let wrapped' :: C_AppSinkTryPullPrerollCallback
wrapped' = (a -> AppSinkTryPullPrerollCallback)
-> C_AppSinkTryPullPrerollCallback
forall a.
GObject a =>
(a -> AppSinkTryPullPrerollCallback)
-> C_AppSinkTryPullPrerollCallback
wrap_AppSinkTryPullSampleCallback a -> AppSinkTryPullPrerollCallback
wrapped
FunPtr C_AppSinkTryPullPrerollCallback
wrapped'' <- C_AppSinkTryPullPrerollCallback
-> IO (FunPtr C_AppSinkTryPullPrerollCallback)
mk_AppSinkTryPullSampleCallback C_AppSinkTryPullPrerollCallback
wrapped'
a
-> Text
-> FunPtr C_AppSinkTryPullPrerollCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"try-pull-sample" FunPtr C_AppSinkTryPullPrerollCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAppSinkTryPullSample :: (IsAppSink a, MonadIO m) => a -> ((?self :: a) => AppSinkTryPullSampleCallback) -> m SignalHandlerId
afterAppSinkTryPullSample :: forall a (m :: * -> *).
(IsAppSink a, MonadIO m) =>
a
-> ((?self::a) => AppSinkTryPullPrerollCallback)
-> m SignalHandlerId
afterAppSinkTryPullSample a
obj (?self::a) => AppSinkTryPullPrerollCallback
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 -> AppSinkTryPullPrerollCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AppSinkTryPullPrerollCallback
AppSinkTryPullPrerollCallback
cb
let wrapped' :: C_AppSinkTryPullPrerollCallback
wrapped' = (a -> AppSinkTryPullPrerollCallback)
-> C_AppSinkTryPullPrerollCallback
forall a.
GObject a =>
(a -> AppSinkTryPullPrerollCallback)
-> C_AppSinkTryPullPrerollCallback
wrap_AppSinkTryPullSampleCallback a -> AppSinkTryPullPrerollCallback
wrapped
FunPtr C_AppSinkTryPullPrerollCallback
wrapped'' <- C_AppSinkTryPullPrerollCallback
-> IO (FunPtr C_AppSinkTryPullPrerollCallback)
mk_AppSinkTryPullSampleCallback C_AppSinkTryPullPrerollCallback
wrapped'
a
-> Text
-> FunPtr C_AppSinkTryPullPrerollCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"try-pull-sample" FunPtr C_AppSinkTryPullPrerollCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AppSinkTryPullSampleSignalInfo
instance SignalInfo AppSinkTryPullSampleSignalInfo where
type HaskellCallbackType AppSinkTryPullSampleSignalInfo = AppSinkTryPullSampleCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AppSinkTryPullSampleCallback cb
cb'' <- mk_AppSinkTryPullSampleCallback cb'
connectSignalFunPtr obj "try-pull-sample" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink::try-pull-sample"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#g:signal:tryPullSample"})
#endif
getAppSinkBufferList :: (MonadIO m, IsAppSink o) => o -> m Bool
getAppSinkBufferList :: forall (m :: * -> *) o. (MonadIO m, IsAppSink o) => o -> m Bool
getAppSinkBufferList o
obj = AppSinkNewSerializedEventCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (AppSinkNewSerializedEventCallback -> m Bool)
-> AppSinkNewSerializedEventCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> AppSinkNewSerializedEventCallback
forall a.
GObject a =>
a -> String -> AppSinkNewSerializedEventCallback
B.Properties.getObjectPropertyBool o
obj String
"buffer-list"
setAppSinkBufferList :: (MonadIO m, IsAppSink o) => o -> Bool -> m ()
setAppSinkBufferList :: forall (m :: * -> *) o.
(MonadIO m, IsAppSink o) =>
o -> Bool -> m ()
setAppSinkBufferList 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
"buffer-list" Bool
val
constructAppSinkBufferList :: (IsAppSink o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructAppSinkBufferList :: forall o (m :: * -> *).
(IsAppSink o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructAppSinkBufferList 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
"buffer-list" Bool
val
#if defined(ENABLE_OVERLOADING)
data AppSinkBufferListPropertyInfo
instance AttrInfo AppSinkBufferListPropertyInfo where
type AttrAllowedOps AppSinkBufferListPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSinkBufferListPropertyInfo = IsAppSink
type AttrSetTypeConstraint AppSinkBufferListPropertyInfo = (~) Bool
type AttrTransferTypeConstraint AppSinkBufferListPropertyInfo = (~) Bool
type AttrTransferType AppSinkBufferListPropertyInfo = Bool
type AttrGetType AppSinkBufferListPropertyInfo = Bool
type AttrLabel AppSinkBufferListPropertyInfo = "buffer-list"
type AttrOrigin AppSinkBufferListPropertyInfo = AppSink
attrGet = getAppSinkBufferList
attrSet = setAppSinkBufferList
attrTransfer _ v = do
return v
attrConstruct = constructAppSinkBufferList
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.bufferList"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#g:attr:bufferList"
})
#endif
getAppSinkCaps :: (MonadIO m, IsAppSink o) => o -> m (Maybe Gst.Caps.Caps)
getAppSinkCaps :: forall (m :: * -> *) o.
(MonadIO m, IsAppSink o) =>
o -> m (Maybe Caps)
getAppSinkCaps 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
setAppSinkCaps :: (MonadIO m, IsAppSink o) => o -> Gst.Caps.Caps -> m ()
setAppSinkCaps :: forall (m :: * -> *) o.
(MonadIO m, IsAppSink o) =>
o -> Caps -> m ()
setAppSinkCaps 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)
constructAppSinkCaps :: (IsAppSink o, MIO.MonadIO m) => Gst.Caps.Caps -> m (GValueConstruct o)
constructAppSinkCaps :: forall o (m :: * -> *).
(IsAppSink o, MonadIO m) =>
Caps -> m (GValueConstruct o)
constructAppSinkCaps 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)
clearAppSinkCaps :: (MonadIO m, IsAppSink o) => o -> m ()
clearAppSinkCaps :: forall (m :: * -> *) o. (MonadIO m, IsAppSink o) => o -> m ()
clearAppSinkCaps 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 AppSinkCapsPropertyInfo
instance AttrInfo AppSinkCapsPropertyInfo where
type AttrAllowedOps AppSinkCapsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint AppSinkCapsPropertyInfo = IsAppSink
type AttrSetTypeConstraint AppSinkCapsPropertyInfo = (~) Gst.Caps.Caps
type AttrTransferTypeConstraint AppSinkCapsPropertyInfo = (~) Gst.Caps.Caps
type AttrTransferType AppSinkCapsPropertyInfo = Gst.Caps.Caps
type AttrGetType AppSinkCapsPropertyInfo = (Maybe Gst.Caps.Caps)
type AttrLabel AppSinkCapsPropertyInfo = "caps"
type AttrOrigin AppSinkCapsPropertyInfo = AppSink
attrGet = getAppSinkCaps
attrSet = setAppSinkCaps
attrTransfer _ v = do
return v
attrConstruct = constructAppSinkCaps
attrClear = clearAppSinkCaps
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.caps"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#g:attr:caps"
})
#endif
getAppSinkDrop :: (MonadIO m, IsAppSink o) => o -> m Bool
getAppSinkDrop :: forall (m :: * -> *) o. (MonadIO m, IsAppSink o) => o -> m Bool
getAppSinkDrop o
obj = AppSinkNewSerializedEventCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (AppSinkNewSerializedEventCallback -> m Bool)
-> AppSinkNewSerializedEventCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> AppSinkNewSerializedEventCallback
forall a.
GObject a =>
a -> String -> AppSinkNewSerializedEventCallback
B.Properties.getObjectPropertyBool o
obj String
"drop"
setAppSinkDrop :: (MonadIO m, IsAppSink o) => o -> Bool -> m ()
setAppSinkDrop :: forall (m :: * -> *) o.
(MonadIO m, IsAppSink o) =>
o -> Bool -> m ()
setAppSinkDrop 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
"drop" Bool
val
constructAppSinkDrop :: (IsAppSink o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructAppSinkDrop :: forall o (m :: * -> *).
(IsAppSink o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructAppSinkDrop 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
"drop" Bool
val
#if defined(ENABLE_OVERLOADING)
data AppSinkDropPropertyInfo
instance AttrInfo AppSinkDropPropertyInfo where
type AttrAllowedOps AppSinkDropPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSinkDropPropertyInfo = IsAppSink
type AttrSetTypeConstraint AppSinkDropPropertyInfo = (~) Bool
type AttrTransferTypeConstraint AppSinkDropPropertyInfo = (~) Bool
type AttrTransferType AppSinkDropPropertyInfo = Bool
type AttrGetType AppSinkDropPropertyInfo = Bool
type AttrLabel AppSinkDropPropertyInfo = "drop"
type AttrOrigin AppSinkDropPropertyInfo = AppSink
attrGet = getAppSinkDrop
attrSet = setAppSinkDrop
attrTransfer _ v = do
return v
attrConstruct = constructAppSinkDrop
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.drop"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#g:attr:drop"
})
#endif
getAppSinkEmitSignals :: (MonadIO m, IsAppSink o) => o -> m Bool
getAppSinkEmitSignals :: forall (m :: * -> *) o. (MonadIO m, IsAppSink o) => o -> m Bool
getAppSinkEmitSignals o
obj = AppSinkNewSerializedEventCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (AppSinkNewSerializedEventCallback -> m Bool)
-> AppSinkNewSerializedEventCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> AppSinkNewSerializedEventCallback
forall a.
GObject a =>
a -> String -> AppSinkNewSerializedEventCallback
B.Properties.getObjectPropertyBool o
obj String
"emit-signals"
setAppSinkEmitSignals :: (MonadIO m, IsAppSink o) => o -> Bool -> m ()
setAppSinkEmitSignals :: forall (m :: * -> *) o.
(MonadIO m, IsAppSink o) =>
o -> Bool -> m ()
setAppSinkEmitSignals 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
constructAppSinkEmitSignals :: (IsAppSink o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructAppSinkEmitSignals :: forall o (m :: * -> *).
(IsAppSink o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructAppSinkEmitSignals 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 AppSinkEmitSignalsPropertyInfo
instance AttrInfo AppSinkEmitSignalsPropertyInfo where
type AttrAllowedOps AppSinkEmitSignalsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSinkEmitSignalsPropertyInfo = IsAppSink
type AttrSetTypeConstraint AppSinkEmitSignalsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint AppSinkEmitSignalsPropertyInfo = (~) Bool
type AttrTransferType AppSinkEmitSignalsPropertyInfo = Bool
type AttrGetType AppSinkEmitSignalsPropertyInfo = Bool
type AttrLabel AppSinkEmitSignalsPropertyInfo = "emit-signals"
type AttrOrigin AppSinkEmitSignalsPropertyInfo = AppSink
attrGet = getAppSinkEmitSignals
attrSet = setAppSinkEmitSignals
attrTransfer _ v = do
return v
attrConstruct = constructAppSinkEmitSignals
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.emitSignals"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#g:attr:emitSignals"
})
#endif
getAppSinkEos :: (MonadIO m, IsAppSink o) => o -> m Bool
getAppSinkEos :: forall (m :: * -> *) o. (MonadIO m, IsAppSink o) => o -> m Bool
getAppSinkEos o
obj = AppSinkNewSerializedEventCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (AppSinkNewSerializedEventCallback -> m Bool)
-> AppSinkNewSerializedEventCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> AppSinkNewSerializedEventCallback
forall a.
GObject a =>
a -> String -> AppSinkNewSerializedEventCallback
B.Properties.getObjectPropertyBool o
obj String
"eos"
#if defined(ENABLE_OVERLOADING)
data AppSinkEosPropertyInfo
instance AttrInfo AppSinkEosPropertyInfo where
type AttrAllowedOps AppSinkEosPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint AppSinkEosPropertyInfo = IsAppSink
type AttrSetTypeConstraint AppSinkEosPropertyInfo = (~) ()
type AttrTransferTypeConstraint AppSinkEosPropertyInfo = (~) ()
type AttrTransferType AppSinkEosPropertyInfo = ()
type AttrGetType AppSinkEosPropertyInfo = Bool
type AttrLabel AppSinkEosPropertyInfo = "eos"
type AttrOrigin AppSinkEosPropertyInfo = AppSink
attrGet = getAppSinkEos
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.eos"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#g:attr:eos"
})
#endif
getAppSinkMaxBuffers :: (MonadIO m, IsAppSink o) => o -> m Word32
getAppSinkMaxBuffers :: forall (m :: * -> *) o. (MonadIO m, IsAppSink o) => o -> m Word32
getAppSinkMaxBuffers 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
"max-buffers"
setAppSinkMaxBuffers :: (MonadIO m, IsAppSink o) => o -> Word32 -> m ()
setAppSinkMaxBuffers :: forall (m :: * -> *) o.
(MonadIO m, IsAppSink o) =>
o -> Word32 -> m ()
setAppSinkMaxBuffers 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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"max-buffers" Word32
val
constructAppSinkMaxBuffers :: (IsAppSink o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructAppSinkMaxBuffers :: forall o (m :: * -> *).
(IsAppSink o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructAppSinkMaxBuffers 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
"max-buffers" Word32
val
#if defined(ENABLE_OVERLOADING)
data AppSinkMaxBuffersPropertyInfo
instance AttrInfo AppSinkMaxBuffersPropertyInfo where
type AttrAllowedOps AppSinkMaxBuffersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSinkMaxBuffersPropertyInfo = IsAppSink
type AttrSetTypeConstraint AppSinkMaxBuffersPropertyInfo = (~) Word32
type AttrTransferTypeConstraint AppSinkMaxBuffersPropertyInfo = (~) Word32
type AttrTransferType AppSinkMaxBuffersPropertyInfo = Word32
type AttrGetType AppSinkMaxBuffersPropertyInfo = Word32
type AttrLabel AppSinkMaxBuffersPropertyInfo = "max-buffers"
type AttrOrigin AppSinkMaxBuffersPropertyInfo = AppSink
attrGet = getAppSinkMaxBuffers
attrSet = setAppSinkMaxBuffers
attrTransfer _ v = do
return v
attrConstruct = constructAppSinkMaxBuffers
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.maxBuffers"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#g:attr:maxBuffers"
})
#endif
getAppSinkWaitOnEos :: (MonadIO m, IsAppSink o) => o -> m Bool
getAppSinkWaitOnEos :: forall (m :: * -> *) o. (MonadIO m, IsAppSink o) => o -> m Bool
getAppSinkWaitOnEos o
obj = AppSinkNewSerializedEventCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (AppSinkNewSerializedEventCallback -> m Bool)
-> AppSinkNewSerializedEventCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> AppSinkNewSerializedEventCallback
forall a.
GObject a =>
a -> String -> AppSinkNewSerializedEventCallback
B.Properties.getObjectPropertyBool o
obj String
"wait-on-eos"
setAppSinkWaitOnEos :: (MonadIO m, IsAppSink o) => o -> Bool -> m ()
setAppSinkWaitOnEos :: forall (m :: * -> *) o.
(MonadIO m, IsAppSink o) =>
o -> Bool -> m ()
setAppSinkWaitOnEos 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
"wait-on-eos" Bool
val
constructAppSinkWaitOnEos :: (IsAppSink o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructAppSinkWaitOnEos :: forall o (m :: * -> *).
(IsAppSink o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructAppSinkWaitOnEos 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
"wait-on-eos" Bool
val
#if defined(ENABLE_OVERLOADING)
data AppSinkWaitOnEosPropertyInfo
instance AttrInfo AppSinkWaitOnEosPropertyInfo where
type AttrAllowedOps AppSinkWaitOnEosPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AppSinkWaitOnEosPropertyInfo = IsAppSink
type AttrSetTypeConstraint AppSinkWaitOnEosPropertyInfo = (~) Bool
type AttrTransferTypeConstraint AppSinkWaitOnEosPropertyInfo = (~) Bool
type AttrTransferType AppSinkWaitOnEosPropertyInfo = Bool
type AttrGetType AppSinkWaitOnEosPropertyInfo = Bool
type AttrLabel AppSinkWaitOnEosPropertyInfo = "wait-on-eos"
type AttrOrigin AppSinkWaitOnEosPropertyInfo = AppSink
attrGet = getAppSinkWaitOnEos
attrSet = setAppSinkWaitOnEos
attrTransfer _ v = do
return v
attrConstruct = constructAppSinkWaitOnEos
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.waitOnEos"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#g:attr:waitOnEos"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList AppSink
type instance O.AttributeList AppSink = AppSinkAttributeList
type AppSinkAttributeList = ('[ '("async", GstBase.BaseSink.BaseSinkAsyncPropertyInfo), '("blocksize", GstBase.BaseSink.BaseSinkBlocksizePropertyInfo), '("bufferList", AppSinkBufferListPropertyInfo), '("caps", AppSinkCapsPropertyInfo), '("drop", AppSinkDropPropertyInfo), '("emitSignals", AppSinkEmitSignalsPropertyInfo), '("enableLastSample", GstBase.BaseSink.BaseSinkEnableLastSamplePropertyInfo), '("eos", AppSinkEosPropertyInfo), '("lastSample", GstBase.BaseSink.BaseSinkLastSamplePropertyInfo), '("maxBitrate", GstBase.BaseSink.BaseSinkMaxBitratePropertyInfo), '("maxBuffers", AppSinkMaxBuffersPropertyInfo), '("maxLateness", GstBase.BaseSink.BaseSinkMaxLatenessPropertyInfo), '("name", Gst.Object.ObjectNamePropertyInfo), '("parent", Gst.Object.ObjectParentPropertyInfo), '("processingDeadline", GstBase.BaseSink.BaseSinkProcessingDeadlinePropertyInfo), '("qos", GstBase.BaseSink.BaseSinkQosPropertyInfo), '("renderDelay", GstBase.BaseSink.BaseSinkRenderDelayPropertyInfo), '("stats", GstBase.BaseSink.BaseSinkStatsPropertyInfo), '("sync", GstBase.BaseSink.BaseSinkSyncPropertyInfo), '("throttleTime", GstBase.BaseSink.BaseSinkThrottleTimePropertyInfo), '("tsOffset", GstBase.BaseSink.BaseSinkTsOffsetPropertyInfo), '("waitOnEos", AppSinkWaitOnEosPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
appSinkBufferList :: AttrLabelProxy "bufferList"
appSinkBufferList = AttrLabelProxy
appSinkCaps :: AttrLabelProxy "caps"
appSinkCaps = AttrLabelProxy
appSinkDrop :: AttrLabelProxy "drop"
appSinkDrop = AttrLabelProxy
appSinkEmitSignals :: AttrLabelProxy "emitSignals"
appSinkEmitSignals = AttrLabelProxy
appSinkEos :: AttrLabelProxy "eos"
appSinkEos = AttrLabelProxy
appSinkMaxBuffers :: AttrLabelProxy "maxBuffers"
appSinkMaxBuffers = AttrLabelProxy
appSinkWaitOnEos :: AttrLabelProxy "waitOnEos"
appSinkWaitOnEos = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList AppSink = AppSinkSignalList
type AppSinkSignalList = ('[ '("deepNotify", Gst.Object.ObjectDeepNotifySignalInfo), '("eos", AppSinkEosSignalInfo), '("newPreroll", AppSinkNewPrerollSignalInfo), '("newSample", AppSinkNewSampleSignalInfo), '("newSerializedEvent", AppSinkNewSerializedEventSignalInfo), '("noMorePads", Gst.Element.ElementNoMorePadsSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("padAdded", Gst.Element.ElementPadAddedSignalInfo), '("padRemoved", Gst.Element.ElementPadRemovedSignalInfo), '("pullPreroll", AppSinkPullPrerollSignalInfo), '("pullSample", AppSinkPullSampleSignalInfo), '("tryPullObject", AppSinkTryPullObjectSignalInfo), '("tryPullPreroll", AppSinkTryPullPrerollSignalInfo), '("tryPullSample", AppSinkTryPullSampleSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gst_app_sink_get_buffer_list_support" gst_app_sink_get_buffer_list_support ::
Ptr AppSink ->
IO CInt
appSinkGetBufferListSupport ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSink a) =>
a
-> m Bool
appSinkGetBufferListSupport :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSink a) =>
a -> m Bool
appSinkGetBufferListSupport a
appsink = AppSinkNewSerializedEventCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (AppSinkNewSerializedEventCallback -> m Bool)
-> AppSinkNewSerializedEventCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSink
appsink' <- a -> IO (Ptr AppSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsink
CInt
result <- Ptr AppSink -> IO CInt
gst_app_sink_get_buffer_list_support Ptr AppSink
appsink'
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
appsink
Bool -> AppSinkNewSerializedEventCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AppSinkGetBufferListSupportMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAppSink a) => O.OverloadedMethod AppSinkGetBufferListSupportMethodInfo a signature where
overloadedMethod = appSinkGetBufferListSupport
instance O.OverloadedMethodInfo AppSinkGetBufferListSupportMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.appSinkGetBufferListSupport",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#v:appSinkGetBufferListSupport"
})
#endif
foreign import ccall "gst_app_sink_get_caps" gst_app_sink_get_caps ::
Ptr AppSink ->
IO (Ptr Gst.Caps.Caps)
appSinkGetCaps ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSink a) =>
a
-> m (Maybe Gst.Caps.Caps)
appSinkGetCaps :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSink a) =>
a -> m (Maybe Caps)
appSinkGetCaps a
appsink = 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 AppSink
appsink' <- a -> IO (Ptr AppSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsink
Ptr Caps
result <- Ptr AppSink -> IO (Ptr Caps)
gst_app_sink_get_caps Ptr AppSink
appsink'
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
appsink
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 AppSinkGetCapsMethodInfo
instance (signature ~ (m (Maybe Gst.Caps.Caps)), MonadIO m, IsAppSink a) => O.OverloadedMethod AppSinkGetCapsMethodInfo a signature where
overloadedMethod = appSinkGetCaps
instance O.OverloadedMethodInfo AppSinkGetCapsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.appSinkGetCaps",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#v:appSinkGetCaps"
})
#endif
foreign import ccall "gst_app_sink_get_drop" gst_app_sink_get_drop ::
Ptr AppSink ->
IO CInt
appSinkGetDrop ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSink a) =>
a
-> m Bool
appSinkGetDrop :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSink a) =>
a -> m Bool
appSinkGetDrop a
appsink = AppSinkNewSerializedEventCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (AppSinkNewSerializedEventCallback -> m Bool)
-> AppSinkNewSerializedEventCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSink
appsink' <- a -> IO (Ptr AppSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsink
CInt
result <- Ptr AppSink -> IO CInt
gst_app_sink_get_drop Ptr AppSink
appsink'
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
appsink
Bool -> AppSinkNewSerializedEventCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AppSinkGetDropMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAppSink a) => O.OverloadedMethod AppSinkGetDropMethodInfo a signature where
overloadedMethod = appSinkGetDrop
instance O.OverloadedMethodInfo AppSinkGetDropMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.appSinkGetDrop",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#v:appSinkGetDrop"
})
#endif
foreign import ccall "gst_app_sink_get_emit_signals" gst_app_sink_get_emit_signals ::
Ptr AppSink ->
IO CInt
appSinkGetEmitSignals ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSink a) =>
a
-> m Bool
appSinkGetEmitSignals :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSink a) =>
a -> m Bool
appSinkGetEmitSignals a
appsink = AppSinkNewSerializedEventCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (AppSinkNewSerializedEventCallback -> m Bool)
-> AppSinkNewSerializedEventCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSink
appsink' <- a -> IO (Ptr AppSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsink
CInt
result <- Ptr AppSink -> IO CInt
gst_app_sink_get_emit_signals Ptr AppSink
appsink'
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
appsink
Bool -> AppSinkNewSerializedEventCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AppSinkGetEmitSignalsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAppSink a) => O.OverloadedMethod AppSinkGetEmitSignalsMethodInfo a signature where
overloadedMethod = appSinkGetEmitSignals
instance O.OverloadedMethodInfo AppSinkGetEmitSignalsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.appSinkGetEmitSignals",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#v:appSinkGetEmitSignals"
})
#endif
foreign import ccall "gst_app_sink_get_max_buffers" gst_app_sink_get_max_buffers ::
Ptr AppSink ->
IO Word32
appSinkGetMaxBuffers ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSink a) =>
a
-> m Word32
appSinkGetMaxBuffers :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSink a) =>
a -> m Word32
appSinkGetMaxBuffers a
appsink = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSink
appsink' <- a -> IO (Ptr AppSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsink
Word32
result <- Ptr AppSink -> IO Word32
gst_app_sink_get_max_buffers Ptr AppSink
appsink'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsink
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data AppSinkGetMaxBuffersMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsAppSink a) => O.OverloadedMethod AppSinkGetMaxBuffersMethodInfo a signature where
overloadedMethod = appSinkGetMaxBuffers
instance O.OverloadedMethodInfo AppSinkGetMaxBuffersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.appSinkGetMaxBuffers",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#v:appSinkGetMaxBuffers"
})
#endif
foreign import ccall "gst_app_sink_get_wait_on_eos" gst_app_sink_get_wait_on_eos ::
Ptr AppSink ->
IO CInt
appSinkGetWaitOnEos ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSink a) =>
a
-> m Bool
appSinkGetWaitOnEos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSink a) =>
a -> m Bool
appSinkGetWaitOnEos a
appsink = AppSinkNewSerializedEventCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (AppSinkNewSerializedEventCallback -> m Bool)
-> AppSinkNewSerializedEventCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSink
appsink' <- a -> IO (Ptr AppSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsink
CInt
result <- Ptr AppSink -> IO CInt
gst_app_sink_get_wait_on_eos Ptr AppSink
appsink'
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
appsink
Bool -> AppSinkNewSerializedEventCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AppSinkGetWaitOnEosMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAppSink a) => O.OverloadedMethod AppSinkGetWaitOnEosMethodInfo a signature where
overloadedMethod = appSinkGetWaitOnEos
instance O.OverloadedMethodInfo AppSinkGetWaitOnEosMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.appSinkGetWaitOnEos",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#v:appSinkGetWaitOnEos"
})
#endif
foreign import ccall "gst_app_sink_is_eos" gst_app_sink_is_eos ::
Ptr AppSink ->
IO CInt
appSinkIsEos ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSink a) =>
a
-> m Bool
appSinkIsEos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSink a) =>
a -> m Bool
appSinkIsEos a
appsink = AppSinkNewSerializedEventCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (AppSinkNewSerializedEventCallback -> m Bool)
-> AppSinkNewSerializedEventCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSink
appsink' <- a -> IO (Ptr AppSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsink
CInt
result <- Ptr AppSink -> IO CInt
gst_app_sink_is_eos Ptr AppSink
appsink'
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
appsink
Bool -> AppSinkNewSerializedEventCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AppSinkIsEosMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAppSink a) => O.OverloadedMethod AppSinkIsEosMethodInfo a signature where
overloadedMethod = appSinkIsEos
instance O.OverloadedMethodInfo AppSinkIsEosMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.appSinkIsEos",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#v:appSinkIsEos"
})
#endif
foreign import ccall "gst_app_sink_pull_preroll" gst_app_sink_pull_preroll ::
Ptr AppSink ->
IO (Ptr Gst.Sample.Sample)
appSinkPullPreroll ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSink a) =>
a
-> m (Maybe Gst.Sample.Sample)
appSinkPullPreroll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSink a) =>
a -> m (Maybe Sample)
appSinkPullPreroll a
appsink = AppSinkPullPrerollCallback -> m (Maybe Sample)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (AppSinkPullPrerollCallback -> m (Maybe Sample))
-> AppSinkPullPrerollCallback -> m (Maybe Sample)
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSink
appsink' <- a -> IO (Ptr AppSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsink
Ptr Sample
result <- Ptr AppSink -> IO (Ptr Sample)
gst_app_sink_pull_preroll Ptr AppSink
appsink'
Maybe Sample
maybeResult <- Ptr Sample
-> (Ptr Sample -> IO Sample) -> AppSinkPullPrerollCallback
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Sample
result ((Ptr Sample -> IO Sample) -> AppSinkPullPrerollCallback)
-> (Ptr Sample -> IO Sample) -> AppSinkPullPrerollCallback
forall a b. (a -> b) -> a -> b
$ \Ptr Sample
result' -> do
Sample
result'' <- ((ManagedPtr Sample -> Sample) -> Ptr Sample -> IO Sample
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Sample -> Sample
Gst.Sample.Sample) Ptr Sample
result'
Sample -> IO Sample
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Sample
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsink
Maybe Sample -> AppSinkPullPrerollCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Sample
maybeResult
#if defined(ENABLE_OVERLOADING)
data AppSinkPullPrerollMethodInfo
instance (signature ~ (m (Maybe Gst.Sample.Sample)), MonadIO m, IsAppSink a) => O.OverloadedMethod AppSinkPullPrerollMethodInfo a signature where
overloadedMethod = appSinkPullPreroll
instance O.OverloadedMethodInfo AppSinkPullPrerollMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.appSinkPullPreroll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#v:appSinkPullPreroll"
})
#endif
foreign import ccall "gst_app_sink_pull_sample" gst_app_sink_pull_sample ::
Ptr AppSink ->
IO (Ptr Gst.Sample.Sample)
appSinkPullSample ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSink a) =>
a
-> m (Maybe Gst.Sample.Sample)
appSinkPullSample :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSink a) =>
a -> m (Maybe Sample)
appSinkPullSample a
appsink = AppSinkPullPrerollCallback -> m (Maybe Sample)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (AppSinkPullPrerollCallback -> m (Maybe Sample))
-> AppSinkPullPrerollCallback -> m (Maybe Sample)
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSink
appsink' <- a -> IO (Ptr AppSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsink
Ptr Sample
result <- Ptr AppSink -> IO (Ptr Sample)
gst_app_sink_pull_sample Ptr AppSink
appsink'
Maybe Sample
maybeResult <- Ptr Sample
-> (Ptr Sample -> IO Sample) -> AppSinkPullPrerollCallback
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Sample
result ((Ptr Sample -> IO Sample) -> AppSinkPullPrerollCallback)
-> (Ptr Sample -> IO Sample) -> AppSinkPullPrerollCallback
forall a b. (a -> b) -> a -> b
$ \Ptr Sample
result' -> do
Sample
result'' <- ((ManagedPtr Sample -> Sample) -> Ptr Sample -> IO Sample
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Sample -> Sample
Gst.Sample.Sample) Ptr Sample
result'
Sample -> IO Sample
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Sample
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsink
Maybe Sample -> AppSinkPullPrerollCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Sample
maybeResult
#if defined(ENABLE_OVERLOADING)
data AppSinkPullSampleMethodInfo
instance (signature ~ (m (Maybe Gst.Sample.Sample)), MonadIO m, IsAppSink a) => O.OverloadedMethod AppSinkPullSampleMethodInfo a signature where
overloadedMethod = appSinkPullSample
instance O.OverloadedMethodInfo AppSinkPullSampleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.appSinkPullSample",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#v:appSinkPullSample"
})
#endif
foreign import ccall "gst_app_sink_set_buffer_list_support" gst_app_sink_set_buffer_list_support ::
Ptr AppSink ->
CInt ->
IO ()
appSinkSetBufferListSupport ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSink a) =>
a
-> Bool
-> m ()
appSinkSetBufferListSupport :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSink a) =>
a -> Bool -> m ()
appSinkSetBufferListSupport a
appsink Bool
enableLists = 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 AppSink
appsink' <- a -> IO (Ptr AppSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsink
let enableLists' :: CInt
enableLists' = (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
enableLists
Ptr AppSink -> CInt -> IO ()
gst_app_sink_set_buffer_list_support Ptr AppSink
appsink' CInt
enableLists'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsink
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppSinkSetBufferListSupportMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAppSink a) => O.OverloadedMethod AppSinkSetBufferListSupportMethodInfo a signature where
overloadedMethod = appSinkSetBufferListSupport
instance O.OverloadedMethodInfo AppSinkSetBufferListSupportMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.appSinkSetBufferListSupport",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#v:appSinkSetBufferListSupport"
})
#endif
foreign import ccall "gst_app_sink_set_caps" gst_app_sink_set_caps ::
Ptr AppSink ->
Ptr Gst.Caps.Caps ->
IO ()
appSinkSetCaps ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSink a) =>
a
-> Maybe (Gst.Caps.Caps)
-> m ()
appSinkSetCaps :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSink a) =>
a -> Maybe Caps -> m ()
appSinkSetCaps a
appsink 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 AppSink
appsink' <- a -> IO (Ptr AppSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsink
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 AppSink -> Ptr Caps -> IO ()
gst_app_sink_set_caps Ptr AppSink
appsink' Ptr Caps
maybeCaps
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsink
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 AppSinkSetCapsMethodInfo
instance (signature ~ (Maybe (Gst.Caps.Caps) -> m ()), MonadIO m, IsAppSink a) => O.OverloadedMethod AppSinkSetCapsMethodInfo a signature where
overloadedMethod = appSinkSetCaps
instance O.OverloadedMethodInfo AppSinkSetCapsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.appSinkSetCaps",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#v:appSinkSetCaps"
})
#endif
foreign import ccall "gst_app_sink_set_drop" gst_app_sink_set_drop ::
Ptr AppSink ->
CInt ->
IO ()
appSinkSetDrop ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSink a) =>
a
-> Bool
-> m ()
appSinkSetDrop :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSink a) =>
a -> Bool -> m ()
appSinkSetDrop a
appsink Bool
drop = 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 AppSink
appsink' <- a -> IO (Ptr AppSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsink
let drop' :: CInt
drop' = (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
drop
Ptr AppSink -> CInt -> IO ()
gst_app_sink_set_drop Ptr AppSink
appsink' CInt
drop'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsink
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppSinkSetDropMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAppSink a) => O.OverloadedMethod AppSinkSetDropMethodInfo a signature where
overloadedMethod = appSinkSetDrop
instance O.OverloadedMethodInfo AppSinkSetDropMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.appSinkSetDrop",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#v:appSinkSetDrop"
})
#endif
foreign import ccall "gst_app_sink_set_emit_signals" gst_app_sink_set_emit_signals ::
Ptr AppSink ->
CInt ->
IO ()
appSinkSetEmitSignals ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSink a) =>
a
-> Bool
-> m ()
appSinkSetEmitSignals :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSink a) =>
a -> Bool -> m ()
appSinkSetEmitSignals a
appsink 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 AppSink
appsink' <- a -> IO (Ptr AppSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsink
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 AppSink -> CInt -> IO ()
gst_app_sink_set_emit_signals Ptr AppSink
appsink' CInt
emit'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsink
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppSinkSetEmitSignalsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAppSink a) => O.OverloadedMethod AppSinkSetEmitSignalsMethodInfo a signature where
overloadedMethod = appSinkSetEmitSignals
instance O.OverloadedMethodInfo AppSinkSetEmitSignalsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.appSinkSetEmitSignals",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#v:appSinkSetEmitSignals"
})
#endif
foreign import ccall "gst_app_sink_set_max_buffers" gst_app_sink_set_max_buffers ::
Ptr AppSink ->
Word32 ->
IO ()
appSinkSetMaxBuffers ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSink a) =>
a
-> Word32
-> m ()
appSinkSetMaxBuffers :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSink a) =>
a -> Word32 -> m ()
appSinkSetMaxBuffers a
appsink Word32
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 AppSink
appsink' <- a -> IO (Ptr AppSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsink
Ptr AppSink -> Word32 -> IO ()
gst_app_sink_set_max_buffers Ptr AppSink
appsink' Word32
max
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsink
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppSinkSetMaxBuffersMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsAppSink a) => O.OverloadedMethod AppSinkSetMaxBuffersMethodInfo a signature where
overloadedMethod = appSinkSetMaxBuffers
instance O.OverloadedMethodInfo AppSinkSetMaxBuffersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.appSinkSetMaxBuffers",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#v:appSinkSetMaxBuffers"
})
#endif
foreign import ccall "gst_app_sink_set_wait_on_eos" gst_app_sink_set_wait_on_eos ::
Ptr AppSink ->
CInt ->
IO ()
appSinkSetWaitOnEos ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSink a) =>
a
-> Bool
-> m ()
appSinkSetWaitOnEos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSink a) =>
a -> Bool -> m ()
appSinkSetWaitOnEos a
appsink Bool
wait = 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 AppSink
appsink' <- a -> IO (Ptr AppSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsink
let wait' :: CInt
wait' = (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
wait
Ptr AppSink -> CInt -> IO ()
gst_app_sink_set_wait_on_eos Ptr AppSink
appsink' CInt
wait'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsink
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AppSinkSetWaitOnEosMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAppSink a) => O.OverloadedMethod AppSinkSetWaitOnEosMethodInfo a signature where
overloadedMethod = appSinkSetWaitOnEos
instance O.OverloadedMethodInfo AppSinkSetWaitOnEosMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.appSinkSetWaitOnEos",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#v:appSinkSetWaitOnEos"
})
#endif
foreign import ccall "gst_app_sink_try_pull_preroll" gst_app_sink_try_pull_preroll ::
Ptr AppSink ->
Word64 ->
IO (Ptr Gst.Sample.Sample)
appSinkTryPullPreroll ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSink a) =>
a
-> Word64
-> m (Maybe Gst.Sample.Sample)
appSinkTryPullPreroll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSink a) =>
a -> Word64 -> m (Maybe Sample)
appSinkTryPullPreroll a
appsink Word64
timeout = AppSinkPullPrerollCallback -> m (Maybe Sample)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (AppSinkPullPrerollCallback -> m (Maybe Sample))
-> AppSinkPullPrerollCallback -> m (Maybe Sample)
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSink
appsink' <- a -> IO (Ptr AppSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsink
Ptr Sample
result <- Ptr AppSink -> Word64 -> IO (Ptr Sample)
gst_app_sink_try_pull_preroll Ptr AppSink
appsink' Word64
timeout
Maybe Sample
maybeResult <- Ptr Sample
-> (Ptr Sample -> IO Sample) -> AppSinkPullPrerollCallback
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Sample
result ((Ptr Sample -> IO Sample) -> AppSinkPullPrerollCallback)
-> (Ptr Sample -> IO Sample) -> AppSinkPullPrerollCallback
forall a b. (a -> b) -> a -> b
$ \Ptr Sample
result' -> do
Sample
result'' <- ((ManagedPtr Sample -> Sample) -> Ptr Sample -> IO Sample
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Sample -> Sample
Gst.Sample.Sample) Ptr Sample
result'
Sample -> IO Sample
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Sample
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsink
Maybe Sample -> AppSinkPullPrerollCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Sample
maybeResult
#if defined(ENABLE_OVERLOADING)
data AppSinkTryPullPrerollMethodInfo
instance (signature ~ (Word64 -> m (Maybe Gst.Sample.Sample)), MonadIO m, IsAppSink a) => O.OverloadedMethod AppSinkTryPullPrerollMethodInfo a signature where
overloadedMethod = appSinkTryPullPreroll
instance O.OverloadedMethodInfo AppSinkTryPullPrerollMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.appSinkTryPullPreroll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#v:appSinkTryPullPreroll"
})
#endif
foreign import ccall "gst_app_sink_try_pull_sample" gst_app_sink_try_pull_sample ::
Ptr AppSink ->
Word64 ->
IO (Ptr Gst.Sample.Sample)
appSinkTryPullSample ::
(B.CallStack.HasCallStack, MonadIO m, IsAppSink a) =>
a
-> Word64
-> m (Maybe Gst.Sample.Sample)
appSinkTryPullSample :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAppSink a) =>
a -> Word64 -> m (Maybe Sample)
appSinkTryPullSample a
appsink Word64
timeout = AppSinkPullPrerollCallback -> m (Maybe Sample)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (AppSinkPullPrerollCallback -> m (Maybe Sample))
-> AppSinkPullPrerollCallback -> m (Maybe Sample)
forall a b. (a -> b) -> a -> b
$ do
Ptr AppSink
appsink' <- a -> IO (Ptr AppSink)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
appsink
Ptr Sample
result <- Ptr AppSink -> Word64 -> IO (Ptr Sample)
gst_app_sink_try_pull_sample Ptr AppSink
appsink' Word64
timeout
Maybe Sample
maybeResult <- Ptr Sample
-> (Ptr Sample -> IO Sample) -> AppSinkPullPrerollCallback
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Sample
result ((Ptr Sample -> IO Sample) -> AppSinkPullPrerollCallback)
-> (Ptr Sample -> IO Sample) -> AppSinkPullPrerollCallback
forall a b. (a -> b) -> a -> b
$ \Ptr Sample
result' -> do
Sample
result'' <- ((ManagedPtr Sample -> Sample) -> Ptr Sample -> IO Sample
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Sample -> Sample
Gst.Sample.Sample) Ptr Sample
result'
Sample -> IO Sample
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Sample
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
appsink
Maybe Sample -> AppSinkPullPrerollCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Sample
maybeResult
#if defined(ENABLE_OVERLOADING)
data AppSinkTryPullSampleMethodInfo
instance (signature ~ (Word64 -> m (Maybe Gst.Sample.Sample)), MonadIO m, IsAppSink a) => O.OverloadedMethod AppSinkTryPullSampleMethodInfo a signature where
overloadedMethod = appSinkTryPullSample
instance O.OverloadedMethodInfo AppSinkTryPullSampleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstApp.Objects.AppSink.appSinkTryPullSample",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstapp-1.0.28/docs/GI-GstApp-Objects-AppSink.html#v:appSinkTryPullSample"
})
#endif