#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Gio.Structs.DBusPropertyInfo
(
DBusPropertyInfo(..) ,
newZeroDBusPropertyInfo ,
noDBusPropertyInfo ,
#if ENABLE_OVERLOADING
DBusPropertyInfoRefMethodInfo ,
#endif
dBusPropertyInfoRef ,
#if ENABLE_OVERLOADING
DBusPropertyInfoUnrefMethodInfo ,
#endif
dBusPropertyInfoUnref ,
clearDBusPropertyInfoAnnotations ,
#if ENABLE_OVERLOADING
dBusPropertyInfo_annotations ,
#endif
getDBusPropertyInfoAnnotations ,
setDBusPropertyInfoAnnotations ,
#if ENABLE_OVERLOADING
dBusPropertyInfo_flags ,
#endif
getDBusPropertyInfoFlags ,
setDBusPropertyInfoFlags ,
clearDBusPropertyInfoName ,
#if ENABLE_OVERLOADING
dBusPropertyInfo_name ,
#endif
getDBusPropertyInfoName ,
setDBusPropertyInfoName ,
#if ENABLE_OVERLOADING
dBusPropertyInfo_refCount ,
#endif
getDBusPropertyInfoRefCount ,
setDBusPropertyInfoRefCount ,
clearDBusPropertyInfoSignature ,
#if 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags
import {-# SOURCE #-} 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 :: DBusPropertyInfo -> IO GType
boxedType _ = IO GType
c_g_dbus_property_info_get_type
newZeroDBusPropertyInfo :: MonadIO m => m DBusPropertyInfo
newZeroDBusPropertyInfo :: m DBusPropertyInfo
newZeroDBusPropertyInfo = IO DBusPropertyInfo -> m DBusPropertyInfo
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DBusPropertyInfo -> m DBusPropertyInfo)
-> IO DBusPropertyInfo -> m DBusPropertyInfo
forall a b. (a -> b) -> a -> b
$ Int -> IO (Ptr DBusPropertyInfo)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 40 IO (Ptr DBusPropertyInfo)
-> (Ptr DBusPropertyInfo -> IO DBusPropertyInfo)
-> IO DBusPropertyInfo
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr DBusPropertyInfo -> DBusPropertyInfo)
-> Ptr DBusPropertyInfo -> IO DBusPropertyInfo
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr DBusPropertyInfo -> DBusPropertyInfo
DBusPropertyInfo
instance tag ~ 'AttrSet => Constructible DBusPropertyInfo tag where
new :: (ManagedPtr DBusPropertyInfo -> DBusPropertyInfo)
-> [AttrOp DBusPropertyInfo tag] -> m DBusPropertyInfo
new _ attrs :: [AttrOp DBusPropertyInfo tag]
attrs = do
DBusPropertyInfo
o <- m DBusPropertyInfo
forall (m :: * -> *). MonadIO m => m DBusPropertyInfo
newZeroDBusPropertyInfo
DBusPropertyInfo -> [AttrOp DBusPropertyInfo 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set DBusPropertyInfo
o [AttrOp DBusPropertyInfo tag]
[AttrOp DBusPropertyInfo 'AttrSet]
attrs
DBusPropertyInfo -> m DBusPropertyInfo
forall (m :: * -> *) a. Monad m => a -> m a
return DBusPropertyInfo
o
noDBusPropertyInfo :: Maybe DBusPropertyInfo
noDBusPropertyInfo :: Maybe DBusPropertyInfo
noDBusPropertyInfo = Maybe DBusPropertyInfo
forall a. Maybe a
Nothing
getDBusPropertyInfoRefCount :: MonadIO m => DBusPropertyInfo -> m Int32
getDBusPropertyInfoRefCount :: DBusPropertyInfo -> m Int32
getDBusPropertyInfoRefCount s :: DBusPropertyInfo
s = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ DBusPropertyInfo -> (Ptr DBusPropertyInfo -> IO Int32) -> IO Int32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusPropertyInfo
s ((Ptr DBusPropertyInfo -> IO Int32) -> IO Int32)
-> (Ptr DBusPropertyInfo -> IO Int32) -> IO Int32
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr DBusPropertyInfo
ptr -> do
Int32
val <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek (Ptr DBusPropertyInfo
ptr Ptr DBusPropertyInfo -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO Int32
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
val
setDBusPropertyInfoRefCount :: MonadIO m => DBusPropertyInfo -> Int32 -> m ()
setDBusPropertyInfoRefCount :: DBusPropertyInfo -> Int32 -> m ()
setDBusPropertyInfoRefCount s :: DBusPropertyInfo
s val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ DBusPropertyInfo -> (Ptr DBusPropertyInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusPropertyInfo
s ((Ptr DBusPropertyInfo -> IO ()) -> IO ())
-> (Ptr DBusPropertyInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr DBusPropertyInfo
ptr -> do
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr DBusPropertyInfo
ptr Ptr DBusPropertyInfo -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (Int32
val :: Int32)
#if ENABLE_OVERLOADING
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
#endif
getDBusPropertyInfoName :: MonadIO m => DBusPropertyInfo -> m (Maybe T.Text)
getDBusPropertyInfoName :: DBusPropertyInfo -> m (Maybe Text)
getDBusPropertyInfoName s :: DBusPropertyInfo
s = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ DBusPropertyInfo
-> (Ptr DBusPropertyInfo -> IO (Maybe Text)) -> IO (Maybe Text)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusPropertyInfo
s ((Ptr DBusPropertyInfo -> IO (Maybe Text)) -> IO (Maybe Text))
-> (Ptr DBusPropertyInfo -> IO (Maybe Text)) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr DBusPropertyInfo
ptr -> do
CString
val <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek (Ptr DBusPropertyInfo
ptr Ptr DBusPropertyInfo -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) :: IO CString
Maybe Text
result <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \val' :: CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
val'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setDBusPropertyInfoName :: MonadIO m => DBusPropertyInfo -> CString -> m ()
setDBusPropertyInfoName :: DBusPropertyInfo -> CString -> m ()
setDBusPropertyInfoName s :: DBusPropertyInfo
s val :: CString
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ DBusPropertyInfo -> (Ptr DBusPropertyInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusPropertyInfo
s ((Ptr DBusPropertyInfo -> IO ()) -> IO ())
-> (Ptr DBusPropertyInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr DBusPropertyInfo
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr DBusPropertyInfo
ptr Ptr DBusPropertyInfo -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) (CString
val :: CString)
clearDBusPropertyInfoName :: MonadIO m => DBusPropertyInfo -> m ()
clearDBusPropertyInfoName :: DBusPropertyInfo -> m ()
clearDBusPropertyInfoName s :: DBusPropertyInfo
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ DBusPropertyInfo -> (Ptr DBusPropertyInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusPropertyInfo
s ((Ptr DBusPropertyInfo -> IO ()) -> IO ())
-> (Ptr DBusPropertyInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr DBusPropertyInfo
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr DBusPropertyInfo
ptr Ptr DBusPropertyInfo -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) (CString
forall a. Ptr a
FP.nullPtr :: CString)
#if ENABLE_OVERLOADING
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
#endif
getDBusPropertyInfoSignature :: MonadIO m => DBusPropertyInfo -> m (Maybe T.Text)
getDBusPropertyInfoSignature :: DBusPropertyInfo -> m (Maybe Text)
getDBusPropertyInfoSignature s :: DBusPropertyInfo
s = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ DBusPropertyInfo
-> (Ptr DBusPropertyInfo -> IO (Maybe Text)) -> IO (Maybe Text)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusPropertyInfo
s ((Ptr DBusPropertyInfo -> IO (Maybe Text)) -> IO (Maybe Text))
-> (Ptr DBusPropertyInfo -> IO (Maybe Text)) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr DBusPropertyInfo
ptr -> do
CString
val <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek (Ptr DBusPropertyInfo
ptr Ptr DBusPropertyInfo -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) :: IO CString
Maybe Text
result <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \val' :: CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
val'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setDBusPropertyInfoSignature :: MonadIO m => DBusPropertyInfo -> CString -> m ()
setDBusPropertyInfoSignature :: DBusPropertyInfo -> CString -> m ()
setDBusPropertyInfoSignature s :: DBusPropertyInfo
s val :: CString
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ DBusPropertyInfo -> (Ptr DBusPropertyInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusPropertyInfo
s ((Ptr DBusPropertyInfo -> IO ()) -> IO ())
-> (Ptr DBusPropertyInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr DBusPropertyInfo
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr DBusPropertyInfo
ptr Ptr DBusPropertyInfo -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) (CString
val :: CString)
clearDBusPropertyInfoSignature :: MonadIO m => DBusPropertyInfo -> m ()
clearDBusPropertyInfoSignature :: DBusPropertyInfo -> m ()
clearDBusPropertyInfoSignature s :: DBusPropertyInfo
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ DBusPropertyInfo -> (Ptr DBusPropertyInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusPropertyInfo
s ((Ptr DBusPropertyInfo -> IO ()) -> IO ())
-> (Ptr DBusPropertyInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr DBusPropertyInfo
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr DBusPropertyInfo
ptr Ptr DBusPropertyInfo -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) (CString
forall a. Ptr a
FP.nullPtr :: CString)
#if ENABLE_OVERLOADING
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
#endif
getDBusPropertyInfoFlags :: MonadIO m => DBusPropertyInfo -> m [Gio.Flags.DBusPropertyInfoFlags]
getDBusPropertyInfoFlags :: DBusPropertyInfo -> m [DBusPropertyInfoFlags]
getDBusPropertyInfoFlags s :: DBusPropertyInfo
s = IO [DBusPropertyInfoFlags] -> m [DBusPropertyInfoFlags]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [DBusPropertyInfoFlags] -> m [DBusPropertyInfoFlags])
-> IO [DBusPropertyInfoFlags] -> m [DBusPropertyInfoFlags]
forall a b. (a -> b) -> a -> b
$ DBusPropertyInfo
-> (Ptr DBusPropertyInfo -> IO [DBusPropertyInfoFlags])
-> IO [DBusPropertyInfoFlags]
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusPropertyInfo
s ((Ptr DBusPropertyInfo -> IO [DBusPropertyInfoFlags])
-> IO [DBusPropertyInfoFlags])
-> (Ptr DBusPropertyInfo -> IO [DBusPropertyInfoFlags])
-> IO [DBusPropertyInfoFlags]
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr DBusPropertyInfo
ptr -> do
CUInt
val <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek (Ptr DBusPropertyInfo
ptr Ptr DBusPropertyInfo -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 24) :: IO CUInt
let val' :: [DBusPropertyInfoFlags]
val' = CUInt -> [DBusPropertyInfoFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
val
[DBusPropertyInfoFlags] -> IO [DBusPropertyInfoFlags]
forall (m :: * -> *) a. Monad m => a -> m a
return [DBusPropertyInfoFlags]
val'
setDBusPropertyInfoFlags :: MonadIO m => DBusPropertyInfo -> [Gio.Flags.DBusPropertyInfoFlags] -> m ()
setDBusPropertyInfoFlags :: DBusPropertyInfo -> [DBusPropertyInfoFlags] -> m ()
setDBusPropertyInfoFlags s :: DBusPropertyInfo
s val :: [DBusPropertyInfoFlags]
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ DBusPropertyInfo -> (Ptr DBusPropertyInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusPropertyInfo
s ((Ptr DBusPropertyInfo -> IO ()) -> IO ())
-> (Ptr DBusPropertyInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr DBusPropertyInfo
ptr -> do
let val' :: CUInt
val' = [DBusPropertyInfoFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DBusPropertyInfoFlags]
val
Ptr CUInt -> CUInt -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr DBusPropertyInfo
ptr Ptr DBusPropertyInfo -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 24) (CUInt
val' :: CUInt)
#if ENABLE_OVERLOADING
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
#endif
getDBusPropertyInfoAnnotations :: MonadIO m => DBusPropertyInfo -> m (Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo])
getDBusPropertyInfoAnnotations :: DBusPropertyInfo -> m (Maybe [DBusAnnotationInfo])
getDBusPropertyInfoAnnotations s :: DBusPropertyInfo
s = IO (Maybe [DBusAnnotationInfo]) -> m (Maybe [DBusAnnotationInfo])
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe [DBusAnnotationInfo]) -> m (Maybe [DBusAnnotationInfo]))
-> IO (Maybe [DBusAnnotationInfo])
-> m (Maybe [DBusAnnotationInfo])
forall a b. (a -> b) -> a -> b
$ DBusPropertyInfo
-> (Ptr DBusPropertyInfo -> IO (Maybe [DBusAnnotationInfo]))
-> IO (Maybe [DBusAnnotationInfo])
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusPropertyInfo
s ((Ptr DBusPropertyInfo -> IO (Maybe [DBusAnnotationInfo]))
-> IO (Maybe [DBusAnnotationInfo]))
-> (Ptr DBusPropertyInfo -> IO (Maybe [DBusAnnotationInfo]))
-> IO (Maybe [DBusAnnotationInfo])
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr DBusPropertyInfo
ptr -> do
Ptr (Ptr DBusAnnotationInfo)
val <- Ptr (Ptr (Ptr DBusAnnotationInfo))
-> IO (Ptr (Ptr DBusAnnotationInfo))
forall a. Storable a => Ptr a -> IO a
peek (Ptr DBusPropertyInfo
ptr Ptr DBusPropertyInfo -> Int -> Ptr (Ptr (Ptr DBusAnnotationInfo))
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 32) :: IO (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
Maybe [DBusAnnotationInfo]
result <- Ptr (Ptr DBusAnnotationInfo)
-> (Ptr (Ptr DBusAnnotationInfo) -> IO [DBusAnnotationInfo])
-> IO (Maybe [DBusAnnotationInfo])
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr (Ptr DBusAnnotationInfo)
val ((Ptr (Ptr DBusAnnotationInfo) -> IO [DBusAnnotationInfo])
-> IO (Maybe [DBusAnnotationInfo]))
-> (Ptr (Ptr DBusAnnotationInfo) -> IO [DBusAnnotationInfo])
-> IO (Maybe [DBusAnnotationInfo])
forall a b. (a -> b) -> a -> b
$ \val' :: Ptr (Ptr DBusAnnotationInfo)
val' -> do
[Ptr DBusAnnotationInfo]
val'' <- Ptr (Ptr DBusAnnotationInfo) -> IO [Ptr DBusAnnotationInfo]
forall a. Ptr (Ptr a) -> IO [Ptr a]
unpackZeroTerminatedPtrArray Ptr (Ptr DBusAnnotationInfo)
val'
[DBusAnnotationInfo]
val''' <- (Ptr DBusAnnotationInfo -> IO DBusAnnotationInfo)
-> [Ptr DBusAnnotationInfo] -> IO [DBusAnnotationInfo]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr DBusAnnotationInfo -> DBusAnnotationInfo)
-> Ptr DBusAnnotationInfo -> IO DBusAnnotationInfo
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr DBusAnnotationInfo -> DBusAnnotationInfo
Gio.DBusAnnotationInfo.DBusAnnotationInfo) [Ptr DBusAnnotationInfo]
val''
[DBusAnnotationInfo] -> IO [DBusAnnotationInfo]
forall (m :: * -> *) a. Monad m => a -> m a
return [DBusAnnotationInfo]
val'''
Maybe [DBusAnnotationInfo] -> IO (Maybe [DBusAnnotationInfo])
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe [DBusAnnotationInfo]
result
setDBusPropertyInfoAnnotations :: MonadIO m => DBusPropertyInfo -> Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo) -> m ()
setDBusPropertyInfoAnnotations :: DBusPropertyInfo -> Ptr (Ptr DBusAnnotationInfo) -> m ()
setDBusPropertyInfoAnnotations s :: DBusPropertyInfo
s val :: Ptr (Ptr DBusAnnotationInfo)
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ DBusPropertyInfo -> (Ptr DBusPropertyInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusPropertyInfo
s ((Ptr DBusPropertyInfo -> IO ()) -> IO ())
-> (Ptr DBusPropertyInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr DBusPropertyInfo
ptr -> do
Ptr (Ptr (Ptr DBusAnnotationInfo))
-> Ptr (Ptr DBusAnnotationInfo) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr DBusPropertyInfo
ptr Ptr DBusPropertyInfo -> Int -> Ptr (Ptr (Ptr DBusAnnotationInfo))
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 32) (Ptr (Ptr DBusAnnotationInfo)
val :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
clearDBusPropertyInfoAnnotations :: MonadIO m => DBusPropertyInfo -> m ()
clearDBusPropertyInfoAnnotations :: DBusPropertyInfo -> m ()
clearDBusPropertyInfoAnnotations s :: DBusPropertyInfo
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ DBusPropertyInfo -> (Ptr DBusPropertyInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusPropertyInfo
s ((Ptr DBusPropertyInfo -> IO ()) -> IO ())
-> (Ptr DBusPropertyInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr DBusPropertyInfo
ptr -> do
Ptr (Ptr (Ptr DBusAnnotationInfo))
-> Ptr (Ptr DBusAnnotationInfo) -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr DBusPropertyInfo
ptr Ptr DBusPropertyInfo -> Int -> Ptr (Ptr (Ptr DBusAnnotationInfo))
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 32) (Ptr (Ptr DBusAnnotationInfo)
forall a. Ptr a
FP.nullPtr :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
#if ENABLE_OVERLOADING
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
#endif
#if 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 :: DBusPropertyInfo -> m DBusPropertyInfo
dBusPropertyInfoRef info :: DBusPropertyInfo
info = IO DBusPropertyInfo -> m DBusPropertyInfo
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DBusPropertyInfo -> m DBusPropertyInfo)
-> IO DBusPropertyInfo -> m DBusPropertyInfo
forall a b. (a -> b) -> a -> b
$ do
Ptr DBusPropertyInfo
info' <- DBusPropertyInfo -> IO (Ptr DBusPropertyInfo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr DBusPropertyInfo
info
Ptr DBusPropertyInfo
result <- Ptr DBusPropertyInfo -> IO (Ptr DBusPropertyInfo)
g_dbus_property_info_ref Ptr DBusPropertyInfo
info'
Text -> Ptr DBusPropertyInfo -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dBusPropertyInfoRef" Ptr DBusPropertyInfo
result
DBusPropertyInfo
result' <- ((ManagedPtr DBusPropertyInfo -> DBusPropertyInfo)
-> Ptr DBusPropertyInfo -> IO DBusPropertyInfo
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr DBusPropertyInfo -> DBusPropertyInfo
DBusPropertyInfo) Ptr DBusPropertyInfo
result
DBusPropertyInfo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr DBusPropertyInfo
info
DBusPropertyInfo -> IO DBusPropertyInfo
forall (m :: * -> *) a. Monad m => a -> m a
return DBusPropertyInfo
result'
#if 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 :: DBusPropertyInfo -> m ()
dBusPropertyInfoUnref info :: DBusPropertyInfo
info = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DBusPropertyInfo
info' <- DBusPropertyInfo -> IO (Ptr DBusPropertyInfo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr DBusPropertyInfo
info
Ptr DBusPropertyInfo -> IO ()
g_dbus_property_info_unref Ptr DBusPropertyInfo
info'
DBusPropertyInfo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr DBusPropertyInfo
info
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data DBusPropertyInfoUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo DBusPropertyInfoUnrefMethodInfo DBusPropertyInfo signature where
overloadedMethod _ = dBusPropertyInfoUnref
#endif
#if 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) => 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
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif