{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GstPbutils.Objects.DiscovererAudioInfo
(
DiscovererAudioInfo(..) ,
IsDiscovererAudioInfo ,
toDiscovererAudioInfo ,
#if defined(ENABLE_OVERLOADING)
ResolveDiscovererAudioInfoMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DiscovererAudioInfoGetBitrateMethodInfo ,
#endif
discovererAudioInfoGetBitrate ,
#if defined(ENABLE_OVERLOADING)
DiscovererAudioInfoGetChannelMaskMethodInfo,
#endif
discovererAudioInfoGetChannelMask ,
#if defined(ENABLE_OVERLOADING)
DiscovererAudioInfoGetChannelsMethodInfo,
#endif
discovererAudioInfoGetChannels ,
#if defined(ENABLE_OVERLOADING)
DiscovererAudioInfoGetDepthMethodInfo ,
#endif
discovererAudioInfoGetDepth ,
#if defined(ENABLE_OVERLOADING)
DiscovererAudioInfoGetLanguageMethodInfo,
#endif
discovererAudioInfoGetLanguage ,
#if defined(ENABLE_OVERLOADING)
DiscovererAudioInfoGetMaxBitrateMethodInfo,
#endif
discovererAudioInfoGetMaxBitrate ,
#if defined(ENABLE_OVERLOADING)
DiscovererAudioInfoGetSampleRateMethodInfo,
#endif
discovererAudioInfoGetSampleRate ,
) 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.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 {-# SOURCE #-} qualified GI.GstPbutils.Objects.DiscovererStreamInfo as GstPbutils.DiscovererStreamInfo
newtype DiscovererAudioInfo = DiscovererAudioInfo (SP.ManagedPtr DiscovererAudioInfo)
deriving (DiscovererAudioInfo -> DiscovererAudioInfo -> Bool
(DiscovererAudioInfo -> DiscovererAudioInfo -> Bool)
-> (DiscovererAudioInfo -> DiscovererAudioInfo -> Bool)
-> Eq DiscovererAudioInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DiscovererAudioInfo -> DiscovererAudioInfo -> Bool
$c/= :: DiscovererAudioInfo -> DiscovererAudioInfo -> Bool
== :: DiscovererAudioInfo -> DiscovererAudioInfo -> Bool
$c== :: DiscovererAudioInfo -> DiscovererAudioInfo -> Bool
Eq)
instance SP.ManagedPtrNewtype DiscovererAudioInfo where
toManagedPtr :: DiscovererAudioInfo -> ManagedPtr DiscovererAudioInfo
toManagedPtr (DiscovererAudioInfo ManagedPtr DiscovererAudioInfo
p) = ManagedPtr DiscovererAudioInfo
p
foreign import ccall "gst_discoverer_audio_info_get_type"
c_gst_discoverer_audio_info_get_type :: IO B.Types.GType
instance B.Types.TypedObject DiscovererAudioInfo where
glibType :: IO GType
glibType = IO GType
c_gst_discoverer_audio_info_get_type
instance B.Types.GObject DiscovererAudioInfo
class (SP.GObject o, O.IsDescendantOf DiscovererAudioInfo o) => IsDiscovererAudioInfo o
instance (SP.GObject o, O.IsDescendantOf DiscovererAudioInfo o) => IsDiscovererAudioInfo o
instance O.HasParentTypes DiscovererAudioInfo
type instance O.ParentTypes DiscovererAudioInfo = '[GstPbutils.DiscovererStreamInfo.DiscovererStreamInfo, GObject.Object.Object]
toDiscovererAudioInfo :: (MIO.MonadIO m, IsDiscovererAudioInfo o) => o -> m DiscovererAudioInfo
toDiscovererAudioInfo :: forall (m :: * -> *) o.
(MonadIO m, IsDiscovererAudioInfo o) =>
o -> m DiscovererAudioInfo
toDiscovererAudioInfo = IO DiscovererAudioInfo -> m DiscovererAudioInfo
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DiscovererAudioInfo -> m DiscovererAudioInfo)
-> (o -> IO DiscovererAudioInfo) -> o -> m DiscovererAudioInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DiscovererAudioInfo -> DiscovererAudioInfo)
-> o -> IO DiscovererAudioInfo
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DiscovererAudioInfo -> DiscovererAudioInfo
DiscovererAudioInfo
instance B.GValue.IsGValue (Maybe DiscovererAudioInfo) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gst_discoverer_audio_info_get_type
gvalueSet_ :: Ptr GValue -> Maybe DiscovererAudioInfo -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DiscovererAudioInfo
P.Nothing = Ptr GValue -> Ptr DiscovererAudioInfo -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DiscovererAudioInfo
forall a. Ptr a
FP.nullPtr :: FP.Ptr DiscovererAudioInfo)
gvalueSet_ Ptr GValue
gv (P.Just DiscovererAudioInfo
obj) = DiscovererAudioInfo -> (Ptr DiscovererAudioInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DiscovererAudioInfo
obj (Ptr GValue -> Ptr DiscovererAudioInfo -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DiscovererAudioInfo)
gvalueGet_ Ptr GValue
gv = do
Ptr DiscovererAudioInfo
ptr <- Ptr GValue -> IO (Ptr DiscovererAudioInfo)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DiscovererAudioInfo)
if Ptr DiscovererAudioInfo
ptr Ptr DiscovererAudioInfo -> Ptr DiscovererAudioInfo -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DiscovererAudioInfo
forall a. Ptr a
FP.nullPtr
then DiscovererAudioInfo -> Maybe DiscovererAudioInfo
forall a. a -> Maybe a
P.Just (DiscovererAudioInfo -> Maybe DiscovererAudioInfo)
-> IO DiscovererAudioInfo -> IO (Maybe DiscovererAudioInfo)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr DiscovererAudioInfo -> DiscovererAudioInfo)
-> Ptr DiscovererAudioInfo -> IO DiscovererAudioInfo
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DiscovererAudioInfo -> DiscovererAudioInfo
DiscovererAudioInfo Ptr DiscovererAudioInfo
ptr
else Maybe DiscovererAudioInfo -> IO (Maybe DiscovererAudioInfo)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DiscovererAudioInfo
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDiscovererAudioInfoMethod (t :: Symbol) (o :: *) :: * where
ResolveDiscovererAudioInfoMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDiscovererAudioInfoMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDiscovererAudioInfoMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDiscovererAudioInfoMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDiscovererAudioInfoMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDiscovererAudioInfoMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDiscovererAudioInfoMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDiscovererAudioInfoMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDiscovererAudioInfoMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDiscovererAudioInfoMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDiscovererAudioInfoMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDiscovererAudioInfoMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDiscovererAudioInfoMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDiscovererAudioInfoMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDiscovererAudioInfoMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDiscovererAudioInfoMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDiscovererAudioInfoMethod "getBitrate" o = DiscovererAudioInfoGetBitrateMethodInfo
ResolveDiscovererAudioInfoMethod "getCaps" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetCapsMethodInfo
ResolveDiscovererAudioInfoMethod "getChannelMask" o = DiscovererAudioInfoGetChannelMaskMethodInfo
ResolveDiscovererAudioInfoMethod "getChannels" o = DiscovererAudioInfoGetChannelsMethodInfo
ResolveDiscovererAudioInfoMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDiscovererAudioInfoMethod "getDepth" o = DiscovererAudioInfoGetDepthMethodInfo
ResolveDiscovererAudioInfoMethod "getLanguage" o = DiscovererAudioInfoGetLanguageMethodInfo
ResolveDiscovererAudioInfoMethod "getMaxBitrate" o = DiscovererAudioInfoGetMaxBitrateMethodInfo
ResolveDiscovererAudioInfoMethod "getMisc" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetMiscMethodInfo
ResolveDiscovererAudioInfoMethod "getNext" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetNextMethodInfo
ResolveDiscovererAudioInfoMethod "getPrevious" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetPreviousMethodInfo
ResolveDiscovererAudioInfoMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDiscovererAudioInfoMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDiscovererAudioInfoMethod "getSampleRate" o = DiscovererAudioInfoGetSampleRateMethodInfo
ResolveDiscovererAudioInfoMethod "getStreamId" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetStreamIdMethodInfo
ResolveDiscovererAudioInfoMethod "getStreamTypeNick" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetStreamTypeNickMethodInfo
ResolveDiscovererAudioInfoMethod "getTags" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetTagsMethodInfo
ResolveDiscovererAudioInfoMethod "getToc" o = GstPbutils.DiscovererStreamInfo.DiscovererStreamInfoGetTocMethodInfo
ResolveDiscovererAudioInfoMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDiscovererAudioInfoMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDiscovererAudioInfoMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDiscovererAudioInfoMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDiscovererAudioInfoMethod t DiscovererAudioInfo, O.OverloadedMethod info DiscovererAudioInfo p) => OL.IsLabel t (DiscovererAudioInfo -> 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 ~ ResolveDiscovererAudioInfoMethod t DiscovererAudioInfo, O.OverloadedMethod info DiscovererAudioInfo p, R.HasField t DiscovererAudioInfo p) => R.HasField t DiscovererAudioInfo p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDiscovererAudioInfoMethod t DiscovererAudioInfo, O.OverloadedMethodInfo info DiscovererAudioInfo) => OL.IsLabel t (O.MethodProxy info DiscovererAudioInfo) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DiscovererAudioInfo
type instance O.AttributeList DiscovererAudioInfo = DiscovererAudioInfoAttributeList
type DiscovererAudioInfoAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DiscovererAudioInfo = DiscovererAudioInfoSignalList
type DiscovererAudioInfoSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gst_discoverer_audio_info_get_bitrate" gst_discoverer_audio_info_get_bitrate ::
Ptr DiscovererAudioInfo ->
IO Word32
discovererAudioInfoGetBitrate ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>
a
-> m Word32
discovererAudioInfoGetBitrate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>
a -> m Word32
discovererAudioInfoGetBitrate a
info = 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 DiscovererAudioInfo
info' <- a -> IO (Ptr DiscovererAudioInfo)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
Word32
result <- Ptr DiscovererAudioInfo -> IO Word32
gst_discoverer_audio_info_get_bitrate Ptr DiscovererAudioInfo
info'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data DiscovererAudioInfoGetBitrateMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiscovererAudioInfo a) => O.OverloadedMethod DiscovererAudioInfoGetBitrateMethodInfo a signature where
overloadedMethod = discovererAudioInfoGetBitrate
instance O.OverloadedMethodInfo DiscovererAudioInfoGetBitrateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GstPbutils.Objects.DiscovererAudioInfo.discovererAudioInfoGetBitrate",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.23/docs/GI-GstPbutils-Objects-DiscovererAudioInfo.html#v:discovererAudioInfoGetBitrate"
}
#endif
foreign import ccall "gst_discoverer_audio_info_get_channel_mask" gst_discoverer_audio_info_get_channel_mask ::
Ptr DiscovererAudioInfo ->
IO Word64
discovererAudioInfoGetChannelMask ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>
a
-> m Word64
discovererAudioInfoGetChannelMask :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>
a -> m Word64
discovererAudioInfoGetChannelMask a
info = IO Word64 -> m Word64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr DiscovererAudioInfo
info' <- a -> IO (Ptr DiscovererAudioInfo)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
Word64
result <- Ptr DiscovererAudioInfo -> IO Word64
gst_discoverer_audio_info_get_channel_mask Ptr DiscovererAudioInfo
info'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Word64 -> IO Word64
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data DiscovererAudioInfoGetChannelMaskMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsDiscovererAudioInfo a) => O.OverloadedMethod DiscovererAudioInfoGetChannelMaskMethodInfo a signature where
overloadedMethod = discovererAudioInfoGetChannelMask
instance O.OverloadedMethodInfo DiscovererAudioInfoGetChannelMaskMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GstPbutils.Objects.DiscovererAudioInfo.discovererAudioInfoGetChannelMask",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.23/docs/GI-GstPbutils-Objects-DiscovererAudioInfo.html#v:discovererAudioInfoGetChannelMask"
}
#endif
foreign import ccall "gst_discoverer_audio_info_get_channels" gst_discoverer_audio_info_get_channels ::
Ptr DiscovererAudioInfo ->
IO Word32
discovererAudioInfoGetChannels ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>
a
-> m Word32
discovererAudioInfoGetChannels :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>
a -> m Word32
discovererAudioInfoGetChannels a
info = 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 DiscovererAudioInfo
info' <- a -> IO (Ptr DiscovererAudioInfo)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
Word32
result <- Ptr DiscovererAudioInfo -> IO Word32
gst_discoverer_audio_info_get_channels Ptr DiscovererAudioInfo
info'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data DiscovererAudioInfoGetChannelsMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiscovererAudioInfo a) => O.OverloadedMethod DiscovererAudioInfoGetChannelsMethodInfo a signature where
overloadedMethod = discovererAudioInfoGetChannels
instance O.OverloadedMethodInfo DiscovererAudioInfoGetChannelsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GstPbutils.Objects.DiscovererAudioInfo.discovererAudioInfoGetChannels",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.23/docs/GI-GstPbutils-Objects-DiscovererAudioInfo.html#v:discovererAudioInfoGetChannels"
}
#endif
foreign import ccall "gst_discoverer_audio_info_get_depth" gst_discoverer_audio_info_get_depth ::
Ptr DiscovererAudioInfo ->
IO Word32
discovererAudioInfoGetDepth ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>
a
-> m Word32
discovererAudioInfoGetDepth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>
a -> m Word32
discovererAudioInfoGetDepth a
info = 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 DiscovererAudioInfo
info' <- a -> IO (Ptr DiscovererAudioInfo)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
Word32
result <- Ptr DiscovererAudioInfo -> IO Word32
gst_discoverer_audio_info_get_depth Ptr DiscovererAudioInfo
info'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data DiscovererAudioInfoGetDepthMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiscovererAudioInfo a) => O.OverloadedMethod DiscovererAudioInfoGetDepthMethodInfo a signature where
overloadedMethod = discovererAudioInfoGetDepth
instance O.OverloadedMethodInfo DiscovererAudioInfoGetDepthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GstPbutils.Objects.DiscovererAudioInfo.discovererAudioInfoGetDepth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.23/docs/GI-GstPbutils-Objects-DiscovererAudioInfo.html#v:discovererAudioInfoGetDepth"
}
#endif
foreign import ccall "gst_discoverer_audio_info_get_language" gst_discoverer_audio_info_get_language ::
Ptr DiscovererAudioInfo ->
IO CString
discovererAudioInfoGetLanguage ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>
a
-> m T.Text
discovererAudioInfoGetLanguage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>
a -> m Text
discovererAudioInfoGetLanguage a
info = 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 DiscovererAudioInfo
info' <- a -> IO (Ptr DiscovererAudioInfo)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
CString
result <- Ptr DiscovererAudioInfo -> IO CString
gst_discoverer_audio_info_get_language Ptr DiscovererAudioInfo
info'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"discovererAudioInfoGetLanguage" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DiscovererAudioInfoGetLanguageMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDiscovererAudioInfo a) => O.OverloadedMethod DiscovererAudioInfoGetLanguageMethodInfo a signature where
overloadedMethod = discovererAudioInfoGetLanguage
instance O.OverloadedMethodInfo DiscovererAudioInfoGetLanguageMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GstPbutils.Objects.DiscovererAudioInfo.discovererAudioInfoGetLanguage",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.23/docs/GI-GstPbutils-Objects-DiscovererAudioInfo.html#v:discovererAudioInfoGetLanguage"
}
#endif
foreign import ccall "gst_discoverer_audio_info_get_max_bitrate" gst_discoverer_audio_info_get_max_bitrate ::
Ptr DiscovererAudioInfo ->
IO Word32
discovererAudioInfoGetMaxBitrate ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>
a
-> m Word32
discovererAudioInfoGetMaxBitrate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>
a -> m Word32
discovererAudioInfoGetMaxBitrate a
info = 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 DiscovererAudioInfo
info' <- a -> IO (Ptr DiscovererAudioInfo)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
Word32
result <- Ptr DiscovererAudioInfo -> IO Word32
gst_discoverer_audio_info_get_max_bitrate Ptr DiscovererAudioInfo
info'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data DiscovererAudioInfoGetMaxBitrateMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiscovererAudioInfo a) => O.OverloadedMethod DiscovererAudioInfoGetMaxBitrateMethodInfo a signature where
overloadedMethod = discovererAudioInfoGetMaxBitrate
instance O.OverloadedMethodInfo DiscovererAudioInfoGetMaxBitrateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GstPbutils.Objects.DiscovererAudioInfo.discovererAudioInfoGetMaxBitrate",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.23/docs/GI-GstPbutils-Objects-DiscovererAudioInfo.html#v:discovererAudioInfoGetMaxBitrate"
}
#endif
foreign import ccall "gst_discoverer_audio_info_get_sample_rate" gst_discoverer_audio_info_get_sample_rate ::
Ptr DiscovererAudioInfo ->
IO Word32
discovererAudioInfoGetSampleRate ::
(B.CallStack.HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>
a
-> m Word32
discovererAudioInfoGetSampleRate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDiscovererAudioInfo a) =>
a -> m Word32
discovererAudioInfoGetSampleRate a
info = 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 DiscovererAudioInfo
info' <- a -> IO (Ptr DiscovererAudioInfo)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
info
Word32
result <- Ptr DiscovererAudioInfo -> IO Word32
gst_discoverer_audio_info_get_sample_rate Ptr DiscovererAudioInfo
info'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
info
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data DiscovererAudioInfoGetSampleRateMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDiscovererAudioInfo a) => O.OverloadedMethod DiscovererAudioInfoGetSampleRateMethodInfo a signature where
overloadedMethod = discovererAudioInfoGetSampleRate
instance O.OverloadedMethodInfo DiscovererAudioInfoGetSampleRateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GstPbutils.Objects.DiscovererAudioInfo.discovererAudioInfoGetSampleRate",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gstpbutils-1.0.23/docs/GI-GstPbutils-Objects-DiscovererAudioInfo.html#v:discovererAudioInfoGetSampleRate"
}
#endif