module GI.Gio.Objects.SocketAddressEnumerator
(
SocketAddressEnumerator(..) ,
SocketAddressEnumeratorK ,
toSocketAddressEnumerator ,
noSocketAddressEnumerator ,
socketAddressEnumeratorNext ,
socketAddressEnumeratorNextAsync ,
socketAddressEnumeratorNextFinish ,
) 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 SocketAddressEnumerator = SocketAddressEnumerator (ForeignPtr SocketAddressEnumerator)
foreign import ccall "g_socket_address_enumerator_get_type"
c_g_socket_address_enumerator_get_type :: IO GType
type instance ParentTypes SocketAddressEnumerator = SocketAddressEnumeratorParentTypes
type SocketAddressEnumeratorParentTypes = '[GObject.Object]
instance GObject SocketAddressEnumerator where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_socket_address_enumerator_get_type
class GObject o => SocketAddressEnumeratorK o
instance (GObject o, IsDescendantOf SocketAddressEnumerator o) => SocketAddressEnumeratorK o
toSocketAddressEnumerator :: SocketAddressEnumeratorK o => o -> IO SocketAddressEnumerator
toSocketAddressEnumerator = unsafeCastTo SocketAddressEnumerator
noSocketAddressEnumerator :: Maybe SocketAddressEnumerator
noSocketAddressEnumerator = Nothing
type instance AttributeList SocketAddressEnumerator = SocketAddressEnumeratorAttributeList
type SocketAddressEnumeratorAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList SocketAddressEnumerator = SocketAddressEnumeratorSignalList
type SocketAddressEnumeratorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_socket_address_enumerator_next" g_socket_address_enumerator_next ::
Ptr SocketAddressEnumerator ->
Ptr Cancellable ->
Ptr (Ptr GError) ->
IO (Ptr SocketAddress)
socketAddressEnumeratorNext ::
(MonadIO m, SocketAddressEnumeratorK a, CancellableK b) =>
a ->
Maybe (b) ->
m SocketAddress
socketAddressEnumeratorNext _obj cancellable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
result <- propagateGError $ g_socket_address_enumerator_next _obj' maybeCancellable
checkUnexpectedReturnNULL "g_socket_address_enumerator_next" result
result' <- (wrapObject SocketAddress) result
touchManagedPtr _obj
whenJust cancellable touchManagedPtr
return result'
) (do
return ()
)
foreign import ccall "g_socket_address_enumerator_next_async" g_socket_address_enumerator_next_async ::
Ptr SocketAddressEnumerator ->
Ptr Cancellable ->
FunPtr AsyncReadyCallbackC ->
Ptr () ->
IO ()
socketAddressEnumeratorNextAsync ::
(MonadIO m, SocketAddressEnumeratorK a, CancellableK b) =>
a ->
Maybe (b) ->
Maybe (AsyncReadyCallback) ->
m ()
socketAddressEnumeratorNextAsync _obj cancellable callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let user_data = nullPtr
g_socket_address_enumerator_next_async _obj' maybeCancellable maybeCallback user_data
touchManagedPtr _obj
whenJust cancellable touchManagedPtr
return ()
foreign import ccall "g_socket_address_enumerator_next_finish" g_socket_address_enumerator_next_finish ::
Ptr SocketAddressEnumerator ->
Ptr AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr SocketAddress)
socketAddressEnumeratorNextFinish ::
(MonadIO m, SocketAddressEnumeratorK a, AsyncResultK b) =>
a ->
b ->
m SocketAddress
socketAddressEnumeratorNextFinish _obj result_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let result_' = unsafeManagedPtrCastPtr result_
onException (do
result <- propagateGError $ g_socket_address_enumerator_next_finish _obj' result_'
checkUnexpectedReturnNULL "g_socket_address_enumerator_next_finish" result
result' <- (wrapObject SocketAddress) result
touchManagedPtr _obj
touchManagedPtr result_
return result'
) (do
return ()
)