module GI.Gio.Objects.UnixFDMessage
(
UnixFDMessage(..) ,
UnixFDMessageK ,
toUnixFDMessage ,
noUnixFDMessage ,
unixFDMessageAppendFd ,
unixFDMessageGetFdList ,
unixFDMessageNew ,
unixFDMessageNewWithFdList ,
unixFDMessageStealFds ,
UnixFDMessageFdListPropertyInfo ,
constructUnixFDMessageFdList ,
getUnixFDMessageFdList ,
) 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
import qualified GI.GObject as GObject
newtype UnixFDMessage = UnixFDMessage (ForeignPtr UnixFDMessage)
foreign import ccall "g_unix_fd_message_get_type"
c_g_unix_fd_message_get_type :: IO GType
type instance ParentTypes UnixFDMessage = UnixFDMessageParentTypes
type UnixFDMessageParentTypes = '[SocketControlMessage, GObject.Object]
instance GObject UnixFDMessage where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_unix_fd_message_get_type
class GObject o => UnixFDMessageK o
instance (GObject o, IsDescendantOf UnixFDMessage o) => UnixFDMessageK o
toUnixFDMessage :: UnixFDMessageK o => o -> IO UnixFDMessage
toUnixFDMessage = unsafeCastTo UnixFDMessage
noUnixFDMessage :: Maybe UnixFDMessage
noUnixFDMessage = Nothing
getUnixFDMessageFdList :: (MonadIO m, UnixFDMessageK o) => o -> m UnixFDList
getUnixFDMessageFdList obj = liftIO $ getObjectPropertyObject obj "fd-list" UnixFDList
constructUnixFDMessageFdList :: (UnixFDListK a) => a -> IO ([Char], GValue)
constructUnixFDMessageFdList val = constructObjectPropertyObject "fd-list" val
data UnixFDMessageFdListPropertyInfo
instance AttrInfo UnixFDMessageFdListPropertyInfo where
type AttrAllowedOps UnixFDMessageFdListPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint UnixFDMessageFdListPropertyInfo = UnixFDListK
type AttrBaseTypeConstraint UnixFDMessageFdListPropertyInfo = UnixFDMessageK
type AttrGetType UnixFDMessageFdListPropertyInfo = UnixFDList
type AttrLabel UnixFDMessageFdListPropertyInfo = "UnixFDMessage::fd-list"
attrGet _ = getUnixFDMessageFdList
attrSet _ = undefined
attrConstruct _ = constructUnixFDMessageFdList
type instance AttributeList UnixFDMessage = UnixFDMessageAttributeList
type UnixFDMessageAttributeList = ('[ '("fd-list", UnixFDMessageFdListPropertyInfo)] :: [(Symbol, *)])
type instance SignalList UnixFDMessage = UnixFDMessageSignalList
type UnixFDMessageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_unix_fd_message_new" g_unix_fd_message_new ::
IO (Ptr UnixFDMessage)
unixFDMessageNew ::
(MonadIO m) =>
m UnixFDMessage
unixFDMessageNew = liftIO $ do
result <- g_unix_fd_message_new
checkUnexpectedReturnNULL "g_unix_fd_message_new" result
result' <- (wrapObject UnixFDMessage) result
return result'
foreign import ccall "g_unix_fd_message_new_with_fd_list" g_unix_fd_message_new_with_fd_list ::
Ptr UnixFDList ->
IO (Ptr UnixFDMessage)
unixFDMessageNewWithFdList ::
(MonadIO m, UnixFDListK a) =>
a ->
m UnixFDMessage
unixFDMessageNewWithFdList fd_list = liftIO $ do
let fd_list' = unsafeManagedPtrCastPtr fd_list
result <- g_unix_fd_message_new_with_fd_list fd_list'
checkUnexpectedReturnNULL "g_unix_fd_message_new_with_fd_list" result
result' <- (wrapObject UnixFDMessage) result
touchManagedPtr fd_list
return result'
foreign import ccall "g_unix_fd_message_append_fd" g_unix_fd_message_append_fd ::
Ptr UnixFDMessage ->
Int32 ->
Ptr (Ptr GError) ->
IO CInt
unixFDMessageAppendFd ::
(MonadIO m, UnixFDMessageK a) =>
a ->
Int32 ->
m ()
unixFDMessageAppendFd _obj fd = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
_ <- propagateGError $ g_unix_fd_message_append_fd _obj' fd
touchManagedPtr _obj
return ()
) (do
return ()
)
foreign import ccall "g_unix_fd_message_get_fd_list" g_unix_fd_message_get_fd_list ::
Ptr UnixFDMessage ->
IO (Ptr UnixFDList)
unixFDMessageGetFdList ::
(MonadIO m, UnixFDMessageK a) =>
a ->
m UnixFDList
unixFDMessageGetFdList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_unix_fd_message_get_fd_list _obj'
checkUnexpectedReturnNULL "g_unix_fd_message_get_fd_list" result
result' <- (newObject UnixFDList) result
touchManagedPtr _obj
return result'
foreign import ccall "g_unix_fd_message_steal_fds" g_unix_fd_message_steal_fds ::
Ptr UnixFDMessage ->
Ptr Int32 ->
IO (Ptr Int32)
unixFDMessageStealFds ::
(MonadIO m, UnixFDMessageK a) =>
a ->
m [Int32]
unixFDMessageStealFds _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
length_ <- allocMem :: IO (Ptr Int32)
result <- g_unix_fd_message_steal_fds _obj' length_
length_' <- peek length_
checkUnexpectedReturnNULL "g_unix_fd_message_steal_fds" result
result' <- (unpackStorableArrayWithLength length_') result
freeMem result
touchManagedPtr _obj
freeMem length_
return result'