module GI.Gio.Objects.SocketService
(
SocketService(..) ,
SocketServiceK ,
toSocketService ,
noSocketService ,
socketServiceIsActive ,
socketServiceNew ,
socketServiceStart ,
socketServiceStop ,
SocketServiceIncomingCallback ,
SocketServiceIncomingCallbackC ,
SocketServiceIncomingSignalInfo ,
afterSocketServiceIncoming ,
mkSocketServiceIncomingCallback ,
noSocketServiceIncomingCallback ,
onSocketServiceIncoming ,
socketServiceIncomingCallbackWrapper ,
socketServiceIncomingClosure ,
) 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 SocketService = SocketService (ForeignPtr SocketService)
foreign import ccall "g_socket_service_get_type"
c_g_socket_service_get_type :: IO GType
type instance ParentTypes SocketService = SocketServiceParentTypes
type SocketServiceParentTypes = '[SocketListener, GObject.Object]
instance GObject SocketService where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_socket_service_get_type
class GObject o => SocketServiceK o
instance (GObject o, IsDescendantOf SocketService o) => SocketServiceK o
toSocketService :: SocketServiceK o => o -> IO SocketService
toSocketService = unsafeCastTo SocketService
noSocketService :: Maybe SocketService
noSocketService = Nothing
type SocketServiceIncomingCallback =
SocketConnection ->
Maybe GObject.Object ->
IO Bool
noSocketServiceIncomingCallback :: Maybe SocketServiceIncomingCallback
noSocketServiceIncomingCallback = Nothing
type SocketServiceIncomingCallbackC =
Ptr () ->
Ptr SocketConnection ->
Ptr GObject.Object ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkSocketServiceIncomingCallback :: SocketServiceIncomingCallbackC -> IO (FunPtr SocketServiceIncomingCallbackC)
socketServiceIncomingClosure :: SocketServiceIncomingCallback -> IO Closure
socketServiceIncomingClosure cb = newCClosure =<< mkSocketServiceIncomingCallback wrapped
where wrapped = socketServiceIncomingCallbackWrapper cb
socketServiceIncomingCallbackWrapper ::
SocketServiceIncomingCallback ->
Ptr () ->
Ptr SocketConnection ->
Ptr GObject.Object ->
Ptr () ->
IO CInt
socketServiceIncomingCallbackWrapper _cb _ connection source_object _ = do
connection' <- (newObject SocketConnection) connection
maybeSource_object <-
if source_object == nullPtr
then return Nothing
else do
source_object' <- (newObject GObject.Object) source_object
return $ Just source_object'
result <- _cb connection' maybeSource_object
let result' = (fromIntegral . fromEnum) result
return result'
onSocketServiceIncoming :: (GObject a, MonadIO m) => a -> SocketServiceIncomingCallback -> m SignalHandlerId
onSocketServiceIncoming obj cb = liftIO $ connectSocketServiceIncoming obj cb SignalConnectBefore
afterSocketServiceIncoming :: (GObject a, MonadIO m) => a -> SocketServiceIncomingCallback -> m SignalHandlerId
afterSocketServiceIncoming obj cb = connectSocketServiceIncoming obj cb SignalConnectAfter
connectSocketServiceIncoming :: (GObject a, MonadIO m) =>
a -> SocketServiceIncomingCallback -> SignalConnectMode -> m SignalHandlerId
connectSocketServiceIncoming obj cb after = liftIO $ do
cb' <- mkSocketServiceIncomingCallback (socketServiceIncomingCallbackWrapper cb)
connectSignalFunPtr obj "incoming" cb' after
type instance AttributeList SocketService = SocketServiceAttributeList
type SocketServiceAttributeList = ('[ '("listen-backlog", SocketListenerListenBacklogPropertyInfo)] :: [(Symbol, *)])
data SocketServiceIncomingSignalInfo
instance SignalInfo SocketServiceIncomingSignalInfo where
type HaskellCallbackType SocketServiceIncomingSignalInfo = SocketServiceIncomingCallback
connectSignal _ = connectSocketServiceIncoming
type instance SignalList SocketService = SocketServiceSignalList
type SocketServiceSignalList = ('[ '("incoming", SocketServiceIncomingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_socket_service_new" g_socket_service_new ::
IO (Ptr SocketService)
socketServiceNew ::
(MonadIO m) =>
m SocketService
socketServiceNew = liftIO $ do
result <- g_socket_service_new
checkUnexpectedReturnNULL "g_socket_service_new" result
result' <- (wrapObject SocketService) result
return result'
foreign import ccall "g_socket_service_is_active" g_socket_service_is_active ::
Ptr SocketService ->
IO CInt
socketServiceIsActive ::
(MonadIO m, SocketServiceK a) =>
a ->
m Bool
socketServiceIsActive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_socket_service_is_active _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "g_socket_service_start" g_socket_service_start ::
Ptr SocketService ->
IO ()
socketServiceStart ::
(MonadIO m, SocketServiceK a) =>
a ->
m ()
socketServiceStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_socket_service_start _obj'
touchManagedPtr _obj
return ()
foreign import ccall "g_socket_service_stop" g_socket_service_stop ::
Ptr SocketService ->
IO ()
socketServiceStop ::
(MonadIO m, SocketServiceK a) =>
a ->
m ()
socketServiceStop _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_socket_service_stop _obj'
touchManagedPtr _obj
return ()