module GI.Gio.Objects.UnixSocketAddress
(
UnixSocketAddress(..) ,
IsUnixSocketAddress ,
toUnixSocketAddress ,
noUnixSocketAddress ,
unixSocketAddressAbstractNamesSupported ,
UnixSocketAddressGetAddressTypeMethodInfo,
unixSocketAddressGetAddressType ,
UnixSocketAddressGetIsAbstractMethodInfo,
unixSocketAddressGetIsAbstract ,
UnixSocketAddressGetPathMethodInfo ,
unixSocketAddressGetPath ,
UnixSocketAddressGetPathLenMethodInfo ,
unixSocketAddressGetPathLen ,
unixSocketAddressNew ,
unixSocketAddressNewAbstract ,
unixSocketAddressNewWithType ,
UnixSocketAddressAbstractPropertyInfo ,
constructUnixSocketAddressAbstract ,
getUnixSocketAddressAbstract ,
unixSocketAddressAbstract ,
UnixSocketAddressAddressTypePropertyInfo,
constructUnixSocketAddressAddressType ,
getUnixSocketAddressAddressType ,
unixSocketAddressAddressType ,
UnixSocketAddressPathPropertyInfo ,
constructUnixSocketAddressPath ,
getUnixSocketAddressPath ,
unixSocketAddressPath ,
UnixSocketAddressPathAsArrayPropertyInfo,
constructUnixSocketAddressPathAsArray ,
getUnixSocketAddressPathAsArray ,
unixSocketAddressPathAsArray ,
) 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.Enums as Gio.Enums
import qualified GI.Gio.Interfaces.SocketConnectable as Gio.SocketConnectable
import qualified GI.Gio.Objects.SocketAddress as Gio.SocketAddress
newtype UnixSocketAddress = UnixSocketAddress (ManagedPtr UnixSocketAddress)
foreign import ccall "g_unix_socket_address_get_type"
c_g_unix_socket_address_get_type :: IO GType
instance GObject UnixSocketAddress where
gobjectType _ = c_g_unix_socket_address_get_type
class GObject o => IsUnixSocketAddress o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError UnixSocketAddress a) =>
IsUnixSocketAddress a
#endif
instance IsUnixSocketAddress UnixSocketAddress
instance Gio.SocketAddress.IsSocketAddress UnixSocketAddress
instance GObject.Object.IsObject UnixSocketAddress
instance Gio.SocketConnectable.IsSocketConnectable UnixSocketAddress
toUnixSocketAddress :: IsUnixSocketAddress o => o -> IO UnixSocketAddress
toUnixSocketAddress = unsafeCastTo UnixSocketAddress
noUnixSocketAddress :: Maybe UnixSocketAddress
noUnixSocketAddress = Nothing
type family ResolveUnixSocketAddressMethod (t :: Symbol) (o :: *) :: * where
ResolveUnixSocketAddressMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveUnixSocketAddressMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveUnixSocketAddressMethod "enumerate" o = Gio.SocketConnectable.SocketConnectableEnumerateMethodInfo
ResolveUnixSocketAddressMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveUnixSocketAddressMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveUnixSocketAddressMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveUnixSocketAddressMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveUnixSocketAddressMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveUnixSocketAddressMethod "proxyEnumerate" o = Gio.SocketConnectable.SocketConnectableProxyEnumerateMethodInfo
ResolveUnixSocketAddressMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveUnixSocketAddressMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveUnixSocketAddressMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveUnixSocketAddressMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveUnixSocketAddressMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveUnixSocketAddressMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveUnixSocketAddressMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveUnixSocketAddressMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveUnixSocketAddressMethod "toNative" o = Gio.SocketAddress.SocketAddressToNativeMethodInfo
ResolveUnixSocketAddressMethod "toString" o = Gio.SocketConnectable.SocketConnectableToStringMethodInfo
ResolveUnixSocketAddressMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveUnixSocketAddressMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveUnixSocketAddressMethod "getAddressType" o = UnixSocketAddressGetAddressTypeMethodInfo
ResolveUnixSocketAddressMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveUnixSocketAddressMethod "getFamily" o = Gio.SocketAddress.SocketAddressGetFamilyMethodInfo
ResolveUnixSocketAddressMethod "getIsAbstract" o = UnixSocketAddressGetIsAbstractMethodInfo
ResolveUnixSocketAddressMethod "getNativeSize" o = Gio.SocketAddress.SocketAddressGetNativeSizeMethodInfo
ResolveUnixSocketAddressMethod "getPath" o = UnixSocketAddressGetPathMethodInfo
ResolveUnixSocketAddressMethod "getPathLen" o = UnixSocketAddressGetPathLenMethodInfo
ResolveUnixSocketAddressMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveUnixSocketAddressMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveUnixSocketAddressMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveUnixSocketAddressMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveUnixSocketAddressMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveUnixSocketAddressMethod t UnixSocketAddress, O.MethodInfo info UnixSocketAddress p) => O.IsLabelProxy t (UnixSocketAddress -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveUnixSocketAddressMethod t UnixSocketAddress, O.MethodInfo info UnixSocketAddress p) => O.IsLabel t (UnixSocketAddress -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
getUnixSocketAddressAbstract :: (MonadIO m, IsUnixSocketAddress o) => o -> m Bool
getUnixSocketAddressAbstract obj = liftIO $ getObjectPropertyBool obj "abstract"
constructUnixSocketAddressAbstract :: (IsUnixSocketAddress o) => Bool -> IO (GValueConstruct o)
constructUnixSocketAddressAbstract val = constructObjectPropertyBool "abstract" val
data UnixSocketAddressAbstractPropertyInfo
instance AttrInfo UnixSocketAddressAbstractPropertyInfo where
type AttrAllowedOps UnixSocketAddressAbstractPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint UnixSocketAddressAbstractPropertyInfo = (~) Bool
type AttrBaseTypeConstraint UnixSocketAddressAbstractPropertyInfo = IsUnixSocketAddress
type AttrGetType UnixSocketAddressAbstractPropertyInfo = Bool
type AttrLabel UnixSocketAddressAbstractPropertyInfo = "abstract"
type AttrOrigin UnixSocketAddressAbstractPropertyInfo = UnixSocketAddress
attrGet _ = getUnixSocketAddressAbstract
attrSet _ = undefined
attrConstruct _ = constructUnixSocketAddressAbstract
attrClear _ = undefined
getUnixSocketAddressAddressType :: (MonadIO m, IsUnixSocketAddress o) => o -> m Gio.Enums.UnixSocketAddressType
getUnixSocketAddressAddressType obj = liftIO $ getObjectPropertyEnum obj "address-type"
constructUnixSocketAddressAddressType :: (IsUnixSocketAddress o) => Gio.Enums.UnixSocketAddressType -> IO (GValueConstruct o)
constructUnixSocketAddressAddressType val = constructObjectPropertyEnum "address-type" val
data UnixSocketAddressAddressTypePropertyInfo
instance AttrInfo UnixSocketAddressAddressTypePropertyInfo where
type AttrAllowedOps UnixSocketAddressAddressTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint UnixSocketAddressAddressTypePropertyInfo = (~) Gio.Enums.UnixSocketAddressType
type AttrBaseTypeConstraint UnixSocketAddressAddressTypePropertyInfo = IsUnixSocketAddress
type AttrGetType UnixSocketAddressAddressTypePropertyInfo = Gio.Enums.UnixSocketAddressType
type AttrLabel UnixSocketAddressAddressTypePropertyInfo = "address-type"
type AttrOrigin UnixSocketAddressAddressTypePropertyInfo = UnixSocketAddress
attrGet _ = getUnixSocketAddressAddressType
attrSet _ = undefined
attrConstruct _ = constructUnixSocketAddressAddressType
attrClear _ = undefined
getUnixSocketAddressPath :: (MonadIO m, IsUnixSocketAddress o) => o -> m T.Text
getUnixSocketAddressPath obj = liftIO $ checkUnexpectedNothing "getUnixSocketAddressPath" $ getObjectPropertyString obj "path"
constructUnixSocketAddressPath :: (IsUnixSocketAddress o) => T.Text -> IO (GValueConstruct o)
constructUnixSocketAddressPath val = constructObjectPropertyString "path" (Just val)
data UnixSocketAddressPathPropertyInfo
instance AttrInfo UnixSocketAddressPathPropertyInfo where
type AttrAllowedOps UnixSocketAddressPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint UnixSocketAddressPathPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint UnixSocketAddressPathPropertyInfo = IsUnixSocketAddress
type AttrGetType UnixSocketAddressPathPropertyInfo = T.Text
type AttrLabel UnixSocketAddressPathPropertyInfo = "path"
type AttrOrigin UnixSocketAddressPathPropertyInfo = UnixSocketAddress
attrGet _ = getUnixSocketAddressPath
attrSet _ = undefined
attrConstruct _ = constructUnixSocketAddressPath
attrClear _ = undefined
getUnixSocketAddressPathAsArray :: (MonadIO m, IsUnixSocketAddress o) => o -> m (Maybe ByteString)
getUnixSocketAddressPathAsArray obj = liftIO $ getObjectPropertyByteArray obj "path-as-array"
constructUnixSocketAddressPathAsArray :: (IsUnixSocketAddress o) => ByteString -> IO (GValueConstruct o)
constructUnixSocketAddressPathAsArray val = constructObjectPropertyByteArray "path-as-array" (Just val)
data UnixSocketAddressPathAsArrayPropertyInfo
instance AttrInfo UnixSocketAddressPathAsArrayPropertyInfo where
type AttrAllowedOps UnixSocketAddressPathAsArrayPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint UnixSocketAddressPathAsArrayPropertyInfo = (~) ByteString
type AttrBaseTypeConstraint UnixSocketAddressPathAsArrayPropertyInfo = IsUnixSocketAddress
type AttrGetType UnixSocketAddressPathAsArrayPropertyInfo = (Maybe ByteString)
type AttrLabel UnixSocketAddressPathAsArrayPropertyInfo = "path-as-array"
type AttrOrigin UnixSocketAddressPathAsArrayPropertyInfo = UnixSocketAddress
attrGet _ = getUnixSocketAddressPathAsArray
attrSet _ = undefined
attrConstruct _ = constructUnixSocketAddressPathAsArray
attrClear _ = undefined
instance O.HasAttributeList UnixSocketAddress
type instance O.AttributeList UnixSocketAddress = UnixSocketAddressAttributeList
type UnixSocketAddressAttributeList = ('[ '("abstract", UnixSocketAddressAbstractPropertyInfo), '("addressType", UnixSocketAddressAddressTypePropertyInfo), '("family", Gio.SocketAddress.SocketAddressFamilyPropertyInfo), '("path", UnixSocketAddressPathPropertyInfo), '("pathAsArray", UnixSocketAddressPathAsArrayPropertyInfo)] :: [(Symbol, *)])
unixSocketAddressAbstract :: AttrLabelProxy "abstract"
unixSocketAddressAbstract = AttrLabelProxy
unixSocketAddressAddressType :: AttrLabelProxy "addressType"
unixSocketAddressAddressType = AttrLabelProxy
unixSocketAddressPath :: AttrLabelProxy "path"
unixSocketAddressPath = AttrLabelProxy
unixSocketAddressPathAsArray :: AttrLabelProxy "pathAsArray"
unixSocketAddressPathAsArray = AttrLabelProxy
type instance O.SignalList UnixSocketAddress = UnixSocketAddressSignalList
type UnixSocketAddressSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_unix_socket_address_new" g_unix_socket_address_new ::
CString ->
IO (Ptr UnixSocketAddress)
unixSocketAddressNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m UnixSocketAddress
unixSocketAddressNew path = liftIO $ do
path' <- textToCString path
result <- g_unix_socket_address_new path'
checkUnexpectedReturnNULL "unixSocketAddressNew" result
result' <- (wrapObject UnixSocketAddress) result
freeMem path'
return result'
foreign import ccall "g_unix_socket_address_new_abstract" g_unix_socket_address_new_abstract ::
Ptr Int8 ->
Int32 ->
IO (Ptr UnixSocketAddress)
unixSocketAddressNewAbstract ::
(B.CallStack.HasCallStack, MonadIO m) =>
[Int8]
-> m UnixSocketAddress
unixSocketAddressNewAbstract path = liftIO $ do
let pathLen = fromIntegral $ length path
path' <- packStorableArray path
result <- g_unix_socket_address_new_abstract path' pathLen
checkUnexpectedReturnNULL "unixSocketAddressNewAbstract" result
result' <- (wrapObject UnixSocketAddress) result
freeMem path'
return result'
foreign import ccall "g_unix_socket_address_new_with_type" g_unix_socket_address_new_with_type ::
Ptr Int8 ->
Int32 ->
CUInt ->
IO (Ptr UnixSocketAddress)
unixSocketAddressNewWithType ::
(B.CallStack.HasCallStack, MonadIO m) =>
[Int8]
-> Gio.Enums.UnixSocketAddressType
-> m UnixSocketAddress
unixSocketAddressNewWithType path type_ = liftIO $ do
let pathLen = fromIntegral $ length path
path' <- packStorableArray path
let type_' = (fromIntegral . fromEnum) type_
result <- g_unix_socket_address_new_with_type path' pathLen type_'
checkUnexpectedReturnNULL "unixSocketAddressNewWithType" result
result' <- (wrapObject UnixSocketAddress) result
freeMem path'
return result'
foreign import ccall "g_unix_socket_address_get_address_type" g_unix_socket_address_get_address_type ::
Ptr UnixSocketAddress ->
IO CUInt
unixSocketAddressGetAddressType ::
(B.CallStack.HasCallStack, MonadIO m, IsUnixSocketAddress a) =>
a
-> m Gio.Enums.UnixSocketAddressType
unixSocketAddressGetAddressType address = liftIO $ do
address' <- unsafeManagedPtrCastPtr address
result <- g_unix_socket_address_get_address_type address'
let result' = (toEnum . fromIntegral) result
touchManagedPtr address
return result'
data UnixSocketAddressGetAddressTypeMethodInfo
instance (signature ~ (m Gio.Enums.UnixSocketAddressType), MonadIO m, IsUnixSocketAddress a) => O.MethodInfo UnixSocketAddressGetAddressTypeMethodInfo a signature where
overloadedMethod _ = unixSocketAddressGetAddressType
foreign import ccall "g_unix_socket_address_get_is_abstract" g_unix_socket_address_get_is_abstract ::
Ptr UnixSocketAddress ->
IO CInt
unixSocketAddressGetIsAbstract ::
(B.CallStack.HasCallStack, MonadIO m, IsUnixSocketAddress a) =>
a
-> m Bool
unixSocketAddressGetIsAbstract address = liftIO $ do
address' <- unsafeManagedPtrCastPtr address
result <- g_unix_socket_address_get_is_abstract address'
let result' = (/= 0) result
touchManagedPtr address
return result'
data UnixSocketAddressGetIsAbstractMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsUnixSocketAddress a) => O.MethodInfo UnixSocketAddressGetIsAbstractMethodInfo a signature where
overloadedMethod _ = unixSocketAddressGetIsAbstract
foreign import ccall "g_unix_socket_address_get_path" g_unix_socket_address_get_path ::
Ptr UnixSocketAddress ->
IO CString
unixSocketAddressGetPath ::
(B.CallStack.HasCallStack, MonadIO m, IsUnixSocketAddress a) =>
a
-> m T.Text
unixSocketAddressGetPath address = liftIO $ do
address' <- unsafeManagedPtrCastPtr address
result <- g_unix_socket_address_get_path address'
checkUnexpectedReturnNULL "unixSocketAddressGetPath" result
result' <- cstringToText result
touchManagedPtr address
return result'
data UnixSocketAddressGetPathMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsUnixSocketAddress a) => O.MethodInfo UnixSocketAddressGetPathMethodInfo a signature where
overloadedMethod _ = unixSocketAddressGetPath
foreign import ccall "g_unix_socket_address_get_path_len" g_unix_socket_address_get_path_len ::
Ptr UnixSocketAddress ->
IO Word64
unixSocketAddressGetPathLen ::
(B.CallStack.HasCallStack, MonadIO m, IsUnixSocketAddress a) =>
a
-> m Word64
unixSocketAddressGetPathLen address = liftIO $ do
address' <- unsafeManagedPtrCastPtr address
result <- g_unix_socket_address_get_path_len address'
touchManagedPtr address
return result
data UnixSocketAddressGetPathLenMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsUnixSocketAddress a) => O.MethodInfo UnixSocketAddressGetPathLenMethodInfo a signature where
overloadedMethod _ = unixSocketAddressGetPathLen
foreign import ccall "g_unix_socket_address_abstract_names_supported" g_unix_socket_address_abstract_names_supported ::
IO CInt
unixSocketAddressAbstractNamesSupported ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Bool
unixSocketAddressAbstractNamesSupported = liftIO $ do
result <- g_unix_socket_address_abstract_names_supported
let result' = (/= 0) result
return result'