module GI.Gio.Objects.InetAddressMask
(
InetAddressMask(..) ,
InetAddressMaskK ,
toInetAddressMask ,
noInetAddressMask ,
inetAddressMaskEqual ,
inetAddressMaskGetAddress ,
inetAddressMaskGetFamily ,
inetAddressMaskGetLength ,
inetAddressMaskMatches ,
inetAddressMaskNew ,
inetAddressMaskNewFromString ,
inetAddressMaskToString ,
InetAddressMaskAddressPropertyInfo ,
constructInetAddressMaskAddress ,
getInetAddressMaskAddress ,
setInetAddressMaskAddress ,
InetAddressMaskFamilyPropertyInfo ,
getInetAddressMaskFamily ,
InetAddressMaskLengthPropertyInfo ,
constructInetAddressMaskLength ,
getInetAddressMaskLength ,
setInetAddressMaskLength ,
) 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 InetAddressMask = InetAddressMask (ForeignPtr InetAddressMask)
foreign import ccall "g_inet_address_mask_get_type"
c_g_inet_address_mask_get_type :: IO GType
type instance ParentTypes InetAddressMask = InetAddressMaskParentTypes
type InetAddressMaskParentTypes = '[GObject.Object, Initable]
instance GObject InetAddressMask where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_inet_address_mask_get_type
class GObject o => InetAddressMaskK o
instance (GObject o, IsDescendantOf InetAddressMask o) => InetAddressMaskK o
toInetAddressMask :: InetAddressMaskK o => o -> IO InetAddressMask
toInetAddressMask = unsafeCastTo InetAddressMask
noInetAddressMask :: Maybe InetAddressMask
noInetAddressMask = Nothing
getInetAddressMaskAddress :: (MonadIO m, InetAddressMaskK o) => o -> m InetAddress
getInetAddressMaskAddress obj = liftIO $ getObjectPropertyObject obj "address" InetAddress
setInetAddressMaskAddress :: (MonadIO m, InetAddressMaskK o, InetAddressK a) => o -> a -> m ()
setInetAddressMaskAddress obj val = liftIO $ setObjectPropertyObject obj "address" val
constructInetAddressMaskAddress :: (InetAddressK a) => a -> IO ([Char], GValue)
constructInetAddressMaskAddress val = constructObjectPropertyObject "address" val
data InetAddressMaskAddressPropertyInfo
instance AttrInfo InetAddressMaskAddressPropertyInfo where
type AttrAllowedOps InetAddressMaskAddressPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint InetAddressMaskAddressPropertyInfo = InetAddressK
type AttrBaseTypeConstraint InetAddressMaskAddressPropertyInfo = InetAddressMaskK
type AttrGetType InetAddressMaskAddressPropertyInfo = InetAddress
type AttrLabel InetAddressMaskAddressPropertyInfo = "InetAddressMask::address"
attrGet _ = getInetAddressMaskAddress
attrSet _ = setInetAddressMaskAddress
attrConstruct _ = constructInetAddressMaskAddress
getInetAddressMaskFamily :: (MonadIO m, InetAddressMaskK o) => o -> m SocketFamily
getInetAddressMaskFamily obj = liftIO $ getObjectPropertyEnum obj "family"
data InetAddressMaskFamilyPropertyInfo
instance AttrInfo InetAddressMaskFamilyPropertyInfo where
type AttrAllowedOps InetAddressMaskFamilyPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint InetAddressMaskFamilyPropertyInfo = (~) ()
type AttrBaseTypeConstraint InetAddressMaskFamilyPropertyInfo = InetAddressMaskK
type AttrGetType InetAddressMaskFamilyPropertyInfo = SocketFamily
type AttrLabel InetAddressMaskFamilyPropertyInfo = "InetAddressMask::family"
attrGet _ = getInetAddressMaskFamily
attrSet _ = undefined
attrConstruct _ = undefined
getInetAddressMaskLength :: (MonadIO m, InetAddressMaskK o) => o -> m Word32
getInetAddressMaskLength obj = liftIO $ getObjectPropertyCUInt obj "length"
setInetAddressMaskLength :: (MonadIO m, InetAddressMaskK o) => o -> Word32 -> m ()
setInetAddressMaskLength obj val = liftIO $ setObjectPropertyCUInt obj "length" val
constructInetAddressMaskLength :: Word32 -> IO ([Char], GValue)
constructInetAddressMaskLength val = constructObjectPropertyCUInt "length" val
data InetAddressMaskLengthPropertyInfo
instance AttrInfo InetAddressMaskLengthPropertyInfo where
type AttrAllowedOps InetAddressMaskLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint InetAddressMaskLengthPropertyInfo = (~) Word32
type AttrBaseTypeConstraint InetAddressMaskLengthPropertyInfo = InetAddressMaskK
type AttrGetType InetAddressMaskLengthPropertyInfo = Word32
type AttrLabel InetAddressMaskLengthPropertyInfo = "InetAddressMask::length"
attrGet _ = getInetAddressMaskLength
attrSet _ = setInetAddressMaskLength
attrConstruct _ = constructInetAddressMaskLength
type instance AttributeList InetAddressMask = InetAddressMaskAttributeList
type InetAddressMaskAttributeList = ('[ '("address", InetAddressMaskAddressPropertyInfo), '("family", InetAddressMaskFamilyPropertyInfo), '("length", InetAddressMaskLengthPropertyInfo)] :: [(Symbol, *)])
type instance SignalList InetAddressMask = InetAddressMaskSignalList
type InetAddressMaskSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_inet_address_mask_new" g_inet_address_mask_new ::
Ptr InetAddress ->
Word32 ->
Ptr (Ptr GError) ->
IO (Ptr InetAddressMask)
inetAddressMaskNew ::
(MonadIO m, InetAddressK a) =>
a ->
Word32 ->
m InetAddressMask
inetAddressMaskNew addr length_ = liftIO $ do
let addr' = unsafeManagedPtrCastPtr addr
onException (do
result <- propagateGError $ g_inet_address_mask_new addr' length_
checkUnexpectedReturnNULL "g_inet_address_mask_new" result
result' <- (wrapObject InetAddressMask) result
touchManagedPtr addr
return result'
) (do
return ()
)
foreign import ccall "g_inet_address_mask_new_from_string" g_inet_address_mask_new_from_string ::
CString ->
Ptr (Ptr GError) ->
IO (Ptr InetAddressMask)
inetAddressMaskNewFromString ::
(MonadIO m) =>
T.Text ->
m InetAddressMask
inetAddressMaskNewFromString mask_string = liftIO $ do
mask_string' <- textToCString mask_string
onException (do
result <- propagateGError $ g_inet_address_mask_new_from_string mask_string'
checkUnexpectedReturnNULL "g_inet_address_mask_new_from_string" result
result' <- (wrapObject InetAddressMask) result
freeMem mask_string'
return result'
) (do
freeMem mask_string'
)
foreign import ccall "g_inet_address_mask_equal" g_inet_address_mask_equal ::
Ptr InetAddressMask ->
Ptr InetAddressMask ->
IO CInt
inetAddressMaskEqual ::
(MonadIO m, InetAddressMaskK a, InetAddressMaskK b) =>
a ->
b ->
m Bool
inetAddressMaskEqual _obj mask2 = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mask2' = unsafeManagedPtrCastPtr mask2
result <- g_inet_address_mask_equal _obj' mask2'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr mask2
return result'
foreign import ccall "g_inet_address_mask_get_address" g_inet_address_mask_get_address ::
Ptr InetAddressMask ->
IO (Ptr InetAddress)
inetAddressMaskGetAddress ::
(MonadIO m, InetAddressMaskK a) =>
a ->
m InetAddress
inetAddressMaskGetAddress _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_inet_address_mask_get_address _obj'
checkUnexpectedReturnNULL "g_inet_address_mask_get_address" result
result' <- (newObject InetAddress) result
touchManagedPtr _obj
return result'
foreign import ccall "g_inet_address_mask_get_family" g_inet_address_mask_get_family ::
Ptr InetAddressMask ->
IO CUInt
inetAddressMaskGetFamily ::
(MonadIO m, InetAddressMaskK a) =>
a ->
m SocketFamily
inetAddressMaskGetFamily _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_inet_address_mask_get_family _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "g_inet_address_mask_get_length" g_inet_address_mask_get_length ::
Ptr InetAddressMask ->
IO Word32
inetAddressMaskGetLength ::
(MonadIO m, InetAddressMaskK a) =>
a ->
m Word32
inetAddressMaskGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_inet_address_mask_get_length _obj'
touchManagedPtr _obj
return result
foreign import ccall "g_inet_address_mask_matches" g_inet_address_mask_matches ::
Ptr InetAddressMask ->
Ptr InetAddress ->
IO CInt
inetAddressMaskMatches ::
(MonadIO m, InetAddressMaskK a, InetAddressK b) =>
a ->
b ->
m Bool
inetAddressMaskMatches _obj address = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let address' = unsafeManagedPtrCastPtr address
result <- g_inet_address_mask_matches _obj' address'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr address
return result'
foreign import ccall "g_inet_address_mask_to_string" g_inet_address_mask_to_string ::
Ptr InetAddressMask ->
IO CString
inetAddressMaskToString ::
(MonadIO m, InetAddressMaskK a) =>
a ->
m T.Text
inetAddressMaskToString _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_inet_address_mask_to_string _obj'
checkUnexpectedReturnNULL "g_inet_address_mask_to_string" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'