module GI.Gio.Structs.DBusMethodInfo
(
DBusMethodInfo(..) ,
noDBusMethodInfo ,
dBusMethodInfoRef ,
dBusMethodInfoUnref ,
dBusMethodInfoReadAnnotations ,
dBusMethodInfoReadInArgs ,
dBusMethodInfoReadName ,
dBusMethodInfoReadOutArgs ,
dBusMethodInfoReadRefCount ,
) 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 DBusMethodInfo = DBusMethodInfo (ForeignPtr DBusMethodInfo)
foreign import ccall "g_dbus_method_info_get_type" c_g_dbus_method_info_get_type ::
IO GType
instance BoxedObject DBusMethodInfo where
boxedType _ = c_g_dbus_method_info_get_type
noDBusMethodInfo :: Maybe DBusMethodInfo
noDBusMethodInfo = Nothing
dBusMethodInfoReadRefCount :: DBusMethodInfo -> IO Int32
dBusMethodInfoReadRefCount s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Int32
return val
dBusMethodInfoReadName :: DBusMethodInfo -> IO T.Text
dBusMethodInfoReadName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
val' <- cstringToText val
return val'
dBusMethodInfoReadInArgs :: DBusMethodInfo -> IO [DBusArgInfo]
dBusMethodInfoReadInArgs s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO (Ptr (Ptr DBusArgInfo))
val' <- unpackZeroTerminatedPtrArray val
val'' <- mapM (newBoxed DBusArgInfo) val'
return val''
dBusMethodInfoReadOutArgs :: DBusMethodInfo -> IO [DBusArgInfo]
dBusMethodInfoReadOutArgs s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr DBusArgInfo))
val' <- unpackZeroTerminatedPtrArray val
val'' <- mapM (newBoxed DBusArgInfo) val'
return val''
dBusMethodInfoReadAnnotations :: DBusMethodInfo -> IO [DBusAnnotationInfo]
dBusMethodInfoReadAnnotations s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO (Ptr (Ptr DBusAnnotationInfo))
val' <- unpackZeroTerminatedPtrArray val
val'' <- mapM (newBoxed DBusAnnotationInfo) val'
return val''
foreign import ccall "g_dbus_method_info_ref" g_dbus_method_info_ref ::
Ptr DBusMethodInfo ->
IO (Ptr DBusMethodInfo)
dBusMethodInfoRef ::
(MonadIO m) =>
DBusMethodInfo ->
m DBusMethodInfo
dBusMethodInfoRef _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- g_dbus_method_info_ref _obj'
checkUnexpectedReturnNULL "g_dbus_method_info_ref" result
result' <- (wrapBoxed DBusMethodInfo) result
touchManagedPtr _obj
return result'
foreign import ccall "g_dbus_method_info_unref" g_dbus_method_info_unref ::
Ptr DBusMethodInfo ->
IO ()
dBusMethodInfoUnref ::
(MonadIO m) =>
DBusMethodInfo ->
m ()
dBusMethodInfoUnref _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
g_dbus_method_info_unref _obj'
touchManagedPtr _obj
return ()