{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GstPbutils.Objects.EncodingProfile
(
EncodingProfile(..) ,
IsEncodingProfile ,
toEncodingProfile ,
#if defined(ENABLE_OVERLOADING)
ResolveEncodingProfileMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
EncodingProfileCopyMethodInfo ,
#endif
encodingProfileCopy ,
encodingProfileFind ,
encodingProfileFromDiscoverer ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileGetAllowDynamicOutputMethodInfo,
#endif
encodingProfileGetAllowDynamicOutput ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileGetDescriptionMethodInfo ,
#endif
encodingProfileGetDescription ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileGetElementPropertiesMethodInfo,
#endif
encodingProfileGetElementProperties ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileGetFileExtensionMethodInfo,
#endif
encodingProfileGetFileExtension ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileGetFormatMethodInfo ,
#endif
encodingProfileGetFormat ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileGetInputCapsMethodInfo ,
#endif
encodingProfileGetInputCaps ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileGetNameMethodInfo ,
#endif
encodingProfileGetName ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileGetPresenceMethodInfo ,
#endif
encodingProfileGetPresence ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileGetPresetMethodInfo ,
#endif
encodingProfileGetPreset ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileGetPresetNameMethodInfo ,
#endif
encodingProfileGetPresetName ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileGetRestrictionMethodInfo ,
#endif
encodingProfileGetRestriction ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileGetSingleSegmentMethodInfo,
#endif
encodingProfileGetSingleSegment ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileGetTypeNickMethodInfo ,
#endif
encodingProfileGetTypeNick ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileIsEnabledMethodInfo ,
#endif
encodingProfileIsEnabled ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileIsEqualMethodInfo ,
#endif
encodingProfileIsEqual ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileSetAllowDynamicOutputMethodInfo,
#endif
encodingProfileSetAllowDynamicOutput ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileSetDescriptionMethodInfo ,
#endif
encodingProfileSetDescription ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileSetElementPropertiesMethodInfo,
#endif
encodingProfileSetElementProperties ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileSetEnabledMethodInfo ,
#endif
encodingProfileSetEnabled ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileSetFormatMethodInfo ,
#endif
encodingProfileSetFormat ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileSetNameMethodInfo ,
#endif
encodingProfileSetName ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileSetPresenceMethodInfo ,
#endif
encodingProfileSetPresence ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileSetPresetMethodInfo ,
#endif
encodingProfileSetPreset ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileSetPresetNameMethodInfo ,
#endif
encodingProfileSetPresetName ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileSetRestrictionMethodInfo ,
#endif
encodingProfileSetRestriction ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileSetSingleSegmentMethodInfo,
#endif
encodingProfileSetSingleSegment ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileElementPropertiesPropertyInfo,
#endif
clearEncodingProfileElementProperties ,
constructEncodingProfileElementProperties,
#if defined(ENABLE_OVERLOADING)
encodingProfileElementProperties ,
#endif
getEncodingProfileElementProperties ,
setEncodingProfileElementProperties ,
#if defined(ENABLE_OVERLOADING)
EncodingProfileRestrictionCapsPropertyInfo,
#endif
clearEncodingProfileRestrictionCaps ,
constructEncodingProfileRestrictionCaps ,
#if defined(ENABLE_OVERLOADING)
encodingProfileRestrictionCaps ,
#endif
getEncodingProfileRestrictionCaps ,
setEncodingProfileRestrictionCaps ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gst.Structs.Caps as Gst.Caps
import qualified GI.Gst.Structs.Structure as Gst.Structure
import {-# SOURCE #-} qualified GI.GstPbutils.Objects.DiscovererInfo as GstPbutils.DiscovererInfo
newtype EncodingProfile = EncodingProfile (SP.ManagedPtr EncodingProfile)
deriving (EncodingProfile -> EncodingProfile -> Bool
(EncodingProfile -> EncodingProfile -> Bool)
-> (EncodingProfile -> EncodingProfile -> Bool)
-> Eq EncodingProfile
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EncodingProfile -> EncodingProfile -> Bool
$c/= :: EncodingProfile -> EncodingProfile -> Bool
== :: EncodingProfile -> EncodingProfile -> Bool
$c== :: EncodingProfile -> EncodingProfile -> Bool
Eq)
instance SP.ManagedPtrNewtype EncodingProfile where
toManagedPtr :: EncodingProfile -> ManagedPtr EncodingProfile
toManagedPtr (EncodingProfile ManagedPtr EncodingProfile
p) = ManagedPtr EncodingProfile
p
foreign import ccall "gst_encoding_profile_get_type"
c_gst_encoding_profile_get_type :: IO B.Types.GType
instance B.Types.TypedObject EncodingProfile where
glibType :: IO GType
glibType = IO GType
c_gst_encoding_profile_get_type
instance B.Types.GObject EncodingProfile
class (SP.GObject o, O.IsDescendantOf EncodingProfile o) => IsEncodingProfile o
instance (SP.GObject o, O.IsDescendantOf EncodingProfile o) => IsEncodingProfile o
instance O.HasParentTypes EncodingProfile
type instance O.ParentTypes EncodingProfile = '[GObject.Object.Object]
toEncodingProfile :: (MIO.MonadIO m, IsEncodingProfile o) => o -> m EncodingProfile
toEncodingProfile :: forall (m :: * -> *) o.
(MonadIO m, IsEncodingProfile o) =>
o -> m EncodingProfile
toEncodingProfile = IO EncodingProfile -> m EncodingProfile
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO EncodingProfile -> m EncodingProfile)
-> (o -> IO EncodingProfile) -> o -> m EncodingProfile
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr EncodingProfile -> EncodingProfile)
-> o -> IO EncodingProfile
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr EncodingProfile -> EncodingProfile
EncodingProfile
instance B.GValue.IsGValue (Maybe EncodingProfile) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gst_encoding_profile_get_type
gvalueSet_ :: Ptr GValue -> Maybe EncodingProfile -> IO ()
gvalueSet_ Ptr GValue
gv Maybe EncodingProfile
P.Nothing = Ptr GValue -> Ptr EncodingProfile -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr EncodingProfile
forall a. Ptr a
FP.nullPtr :: FP.Ptr EncodingProfile)
gvalueSet_ Ptr GValue
gv (P.Just EncodingProfile
obj) = EncodingProfile -> (Ptr EncodingProfile -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr EncodingProfile
obj (Ptr GValue -> Ptr EncodingProfile -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe EncodingProfile)
gvalueGet_ Ptr GValue
gv = do
Ptr EncodingProfile
ptr <- Ptr GValue -> IO (Ptr EncodingProfile)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr EncodingProfile)
if Ptr EncodingProfile
ptr Ptr EncodingProfile -> Ptr EncodingProfile -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr EncodingProfile
forall a. Ptr a
FP.nullPtr
then EncodingProfile -> Maybe EncodingProfile
forall a. a -> Maybe a
P.Just (EncodingProfile -> Maybe EncodingProfile)
-> IO EncodingProfile -> IO (Maybe EncodingProfile)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr EncodingProfile -> EncodingProfile)
-> Ptr EncodingProfile -> IO EncodingProfile
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr EncodingProfile -> EncodingProfile
EncodingProfile Ptr EncodingProfile
ptr
else Maybe EncodingProfile -> IO (Maybe EncodingProfile)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe EncodingProfile
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveEncodingProfileMethod (t :: Symbol) (o :: *) :: * where
ResolveEncodingProfileMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveEncodingProfileMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveEncodingProfileMethod "copy" o = EncodingProfileCopyMethodInfo
ResolveEncodingProfileMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveEncodingProfileMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveEncodingProfileMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveEncodingProfileMethod "isEnabled" o = EncodingProfileIsEnabledMethodInfo
ResolveEncodingProfileMethod "isEqual" o = EncodingProfileIsEqualMethodInfo
ResolveEncodingProfileMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveEncodingProfileMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveEncodingProfileMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveEncodingProfileMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveEncodingProfileMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveEncodingProfileMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveEncodingProfileMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveEncodingProfileMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveEncodingProfileMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveEncodingProfileMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveEncodingProfileMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveEncodingProfileMethod "getAllowDynamicOutput" o = EncodingProfileGetAllowDynamicOutputMethodInfo
ResolveEncodingProfileMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveEncodingProfileMethod "getDescription" o = EncodingProfileGetDescriptionMethodInfo
ResolveEncodingProfileMethod "getElementProperties" o = EncodingProfileGetElementPropertiesMethodInfo
ResolveEncodingProfileMethod "getFileExtension" o = EncodingProfileGetFileExtensionMethodInfo
ResolveEncodingProfileMethod "getFormat" o = EncodingProfileGetFormatMethodInfo
ResolveEncodingProfileMethod "getInputCaps" o = EncodingProfileGetInputCapsMethodInfo
ResolveEncodingProfileMethod "getName" o = EncodingProfileGetNameMethodInfo
ResolveEncodingProfileMethod "getPresence" o = EncodingProfileGetPresenceMethodInfo
ResolveEncodingProfileMethod "getPreset" o = EncodingProfileGetPresetMethodInfo
ResolveEncodingProfileMethod "getPresetName" o = EncodingProfileGetPresetNameMethodInfo
ResolveEncodingProfileMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveEncodingProfileMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveEncodingProfileMethod "getRestriction" o = EncodingProfileGetRestrictionMethodInfo
ResolveEncodingProfileMethod "getSingleSegment" o = EncodingProfileGetSingleSegmentMethodInfo
ResolveEncodingProfileMethod "getTypeNick" o = EncodingProfileGetTypeNickMethodInfo
ResolveEncodingProfileMethod "setAllowDynamicOutput" o = EncodingProfileSetAllowDynamicOutputMethodInfo
ResolveEncodingProfileMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveEncodingProfileMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveEncodingProfileMethod "setDescription" o = EncodingProfileSetDescriptionMethodInfo
ResolveEncodingProfileMethod "setElementProperties" o = EncodingProfileSetElementPropertiesMethodInfo
ResolveEncodingProfileMethod "setEnabled" o = EncodingProfileSetEnabledMethodInfo
ResolveEncodingProfileMethod "setFormat" o = EncodingProfileSetFormatMethodInfo
ResolveEncodingProfileMethod "setName" o = EncodingProfileSetNameMethodInfo
ResolveEncodingProfileMethod "setPresence" o = EncodingProfileSetPresenceMethodInfo
ResolveEncodingProfileMethod "setPreset" o = EncodingProfileSetPresetMethodInfo
ResolveEncodingProfileMethod "setPresetName" o = EncodingProfileSetPresetNameMethodInfo
ResolveEncodingProfileMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveEncodingProfileMethod "setRestriction" o = EncodingProfileSetRestrictionMethodInfo
ResolveEncodingProfileMethod "setSingleSegment" o = EncodingProfileSetSingleSegmentMethodInfo
ResolveEncodingProfileMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEncodingProfileMethod t EncodingProfile, O.OverloadedMethod info EncodingProfile p) => OL.IsLabel t (EncodingProfile -> 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 ~ ResolveEncodingProfileMethod t EncodingProfile, O.OverloadedMethod info EncodingProfile p, R.HasField t EncodingProfile p) => R.HasField t EncodingProfile p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveEncodingProfileMethod t EncodingProfile, O.OverloadedMethodInfo info EncodingProfile) => OL.IsLabel t (O.MethodProxy info EncodingProfile) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getEncodingProfileElementProperties :: (MonadIO m, IsEncodingProfile o) => o -> m (Maybe Gst.Structure.Structure)
getEncodingProfileElementProperties :: forall (m :: * -> *) o.
(MonadIO m, IsEncodingProfile o) =>
o -> m (Maybe Structure)
getEncodingProfileElementProperties o
obj = IO (Maybe Structure) -> m (Maybe Structure)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Structure) -> m (Maybe Structure))
-> IO (Maybe Structure) -> m (Maybe Structure)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr Structure -> Structure)
-> IO (Maybe Structure)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"element-properties" ManagedPtr Structure -> Structure
Gst.Structure.Structure
setEncodingProfileElementProperties :: (MonadIO m, IsEncodingProfile o) => o -> Gst.Structure.Structure -> m ()
setEncodingProfileElementProperties :: forall (m :: * -> *) o.
(MonadIO m, IsEncodingProfile o) =>
o -> Structure -> m ()
setEncodingProfileElementProperties o
obj Structure
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Structure -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"element-properties" (Structure -> Maybe Structure
forall a. a -> Maybe a
Just Structure
val)
constructEncodingProfileElementProperties :: (IsEncodingProfile o, MIO.MonadIO m) => Gst.Structure.Structure -> m (GValueConstruct o)
constructEncodingProfileElementProperties :: forall o (m :: * -> *).
(IsEncodingProfile o, MonadIO m) =>
Structure -> m (GValueConstruct o)
constructEncodingProfileElementProperties Structure
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Structure -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"element-properties" (Structure -> Maybe Structure
forall a. a -> Maybe a
P.Just Structure
val)
clearEncodingProfileElementProperties :: (MonadIO m, IsEncodingProfile o) => o -> m ()
clearEncodingProfileElementProperties :: forall (m :: * -> *) o.
(MonadIO m, IsEncodingProfile o) =>
o -> m ()
clearEncodingProfileElementProperties o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Structure -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"element-properties" (Maybe Structure
forall a. Maybe a
Nothing :: Maybe Gst.Structure.Structure)
#if defined(ENABLE_OVERLOADING)
data EncodingProfileElementPropertiesPropertyInfo
instance AttrInfo EncodingProfileElementPropertiesPropertyInfo where
type AttrAllowedOps EncodingProfileElementPropertiesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EncodingProfileElementPropertiesPropertyInfo = IsEncodingProfile
type AttrSetTypeConstraint EncodingProfileElementPropertiesPropertyInfo = (~) Gst.Structure.Structure
type AttrTransferTypeConstraint EncodingProfileElementPropertiesPropertyInfo = (~) Gst.Structure.Structure
type AttrTransferType EncodingProfileElementPropertiesPropertyInfo = Gst.Structure.Structure
type AttrGetType EncodingProfileElementPropertiesPropertyInfo = (Maybe Gst.Structure.Structure)
type AttrLabel EncodingProfileElementPropertiesPropertyInfo = "element-properties"
type AttrOrigin EncodingProfileElementPropertiesPropertyInfo = EncodingProfile
attrGet = getEncodingProfileElementProperties
attrSet = setEncodingProfileElementProperties
attrTransfer _ v = do
return v
attrConstruct = constructEncodingProfileElementProperties
attrClear = clearEncodingProfileElementProperties
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.elementProperties"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#g:attr:elementProperties"
})
#endif
getEncodingProfileRestrictionCaps :: (MonadIO m, IsEncodingProfile o) => o -> m (Maybe Gst.Caps.Caps)
getEncodingProfileRestrictionCaps :: forall (m :: * -> *) o.
(MonadIO m, IsEncodingProfile o) =>
o -> m (Maybe Caps)
getEncodingProfileRestrictionCaps o
obj = IO (Maybe Caps) -> m (Maybe Caps)
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
"restriction-caps" ManagedPtr Caps -> Caps
Gst.Caps.Caps
setEncodingProfileRestrictionCaps :: (MonadIO m, IsEncodingProfile o) => o -> Gst.Caps.Caps -> m ()
setEncodingProfileRestrictionCaps :: forall (m :: * -> *) o.
(MonadIO m, IsEncodingProfile o) =>
o -> Caps -> m ()
setEncodingProfileRestrictionCaps o
obj Caps
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Caps -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"restriction-caps" (Caps -> Maybe Caps
forall a. a -> Maybe a
Just Caps
val)
constructEncodingProfileRestrictionCaps :: (IsEncodingProfile o, MIO.MonadIO m) => Gst.Caps.Caps -> m (GValueConstruct o)
constructEncodingProfileRestrictionCaps :: forall o (m :: * -> *).
(IsEncodingProfile o, MonadIO m) =>
Caps -> m (GValueConstruct o)
constructEncodingProfileRestrictionCaps Caps
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Caps -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"restriction-caps" (Caps -> Maybe Caps
forall a. a -> Maybe a
P.Just Caps
val)
clearEncodingProfileRestrictionCaps :: (MonadIO m, IsEncodingProfile o) => o -> m ()
clearEncodingProfileRestrictionCaps :: forall (m :: * -> *) o.
(MonadIO m, IsEncodingProfile o) =>
o -> m ()
clearEncodingProfileRestrictionCaps o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Caps -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"restriction-caps" (Maybe Caps
forall a. Maybe a
Nothing :: Maybe Gst.Caps.Caps)
#if defined(ENABLE_OVERLOADING)
data EncodingProfileRestrictionCapsPropertyInfo
instance AttrInfo EncodingProfileRestrictionCapsPropertyInfo where
type AttrAllowedOps EncodingProfileRestrictionCapsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EncodingProfileRestrictionCapsPropertyInfo = IsEncodingProfile
type AttrSetTypeConstraint EncodingProfileRestrictionCapsPropertyInfo = (~) Gst.Caps.Caps
type AttrTransferTypeConstraint EncodingProfileRestrictionCapsPropertyInfo = (~) Gst.Caps.Caps
type AttrTransferType EncodingProfileRestrictionCapsPropertyInfo = Gst.Caps.Caps
type AttrGetType EncodingProfileRestrictionCapsPropertyInfo = (Maybe Gst.Caps.Caps)
type AttrLabel EncodingProfileRestrictionCapsPropertyInfo = "restriction-caps"
type AttrOrigin EncodingProfileRestrictionCapsPropertyInfo = EncodingProfile
attrGet = getEncodingProfileRestrictionCaps
attrSet = setEncodingProfileRestrictionCaps
attrTransfer _ v = do
return v
attrConstruct = constructEncodingProfileRestrictionCaps
attrClear = clearEncodingProfileRestrictionCaps
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.restrictionCaps"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#g:attr:restrictionCaps"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList EncodingProfile
type instance O.AttributeList EncodingProfile = EncodingProfileAttributeList
type EncodingProfileAttributeList = ('[ '("elementProperties", EncodingProfileElementPropertiesPropertyInfo), '("restrictionCaps", EncodingProfileRestrictionCapsPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
encodingProfileElementProperties :: AttrLabelProxy "elementProperties"
encodingProfileElementProperties = AttrLabelProxy
encodingProfileRestrictionCaps :: AttrLabelProxy "restrictionCaps"
encodingProfileRestrictionCaps = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList EncodingProfile = EncodingProfileSignalList
type EncodingProfileSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gst_encoding_profile_copy" gst_encoding_profile_copy ::
Ptr EncodingProfile ->
IO (Ptr EncodingProfile)
encodingProfileCopy ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> m EncodingProfile
encodingProfileCopy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> m EncodingProfile
encodingProfileCopy a
self = IO EncodingProfile -> m EncodingProfile
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EncodingProfile -> m EncodingProfile)
-> IO EncodingProfile -> m EncodingProfile
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
self' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr EncodingProfile
result <- Ptr EncodingProfile -> IO (Ptr EncodingProfile)
gst_encoding_profile_copy Ptr EncodingProfile
self'
Text -> Ptr EncodingProfile -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"encodingProfileCopy" Ptr EncodingProfile
result
EncodingProfile
result' <- ((ManagedPtr EncodingProfile -> EncodingProfile)
-> Ptr EncodingProfile -> IO EncodingProfile
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr EncodingProfile -> EncodingProfile
EncodingProfile) Ptr EncodingProfile
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
EncodingProfile -> IO EncodingProfile
forall (m :: * -> *) a. Monad m => a -> m a
return EncodingProfile
result'
#if defined(ENABLE_OVERLOADING)
data EncodingProfileCopyMethodInfo
instance (signature ~ (m EncodingProfile), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileCopyMethodInfo a signature where
overloadedMethod = encodingProfileCopy
instance O.OverloadedMethodInfo EncodingProfileCopyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileCopy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileCopy"
})
#endif
foreign import ccall "gst_encoding_profile_get_allow_dynamic_output" gst_encoding_profile_get_allow_dynamic_output ::
Ptr EncodingProfile ->
IO CInt
encodingProfileGetAllowDynamicOutput ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> m Bool
encodingProfileGetAllowDynamicOutput :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> m Bool
encodingProfileGetAllowDynamicOutput a
profile = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
CInt
result <- Ptr EncodingProfile -> IO CInt
gst_encoding_profile_get_allow_dynamic_output Ptr EncodingProfile
profile'
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
profile
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data EncodingProfileGetAllowDynamicOutputMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileGetAllowDynamicOutputMethodInfo a signature where
overloadedMethod = encodingProfileGetAllowDynamicOutput
instance O.OverloadedMethodInfo EncodingProfileGetAllowDynamicOutputMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileGetAllowDynamicOutput",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileGetAllowDynamicOutput"
})
#endif
foreign import ccall "gst_encoding_profile_get_description" gst_encoding_profile_get_description ::
Ptr EncodingProfile ->
IO CString
encodingProfileGetDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> m T.Text
encodingProfileGetDescription :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> m Text
encodingProfileGetDescription a
profile = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
CString
result <- Ptr EncodingProfile -> IO CString
gst_encoding_profile_get_description Ptr EncodingProfile
profile'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"encodingProfileGetDescription" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EncodingProfileGetDescriptionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileGetDescriptionMethodInfo a signature where
overloadedMethod = encodingProfileGetDescription
instance O.OverloadedMethodInfo EncodingProfileGetDescriptionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileGetDescription",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileGetDescription"
})
#endif
foreign import ccall "gst_encoding_profile_get_element_properties" gst_encoding_profile_get_element_properties ::
Ptr EncodingProfile ->
IO (Ptr Gst.Structure.Structure)
encodingProfileGetElementProperties ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> m (Maybe Gst.Structure.Structure)
encodingProfileGetElementProperties :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> m (Maybe Structure)
encodingProfileGetElementProperties a
self = IO (Maybe Structure) -> m (Maybe Structure)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Structure) -> m (Maybe Structure))
-> IO (Maybe Structure) -> m (Maybe Structure)
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
self' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Structure
result <- Ptr EncodingProfile -> IO (Ptr Structure)
gst_encoding_profile_get_element_properties Ptr EncodingProfile
self'
Maybe Structure
maybeResult <- Ptr Structure
-> (Ptr Structure -> IO Structure) -> IO (Maybe Structure)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Structure
result ((Ptr Structure -> IO Structure) -> IO (Maybe Structure))
-> (Ptr Structure -> IO Structure) -> IO (Maybe Structure)
forall a b. (a -> b) -> a -> b
$ \Ptr Structure
result' -> do
Structure
result'' <- ((ManagedPtr Structure -> Structure)
-> Ptr Structure -> IO Structure
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Structure -> Structure
Gst.Structure.Structure) Ptr Structure
result'
Structure -> IO Structure
forall (m :: * -> *) a. Monad m => a -> m a
return Structure
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Structure -> IO (Maybe Structure)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Structure
maybeResult
#if defined(ENABLE_OVERLOADING)
data EncodingProfileGetElementPropertiesMethodInfo
instance (signature ~ (m (Maybe Gst.Structure.Structure)), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileGetElementPropertiesMethodInfo a signature where
overloadedMethod = encodingProfileGetElementProperties
instance O.OverloadedMethodInfo EncodingProfileGetElementPropertiesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileGetElementProperties",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileGetElementProperties"
})
#endif
foreign import ccall "gst_encoding_profile_get_file_extension" gst_encoding_profile_get_file_extension ::
Ptr EncodingProfile ->
IO CString
encodingProfileGetFileExtension ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> m T.Text
encodingProfileGetFileExtension :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> m Text
encodingProfileGetFileExtension a
profile = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
CString
result <- Ptr EncodingProfile -> IO CString
gst_encoding_profile_get_file_extension Ptr EncodingProfile
profile'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"encodingProfileGetFileExtension" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EncodingProfileGetFileExtensionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileGetFileExtensionMethodInfo a signature where
overloadedMethod = encodingProfileGetFileExtension
instance O.OverloadedMethodInfo EncodingProfileGetFileExtensionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileGetFileExtension",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileGetFileExtension"
})
#endif
foreign import ccall "gst_encoding_profile_get_format" gst_encoding_profile_get_format ::
Ptr EncodingProfile ->
IO (Ptr Gst.Caps.Caps)
encodingProfileGetFormat ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> m Gst.Caps.Caps
encodingProfileGetFormat :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> m Caps
encodingProfileGetFormat a
profile = IO Caps -> m Caps
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Caps -> m Caps) -> IO Caps -> m Caps
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
Ptr Caps
result <- Ptr EncodingProfile -> IO (Ptr Caps)
gst_encoding_profile_get_format Ptr EncodingProfile
profile'
Text -> Ptr Caps -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"encodingProfileGetFormat" Ptr Caps
result
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
Caps -> IO Caps
forall (m :: * -> *) a. Monad m => a -> m a
return Caps
result'
#if defined(ENABLE_OVERLOADING)
data EncodingProfileGetFormatMethodInfo
instance (signature ~ (m Gst.Caps.Caps), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileGetFormatMethodInfo a signature where
overloadedMethod = encodingProfileGetFormat
instance O.OverloadedMethodInfo EncodingProfileGetFormatMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileGetFormat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileGetFormat"
})
#endif
foreign import ccall "gst_encoding_profile_get_input_caps" gst_encoding_profile_get_input_caps ::
Ptr EncodingProfile ->
IO (Ptr Gst.Caps.Caps)
encodingProfileGetInputCaps ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> m Gst.Caps.Caps
encodingProfileGetInputCaps :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> m Caps
encodingProfileGetInputCaps a
profile = IO Caps -> m Caps
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Caps -> m Caps) -> IO Caps -> m Caps
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
Ptr Caps
result <- Ptr EncodingProfile -> IO (Ptr Caps)
gst_encoding_profile_get_input_caps Ptr EncodingProfile
profile'
Text -> Ptr Caps -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"encodingProfileGetInputCaps" Ptr Caps
result
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
Caps -> IO Caps
forall (m :: * -> *) a. Monad m => a -> m a
return Caps
result'
#if defined(ENABLE_OVERLOADING)
data EncodingProfileGetInputCapsMethodInfo
instance (signature ~ (m Gst.Caps.Caps), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileGetInputCapsMethodInfo a signature where
overloadedMethod = encodingProfileGetInputCaps
instance O.OverloadedMethodInfo EncodingProfileGetInputCapsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileGetInputCaps",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileGetInputCaps"
})
#endif
foreign import ccall "gst_encoding_profile_get_name" gst_encoding_profile_get_name ::
Ptr EncodingProfile ->
IO CString
encodingProfileGetName ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> m T.Text
encodingProfileGetName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> m Text
encodingProfileGetName a
profile = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
CString
result <- Ptr EncodingProfile -> IO CString
gst_encoding_profile_get_name Ptr EncodingProfile
profile'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"encodingProfileGetName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EncodingProfileGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileGetNameMethodInfo a signature where
overloadedMethod = encodingProfileGetName
instance O.OverloadedMethodInfo EncodingProfileGetNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileGetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileGetName"
})
#endif
foreign import ccall "gst_encoding_profile_get_presence" gst_encoding_profile_get_presence ::
Ptr EncodingProfile ->
IO Word32
encodingProfileGetPresence ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> m Word32
encodingProfileGetPresence :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> m Word32
encodingProfileGetPresence a
profile = IO Word32 -> m Word32
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 EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
Word32
result <- Ptr EncodingProfile -> IO Word32
gst_encoding_profile_get_presence Ptr EncodingProfile
profile'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data EncodingProfileGetPresenceMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileGetPresenceMethodInfo a signature where
overloadedMethod = encodingProfileGetPresence
instance O.OverloadedMethodInfo EncodingProfileGetPresenceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileGetPresence",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileGetPresence"
})
#endif
foreign import ccall "gst_encoding_profile_get_preset" gst_encoding_profile_get_preset ::
Ptr EncodingProfile ->
IO CString
encodingProfileGetPreset ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> m T.Text
encodingProfileGetPreset :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> m Text
encodingProfileGetPreset a
profile = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
CString
result <- Ptr EncodingProfile -> IO CString
gst_encoding_profile_get_preset Ptr EncodingProfile
profile'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"encodingProfileGetPreset" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EncodingProfileGetPresetMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileGetPresetMethodInfo a signature where
overloadedMethod = encodingProfileGetPreset
instance O.OverloadedMethodInfo EncodingProfileGetPresetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileGetPreset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileGetPreset"
})
#endif
foreign import ccall "gst_encoding_profile_get_preset_name" gst_encoding_profile_get_preset_name ::
Ptr EncodingProfile ->
IO CString
encodingProfileGetPresetName ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> m T.Text
encodingProfileGetPresetName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> m Text
encodingProfileGetPresetName a
profile = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
CString
result <- Ptr EncodingProfile -> IO CString
gst_encoding_profile_get_preset_name Ptr EncodingProfile
profile'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"encodingProfileGetPresetName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EncodingProfileGetPresetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileGetPresetNameMethodInfo a signature where
overloadedMethod = encodingProfileGetPresetName
instance O.OverloadedMethodInfo EncodingProfileGetPresetNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileGetPresetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileGetPresetName"
})
#endif
foreign import ccall "gst_encoding_profile_get_restriction" gst_encoding_profile_get_restriction ::
Ptr EncodingProfile ->
IO (Ptr Gst.Caps.Caps)
encodingProfileGetRestriction ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> m Gst.Caps.Caps
encodingProfileGetRestriction :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> m Caps
encodingProfileGetRestriction a
profile = IO Caps -> m Caps
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Caps -> m Caps) -> IO Caps -> m Caps
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
Ptr Caps
result <- Ptr EncodingProfile -> IO (Ptr Caps)
gst_encoding_profile_get_restriction Ptr EncodingProfile
profile'
Text -> Ptr Caps -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"encodingProfileGetRestriction" Ptr Caps
result
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
Caps -> IO Caps
forall (m :: * -> *) a. Monad m => a -> m a
return Caps
result'
#if defined(ENABLE_OVERLOADING)
data EncodingProfileGetRestrictionMethodInfo
instance (signature ~ (m Gst.Caps.Caps), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileGetRestrictionMethodInfo a signature where
overloadedMethod = encodingProfileGetRestriction
instance O.OverloadedMethodInfo EncodingProfileGetRestrictionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileGetRestriction",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileGetRestriction"
})
#endif
foreign import ccall "gst_encoding_profile_get_single_segment" gst_encoding_profile_get_single_segment ::
Ptr EncodingProfile ->
IO CInt
encodingProfileGetSingleSegment ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> m Bool
encodingProfileGetSingleSegment :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> m Bool
encodingProfileGetSingleSegment a
profile = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
CInt
result <- Ptr EncodingProfile -> IO CInt
gst_encoding_profile_get_single_segment Ptr EncodingProfile
profile'
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
profile
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data EncodingProfileGetSingleSegmentMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileGetSingleSegmentMethodInfo a signature where
overloadedMethod = encodingProfileGetSingleSegment
instance O.OverloadedMethodInfo EncodingProfileGetSingleSegmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileGetSingleSegment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileGetSingleSegment"
})
#endif
foreign import ccall "gst_encoding_profile_get_type_nick" gst_encoding_profile_get_type_nick ::
Ptr EncodingProfile ->
IO CString
encodingProfileGetTypeNick ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> m T.Text
encodingProfileGetTypeNick :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> m Text
encodingProfileGetTypeNick a
profile = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
CString
result <- Ptr EncodingProfile -> IO CString
gst_encoding_profile_get_type_nick Ptr EncodingProfile
profile'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"encodingProfileGetTypeNick" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EncodingProfileGetTypeNickMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileGetTypeNickMethodInfo a signature where
overloadedMethod = encodingProfileGetTypeNick
instance O.OverloadedMethodInfo EncodingProfileGetTypeNickMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileGetTypeNick",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileGetTypeNick"
})
#endif
foreign import ccall "gst_encoding_profile_is_enabled" gst_encoding_profile_is_enabled ::
Ptr EncodingProfile ->
IO CInt
encodingProfileIsEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> m Bool
encodingProfileIsEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> m Bool
encodingProfileIsEnabled a
profile = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
CInt
result <- Ptr EncodingProfile -> IO CInt
gst_encoding_profile_is_enabled Ptr EncodingProfile
profile'
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
profile
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data EncodingProfileIsEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileIsEnabledMethodInfo a signature where
overloadedMethod = encodingProfileIsEnabled
instance O.OverloadedMethodInfo EncodingProfileIsEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileIsEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileIsEnabled"
})
#endif
foreign import ccall "gst_encoding_profile_is_equal" gst_encoding_profile_is_equal ::
Ptr EncodingProfile ->
Ptr EncodingProfile ->
IO CInt
encodingProfileIsEqual ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a, IsEncodingProfile b) =>
a
-> b
-> m Bool
encodingProfileIsEqual :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsEncodingProfile a,
IsEncodingProfile b) =>
a -> b -> m Bool
encodingProfileIsEqual a
a b
b = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
a' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
a
Ptr EncodingProfile
b' <- b -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
b
CInt
result <- Ptr EncodingProfile -> Ptr EncodingProfile -> IO CInt
gst_encoding_profile_is_equal Ptr EncodingProfile
a' Ptr EncodingProfile
b'
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
a
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
b
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data EncodingProfileIsEqualMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsEncodingProfile a, IsEncodingProfile b) => O.OverloadedMethod EncodingProfileIsEqualMethodInfo a signature where
overloadedMethod = encodingProfileIsEqual
instance O.OverloadedMethodInfo EncodingProfileIsEqualMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileIsEqual",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileIsEqual"
})
#endif
foreign import ccall "gst_encoding_profile_set_allow_dynamic_output" gst_encoding_profile_set_allow_dynamic_output ::
Ptr EncodingProfile ->
CInt ->
IO ()
encodingProfileSetAllowDynamicOutput ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> Bool
-> m ()
encodingProfileSetAllowDynamicOutput :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> Bool -> m ()
encodingProfileSetAllowDynamicOutput a
profile Bool
allowDynamicOutput = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
let allowDynamicOutput' :: CInt
allowDynamicOutput' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
allowDynamicOutput
Ptr EncodingProfile -> CInt -> IO ()
gst_encoding_profile_set_allow_dynamic_output Ptr EncodingProfile
profile' CInt
allowDynamicOutput'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EncodingProfileSetAllowDynamicOutputMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileSetAllowDynamicOutputMethodInfo a signature where
overloadedMethod = encodingProfileSetAllowDynamicOutput
instance O.OverloadedMethodInfo EncodingProfileSetAllowDynamicOutputMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileSetAllowDynamicOutput",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileSetAllowDynamicOutput"
})
#endif
foreign import ccall "gst_encoding_profile_set_description" gst_encoding_profile_set_description ::
Ptr EncodingProfile ->
CString ->
IO ()
encodingProfileSetDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> Maybe (T.Text)
-> m ()
encodingProfileSetDescription :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> Maybe Text -> m ()
encodingProfileSetDescription a
profile Maybe Text
description = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
CString
maybeDescription <- case Maybe Text
description of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jDescription -> do
CString
jDescription' <- Text -> IO CString
textToCString Text
jDescription
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jDescription'
Ptr EncodingProfile -> CString -> IO ()
gst_encoding_profile_set_description Ptr EncodingProfile
profile' CString
maybeDescription
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeDescription
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EncodingProfileSetDescriptionMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileSetDescriptionMethodInfo a signature where
overloadedMethod = encodingProfileSetDescription
instance O.OverloadedMethodInfo EncodingProfileSetDescriptionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileSetDescription",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileSetDescription"
})
#endif
foreign import ccall "gst_encoding_profile_set_element_properties" gst_encoding_profile_set_element_properties ::
Ptr EncodingProfile ->
Ptr Gst.Structure.Structure ->
IO ()
encodingProfileSetElementProperties ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> Gst.Structure.Structure
-> m ()
encodingProfileSetElementProperties :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> Structure -> m ()
encodingProfileSetElementProperties a
self Structure
elementProperties = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
self' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Structure
elementProperties' <- Structure -> IO (Ptr Structure)
forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed Structure
elementProperties
Ptr EncodingProfile -> Ptr Structure -> IO ()
gst_encoding_profile_set_element_properties Ptr EncodingProfile
self' Ptr Structure
elementProperties'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Structure -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Structure
elementProperties
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EncodingProfileSetElementPropertiesMethodInfo
instance (signature ~ (Gst.Structure.Structure -> m ()), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileSetElementPropertiesMethodInfo a signature where
overloadedMethod = encodingProfileSetElementProperties
instance O.OverloadedMethodInfo EncodingProfileSetElementPropertiesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileSetElementProperties",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileSetElementProperties"
})
#endif
foreign import ccall "gst_encoding_profile_set_enabled" gst_encoding_profile_set_enabled ::
Ptr EncodingProfile ->
CInt ->
IO ()
encodingProfileSetEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> Bool
-> m ()
encodingProfileSetEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> Bool -> m ()
encodingProfileSetEnabled a
profile Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
Ptr EncodingProfile -> CInt -> IO ()
gst_encoding_profile_set_enabled Ptr EncodingProfile
profile' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EncodingProfileSetEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileSetEnabledMethodInfo a signature where
overloadedMethod = encodingProfileSetEnabled
instance O.OverloadedMethodInfo EncodingProfileSetEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileSetEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileSetEnabled"
})
#endif
foreign import ccall "gst_encoding_profile_set_format" gst_encoding_profile_set_format ::
Ptr EncodingProfile ->
Ptr Gst.Caps.Caps ->
IO ()
encodingProfileSetFormat ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> Gst.Caps.Caps
-> m ()
encodingProfileSetFormat :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> Caps -> m ()
encodingProfileSetFormat a
profile Caps
format = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
Ptr Caps
format' <- Caps -> IO (Ptr Caps)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Caps
format
Ptr EncodingProfile -> Ptr Caps -> IO ()
gst_encoding_profile_set_format Ptr EncodingProfile
profile' Ptr Caps
format'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
Caps -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Caps
format
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EncodingProfileSetFormatMethodInfo
instance (signature ~ (Gst.Caps.Caps -> m ()), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileSetFormatMethodInfo a signature where
overloadedMethod = encodingProfileSetFormat
instance O.OverloadedMethodInfo EncodingProfileSetFormatMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileSetFormat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileSetFormat"
})
#endif
foreign import ccall "gst_encoding_profile_set_name" gst_encoding_profile_set_name ::
Ptr EncodingProfile ->
CString ->
IO ()
encodingProfileSetName ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> Maybe (T.Text)
-> m ()
encodingProfileSetName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> Maybe Text -> m ()
encodingProfileSetName a
profile Maybe Text
name = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
CString
maybeName <- case Maybe Text
name of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jName -> do
CString
jName' <- Text -> IO CString
textToCString Text
jName
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jName'
Ptr EncodingProfile -> CString -> IO ()
gst_encoding_profile_set_name Ptr EncodingProfile
profile' CString
maybeName
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeName
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EncodingProfileSetNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileSetNameMethodInfo a signature where
overloadedMethod = encodingProfileSetName
instance O.OverloadedMethodInfo EncodingProfileSetNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileSetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileSetName"
})
#endif
foreign import ccall "gst_encoding_profile_set_presence" gst_encoding_profile_set_presence ::
Ptr EncodingProfile ->
Word32 ->
IO ()
encodingProfileSetPresence ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> Word32
-> m ()
encodingProfileSetPresence :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> Word32 -> m ()
encodingProfileSetPresence a
profile Word32
presence = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
Ptr EncodingProfile -> Word32 -> IO ()
gst_encoding_profile_set_presence Ptr EncodingProfile
profile' Word32
presence
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EncodingProfileSetPresenceMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileSetPresenceMethodInfo a signature where
overloadedMethod = encodingProfileSetPresence
instance O.OverloadedMethodInfo EncodingProfileSetPresenceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileSetPresence",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileSetPresence"
})
#endif
foreign import ccall "gst_encoding_profile_set_preset" gst_encoding_profile_set_preset ::
Ptr EncodingProfile ->
CString ->
IO ()
encodingProfileSetPreset ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> Maybe (T.Text)
-> m ()
encodingProfileSetPreset :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> Maybe Text -> m ()
encodingProfileSetPreset a
profile Maybe Text
preset = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
CString
maybePreset <- case Maybe Text
preset of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jPreset -> do
CString
jPreset' <- Text -> IO CString
textToCString Text
jPreset
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jPreset'
Ptr EncodingProfile -> CString -> IO ()
gst_encoding_profile_set_preset Ptr EncodingProfile
profile' CString
maybePreset
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybePreset
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EncodingProfileSetPresetMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileSetPresetMethodInfo a signature where
overloadedMethod = encodingProfileSetPreset
instance O.OverloadedMethodInfo EncodingProfileSetPresetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileSetPreset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileSetPreset"
})
#endif
foreign import ccall "gst_encoding_profile_set_preset_name" gst_encoding_profile_set_preset_name ::
Ptr EncodingProfile ->
CString ->
IO ()
encodingProfileSetPresetName ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> Maybe (T.Text)
-> m ()
encodingProfileSetPresetName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> Maybe Text -> m ()
encodingProfileSetPresetName a
profile Maybe Text
presetName = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
CString
maybePresetName <- case Maybe Text
presetName of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jPresetName -> do
CString
jPresetName' <- Text -> IO CString
textToCString Text
jPresetName
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jPresetName'
Ptr EncodingProfile -> CString -> IO ()
gst_encoding_profile_set_preset_name Ptr EncodingProfile
profile' CString
maybePresetName
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybePresetName
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EncodingProfileSetPresetNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileSetPresetNameMethodInfo a signature where
overloadedMethod = encodingProfileSetPresetName
instance O.OverloadedMethodInfo EncodingProfileSetPresetNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileSetPresetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileSetPresetName"
})
#endif
foreign import ccall "gst_encoding_profile_set_restriction" gst_encoding_profile_set_restriction ::
Ptr EncodingProfile ->
Ptr Gst.Caps.Caps ->
IO ()
encodingProfileSetRestriction ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> Maybe (Gst.Caps.Caps)
-> m ()
encodingProfileSetRestriction :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> Maybe Caps -> m ()
encodingProfileSetRestriction a
profile Maybe Caps
restriction = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
Ptr Caps
maybeRestriction <- case Maybe Caps
restriction of
Maybe Caps
Nothing -> Ptr Caps -> IO (Ptr Caps)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Caps
forall a. Ptr a
nullPtr
Just Caps
jRestriction -> do
Ptr Caps
jRestriction' <- Caps -> IO (Ptr Caps)
forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed Caps
jRestriction
Ptr Caps -> IO (Ptr Caps)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Caps
jRestriction'
Ptr EncodingProfile -> Ptr Caps -> IO ()
gst_encoding_profile_set_restriction Ptr EncodingProfile
profile' Ptr Caps
maybeRestriction
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
Maybe Caps -> (Caps -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Caps
restriction Caps -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EncodingProfileSetRestrictionMethodInfo
instance (signature ~ (Maybe (Gst.Caps.Caps) -> m ()), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileSetRestrictionMethodInfo a signature where
overloadedMethod = encodingProfileSetRestriction
instance O.OverloadedMethodInfo EncodingProfileSetRestrictionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileSetRestriction",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileSetRestriction"
})
#endif
foreign import ccall "gst_encoding_profile_set_single_segment" gst_encoding_profile_set_single_segment ::
Ptr EncodingProfile ->
CInt ->
IO ()
encodingProfileSetSingleSegment ::
(B.CallStack.HasCallStack, MonadIO m, IsEncodingProfile a) =>
a
-> Bool
-> m ()
encodingProfileSetSingleSegment :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEncodingProfile a) =>
a -> Bool -> m ()
encodingProfileSetSingleSegment a
profile Bool
singleSegment = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr EncodingProfile
profile' <- a -> IO (Ptr EncodingProfile)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
profile
let singleSegment' :: CInt
singleSegment' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
singleSegment
Ptr EncodingProfile -> CInt -> IO ()
gst_encoding_profile_set_single_segment Ptr EncodingProfile
profile' CInt
singleSegment'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
profile
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EncodingProfileSetSingleSegmentMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsEncodingProfile a) => O.OverloadedMethod EncodingProfileSetSingleSegmentMethodInfo a signature where
overloadedMethod = encodingProfileSetSingleSegment
instance O.OverloadedMethodInfo EncodingProfileSetSingleSegmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GstPbutils.Objects.EncodingProfile.encodingProfileSetSingleSegment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.24/docs/GI-GstPbutils-Objects-EncodingProfile.html#v:encodingProfileSetSingleSegment"
})
#endif
foreign import ccall "gst_encoding_profile_find" gst_encoding_profile_find ::
CString ->
CString ->
CString ->
IO (Ptr EncodingProfile)
encodingProfileFind ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> Maybe (T.Text)
-> Maybe (T.Text)
-> m EncodingProfile
encodingProfileFind :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> Maybe Text -> Maybe Text -> m EncodingProfile
encodingProfileFind Text
targetname Maybe Text
profilename Maybe Text
category = IO EncodingProfile -> m EncodingProfile
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EncodingProfile -> m EncodingProfile)
-> IO EncodingProfile -> m EncodingProfile
forall a b. (a -> b) -> a -> b
$ do
CString
targetname' <- Text -> IO CString
textToCString Text
targetname
CString
maybeProfilename <- case Maybe Text
profilename of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jProfilename -> do
CString
jProfilename' <- Text -> IO CString
textToCString Text
jProfilename
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jProfilename'
CString
maybeCategory <- case Maybe Text
category of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jCategory -> do
CString
jCategory' <- Text -> IO CString
textToCString Text
jCategory
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jCategory'
Ptr EncodingProfile
result <- CString -> CString -> CString -> IO (Ptr EncodingProfile)
gst_encoding_profile_find CString
targetname' CString
maybeProfilename CString
maybeCategory
Text -> Ptr EncodingProfile -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"encodingProfileFind" Ptr EncodingProfile
result
EncodingProfile
result' <- ((ManagedPtr EncodingProfile -> EncodingProfile)
-> Ptr EncodingProfile -> IO EncodingProfile
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr EncodingProfile -> EncodingProfile
EncodingProfile) Ptr EncodingProfile
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
targetname'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeProfilename
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeCategory
EncodingProfile -> IO EncodingProfile
forall (m :: * -> *) a. Monad m => a -> m a
return EncodingProfile
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gst_encoding_profile_from_discoverer" gst_encoding_profile_from_discoverer ::
Ptr GstPbutils.DiscovererInfo.DiscovererInfo ->
IO (Ptr EncodingProfile)
encodingProfileFromDiscoverer ::
(B.CallStack.HasCallStack, MonadIO m, GstPbutils.DiscovererInfo.IsDiscovererInfo a) =>
a
-> m EncodingProfile
encodingProfileFromDiscoverer :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDiscovererInfo a) =>
a -> m EncodingProfile
encodingProfileFromDiscoverer a
info = IO EncodingProfile -> m EncodingProfile
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EncodingProfile -> m EncodingProfile)
-> IO EncodingProfile -> m EncodingProfile
forall a b. (a -> b) -> a -> b
$ do
Ptr DiscovererInfo
info' <- a -> IO (Ptr DiscovererInfo)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
Ptr EncodingProfile
result <- Ptr DiscovererInfo -> IO (Ptr EncodingProfile)
gst_encoding_profile_from_discoverer Ptr DiscovererInfo
info'
Text -> Ptr EncodingProfile -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"encodingProfileFromDiscoverer" Ptr EncodingProfile
result
EncodingProfile
result' <- ((ManagedPtr EncodingProfile -> EncodingProfile)
-> Ptr EncodingProfile -> IO EncodingProfile
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr EncodingProfile -> EncodingProfile
EncodingProfile) Ptr EncodingProfile
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
EncodingProfile -> IO EncodingProfile
forall (m :: * -> *) a. Monad m => a -> m a
return EncodingProfile
result'
#if defined(ENABLE_OVERLOADING)
#endif