SystemClock.hs


{- |
Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License    : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}

module GI.Gst.Objects.SystemClock
    ( 

-- * Exported types
    SystemClock(..)                         ,
    SystemClockK                            ,
    toSystemClock                           ,
    noSystemClock                           ,


 -- * Methods
-- ** systemClockObtain
    systemClockObtain                       ,


-- ** systemClockSetDefault
    systemClockSetDefault                   ,




 -- * Properties
-- ** ClockType
    SystemClockClockTypePropertyInfo        ,
    constructSystemClockClockType           ,
    getSystemClockClockType                 ,
    setSystemClockClockType                 ,




    ) 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

newtype SystemClock = SystemClock (ForeignPtr SystemClock)
foreign import ccall "gst_system_clock_get_type"
    c_gst_system_clock_get_type :: IO GType

type instance ParentTypes SystemClock = SystemClockParentTypes
type SystemClockParentTypes = '[Clock, Object, GObject.Object]

instance GObject SystemClock where
    gobjectIsInitiallyUnowned _ = True
    gobjectType _ = c_gst_system_clock_get_type
    

class GObject o => SystemClockK o
instance (GObject o, IsDescendantOf SystemClock o) => SystemClockK o

toSystemClock :: SystemClockK o => o -> IO SystemClock
toSystemClock = unsafeCastTo SystemClock

noSystemClock :: Maybe SystemClock
noSystemClock = Nothing

type family ResolveSystemClockMethod (t :: Symbol) (o :: *) :: * where
    ResolveSystemClockMethod "addControlBinding" o = ObjectAddControlBindingMethodInfo
    ResolveSystemClockMethod "addObservation" o = ClockAddObservationMethodInfo
    ResolveSystemClockMethod "addObservationUnapplied" o = ClockAddObservationUnappliedMethodInfo
    ResolveSystemClockMethod "adjustUnlocked" o = ClockAdjustUnlockedMethodInfo
    ResolveSystemClockMethod "adjustWithCalibration" o = ClockAdjustWithCalibrationMethodInfo
    ResolveSystemClockMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
    ResolveSystemClockMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
    ResolveSystemClockMethod "defaultError" o = ObjectDefaultErrorMethodInfo
    ResolveSystemClockMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
    ResolveSystemClockMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
    ResolveSystemClockMethod "hasActiveControlBindings" o = ObjectHasActiveControlBindingsMethodInfo
    ResolveSystemClockMethod "hasAncestor" o = ObjectHasAncestorMethodInfo
    ResolveSystemClockMethod "hasAsAncestor" o = ObjectHasAsAncestorMethodInfo
    ResolveSystemClockMethod "hasAsParent" o = ObjectHasAsParentMethodInfo
    ResolveSystemClockMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
    ResolveSystemClockMethod "isSynced" o = ClockIsSyncedMethodInfo
    ResolveSystemClockMethod "newPeriodicId" o = ClockNewPeriodicIdMethodInfo
    ResolveSystemClockMethod "newSingleShotId" o = ClockNewSingleShotIdMethodInfo
    ResolveSystemClockMethod "notify" o = GObject.ObjectNotifyMethodInfo
    ResolveSystemClockMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
    ResolveSystemClockMethod "periodicIdReinit" o = ClockPeriodicIdReinitMethodInfo
    ResolveSystemClockMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
    ResolveSystemClockMethod "removeControlBinding" o = ObjectRemoveControlBindingMethodInfo
    ResolveSystemClockMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
    ResolveSystemClockMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
    ResolveSystemClockMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
    ResolveSystemClockMethod "singleShotIdReinit" o = ClockSingleShotIdReinitMethodInfo
    ResolveSystemClockMethod "stealData" o = GObject.ObjectStealDataMethodInfo
    ResolveSystemClockMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
    ResolveSystemClockMethod "suggestNextSync" o = ObjectSuggestNextSyncMethodInfo
    ResolveSystemClockMethod "syncValues" o = ObjectSyncValuesMethodInfo
    ResolveSystemClockMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
    ResolveSystemClockMethod "unadjustUnlocked" o = ClockUnadjustUnlockedMethodInfo
    ResolveSystemClockMethod "unparent" o = ObjectUnparentMethodInfo
    ResolveSystemClockMethod "waitForSync" o = ClockWaitForSyncMethodInfo
    ResolveSystemClockMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
    ResolveSystemClockMethod "getCalibration" o = ClockGetCalibrationMethodInfo
    ResolveSystemClockMethod "getControlBinding" o = ObjectGetControlBindingMethodInfo
    ResolveSystemClockMethod "getControlRate" o = ObjectGetControlRateMethodInfo
    ResolveSystemClockMethod "getData" o = GObject.ObjectGetDataMethodInfo
    ResolveSystemClockMethod "getGValueArray" o = ObjectGetGValueArrayMethodInfo
    ResolveSystemClockMethod "getInternalTime" o = ClockGetInternalTimeMethodInfo
    ResolveSystemClockMethod "getMaster" o = ClockGetMasterMethodInfo
    ResolveSystemClockMethod "getName" o = ObjectGetNameMethodInfo
    ResolveSystemClockMethod "getParent" o = ObjectGetParentMethodInfo
    ResolveSystemClockMethod "getPathString" o = ObjectGetPathStringMethodInfo
    ResolveSystemClockMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
    ResolveSystemClockMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
    ResolveSystemClockMethod "getResolution" o = ClockGetResolutionMethodInfo
    ResolveSystemClockMethod "getTime" o = ClockGetTimeMethodInfo
    ResolveSystemClockMethod "getTimeout" o = ClockGetTimeoutMethodInfo
    ResolveSystemClockMethod "getValue" o = ObjectGetValueMethodInfo
    ResolveSystemClockMethod "getValueArray" o = ObjectGetValueArrayMethodInfo
    ResolveSystemClockMethod "setCalibration" o = ClockSetCalibrationMethodInfo
    ResolveSystemClockMethod "setControlBindingDisabled" o = ObjectSetControlBindingDisabledMethodInfo
    ResolveSystemClockMethod "setControlBindingsDisabled" o = ObjectSetControlBindingsDisabledMethodInfo
    ResolveSystemClockMethod "setControlRate" o = ObjectSetControlRateMethodInfo
    ResolveSystemClockMethod "setData" o = GObject.ObjectSetDataMethodInfo
    ResolveSystemClockMethod "setMaster" o = ClockSetMasterMethodInfo
    ResolveSystemClockMethod "setName" o = ObjectSetNameMethodInfo
    ResolveSystemClockMethod "setParent" o = ObjectSetParentMethodInfo
    ResolveSystemClockMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
    ResolveSystemClockMethod "setResolution" o = ClockSetResolutionMethodInfo
    ResolveSystemClockMethod "setSynced" o = ClockSetSyncedMethodInfo
    ResolveSystemClockMethod "setTimeout" o = ClockSetTimeoutMethodInfo
    ResolveSystemClockMethod l o = MethodResolutionFailed l o

instance (info ~ ResolveSystemClockMethod t SystemClock, MethodInfo info SystemClock p) => IsLabelProxy t (SystemClock -> p) where
    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)

#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveSystemClockMethod t SystemClock, MethodInfo info SystemClock p) => IsLabel t (SystemClock -> p) where
    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif

-- VVV Prop "clock-type"
   -- Type: TInterface "Gst" "ClockType"
   -- Flags: [PropertyReadable,PropertyWritable]

getSystemClockClockType :: (MonadIO m, SystemClockK o) => o -> m ClockType
getSystemClockClockType obj = liftIO $ getObjectPropertyEnum obj "clock-type"

setSystemClockClockType :: (MonadIO m, SystemClockK o) => o -> ClockType -> m ()
setSystemClockClockType obj val = liftIO $ setObjectPropertyEnum obj "clock-type" val

constructSystemClockClockType :: ClockType -> IO ([Char], GValue)
constructSystemClockClockType val = constructObjectPropertyEnum "clock-type" val

data SystemClockClockTypePropertyInfo
instance AttrInfo SystemClockClockTypePropertyInfo where
    type AttrAllowedOps SystemClockClockTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrSetTypeConstraint SystemClockClockTypePropertyInfo = (~) ClockType
    type AttrBaseTypeConstraint SystemClockClockTypePropertyInfo = SystemClockK
    type AttrGetType SystemClockClockTypePropertyInfo = ClockType
    type AttrLabel SystemClockClockTypePropertyInfo = "clock-type"
    attrGet _ = getSystemClockClockType
    attrSet _ = setSystemClockClockType
    attrConstruct _ = constructSystemClockClockType

type instance AttributeList SystemClock = SystemClockAttributeList
type SystemClockAttributeList = ('[ '("clockType", SystemClockClockTypePropertyInfo), '("name", ObjectNamePropertyInfo), '("parent", ObjectParentPropertyInfo), '("timeout", ClockTimeoutPropertyInfo), '("windowSize", ClockWindowSizePropertyInfo), '("windowThreshold", ClockWindowThresholdPropertyInfo)] :: [(Symbol, *)])

type instance SignalList SystemClock = SystemClockSignalList
type SystemClockSignalList = ('[ '("deepNotify", ObjectDeepNotifySignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("synced", ClockSyncedSignalInfo)] :: [(Symbol, *)])

-- method SystemClock::obtain
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- returnType : TInterface "Gst" "Clock"
-- throws : False
-- Skip return : False

foreign import ccall "gst_system_clock_obtain" gst_system_clock_obtain :: 
    IO (Ptr Clock)


systemClockObtain ::
    (MonadIO m) =>
    m Clock                                 -- result
systemClockObtain  = liftIO $ do
    result <- gst_system_clock_obtain
    checkUnexpectedReturnNULL "gst_system_clock_obtain" result
    result' <- (wrapObject Clock) result
    return result'

-- method SystemClock::set_default
-- method type : MemberFunction
-- Args : [Arg {argCName = "new_clock", argType = TInterface "Gst" "Clock", 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_system_clock_set_default" gst_system_clock_set_default :: 
    Ptr Clock ->                            -- new_clock : TInterface "Gst" "Clock"
    IO ()


systemClockSetDefault ::
    (MonadIO m, ClockK a) =>
    a                                       -- newClock
    -> m ()                                 -- result
systemClockSetDefault newClock = liftIO $ do
    let newClock' = unsafeManagedPtrCastPtr newClock
    gst_system_clock_set_default newClock'
    touchManagedPtr newClock
    return ()