{- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) -} module GI.Gst.Functions ( -- * Methods -- ** debugAddLogFunction debugAddLogFunction , -- ** debugBinToDotData debugBinToDotData , -- ** debugBinToDotFile debugBinToDotFile , -- ** debugBinToDotFileWithTs debugBinToDotFileWithTs , -- ** debugConstructTermColor debugConstructTermColor , -- ** debugConstructWinColor debugConstructWinColor , -- ** debugGetAllCategories debugGetAllCategories , -- ** debugGetColorMode debugGetColorMode , -- ** debugGetDefaultThreshold debugGetDefaultThreshold , -- ** debugIsActive debugIsActive , -- ** debugIsColored debugIsColored , -- ** debugLogDefault debugLogDefault , -- ** debugPrintStackTrace debugPrintStackTrace , -- ** debugRemoveLogFunction debugRemoveLogFunction , -- ** debugRemoveLogFunctionByData debugRemoveLogFunctionByData , -- ** debugSetActive debugSetActive , -- ** debugSetColorMode debugSetColorMode , -- ** debugSetColorModeFromString debugSetColorModeFromString , -- ** debugSetColored debugSetColored , -- ** debugSetDefaultThreshold debugSetDefaultThreshold , -- ** debugSetThresholdForName debugSetThresholdForName , -- ** debugSetThresholdFromString debugSetThresholdFromString , -- ** debugUnsetThresholdForName debugUnsetThresholdForName , -- ** deinit deinit , -- ** errorGetMessage errorGetMessage , -- ** filenameToUri filenameToUri , -- ** flowGetName flowGetName , -- ** flowToQuark flowToQuark , -- ** formatsContains formatsContains , -- ** isCapsFeatures isCapsFeatures , -- ** isInitialized isInitialized , -- ** paramSpecFraction paramSpecFraction , -- ** parentBufferMetaApiGetType parentBufferMetaApiGetType , -- ** parseBinFromDescription parseBinFromDescription , -- ** parseBinFromDescriptionFull parseBinFromDescriptionFull , -- ** parseLaunch parseLaunch , -- ** parseLaunchFull parseLaunchFull , -- ** parseLaunchv parseLaunchv , -- ** parseLaunchvFull parseLaunchvFull , -- ** protectionMetaApiGetType protectionMetaApiGetType , -- ** protectionSelectSystem protectionSelectSystem , -- ** segtrapIsEnabled segtrapIsEnabled , -- ** segtrapSetEnabled segtrapSetEnabled , -- ** staticCapsGetType staticCapsGetType , -- ** staticPadTemplateGetType staticPadTemplateGetType , -- ** tagExists tagExists , -- ** tagGetDescription tagGetDescription , -- ** tagGetFlag tagGetFlag , -- ** tagGetNick tagGetNick , -- ** tagGetType tagGetType , -- ** tagIsFixed tagIsFixed , -- ** tagMergeStringsWithComma tagMergeStringsWithComma , -- ** tagMergeUseFirst tagMergeUseFirst , -- ** tagRegister tagRegister , -- ** tagRegisterStatic tagRegisterStatic , -- ** typeFindGetType typeFindGetType , -- ** updateRegistry updateRegistry , -- ** utilArrayBinarySearch utilArrayBinarySearch , -- ** utilDoubleToFraction utilDoubleToFraction , -- ** utilDumpMem utilDumpMem , -- ** utilFractionAdd utilFractionAdd , -- ** utilFractionCompare utilFractionCompare , -- ** utilFractionMultiply utilFractionMultiply , -- ** utilFractionToDouble utilFractionToDouble , -- ** utilGdoubleToGuint64 utilGdoubleToGuint64 , -- ** utilGetTimestamp utilGetTimestamp , -- ** utilGreatestCommonDivisor utilGreatestCommonDivisor , -- ** utilGreatestCommonDivisorInt64 utilGreatestCommonDivisorInt64 , -- ** utilGroupIdNext utilGroupIdNext , -- ** utilGuint64ToGdouble utilGuint64ToGdouble , -- ** utilSeqnumCompare utilSeqnumCompare , -- ** utilSeqnumNext utilSeqnumNext , -- ** utilSetObjectArg utilSetObjectArg , -- ** utilSetValueFromString utilSetValueFromString , -- ** utilUint64Scale utilUint64Scale , -- ** utilUint64ScaleCeil utilUint64ScaleCeil , -- ** utilUint64ScaleInt utilUint64ScaleInt , -- ** utilUint64ScaleIntCeil utilUint64ScaleIntCeil , -- ** utilUint64ScaleIntRound utilUint64ScaleIntRound , -- ** utilUint64ScaleRound utilUint64ScaleRound , -- ** valueCanCompare valueCanCompare , -- ** valueCanIntersect valueCanIntersect , -- ** valueCanSubtract valueCanSubtract , -- ** valueCanUnion valueCanUnion , -- ** valueCompare valueCompare , -- ** valueDeserialize valueDeserialize , -- ** valueFixate valueFixate , -- ** valueFractionMultiply valueFractionMultiply , -- ** valueFractionSubtract valueFractionSubtract , -- ** valueGetBitmask valueGetBitmask , -- ** valueGetCaps valueGetCaps , -- ** valueGetCapsFeatures valueGetCapsFeatures , -- ** valueGetDoubleRangeMax valueGetDoubleRangeMax , -- ** valueGetDoubleRangeMin valueGetDoubleRangeMin , -- ** valueGetFlagsetFlags valueGetFlagsetFlags , -- ** valueGetFlagsetMask valueGetFlagsetMask , -- ** valueGetFractionDenominator valueGetFractionDenominator , -- ** valueGetFractionNumerator valueGetFractionNumerator , -- ** valueGetFractionRangeMax valueGetFractionRangeMax , -- ** valueGetFractionRangeMin valueGetFractionRangeMin , -- ** valueGetInt64RangeMax valueGetInt64RangeMax , -- ** valueGetInt64RangeMin valueGetInt64RangeMin , -- ** valueGetInt64RangeStep valueGetInt64RangeStep , -- ** valueGetIntRangeMax valueGetIntRangeMax , -- ** valueGetIntRangeMin valueGetIntRangeMin , -- ** valueGetIntRangeStep valueGetIntRangeStep , -- ** valueGetStructure valueGetStructure , -- ** valueInitAndCopy valueInitAndCopy , -- ** valueIntersect valueIntersect , -- ** valueIsFixed valueIsFixed , -- ** valueIsSubset valueIsSubset , -- ** valueRegister valueRegister , -- ** valueSerialize valueSerialize , -- ** valueSetBitmask valueSetBitmask , -- ** valueSetCaps valueSetCaps , -- ** valueSetCapsFeatures valueSetCapsFeatures , -- ** valueSetDoubleRange valueSetDoubleRange , -- ** valueSetFlagset valueSetFlagset , -- ** valueSetFraction valueSetFraction , -- ** valueSetFractionRange valueSetFractionRange , -- ** valueSetFractionRangeFull valueSetFractionRangeFull , -- ** valueSetInt64Range valueSetInt64Range , -- ** valueSetInt64RangeStep valueSetInt64RangeStep , -- ** valueSetIntRange valueSetIntRange , -- ** valueSetIntRangeStep valueSetIntRangeStep , -- ** valueSetStructure valueSetStructure , -- ** valueSubtract valueSubtract , -- ** valueUnion valueUnion , -- ** version version , -- ** versionString versionString , ) 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 import qualified GI.GLib as GLib import qualified GI.GObject as GObject -- function gst_version_string -- Args : [] -- Lengths : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gst_version_string" gst_version_string :: IO CString versionString :: (MonadIO m) => m T.Text -- result versionString = liftIO $ do result <- gst_version_string checkUnexpectedReturnNULL "gst_version_string" result result' <- cstringToText result freeMem result return result' -- function gst_version -- Args : [Arg {argCName = "major", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minor", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "micro", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "nano", 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_version" gst_version :: Ptr Word32 -> -- major : TBasicType TUInt32 Ptr Word32 -> -- minor : TBasicType TUInt32 Ptr Word32 -> -- micro : TBasicType TUInt32 Ptr Word32 -> -- nano : TBasicType TUInt32 IO () version :: (MonadIO m) => m (Word32,Word32,Word32,Word32) -- result version = liftIO $ do major <- allocMem :: IO (Ptr Word32) minor <- allocMem :: IO (Ptr Word32) micro <- allocMem :: IO (Ptr Word32) nano <- allocMem :: IO (Ptr Word32) gst_version major minor micro nano major' <- peek major minor' <- peek minor micro' <- peek micro nano' <- peek nano freeMem major freeMem minor freeMem micro freeMem nano return (major', minor', micro', nano') -- function gst_value_union -- Args : [Arg {argCName = "dest", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "value1", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value2", argType = TInterface "GObject" "Value", 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_value_union" gst_value_union :: Ptr GValue -> -- dest : TInterface "GObject" "Value" Ptr GValue -> -- value1 : TInterface "GObject" "Value" Ptr GValue -> -- value2 : TInterface "GObject" "Value" IO CInt valueUnion :: (MonadIO m) => GValue -- value1 -> GValue -- value2 -> m (Bool,GValue) -- result valueUnion value1 value2 = liftIO $ do dest <- callocBoxedBytes 24 :: IO (Ptr GValue) let value1' = unsafeManagedPtrGetPtr value1 let value2' = unsafeManagedPtrGetPtr value2 result <- gst_value_union dest value1' value2' let result' = (/= 0) result dest' <- (wrapBoxed GValue) dest touchManagedPtr value1 touchManagedPtr value2 return (result', dest') -- function gst_value_subtract -- Args : [Arg {argCName = "dest", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "minuend", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "subtrahend", argType = TInterface "GObject" "Value", 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_value_subtract" gst_value_subtract :: Ptr GValue -> -- dest : TInterface "GObject" "Value" Ptr GValue -> -- minuend : TInterface "GObject" "Value" Ptr GValue -> -- subtrahend : TInterface "GObject" "Value" IO CInt valueSubtract :: (MonadIO m) => GValue -- minuend -> GValue -- subtrahend -> m (Bool,GValue) -- result valueSubtract minuend subtrahend = liftIO $ do dest <- callocBoxedBytes 24 :: IO (Ptr GValue) let minuend' = unsafeManagedPtrGetPtr minuend let subtrahend' = unsafeManagedPtrGetPtr subtrahend result <- gst_value_subtract dest minuend' subtrahend' let result' = (/= 0) result dest' <- (wrapBoxed GValue) dest touchManagedPtr minuend touchManagedPtr subtrahend return (result', dest') -- function gst_value_set_structure -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "structure", argType = TInterface "Gst" "Structure", 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_value_set_structure" gst_value_set_structure :: Ptr GValue -> -- value : TInterface "GObject" "Value" Ptr Structure -> -- structure : TInterface "Gst" "Structure" IO () valueSetStructure :: (MonadIO m) => GValue -- value -> Structure -- structure -> m () -- result valueSetStructure value structure = liftIO $ do let value' = unsafeManagedPtrGetPtr value let structure' = unsafeManagedPtrGetPtr structure gst_value_set_structure value' structure' touchManagedPtr value touchManagedPtr structure return () -- function gst_value_set_int_range_step -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", 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_value_set_int_range_step" gst_value_set_int_range_step :: Ptr GValue -> -- value : TInterface "GObject" "Value" Int32 -> -- start : TBasicType TInt32 Int32 -> -- end : TBasicType TInt32 Int32 -> -- step : TBasicType TInt32 IO () valueSetIntRangeStep :: (MonadIO m) => GValue -- value -> Int32 -- start -> Int32 -- end -> Int32 -- step -> m () -- result valueSetIntRangeStep value start end step = liftIO $ do let value' = unsafeManagedPtrGetPtr value gst_value_set_int_range_step value' start end step touchManagedPtr value return () -- function gst_value_set_int_range -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", 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_value_set_int_range" gst_value_set_int_range :: Ptr GValue -> -- value : TInterface "GObject" "Value" Int32 -> -- start : TBasicType TInt32 Int32 -> -- end : TBasicType TInt32 IO () valueSetIntRange :: (MonadIO m) => GValue -- value -> Int32 -- start -> Int32 -- end -> m () -- result valueSetIntRange value start end = liftIO $ do let value' = unsafeManagedPtrGetPtr value gst_value_set_int_range value' start end touchManagedPtr value return () -- function gst_value_set_int64_range_step -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", 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 = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", 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_value_set_int64_range_step" gst_value_set_int64_range_step :: Ptr GValue -> -- value : TInterface "GObject" "Value" Int64 -> -- start : TBasicType TInt64 Int64 -> -- end : TBasicType TInt64 Int64 -> -- step : TBasicType TInt64 IO () valueSetInt64RangeStep :: (MonadIO m) => GValue -- value -> Int64 -- start -> Int64 -- end -> Int64 -- step -> m () -- result valueSetInt64RangeStep value start end step = liftIO $ do let value' = unsafeManagedPtrGetPtr value gst_value_set_int64_range_step value' start end step touchManagedPtr value return () -- function gst_value_set_int64_range -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", 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 = "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_value_set_int64_range" gst_value_set_int64_range :: Ptr GValue -> -- value : TInterface "GObject" "Value" Int64 -> -- start : TBasicType TInt64 Int64 -> -- end : TBasicType TInt64 IO () valueSetInt64Range :: (MonadIO m) => GValue -- value -> Int64 -- start -> Int64 -- end -> m () -- result valueSetInt64Range value start end = liftIO $ do let value' = unsafeManagedPtrGetPtr value gst_value_set_int64_range value' start end touchManagedPtr value return () -- function gst_value_set_fraction_range_full -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "numerator_start", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "denominator_start", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "numerator_end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "denominator_end", 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_value_set_fraction_range_full" gst_value_set_fraction_range_full :: Ptr GValue -> -- value : TInterface "GObject" "Value" Int32 -> -- numerator_start : TBasicType TInt32 Int32 -> -- denominator_start : TBasicType TInt32 Int32 -> -- numerator_end : TBasicType TInt32 Int32 -> -- denominator_end : TBasicType TInt32 IO () valueSetFractionRangeFull :: (MonadIO m) => GValue -- value -> Int32 -- numeratorStart -> Int32 -- denominatorStart -> Int32 -- numeratorEnd -> Int32 -- denominatorEnd -> m () -- result valueSetFractionRangeFull value numeratorStart denominatorStart numeratorEnd denominatorEnd = liftIO $ do let value' = unsafeManagedPtrGetPtr value gst_value_set_fraction_range_full value' numeratorStart denominatorStart numeratorEnd denominatorEnd touchManagedPtr value return () -- function gst_value_set_fraction_range -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "GObject" "Value", 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_value_set_fraction_range" gst_value_set_fraction_range :: Ptr GValue -> -- value : TInterface "GObject" "Value" Ptr GValue -> -- start : TInterface "GObject" "Value" Ptr GValue -> -- end : TInterface "GObject" "Value" IO () valueSetFractionRange :: (MonadIO m) => GValue -- value -> GValue -- start -> GValue -- end -> m () -- result valueSetFractionRange value start end = liftIO $ do let value' = unsafeManagedPtrGetPtr value let start' = unsafeManagedPtrGetPtr start let end' = unsafeManagedPtrGetPtr end gst_value_set_fraction_range value' start' end' touchManagedPtr value touchManagedPtr start touchManagedPtr end return () -- function gst_value_set_fraction -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "numerator", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "denominator", 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_value_set_fraction" gst_value_set_fraction :: Ptr GValue -> -- value : TInterface "GObject" "Value" Int32 -> -- numerator : TBasicType TInt32 Int32 -> -- denominator : TBasicType TInt32 IO () valueSetFraction :: (MonadIO m) => GValue -- value -> Int32 -- numerator -> Int32 -- denominator -> m () -- result valueSetFraction value numerator denominator = liftIO $ do let value' = unsafeManagedPtrGetPtr value gst_value_set_fraction value' numerator denominator touchManagedPtr value return () -- function gst_value_set_flagset -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mask", 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_value_set_flagset" gst_value_set_flagset :: Ptr GValue -> -- value : TInterface "GObject" "Value" Word32 -> -- flags : TBasicType TUInt32 Word32 -> -- mask : TBasicType TUInt32 IO () valueSetFlagset :: (MonadIO m) => GValue -- value -> Word32 -- flags -> Word32 -- mask -> m () -- result valueSetFlagset value flags mask = liftIO $ do let value' = unsafeManagedPtrGetPtr value gst_value_set_flagset value' flags mask touchManagedPtr value return () -- function gst_value_set_double_range -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TDouble, 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_value_set_double_range" gst_value_set_double_range :: Ptr GValue -> -- value : TInterface "GObject" "Value" CDouble -> -- start : TBasicType TDouble CDouble -> -- end : TBasicType TDouble IO () valueSetDoubleRange :: (MonadIO m) => GValue -- value -> Double -- start -> Double -- end -> m () -- result valueSetDoubleRange value start end = liftIO $ do let value' = unsafeManagedPtrGetPtr value let start' = realToFrac start let end' = realToFrac end gst_value_set_double_range value' start' end' touchManagedPtr value return () -- function gst_value_set_caps_features -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "features", argType = TInterface "Gst" "CapsFeatures", 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_value_set_caps_features" gst_value_set_caps_features :: Ptr GValue -> -- value : TInterface "GObject" "Value" Ptr CapsFeatures -> -- features : TInterface "Gst" "CapsFeatures" IO () valueSetCapsFeatures :: (MonadIO m) => GValue -- value -> CapsFeatures -- features -> m () -- result valueSetCapsFeatures value features = liftIO $ do let value' = unsafeManagedPtrGetPtr value let features' = unsafeManagedPtrGetPtr features gst_value_set_caps_features value' features' touchManagedPtr value touchManagedPtr features return () -- function gst_value_set_caps -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", 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_value_set_caps" gst_value_set_caps :: Ptr GValue -> -- value : TInterface "GObject" "Value" Ptr Caps -> -- caps : TInterface "Gst" "Caps" IO () valueSetCaps :: (MonadIO m) => GValue -- value -> Caps -- caps -> m () -- result valueSetCaps value caps = liftIO $ do let value' = unsafeManagedPtrGetPtr value let caps' = unsafeManagedPtrGetPtr caps gst_value_set_caps value' caps' touchManagedPtr value touchManagedPtr caps return () -- function gst_value_set_bitmask -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bitmask", 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_value_set_bitmask" gst_value_set_bitmask :: Ptr GValue -> -- value : TInterface "GObject" "Value" Word64 -> -- bitmask : TBasicType TUInt64 IO () valueSetBitmask :: (MonadIO m) => GValue -- value -> Word64 -- bitmask -> m () -- result valueSetBitmask value bitmask = liftIO $ do let value' = unsafeManagedPtrGetPtr value gst_value_set_bitmask value' bitmask touchManagedPtr value return () -- function gst_value_serialize -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gst_value_serialize" gst_value_serialize :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO CString valueSerialize :: (MonadIO m) => GValue -- value -> m T.Text -- result valueSerialize value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_serialize value' checkUnexpectedReturnNULL "gst_value_serialize" result result' <- cstringToText result freeMem result touchManagedPtr value return result' -- function gst_value_register -- Args : [Arg {argCName = "table", argType = TInterface "Gst" "ValueTable", 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_value_register" gst_value_register :: Ptr ValueTable -> -- table : TInterface "Gst" "ValueTable" IO () valueRegister :: (MonadIO m) => ValueTable -- table -> m () -- result valueRegister table = liftIO $ do let table' = unsafeManagedPtrGetPtr table gst_value_register table' touchManagedPtr table return () -- function gst_value_is_subset -- Args : [Arg {argCName = "value1", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value2", argType = TInterface "GObject" "Value", 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_value_is_subset" gst_value_is_subset :: Ptr GValue -> -- value1 : TInterface "GObject" "Value" Ptr GValue -> -- value2 : TInterface "GObject" "Value" IO CInt valueIsSubset :: (MonadIO m) => GValue -- value1 -> GValue -- value2 -> m Bool -- result valueIsSubset value1 value2 = liftIO $ do let value1' = unsafeManagedPtrGetPtr value1 let value2' = unsafeManagedPtrGetPtr value2 result <- gst_value_is_subset value1' value2' let result' = (/= 0) result touchManagedPtr value1 touchManagedPtr value2 return result' -- function gst_value_is_fixed -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", 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_value_is_fixed" gst_value_is_fixed :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO CInt valueIsFixed :: (MonadIO m) => GValue -- value -> m Bool -- result valueIsFixed value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_is_fixed value' let result' = (/= 0) result touchManagedPtr value return result' -- function gst_value_intersect -- Args : [Arg {argCName = "dest", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferEverything},Arg {argCName = "value1", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value2", argType = TInterface "GObject" "Value", 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_value_intersect" gst_value_intersect :: Ptr GValue -> -- dest : TInterface "GObject" "Value" Ptr GValue -> -- value1 : TInterface "GObject" "Value" Ptr GValue -> -- value2 : TInterface "GObject" "Value" IO CInt valueIntersect :: (MonadIO m) => GValue -- value1 -> GValue -- value2 -> m (Bool,GValue) -- result valueIntersect value1 value2 = liftIO $ do dest <- callocBoxedBytes 24 :: IO (Ptr GValue) let value1' = unsafeManagedPtrGetPtr value1 let value2' = unsafeManagedPtrGetPtr value2 result <- gst_value_intersect dest value1' value2' let result' = (/= 0) result dest' <- (wrapBoxed GValue) dest touchManagedPtr value1 touchManagedPtr value2 return (result', dest') -- function gst_value_init_and_copy -- Args : [Arg {argCName = "dest", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "src", argType = TInterface "GObject" "Value", 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_value_init_and_copy" gst_value_init_and_copy :: Ptr GValue -> -- dest : TInterface "GObject" "Value" Ptr GValue -> -- src : TInterface "GObject" "Value" IO () valueInitAndCopy :: (MonadIO m) => GValue -- src -> m (GValue) -- result valueInitAndCopy src = liftIO $ do dest <- callocBoxedBytes 24 :: IO (Ptr GValue) let src' = unsafeManagedPtrGetPtr src gst_value_init_and_copy dest src' dest' <- (wrapBoxed GValue) dest touchManagedPtr src return dest' -- function gst_value_get_structure -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", 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_value_get_structure" gst_value_get_structure :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO (Ptr Structure) valueGetStructure :: (MonadIO m) => GValue -- value -> m Structure -- result valueGetStructure value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_get_structure value' checkUnexpectedReturnNULL "gst_value_get_structure" result result' <- (newBoxed Structure) result touchManagedPtr value return result' -- function gst_value_get_int_range_step -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gst_value_get_int_range_step" gst_value_get_int_range_step :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO Int32 valueGetIntRangeStep :: (MonadIO m) => GValue -- value -> m Int32 -- result valueGetIntRangeStep value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_get_int_range_step value' touchManagedPtr value return result -- function gst_value_get_int_range_min -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gst_value_get_int_range_min" gst_value_get_int_range_min :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO Int32 valueGetIntRangeMin :: (MonadIO m) => GValue -- value -> m Int32 -- result valueGetIntRangeMin value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_get_int_range_min value' touchManagedPtr value return result -- function gst_value_get_int_range_max -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gst_value_get_int_range_max" gst_value_get_int_range_max :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO Int32 valueGetIntRangeMax :: (MonadIO m) => GValue -- value -> m Int32 -- result valueGetIntRangeMax value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_get_int_range_max value' touchManagedPtr value return result -- function gst_value_get_int64_range_step -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "gst_value_get_int64_range_step" gst_value_get_int64_range_step :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO Int64 valueGetInt64RangeStep :: (MonadIO m) => GValue -- value -> m Int64 -- result valueGetInt64RangeStep value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_get_int64_range_step value' touchManagedPtr value return result -- function gst_value_get_int64_range_min -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "gst_value_get_int64_range_min" gst_value_get_int64_range_min :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO Int64 valueGetInt64RangeMin :: (MonadIO m) => GValue -- value -> m Int64 -- result valueGetInt64RangeMin value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_get_int64_range_min value' touchManagedPtr value return result -- function gst_value_get_int64_range_max -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "gst_value_get_int64_range_max" gst_value_get_int64_range_max :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO Int64 valueGetInt64RangeMax :: (MonadIO m) => GValue -- value -> m Int64 -- result valueGetInt64RangeMax value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_get_int64_range_max value' touchManagedPtr value return result -- function gst_value_get_fraction_range_min -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "GObject" "Value" -- throws : False -- Skip return : False foreign import ccall "gst_value_get_fraction_range_min" gst_value_get_fraction_range_min :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO (Ptr GValue) valueGetFractionRangeMin :: (MonadIO m) => GValue -- value -> m GValue -- result valueGetFractionRangeMin value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_get_fraction_range_min value' checkUnexpectedReturnNULL "gst_value_get_fraction_range_min" result result' <- (newBoxed GValue) result touchManagedPtr value return result' -- function gst_value_get_fraction_range_max -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "GObject" "Value" -- throws : False -- Skip return : False foreign import ccall "gst_value_get_fraction_range_max" gst_value_get_fraction_range_max :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO (Ptr GValue) valueGetFractionRangeMax :: (MonadIO m) => GValue -- value -> m GValue -- result valueGetFractionRangeMax value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_get_fraction_range_max value' checkUnexpectedReturnNULL "gst_value_get_fraction_range_max" result result' <- (newBoxed GValue) result touchManagedPtr value return result' -- function gst_value_get_fraction_numerator -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gst_value_get_fraction_numerator" gst_value_get_fraction_numerator :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO Int32 valueGetFractionNumerator :: (MonadIO m) => GValue -- value -> m Int32 -- result valueGetFractionNumerator value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_get_fraction_numerator value' touchManagedPtr value return result -- function gst_value_get_fraction_denominator -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gst_value_get_fraction_denominator" gst_value_get_fraction_denominator :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO Int32 valueGetFractionDenominator :: (MonadIO m) => GValue -- value -> m Int32 -- result valueGetFractionDenominator value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_get_fraction_denominator value' touchManagedPtr value return result -- function gst_value_get_flagset_mask -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", 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_value_get_flagset_mask" gst_value_get_flagset_mask :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO Word32 valueGetFlagsetMask :: (MonadIO m) => GValue -- value -> m Word32 -- result valueGetFlagsetMask value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_get_flagset_mask value' touchManagedPtr value return result -- function gst_value_get_flagset_flags -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", 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_value_get_flagset_flags" gst_value_get_flagset_flags :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO Word32 valueGetFlagsetFlags :: (MonadIO m) => GValue -- value -> m Word32 -- result valueGetFlagsetFlags value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_get_flagset_flags value' touchManagedPtr value return result -- function gst_value_get_double_range_min -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False foreign import ccall "gst_value_get_double_range_min" gst_value_get_double_range_min :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO CDouble valueGetDoubleRangeMin :: (MonadIO m) => GValue -- value -> m Double -- result valueGetDoubleRangeMin value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_get_double_range_min value' let result' = realToFrac result touchManagedPtr value return result' -- function gst_value_get_double_range_max -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False foreign import ccall "gst_value_get_double_range_max" gst_value_get_double_range_max :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO CDouble valueGetDoubleRangeMax :: (MonadIO m) => GValue -- value -> m Double -- result valueGetDoubleRangeMax value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_get_double_range_max value' let result' = realToFrac result touchManagedPtr value return result' -- function gst_value_get_caps_features -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Gst" "CapsFeatures" -- throws : False -- Skip return : False foreign import ccall "gst_value_get_caps_features" gst_value_get_caps_features :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO (Ptr CapsFeatures) valueGetCapsFeatures :: (MonadIO m) => GValue -- value -> m CapsFeatures -- result valueGetCapsFeatures value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_get_caps_features value' checkUnexpectedReturnNULL "gst_value_get_caps_features" result result' <- (newBoxed CapsFeatures) result touchManagedPtr value return result' -- function gst_value_get_caps -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Gst" "Caps" -- throws : False -- Skip return : False foreign import ccall "gst_value_get_caps" gst_value_get_caps :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO (Ptr Caps) valueGetCaps :: (MonadIO m) => GValue -- value -> m Caps -- result valueGetCaps value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_get_caps value' checkUnexpectedReturnNULL "gst_value_get_caps" result result' <- (newBoxed Caps) result touchManagedPtr value return result' -- function gst_value_get_bitmask -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False foreign import ccall "gst_value_get_bitmask" gst_value_get_bitmask :: Ptr GValue -> -- value : TInterface "GObject" "Value" IO Word64 valueGetBitmask :: (MonadIO m) => GValue -- value -> m Word64 -- result valueGetBitmask value = liftIO $ do let value' = unsafeManagedPtrGetPtr value result <- gst_value_get_bitmask value' touchManagedPtr value return result -- function gst_value_fraction_subtract -- Args : [Arg {argCName = "dest", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minuend", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "subtrahend", argType = TInterface "GObject" "Value", 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_value_fraction_subtract" gst_value_fraction_subtract :: Ptr GValue -> -- dest : TInterface "GObject" "Value" Ptr GValue -> -- minuend : TInterface "GObject" "Value" Ptr GValue -> -- subtrahend : TInterface "GObject" "Value" IO CInt valueFractionSubtract :: (MonadIO m) => GValue -- dest -> GValue -- minuend -> GValue -- subtrahend -> m Bool -- result valueFractionSubtract dest minuend subtrahend = liftIO $ do let dest' = unsafeManagedPtrGetPtr dest let minuend' = unsafeManagedPtrGetPtr minuend let subtrahend' = unsafeManagedPtrGetPtr subtrahend result <- gst_value_fraction_subtract dest' minuend' subtrahend' let result' = (/= 0) result touchManagedPtr dest touchManagedPtr minuend touchManagedPtr subtrahend return result' -- function gst_value_fraction_multiply -- Args : [Arg {argCName = "product", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "factor1", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "factor2", argType = TInterface "GObject" "Value", 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_value_fraction_multiply" gst_value_fraction_multiply :: Ptr GValue -> -- product : TInterface "GObject" "Value" Ptr GValue -> -- factor1 : TInterface "GObject" "Value" Ptr GValue -> -- factor2 : TInterface "GObject" "Value" IO CInt valueFractionMultiply :: (MonadIO m) => GValue -- product -> GValue -- factor1 -> GValue -- factor2 -> m Bool -- result valueFractionMultiply product factor1 factor2 = liftIO $ do let product' = unsafeManagedPtrGetPtr product let factor1' = unsafeManagedPtrGetPtr factor1 let factor2' = unsafeManagedPtrGetPtr factor2 result <- gst_value_fraction_multiply product' factor1' factor2' let result' = (/= 0) result touchManagedPtr product touchManagedPtr factor1 touchManagedPtr factor2 return result' -- function gst_value_fixate -- Args : [Arg {argCName = "dest", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src", argType = TInterface "GObject" "Value", 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_value_fixate" gst_value_fixate :: Ptr GValue -> -- dest : TInterface "GObject" "Value" Ptr GValue -> -- src : TInterface "GObject" "Value" IO CInt valueFixate :: (MonadIO m) => GValue -- dest -> GValue -- src -> m Bool -- result valueFixate dest src = liftIO $ do let dest' = unsafeManagedPtrGetPtr dest let src' = unsafeManagedPtrGetPtr src result <- gst_value_fixate dest' src' let result' = (/= 0) result touchManagedPtr dest touchManagedPtr src return result' -- function gst_value_deserialize -- Args : [Arg {argCName = "dest", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "src", argType = TBasicType TUTF8, 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_value_deserialize" gst_value_deserialize :: Ptr GValue -> -- dest : TInterface "GObject" "Value" CString -> -- src : TBasicType TUTF8 IO CInt valueDeserialize :: (MonadIO m) => T.Text -- src -> m (Bool,GValue) -- result valueDeserialize src = liftIO $ do dest <- callocBoxedBytes 24 :: IO (Ptr GValue) src' <- textToCString src result <- gst_value_deserialize dest src' let result' = (/= 0) result dest' <- (wrapBoxed GValue) dest freeMem src' return (result', dest') -- function gst_value_compare -- Args : [Arg {argCName = "value1", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value2", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gst_value_compare" gst_value_compare :: Ptr GValue -> -- value1 : TInterface "GObject" "Value" Ptr GValue -> -- value2 : TInterface "GObject" "Value" IO Int32 valueCompare :: (MonadIO m) => GValue -- value1 -> GValue -- value2 -> m Int32 -- result valueCompare value1 value2 = liftIO $ do let value1' = unsafeManagedPtrGetPtr value1 let value2' = unsafeManagedPtrGetPtr value2 result <- gst_value_compare value1' value2' touchManagedPtr value1 touchManagedPtr value2 return result -- function gst_value_can_union -- Args : [Arg {argCName = "value1", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value2", argType = TInterface "GObject" "Value", 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_value_can_union" gst_value_can_union :: Ptr GValue -> -- value1 : TInterface "GObject" "Value" Ptr GValue -> -- value2 : TInterface "GObject" "Value" IO CInt valueCanUnion :: (MonadIO m) => GValue -- value1 -> GValue -- value2 -> m Bool -- result valueCanUnion value1 value2 = liftIO $ do let value1' = unsafeManagedPtrGetPtr value1 let value2' = unsafeManagedPtrGetPtr value2 result <- gst_value_can_union value1' value2' let result' = (/= 0) result touchManagedPtr value1 touchManagedPtr value2 return result' -- function gst_value_can_subtract -- Args : [Arg {argCName = "minuend", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "subtrahend", argType = TInterface "GObject" "Value", 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_value_can_subtract" gst_value_can_subtract :: Ptr GValue -> -- minuend : TInterface "GObject" "Value" Ptr GValue -> -- subtrahend : TInterface "GObject" "Value" IO CInt valueCanSubtract :: (MonadIO m) => GValue -- minuend -> GValue -- subtrahend -> m Bool -- result valueCanSubtract minuend subtrahend = liftIO $ do let minuend' = unsafeManagedPtrGetPtr minuend let subtrahend' = unsafeManagedPtrGetPtr subtrahend result <- gst_value_can_subtract minuend' subtrahend' let result' = (/= 0) result touchManagedPtr minuend touchManagedPtr subtrahend return result' -- function gst_value_can_intersect -- Args : [Arg {argCName = "value1", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value2", argType = TInterface "GObject" "Value", 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_value_can_intersect" gst_value_can_intersect :: Ptr GValue -> -- value1 : TInterface "GObject" "Value" Ptr GValue -> -- value2 : TInterface "GObject" "Value" IO CInt valueCanIntersect :: (MonadIO m) => GValue -- value1 -> GValue -- value2 -> m Bool -- result valueCanIntersect value1 value2 = liftIO $ do let value1' = unsafeManagedPtrGetPtr value1 let value2' = unsafeManagedPtrGetPtr value2 result <- gst_value_can_intersect value1' value2' let result' = (/= 0) result touchManagedPtr value1 touchManagedPtr value2 return result' -- function gst_value_can_compare -- Args : [Arg {argCName = "value1", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value2", argType = TInterface "GObject" "Value", 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_value_can_compare" gst_value_can_compare :: Ptr GValue -> -- value1 : TInterface "GObject" "Value" Ptr GValue -> -- value2 : TInterface "GObject" "Value" IO CInt valueCanCompare :: (MonadIO m) => GValue -- value1 -> GValue -- value2 -> m Bool -- result valueCanCompare value1 value2 = liftIO $ do let value1' = unsafeManagedPtrGetPtr value1 let value2' = unsafeManagedPtrGetPtr value2 result <- gst_value_can_compare value1' value2' let result' = (/= 0) result touchManagedPtr value1 touchManagedPtr value2 return result' -- function gst_util_uint64_scale_round -- Args : [Arg {argCName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "denom", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False foreign import ccall "gst_util_uint64_scale_round" gst_util_uint64_scale_round :: Word64 -> -- val : TBasicType TUInt64 Word64 -> -- num : TBasicType TUInt64 Word64 -> -- denom : TBasicType TUInt64 IO Word64 utilUint64ScaleRound :: (MonadIO m) => Word64 -- val -> Word64 -- num -> Word64 -- denom -> m Word64 -- result utilUint64ScaleRound val num denom = liftIO $ do result <- gst_util_uint64_scale_round val num denom return result -- function gst_util_uint64_scale_int_round -- Args : [Arg {argCName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "denom", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False foreign import ccall "gst_util_uint64_scale_int_round" gst_util_uint64_scale_int_round :: Word64 -> -- val : TBasicType TUInt64 Int32 -> -- num : TBasicType TInt32 Int32 -> -- denom : TBasicType TInt32 IO Word64 utilUint64ScaleIntRound :: (MonadIO m) => Word64 -- val -> Int32 -- num -> Int32 -- denom -> m Word64 -- result utilUint64ScaleIntRound val num denom = liftIO $ do result <- gst_util_uint64_scale_int_round val num denom return result -- function gst_util_uint64_scale_int_ceil -- Args : [Arg {argCName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "denom", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False foreign import ccall "gst_util_uint64_scale_int_ceil" gst_util_uint64_scale_int_ceil :: Word64 -> -- val : TBasicType TUInt64 Int32 -> -- num : TBasicType TInt32 Int32 -> -- denom : TBasicType TInt32 IO Word64 utilUint64ScaleIntCeil :: (MonadIO m) => Word64 -- val -> Int32 -- num -> Int32 -- denom -> m Word64 -- result utilUint64ScaleIntCeil val num denom = liftIO $ do result <- gst_util_uint64_scale_int_ceil val num denom return result -- function gst_util_uint64_scale_int -- Args : [Arg {argCName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "denom", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False foreign import ccall "gst_util_uint64_scale_int" gst_util_uint64_scale_int :: Word64 -> -- val : TBasicType TUInt64 Int32 -> -- num : TBasicType TInt32 Int32 -> -- denom : TBasicType TInt32 IO Word64 utilUint64ScaleInt :: (MonadIO m) => Word64 -- val -> Int32 -- num -> Int32 -- denom -> m Word64 -- result utilUint64ScaleInt val num denom = liftIO $ do result <- gst_util_uint64_scale_int val num denom return result -- function gst_util_uint64_scale_ceil -- Args : [Arg {argCName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "denom", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False foreign import ccall "gst_util_uint64_scale_ceil" gst_util_uint64_scale_ceil :: Word64 -> -- val : TBasicType TUInt64 Word64 -> -- num : TBasicType TUInt64 Word64 -> -- denom : TBasicType TUInt64 IO Word64 utilUint64ScaleCeil :: (MonadIO m) => Word64 -- val -> Word64 -- num -> Word64 -- denom -> m Word64 -- result utilUint64ScaleCeil val num denom = liftIO $ do result <- gst_util_uint64_scale_ceil val num denom return result -- function gst_util_uint64_scale -- Args : [Arg {argCName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "denom", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False foreign import ccall "gst_util_uint64_scale" gst_util_uint64_scale :: Word64 -> -- val : TBasicType TUInt64 Word64 -> -- num : TBasicType TUInt64 Word64 -> -- denom : TBasicType TUInt64 IO Word64 utilUint64Scale :: (MonadIO m) => Word64 -- val -> Word64 -- num -> Word64 -- denom -> m Word64 -- result utilUint64Scale val num denom = liftIO $ do result <- gst_util_uint64_scale val num denom return result -- function gst_util_set_value_from_string -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "value_str", 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_util_set_value_from_string" gst_util_set_value_from_string :: Ptr GValue -> -- value : TInterface "GObject" "Value" CString -> -- value_str : TBasicType TUTF8 IO () utilSetValueFromString :: (MonadIO m) => T.Text -- valueStr -> m (GValue) -- result utilSetValueFromString valueStr = liftIO $ do value <- callocBoxedBytes 24 :: IO (Ptr GValue) valueStr' <- textToCString valueStr gst_util_set_value_from_string value valueStr' value' <- (wrapBoxed GValue) value freeMem valueStr' return value' -- function gst_util_set_object_arg -- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", 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_util_set_object_arg" gst_util_set_object_arg :: Ptr GObject.Object -> -- object : TInterface "GObject" "Object" CString -> -- name : TBasicType TUTF8 CString -> -- value : TBasicType TUTF8 IO () utilSetObjectArg :: (MonadIO m, GObject.ObjectK a) => a -- object -> T.Text -- name -> T.Text -- value -> m () -- result utilSetObjectArg object name value = liftIO $ do let object' = unsafeManagedPtrCastPtr object name' <- textToCString name value' <- textToCString value gst_util_set_object_arg object' name' value' touchManagedPtr object freeMem name' freeMem value' return () -- function gst_util_seqnum_next -- Args : [] -- Lengths : [] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gst_util_seqnum_next" gst_util_seqnum_next :: IO Word32 utilSeqnumNext :: (MonadIO m) => m Word32 -- result utilSeqnumNext = liftIO $ do result <- gst_util_seqnum_next return result -- function gst_util_seqnum_compare -- Args : [Arg {argCName = "s1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "s2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gst_util_seqnum_compare" gst_util_seqnum_compare :: Word32 -> -- s1 : TBasicType TUInt32 Word32 -> -- s2 : TBasicType TUInt32 IO Int32 utilSeqnumCompare :: (MonadIO m) => Word32 -- s1 -> Word32 -- s2 -> m Int32 -- result utilSeqnumCompare s1 s2 = liftIO $ do result <- gst_util_seqnum_compare s1 s2 return result -- function gst_util_guint64_to_gdouble -- Args : [Arg {argCName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False foreign import ccall "gst_util_guint64_to_gdouble" gst_util_guint64_to_gdouble :: Word64 -> -- value : TBasicType TUInt64 IO CDouble utilGuint64ToGdouble :: (MonadIO m) => Word64 -- value -> m Double -- result utilGuint64ToGdouble value = liftIO $ do result <- gst_util_guint64_to_gdouble value let result' = realToFrac result return result' -- function gst_util_group_id_next -- Args : [] -- Lengths : [] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gst_util_group_id_next" gst_util_group_id_next :: IO Word32 utilGroupIdNext :: (MonadIO m) => m Word32 -- result utilGroupIdNext = liftIO $ do result <- gst_util_group_id_next return result -- function gst_util_greatest_common_divisor_int64 -- Args : [Arg {argCName = "a", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "gst_util_greatest_common_divisor_int64" gst_util_greatest_common_divisor_int64 :: Int64 -> -- a : TBasicType TInt64 Int64 -> -- b : TBasicType TInt64 IO Int64 utilGreatestCommonDivisorInt64 :: (MonadIO m) => Int64 -- a -> Int64 -- b -> m Int64 -- result utilGreatestCommonDivisorInt64 a b = liftIO $ do result <- gst_util_greatest_common_divisor_int64 a b return result -- function gst_util_greatest_common_divisor -- Args : [Arg {argCName = "a", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gst_util_greatest_common_divisor" gst_util_greatest_common_divisor :: Int32 -> -- a : TBasicType TInt32 Int32 -> -- b : TBasicType TInt32 IO Int32 utilGreatestCommonDivisor :: (MonadIO m) => Int32 -- a -> Int32 -- b -> m Int32 -- result utilGreatestCommonDivisor a b = liftIO $ do result <- gst_util_greatest_common_divisor a b return result -- function gst_util_get_timestamp -- Args : [] -- Lengths : [] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False foreign import ccall "gst_util_get_timestamp" gst_util_get_timestamp :: IO Word64 utilGetTimestamp :: (MonadIO m) => m Word64 -- result utilGetTimestamp = liftIO $ do result <- gst_util_get_timestamp return result -- function gst_util_gdouble_to_guint64 -- Args : [Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False foreign import ccall "gst_util_gdouble_to_guint64" gst_util_gdouble_to_guint64 :: CDouble -> -- value : TBasicType TDouble IO Word64 utilGdoubleToGuint64 :: (MonadIO m) => Double -- value -> m Word64 -- result utilGdoubleToGuint64 value = liftIO $ do let value' = realToFrac value result <- gst_util_gdouble_to_guint64 value' return result -- function gst_util_fraction_to_double -- Args : [Arg {argCName = "src_n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_d", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TBasicType TDouble, 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_util_fraction_to_double" gst_util_fraction_to_double :: Int32 -> -- src_n : TBasicType TInt32 Int32 -> -- src_d : TBasicType TInt32 Ptr CDouble -> -- dest : TBasicType TDouble IO () utilFractionToDouble :: (MonadIO m) => Int32 -- srcN -> Int32 -- srcD -> m (Double) -- result utilFractionToDouble srcN srcD = liftIO $ do dest <- allocMem :: IO (Ptr CDouble) gst_util_fraction_to_double srcN srcD dest dest' <- peek dest let dest'' = realToFrac dest' freeMem dest return dest'' -- function gst_util_fraction_multiply -- Args : [Arg {argCName = "a_n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "a_d", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b_n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b_d", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res_n", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "res_d", argType = TBasicType TInt32, 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_util_fraction_multiply" gst_util_fraction_multiply :: Int32 -> -- a_n : TBasicType TInt32 Int32 -> -- a_d : TBasicType TInt32 Int32 -> -- b_n : TBasicType TInt32 Int32 -> -- b_d : TBasicType TInt32 Ptr Int32 -> -- res_n : TBasicType TInt32 Ptr Int32 -> -- res_d : TBasicType TInt32 IO CInt utilFractionMultiply :: (MonadIO m) => Int32 -- aN -> Int32 -- aD -> Int32 -- bN -> Int32 -- bD -> m (Bool,Int32,Int32) -- result utilFractionMultiply aN aD bN bD = liftIO $ do resN <- allocMem :: IO (Ptr Int32) resD <- allocMem :: IO (Ptr Int32) result <- gst_util_fraction_multiply aN aD bN bD resN resD let result' = (/= 0) result resN' <- peek resN resD' <- peek resD freeMem resN freeMem resD return (result', resN', resD') -- function gst_util_fraction_compare -- Args : [Arg {argCName = "a_n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "a_d", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b_n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b_d", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gst_util_fraction_compare" gst_util_fraction_compare :: Int32 -> -- a_n : TBasicType TInt32 Int32 -> -- a_d : TBasicType TInt32 Int32 -> -- b_n : TBasicType TInt32 Int32 -> -- b_d : TBasicType TInt32 IO Int32 utilFractionCompare :: (MonadIO m) => Int32 -- aN -> Int32 -- aD -> Int32 -- bN -> Int32 -- bD -> m Int32 -- result utilFractionCompare aN aD bN bD = liftIO $ do result <- gst_util_fraction_compare aN aD bN bD return result -- function gst_util_fraction_add -- Args : [Arg {argCName = "a_n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "a_d", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b_n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b_d", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res_n", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "res_d", argType = TBasicType TInt32, 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_util_fraction_add" gst_util_fraction_add :: Int32 -> -- a_n : TBasicType TInt32 Int32 -> -- a_d : TBasicType TInt32 Int32 -> -- b_n : TBasicType TInt32 Int32 -> -- b_d : TBasicType TInt32 Ptr Int32 -> -- res_n : TBasicType TInt32 Ptr Int32 -> -- res_d : TBasicType TInt32 IO CInt utilFractionAdd :: (MonadIO m) => Int32 -- aN -> Int32 -- aD -> Int32 -- bN -> Int32 -- bD -> m (Bool,Int32,Int32) -- result utilFractionAdd aN aD bN bD = liftIO $ do resN <- allocMem :: IO (Ptr Int32) resD <- allocMem :: IO (Ptr Int32) result <- gst_util_fraction_add aN aD bN bD resN resD let result' = (/= 0) result resN' <- peek resN resD' <- peek resD freeMem resN freeMem resD return (result', resN', resD') -- function gst_util_dump_mem -- Args : [Arg {argCName = "mem", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, 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}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gst_util_dump_mem" gst_util_dump_mem :: Word8 -> -- mem : TBasicType TUInt8 Word32 -> -- size : TBasicType TUInt32 IO () utilDumpMem :: (MonadIO m) => Word8 -- mem -> Word32 -- size -> m () -- result utilDumpMem mem size = liftIO $ do gst_util_dump_mem mem size return () -- function gst_util_double_to_fraction -- Args : [Arg {argCName = "src", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_n", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "dest_d", 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_util_double_to_fraction" gst_util_double_to_fraction :: CDouble -> -- src : TBasicType TDouble Ptr Int32 -> -- dest_n : TBasicType TInt32 Ptr Int32 -> -- dest_d : TBasicType TInt32 IO () utilDoubleToFraction :: (MonadIO m) => Double -- src -> m (Int32,Int32) -- result utilDoubleToFraction src = liftIO $ do let src' = realToFrac src destN <- allocMem :: IO (Ptr Int32) destD <- allocMem :: IO (Ptr Int32) gst_util_double_to_fraction src' destN destD destN' <- peek destN destD' <- peek destD freeMem destN freeMem destD return (destN', destD') -- function gst_util_array_binary_search -- Args : [Arg {argCName = "array", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_elements", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "element_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_func", argType = TInterface "GLib" "CompareDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gst" "SearchMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, 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_util_array_binary_search" gst_util_array_binary_search :: Ptr () -> -- array : TBasicType TVoid Word32 -> -- num_elements : TBasicType TUInt32 Word64 -> -- element_size : TBasicType TUInt64 FunPtr GLib.CompareDataFuncC -> -- search_func : TInterface "GLib" "CompareDataFunc" CUInt -> -- mode : TInterface "Gst" "SearchMode" Ptr () -> -- search_data : TBasicType TVoid Ptr () -> -- user_data : TBasicType TVoid IO () utilArrayBinarySearch :: (MonadIO m) => Ptr () -- array -> Word32 -- numElements -> Word64 -- elementSize -> GLib.CompareDataFunc -- searchFunc -> SearchMode -- mode -> Ptr () -- searchData -> m () -- result utilArrayBinarySearch array numElements elementSize searchFunc mode searchData = liftIO $ do searchFunc' <- GLib.mkCompareDataFunc (GLib.compareDataFuncWrapper Nothing searchFunc) let mode' = (fromIntegral . fromEnum) mode let userData = nullPtr gst_util_array_binary_search array numElements elementSize searchFunc' mode' searchData userData safeFreeFunPtr $ castFunPtrToPtr searchFunc' return () -- function gst_update_registry -- Args : [] -- Lengths : [] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gst_update_registry" gst_update_registry :: IO CInt updateRegistry :: (MonadIO m) => m Bool -- result updateRegistry = liftIO $ do result <- gst_update_registry let result' = (/= 0) result return result' -- function gst_type_find_get_type -- Args : [] -- Lengths : [] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "gst_type_find_get_type" gst_type_find_get_type :: IO CGType typeFindGetType :: (MonadIO m) => m GType -- result typeFindGetType = liftIO $ do result <- gst_type_find_get_type let result' = GType result return result' -- function gst_tag_register_static -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flag", argType = TInterface "Gst" "TagFlag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gst" "TagMergeFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gst_tag_register_static" gst_tag_register_static :: CString -> -- name : TBasicType TUTF8 CUInt -> -- flag : TInterface "Gst" "TagFlag" CGType -> -- type : TBasicType TGType CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 FunPtr TagMergeFuncC -> -- func : TInterface "Gst" "TagMergeFunc" IO () tagRegisterStatic :: (MonadIO m) => T.Text -- name -> TagFlag -- flag -> GType -- type_ -> T.Text -- nick -> T.Text -- blurb -> Maybe (TagMergeFunc) -- func -> m () -- result tagRegisterStatic name flag type_ nick blurb func = liftIO $ do name' <- textToCString name let flag' = (fromIntegral . fromEnum) flag let type_' = gtypeToCGType type_ nick' <- textToCString nick blurb' <- textToCString blurb maybeFunc <- case func of Nothing -> return (castPtrToFunPtr nullPtr) Just jFunc -> do jFunc' <- mkTagMergeFunc (tagMergeFuncWrapper Nothing jFunc) return jFunc' gst_tag_register_static name' flag' type_' nick' blurb' maybeFunc safeFreeFunPtr $ castFunPtrToPtr maybeFunc freeMem name' freeMem nick' freeMem blurb' return () -- function gst_tag_register -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flag", argType = TInterface "Gst" "TagFlag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gst" "TagMergeFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gst_tag_register" gst_tag_register :: CString -> -- name : TBasicType TUTF8 CUInt -> -- flag : TInterface "Gst" "TagFlag" CGType -> -- type : TBasicType TGType CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 FunPtr TagMergeFuncC -> -- func : TInterface "Gst" "TagMergeFunc" IO () tagRegister :: (MonadIO m) => T.Text -- name -> TagFlag -- flag -> GType -- type_ -> T.Text -- nick -> T.Text -- blurb -> Maybe (TagMergeFunc) -- func -> m () -- result tagRegister name flag type_ nick blurb func = liftIO $ do name' <- textToCString name let flag' = (fromIntegral . fromEnum) flag let type_' = gtypeToCGType type_ nick' <- textToCString nick blurb' <- textToCString blurb maybeFunc <- case func of Nothing -> return (castPtrToFunPtr nullPtr) Just jFunc -> do jFunc' <- mkTagMergeFunc (tagMergeFuncWrapper Nothing jFunc) return jFunc' gst_tag_register name' flag' type_' nick' blurb' maybeFunc safeFreeFunPtr $ castFunPtrToPtr maybeFunc freeMem name' freeMem nick' freeMem blurb' return () -- function gst_tag_merge_use_first -- Args : [Arg {argCName = "dest", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "src", argType = TInterface "GObject" "Value", 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_tag_merge_use_first" gst_tag_merge_use_first :: Ptr GValue -> -- dest : TInterface "GObject" "Value" Ptr GValue -> -- src : TInterface "GObject" "Value" IO () tagMergeUseFirst :: (MonadIO m) => GValue -- src -> m (GValue) -- result tagMergeUseFirst src = liftIO $ do dest <- callocBoxedBytes 24 :: IO (Ptr GValue) let src' = unsafeManagedPtrGetPtr src gst_tag_merge_use_first dest src' dest' <- (wrapBoxed GValue) dest touchManagedPtr src return dest' -- function gst_tag_merge_strings_with_comma -- Args : [Arg {argCName = "dest", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "src", argType = TInterface "GObject" "Value", 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_tag_merge_strings_with_comma" gst_tag_merge_strings_with_comma :: Ptr GValue -> -- dest : TInterface "GObject" "Value" Ptr GValue -> -- src : TInterface "GObject" "Value" IO () tagMergeStringsWithComma :: (MonadIO m) => GValue -- src -> m (GValue) -- result tagMergeStringsWithComma src = liftIO $ do dest <- callocBoxedBytes 24 :: IO (Ptr GValue) let src' = unsafeManagedPtrGetPtr src gst_tag_merge_strings_with_comma dest src' dest' <- (wrapBoxed GValue) dest touchManagedPtr src return dest' -- function gst_tag_is_fixed -- Args : [Arg {argCName = "tag", argType = TBasicType TUTF8, 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_tag_is_fixed" gst_tag_is_fixed :: CString -> -- tag : TBasicType TUTF8 IO CInt tagIsFixed :: (MonadIO m) => T.Text -- tag -> m Bool -- result tagIsFixed tag = liftIO $ do tag' <- textToCString tag result <- gst_tag_is_fixed tag' let result' = (/= 0) result freeMem tag' return result' -- function gst_tag_get_type -- Args : [Arg {argCName = "tag", argType = TBasicType TUTF8, direction = DirectionIn, 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_tag_get_type" gst_tag_get_type :: CString -> -- tag : TBasicType TUTF8 IO CGType tagGetType :: (MonadIO m) => T.Text -- tag -> m GType -- result tagGetType tag = liftIO $ do tag' <- textToCString tag result <- gst_tag_get_type tag' let result' = GType result freeMem tag' return result' -- function gst_tag_get_nick -- Args : [Arg {argCName = "tag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gst_tag_get_nick" gst_tag_get_nick :: CString -> -- tag : TBasicType TUTF8 IO CString tagGetNick :: (MonadIO m) => T.Text -- tag -> m T.Text -- result tagGetNick tag = liftIO $ do tag' <- textToCString tag result <- gst_tag_get_nick tag' checkUnexpectedReturnNULL "gst_tag_get_nick" result result' <- cstringToText result freeMem tag' return result' -- function gst_tag_get_flag -- Args : [Arg {argCName = "tag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Gst" "TagFlag" -- throws : False -- Skip return : False foreign import ccall "gst_tag_get_flag" gst_tag_get_flag :: CString -> -- tag : TBasicType TUTF8 IO CUInt tagGetFlag :: (MonadIO m) => T.Text -- tag -> m TagFlag -- result tagGetFlag tag = liftIO $ do tag' <- textToCString tag result <- gst_tag_get_flag tag' let result' = (toEnum . fromIntegral) result freeMem tag' return result' -- function gst_tag_get_description -- Args : [Arg {argCName = "tag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gst_tag_get_description" gst_tag_get_description :: CString -> -- tag : TBasicType TUTF8 IO CString tagGetDescription :: (MonadIO m) => T.Text -- tag -> m T.Text -- result tagGetDescription tag = liftIO $ do tag' <- textToCString tag result <- gst_tag_get_description tag' checkUnexpectedReturnNULL "gst_tag_get_description" result result' <- cstringToText result freeMem tag' return result' -- function gst_tag_exists -- Args : [Arg {argCName = "tag", argType = TBasicType TUTF8, 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_tag_exists" gst_tag_exists :: CString -> -- tag : TBasicType TUTF8 IO CInt tagExists :: (MonadIO m) => T.Text -- tag -> m Bool -- result tagExists tag = liftIO $ do tag' <- textToCString tag result <- gst_tag_exists tag' let result' = (/= 0) result freeMem tag' return result' -- function gst_static_pad_template_get_type -- Args : [] -- Lengths : [] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "gst_static_pad_template_get_type" gst_static_pad_template_get_type :: IO CGType staticPadTemplateGetType :: (MonadIO m) => m GType -- result staticPadTemplateGetType = liftIO $ do result <- gst_static_pad_template_get_type let result' = GType result return result' -- function gst_static_caps_get_type -- Args : [] -- Lengths : [] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "gst_static_caps_get_type" gst_static_caps_get_type :: IO CGType staticCapsGetType :: (MonadIO m) => m GType -- result staticCapsGetType = liftIO $ do result <- gst_static_caps_get_type let result' = GType result return result' -- function gst_segtrap_set_enabled -- Args : [Arg {argCName = "enabled", 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_segtrap_set_enabled" gst_segtrap_set_enabled :: CInt -> -- enabled : TBasicType TBoolean IO () segtrapSetEnabled :: (MonadIO m) => Bool -- enabled -> m () -- result segtrapSetEnabled enabled = liftIO $ do let enabled' = (fromIntegral . fromEnum) enabled gst_segtrap_set_enabled enabled' return () -- function gst_segtrap_is_enabled -- Args : [] -- Lengths : [] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gst_segtrap_is_enabled" gst_segtrap_is_enabled :: IO CInt segtrapIsEnabled :: (MonadIO m) => m Bool -- result segtrapIsEnabled = liftIO $ do result <- gst_segtrap_is_enabled let result' = (/= 0) result return result' -- function gst_protection_select_system -- Args : [Arg {argCName = "system_identifiers", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gst_protection_select_system" gst_protection_select_system :: CString -> -- system_identifiers : TBasicType TUTF8 IO CString protectionSelectSystem :: (MonadIO m) => T.Text -- systemIdentifiers -> m T.Text -- result protectionSelectSystem systemIdentifiers = liftIO $ do systemIdentifiers' <- textToCString systemIdentifiers result <- gst_protection_select_system systemIdentifiers' checkUnexpectedReturnNULL "gst_protection_select_system" result result' <- cstringToText result freeMem systemIdentifiers' return result' -- function gst_protection_meta_api_get_type -- Args : [] -- Lengths : [] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "gst_protection_meta_api_get_type" gst_protection_meta_api_get_type :: IO CGType protectionMetaApiGetType :: (MonadIO m) => m GType -- result protectionMetaApiGetType = liftIO $ do result <- gst_protection_meta_api_get_type let result' = GType result return result' -- function gst_parse_launchv_full -- Args : [Arg {argCName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gst" "ParseContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gst" "ParseFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Gst" "Element" -- throws : True -- Skip return : False foreign import ccall "gst_parse_launchv_full" gst_parse_launchv_full :: Ptr CString -> -- argv : TCArray True (-1) (-1) (TBasicType TUTF8) Ptr ParseContext -> -- context : TInterface "Gst" "ParseContext" CUInt -> -- flags : TInterface "Gst" "ParseFlags" Ptr (Ptr GError) -> -- error IO (Ptr Element) parseLaunchvFull :: (MonadIO m) => [T.Text] -- argv -> Maybe (ParseContext) -- context -> [ParseFlags] -- flags -> m Element -- result parseLaunchvFull argv context flags = liftIO $ do argv' <- packZeroTerminatedUTF8CArray argv maybeContext <- case context of Nothing -> return nullPtr Just jContext -> do let jContext' = unsafeManagedPtrGetPtr jContext return jContext' let flags' = gflagsToWord flags onException (do result <- propagateGError $ gst_parse_launchv_full argv' maybeContext flags' checkUnexpectedReturnNULL "gst_parse_launchv_full" result result' <- (newObject Element) result whenJust context touchManagedPtr mapZeroTerminatedCArray freeMem argv' freeMem argv' return result' ) (do mapZeroTerminatedCArray freeMem argv' freeMem argv' ) -- function gst_parse_launchv -- Args : [Arg {argCName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Gst" "Element" -- throws : True -- Skip return : False foreign import ccall "gst_parse_launchv" gst_parse_launchv :: Ptr CString -> -- argv : TCArray True (-1) (-1) (TBasicType TUTF8) Ptr (Ptr GError) -> -- error IO (Ptr Element) parseLaunchv :: (MonadIO m) => [T.Text] -- argv -> m Element -- result parseLaunchv argv = liftIO $ do argv' <- packZeroTerminatedUTF8CArray argv onException (do result <- propagateGError $ gst_parse_launchv argv' checkUnexpectedReturnNULL "gst_parse_launchv" result result' <- (newObject Element) result mapZeroTerminatedCArray freeMem argv' freeMem argv' return result' ) (do mapZeroTerminatedCArray freeMem argv' freeMem argv' ) -- function gst_parse_launch_full -- Args : [Arg {argCName = "pipeline_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gst" "ParseContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gst" "ParseFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Gst" "Element" -- throws : True -- Skip return : False foreign import ccall "gst_parse_launch_full" gst_parse_launch_full :: CString -> -- pipeline_description : TBasicType TUTF8 Ptr ParseContext -> -- context : TInterface "Gst" "ParseContext" CUInt -> -- flags : TInterface "Gst" "ParseFlags" Ptr (Ptr GError) -> -- error IO (Ptr Element) parseLaunchFull :: (MonadIO m) => T.Text -- pipelineDescription -> Maybe (ParseContext) -- context -> [ParseFlags] -- flags -> m Element -- result parseLaunchFull pipelineDescription context flags = liftIO $ do pipelineDescription' <- textToCString pipelineDescription maybeContext <- case context of Nothing -> return nullPtr Just jContext -> do let jContext' = unsafeManagedPtrGetPtr jContext return jContext' let flags' = gflagsToWord flags onException (do result <- propagateGError $ gst_parse_launch_full pipelineDescription' maybeContext flags' checkUnexpectedReturnNULL "gst_parse_launch_full" result result' <- (newObject Element) result whenJust context touchManagedPtr freeMem pipelineDescription' return result' ) (do freeMem pipelineDescription' ) -- function gst_parse_launch -- Args : [Arg {argCName = "pipeline_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Gst" "Element" -- throws : True -- Skip return : False foreign import ccall "gst_parse_launch" gst_parse_launch :: CString -> -- pipeline_description : TBasicType TUTF8 Ptr (Ptr GError) -> -- error IO (Ptr Element) parseLaunch :: (MonadIO m) => T.Text -- pipelineDescription -> m Element -- result parseLaunch pipelineDescription = liftIO $ do pipelineDescription' <- textToCString pipelineDescription onException (do result <- propagateGError $ gst_parse_launch pipelineDescription' checkUnexpectedReturnNULL "gst_parse_launch" result result' <- (newObject Element) result freeMem pipelineDescription' return result' ) (do freeMem pipelineDescription' ) -- function gst_parse_bin_from_description_full -- Args : [Arg {argCName = "bin_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ghost_unlinked_pads", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gst" "ParseContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gst" "ParseFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Gst" "Element" -- throws : True -- Skip return : False foreign import ccall "gst_parse_bin_from_description_full" gst_parse_bin_from_description_full :: CString -> -- bin_description : TBasicType TUTF8 CInt -> -- ghost_unlinked_pads : TBasicType TBoolean Ptr ParseContext -> -- context : TInterface "Gst" "ParseContext" CUInt -> -- flags : TInterface "Gst" "ParseFlags" Ptr (Ptr GError) -> -- error IO (Ptr Element) parseBinFromDescriptionFull :: (MonadIO m) => T.Text -- binDescription -> Bool -- ghostUnlinkedPads -> Maybe (ParseContext) -- context -> [ParseFlags] -- flags -> m Element -- result parseBinFromDescriptionFull binDescription ghostUnlinkedPads context flags = liftIO $ do binDescription' <- textToCString binDescription let ghostUnlinkedPads' = (fromIntegral . fromEnum) ghostUnlinkedPads maybeContext <- case context of Nothing -> return nullPtr Just jContext -> do let jContext' = unsafeManagedPtrGetPtr jContext return jContext' let flags' = gflagsToWord flags onException (do result <- propagateGError $ gst_parse_bin_from_description_full binDescription' ghostUnlinkedPads' maybeContext flags' checkUnexpectedReturnNULL "gst_parse_bin_from_description_full" result result' <- (newObject Element) result whenJust context touchManagedPtr freeMem binDescription' return result' ) (do freeMem binDescription' ) -- function gst_parse_bin_from_description -- Args : [Arg {argCName = "bin_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ghost_unlinked_pads", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Gst" "Bin" -- throws : True -- Skip return : False foreign import ccall "gst_parse_bin_from_description" gst_parse_bin_from_description :: CString -> -- bin_description : TBasicType TUTF8 CInt -> -- ghost_unlinked_pads : TBasicType TBoolean Ptr (Ptr GError) -> -- error IO (Ptr Bin) parseBinFromDescription :: (MonadIO m) => T.Text -- binDescription -> Bool -- ghostUnlinkedPads -> m Bin -- result parseBinFromDescription binDescription ghostUnlinkedPads = liftIO $ do binDescription' <- textToCString binDescription let ghostUnlinkedPads' = (fromIntegral . fromEnum) ghostUnlinkedPads onException (do result <- propagateGError $ gst_parse_bin_from_description binDescription' ghostUnlinkedPads' checkUnexpectedReturnNULL "gst_parse_bin_from_description" result result' <- (newObject Bin) result freeMem binDescription' return result' ) (do freeMem binDescription' ) -- function gst_parent_buffer_meta_api_get_type -- Args : [] -- Lengths : [] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "gst_parent_buffer_meta_api_get_type" gst_parent_buffer_meta_api_get_type :: IO CGType parentBufferMetaApiGetType :: (MonadIO m) => m GType -- result parentBufferMetaApiGetType = liftIO $ do result <- gst_parent_buffer_meta_api_get_type let result' = GType result return result' -- function gst_param_spec_fraction -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nick", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blurb", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_denom", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_denom", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_denom", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GObject" "ParamFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TParamSpec -- throws : False -- Skip return : False foreign import ccall "gst_param_spec_fraction" gst_param_spec_fraction :: CString -> -- name : TBasicType TUTF8 CString -> -- nick : TBasicType TUTF8 CString -> -- blurb : TBasicType TUTF8 Int32 -> -- min_num : TBasicType TInt32 Int32 -> -- min_denom : TBasicType TInt32 Int32 -> -- max_num : TBasicType TInt32 Int32 -> -- max_denom : TBasicType TInt32 Int32 -> -- default_num : TBasicType TInt32 Int32 -> -- default_denom : TBasicType TInt32 CUInt -> -- flags : TInterface "GObject" "ParamFlags" IO (Ptr GParamSpec) paramSpecFraction :: (MonadIO m) => T.Text -- name -> T.Text -- nick -> T.Text -- blurb -> Int32 -- minNum -> Int32 -- minDenom -> Int32 -- maxNum -> Int32 -- maxDenom -> Int32 -- defaultNum -> Int32 -- defaultDenom -> [GObject.ParamFlags] -- flags -> m GParamSpec -- result paramSpecFraction name nick blurb minNum minDenom maxNum maxDenom defaultNum defaultDenom flags = liftIO $ do name' <- textToCString name nick' <- textToCString nick blurb' <- textToCString blurb let flags' = gflagsToWord flags result <- gst_param_spec_fraction name' nick' blurb' minNum minDenom maxNum maxDenom defaultNum defaultDenom flags' checkUnexpectedReturnNULL "gst_param_spec_fraction" result result' <- wrapGParamSpecPtr result freeMem name' freeMem nick' freeMem blurb' return result' -- function gst_is_initialized -- Args : [] -- Lengths : [] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gst_is_initialized" gst_is_initialized :: IO CInt isInitialized :: (MonadIO m) => m Bool -- result isInitialized = liftIO $ do result <- gst_is_initialized let result' = (/= 0) result return result' -- function gst_is_caps_features -- Args : [Arg {argCName = "obj", argType = TBasicType TVoid, 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_is_caps_features" gst_is_caps_features :: Ptr () -> -- obj : TBasicType TVoid IO CInt isCapsFeatures :: (MonadIO m) => Ptr () -- obj -> m Bool -- result isCapsFeatures obj = liftIO $ do result <- gst_is_caps_features obj let result' = (/= 0) result return result' -- function gst_init_check -- XXX Could not generate function gst_init_check -- Error was : Bad introspection data: "argument \"argc\" is not of nullable type (TBasicType TInt32), but it is marked as such." -- function gst_init -- XXX Could not generate function gst_init -- Error was : Bad introspection data: "argument \"argc\" is not of nullable type (TBasicType TInt32), but it is marked as such." -- function gst_formats_contains -- Args : [Arg {argCName = "formats", argType = TCArray True (-1) (-1) (TInterface "Gst" "Format"), 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}] -- Lengths : [] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gst_formats_contains" gst_formats_contains :: Ptr CUInt -> -- formats : TCArray True (-1) (-1) (TInterface "Gst" "Format") CUInt -> -- format : TInterface "Gst" "Format" IO CInt formatsContains :: (MonadIO m) => [Format] -- formats -> Format -- format -> m Bool -- result formatsContains formats format = liftIO $ do let formats' = map (fromIntegral . fromEnum) formats formats'' <- packZeroTerminatedStorableArray formats' let format' = (fromIntegral . fromEnum) format result <- gst_formats_contains formats'' format' let result' = (/= 0) result freeMem formats'' return result' -- function gst_flow_to_quark -- Args : [Arg {argCName = "ret", argType = TInterface "Gst" "FlowReturn", 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_flow_to_quark" gst_flow_to_quark :: CUInt -> -- ret : TInterface "Gst" "FlowReturn" IO Word32 flowToQuark :: (MonadIO m) => FlowReturn -- ret -> m Word32 -- result flowToQuark ret = liftIO $ do let ret' = (fromIntegral . fromEnum) ret result <- gst_flow_to_quark ret' return result -- function gst_flow_get_name -- Args : [Arg {argCName = "ret", argType = TInterface "Gst" "FlowReturn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gst_flow_get_name" gst_flow_get_name :: CUInt -> -- ret : TInterface "Gst" "FlowReturn" IO CString flowGetName :: (MonadIO m) => FlowReturn -- ret -> m T.Text -- result flowGetName ret = liftIO $ do let ret' = (fromIntegral . fromEnum) ret result <- gst_flow_get_name ret' checkUnexpectedReturnNULL "gst_flow_get_name" result result' <- cstringToText result return result' -- function gst_filename_to_uri -- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUTF8 -- throws : True -- Skip return : False foreign import ccall "gst_filename_to_uri" gst_filename_to_uri :: CString -> -- filename : TBasicType TUTF8 Ptr (Ptr GError) -> -- error IO CString filenameToUri :: (MonadIO m) => T.Text -- filename -> m T.Text -- result filenameToUri filename = liftIO $ do filename' <- textToCString filename onException (do result <- propagateGError $ gst_filename_to_uri filename' checkUnexpectedReturnNULL "gst_filename_to_uri" result result' <- cstringToText result freeMem result freeMem filename' return result' ) (do freeMem filename' ) -- function gst_error_get_message -- Args : [Arg {argCName = "domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "code", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gst_error_get_message" gst_error_get_message :: Word32 -> -- domain : TBasicType TUInt32 Int32 -> -- code : TBasicType TInt32 IO CString errorGetMessage :: (MonadIO m) => Word32 -- domain -> Int32 -- code -> m T.Text -- result errorGetMessage domain code = liftIO $ do result <- gst_error_get_message domain code checkUnexpectedReturnNULL "gst_error_get_message" result result' <- cstringToText result freeMem result return result' -- function gst_deinit -- Args : [] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gst_deinit" gst_deinit :: IO () deinit :: (MonadIO m) => m () -- result deinit = liftIO $ do gst_deinit return () -- function gst_debug_unset_threshold_for_name -- Args : [Arg {argCName = "name", 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_debug_unset_threshold_for_name" gst_debug_unset_threshold_for_name :: CString -> -- name : TBasicType TUTF8 IO () debugUnsetThresholdForName :: (MonadIO m) => T.Text -- name -> m () -- result debugUnsetThresholdForName name = liftIO $ do name' <- textToCString name gst_debug_unset_threshold_for_name name' freeMem name' return () -- function gst_debug_set_threshold_from_string -- Args : [Arg {argCName = "list", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reset", 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_debug_set_threshold_from_string" gst_debug_set_threshold_from_string :: CString -> -- list : TBasicType TUTF8 CInt -> -- reset : TBasicType TBoolean IO () debugSetThresholdFromString :: (MonadIO m) => T.Text -- list -> Bool -- reset -> m () -- result debugSetThresholdFromString list reset = liftIO $ do list' <- textToCString list let reset' = (fromIntegral . fromEnum) reset gst_debug_set_threshold_from_string list' reset' freeMem list' return () -- function gst_debug_set_threshold_for_name -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TInterface "Gst" "DebugLevel", 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_debug_set_threshold_for_name" gst_debug_set_threshold_for_name :: CString -> -- name : TBasicType TUTF8 CUInt -> -- level : TInterface "Gst" "DebugLevel" IO () debugSetThresholdForName :: (MonadIO m) => T.Text -- name -> DebugLevel -- level -> m () -- result debugSetThresholdForName name level = liftIO $ do name' <- textToCString name let level' = (fromIntegral . fromEnum) level gst_debug_set_threshold_for_name name' level' freeMem name' return () -- function gst_debug_set_default_threshold -- Args : [Arg {argCName = "level", argType = TInterface "Gst" "DebugLevel", 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_debug_set_default_threshold" gst_debug_set_default_threshold :: CUInt -> -- level : TInterface "Gst" "DebugLevel" IO () debugSetDefaultThreshold :: (MonadIO m) => DebugLevel -- level -> m () -- result debugSetDefaultThreshold level = liftIO $ do let level' = (fromIntegral . fromEnum) level gst_debug_set_default_threshold level' return () -- function gst_debug_set_colored -- Args : [Arg {argCName = "colored", 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_debug_set_colored" gst_debug_set_colored :: CInt -> -- colored : TBasicType TBoolean IO () debugSetColored :: (MonadIO m) => Bool -- colored -> m () -- result debugSetColored colored = liftIO $ do let colored' = (fromIntegral . fromEnum) colored gst_debug_set_colored colored' return () -- function gst_debug_set_color_mode_from_string -- Args : [Arg {argCName = "mode", 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_debug_set_color_mode_from_string" gst_debug_set_color_mode_from_string :: CString -> -- mode : TBasicType TUTF8 IO () debugSetColorModeFromString :: (MonadIO m) => T.Text -- mode -> m () -- result debugSetColorModeFromString mode = liftIO $ do mode' <- textToCString mode gst_debug_set_color_mode_from_string mode' freeMem mode' return () -- function gst_debug_set_color_mode -- Args : [Arg {argCName = "mode", argType = TInterface "Gst" "DebugColorMode", 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_debug_set_color_mode" gst_debug_set_color_mode :: CUInt -> -- mode : TInterface "Gst" "DebugColorMode" IO () debugSetColorMode :: (MonadIO m) => DebugColorMode -- mode -> m () -- result debugSetColorMode mode = liftIO $ do let mode' = (fromIntegral . fromEnum) mode gst_debug_set_color_mode mode' return () -- function gst_debug_set_active -- Args : [Arg {argCName = "active", 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_debug_set_active" gst_debug_set_active :: CInt -> -- active : TBasicType TBoolean IO () debugSetActive :: (MonadIO m) => Bool -- active -> m () -- result debugSetActive active = liftIO $ do let active' = (fromIntegral . fromEnum) active gst_debug_set_active active' return () -- function gst_debug_remove_log_function_by_data -- Args : [Arg {argCName = "data", argType = TBasicType TVoid, 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_debug_remove_log_function_by_data" gst_debug_remove_log_function_by_data :: Ptr () -> -- data : TBasicType TVoid IO Word32 debugRemoveLogFunctionByData :: (MonadIO m) => Ptr () -- data_ -> m Word32 -- result debugRemoveLogFunctionByData data_ = liftIO $ do result <- gst_debug_remove_log_function_by_data data_ return result -- function gst_debug_remove_log_function -- Args : [Arg {argCName = "func", argType = TInterface "Gst" "LogFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gst_debug_remove_log_function" gst_debug_remove_log_function :: FunPtr LogFunctionC -> -- func : TInterface "Gst" "LogFunction" IO Word32 debugRemoveLogFunction :: (MonadIO m) => LogFunction -- func -> m Word32 -- result debugRemoveLogFunction func = liftIO $ do func' <- mkLogFunction (logFunctionWrapper Nothing func) result <- gst_debug_remove_log_function func' safeFreeFunPtr $ castFunPtrToPtr func' return result -- function gst_debug_print_stack_trace -- Args : [] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gst_debug_print_stack_trace" gst_debug_print_stack_trace :: IO () debugPrintStackTrace :: (MonadIO m) => m () -- result debugPrintStackTrace = liftIO $ do gst_debug_print_stack_trace return () -- function gst_debug_log_default -- Args : [Arg {argCName = "category", argType = TInterface "Gst" "DebugCategory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TInterface "Gst" "DebugLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TInterface "Gst" "DebugMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, 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_debug_log_default" gst_debug_log_default :: Ptr DebugCategory -> -- category : TInterface "Gst" "DebugCategory" CUInt -> -- level : TInterface "Gst" "DebugLevel" CString -> -- file : TBasicType TUTF8 CString -> -- function : TBasicType TUTF8 Int32 -> -- line : TBasicType TInt32 Ptr GObject.Object -> -- object : TInterface "GObject" "Object" Ptr DebugMessage -> -- message : TInterface "Gst" "DebugMessage" Ptr () -> -- user_data : TBasicType TVoid IO () debugLogDefault :: (MonadIO m, GObject.ObjectK a) => DebugCategory -- category -> DebugLevel -- level -> T.Text -- file -> T.Text -- function -> Int32 -- line -> Maybe (a) -- object -> DebugMessage -- message -> Ptr () -- userData -> m () -- result debugLogDefault category level file function line object message userData = liftIO $ do let category' = unsafeManagedPtrGetPtr category let level' = (fromIntegral . fromEnum) level file' <- textToCString file function' <- textToCString function maybeObject <- case object of Nothing -> return nullPtr Just jObject -> do let jObject' = unsafeManagedPtrCastPtr jObject return jObject' let message' = unsafeManagedPtrGetPtr message gst_debug_log_default category' level' file' function' line maybeObject message' userData touchManagedPtr category whenJust object touchManagedPtr touchManagedPtr message freeMem file' freeMem function' return () -- function gst_debug_is_colored -- Args : [] -- Lengths : [] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gst_debug_is_colored" gst_debug_is_colored :: IO CInt debugIsColored :: (MonadIO m) => m Bool -- result debugIsColored = liftIO $ do result <- gst_debug_is_colored let result' = (/= 0) result return result' -- function gst_debug_is_active -- Args : [] -- Lengths : [] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gst_debug_is_active" gst_debug_is_active :: IO CInt debugIsActive :: (MonadIO m) => m Bool -- result debugIsActive = liftIO $ do result <- gst_debug_is_active let result' = (/= 0) result return result' -- function gst_debug_get_default_threshold -- Args : [] -- Lengths : [] -- returnType : TInterface "Gst" "DebugLevel" -- throws : False -- Skip return : False foreign import ccall "gst_debug_get_default_threshold" gst_debug_get_default_threshold :: IO CUInt debugGetDefaultThreshold :: (MonadIO m) => m DebugLevel -- result debugGetDefaultThreshold = liftIO $ do result <- gst_debug_get_default_threshold let result' = (toEnum . fromIntegral) result return result' -- function gst_debug_get_color_mode -- Args : [] -- Lengths : [] -- returnType : TInterface "Gst" "DebugColorMode" -- throws : False -- Skip return : False foreign import ccall "gst_debug_get_color_mode" gst_debug_get_color_mode :: IO CUInt debugGetColorMode :: (MonadIO m) => m DebugColorMode -- result debugGetColorMode = liftIO $ do result <- gst_debug_get_color_mode let result' = (toEnum . fromIntegral) result return result' -- function gst_debug_get_all_categories -- Args : [] -- Lengths : [] -- returnType : TGSList (TInterface "Gst" "DebugCategory") -- throws : False -- Skip return : False foreign import ccall "gst_debug_get_all_categories" gst_debug_get_all_categories :: IO (Ptr (GSList (Ptr DebugCategory))) debugGetAllCategories :: (MonadIO m) => m [DebugCategory] -- result debugGetAllCategories = liftIO $ do result <- gst_debug_get_all_categories checkUnexpectedReturnNULL "gst_debug_get_all_categories" result result' <- unpackGSList result result'' <- mapM (newPtr 24 DebugCategory) result' g_slist_free result return result'' -- function gst_debug_construct_win_color -- Args : [Arg {argCName = "colorinfo", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gst_debug_construct_win_color" gst_debug_construct_win_color :: Word32 -> -- colorinfo : TBasicType TUInt32 IO Int32 debugConstructWinColor :: (MonadIO m) => Word32 -- colorinfo -> m Int32 -- result debugConstructWinColor colorinfo = liftIO $ do result <- gst_debug_construct_win_color colorinfo return result -- function gst_debug_construct_term_color -- Args : [Arg {argCName = "colorinfo", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gst_debug_construct_term_color" gst_debug_construct_term_color :: Word32 -> -- colorinfo : TBasicType TUInt32 IO CString debugConstructTermColor :: (MonadIO m) => Word32 -- colorinfo -> m T.Text -- result debugConstructTermColor colorinfo = liftIO $ do result <- gst_debug_construct_term_color colorinfo checkUnexpectedReturnNULL "gst_debug_construct_term_color" result result' <- cstringToText result freeMem result return result' -- function gst_debug_bin_to_dot_file_with_ts -- Args : [Arg {argCName = "bin", argType = TInterface "Gst" "Bin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "details", argType = TInterface "Gst" "DebugGraphDetails", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", 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_debug_bin_to_dot_file_with_ts" gst_debug_bin_to_dot_file_with_ts :: Ptr Bin -> -- bin : TInterface "Gst" "Bin" CUInt -> -- details : TInterface "Gst" "DebugGraphDetails" CString -> -- file_name : TBasicType TUTF8 IO () debugBinToDotFileWithTs :: (MonadIO m, BinK a) => a -- bin -> [DebugGraphDetails] -- details -> T.Text -- fileName -> m () -- result debugBinToDotFileWithTs bin details fileName = liftIO $ do let bin' = unsafeManagedPtrCastPtr bin let details' = gflagsToWord details fileName' <- textToCString fileName gst_debug_bin_to_dot_file_with_ts bin' details' fileName' touchManagedPtr bin freeMem fileName' return () -- function gst_debug_bin_to_dot_file -- Args : [Arg {argCName = "bin", argType = TInterface "Gst" "Bin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "details", argType = TInterface "Gst" "DebugGraphDetails", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", 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_debug_bin_to_dot_file" gst_debug_bin_to_dot_file :: Ptr Bin -> -- bin : TInterface "Gst" "Bin" CUInt -> -- details : TInterface "Gst" "DebugGraphDetails" CString -> -- file_name : TBasicType TUTF8 IO () debugBinToDotFile :: (MonadIO m, BinK a) => a -- bin -> [DebugGraphDetails] -- details -> T.Text -- fileName -> m () -- result debugBinToDotFile bin details fileName = liftIO $ do let bin' = unsafeManagedPtrCastPtr bin let details' = gflagsToWord details fileName' <- textToCString fileName gst_debug_bin_to_dot_file bin' details' fileName' touchManagedPtr bin freeMem fileName' return () -- function gst_debug_bin_to_dot_data -- Args : [Arg {argCName = "bin", argType = TInterface "Gst" "Bin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "details", argType = TInterface "Gst" "DebugGraphDetails", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gst_debug_bin_to_dot_data" gst_debug_bin_to_dot_data :: Ptr Bin -> -- bin : TInterface "Gst" "Bin" CUInt -> -- details : TInterface "Gst" "DebugGraphDetails" IO CString debugBinToDotData :: (MonadIO m, BinK a) => a -- bin -> [DebugGraphDetails] -- details -> m T.Text -- result debugBinToDotData bin details = liftIO $ do let bin' = unsafeManagedPtrCastPtr bin let details' = gflagsToWord details result <- gst_debug_bin_to_dot_data bin' details' checkUnexpectedReturnNULL "gst_debug_bin_to_dot_data" result result' <- cstringToText result freeMem result touchManagedPtr bin return result' -- function gst_debug_add_log_function -- Args : [Arg {argCName = "func", argType = TInterface "Gst" "LogFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 1, argDestroy = 2, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gst_debug_add_log_function" gst_debug_add_log_function :: FunPtr LogFunctionC -> -- func : TInterface "Gst" "LogFunction" Ptr () -> -- user_data : TBasicType TVoid FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" IO () debugAddLogFunction :: (MonadIO m) => LogFunction -- func -> m () -- result debugAddLogFunction func = liftIO $ do func' <- mkLogFunction (logFunctionWrapper Nothing func) let userData = castFunPtrToPtr func' let notify = safeFreeFunPtrPtr gst_debug_add_log_function func' userData notify return ()