module GI.Gio.Structs.DBusPropertyInfo
(
DBusPropertyInfo(..) ,
newZeroDBusPropertyInfo ,
noDBusPropertyInfo ,
DBusPropertyInfoRefMethodInfo ,
dBusPropertyInfoRef ,
DBusPropertyInfoUnrefMethodInfo ,
dBusPropertyInfoUnref ,
clearDBusPropertyInfoAnnotations ,
dBusPropertyInfo_annotations ,
getDBusPropertyInfoAnnotations ,
setDBusPropertyInfoAnnotations ,
dBusPropertyInfo_flags ,
getDBusPropertyInfoFlags ,
setDBusPropertyInfoFlags ,
clearDBusPropertyInfoName ,
dBusPropertyInfo_name ,
getDBusPropertyInfoName ,
setDBusPropertyInfoName ,
dBusPropertyInfo_refCount ,
getDBusPropertyInfoRefCount ,
setDBusPropertyInfoRefCount ,
clearDBusPropertyInfoSignature ,
dBusPropertyInfo_signature ,
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.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.Gio.Flags as Gio.Flags
import qualified GI.Gio.Structs.DBusAnnotationInfo as Gio.DBusAnnotationInfo
newtype DBusPropertyInfo = DBusPropertyInfo (ManagedPtr DBusPropertyInfo)
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
newZeroDBusPropertyInfo :: MonadIO m => m DBusPropertyInfo
newZeroDBusPropertyInfo = liftIO $ callocBoxedBytes 40 >>= 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)
data DBusPropertyInfoRefCountFieldInfo
instance AttrInfo DBusPropertyInfoRefCountFieldInfo where
type AttrAllowedOps DBusPropertyInfoRefCountFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint DBusPropertyInfoRefCountFieldInfo = (~) Int32
type AttrBaseTypeConstraint DBusPropertyInfoRefCountFieldInfo = (~) DBusPropertyInfo
type AttrGetType DBusPropertyInfoRefCountFieldInfo = Int32
type AttrLabel DBusPropertyInfoRefCountFieldInfo = "ref_count"
type AttrOrigin DBusPropertyInfoRefCountFieldInfo = DBusPropertyInfo
attrGet _ = getDBusPropertyInfoRefCount
attrSet _ = setDBusPropertyInfoRefCount
attrConstruct = undefined
attrClear _ = undefined
dBusPropertyInfo_refCount :: AttrLabelProxy "refCount"
dBusPropertyInfo_refCount = AttrLabelProxy
getDBusPropertyInfoName :: MonadIO m => DBusPropertyInfo -> m (Maybe T.Text)
getDBusPropertyInfoName 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
setDBusPropertyInfoName :: MonadIO m => DBusPropertyInfo -> CString -> m ()
setDBusPropertyInfoName s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: CString)
clearDBusPropertyInfoName :: MonadIO m => DBusPropertyInfo -> m ()
clearDBusPropertyInfoName s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (FP.nullPtr :: CString)
data DBusPropertyInfoNameFieldInfo
instance AttrInfo DBusPropertyInfoNameFieldInfo where
type AttrAllowedOps DBusPropertyInfoNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusPropertyInfoNameFieldInfo = (~) CString
type AttrBaseTypeConstraint DBusPropertyInfoNameFieldInfo = (~) DBusPropertyInfo
type AttrGetType DBusPropertyInfoNameFieldInfo = Maybe T.Text
type AttrLabel DBusPropertyInfoNameFieldInfo = "name"
type AttrOrigin DBusPropertyInfoNameFieldInfo = DBusPropertyInfo
attrGet _ = getDBusPropertyInfoName
attrSet _ = setDBusPropertyInfoName
attrConstruct = undefined
attrClear _ = clearDBusPropertyInfoName
dBusPropertyInfo_name :: AttrLabelProxy "name"
dBusPropertyInfo_name = AttrLabelProxy
getDBusPropertyInfoSignature :: MonadIO m => DBusPropertyInfo -> m (Maybe T.Text)
getDBusPropertyInfoSignature s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: 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` 16) (val :: CString)
clearDBusPropertyInfoSignature :: MonadIO m => DBusPropertyInfo -> m ()
clearDBusPropertyInfoSignature s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (FP.nullPtr :: CString)
data DBusPropertyInfoSignatureFieldInfo
instance AttrInfo DBusPropertyInfoSignatureFieldInfo where
type AttrAllowedOps DBusPropertyInfoSignatureFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusPropertyInfoSignatureFieldInfo = (~) CString
type AttrBaseTypeConstraint DBusPropertyInfoSignatureFieldInfo = (~) DBusPropertyInfo
type AttrGetType DBusPropertyInfoSignatureFieldInfo = Maybe T.Text
type AttrLabel DBusPropertyInfoSignatureFieldInfo = "signature"
type AttrOrigin DBusPropertyInfoSignatureFieldInfo = DBusPropertyInfo
attrGet _ = getDBusPropertyInfoSignature
attrSet _ = setDBusPropertyInfoSignature
attrConstruct = undefined
attrClear _ = clearDBusPropertyInfoSignature
dBusPropertyInfo_signature :: AttrLabelProxy "signature"
dBusPropertyInfo_signature = AttrLabelProxy
getDBusPropertyInfoFlags :: MonadIO m => DBusPropertyInfo -> m [Gio.Flags.DBusPropertyInfoFlags]
getDBusPropertyInfoFlags s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: 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` 24) (val' :: CUInt)
data DBusPropertyInfoFlagsFieldInfo
instance AttrInfo DBusPropertyInfoFlagsFieldInfo where
type AttrAllowedOps DBusPropertyInfoFlagsFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint DBusPropertyInfoFlagsFieldInfo = (~) [Gio.Flags.DBusPropertyInfoFlags]
type AttrBaseTypeConstraint DBusPropertyInfoFlagsFieldInfo = (~) DBusPropertyInfo
type AttrGetType DBusPropertyInfoFlagsFieldInfo = [Gio.Flags.DBusPropertyInfoFlags]
type AttrLabel DBusPropertyInfoFlagsFieldInfo = "flags"
type AttrOrigin DBusPropertyInfoFlagsFieldInfo = DBusPropertyInfo
attrGet _ = getDBusPropertyInfoFlags
attrSet _ = setDBusPropertyInfoFlags
attrConstruct = undefined
attrClear _ = undefined
dBusPropertyInfo_flags :: AttrLabelProxy "flags"
dBusPropertyInfo_flags = AttrLabelProxy
getDBusPropertyInfoAnnotations :: MonadIO m => DBusPropertyInfo -> m (Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo])
getDBusPropertyInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: 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` 32) (val :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
clearDBusPropertyInfoAnnotations :: MonadIO m => DBusPropertyInfo -> m ()
clearDBusPropertyInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 32) (FP.nullPtr :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
data DBusPropertyInfoAnnotationsFieldInfo
instance AttrInfo DBusPropertyInfoAnnotationsFieldInfo where
type AttrAllowedOps DBusPropertyInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusPropertyInfoAnnotationsFieldInfo = (~) (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
type AttrBaseTypeConstraint DBusPropertyInfoAnnotationsFieldInfo = (~) DBusPropertyInfo
type AttrGetType DBusPropertyInfoAnnotationsFieldInfo = Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo]
type AttrLabel DBusPropertyInfoAnnotationsFieldInfo = "annotations"
type AttrOrigin DBusPropertyInfoAnnotationsFieldInfo = DBusPropertyInfo
attrGet _ = getDBusPropertyInfoAnnotations
attrSet _ = setDBusPropertyInfoAnnotations
attrConstruct = undefined
attrClear _ = clearDBusPropertyInfoAnnotations
dBusPropertyInfo_annotations :: AttrLabelProxy "annotations"
dBusPropertyInfo_annotations = AttrLabelProxy
instance O.HasAttributeList DBusPropertyInfo
type instance O.AttributeList DBusPropertyInfo = DBusPropertyInfoAttributeList
type DBusPropertyInfoAttributeList = ('[ '("refCount", DBusPropertyInfoRefCountFieldInfo), '("name", DBusPropertyInfoNameFieldInfo), '("signature", DBusPropertyInfoSignatureFieldInfo), '("flags", DBusPropertyInfoFlagsFieldInfo), '("annotations", DBusPropertyInfoAnnotationsFieldInfo)] :: [(Symbol, *)])
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'
data DBusPropertyInfoRefMethodInfo
instance (signature ~ (m DBusPropertyInfo), MonadIO m) => O.MethodInfo DBusPropertyInfoRefMethodInfo DBusPropertyInfo signature where
overloadedMethod _ = dBusPropertyInfoRef
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 ()
data DBusPropertyInfoUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo DBusPropertyInfoUnrefMethodInfo DBusPropertyInfo signature where
overloadedMethod _ = dBusPropertyInfoUnref
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) => O.IsLabelProxy t (DBusPropertyInfo -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDBusPropertyInfoMethod t DBusPropertyInfo, O.MethodInfo info DBusPropertyInfo p) => O.IsLabel t (DBusPropertyInfo -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif