{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gio.Structs.DBusPropertyInfo
(
DBusPropertyInfo(..) ,
newZeroDBusPropertyInfo ,
noDBusPropertyInfo ,
#if defined(ENABLE_OVERLOADING)
ResolveDBusPropertyInfoMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DBusPropertyInfoRefMethodInfo ,
#endif
dBusPropertyInfoRef ,
#if defined(ENABLE_OVERLOADING)
DBusPropertyInfoUnrefMethodInfo ,
#endif
dBusPropertyInfoUnref ,
clearDBusPropertyInfoAnnotations ,
#if defined(ENABLE_OVERLOADING)
dBusPropertyInfo_annotations ,
#endif
getDBusPropertyInfoAnnotations ,
setDBusPropertyInfoAnnotations ,
#if defined(ENABLE_OVERLOADING)
dBusPropertyInfo_flags ,
#endif
getDBusPropertyInfoFlags ,
setDBusPropertyInfoFlags ,
clearDBusPropertyInfoName ,
#if defined(ENABLE_OVERLOADING)
dBusPropertyInfo_name ,
#endif
getDBusPropertyInfoName ,
setDBusPropertyInfoName ,
#if defined(ENABLE_OVERLOADING)
dBusPropertyInfo_refCount ,
#endif
getDBusPropertyInfoRefCount ,
setDBusPropertyInfoRefCount ,
clearDBusPropertyInfoSignature ,
#if defined(ENABLE_OVERLOADING)
dBusPropertyInfo_signature ,
#endif
getDBusPropertyInfoSignature ,
setDBusPropertyInfoSignature ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusAnnotationInfo as Gio.DBusAnnotationInfo
newtype DBusPropertyInfo = DBusPropertyInfo (ManagedPtr DBusPropertyInfo)
deriving (Eq)
foreign import ccall "g_dbus_property_info_get_type" c_g_dbus_property_info_get_type ::
IO GType
instance BoxedObject DBusPropertyInfo where
boxedType _ = c_g_dbus_property_info_get_type
instance B.GValue.IsGValue DBusPropertyInfo where
toGValue o = do
gtype <- c_g_dbus_property_info_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_boxed)
fromGValue gv = do
ptr <- B.GValue.get_boxed gv :: IO (Ptr DBusPropertyInfo)
B.ManagedPtr.newBoxed DBusPropertyInfo ptr
newZeroDBusPropertyInfo :: MonadIO m => m DBusPropertyInfo
newZeroDBusPropertyInfo = liftIO $ callocBoxedBytes 20 >>= wrapBoxed DBusPropertyInfo
instance tag ~ 'AttrSet => Constructible DBusPropertyInfo tag where
new _ attrs = do
o <- newZeroDBusPropertyInfo
GI.Attributes.set o attrs
return o
noDBusPropertyInfo :: Maybe DBusPropertyInfo
noDBusPropertyInfo = Nothing
getDBusPropertyInfoRefCount :: MonadIO m => DBusPropertyInfo -> m Int32
getDBusPropertyInfoRefCount s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Int32
return val
setDBusPropertyInfoRefCount :: MonadIO m => DBusPropertyInfo -> Int32 -> m ()
setDBusPropertyInfoRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (val :: Int32)
#if defined(ENABLE_OVERLOADING)
data DBusPropertyInfoRefCountFieldInfo
instance AttrInfo DBusPropertyInfoRefCountFieldInfo where
type AttrBaseTypeConstraint DBusPropertyInfoRefCountFieldInfo = (~) DBusPropertyInfo
type AttrAllowedOps DBusPropertyInfoRefCountFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint DBusPropertyInfoRefCountFieldInfo = (~) Int32
type AttrTransferTypeConstraint DBusPropertyInfoRefCountFieldInfo = (~)Int32
type AttrTransferType DBusPropertyInfoRefCountFieldInfo = Int32
type AttrGetType DBusPropertyInfoRefCountFieldInfo = Int32
type AttrLabel DBusPropertyInfoRefCountFieldInfo = "ref_count"
type AttrOrigin DBusPropertyInfoRefCountFieldInfo = DBusPropertyInfo
attrGet = getDBusPropertyInfoRefCount
attrSet = setDBusPropertyInfoRefCount
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dBusPropertyInfo_refCount :: AttrLabelProxy "refCount"
dBusPropertyInfo_refCount = AttrLabelProxy
#endif
getDBusPropertyInfoName :: MonadIO m => DBusPropertyInfo -> m (Maybe T.Text)
getDBusPropertyInfoName s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setDBusPropertyInfoName :: MonadIO m => DBusPropertyInfo -> CString -> m ()
setDBusPropertyInfoName s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 4) (val :: CString)
clearDBusPropertyInfoName :: MonadIO m => DBusPropertyInfo -> m ()
clearDBusPropertyInfoName s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 4) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data DBusPropertyInfoNameFieldInfo
instance AttrInfo DBusPropertyInfoNameFieldInfo where
type AttrBaseTypeConstraint DBusPropertyInfoNameFieldInfo = (~) DBusPropertyInfo
type AttrAllowedOps DBusPropertyInfoNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusPropertyInfoNameFieldInfo = (~) CString
type AttrTransferTypeConstraint DBusPropertyInfoNameFieldInfo = (~)CString
type AttrTransferType DBusPropertyInfoNameFieldInfo = CString
type AttrGetType DBusPropertyInfoNameFieldInfo = Maybe T.Text
type AttrLabel DBusPropertyInfoNameFieldInfo = "name"
type AttrOrigin DBusPropertyInfoNameFieldInfo = DBusPropertyInfo
attrGet = getDBusPropertyInfoName
attrSet = setDBusPropertyInfoName
attrConstruct = undefined
attrClear = clearDBusPropertyInfoName
attrTransfer _ v = do
return v
dBusPropertyInfo_name :: AttrLabelProxy "name"
dBusPropertyInfo_name = AttrLabelProxy
#endif
getDBusPropertyInfoSignature :: MonadIO m => DBusPropertyInfo -> m (Maybe T.Text)
getDBusPropertyInfoSignature s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setDBusPropertyInfoSignature :: MonadIO m => DBusPropertyInfo -> CString -> m ()
setDBusPropertyInfoSignature s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: CString)
clearDBusPropertyInfoSignature :: MonadIO m => DBusPropertyInfo -> m ()
clearDBusPropertyInfoSignature s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data DBusPropertyInfoSignatureFieldInfo
instance AttrInfo DBusPropertyInfoSignatureFieldInfo where
type AttrBaseTypeConstraint DBusPropertyInfoSignatureFieldInfo = (~) DBusPropertyInfo
type AttrAllowedOps DBusPropertyInfoSignatureFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusPropertyInfoSignatureFieldInfo = (~) CString
type AttrTransferTypeConstraint DBusPropertyInfoSignatureFieldInfo = (~)CString
type AttrTransferType DBusPropertyInfoSignatureFieldInfo = CString
type AttrGetType DBusPropertyInfoSignatureFieldInfo = Maybe T.Text
type AttrLabel DBusPropertyInfoSignatureFieldInfo = "signature"
type AttrOrigin DBusPropertyInfoSignatureFieldInfo = DBusPropertyInfo
attrGet = getDBusPropertyInfoSignature
attrSet = setDBusPropertyInfoSignature
attrConstruct = undefined
attrClear = clearDBusPropertyInfoSignature
attrTransfer _ v = do
return v
dBusPropertyInfo_signature :: AttrLabelProxy "signature"
dBusPropertyInfo_signature = AttrLabelProxy
#endif
getDBusPropertyInfoFlags :: MonadIO m => DBusPropertyInfo -> m [Gio.Flags.DBusPropertyInfoFlags]
getDBusPropertyInfoFlags s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO CUInt
let val' = wordToGFlags val
return val'
setDBusPropertyInfoFlags :: MonadIO m => DBusPropertyInfo -> [Gio.Flags.DBusPropertyInfoFlags] -> m ()
setDBusPropertyInfoFlags s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = gflagsToWord val
poke (ptr `plusPtr` 12) (val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data DBusPropertyInfoFlagsFieldInfo
instance AttrInfo DBusPropertyInfoFlagsFieldInfo where
type AttrBaseTypeConstraint DBusPropertyInfoFlagsFieldInfo = (~) DBusPropertyInfo
type AttrAllowedOps DBusPropertyInfoFlagsFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint DBusPropertyInfoFlagsFieldInfo = (~) [Gio.Flags.DBusPropertyInfoFlags]
type AttrTransferTypeConstraint DBusPropertyInfoFlagsFieldInfo = (~)[Gio.Flags.DBusPropertyInfoFlags]
type AttrTransferType DBusPropertyInfoFlagsFieldInfo = [Gio.Flags.DBusPropertyInfoFlags]
type AttrGetType DBusPropertyInfoFlagsFieldInfo = [Gio.Flags.DBusPropertyInfoFlags]
type AttrLabel DBusPropertyInfoFlagsFieldInfo = "flags"
type AttrOrigin DBusPropertyInfoFlagsFieldInfo = DBusPropertyInfo
attrGet = getDBusPropertyInfoFlags
attrSet = setDBusPropertyInfoFlags
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dBusPropertyInfo_flags :: AttrLabelProxy "flags"
dBusPropertyInfo_flags = AttrLabelProxy
#endif
getDBusPropertyInfoAnnotations :: MonadIO m => DBusPropertyInfo -> m (Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo])
getDBusPropertyInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- unpackZeroTerminatedPtrArray val'
val''' <- mapM (newBoxed Gio.DBusAnnotationInfo.DBusAnnotationInfo) val''
return val'''
return result
setDBusPropertyInfoAnnotations :: MonadIO m => DBusPropertyInfo -> Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo) -> m ()
setDBusPropertyInfoAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
clearDBusPropertyInfoAnnotations :: MonadIO m => DBusPropertyInfo -> m ()
clearDBusPropertyInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (FP.nullPtr :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
#if defined(ENABLE_OVERLOADING)
data DBusPropertyInfoAnnotationsFieldInfo
instance AttrInfo DBusPropertyInfoAnnotationsFieldInfo where
type AttrBaseTypeConstraint DBusPropertyInfoAnnotationsFieldInfo = (~) DBusPropertyInfo
type AttrAllowedOps DBusPropertyInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusPropertyInfoAnnotationsFieldInfo = (~) (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
type AttrTransferTypeConstraint DBusPropertyInfoAnnotationsFieldInfo = (~)(Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
type AttrTransferType DBusPropertyInfoAnnotationsFieldInfo = (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
type AttrGetType DBusPropertyInfoAnnotationsFieldInfo = Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo]
type AttrLabel DBusPropertyInfoAnnotationsFieldInfo = "annotations"
type AttrOrigin DBusPropertyInfoAnnotationsFieldInfo = DBusPropertyInfo
attrGet = getDBusPropertyInfoAnnotations
attrSet = setDBusPropertyInfoAnnotations
attrConstruct = undefined
attrClear = clearDBusPropertyInfoAnnotations
attrTransfer _ v = do
return v
dBusPropertyInfo_annotations :: AttrLabelProxy "annotations"
dBusPropertyInfo_annotations = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DBusPropertyInfo
type instance O.AttributeList DBusPropertyInfo = DBusPropertyInfoAttributeList
type DBusPropertyInfoAttributeList = ('[ '("refCount", DBusPropertyInfoRefCountFieldInfo), '("name", DBusPropertyInfoNameFieldInfo), '("signature", DBusPropertyInfoSignatureFieldInfo), '("flags", DBusPropertyInfoFlagsFieldInfo), '("annotations", DBusPropertyInfoAnnotationsFieldInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_dbus_property_info_ref" g_dbus_property_info_ref ::
Ptr DBusPropertyInfo ->
IO (Ptr DBusPropertyInfo)
dBusPropertyInfoRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
DBusPropertyInfo
-> m DBusPropertyInfo
dBusPropertyInfoRef info = liftIO $ do
info' <- unsafeManagedPtrGetPtr info
result <- g_dbus_property_info_ref info'
checkUnexpectedReturnNULL "dBusPropertyInfoRef" result
result' <- (wrapBoxed DBusPropertyInfo) result
touchManagedPtr info
return result'
#if defined(ENABLE_OVERLOADING)
data DBusPropertyInfoRefMethodInfo
instance (signature ~ (m DBusPropertyInfo), MonadIO m) => O.MethodInfo DBusPropertyInfoRefMethodInfo DBusPropertyInfo signature where
overloadedMethod = dBusPropertyInfoRef
#endif
foreign import ccall "g_dbus_property_info_unref" g_dbus_property_info_unref ::
Ptr DBusPropertyInfo ->
IO ()
dBusPropertyInfoUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
DBusPropertyInfo
-> m ()
dBusPropertyInfoUnref info = liftIO $ do
info' <- unsafeManagedPtrGetPtr info
g_dbus_property_info_unref info'
touchManagedPtr info
return ()
#if defined(ENABLE_OVERLOADING)
data DBusPropertyInfoUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo DBusPropertyInfoUnrefMethodInfo DBusPropertyInfo signature where
overloadedMethod = dBusPropertyInfoUnref
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveDBusPropertyInfoMethod (t :: Symbol) (o :: *) :: * where
ResolveDBusPropertyInfoMethod "ref" o = DBusPropertyInfoRefMethodInfo
ResolveDBusPropertyInfoMethod "unref" o = DBusPropertyInfoUnrefMethodInfo
ResolveDBusPropertyInfoMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDBusPropertyInfoMethod t DBusPropertyInfo, O.MethodInfo info DBusPropertyInfo p) => OL.IsLabel t (DBusPropertyInfo -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif