module GI.Gio.Objects.InetSocketAddress
(
InetSocketAddress(..) ,
IsInetSocketAddress ,
toInetSocketAddress ,
noInetSocketAddress ,
InetSocketAddressGetAddressMethodInfo ,
inetSocketAddressGetAddress ,
InetSocketAddressGetFlowinfoMethodInfo ,
inetSocketAddressGetFlowinfo ,
InetSocketAddressGetPortMethodInfo ,
inetSocketAddressGetPort ,
InetSocketAddressGetScopeIdMethodInfo ,
inetSocketAddressGetScopeId ,
inetSocketAddressNew ,
inetSocketAddressNewFromString ,
InetSocketAddressAddressPropertyInfo ,
constructInetSocketAddressAddress ,
getInetSocketAddressAddress ,
inetSocketAddressAddress ,
InetSocketAddressFlowinfoPropertyInfo ,
constructInetSocketAddressFlowinfo ,
getInetSocketAddressFlowinfo ,
inetSocketAddressFlowinfo ,
InetSocketAddressPortPropertyInfo ,
constructInetSocketAddressPort ,
getInetSocketAddressPort ,
inetSocketAddressPort ,
InetSocketAddressScopeIdPropertyInfo ,
constructInetSocketAddressScopeId ,
getInetSocketAddressScopeId ,
inetSocketAddressScopeId ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.SocketConnectable as Gio.SocketConnectable
import qualified GI.Gio.Objects.InetAddress as Gio.InetAddress
import qualified GI.Gio.Objects.SocketAddress as Gio.SocketAddress
newtype InetSocketAddress = InetSocketAddress (ManagedPtr InetSocketAddress)
foreign import ccall "g_inet_socket_address_get_type"
c_g_inet_socket_address_get_type :: IO GType
instance GObject InetSocketAddress where
gobjectType _ = c_g_inet_socket_address_get_type
class GObject o => IsInetSocketAddress o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError InetSocketAddress a) =>
IsInetSocketAddress a
#endif
instance IsInetSocketAddress InetSocketAddress
instance Gio.SocketAddress.IsSocketAddress InetSocketAddress
instance GObject.Object.IsObject InetSocketAddress
instance Gio.SocketConnectable.IsSocketConnectable InetSocketAddress
toInetSocketAddress :: IsInetSocketAddress o => o -> IO InetSocketAddress
toInetSocketAddress = unsafeCastTo InetSocketAddress
noInetSocketAddress :: Maybe InetSocketAddress
noInetSocketAddress = Nothing
type family ResolveInetSocketAddressMethod (t :: Symbol) (o :: *) :: * where
ResolveInetSocketAddressMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveInetSocketAddressMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveInetSocketAddressMethod "enumerate" o = Gio.SocketConnectable.SocketConnectableEnumerateMethodInfo
ResolveInetSocketAddressMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveInetSocketAddressMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveInetSocketAddressMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveInetSocketAddressMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveInetSocketAddressMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveInetSocketAddressMethod "proxyEnumerate" o = Gio.SocketConnectable.SocketConnectableProxyEnumerateMethodInfo
ResolveInetSocketAddressMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveInetSocketAddressMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveInetSocketAddressMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveInetSocketAddressMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveInetSocketAddressMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveInetSocketAddressMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveInetSocketAddressMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveInetSocketAddressMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveInetSocketAddressMethod "toNative" o = Gio.SocketAddress.SocketAddressToNativeMethodInfo
ResolveInetSocketAddressMethod "toString" o = Gio.SocketConnectable.SocketConnectableToStringMethodInfo
ResolveInetSocketAddressMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveInetSocketAddressMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveInetSocketAddressMethod "getAddress" o = InetSocketAddressGetAddressMethodInfo
ResolveInetSocketAddressMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveInetSocketAddressMethod "getFamily" o = Gio.SocketAddress.SocketAddressGetFamilyMethodInfo
ResolveInetSocketAddressMethod "getFlowinfo" o = InetSocketAddressGetFlowinfoMethodInfo
ResolveInetSocketAddressMethod "getNativeSize" o = Gio.SocketAddress.SocketAddressGetNativeSizeMethodInfo
ResolveInetSocketAddressMethod "getPort" o = InetSocketAddressGetPortMethodInfo
ResolveInetSocketAddressMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveInetSocketAddressMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveInetSocketAddressMethod "getScopeId" o = InetSocketAddressGetScopeIdMethodInfo
ResolveInetSocketAddressMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveInetSocketAddressMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveInetSocketAddressMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveInetSocketAddressMethod t InetSocketAddress, O.MethodInfo info InetSocketAddress p) => O.IsLabelProxy t (InetSocketAddress -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveInetSocketAddressMethod t InetSocketAddress, O.MethodInfo info InetSocketAddress p) => O.IsLabel t (InetSocketAddress -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
getInetSocketAddressAddress :: (MonadIO m, IsInetSocketAddress o) => o -> m Gio.InetAddress.InetAddress
getInetSocketAddressAddress obj = liftIO $ checkUnexpectedNothing "getInetSocketAddressAddress" $ getObjectPropertyObject obj "address" Gio.InetAddress.InetAddress
constructInetSocketAddressAddress :: (IsInetSocketAddress o, Gio.InetAddress.IsInetAddress a) => a -> IO (GValueConstruct o)
constructInetSocketAddressAddress val = constructObjectPropertyObject "address" (Just val)
data InetSocketAddressAddressPropertyInfo
instance AttrInfo InetSocketAddressAddressPropertyInfo where
type AttrAllowedOps InetSocketAddressAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint InetSocketAddressAddressPropertyInfo = Gio.InetAddress.IsInetAddress
type AttrBaseTypeConstraint InetSocketAddressAddressPropertyInfo = IsInetSocketAddress
type AttrGetType InetSocketAddressAddressPropertyInfo = Gio.InetAddress.InetAddress
type AttrLabel InetSocketAddressAddressPropertyInfo = "address"
type AttrOrigin InetSocketAddressAddressPropertyInfo = InetSocketAddress
attrGet _ = getInetSocketAddressAddress
attrSet _ = undefined
attrConstruct _ = constructInetSocketAddressAddress
attrClear _ = undefined
getInetSocketAddressFlowinfo :: (MonadIO m, IsInetSocketAddress o) => o -> m Word32
getInetSocketAddressFlowinfo obj = liftIO $ getObjectPropertyUInt32 obj "flowinfo"
constructInetSocketAddressFlowinfo :: (IsInetSocketAddress o) => Word32 -> IO (GValueConstruct o)
constructInetSocketAddressFlowinfo val = constructObjectPropertyUInt32 "flowinfo" val
data InetSocketAddressFlowinfoPropertyInfo
instance AttrInfo InetSocketAddressFlowinfoPropertyInfo where
type AttrAllowedOps InetSocketAddressFlowinfoPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint InetSocketAddressFlowinfoPropertyInfo = (~) Word32
type AttrBaseTypeConstraint InetSocketAddressFlowinfoPropertyInfo = IsInetSocketAddress
type AttrGetType InetSocketAddressFlowinfoPropertyInfo = Word32
type AttrLabel InetSocketAddressFlowinfoPropertyInfo = "flowinfo"
type AttrOrigin InetSocketAddressFlowinfoPropertyInfo = InetSocketAddress
attrGet _ = getInetSocketAddressFlowinfo
attrSet _ = undefined
attrConstruct _ = constructInetSocketAddressFlowinfo
attrClear _ = undefined
getInetSocketAddressPort :: (MonadIO m, IsInetSocketAddress o) => o -> m Word32
getInetSocketAddressPort obj = liftIO $ getObjectPropertyUInt32 obj "port"
constructInetSocketAddressPort :: (IsInetSocketAddress o) => Word32 -> IO (GValueConstruct o)
constructInetSocketAddressPort val = constructObjectPropertyUInt32 "port" val
data InetSocketAddressPortPropertyInfo
instance AttrInfo InetSocketAddressPortPropertyInfo where
type AttrAllowedOps InetSocketAddressPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint InetSocketAddressPortPropertyInfo = (~) Word32
type AttrBaseTypeConstraint InetSocketAddressPortPropertyInfo = IsInetSocketAddress
type AttrGetType InetSocketAddressPortPropertyInfo = Word32
type AttrLabel InetSocketAddressPortPropertyInfo = "port"
type AttrOrigin InetSocketAddressPortPropertyInfo = InetSocketAddress
attrGet _ = getInetSocketAddressPort
attrSet _ = undefined
attrConstruct _ = constructInetSocketAddressPort
attrClear _ = undefined
getInetSocketAddressScopeId :: (MonadIO m, IsInetSocketAddress o) => o -> m Word32
getInetSocketAddressScopeId obj = liftIO $ getObjectPropertyUInt32 obj "scope-id"
constructInetSocketAddressScopeId :: (IsInetSocketAddress o) => Word32 -> IO (GValueConstruct o)
constructInetSocketAddressScopeId val = constructObjectPropertyUInt32 "scope-id" val
data InetSocketAddressScopeIdPropertyInfo
instance AttrInfo InetSocketAddressScopeIdPropertyInfo where
type AttrAllowedOps InetSocketAddressScopeIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint InetSocketAddressScopeIdPropertyInfo = (~) Word32
type AttrBaseTypeConstraint InetSocketAddressScopeIdPropertyInfo = IsInetSocketAddress
type AttrGetType InetSocketAddressScopeIdPropertyInfo = Word32
type AttrLabel InetSocketAddressScopeIdPropertyInfo = "scope-id"
type AttrOrigin InetSocketAddressScopeIdPropertyInfo = InetSocketAddress
attrGet _ = getInetSocketAddressScopeId
attrSet _ = undefined
attrConstruct _ = constructInetSocketAddressScopeId
attrClear _ = undefined
instance O.HasAttributeList InetSocketAddress
type instance O.AttributeList InetSocketAddress = InetSocketAddressAttributeList
type InetSocketAddressAttributeList = ('[ '("address", InetSocketAddressAddressPropertyInfo), '("family", Gio.SocketAddress.SocketAddressFamilyPropertyInfo), '("flowinfo", InetSocketAddressFlowinfoPropertyInfo), '("port", InetSocketAddressPortPropertyInfo), '("scopeId", InetSocketAddressScopeIdPropertyInfo)] :: [(Symbol, *)])
inetSocketAddressAddress :: AttrLabelProxy "address"
inetSocketAddressAddress = AttrLabelProxy
inetSocketAddressFlowinfo :: AttrLabelProxy "flowinfo"
inetSocketAddressFlowinfo = AttrLabelProxy
inetSocketAddressPort :: AttrLabelProxy "port"
inetSocketAddressPort = AttrLabelProxy
inetSocketAddressScopeId :: AttrLabelProxy "scopeId"
inetSocketAddressScopeId = AttrLabelProxy
type instance O.SignalList InetSocketAddress = InetSocketAddressSignalList
type InetSocketAddressSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_inet_socket_address_new" g_inet_socket_address_new ::
Ptr Gio.InetAddress.InetAddress ->
Word16 ->
IO (Ptr InetSocketAddress)
inetSocketAddressNew ::
(B.CallStack.HasCallStack, MonadIO m, Gio.InetAddress.IsInetAddress a) =>
a
-> Word16
-> m InetSocketAddress
inetSocketAddressNew address port = liftIO $ do
address' <- unsafeManagedPtrCastPtr address
result <- g_inet_socket_address_new address' port
checkUnexpectedReturnNULL "inetSocketAddressNew" result
result' <- (wrapObject InetSocketAddress) result
touchManagedPtr address
return result'
foreign import ccall "g_inet_socket_address_new_from_string" g_inet_socket_address_new_from_string ::
CString ->
Word32 ->
IO (Ptr InetSocketAddress)
inetSocketAddressNewFromString ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> Word32
-> m InetSocketAddress
inetSocketAddressNewFromString address port = liftIO $ do
address' <- textToCString address
result <- g_inet_socket_address_new_from_string address' port
checkUnexpectedReturnNULL "inetSocketAddressNewFromString" result
result' <- (wrapObject InetSocketAddress) result
freeMem address'
return result'
foreign import ccall "g_inet_socket_address_get_address" g_inet_socket_address_get_address ::
Ptr InetSocketAddress ->
IO (Ptr Gio.InetAddress.InetAddress)
inetSocketAddressGetAddress ::
(B.CallStack.HasCallStack, MonadIO m, IsInetSocketAddress a) =>
a
-> m Gio.InetAddress.InetAddress
inetSocketAddressGetAddress address = liftIO $ do
address' <- unsafeManagedPtrCastPtr address
result <- g_inet_socket_address_get_address address'
checkUnexpectedReturnNULL "inetSocketAddressGetAddress" result
result' <- (newObject Gio.InetAddress.InetAddress) result
touchManagedPtr address
return result'
data InetSocketAddressGetAddressMethodInfo
instance (signature ~ (m Gio.InetAddress.InetAddress), MonadIO m, IsInetSocketAddress a) => O.MethodInfo InetSocketAddressGetAddressMethodInfo a signature where
overloadedMethod _ = inetSocketAddressGetAddress
foreign import ccall "g_inet_socket_address_get_flowinfo" g_inet_socket_address_get_flowinfo ::
Ptr InetSocketAddress ->
IO Word32
inetSocketAddressGetFlowinfo ::
(B.CallStack.HasCallStack, MonadIO m, IsInetSocketAddress a) =>
a
-> m Word32
inetSocketAddressGetFlowinfo address = liftIO $ do
address' <- unsafeManagedPtrCastPtr address
result <- g_inet_socket_address_get_flowinfo address'
touchManagedPtr address
return result
data InetSocketAddressGetFlowinfoMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsInetSocketAddress a) => O.MethodInfo InetSocketAddressGetFlowinfoMethodInfo a signature where
overloadedMethod _ = inetSocketAddressGetFlowinfo
foreign import ccall "g_inet_socket_address_get_port" g_inet_socket_address_get_port ::
Ptr InetSocketAddress ->
IO Word16
inetSocketAddressGetPort ::
(B.CallStack.HasCallStack, MonadIO m, IsInetSocketAddress a) =>
a
-> m Word16
inetSocketAddressGetPort address = liftIO $ do
address' <- unsafeManagedPtrCastPtr address
result <- g_inet_socket_address_get_port address'
touchManagedPtr address
return result
data InetSocketAddressGetPortMethodInfo
instance (signature ~ (m Word16), MonadIO m, IsInetSocketAddress a) => O.MethodInfo InetSocketAddressGetPortMethodInfo a signature where
overloadedMethod _ = inetSocketAddressGetPort
foreign import ccall "g_inet_socket_address_get_scope_id" g_inet_socket_address_get_scope_id ::
Ptr InetSocketAddress ->
IO Word32
inetSocketAddressGetScopeId ::
(B.CallStack.HasCallStack, MonadIO m, IsInetSocketAddress a) =>
a
-> m Word32
inetSocketAddressGetScopeId address = liftIO $ do
address' <- unsafeManagedPtrCastPtr address
result <- g_inet_socket_address_get_scope_id address'
touchManagedPtr address
return result
data InetSocketAddressGetScopeIdMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsInetSocketAddress a) => O.MethodInfo InetSocketAddressGetScopeIdMethodInfo a signature where
overloadedMethod _ = inetSocketAddressGetScopeId