{- | 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.Interfaces.TocSetter ( -- * Exported types TocSetter(..) , noTocSetter , TocSetterK , toTocSetter , -- * Methods -- ** tocSetterGetToc TocSetterGetTocMethodInfo , tocSetterGetToc , -- ** tocSetterReset TocSetterResetMethodInfo , tocSetterReset , -- ** tocSetterSetToc TocSetterSetTocMethodInfo , tocSetterSetToc , ) 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.GObject as GObject -- interface TocSetter newtype TocSetter = TocSetter (ForeignPtr TocSetter) noTocSetter :: Maybe TocSetter noTocSetter = Nothing type family ResolveTocSetterMethod (t :: Symbol) (o :: *) :: * where ResolveTocSetterMethod "abortState" o = ElementAbortStateMethodInfo ResolveTocSetterMethod "addControlBinding" o = ObjectAddControlBindingMethodInfo ResolveTocSetterMethod "addPad" o = ElementAddPadMethodInfo ResolveTocSetterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo ResolveTocSetterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo ResolveTocSetterMethod "changeState" o = ElementChangeStateMethodInfo ResolveTocSetterMethod "continueState" o = ElementContinueStateMethodInfo ResolveTocSetterMethod "createAllPads" o = ElementCreateAllPadsMethodInfo ResolveTocSetterMethod "defaultError" o = ObjectDefaultErrorMethodInfo ResolveTocSetterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo ResolveTocSetterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo ResolveTocSetterMethod "hasActiveControlBindings" o = ObjectHasActiveControlBindingsMethodInfo ResolveTocSetterMethod "hasAncestor" o = ObjectHasAncestorMethodInfo ResolveTocSetterMethod "hasAsAncestor" o = ObjectHasAsAncestorMethodInfo ResolveTocSetterMethod "hasAsParent" o = ObjectHasAsParentMethodInfo ResolveTocSetterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo ResolveTocSetterMethod "isLockedState" o = ElementIsLockedStateMethodInfo ResolveTocSetterMethod "iteratePads" o = ElementIteratePadsMethodInfo ResolveTocSetterMethod "iterateSinkPads" o = ElementIterateSinkPadsMethodInfo ResolveTocSetterMethod "iterateSrcPads" o = ElementIterateSrcPadsMethodInfo ResolveTocSetterMethod "link" o = ElementLinkMethodInfo ResolveTocSetterMethod "linkFiltered" o = ElementLinkFilteredMethodInfo ResolveTocSetterMethod "linkPads" o = ElementLinkPadsMethodInfo ResolveTocSetterMethod "linkPadsFiltered" o = ElementLinkPadsFilteredMethodInfo ResolveTocSetterMethod "linkPadsFull" o = ElementLinkPadsFullMethodInfo ResolveTocSetterMethod "lostState" o = ElementLostStateMethodInfo ResolveTocSetterMethod "messageFull" o = ElementMessageFullMethodInfo ResolveTocSetterMethod "noMorePads" o = ElementNoMorePadsMethodInfo ResolveTocSetterMethod "notify" o = GObject.ObjectNotifyMethodInfo ResolveTocSetterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo ResolveTocSetterMethod "postMessage" o = ElementPostMessageMethodInfo ResolveTocSetterMethod "provideClock" o = ElementProvideClockMethodInfo ResolveTocSetterMethod "query" o = ElementQueryMethodInfo ResolveTocSetterMethod "queryConvert" o = ElementQueryConvertMethodInfo ResolveTocSetterMethod "queryDuration" o = ElementQueryDurationMethodInfo ResolveTocSetterMethod "queryPosition" o = ElementQueryPositionMethodInfo ResolveTocSetterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo ResolveTocSetterMethod "releaseRequestPad" o = ElementReleaseRequestPadMethodInfo ResolveTocSetterMethod "removeControlBinding" o = ObjectRemoveControlBindingMethodInfo ResolveTocSetterMethod "removePad" o = ElementRemovePadMethodInfo ResolveTocSetterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo ResolveTocSetterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo ResolveTocSetterMethod "requestPad" o = ElementRequestPadMethodInfo ResolveTocSetterMethod "reset" o = TocSetterResetMethodInfo ResolveTocSetterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo ResolveTocSetterMethod "seek" o = ElementSeekMethodInfo ResolveTocSetterMethod "seekSimple" o = ElementSeekSimpleMethodInfo ResolveTocSetterMethod "sendEvent" o = ElementSendEventMethodInfo ResolveTocSetterMethod "stealData" o = GObject.ObjectStealDataMethodInfo ResolveTocSetterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo ResolveTocSetterMethod "suggestNextSync" o = ObjectSuggestNextSyncMethodInfo ResolveTocSetterMethod "syncStateWithParent" o = ElementSyncStateWithParentMethodInfo ResolveTocSetterMethod "syncValues" o = ObjectSyncValuesMethodInfo ResolveTocSetterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo ResolveTocSetterMethod "unlink" o = ElementUnlinkMethodInfo ResolveTocSetterMethod "unlinkPads" o = ElementUnlinkPadsMethodInfo ResolveTocSetterMethod "unparent" o = ObjectUnparentMethodInfo ResolveTocSetterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo ResolveTocSetterMethod "getBaseTime" o = ElementGetBaseTimeMethodInfo ResolveTocSetterMethod "getBus" o = ElementGetBusMethodInfo ResolveTocSetterMethod "getClock" o = ElementGetClockMethodInfo ResolveTocSetterMethod "getCompatiblePad" o = ElementGetCompatiblePadMethodInfo ResolveTocSetterMethod "getCompatiblePadTemplate" o = ElementGetCompatiblePadTemplateMethodInfo ResolveTocSetterMethod "getControlBinding" o = ObjectGetControlBindingMethodInfo ResolveTocSetterMethod "getControlRate" o = ObjectGetControlRateMethodInfo ResolveTocSetterMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveTocSetterMethod "getFactory" o = ElementGetFactoryMethodInfo ResolveTocSetterMethod "getGValueArray" o = ObjectGetGValueArrayMethodInfo ResolveTocSetterMethod "getName" o = ObjectGetNameMethodInfo ResolveTocSetterMethod "getParent" o = ObjectGetParentMethodInfo ResolveTocSetterMethod "getPathString" o = ObjectGetPathStringMethodInfo ResolveTocSetterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo ResolveTocSetterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo ResolveTocSetterMethod "getRequestPad" o = ElementGetRequestPadMethodInfo ResolveTocSetterMethod "getStartTime" o = ElementGetStartTimeMethodInfo ResolveTocSetterMethod "getState" o = ElementGetStateMethodInfo ResolveTocSetterMethod "getStaticPad" o = ElementGetStaticPadMethodInfo ResolveTocSetterMethod "getToc" o = TocSetterGetTocMethodInfo ResolveTocSetterMethod "getValue" o = ObjectGetValueMethodInfo ResolveTocSetterMethod "getValueArray" o = ObjectGetValueArrayMethodInfo ResolveTocSetterMethod "setBaseTime" o = ElementSetBaseTimeMethodInfo ResolveTocSetterMethod "setBus" o = ElementSetBusMethodInfo ResolveTocSetterMethod "setClock" o = ElementSetClockMethodInfo ResolveTocSetterMethod "setContext" o = ElementSetContextMethodInfo ResolveTocSetterMethod "setControlBindingDisabled" o = ObjectSetControlBindingDisabledMethodInfo ResolveTocSetterMethod "setControlBindingsDisabled" o = ObjectSetControlBindingsDisabledMethodInfo ResolveTocSetterMethod "setControlRate" o = ObjectSetControlRateMethodInfo ResolveTocSetterMethod "setData" o = GObject.ObjectSetDataMethodInfo ResolveTocSetterMethod "setLockedState" o = ElementSetLockedStateMethodInfo ResolveTocSetterMethod "setName" o = ObjectSetNameMethodInfo ResolveTocSetterMethod "setParent" o = ObjectSetParentMethodInfo ResolveTocSetterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo ResolveTocSetterMethod "setStartTime" o = ElementSetStartTimeMethodInfo ResolveTocSetterMethod "setState" o = ElementSetStateMethodInfo ResolveTocSetterMethod "setToc" o = TocSetterSetTocMethodInfo ResolveTocSetterMethod l o = MethodResolutionFailed l o instance (info ~ ResolveTocSetterMethod t TocSetter, MethodInfo info TocSetter p) => IsLabelProxy t (TocSetter -> p) where fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) #if MIN_VERSION_base(4,9,0) instance (info ~ ResolveTocSetterMethod t TocSetter, MethodInfo info TocSetter p) => IsLabel t (TocSetter -> p) where fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) #endif type instance AttributeList TocSetter = TocSetterAttributeList type TocSetterAttributeList = ('[ '("name", ObjectNamePropertyInfo), '("parent", ObjectParentPropertyInfo)] :: [(Symbol, *)]) type instance SignalList TocSetter = TocSetterSignalList type TocSetterSignalList = ('[ '("deepNotify", ObjectDeepNotifySignalInfo), '("noMorePads", ElementNoMorePadsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("padAdded", ElementPadAddedSignalInfo), '("padRemoved", ElementPadRemovedSignalInfo)] :: [(Symbol, *)]) foreign import ccall "gst_toc_setter_get_type" c_gst_toc_setter_get_type :: IO GType type instance ParentTypes TocSetter = TocSetterParentTypes type TocSetterParentTypes = '[Element, Object, GObject.Object] instance GObject TocSetter where gobjectIsInitiallyUnowned _ = True gobjectType _ = c_gst_toc_setter_get_type class GObject o => TocSetterK o instance (GObject o, IsDescendantOf TocSetter o) => TocSetterK o toTocSetter :: TocSetterK o => o -> IO TocSetter toTocSetter = unsafeCastTo TocSetter -- method TocSetter::get_toc -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "TocSetter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Gst" "Toc" -- throws : False -- Skip return : False foreign import ccall "gst_toc_setter_get_toc" gst_toc_setter_get_toc :: Ptr TocSetter -> -- _obj : TInterface "Gst" "TocSetter" IO (Ptr Toc) tocSetterGetToc :: (MonadIO m, TocSetterK a) => a -- _obj -> m Toc -- result tocSetterGetToc _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gst_toc_setter_get_toc _obj' checkUnexpectedReturnNULL "gst_toc_setter_get_toc" result result' <- (wrapBoxed Toc) result touchManagedPtr _obj return result' data TocSetterGetTocMethodInfo instance (signature ~ (m Toc), MonadIO m, TocSetterK a) => MethodInfo TocSetterGetTocMethodInfo a signature where overloadedMethod _ = tocSetterGetToc -- method TocSetter::reset -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "TocSetter", 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_toc_setter_reset" gst_toc_setter_reset :: Ptr TocSetter -> -- _obj : TInterface "Gst" "TocSetter" IO () tocSetterReset :: (MonadIO m, TocSetterK a) => a -- _obj -> m () -- result tocSetterReset _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gst_toc_setter_reset _obj' touchManagedPtr _obj return () data TocSetterResetMethodInfo instance (signature ~ (m ()), MonadIO m, TocSetterK a) => MethodInfo TocSetterResetMethodInfo a signature where overloadedMethod _ = tocSetterReset -- method TocSetter::set_toc -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gst" "TocSetter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "toc", argType = TInterface "Gst" "Toc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gst_toc_setter_set_toc" gst_toc_setter_set_toc :: Ptr TocSetter -> -- _obj : TInterface "Gst" "TocSetter" Ptr Toc -> -- toc : TInterface "Gst" "Toc" IO () tocSetterSetToc :: (MonadIO m, TocSetterK a) => a -- _obj -> Maybe (Toc) -- toc -> m () -- result tocSetterSetToc _obj toc = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeToc <- case toc of Nothing -> return nullPtr Just jToc -> do let jToc' = unsafeManagedPtrGetPtr jToc return jToc' gst_toc_setter_set_toc _obj' maybeToc touchManagedPtr _obj whenJust toc touchManagedPtr return () data TocSetterSetTocMethodInfo instance (signature ~ (Maybe (Toc) -> m ()), MonadIO m, TocSetterK a) => MethodInfo TocSetterSetTocMethodInfo a signature where overloadedMethod _ = tocSetterSetToc