gi-gst-0.1.6.13: GI/Gst/Structs/Query.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
Queries can be performed on pads (gst_pad_query()) and elements
(gst_element_query()). Please note that some queries might need a running
pipeline to work.
Queries can be created using the gst_query_new_*() functions.
Query values can be set using gst_query_set_*(), and parsed using
gst_query_parse_*() helpers.
The following example shows how to query the duration of a pipeline:
|[
GstQuery *query;
gboolean res;
query = gst_query_new_duration (GST_FORMAT_TIME);
res = gst_element_query (pipeline, query);
if (res) {
gint64 duration;
gst_query_parse_duration (query, NULL, &duration);
g_print ("duration = %"GST_TIME_FORMAT, GST_TIME_ARGS (duration));
} else {
g_print ("duration query failed...");
}
gst_query_unref (query);
]|
-}
module GI.Gst.Structs.Query
(
-- * Exported types
Query(..) ,
newZeroQuery ,
noQuery ,
-- * Methods
-- ** queryAddAllocationMeta
QueryAddAllocationMetaMethodInfo ,
queryAddAllocationMeta ,
-- ** queryAddAllocationParam
QueryAddAllocationParamMethodInfo ,
queryAddAllocationParam ,
-- ** queryAddAllocationPool
QueryAddAllocationPoolMethodInfo ,
queryAddAllocationPool ,
-- ** queryAddBufferingRange
QueryAddBufferingRangeMethodInfo ,
queryAddBufferingRange ,
-- ** queryAddSchedulingMode
QueryAddSchedulingModeMethodInfo ,
queryAddSchedulingMode ,
-- ** queryFindAllocationMeta
QueryFindAllocationMetaMethodInfo ,
queryFindAllocationMeta ,
-- ** queryGetNAllocationMetas
QueryGetNAllocationMetasMethodInfo ,
queryGetNAllocationMetas ,
-- ** queryGetNAllocationParams
QueryGetNAllocationParamsMethodInfo ,
queryGetNAllocationParams ,
-- ** queryGetNAllocationPools
QueryGetNAllocationPoolsMethodInfo ,
queryGetNAllocationPools ,
-- ** queryGetNBufferingRanges
QueryGetNBufferingRangesMethodInfo ,
queryGetNBufferingRanges ,
-- ** queryGetNSchedulingModes
QueryGetNSchedulingModesMethodInfo ,
queryGetNSchedulingModes ,
-- ** queryGetStructure
QueryGetStructureMethodInfo ,
queryGetStructure ,
-- ** queryHasSchedulingMode
QueryHasSchedulingModeMethodInfo ,
queryHasSchedulingMode ,
-- ** queryHasSchedulingModeWithFlags
QueryHasSchedulingModeWithFlagsMethodInfo,
queryHasSchedulingModeWithFlags ,
-- ** queryNewAcceptCaps
queryNewAcceptCaps ,
-- ** queryNewAllocation
queryNewAllocation ,
-- ** queryNewBuffering
queryNewBuffering ,
-- ** queryNewCaps
queryNewCaps ,
-- ** queryNewContext
queryNewContext ,
-- ** queryNewConvert
queryNewConvert ,
-- ** queryNewCustom
queryNewCustom ,
-- ** queryNewDrain
queryNewDrain ,
-- ** queryNewDuration
queryNewDuration ,
-- ** queryNewFormats
queryNewFormats ,
-- ** queryNewLatency
queryNewLatency ,
-- ** queryNewPosition
queryNewPosition ,
-- ** queryNewScheduling
queryNewScheduling ,
-- ** queryNewSeeking
queryNewSeeking ,
-- ** queryNewSegment
queryNewSegment ,
-- ** queryNewUri
queryNewUri ,
-- ** queryParseAcceptCaps
QueryParseAcceptCapsMethodInfo ,
queryParseAcceptCaps ,
-- ** queryParseAcceptCapsResult
QueryParseAcceptCapsResultMethodInfo ,
queryParseAcceptCapsResult ,
-- ** queryParseAllocation
QueryParseAllocationMethodInfo ,
queryParseAllocation ,
-- ** queryParseBufferingPercent
QueryParseBufferingPercentMethodInfo ,
queryParseBufferingPercent ,
-- ** queryParseBufferingRange
QueryParseBufferingRangeMethodInfo ,
queryParseBufferingRange ,
-- ** queryParseBufferingStats
QueryParseBufferingStatsMethodInfo ,
queryParseBufferingStats ,
-- ** queryParseCaps
QueryParseCapsMethodInfo ,
queryParseCaps ,
-- ** queryParseCapsResult
QueryParseCapsResultMethodInfo ,
queryParseCapsResult ,
-- ** queryParseContext
QueryParseContextMethodInfo ,
queryParseContext ,
-- ** queryParseContextType
QueryParseContextTypeMethodInfo ,
queryParseContextType ,
-- ** queryParseConvert
QueryParseConvertMethodInfo ,
queryParseConvert ,
-- ** queryParseDuration
QueryParseDurationMethodInfo ,
queryParseDuration ,
-- ** queryParseLatency
QueryParseLatencyMethodInfo ,
queryParseLatency ,
-- ** queryParseNFormats
QueryParseNFormatsMethodInfo ,
queryParseNFormats ,
-- ** queryParseNthAllocationMeta
QueryParseNthAllocationMetaMethodInfo ,
queryParseNthAllocationMeta ,
-- ** queryParseNthAllocationParam
QueryParseNthAllocationParamMethodInfo ,
queryParseNthAllocationParam ,
-- ** queryParseNthAllocationPool
QueryParseNthAllocationPoolMethodInfo ,
queryParseNthAllocationPool ,
-- ** queryParseNthBufferingRange
QueryParseNthBufferingRangeMethodInfo ,
queryParseNthBufferingRange ,
-- ** queryParseNthFormat
QueryParseNthFormatMethodInfo ,
queryParseNthFormat ,
-- ** queryParseNthSchedulingMode
QueryParseNthSchedulingModeMethodInfo ,
queryParseNthSchedulingMode ,
-- ** queryParsePosition
QueryParsePositionMethodInfo ,
queryParsePosition ,
-- ** queryParseScheduling
QueryParseSchedulingMethodInfo ,
queryParseScheduling ,
-- ** queryParseSeeking
QueryParseSeekingMethodInfo ,
queryParseSeeking ,
-- ** queryParseSegment
QueryParseSegmentMethodInfo ,
queryParseSegment ,
-- ** queryParseUri
QueryParseUriMethodInfo ,
queryParseUri ,
-- ** queryParseUriRedirection
QueryParseUriRedirectionMethodInfo ,
queryParseUriRedirection ,
-- ** queryParseUriRedirectionPermanent
QueryParseUriRedirectionPermanentMethodInfo,
queryParseUriRedirectionPermanent ,
-- ** queryRemoveNthAllocationMeta
QueryRemoveNthAllocationMetaMethodInfo ,
queryRemoveNthAllocationMeta ,
-- ** queryRemoveNthAllocationParam
QueryRemoveNthAllocationParamMethodInfo ,
queryRemoveNthAllocationParam ,
-- ** queryRemoveNthAllocationPool
QueryRemoveNthAllocationPoolMethodInfo ,
queryRemoveNthAllocationPool ,
-- ** querySetAcceptCapsResult
QuerySetAcceptCapsResultMethodInfo ,
querySetAcceptCapsResult ,
-- ** querySetBufferingPercent
QuerySetBufferingPercentMethodInfo ,
querySetBufferingPercent ,
-- ** querySetBufferingRange
QuerySetBufferingRangeMethodInfo ,
querySetBufferingRange ,
-- ** querySetBufferingStats
QuerySetBufferingStatsMethodInfo ,
querySetBufferingStats ,
-- ** querySetCapsResult
QuerySetCapsResultMethodInfo ,
querySetCapsResult ,
-- ** querySetContext
QuerySetContextMethodInfo ,
querySetContext ,
-- ** querySetConvert
QuerySetConvertMethodInfo ,
querySetConvert ,
-- ** querySetDuration
QuerySetDurationMethodInfo ,
querySetDuration ,
-- ** querySetFormatsv
QuerySetFormatsvMethodInfo ,
querySetFormatsv ,
-- ** querySetLatency
QuerySetLatencyMethodInfo ,
querySetLatency ,
-- ** querySetNthAllocationParam
QuerySetNthAllocationParamMethodInfo ,
querySetNthAllocationParam ,
-- ** querySetNthAllocationPool
QuerySetNthAllocationPoolMethodInfo ,
querySetNthAllocationPool ,
-- ** querySetPosition
QuerySetPositionMethodInfo ,
querySetPosition ,
-- ** querySetScheduling
QuerySetSchedulingMethodInfo ,
querySetScheduling ,
-- ** querySetSeeking
QuerySetSeekingMethodInfo ,
querySetSeeking ,
-- ** querySetSegment
QuerySetSegmentMethodInfo ,
querySetSegment ,
-- ** querySetUri
QuerySetUriMethodInfo ,
querySetUri ,
-- ** querySetUriRedirection
QuerySetUriRedirectionMethodInfo ,
querySetUriRedirection ,
-- ** querySetUriRedirectionPermanent
QuerySetUriRedirectionPermanentMethodInfo,
querySetUriRedirectionPermanent ,
-- ** queryWritableStructure
QueryWritableStructureMethodInfo ,
queryWritableStructure ,
-- * Properties
-- ** MiniObject
queryReadMiniObject ,
-- ** Type
queryReadType ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gst.Types
import GI.Gst.Callbacks
newtype Query = Query (ForeignPtr Query)
foreign import ccall "gst_query_get_type" c_gst_query_get_type ::
IO GType
instance BoxedObject Query where
boxedType _ = c_gst_query_get_type
-- | Construct a `Query` struct initialized to zero.
newZeroQuery :: MonadIO m => m Query
newZeroQuery = liftIO $ callocBoxedBytes 72 >>= wrapBoxed Query
noQuery :: Maybe Query
noQuery = Nothing
queryReadMiniObject :: Query -> IO MiniObject
queryReadMiniObject s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO (Ptr MiniObject)
val' <- (newPtr 64 MiniObject) val
return val'
queryReadType :: Query -> IO QueryType
queryReadType s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 64) :: IO CUInt
let val' = (toEnum . fromIntegral) val
return val'
-- method Query::new_accept_caps
-- method type : Constructor
-- Args : [Arg {argCName = "caps", argType = TInterface "Gst" "Caps", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "Query"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_new_accept_caps" gst_query_new_accept_caps ::
Ptr Caps -> -- caps : TInterface "Gst" "Caps"
IO (Ptr Query)
queryNewAcceptCaps ::
(MonadIO m) =>
Caps -- caps
-> m Query -- result
queryNewAcceptCaps caps = liftIO $ do
let caps' = unsafeManagedPtrGetPtr caps
result <- gst_query_new_accept_caps caps'
checkUnexpectedReturnNULL "gst_query_new_accept_caps" result
result' <- (wrapBoxed Query) result
touchManagedPtr caps
return result'
-- method Query::new_allocation
-- method type : Constructor
-- Args : [Arg {argCName = "caps", argType = TInterface "Gst" "Caps", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "need_pool", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "Query"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_new_allocation" gst_query_new_allocation ::
Ptr Caps -> -- caps : TInterface "Gst" "Caps"
CInt -> -- need_pool : TBasicType TBoolean
IO (Ptr Query)
queryNewAllocation ::
(MonadIO m) =>
Caps -- caps
-> Bool -- needPool
-> m Query -- result
queryNewAllocation caps needPool = liftIO $ do
let caps' = unsafeManagedPtrGetPtr caps
let needPool' = (fromIntegral . fromEnum) needPool
result <- gst_query_new_allocation caps' needPool'
checkUnexpectedReturnNULL "gst_query_new_allocation" result
result' <- (wrapBoxed Query) result
touchManagedPtr caps
return result'
-- method Query::new_buffering
-- method type : Constructor
-- Args : [Arg {argCName = "format", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "Query"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_new_buffering" gst_query_new_buffering ::
CUInt -> -- format : TInterface "Gst" "Format"
IO (Ptr Query)
queryNewBuffering ::
(MonadIO m) =>
Format -- format
-> m Query -- result
queryNewBuffering format = liftIO $ do
let format' = (fromIntegral . fromEnum) format
result <- gst_query_new_buffering format'
checkUnexpectedReturnNULL "gst_query_new_buffering" result
result' <- (wrapBoxed Query) result
return result'
-- method Query::new_caps
-- method type : Constructor
-- Args : [Arg {argCName = "filter", argType = TInterface "Gst" "Caps", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "Query"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_new_caps" gst_query_new_caps ::
Ptr Caps -> -- filter : TInterface "Gst" "Caps"
IO (Ptr Query)
queryNewCaps ::
(MonadIO m) =>
Caps -- filter
-> m Query -- result
queryNewCaps filter = liftIO $ do
let filter' = unsafeManagedPtrGetPtr filter
result <- gst_query_new_caps filter'
checkUnexpectedReturnNULL "gst_query_new_caps" result
result' <- (wrapBoxed Query) result
touchManagedPtr filter
return result'
-- method Query::new_context
-- method type : Constructor
-- Args : [Arg {argCName = "context_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "Query"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_new_context" gst_query_new_context ::
CString -> -- context_type : TBasicType TUTF8
IO (Ptr Query)
queryNewContext ::
(MonadIO m) =>
T.Text -- contextType
-> m Query -- result
queryNewContext contextType = liftIO $ do
contextType' <- textToCString contextType
result <- gst_query_new_context contextType'
checkUnexpectedReturnNULL "gst_query_new_context" result
result' <- (wrapBoxed Query) result
freeMem contextType'
return result'
-- method Query::new_convert
-- method type : Constructor
-- Args : [Arg {argCName = "src_format", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_format", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "Query"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_new_convert" gst_query_new_convert ::
CUInt -> -- src_format : TInterface "Gst" "Format"
Int64 -> -- value : TBasicType TInt64
CUInt -> -- dest_format : TInterface "Gst" "Format"
IO (Ptr Query)
queryNewConvert ::
(MonadIO m) =>
Format -- srcFormat
-> Int64 -- value
-> Format -- destFormat
-> m Query -- result
queryNewConvert srcFormat value destFormat = liftIO $ do
let srcFormat' = (fromIntegral . fromEnum) srcFormat
let destFormat' = (fromIntegral . fromEnum) destFormat
result <- gst_query_new_convert srcFormat' value destFormat'
checkUnexpectedReturnNULL "gst_query_new_convert" result
result' <- (wrapBoxed Query) result
return result'
-- method Query::new_custom
-- method type : Constructor
-- Args : [Arg {argCName = "type", argType = TInterface "Gst" "QueryType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "structure", argType = TInterface "Gst" "Structure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TInterface "Gst" "Query"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_new_custom" gst_query_new_custom ::
CUInt -> -- type : TInterface "Gst" "QueryType"
Ptr Structure -> -- structure : TInterface "Gst" "Structure"
IO (Ptr Query)
queryNewCustom ::
(MonadIO m) =>
QueryType -- type_
-> Maybe (Structure) -- structure
-> m Query -- result
queryNewCustom type_ structure = liftIO $ do
let type_' = (fromIntegral . fromEnum) type_
maybeStructure <- case structure of
Nothing -> return nullPtr
Just jStructure -> do
jStructure' <- copyBoxed jStructure
return jStructure'
result <- gst_query_new_custom type_' maybeStructure
checkUnexpectedReturnNULL "gst_query_new_custom" result
result' <- (wrapBoxed Query) result
whenJust structure touchManagedPtr
return result'
-- method Query::new_drain
-- method type : Constructor
-- Args : []
-- Lengths : []
-- returnType : TInterface "Gst" "Query"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_new_drain" gst_query_new_drain ::
IO (Ptr Query)
queryNewDrain ::
(MonadIO m) =>
m Query -- result
queryNewDrain = liftIO $ do
result <- gst_query_new_drain
checkUnexpectedReturnNULL "gst_query_new_drain" result
result' <- (wrapBoxed Query) result
return result'
-- method Query::new_duration
-- method type : Constructor
-- Args : [Arg {argCName = "format", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "Query"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_new_duration" gst_query_new_duration ::
CUInt -> -- format : TInterface "Gst" "Format"
IO (Ptr Query)
queryNewDuration ::
(MonadIO m) =>
Format -- format
-> m Query -- result
queryNewDuration format = liftIO $ do
let format' = (fromIntegral . fromEnum) format
result <- gst_query_new_duration format'
checkUnexpectedReturnNULL "gst_query_new_duration" result
result' <- (wrapBoxed Query) result
return result'
-- method Query::new_formats
-- method type : Constructor
-- Args : []
-- Lengths : []
-- returnType : TInterface "Gst" "Query"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_new_formats" gst_query_new_formats ::
IO (Ptr Query)
queryNewFormats ::
(MonadIO m) =>
m Query -- result
queryNewFormats = liftIO $ do
result <- gst_query_new_formats
checkUnexpectedReturnNULL "gst_query_new_formats" result
result' <- (wrapBoxed Query) result
return result'
-- method Query::new_latency
-- method type : Constructor
-- Args : []
-- Lengths : []
-- returnType : TInterface "Gst" "Query"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_new_latency" gst_query_new_latency ::
IO (Ptr Query)
queryNewLatency ::
(MonadIO m) =>
m Query -- result
queryNewLatency = liftIO $ do
result <- gst_query_new_latency
checkUnexpectedReturnNULL "gst_query_new_latency" result
result' <- (wrapBoxed Query) result
return result'
-- method Query::new_position
-- method type : Constructor
-- Args : [Arg {argCName = "format", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "Query"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_new_position" gst_query_new_position ::
CUInt -> -- format : TInterface "Gst" "Format"
IO (Ptr Query)
queryNewPosition ::
(MonadIO m) =>
Format -- format
-> m Query -- result
queryNewPosition format = liftIO $ do
let format' = (fromIntegral . fromEnum) format
result <- gst_query_new_position format'
checkUnexpectedReturnNULL "gst_query_new_position" result
result' <- (wrapBoxed Query) result
return result'
-- method Query::new_scheduling
-- method type : Constructor
-- Args : []
-- Lengths : []
-- returnType : TInterface "Gst" "Query"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_new_scheduling" gst_query_new_scheduling ::
IO (Ptr Query)
queryNewScheduling ::
(MonadIO m) =>
m Query -- result
queryNewScheduling = liftIO $ do
result <- gst_query_new_scheduling
checkUnexpectedReturnNULL "gst_query_new_scheduling" result
result' <- (wrapBoxed Query) result
return result'
-- method Query::new_seeking
-- method type : Constructor
-- Args : [Arg {argCName = "format", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "Query"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_new_seeking" gst_query_new_seeking ::
CUInt -> -- format : TInterface "Gst" "Format"
IO (Ptr Query)
queryNewSeeking ::
(MonadIO m) =>
Format -- format
-> m Query -- result
queryNewSeeking format = liftIO $ do
let format' = (fromIntegral . fromEnum) format
result <- gst_query_new_seeking format'
checkUnexpectedReturnNULL "gst_query_new_seeking" result
result' <- (wrapBoxed Query) result
return result'
-- method Query::new_segment
-- method type : Constructor
-- Args : [Arg {argCName = "format", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "Query"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_new_segment" gst_query_new_segment ::
CUInt -> -- format : TInterface "Gst" "Format"
IO (Ptr Query)
queryNewSegment ::
(MonadIO m) =>
Format -- format
-> m Query -- result
queryNewSegment format = liftIO $ do
let format' = (fromIntegral . fromEnum) format
result <- gst_query_new_segment format'
checkUnexpectedReturnNULL "gst_query_new_segment" result
result' <- (wrapBoxed Query) result
return result'
-- method Query::new_uri
-- method type : Constructor
-- Args : []
-- Lengths : []
-- returnType : TInterface "Gst" "Query"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_new_uri" gst_query_new_uri ::
IO (Ptr Query)
queryNewUri ::
(MonadIO m) =>
m Query -- result
queryNewUri = liftIO $ do
result <- gst_query_new_uri
checkUnexpectedReturnNULL "gst_query_new_uri" result
result' <- (wrapBoxed Query) result
return result'
-- method Query::add_allocation_meta
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "api", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TInterface "Gst" "Structure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_add_allocation_meta" gst_query_add_allocation_meta ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CGType -> -- api : TBasicType TGType
Ptr Structure -> -- params : TInterface "Gst" "Structure"
IO ()
queryAddAllocationMeta ::
(MonadIO m) =>
Query -- _obj
-> GType -- api
-> Maybe (Structure) -- params
-> m () -- result
queryAddAllocationMeta _obj api params = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let api' = gtypeToCGType api
maybeParams <- case params of
Nothing -> return nullPtr
Just jParams -> do
let jParams' = unsafeManagedPtrGetPtr jParams
return jParams'
gst_query_add_allocation_meta _obj' api' maybeParams
touchManagedPtr _obj
whenJust params touchManagedPtr
return ()
data QueryAddAllocationMetaMethodInfo
instance (signature ~ (GType -> Maybe (Structure) -> m ()), MonadIO m) => MethodInfo QueryAddAllocationMetaMethodInfo Query signature where
overloadedMethod _ = queryAddAllocationMeta
-- method Query::add_allocation_param
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocator", argType = TInterface "Gst" "Allocator", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TInterface "Gst" "AllocationParams", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_add_allocation_param" gst_query_add_allocation_param ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr Allocator -> -- allocator : TInterface "Gst" "Allocator"
Ptr AllocationParams -> -- params : TInterface "Gst" "AllocationParams"
IO ()
queryAddAllocationParam ::
(MonadIO m, AllocatorK a) =>
Query -- _obj
-> Maybe (a) -- allocator
-> Maybe (AllocationParams) -- params
-> m () -- result
queryAddAllocationParam _obj allocator params = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
maybeAllocator <- case allocator of
Nothing -> return nullPtr
Just jAllocator -> do
let jAllocator' = unsafeManagedPtrCastPtr jAllocator
return jAllocator'
maybeParams <- case params of
Nothing -> return nullPtr
Just jParams -> do
let jParams' = unsafeManagedPtrGetPtr jParams
return jParams'
gst_query_add_allocation_param _obj' maybeAllocator maybeParams
touchManagedPtr _obj
whenJust allocator touchManagedPtr
whenJust params touchManagedPtr
return ()
data QueryAddAllocationParamMethodInfo
instance (signature ~ (Maybe (a) -> Maybe (AllocationParams) -> m ()), MonadIO m, AllocatorK a) => MethodInfo QueryAddAllocationParamMethodInfo Query signature where
overloadedMethod _ = queryAddAllocationParam
-- method Query::add_allocation_pool
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pool", argType = TInterface "Gst" "BufferPool", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_buffers", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_buffers", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_add_allocation_pool" gst_query_add_allocation_pool ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr BufferPool -> -- pool : TInterface "Gst" "BufferPool"
Word32 -> -- size : TBasicType TUInt32
Word32 -> -- min_buffers : TBasicType TUInt32
Word32 -> -- max_buffers : TBasicType TUInt32
IO ()
queryAddAllocationPool ::
(MonadIO m, BufferPoolK a) =>
Query -- _obj
-> Maybe (a) -- pool
-> Word32 -- size
-> Word32 -- minBuffers
-> Word32 -- maxBuffers
-> m () -- result
queryAddAllocationPool _obj pool size minBuffers maxBuffers = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
maybePool <- case pool of
Nothing -> return nullPtr
Just jPool -> do
let jPool' = unsafeManagedPtrCastPtr jPool
return jPool'
gst_query_add_allocation_pool _obj' maybePool size minBuffers maxBuffers
touchManagedPtr _obj
whenJust pool touchManagedPtr
return ()
data QueryAddAllocationPoolMethodInfo
instance (signature ~ (Maybe (a) -> Word32 -> Word32 -> Word32 -> m ()), MonadIO m, BufferPoolK a) => MethodInfo QueryAddAllocationPoolMethodInfo Query signature where
overloadedMethod _ = queryAddAllocationPool
-- method Query::add_buffering_range
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_add_buffering_range" gst_query_add_buffering_range ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Int64 -> -- start : TBasicType TInt64
Int64 -> -- stop : TBasicType TInt64
IO CInt
queryAddBufferingRange ::
(MonadIO m) =>
Query -- _obj
-> Int64 -- start
-> Int64 -- stop
-> m Bool -- result
queryAddBufferingRange _obj start stop = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gst_query_add_buffering_range _obj' start stop
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data QueryAddBufferingRangeMethodInfo
instance (signature ~ (Int64 -> Int64 -> m Bool), MonadIO m) => MethodInfo QueryAddBufferingRangeMethodInfo Query signature where
overloadedMethod _ = queryAddBufferingRange
-- method Query::add_scheduling_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gst" "PadMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_add_scheduling_mode" gst_query_add_scheduling_mode ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CUInt -> -- mode : TInterface "Gst" "PadMode"
IO ()
queryAddSchedulingMode ::
(MonadIO m) =>
Query -- _obj
-> PadMode -- mode
-> m () -- result
queryAddSchedulingMode _obj mode = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let mode' = (fromIntegral . fromEnum) mode
gst_query_add_scheduling_mode _obj' mode'
touchManagedPtr _obj
return ()
data QueryAddSchedulingModeMethodInfo
instance (signature ~ (PadMode -> m ()), MonadIO m) => MethodInfo QueryAddSchedulingModeMethodInfo Query signature where
overloadedMethod _ = queryAddSchedulingMode
-- method Query::find_allocation_meta
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "api", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_find_allocation_meta" gst_query_find_allocation_meta ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CGType -> -- api : TBasicType TGType
Ptr Word32 -> -- index : TBasicType TUInt32
IO CInt
queryFindAllocationMeta ::
(MonadIO m) =>
Query -- _obj
-> GType -- api
-> m (Bool,Word32) -- result
queryFindAllocationMeta _obj api = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let api' = gtypeToCGType api
index <- allocMem :: IO (Ptr Word32)
result <- gst_query_find_allocation_meta _obj' api' index
let result' = (/= 0) result
index' <- peek index
touchManagedPtr _obj
freeMem index
return (result', index')
data QueryFindAllocationMetaMethodInfo
instance (signature ~ (GType -> m (Bool,Word32)), MonadIO m) => MethodInfo QueryFindAllocationMetaMethodInfo Query signature where
overloadedMethod _ = queryFindAllocationMeta
-- method Query::get_n_allocation_metas
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_get_n_allocation_metas" gst_query_get_n_allocation_metas ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
IO Word32
queryGetNAllocationMetas ::
(MonadIO m) =>
Query -- _obj
-> m Word32 -- result
queryGetNAllocationMetas _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gst_query_get_n_allocation_metas _obj'
touchManagedPtr _obj
return result
data QueryGetNAllocationMetasMethodInfo
instance (signature ~ (m Word32), MonadIO m) => MethodInfo QueryGetNAllocationMetasMethodInfo Query signature where
overloadedMethod _ = queryGetNAllocationMetas
-- method Query::get_n_allocation_params
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_get_n_allocation_params" gst_query_get_n_allocation_params ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
IO Word32
queryGetNAllocationParams ::
(MonadIO m) =>
Query -- _obj
-> m Word32 -- result
queryGetNAllocationParams _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gst_query_get_n_allocation_params _obj'
touchManagedPtr _obj
return result
data QueryGetNAllocationParamsMethodInfo
instance (signature ~ (m Word32), MonadIO m) => MethodInfo QueryGetNAllocationParamsMethodInfo Query signature where
overloadedMethod _ = queryGetNAllocationParams
-- method Query::get_n_allocation_pools
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_get_n_allocation_pools" gst_query_get_n_allocation_pools ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
IO Word32
queryGetNAllocationPools ::
(MonadIO m) =>
Query -- _obj
-> m Word32 -- result
queryGetNAllocationPools _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gst_query_get_n_allocation_pools _obj'
touchManagedPtr _obj
return result
data QueryGetNAllocationPoolsMethodInfo
instance (signature ~ (m Word32), MonadIO m) => MethodInfo QueryGetNAllocationPoolsMethodInfo Query signature where
overloadedMethod _ = queryGetNAllocationPools
-- method Query::get_n_buffering_ranges
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_get_n_buffering_ranges" gst_query_get_n_buffering_ranges ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
IO Word32
queryGetNBufferingRanges ::
(MonadIO m) =>
Query -- _obj
-> m Word32 -- result
queryGetNBufferingRanges _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gst_query_get_n_buffering_ranges _obj'
touchManagedPtr _obj
return result
data QueryGetNBufferingRangesMethodInfo
instance (signature ~ (m Word32), MonadIO m) => MethodInfo QueryGetNBufferingRangesMethodInfo Query signature where
overloadedMethod _ = queryGetNBufferingRanges
-- method Query::get_n_scheduling_modes
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_get_n_scheduling_modes" gst_query_get_n_scheduling_modes ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
IO Word32
queryGetNSchedulingModes ::
(MonadIO m) =>
Query -- _obj
-> m Word32 -- result
queryGetNSchedulingModes _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gst_query_get_n_scheduling_modes _obj'
touchManagedPtr _obj
return result
data QueryGetNSchedulingModesMethodInfo
instance (signature ~ (m Word32), MonadIO m) => MethodInfo QueryGetNSchedulingModesMethodInfo Query signature where
overloadedMethod _ = queryGetNSchedulingModes
-- method Query::get_structure
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "Structure"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_get_structure" gst_query_get_structure ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
IO (Ptr Structure)
queryGetStructure ::
(MonadIO m) =>
Query -- _obj
-> m Structure -- result
queryGetStructure _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gst_query_get_structure _obj'
checkUnexpectedReturnNULL "gst_query_get_structure" result
result' <- (newBoxed Structure) result
touchManagedPtr _obj
return result'
data QueryGetStructureMethodInfo
instance (signature ~ (m Structure), MonadIO m) => MethodInfo QueryGetStructureMethodInfo Query signature where
overloadedMethod _ = queryGetStructure
-- method Query::has_scheduling_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gst" "PadMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_has_scheduling_mode" gst_query_has_scheduling_mode ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CUInt -> -- mode : TInterface "Gst" "PadMode"
IO CInt
queryHasSchedulingMode ::
(MonadIO m) =>
Query -- _obj
-> PadMode -- mode
-> m Bool -- result
queryHasSchedulingMode _obj mode = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let mode' = (fromIntegral . fromEnum) mode
result <- gst_query_has_scheduling_mode _obj' mode'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data QueryHasSchedulingModeMethodInfo
instance (signature ~ (PadMode -> m Bool), MonadIO m) => MethodInfo QueryHasSchedulingModeMethodInfo Query signature where
overloadedMethod _ = queryHasSchedulingMode
-- method Query::has_scheduling_mode_with_flags
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gst" "PadMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gst" "SchedulingFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_has_scheduling_mode_with_flags" gst_query_has_scheduling_mode_with_flags ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CUInt -> -- mode : TInterface "Gst" "PadMode"
CUInt -> -- flags : TInterface "Gst" "SchedulingFlags"
IO CInt
queryHasSchedulingModeWithFlags ::
(MonadIO m) =>
Query -- _obj
-> PadMode -- mode
-> [SchedulingFlags] -- flags
-> m Bool -- result
queryHasSchedulingModeWithFlags _obj mode flags = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let mode' = (fromIntegral . fromEnum) mode
let flags' = gflagsToWord flags
result <- gst_query_has_scheduling_mode_with_flags _obj' mode' flags'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data QueryHasSchedulingModeWithFlagsMethodInfo
instance (signature ~ (PadMode -> [SchedulingFlags] -> m Bool), MonadIO m) => MethodInfo QueryHasSchedulingModeWithFlagsMethodInfo Query signature where
overloadedMethod _ = queryHasSchedulingModeWithFlags
-- method Query::parse_accept_caps
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "caps", argType = TInterface "Gst" "Caps", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_accept_caps" gst_query_parse_accept_caps ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr Caps -> -- caps : TInterface "Gst" "Caps"
IO ()
queryParseAcceptCaps ::
(MonadIO m) =>
Query -- _obj
-> m (Caps) -- result
queryParseAcceptCaps _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
caps <- callocBoxedBytes 64 :: IO (Ptr Caps)
gst_query_parse_accept_caps _obj' caps
caps' <- (wrapBoxed Caps) caps
touchManagedPtr _obj
return caps'
data QueryParseAcceptCapsMethodInfo
instance (signature ~ (m (Caps)), MonadIO m) => MethodInfo QueryParseAcceptCapsMethodInfo Query signature where
overloadedMethod _ = queryParseAcceptCaps
-- method Query::parse_accept_caps_result
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_accept_caps_result" gst_query_parse_accept_caps_result ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CInt -> -- result : TBasicType TBoolean
IO ()
queryParseAcceptCapsResult ::
(MonadIO m) =>
Query -- _obj
-> Bool -- result_
-> m () -- result
queryParseAcceptCapsResult _obj result_ = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let result_' = (fromIntegral . fromEnum) result_
gst_query_parse_accept_caps_result _obj' result_'
touchManagedPtr _obj
return ()
data QueryParseAcceptCapsResultMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo QueryParseAcceptCapsResultMethodInfo Query signature where
overloadedMethod _ = queryParseAcceptCapsResult
-- method Query::parse_allocation
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "caps", argType = TInterface "Gst" "Caps", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "need_pool", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_allocation" gst_query_parse_allocation ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr Caps -> -- caps : TInterface "Gst" "Caps"
Ptr CInt -> -- need_pool : TBasicType TBoolean
IO ()
queryParseAllocation ::
(MonadIO m) =>
Query -- _obj
-> m (Caps,Bool) -- result
queryParseAllocation _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
caps <- callocBoxedBytes 64 :: IO (Ptr Caps)
needPool <- allocMem :: IO (Ptr CInt)
gst_query_parse_allocation _obj' caps needPool
caps' <- (wrapBoxed Caps) caps
needPool' <- peek needPool
let needPool'' = (/= 0) needPool'
touchManagedPtr _obj
freeMem needPool
return (caps', needPool'')
data QueryParseAllocationMethodInfo
instance (signature ~ (m (Caps,Bool)), MonadIO m) => MethodInfo QueryParseAllocationMethodInfo Query signature where
overloadedMethod _ = queryParseAllocation
-- method Query::parse_buffering_percent
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "busy", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "percent", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_buffering_percent" gst_query_parse_buffering_percent ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr CInt -> -- busy : TBasicType TBoolean
Ptr Int32 -> -- percent : TBasicType TInt32
IO ()
queryParseBufferingPercent ::
(MonadIO m) =>
Query -- _obj
-> m (Bool,Int32) -- result
queryParseBufferingPercent _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
busy <- allocMem :: IO (Ptr CInt)
percent <- allocMem :: IO (Ptr Int32)
gst_query_parse_buffering_percent _obj' busy percent
busy' <- peek busy
let busy'' = (/= 0) busy'
percent' <- peek percent
touchManagedPtr _obj
freeMem busy
freeMem percent
return (busy'', percent')
data QueryParseBufferingPercentMethodInfo
instance (signature ~ (m (Bool,Int32)), MonadIO m) => MethodInfo QueryParseBufferingPercentMethodInfo Query signature where
overloadedMethod _ = queryParseBufferingPercent
-- method Query::parse_buffering_range
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gst" "Format", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "start", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "stop", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "estimated_total", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_buffering_range" gst_query_parse_buffering_range ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr CUInt -> -- format : TInterface "Gst" "Format"
Ptr Int64 -> -- start : TBasicType TInt64
Ptr Int64 -> -- stop : TBasicType TInt64
Ptr Int64 -> -- estimated_total : TBasicType TInt64
IO ()
queryParseBufferingRange ::
(MonadIO m) =>
Query -- _obj
-> m (Format,Int64,Int64,Int64) -- result
queryParseBufferingRange _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
format <- allocMem :: IO (Ptr CUInt)
start <- allocMem :: IO (Ptr Int64)
stop <- allocMem :: IO (Ptr Int64)
estimatedTotal <- allocMem :: IO (Ptr Int64)
gst_query_parse_buffering_range _obj' format start stop estimatedTotal
format' <- peek format
let format'' = (toEnum . fromIntegral) format'
start' <- peek start
stop' <- peek stop
estimatedTotal' <- peek estimatedTotal
touchManagedPtr _obj
freeMem format
freeMem start
freeMem stop
freeMem estimatedTotal
return (format'', start', stop', estimatedTotal')
data QueryParseBufferingRangeMethodInfo
instance (signature ~ (m (Format,Int64,Int64,Int64)), MonadIO m) => MethodInfo QueryParseBufferingRangeMethodInfo Query signature where
overloadedMethod _ = queryParseBufferingRange
-- method Query::parse_buffering_stats
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gst" "BufferingMode", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "avg_in", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "avg_out", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "buffering_left", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_buffering_stats" gst_query_parse_buffering_stats ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr CUInt -> -- mode : TInterface "Gst" "BufferingMode"
Ptr Int32 -> -- avg_in : TBasicType TInt32
Ptr Int32 -> -- avg_out : TBasicType TInt32
Ptr Int64 -> -- buffering_left : TBasicType TInt64
IO ()
queryParseBufferingStats ::
(MonadIO m) =>
Query -- _obj
-> m (BufferingMode,Int32,Int32,Int64) -- result
queryParseBufferingStats _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
mode <- allocMem :: IO (Ptr CUInt)
avgIn <- allocMem :: IO (Ptr Int32)
avgOut <- allocMem :: IO (Ptr Int32)
bufferingLeft <- allocMem :: IO (Ptr Int64)
gst_query_parse_buffering_stats _obj' mode avgIn avgOut bufferingLeft
mode' <- peek mode
let mode'' = (toEnum . fromIntegral) mode'
avgIn' <- peek avgIn
avgOut' <- peek avgOut
bufferingLeft' <- peek bufferingLeft
touchManagedPtr _obj
freeMem mode
freeMem avgIn
freeMem avgOut
freeMem bufferingLeft
return (mode'', avgIn', avgOut', bufferingLeft')
data QueryParseBufferingStatsMethodInfo
instance (signature ~ (m (BufferingMode,Int32,Int32,Int64)), MonadIO m) => MethodInfo QueryParseBufferingStatsMethodInfo Query signature where
overloadedMethod _ = queryParseBufferingStats
-- method Query::parse_caps
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gst" "Caps", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_caps" gst_query_parse_caps ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr Caps -> -- filter : TInterface "Gst" "Caps"
IO ()
queryParseCaps ::
(MonadIO m) =>
Query -- _obj
-> m (Caps) -- result
queryParseCaps _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
filter <- callocBoxedBytes 64 :: IO (Ptr Caps)
gst_query_parse_caps _obj' filter
filter' <- (wrapBoxed Caps) filter
touchManagedPtr _obj
return filter'
data QueryParseCapsMethodInfo
instance (signature ~ (m (Caps)), MonadIO m) => MethodInfo QueryParseCapsMethodInfo Query signature where
overloadedMethod _ = queryParseCaps
-- method Query::parse_caps_result
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "caps", argType = TInterface "Gst" "Caps", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_caps_result" gst_query_parse_caps_result ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr Caps -> -- caps : TInterface "Gst" "Caps"
IO ()
queryParseCapsResult ::
(MonadIO m) =>
Query -- _obj
-> m (Caps) -- result
queryParseCapsResult _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
caps <- callocBoxedBytes 64 :: IO (Ptr Caps)
gst_query_parse_caps_result _obj' caps
caps' <- (wrapBoxed Caps) caps
touchManagedPtr _obj
return caps'
data QueryParseCapsResultMethodInfo
instance (signature ~ (m (Caps)), MonadIO m) => MethodInfo QueryParseCapsResultMethodInfo Query signature where
overloadedMethod _ = queryParseCapsResult
-- method Query::parse_context
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gst" "Context", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_context" gst_query_parse_context ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr (Ptr Context) -> -- context : TInterface "Gst" "Context"
IO ()
queryParseContext ::
(MonadIO m) =>
Query -- _obj
-> m (Context) -- result
queryParseContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
context <- allocMem :: IO (Ptr (Ptr Context))
gst_query_parse_context _obj' context
context' <- peek context
context'' <- (newBoxed Context) context'
touchManagedPtr _obj
freeMem context
return context''
data QueryParseContextMethodInfo
instance (signature ~ (m (Context)), MonadIO m) => MethodInfo QueryParseContextMethodInfo Query signature where
overloadedMethod _ = queryParseContext
-- method Query::parse_context_type
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_context_type" gst_query_parse_context_type ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr CString -> -- context_type : TBasicType TUTF8
IO CInt
queryParseContextType ::
(MonadIO m) =>
Query -- _obj
-> m (Bool,T.Text) -- result
queryParseContextType _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
contextType <- allocMem :: IO (Ptr CString)
result <- gst_query_parse_context_type _obj' contextType
let result' = (/= 0) result
contextType' <- peek contextType
contextType'' <- cstringToText contextType'
touchManagedPtr _obj
freeMem contextType
return (result', contextType'')
data QueryParseContextTypeMethodInfo
instance (signature ~ (m (Bool,T.Text)), MonadIO m) => MethodInfo QueryParseContextTypeMethodInfo Query signature where
overloadedMethod _ = queryParseContextType
-- method Query::parse_convert
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_format", argType = TInterface "Gst" "Format", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "src_value", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "dest_format", argType = TInterface "Gst" "Format", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "dest_value", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_convert" gst_query_parse_convert ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr CUInt -> -- src_format : TInterface "Gst" "Format"
Ptr Int64 -> -- src_value : TBasicType TInt64
Ptr CUInt -> -- dest_format : TInterface "Gst" "Format"
Ptr Int64 -> -- dest_value : TBasicType TInt64
IO ()
queryParseConvert ::
(MonadIO m) =>
Query -- _obj
-> m (Format,Int64,Format,Int64) -- result
queryParseConvert _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
srcFormat <- allocMem :: IO (Ptr CUInt)
srcValue <- allocMem :: IO (Ptr Int64)
destFormat <- allocMem :: IO (Ptr CUInt)
destValue <- allocMem :: IO (Ptr Int64)
gst_query_parse_convert _obj' srcFormat srcValue destFormat destValue
srcFormat' <- peek srcFormat
let srcFormat'' = (toEnum . fromIntegral) srcFormat'
srcValue' <- peek srcValue
destFormat' <- peek destFormat
let destFormat'' = (toEnum . fromIntegral) destFormat'
destValue' <- peek destValue
touchManagedPtr _obj
freeMem srcFormat
freeMem srcValue
freeMem destFormat
freeMem destValue
return (srcFormat'', srcValue', destFormat'', destValue')
data QueryParseConvertMethodInfo
instance (signature ~ (m (Format,Int64,Format,Int64)), MonadIO m) => MethodInfo QueryParseConvertMethodInfo Query signature where
overloadedMethod _ = queryParseConvert
-- method Query::parse_duration
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gst" "Format", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "duration", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_duration" gst_query_parse_duration ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr CUInt -> -- format : TInterface "Gst" "Format"
Ptr Int64 -> -- duration : TBasicType TInt64
IO ()
queryParseDuration ::
(MonadIO m) =>
Query -- _obj
-> m (Format,Int64) -- result
queryParseDuration _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
format <- allocMem :: IO (Ptr CUInt)
duration <- allocMem :: IO (Ptr Int64)
gst_query_parse_duration _obj' format duration
format' <- peek format
let format'' = (toEnum . fromIntegral) format'
duration' <- peek duration
touchManagedPtr _obj
freeMem format
freeMem duration
return (format'', duration')
data QueryParseDurationMethodInfo
instance (signature ~ (m (Format,Int64)), MonadIO m) => MethodInfo QueryParseDurationMethodInfo Query signature where
overloadedMethod _ = queryParseDuration
-- method Query::parse_latency
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "live", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "min_latency", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "max_latency", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_latency" gst_query_parse_latency ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr CInt -> -- live : TBasicType TBoolean
Ptr Word64 -> -- min_latency : TBasicType TUInt64
Ptr Word64 -> -- max_latency : TBasicType TUInt64
IO ()
queryParseLatency ::
(MonadIO m) =>
Query -- _obj
-> m (Bool,Word64,Word64) -- result
queryParseLatency _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
live <- allocMem :: IO (Ptr CInt)
minLatency <- allocMem :: IO (Ptr Word64)
maxLatency <- allocMem :: IO (Ptr Word64)
gst_query_parse_latency _obj' live minLatency maxLatency
live' <- peek live
let live'' = (/= 0) live'
minLatency' <- peek minLatency
maxLatency' <- peek maxLatency
touchManagedPtr _obj
freeMem live
freeMem minLatency
freeMem maxLatency
return (live'', minLatency', maxLatency')
data QueryParseLatencyMethodInfo
instance (signature ~ (m (Bool,Word64,Word64)), MonadIO m) => MethodInfo QueryParseLatencyMethodInfo Query signature where
overloadedMethod _ = queryParseLatency
-- method Query::parse_n_formats
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_formats", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_n_formats" gst_query_parse_n_formats ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr Word32 -> -- n_formats : TBasicType TUInt32
IO ()
queryParseNFormats ::
(MonadIO m) =>
Query -- _obj
-> m (Word32) -- result
queryParseNFormats _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
nFormats <- allocMem :: IO (Ptr Word32)
gst_query_parse_n_formats _obj' nFormats
nFormats' <- peek nFormats
touchManagedPtr _obj
freeMem nFormats
return nFormats'
data QueryParseNFormatsMethodInfo
instance (signature ~ (m (Word32)), MonadIO m) => MethodInfo QueryParseNFormatsMethodInfo Query signature where
overloadedMethod _ = queryParseNFormats
-- method Query::parse_nth_allocation_meta
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TInterface "Gst" "Structure", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TGType
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_nth_allocation_meta" gst_query_parse_nth_allocation_meta ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Word32 -> -- index : TBasicType TUInt32
Ptr Structure -> -- params : TInterface "Gst" "Structure"
IO CGType
queryParseNthAllocationMeta ::
(MonadIO m) =>
Query -- _obj
-> Word32 -- index
-> m (GType,Structure) -- result
queryParseNthAllocationMeta _obj index = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
params <- callocBoxedBytes 16 :: IO (Ptr Structure)
result <- gst_query_parse_nth_allocation_meta _obj' index params
let result' = GType result
params' <- (wrapBoxed Structure) params
touchManagedPtr _obj
return (result', params')
data QueryParseNthAllocationMetaMethodInfo
instance (signature ~ (Word32 -> m (GType,Structure)), MonadIO m) => MethodInfo QueryParseNthAllocationMetaMethodInfo Query signature where
overloadedMethod _ = queryParseNthAllocationMeta
-- method Query::parse_nth_allocation_param
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocator", argType = TInterface "Gst" "Allocator", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "params", argType = TInterface "Gst" "AllocationParams", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_nth_allocation_param" gst_query_parse_nth_allocation_param ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Word32 -> -- index : TBasicType TUInt32
Ptr (Ptr Allocator) -> -- allocator : TInterface "Gst" "Allocator"
Ptr AllocationParams -> -- params : TInterface "Gst" "AllocationParams"
IO ()
queryParseNthAllocationParam ::
(MonadIO m) =>
Query -- _obj
-> Word32 -- index
-> m (Allocator,AllocationParams) -- result
queryParseNthAllocationParam _obj index = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
allocator <- allocMem :: IO (Ptr (Ptr Allocator))
params <- callocBoxedBytes 64 :: IO (Ptr AllocationParams)
gst_query_parse_nth_allocation_param _obj' index allocator params
allocator' <- peek allocator
allocator'' <- (wrapObject Allocator) allocator'
params' <- (wrapBoxed AllocationParams) params
touchManagedPtr _obj
freeMem allocator
return (allocator'', params')
data QueryParseNthAllocationParamMethodInfo
instance (signature ~ (Word32 -> m (Allocator,AllocationParams)), MonadIO m) => MethodInfo QueryParseNthAllocationParamMethodInfo Query signature where
overloadedMethod _ = queryParseNthAllocationParam
-- method Query::parse_nth_allocation_pool
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pool", argType = TInterface "Gst" "BufferPool", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "size", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "min_buffers", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "max_buffers", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_nth_allocation_pool" gst_query_parse_nth_allocation_pool ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Word32 -> -- index : TBasicType TUInt32
Ptr (Ptr BufferPool) -> -- pool : TInterface "Gst" "BufferPool"
Ptr Word32 -> -- size : TBasicType TUInt32
Ptr Word32 -> -- min_buffers : TBasicType TUInt32
Ptr Word32 -> -- max_buffers : TBasicType TUInt32
IO ()
queryParseNthAllocationPool ::
(MonadIO m) =>
Query -- _obj
-> Word32 -- index
-> m (BufferPool,Word32,Word32,Word32) -- result
queryParseNthAllocationPool _obj index = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
pool <- allocMem :: IO (Ptr (Ptr BufferPool))
size <- allocMem :: IO (Ptr Word32)
minBuffers <- allocMem :: IO (Ptr Word32)
maxBuffers <- allocMem :: IO (Ptr Word32)
gst_query_parse_nth_allocation_pool _obj' index pool size minBuffers maxBuffers
pool' <- peek pool
pool'' <- (wrapObject BufferPool) pool'
size' <- peek size
minBuffers' <- peek minBuffers
maxBuffers' <- peek maxBuffers
touchManagedPtr _obj
freeMem pool
freeMem size
freeMem minBuffers
freeMem maxBuffers
return (pool'', size', minBuffers', maxBuffers')
data QueryParseNthAllocationPoolMethodInfo
instance (signature ~ (Word32 -> m (BufferPool,Word32,Word32,Word32)), MonadIO m) => MethodInfo QueryParseNthAllocationPoolMethodInfo Query signature where
overloadedMethod _ = queryParseNthAllocationPool
-- method Query::parse_nth_buffering_range
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "stop", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_nth_buffering_range" gst_query_parse_nth_buffering_range ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Word32 -> -- index : TBasicType TUInt32
Ptr Int64 -> -- start : TBasicType TInt64
Ptr Int64 -> -- stop : TBasicType TInt64
IO CInt
queryParseNthBufferingRange ::
(MonadIO m) =>
Query -- _obj
-> Word32 -- index
-> m (Bool,Int64,Int64) -- result
queryParseNthBufferingRange _obj index = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
start <- allocMem :: IO (Ptr Int64)
stop <- allocMem :: IO (Ptr Int64)
result <- gst_query_parse_nth_buffering_range _obj' index start stop
let result' = (/= 0) result
start' <- peek start
stop' <- peek stop
touchManagedPtr _obj
freeMem start
freeMem stop
return (result', start', stop')
data QueryParseNthBufferingRangeMethodInfo
instance (signature ~ (Word32 -> m (Bool,Int64,Int64)), MonadIO m) => MethodInfo QueryParseNthBufferingRangeMethodInfo Query signature where
overloadedMethod _ = queryParseNthBufferingRange
-- method Query::parse_nth_format
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nth", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "format", argType = TInterface "Gst" "Format", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_nth_format" gst_query_parse_nth_format ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr Word32 -> -- nth : TBasicType TUInt32
Ptr CUInt -> -- format : TInterface "Gst" "Format"
IO ()
queryParseNthFormat ::
(MonadIO m) =>
Query -- _obj
-> m (Word32,Format) -- result
queryParseNthFormat _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
nth <- allocMem :: IO (Ptr Word32)
format <- allocMem :: IO (Ptr CUInt)
gst_query_parse_nth_format _obj' nth format
nth' <- peek nth
format' <- peek format
let format'' = (toEnum . fromIntegral) format'
touchManagedPtr _obj
freeMem nth
freeMem format
return (nth', format'')
data QueryParseNthFormatMethodInfo
instance (signature ~ (m (Word32,Format)), MonadIO m) => MethodInfo QueryParseNthFormatMethodInfo Query signature where
overloadedMethod _ = queryParseNthFormat
-- method Query::parse_nth_scheduling_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "PadMode"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_nth_scheduling_mode" gst_query_parse_nth_scheduling_mode ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Word32 -> -- index : TBasicType TUInt32
IO CUInt
queryParseNthSchedulingMode ::
(MonadIO m) =>
Query -- _obj
-> Word32 -- index
-> m PadMode -- result
queryParseNthSchedulingMode _obj index = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gst_query_parse_nth_scheduling_mode _obj' index
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data QueryParseNthSchedulingModeMethodInfo
instance (signature ~ (Word32 -> m PadMode), MonadIO m) => MethodInfo QueryParseNthSchedulingModeMethodInfo Query signature where
overloadedMethod _ = queryParseNthSchedulingMode
-- method Query::parse_position
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gst" "Format", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cur", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_position" gst_query_parse_position ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr CUInt -> -- format : TInterface "Gst" "Format"
Ptr Int64 -> -- cur : TBasicType TInt64
IO ()
queryParsePosition ::
(MonadIO m) =>
Query -- _obj
-> m (Format,Int64) -- result
queryParsePosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
format <- allocMem :: IO (Ptr CUInt)
cur <- allocMem :: IO (Ptr Int64)
gst_query_parse_position _obj' format cur
format' <- peek format
let format'' = (toEnum . fromIntegral) format'
cur' <- peek cur
touchManagedPtr _obj
freeMem format
freeMem cur
return (format'', cur')
data QueryParsePositionMethodInfo
instance (signature ~ (m (Format,Int64)), MonadIO m) => MethodInfo QueryParsePositionMethodInfo Query signature where
overloadedMethod _ = queryParsePosition
-- method Query::parse_scheduling
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gst" "SchedulingFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minsize", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "maxsize", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "align", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_scheduling" gst_query_parse_scheduling ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr CUInt -> -- flags : TInterface "Gst" "SchedulingFlags"
Ptr Int32 -> -- minsize : TBasicType TInt32
Ptr Int32 -> -- maxsize : TBasicType TInt32
Ptr Int32 -> -- align : TBasicType TInt32
IO ()
queryParseScheduling ::
(MonadIO m) =>
Query -- _obj
-> m ([SchedulingFlags],Int32,Int32,Int32)-- result
queryParseScheduling _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
flags <- allocMem :: IO (Ptr CUInt)
minsize <- allocMem :: IO (Ptr Int32)
maxsize <- allocMem :: IO (Ptr Int32)
align <- allocMem :: IO (Ptr Int32)
gst_query_parse_scheduling _obj' flags minsize maxsize align
flags' <- peek flags
let flags'' = wordToGFlags flags'
minsize' <- peek minsize
maxsize' <- peek maxsize
align' <- peek align
touchManagedPtr _obj
freeMem flags
freeMem minsize
freeMem maxsize
freeMem align
return (flags'', minsize', maxsize', align')
data QueryParseSchedulingMethodInfo
instance (signature ~ (m ([SchedulingFlags],Int32,Int32,Int32)), MonadIO m) => MethodInfo QueryParseSchedulingMethodInfo Query signature where
overloadedMethod _ = queryParseScheduling
-- method Query::parse_seeking
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gst" "Format", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "seekable", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "segment_start", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "segment_end", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_seeking" gst_query_parse_seeking ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr CUInt -> -- format : TInterface "Gst" "Format"
Ptr CInt -> -- seekable : TBasicType TBoolean
Ptr Int64 -> -- segment_start : TBasicType TInt64
Ptr Int64 -> -- segment_end : TBasicType TInt64
IO ()
queryParseSeeking ::
(MonadIO m) =>
Query -- _obj
-> m (Format,Bool,Int64,Int64) -- result
queryParseSeeking _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
format <- allocMem :: IO (Ptr CUInt)
seekable <- allocMem :: IO (Ptr CInt)
segmentStart <- allocMem :: IO (Ptr Int64)
segmentEnd <- allocMem :: IO (Ptr Int64)
gst_query_parse_seeking _obj' format seekable segmentStart segmentEnd
format' <- peek format
let format'' = (toEnum . fromIntegral) format'
seekable' <- peek seekable
let seekable'' = (/= 0) seekable'
segmentStart' <- peek segmentStart
segmentEnd' <- peek segmentEnd
touchManagedPtr _obj
freeMem format
freeMem seekable
freeMem segmentStart
freeMem segmentEnd
return (format'', seekable'', segmentStart', segmentEnd')
data QueryParseSeekingMethodInfo
instance (signature ~ (m (Format,Bool,Int64,Int64)), MonadIO m) => MethodInfo QueryParseSeekingMethodInfo Query signature where
overloadedMethod _ = queryParseSeeking
-- method Query::parse_segment
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rate", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "format", argType = TInterface "Gst" "Format", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "start_value", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "stop_value", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_segment" gst_query_parse_segment ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr CDouble -> -- rate : TBasicType TDouble
Ptr CUInt -> -- format : TInterface "Gst" "Format"
Ptr Int64 -> -- start_value : TBasicType TInt64
Ptr Int64 -> -- stop_value : TBasicType TInt64
IO ()
queryParseSegment ::
(MonadIO m) =>
Query -- _obj
-> m (Double,Format,Int64,Int64) -- result
queryParseSegment _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
rate <- allocMem :: IO (Ptr CDouble)
format <- allocMem :: IO (Ptr CUInt)
startValue <- allocMem :: IO (Ptr Int64)
stopValue <- allocMem :: IO (Ptr Int64)
gst_query_parse_segment _obj' rate format startValue stopValue
rate' <- peek rate
let rate'' = realToFrac rate'
format' <- peek format
let format'' = (toEnum . fromIntegral) format'
startValue' <- peek startValue
stopValue' <- peek stopValue
touchManagedPtr _obj
freeMem rate
freeMem format
freeMem startValue
freeMem stopValue
return (rate'', format'', startValue', stopValue')
data QueryParseSegmentMethodInfo
instance (signature ~ (m (Double,Format,Int64,Int64)), MonadIO m) => MethodInfo QueryParseSegmentMethodInfo Query signature where
overloadedMethod _ = queryParseSegment
-- method Query::parse_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_uri" gst_query_parse_uri ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr CString -> -- uri : TBasicType TUTF8
IO ()
queryParseUri ::
(MonadIO m) =>
Query -- _obj
-> m (T.Text) -- result
queryParseUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
uri <- allocMem :: IO (Ptr CString)
gst_query_parse_uri _obj' uri
uri' <- peek uri
uri'' <- cstringToText uri'
freeMem uri'
touchManagedPtr _obj
freeMem uri
return uri''
data QueryParseUriMethodInfo
instance (signature ~ (m (T.Text)), MonadIO m) => MethodInfo QueryParseUriMethodInfo Query signature where
overloadedMethod _ = queryParseUri
-- method Query::parse_uri_redirection
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_uri_redirection" gst_query_parse_uri_redirection ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr CString -> -- uri : TBasicType TUTF8
IO ()
queryParseUriRedirection ::
(MonadIO m) =>
Query -- _obj
-> m (T.Text) -- result
queryParseUriRedirection _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
uri <- allocMem :: IO (Ptr CString)
gst_query_parse_uri_redirection _obj' uri
uri' <- peek uri
uri'' <- cstringToText uri'
freeMem uri'
touchManagedPtr _obj
freeMem uri
return uri''
data QueryParseUriRedirectionMethodInfo
instance (signature ~ (m (T.Text)), MonadIO m) => MethodInfo QueryParseUriRedirectionMethodInfo Query signature where
overloadedMethod _ = queryParseUriRedirection
-- method Query::parse_uri_redirection_permanent
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "permanent", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_parse_uri_redirection_permanent" gst_query_parse_uri_redirection_permanent ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr CInt -> -- permanent : TBasicType TBoolean
IO ()
queryParseUriRedirectionPermanent ::
(MonadIO m) =>
Query -- _obj
-> m (Bool) -- result
queryParseUriRedirectionPermanent _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
permanent <- allocMem :: IO (Ptr CInt)
gst_query_parse_uri_redirection_permanent _obj' permanent
permanent' <- peek permanent
let permanent'' = (/= 0) permanent'
touchManagedPtr _obj
freeMem permanent
return permanent''
data QueryParseUriRedirectionPermanentMethodInfo
instance (signature ~ (m (Bool)), MonadIO m) => MethodInfo QueryParseUriRedirectionPermanentMethodInfo Query signature where
overloadedMethod _ = queryParseUriRedirectionPermanent
-- method Query::remove_nth_allocation_meta
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_remove_nth_allocation_meta" gst_query_remove_nth_allocation_meta ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Word32 -> -- index : TBasicType TUInt32
IO ()
queryRemoveNthAllocationMeta ::
(MonadIO m) =>
Query -- _obj
-> Word32 -- index
-> m () -- result
queryRemoveNthAllocationMeta _obj index = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gst_query_remove_nth_allocation_meta _obj' index
touchManagedPtr _obj
return ()
data QueryRemoveNthAllocationMetaMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo QueryRemoveNthAllocationMetaMethodInfo Query signature where
overloadedMethod _ = queryRemoveNthAllocationMeta
-- method Query::remove_nth_allocation_param
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_remove_nth_allocation_param" gst_query_remove_nth_allocation_param ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Word32 -> -- index : TBasicType TUInt32
IO ()
queryRemoveNthAllocationParam ::
(MonadIO m) =>
Query -- _obj
-> Word32 -- index
-> m () -- result
queryRemoveNthAllocationParam _obj index = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gst_query_remove_nth_allocation_param _obj' index
touchManagedPtr _obj
return ()
data QueryRemoveNthAllocationParamMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo QueryRemoveNthAllocationParamMethodInfo Query signature where
overloadedMethod _ = queryRemoveNthAllocationParam
-- method Query::remove_nth_allocation_pool
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_remove_nth_allocation_pool" gst_query_remove_nth_allocation_pool ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Word32 -> -- index : TBasicType TUInt32
IO ()
queryRemoveNthAllocationPool ::
(MonadIO m) =>
Query -- _obj
-> Word32 -- index
-> m () -- result
queryRemoveNthAllocationPool _obj index = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gst_query_remove_nth_allocation_pool _obj' index
touchManagedPtr _obj
return ()
data QueryRemoveNthAllocationPoolMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo QueryRemoveNthAllocationPoolMethodInfo Query signature where
overloadedMethod _ = queryRemoveNthAllocationPool
-- method Query::set_accept_caps_result
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_accept_caps_result" gst_query_set_accept_caps_result ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CInt -> -- result : TBasicType TBoolean
IO ()
querySetAcceptCapsResult ::
(MonadIO m) =>
Query -- _obj
-> Bool -- result_
-> m () -- result
querySetAcceptCapsResult _obj result_ = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let result_' = (fromIntegral . fromEnum) result_
gst_query_set_accept_caps_result _obj' result_'
touchManagedPtr _obj
return ()
data QuerySetAcceptCapsResultMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo QuerySetAcceptCapsResultMethodInfo Query signature where
overloadedMethod _ = querySetAcceptCapsResult
-- method Query::set_buffering_percent
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "busy", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "percent", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_buffering_percent" gst_query_set_buffering_percent ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CInt -> -- busy : TBasicType TBoolean
Int32 -> -- percent : TBasicType TInt32
IO ()
querySetBufferingPercent ::
(MonadIO m) =>
Query -- _obj
-> Bool -- busy
-> Int32 -- percent
-> m () -- result
querySetBufferingPercent _obj busy percent = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let busy' = (fromIntegral . fromEnum) busy
gst_query_set_buffering_percent _obj' busy' percent
touchManagedPtr _obj
return ()
data QuerySetBufferingPercentMethodInfo
instance (signature ~ (Bool -> Int32 -> m ()), MonadIO m) => MethodInfo QuerySetBufferingPercentMethodInfo Query signature where
overloadedMethod _ = querySetBufferingPercent
-- method Query::set_buffering_range
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "estimated_total", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_buffering_range" gst_query_set_buffering_range ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CUInt -> -- format : TInterface "Gst" "Format"
Int64 -> -- start : TBasicType TInt64
Int64 -> -- stop : TBasicType TInt64
Int64 -> -- estimated_total : TBasicType TInt64
IO ()
querySetBufferingRange ::
(MonadIO m) =>
Query -- _obj
-> Format -- format
-> Int64 -- start
-> Int64 -- stop
-> Int64 -- estimatedTotal
-> m () -- result
querySetBufferingRange _obj format start stop estimatedTotal = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let format' = (fromIntegral . fromEnum) format
gst_query_set_buffering_range _obj' format' start stop estimatedTotal
touchManagedPtr _obj
return ()
data QuerySetBufferingRangeMethodInfo
instance (signature ~ (Format -> Int64 -> Int64 -> Int64 -> m ()), MonadIO m) => MethodInfo QuerySetBufferingRangeMethodInfo Query signature where
overloadedMethod _ = querySetBufferingRange
-- method Query::set_buffering_stats
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gst" "BufferingMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "avg_in", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "avg_out", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffering_left", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_buffering_stats" gst_query_set_buffering_stats ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CUInt -> -- mode : TInterface "Gst" "BufferingMode"
Int32 -> -- avg_in : TBasicType TInt32
Int32 -> -- avg_out : TBasicType TInt32
Int64 -> -- buffering_left : TBasicType TInt64
IO ()
querySetBufferingStats ::
(MonadIO m) =>
Query -- _obj
-> BufferingMode -- mode
-> Int32 -- avgIn
-> Int32 -- avgOut
-> Int64 -- bufferingLeft
-> m () -- result
querySetBufferingStats _obj mode avgIn avgOut bufferingLeft = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let mode' = (fromIntegral . fromEnum) mode
gst_query_set_buffering_stats _obj' mode' avgIn avgOut bufferingLeft
touchManagedPtr _obj
return ()
data QuerySetBufferingStatsMethodInfo
instance (signature ~ (BufferingMode -> Int32 -> Int32 -> Int64 -> m ()), MonadIO m) => MethodInfo QuerySetBufferingStatsMethodInfo Query signature where
overloadedMethod _ = querySetBufferingStats
-- method Query::set_caps_result
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "caps", argType = TInterface "Gst" "Caps", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_caps_result" gst_query_set_caps_result ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr Caps -> -- caps : TInterface "Gst" "Caps"
IO ()
querySetCapsResult ::
(MonadIO m) =>
Query -- _obj
-> Caps -- caps
-> m () -- result
querySetCapsResult _obj caps = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let caps' = unsafeManagedPtrGetPtr caps
gst_query_set_caps_result _obj' caps'
touchManagedPtr _obj
touchManagedPtr caps
return ()
data QuerySetCapsResultMethodInfo
instance (signature ~ (Caps -> m ()), MonadIO m) => MethodInfo QuerySetCapsResultMethodInfo Query signature where
overloadedMethod _ = querySetCapsResult
-- method Query::set_context
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gst" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_context" gst_query_set_context ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Ptr Context -> -- context : TInterface "Gst" "Context"
IO ()
querySetContext ::
(MonadIO m) =>
Query -- _obj
-> Context -- context
-> m () -- result
querySetContext _obj context = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let context' = unsafeManagedPtrGetPtr context
gst_query_set_context _obj' context'
touchManagedPtr _obj
touchManagedPtr context
return ()
data QuerySetContextMethodInfo
instance (signature ~ (Context -> m ()), MonadIO m) => MethodInfo QuerySetContextMethodInfo Query signature where
overloadedMethod _ = querySetContext
-- method Query::set_convert
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_format", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_format", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_convert" gst_query_set_convert ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CUInt -> -- src_format : TInterface "Gst" "Format"
Int64 -> -- src_value : TBasicType TInt64
CUInt -> -- dest_format : TInterface "Gst" "Format"
Int64 -> -- dest_value : TBasicType TInt64
IO ()
querySetConvert ::
(MonadIO m) =>
Query -- _obj
-> Format -- srcFormat
-> Int64 -- srcValue
-> Format -- destFormat
-> Int64 -- destValue
-> m () -- result
querySetConvert _obj srcFormat srcValue destFormat destValue = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let srcFormat' = (fromIntegral . fromEnum) srcFormat
let destFormat' = (fromIntegral . fromEnum) destFormat
gst_query_set_convert _obj' srcFormat' srcValue destFormat' destValue
touchManagedPtr _obj
return ()
data QuerySetConvertMethodInfo
instance (signature ~ (Format -> Int64 -> Format -> Int64 -> m ()), MonadIO m) => MethodInfo QuerySetConvertMethodInfo Query signature where
overloadedMethod _ = querySetConvert
-- method Query::set_duration
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "duration", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_duration" gst_query_set_duration ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CUInt -> -- format : TInterface "Gst" "Format"
Int64 -> -- duration : TBasicType TInt64
IO ()
querySetDuration ::
(MonadIO m) =>
Query -- _obj
-> Format -- format
-> Int64 -- duration
-> m () -- result
querySetDuration _obj format duration = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let format' = (fromIntegral . fromEnum) format
gst_query_set_duration _obj' format' duration
touchManagedPtr _obj
return ()
data QuerySetDurationMethodInfo
instance (signature ~ (Format -> Int64 -> m ()), MonadIO m) => MethodInfo QuerySetDurationMethodInfo Query signature where
overloadedMethod _ = querySetDuration
-- method Query::set_formatsv
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_formats", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "formats", argType = TCArray False (-1) 1 (TInterface "Gst" "Format"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : [Arg {argCName = "n_formats", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_formatsv" gst_query_set_formatsv ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Int32 -> -- n_formats : TBasicType TInt32
Ptr CUInt -> -- formats : TCArray False (-1) 1 (TInterface "Gst" "Format")
IO ()
querySetFormatsv ::
(MonadIO m) =>
Query -- _obj
-> [Format] -- formats
-> m () -- result
querySetFormatsv _obj formats = liftIO $ do
let nFormats = fromIntegral $ length formats
let _obj' = unsafeManagedPtrGetPtr _obj
let formats' = map (fromIntegral . fromEnum) formats
formats'' <- packStorableArray formats'
gst_query_set_formatsv _obj' nFormats formats''
touchManagedPtr _obj
freeMem formats''
return ()
data QuerySetFormatsvMethodInfo
instance (signature ~ ([Format] -> m ()), MonadIO m) => MethodInfo QuerySetFormatsvMethodInfo Query signature where
overloadedMethod _ = querySetFormatsv
-- method Query::set_latency
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "live", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_latency", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_latency", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_latency" gst_query_set_latency ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CInt -> -- live : TBasicType TBoolean
Word64 -> -- min_latency : TBasicType TUInt64
Word64 -> -- max_latency : TBasicType TUInt64
IO ()
querySetLatency ::
(MonadIO m) =>
Query -- _obj
-> Bool -- live
-> Word64 -- minLatency
-> Word64 -- maxLatency
-> m () -- result
querySetLatency _obj live minLatency maxLatency = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let live' = (fromIntegral . fromEnum) live
gst_query_set_latency _obj' live' minLatency maxLatency
touchManagedPtr _obj
return ()
data QuerySetLatencyMethodInfo
instance (signature ~ (Bool -> Word64 -> Word64 -> m ()), MonadIO m) => MethodInfo QuerySetLatencyMethodInfo Query signature where
overloadedMethod _ = querySetLatency
-- method Query::set_nth_allocation_param
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocator", argType = TInterface "Gst" "Allocator", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TInterface "Gst" "AllocationParams", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_nth_allocation_param" gst_query_set_nth_allocation_param ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Word32 -> -- index : TBasicType TUInt32
Ptr Allocator -> -- allocator : TInterface "Gst" "Allocator"
Ptr AllocationParams -> -- params : TInterface "Gst" "AllocationParams"
IO ()
querySetNthAllocationParam ::
(MonadIO m, AllocatorK a) =>
Query -- _obj
-> Word32 -- index
-> Maybe (a) -- allocator
-> Maybe (AllocationParams) -- params
-> m () -- result
querySetNthAllocationParam _obj index allocator params = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
maybeAllocator <- case allocator of
Nothing -> return nullPtr
Just jAllocator -> do
let jAllocator' = unsafeManagedPtrCastPtr jAllocator
return jAllocator'
maybeParams <- case params of
Nothing -> return nullPtr
Just jParams -> do
let jParams' = unsafeManagedPtrGetPtr jParams
return jParams'
gst_query_set_nth_allocation_param _obj' index maybeAllocator maybeParams
touchManagedPtr _obj
whenJust allocator touchManagedPtr
whenJust params touchManagedPtr
return ()
data QuerySetNthAllocationParamMethodInfo
instance (signature ~ (Word32 -> Maybe (a) -> Maybe (AllocationParams) -> m ()), MonadIO m, AllocatorK a) => MethodInfo QuerySetNthAllocationParamMethodInfo Query signature where
overloadedMethod _ = querySetNthAllocationParam
-- method Query::set_nth_allocation_pool
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pool", argType = TInterface "Gst" "BufferPool", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_buffers", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_buffers", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_nth_allocation_pool" gst_query_set_nth_allocation_pool ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
Word32 -> -- index : TBasicType TUInt32
Ptr BufferPool -> -- pool : TInterface "Gst" "BufferPool"
Word32 -> -- size : TBasicType TUInt32
Word32 -> -- min_buffers : TBasicType TUInt32
Word32 -> -- max_buffers : TBasicType TUInt32
IO ()
querySetNthAllocationPool ::
(MonadIO m, BufferPoolK a) =>
Query -- _obj
-> Word32 -- index
-> Maybe (a) -- pool
-> Word32 -- size
-> Word32 -- minBuffers
-> Word32 -- maxBuffers
-> m () -- result
querySetNthAllocationPool _obj index pool size minBuffers maxBuffers = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
maybePool <- case pool of
Nothing -> return nullPtr
Just jPool -> do
let jPool' = unsafeManagedPtrCastPtr jPool
return jPool'
gst_query_set_nth_allocation_pool _obj' index maybePool size minBuffers maxBuffers
touchManagedPtr _obj
whenJust pool touchManagedPtr
return ()
data QuerySetNthAllocationPoolMethodInfo
instance (signature ~ (Word32 -> Maybe (a) -> Word32 -> Word32 -> Word32 -> m ()), MonadIO m, BufferPoolK a) => MethodInfo QuerySetNthAllocationPoolMethodInfo Query signature where
overloadedMethod _ = querySetNthAllocationPool
-- method Query::set_position
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cur", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_position" gst_query_set_position ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CUInt -> -- format : TInterface "Gst" "Format"
Int64 -> -- cur : TBasicType TInt64
IO ()
querySetPosition ::
(MonadIO m) =>
Query -- _obj
-> Format -- format
-> Int64 -- cur
-> m () -- result
querySetPosition _obj format cur = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let format' = (fromIntegral . fromEnum) format
gst_query_set_position _obj' format' cur
touchManagedPtr _obj
return ()
data QuerySetPositionMethodInfo
instance (signature ~ (Format -> Int64 -> m ()), MonadIO m) => MethodInfo QuerySetPositionMethodInfo Query signature where
overloadedMethod _ = querySetPosition
-- method Query::set_scheduling
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gst" "SchedulingFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minsize", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "maxsize", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_scheduling" gst_query_set_scheduling ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CUInt -> -- flags : TInterface "Gst" "SchedulingFlags"
Int32 -> -- minsize : TBasicType TInt32
Int32 -> -- maxsize : TBasicType TInt32
Int32 -> -- align : TBasicType TInt32
IO ()
querySetScheduling ::
(MonadIO m) =>
Query -- _obj
-> [SchedulingFlags] -- flags
-> Int32 -- minsize
-> Int32 -- maxsize
-> Int32 -- align
-> m () -- result
querySetScheduling _obj flags minsize maxsize align = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let flags' = gflagsToWord flags
gst_query_set_scheduling _obj' flags' minsize maxsize align
touchManagedPtr _obj
return ()
data QuerySetSchedulingMethodInfo
instance (signature ~ ([SchedulingFlags] -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m) => MethodInfo QuerySetSchedulingMethodInfo Query signature where
overloadedMethod _ = querySetScheduling
-- method Query::set_seeking
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "seekable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "segment_start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "segment_end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_seeking" gst_query_set_seeking ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CUInt -> -- format : TInterface "Gst" "Format"
CInt -> -- seekable : TBasicType TBoolean
Int64 -> -- segment_start : TBasicType TInt64
Int64 -> -- segment_end : TBasicType TInt64
IO ()
querySetSeeking ::
(MonadIO m) =>
Query -- _obj
-> Format -- format
-> Bool -- seekable
-> Int64 -- segmentStart
-> Int64 -- segmentEnd
-> m () -- result
querySetSeeking _obj format seekable segmentStart segmentEnd = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let format' = (fromIntegral . fromEnum) format
let seekable' = (fromIntegral . fromEnum) seekable
gst_query_set_seeking _obj' format' seekable' segmentStart segmentEnd
touchManagedPtr _obj
return ()
data QuerySetSeekingMethodInfo
instance (signature ~ (Format -> Bool -> Int64 -> Int64 -> m ()), MonadIO m) => MethodInfo QuerySetSeekingMethodInfo Query signature where
overloadedMethod _ = querySetSeeking
-- method Query::set_segment
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gst" "Format", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_segment" gst_query_set_segment ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CDouble -> -- rate : TBasicType TDouble
CUInt -> -- format : TInterface "Gst" "Format"
Int64 -> -- start_value : TBasicType TInt64
Int64 -> -- stop_value : TBasicType TInt64
IO ()
querySetSegment ::
(MonadIO m) =>
Query -- _obj
-> Double -- rate
-> Format -- format
-> Int64 -- startValue
-> Int64 -- stopValue
-> m () -- result
querySetSegment _obj rate format startValue stopValue = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let rate' = realToFrac rate
let format' = (fromIntegral . fromEnum) format
gst_query_set_segment _obj' rate' format' startValue stopValue
touchManagedPtr _obj
return ()
data QuerySetSegmentMethodInfo
instance (signature ~ (Double -> Format -> Int64 -> Int64 -> m ()), MonadIO m) => MethodInfo QuerySetSegmentMethodInfo Query signature where
overloadedMethod _ = querySetSegment
-- method Query::set_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_uri" gst_query_set_uri ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CString -> -- uri : TBasicType TUTF8
IO ()
querySetUri ::
(MonadIO m) =>
Query -- _obj
-> T.Text -- uri
-> m () -- result
querySetUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
uri' <- textToCString uri
gst_query_set_uri _obj' uri'
touchManagedPtr _obj
freeMem uri'
return ()
data QuerySetUriMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo QuerySetUriMethodInfo Query signature where
overloadedMethod _ = querySetUri
-- method Query::set_uri_redirection
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_uri_redirection" gst_query_set_uri_redirection ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CString -> -- uri : TBasicType TUTF8
IO ()
querySetUriRedirection ::
(MonadIO m) =>
Query -- _obj
-> T.Text -- uri
-> m () -- result
querySetUriRedirection _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
uri' <- textToCString uri
gst_query_set_uri_redirection _obj' uri'
touchManagedPtr _obj
freeMem uri'
return ()
data QuerySetUriRedirectionMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo QuerySetUriRedirectionMethodInfo Query signature where
overloadedMethod _ = querySetUriRedirection
-- method Query::set_uri_redirection_permanent
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "permanent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_set_uri_redirection_permanent" gst_query_set_uri_redirection_permanent ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
CInt -> -- permanent : TBasicType TBoolean
IO ()
querySetUriRedirectionPermanent ::
(MonadIO m) =>
Query -- _obj
-> Bool -- permanent
-> m () -- result
querySetUriRedirectionPermanent _obj permanent = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let permanent' = (fromIntegral . fromEnum) permanent
gst_query_set_uri_redirection_permanent _obj' permanent'
touchManagedPtr _obj
return ()
data QuerySetUriRedirectionPermanentMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo QuerySetUriRedirectionPermanentMethodInfo Query signature where
overloadedMethod _ = querySetUriRedirectionPermanent
-- method Query::writable_structure
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "Query", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gst" "Structure"
-- throws : False
-- Skip return : False
foreign import ccall "gst_query_writable_structure" gst_query_writable_structure ::
Ptr Query -> -- _obj : TInterface "Gst" "Query"
IO (Ptr Structure)
queryWritableStructure ::
(MonadIO m) =>
Query -- _obj
-> m Structure -- result
queryWritableStructure _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gst_query_writable_structure _obj'
checkUnexpectedReturnNULL "gst_query_writable_structure" result
result' <- (newBoxed Structure) result
touchManagedPtr _obj
return result'
data QueryWritableStructureMethodInfo
instance (signature ~ (m Structure), MonadIO m) => MethodInfo QueryWritableStructureMethodInfo Query signature where
overloadedMethod _ = queryWritableStructure
type family ResolveQueryMethod (t :: Symbol) (o :: *) :: * where
ResolveQueryMethod "addAllocationMeta" o = QueryAddAllocationMetaMethodInfo
ResolveQueryMethod "addAllocationParam" o = QueryAddAllocationParamMethodInfo
ResolveQueryMethod "addAllocationPool" o = QueryAddAllocationPoolMethodInfo
ResolveQueryMethod "addBufferingRange" o = QueryAddBufferingRangeMethodInfo
ResolveQueryMethod "addSchedulingMode" o = QueryAddSchedulingModeMethodInfo
ResolveQueryMethod "findAllocationMeta" o = QueryFindAllocationMetaMethodInfo
ResolveQueryMethod "hasSchedulingMode" o = QueryHasSchedulingModeMethodInfo
ResolveQueryMethod "hasSchedulingModeWithFlags" o = QueryHasSchedulingModeWithFlagsMethodInfo
ResolveQueryMethod "parseAcceptCaps" o = QueryParseAcceptCapsMethodInfo
ResolveQueryMethod "parseAcceptCapsResult" o = QueryParseAcceptCapsResultMethodInfo
ResolveQueryMethod "parseAllocation" o = QueryParseAllocationMethodInfo
ResolveQueryMethod "parseBufferingPercent" o = QueryParseBufferingPercentMethodInfo
ResolveQueryMethod "parseBufferingRange" o = QueryParseBufferingRangeMethodInfo
ResolveQueryMethod "parseBufferingStats" o = QueryParseBufferingStatsMethodInfo
ResolveQueryMethod "parseCaps" o = QueryParseCapsMethodInfo
ResolveQueryMethod "parseCapsResult" o = QueryParseCapsResultMethodInfo
ResolveQueryMethod "parseContext" o = QueryParseContextMethodInfo
ResolveQueryMethod "parseContextType" o = QueryParseContextTypeMethodInfo
ResolveQueryMethod "parseConvert" o = QueryParseConvertMethodInfo
ResolveQueryMethod "parseDuration" o = QueryParseDurationMethodInfo
ResolveQueryMethod "parseLatency" o = QueryParseLatencyMethodInfo
ResolveQueryMethod "parseNFormats" o = QueryParseNFormatsMethodInfo
ResolveQueryMethod "parseNthAllocationMeta" o = QueryParseNthAllocationMetaMethodInfo
ResolveQueryMethod "parseNthAllocationParam" o = QueryParseNthAllocationParamMethodInfo
ResolveQueryMethod "parseNthAllocationPool" o = QueryParseNthAllocationPoolMethodInfo
ResolveQueryMethod "parseNthBufferingRange" o = QueryParseNthBufferingRangeMethodInfo
ResolveQueryMethod "parseNthFormat" o = QueryParseNthFormatMethodInfo
ResolveQueryMethod "parseNthSchedulingMode" o = QueryParseNthSchedulingModeMethodInfo
ResolveQueryMethod "parsePosition" o = QueryParsePositionMethodInfo
ResolveQueryMethod "parseScheduling" o = QueryParseSchedulingMethodInfo
ResolveQueryMethod "parseSeeking" o = QueryParseSeekingMethodInfo
ResolveQueryMethod "parseSegment" o = QueryParseSegmentMethodInfo
ResolveQueryMethod "parseUri" o = QueryParseUriMethodInfo
ResolveQueryMethod "parseUriRedirection" o = QueryParseUriRedirectionMethodInfo
ResolveQueryMethod "parseUriRedirectionPermanent" o = QueryParseUriRedirectionPermanentMethodInfo
ResolveQueryMethod "removeNthAllocationMeta" o = QueryRemoveNthAllocationMetaMethodInfo
ResolveQueryMethod "removeNthAllocationParam" o = QueryRemoveNthAllocationParamMethodInfo
ResolveQueryMethod "removeNthAllocationPool" o = QueryRemoveNthAllocationPoolMethodInfo
ResolveQueryMethod "writableStructure" o = QueryWritableStructureMethodInfo
ResolveQueryMethod "getNAllocationMetas" o = QueryGetNAllocationMetasMethodInfo
ResolveQueryMethod "getNAllocationParams" o = QueryGetNAllocationParamsMethodInfo
ResolveQueryMethod "getNAllocationPools" o = QueryGetNAllocationPoolsMethodInfo
ResolveQueryMethod "getNBufferingRanges" o = QueryGetNBufferingRangesMethodInfo
ResolveQueryMethod "getNSchedulingModes" o = QueryGetNSchedulingModesMethodInfo
ResolveQueryMethod "getStructure" o = QueryGetStructureMethodInfo
ResolveQueryMethod "setAcceptCapsResult" o = QuerySetAcceptCapsResultMethodInfo
ResolveQueryMethod "setBufferingPercent" o = QuerySetBufferingPercentMethodInfo
ResolveQueryMethod "setBufferingRange" o = QuerySetBufferingRangeMethodInfo
ResolveQueryMethod "setBufferingStats" o = QuerySetBufferingStatsMethodInfo
ResolveQueryMethod "setCapsResult" o = QuerySetCapsResultMethodInfo
ResolveQueryMethod "setContext" o = QuerySetContextMethodInfo
ResolveQueryMethod "setConvert" o = QuerySetConvertMethodInfo
ResolveQueryMethod "setDuration" o = QuerySetDurationMethodInfo
ResolveQueryMethod "setFormatsv" o = QuerySetFormatsvMethodInfo
ResolveQueryMethod "setLatency" o = QuerySetLatencyMethodInfo
ResolveQueryMethod "setNthAllocationParam" o = QuerySetNthAllocationParamMethodInfo
ResolveQueryMethod "setNthAllocationPool" o = QuerySetNthAllocationPoolMethodInfo
ResolveQueryMethod "setPosition" o = QuerySetPositionMethodInfo
ResolveQueryMethod "setScheduling" o = QuerySetSchedulingMethodInfo
ResolveQueryMethod "setSeeking" o = QuerySetSeekingMethodInfo
ResolveQueryMethod "setSegment" o = QuerySetSegmentMethodInfo
ResolveQueryMethod "setUri" o = QuerySetUriMethodInfo
ResolveQueryMethod "setUriRedirection" o = QuerySetUriRedirectionMethodInfo
ResolveQueryMethod "setUriRedirectionPermanent" o = QuerySetUriRedirectionPermanentMethodInfo
ResolveQueryMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveQueryMethod t Query, MethodInfo info Query p) => IsLabelProxy t (Query -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveQueryMethod t Query, MethodInfo info Query p) => IsLabel t (Query -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif