module GI.Gio.Structs.DBusAnnotationInfo
(
DBusAnnotationInfo(..) ,
noDBusAnnotationInfo ,
dBusAnnotationInfoRef ,
dBusAnnotationInfoUnref ,
dBusAnnotationInfoReadAnnotations ,
dBusAnnotationInfoReadKey ,
dBusAnnotationInfoReadRefCount ,
dBusAnnotationInfoReadValue ,
) 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.Gio.Types
import GI.Gio.Callbacks
newtype DBusAnnotationInfo = DBusAnnotationInfo (ForeignPtr DBusAnnotationInfo)
foreign import ccall "g_dbus_annotation_info_get_type" c_g_dbus_annotation_info_get_type ::
IO GType
instance BoxedObject DBusAnnotationInfo where
boxedType _ = c_g_dbus_annotation_info_get_type
noDBusAnnotationInfo :: Maybe DBusAnnotationInfo
noDBusAnnotationInfo = Nothing
dBusAnnotationInfoReadRefCount :: DBusAnnotationInfo -> IO Int32
dBusAnnotationInfoReadRefCount s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Int32
return val
dBusAnnotationInfoReadKey :: DBusAnnotationInfo -> IO T.Text
dBusAnnotationInfoReadKey s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
val' <- cstringToText val
return val'
dBusAnnotationInfoReadValue :: DBusAnnotationInfo -> IO T.Text
dBusAnnotationInfoReadValue s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
val' <- cstringToText val
return val'
dBusAnnotationInfoReadAnnotations :: DBusAnnotationInfo -> IO [DBusAnnotationInfo]
dBusAnnotationInfoReadAnnotations s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr DBusAnnotationInfo))
val' <- unpackZeroTerminatedPtrArray val
val'' <- mapM (newBoxed DBusAnnotationInfo) val'
return val''
foreign import ccall "g_dbus_annotation_info_ref" g_dbus_annotation_info_ref ::
Ptr DBusAnnotationInfo ->
IO (Ptr DBusAnnotationInfo)
dBusAnnotationInfoRef ::
(MonadIO m) =>
DBusAnnotationInfo ->
m DBusAnnotationInfo
dBusAnnotationInfoRef _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- g_dbus_annotation_info_ref _obj'
checkUnexpectedReturnNULL "g_dbus_annotation_info_ref" result
result' <- (wrapBoxed DBusAnnotationInfo) result
touchManagedPtr _obj
return result'
foreign import ccall "g_dbus_annotation_info_unref" g_dbus_annotation_info_unref ::
Ptr DBusAnnotationInfo ->
IO ()
dBusAnnotationInfoUnref ::
(MonadIO m) =>
DBusAnnotationInfo ->
m ()
dBusAnnotationInfoUnref _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
g_dbus_annotation_info_unref _obj'
touchManagedPtr _obj
return ()