#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GstPbutils.Objects.EncodingProfile
(
EncodingProfile(..) ,
IsEncodingProfile ,
toEncodingProfile ,
noEncodingProfile ,
#if ENABLE_OVERLOADING
EncodingProfileCopyMethodInfo ,
#endif
encodingProfileCopy ,
encodingProfileFind ,
encodingProfileFromDiscoverer ,
#if ENABLE_OVERLOADING
EncodingProfileGetAllowDynamicOutputMethodInfo,
#endif
encodingProfileGetAllowDynamicOutput ,
#if ENABLE_OVERLOADING
EncodingProfileGetDescriptionMethodInfo ,
#endif
encodingProfileGetDescription ,
#if ENABLE_OVERLOADING
EncodingProfileGetFileExtensionMethodInfo,
#endif
encodingProfileGetFileExtension ,
#if ENABLE_OVERLOADING
EncodingProfileGetFormatMethodInfo ,
#endif
encodingProfileGetFormat ,
#if ENABLE_OVERLOADING
EncodingProfileGetInputCapsMethodInfo ,
#endif
encodingProfileGetInputCaps ,
#if ENABLE_OVERLOADING
EncodingProfileGetNameMethodInfo ,
#endif
encodingProfileGetName ,
#if ENABLE_OVERLOADING
EncodingProfileGetPresenceMethodInfo ,
#endif
encodingProfileGetPresence ,
#if ENABLE_OVERLOADING
EncodingProfileGetPresetMethodInfo ,
#endif
encodingProfileGetPreset ,
#if ENABLE_OVERLOADING
EncodingProfileGetPresetNameMethodInfo ,
#endif
encodingProfileGetPresetName ,
#if ENABLE_OVERLOADING
EncodingProfileGetRestrictionMethodInfo ,
#endif
encodingProfileGetRestriction ,
#if ENABLE_OVERLOADING
EncodingProfileGetTypeNickMethodInfo ,
#endif
encodingProfileGetTypeNick ,
#if ENABLE_OVERLOADING
EncodingProfileIsEnabledMethodInfo ,
#endif
encodingProfileIsEnabled ,
#if ENABLE_OVERLOADING
EncodingProfileIsEqualMethodInfo ,
#endif
encodingProfileIsEqual ,
#if ENABLE_OVERLOADING
EncodingProfileSetAllowDynamicOutputMethodInfo,
#endif
encodingProfileSetAllowDynamicOutput ,
#if ENABLE_OVERLOADING
EncodingProfileSetDescriptionMethodInfo ,
#endif
encodingProfileSetDescription ,
#if ENABLE_OVERLOADING
EncodingProfileSetEnabledMethodInfo ,
#endif
encodingProfileSetEnabled ,
#if ENABLE_OVERLOADING
EncodingProfileSetFormatMethodInfo ,
#endif
encodingProfileSetFormat ,
#if ENABLE_OVERLOADING
EncodingProfileSetNameMethodInfo ,
#endif
encodingProfileSetName ,
#if ENABLE_OVERLOADING
EncodingProfileSetPresenceMethodInfo ,
#endif
encodingProfileSetPresence ,
#if ENABLE_OVERLOADING
EncodingProfileSetPresetMethodInfo ,
#endif
encodingProfileSetPreset ,
#if ENABLE_OVERLOADING
EncodingProfileSetPresetNameMethodInfo ,
#endif
encodingProfileSetPresetName ,
#if ENABLE_OVERLOADING
EncodingProfileSetRestrictionMethodInfo ,
#endif
encodingProfileSetRestriction ,
#if ENABLE_OVERLOADING
EncodingProfileRestrictionCapsPropertyInfo,
#endif
clearEncodingProfileRestrictionCaps ,
constructEncodingProfileRestrictionCaps ,
#if 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.ManagedPtr as B.ManagedPtr
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.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 GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gst.Structs.Caps as Gst.Caps
import {-# SOURCE #-} qualified GI.GstPbutils.Objects.DiscovererInfo as GstPbutils.DiscovererInfo
newtype EncodingProfile = EncodingProfile (ManagedPtr EncodingProfile)
foreign import ccall "gst_encoding_profile_get_type"
c_gst_encoding_profile_get_type :: IO GType
instance GObject EncodingProfile where
gobjectType = c_gst_encoding_profile_get_type
class (GObject o, O.IsDescendantOf EncodingProfile o) => IsEncodingProfile o
instance (GObject o, O.IsDescendantOf EncodingProfile o) => IsEncodingProfile o
instance O.HasParentTypes EncodingProfile
type instance O.ParentTypes EncodingProfile = '[GObject.Object.Object]
toEncodingProfile :: (MonadIO m, IsEncodingProfile o) => o -> m EncodingProfile
toEncodingProfile = liftIO . unsafeCastTo EncodingProfile
noEncodingProfile :: Maybe EncodingProfile
noEncodingProfile = Nothing
#if 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 "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 "getTypeNick" o = EncodingProfileGetTypeNickMethodInfo
ResolveEncodingProfileMethod "setAllowDynamicOutput" o = EncodingProfileSetAllowDynamicOutputMethodInfo
ResolveEncodingProfileMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveEncodingProfileMethod "setDescription" o = EncodingProfileSetDescriptionMethodInfo
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 l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEncodingProfileMethod t EncodingProfile, O.MethodInfo info EncodingProfile p) => OL.IsLabel t (EncodingProfile -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
getEncodingProfileRestrictionCaps :: (MonadIO m, IsEncodingProfile o) => o -> m (Maybe Gst.Caps.Caps)
getEncodingProfileRestrictionCaps obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "restriction-caps" Gst.Caps.Caps
setEncodingProfileRestrictionCaps :: (MonadIO m, IsEncodingProfile o) => o -> Gst.Caps.Caps -> m ()
setEncodingProfileRestrictionCaps obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "restriction-caps" (Just val)
constructEncodingProfileRestrictionCaps :: (IsEncodingProfile o) => Gst.Caps.Caps -> IO (GValueConstruct o)
constructEncodingProfileRestrictionCaps val = B.Properties.constructObjectPropertyBoxed "restriction-caps" (Just val)
clearEncodingProfileRestrictionCaps :: (MonadIO m, IsEncodingProfile o) => o -> m ()
clearEncodingProfileRestrictionCaps obj = liftIO $ B.Properties.setObjectPropertyBoxed obj "restriction-caps" (Nothing :: Maybe Gst.Caps.Caps)
#if ENABLE_OVERLOADING
data EncodingProfileRestrictionCapsPropertyInfo
instance AttrInfo EncodingProfileRestrictionCapsPropertyInfo where
type AttrAllowedOps EncodingProfileRestrictionCapsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EncodingProfileRestrictionCapsPropertyInfo = (~) Gst.Caps.Caps
type AttrBaseTypeConstraint EncodingProfileRestrictionCapsPropertyInfo = IsEncodingProfile
type AttrGetType EncodingProfileRestrictionCapsPropertyInfo = (Maybe Gst.Caps.Caps)
type AttrLabel EncodingProfileRestrictionCapsPropertyInfo = "restriction-caps"
type AttrOrigin EncodingProfileRestrictionCapsPropertyInfo = EncodingProfile
attrGet _ = getEncodingProfileRestrictionCaps
attrSet _ = setEncodingProfileRestrictionCaps
attrConstruct _ = constructEncodingProfileRestrictionCaps
attrClear _ = clearEncodingProfileRestrictionCaps
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList EncodingProfile
type instance O.AttributeList EncodingProfile = EncodingProfileAttributeList
type EncodingProfileAttributeList = ('[ '("restrictionCaps", EncodingProfileRestrictionCapsPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
encodingProfileRestrictionCaps :: AttrLabelProxy "restrictionCaps"
encodingProfileRestrictionCaps = AttrLabelProxy
#endif
#if 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 self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- gst_encoding_profile_copy self'
checkUnexpectedReturnNULL "encodingProfileCopy" result
result' <- (wrapObject EncodingProfile) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data EncodingProfileCopyMethodInfo
instance (signature ~ (m EncodingProfile), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileCopyMethodInfo a signature where
overloadedMethod _ = 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 profile = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
result <- gst_encoding_profile_get_allow_dynamic_output profile'
let result' = (/= 0) result
touchManagedPtr profile
return result'
#if ENABLE_OVERLOADING
data EncodingProfileGetAllowDynamicOutputMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetAllowDynamicOutputMethodInfo a signature where
overloadedMethod _ = 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 profile = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
result <- gst_encoding_profile_get_description profile'
checkUnexpectedReturnNULL "encodingProfileGetDescription" result
result' <- cstringToText result
touchManagedPtr profile
return result'
#if ENABLE_OVERLOADING
data EncodingProfileGetDescriptionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetDescriptionMethodInfo a signature where
overloadedMethod _ = encodingProfileGetDescription
#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 profile = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
result <- gst_encoding_profile_get_file_extension profile'
checkUnexpectedReturnNULL "encodingProfileGetFileExtension" result
result' <- cstringToText result
touchManagedPtr profile
return result'
#if ENABLE_OVERLOADING
data EncodingProfileGetFileExtensionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetFileExtensionMethodInfo a signature where
overloadedMethod _ = 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 profile = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
result <- gst_encoding_profile_get_format profile'
checkUnexpectedReturnNULL "encodingProfileGetFormat" result
result' <- (wrapBoxed Gst.Caps.Caps) result
touchManagedPtr profile
return result'
#if ENABLE_OVERLOADING
data EncodingProfileGetFormatMethodInfo
instance (signature ~ (m Gst.Caps.Caps), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetFormatMethodInfo a signature where
overloadedMethod _ = 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 profile = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
result <- gst_encoding_profile_get_input_caps profile'
checkUnexpectedReturnNULL "encodingProfileGetInputCaps" result
result' <- (wrapBoxed Gst.Caps.Caps) result
touchManagedPtr profile
return result'
#if ENABLE_OVERLOADING
data EncodingProfileGetInputCapsMethodInfo
instance (signature ~ (m Gst.Caps.Caps), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetInputCapsMethodInfo a signature where
overloadedMethod _ = 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 profile = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
result <- gst_encoding_profile_get_name profile'
checkUnexpectedReturnNULL "encodingProfileGetName" result
result' <- cstringToText result
touchManagedPtr profile
return result'
#if ENABLE_OVERLOADING
data EncodingProfileGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetNameMethodInfo a signature where
overloadedMethod _ = 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 profile = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
result <- gst_encoding_profile_get_presence profile'
touchManagedPtr profile
return result
#if ENABLE_OVERLOADING
data EncodingProfileGetPresenceMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetPresenceMethodInfo a signature where
overloadedMethod _ = 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 profile = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
result <- gst_encoding_profile_get_preset profile'
checkUnexpectedReturnNULL "encodingProfileGetPreset" result
result' <- cstringToText result
touchManagedPtr profile
return result'
#if ENABLE_OVERLOADING
data EncodingProfileGetPresetMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetPresetMethodInfo a signature where
overloadedMethod _ = 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 profile = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
result <- gst_encoding_profile_get_preset_name profile'
checkUnexpectedReturnNULL "encodingProfileGetPresetName" result
result' <- cstringToText result
touchManagedPtr profile
return result'
#if ENABLE_OVERLOADING
data EncodingProfileGetPresetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetPresetNameMethodInfo a signature where
overloadedMethod _ = 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 profile = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
result <- gst_encoding_profile_get_restriction profile'
checkUnexpectedReturnNULL "encodingProfileGetRestriction" result
result' <- (wrapBoxed Gst.Caps.Caps) result
touchManagedPtr profile
return result'
#if ENABLE_OVERLOADING
data EncodingProfileGetRestrictionMethodInfo
instance (signature ~ (m Gst.Caps.Caps), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetRestrictionMethodInfo a signature where
overloadedMethod _ = encodingProfileGetRestriction
#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 profile = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
result <- gst_encoding_profile_get_type_nick profile'
checkUnexpectedReturnNULL "encodingProfileGetTypeNick" result
result' <- cstringToText result
touchManagedPtr profile
return result'
#if ENABLE_OVERLOADING
data EncodingProfileGetTypeNickMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileGetTypeNickMethodInfo a signature where
overloadedMethod _ = 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 profile = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
result <- gst_encoding_profile_is_enabled profile'
let result' = (/= 0) result
touchManagedPtr profile
return result'
#if ENABLE_OVERLOADING
data EncodingProfileIsEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileIsEnabledMethodInfo a signature where
overloadedMethod _ = 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 a b = liftIO $ do
a' <- unsafeManagedPtrCastPtr a
b' <- unsafeManagedPtrCastPtr b
result <- gst_encoding_profile_is_equal a' b'
let result' = (/= 0) result
touchManagedPtr a
touchManagedPtr b
return result'
#if ENABLE_OVERLOADING
data EncodingProfileIsEqualMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsEncodingProfile a, IsEncodingProfile b) => O.MethodInfo EncodingProfileIsEqualMethodInfo a signature where
overloadedMethod _ = 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 profile allowDynamicOutput = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
let allowDynamicOutput' = (fromIntegral . fromEnum) allowDynamicOutput
gst_encoding_profile_set_allow_dynamic_output profile' allowDynamicOutput'
touchManagedPtr profile
return ()
#if ENABLE_OVERLOADING
data EncodingProfileSetAllowDynamicOutputMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileSetAllowDynamicOutputMethodInfo a signature where
overloadedMethod _ = 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 profile description = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
maybeDescription <- case description of
Nothing -> return nullPtr
Just jDescription -> do
jDescription' <- textToCString jDescription
return jDescription'
gst_encoding_profile_set_description profile' maybeDescription
touchManagedPtr profile
freeMem maybeDescription
return ()
#if ENABLE_OVERLOADING
data EncodingProfileSetDescriptionMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileSetDescriptionMethodInfo a signature where
overloadedMethod _ = encodingProfileSetDescription
#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 profile enabled = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
let enabled' = (fromIntegral . fromEnum) enabled
gst_encoding_profile_set_enabled profile' enabled'
touchManagedPtr profile
return ()
#if ENABLE_OVERLOADING
data EncodingProfileSetEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileSetEnabledMethodInfo a signature where
overloadedMethod _ = 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 profile format = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
format' <- unsafeManagedPtrGetPtr format
gst_encoding_profile_set_format profile' format'
touchManagedPtr profile
touchManagedPtr format
return ()
#if ENABLE_OVERLOADING
data EncodingProfileSetFormatMethodInfo
instance (signature ~ (Gst.Caps.Caps -> m ()), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileSetFormatMethodInfo a signature where
overloadedMethod _ = 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 profile name = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
maybeName <- case name of
Nothing -> return nullPtr
Just jName -> do
jName' <- textToCString jName
return jName'
gst_encoding_profile_set_name profile' maybeName
touchManagedPtr profile
freeMem maybeName
return ()
#if ENABLE_OVERLOADING
data EncodingProfileSetNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileSetNameMethodInfo a signature where
overloadedMethod _ = 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 profile presence = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
gst_encoding_profile_set_presence profile' presence
touchManagedPtr profile
return ()
#if ENABLE_OVERLOADING
data EncodingProfileSetPresenceMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileSetPresenceMethodInfo a signature where
overloadedMethod _ = 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 profile preset = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
maybePreset <- case preset of
Nothing -> return nullPtr
Just jPreset -> do
jPreset' <- textToCString jPreset
return jPreset'
gst_encoding_profile_set_preset profile' maybePreset
touchManagedPtr profile
freeMem maybePreset
return ()
#if ENABLE_OVERLOADING
data EncodingProfileSetPresetMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileSetPresetMethodInfo a signature where
overloadedMethod _ = 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 profile presetName = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
maybePresetName <- case presetName of
Nothing -> return nullPtr
Just jPresetName -> do
jPresetName' <- textToCString jPresetName
return jPresetName'
gst_encoding_profile_set_preset_name profile' maybePresetName
touchManagedPtr profile
freeMem maybePresetName
return ()
#if ENABLE_OVERLOADING
data EncodingProfileSetPresetNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileSetPresetNameMethodInfo a signature where
overloadedMethod _ = 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 profile restriction = liftIO $ do
profile' <- unsafeManagedPtrCastPtr profile
maybeRestriction <- case restriction of
Nothing -> return nullPtr
Just jRestriction -> do
jRestriction' <- B.ManagedPtr.disownBoxed jRestriction
return jRestriction'
gst_encoding_profile_set_restriction profile' maybeRestriction
touchManagedPtr profile
whenJust restriction touchManagedPtr
return ()
#if ENABLE_OVERLOADING
data EncodingProfileSetRestrictionMethodInfo
instance (signature ~ (Maybe (Gst.Caps.Caps) -> m ()), MonadIO m, IsEncodingProfile a) => O.MethodInfo EncodingProfileSetRestrictionMethodInfo a signature where
overloadedMethod _ = encodingProfileSetRestriction
#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 targetname profilename category = liftIO $ do
targetname' <- textToCString targetname
maybeProfilename <- case profilename of
Nothing -> return nullPtr
Just jProfilename -> do
jProfilename' <- textToCString jProfilename
return jProfilename'
maybeCategory <- case category of
Nothing -> return nullPtr
Just jCategory -> do
jCategory' <- textToCString jCategory
return jCategory'
result <- gst_encoding_profile_find targetname' maybeProfilename maybeCategory
checkUnexpectedReturnNULL "encodingProfileFind" result
result' <- (wrapObject EncodingProfile) result
freeMem targetname'
freeMem maybeProfilename
freeMem maybeCategory
return result'
#if 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 info = liftIO $ do
info' <- unsafeManagedPtrCastPtr info
result <- gst_encoding_profile_from_discoverer info'
checkUnexpectedReturnNULL "encodingProfileFromDiscoverer" result
result' <- (wrapObject EncodingProfile) result
touchManagedPtr info
return result'
#if ENABLE_OVERLOADING
#endif