#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Gio.Objects.SocketControlMessage
(
SocketControlMessage(..) ,
IsSocketControlMessage ,
toSocketControlMessage ,
noSocketControlMessage ,
socketControlMessageDeserialize ,
#if ENABLE_OVERLOADING
SocketControlMessageGetLevelMethodInfo ,
#endif
socketControlMessageGetLevel ,
#if ENABLE_OVERLOADING
SocketControlMessageGetMsgTypeMethodInfo,
#endif
socketControlMessageGetMsgType ,
#if ENABLE_OVERLOADING
SocketControlMessageGetSizeMethodInfo ,
#endif
socketControlMessageGetSize ,
#if ENABLE_OVERLOADING
SocketControlMessageSerializeMethodInfo ,
#endif
socketControlMessageSerialize ,
) 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.GValue as B.GValue
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
newtype SocketControlMessage = SocketControlMessage (ManagedPtr SocketControlMessage)
foreign import ccall "g_socket_control_message_get_type"
c_g_socket_control_message_get_type :: IO GType
instance GObject SocketControlMessage where
gobjectType :: SocketControlMessage -> IO GType
gobjectType _ = IO GType
c_g_socket_control_message_get_type
class GObject o => IsSocketControlMessage o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError SocketControlMessage a) =>
IsSocketControlMessage a
#endif
instance IsSocketControlMessage SocketControlMessage
instance GObject.Object.IsObject SocketControlMessage
toSocketControlMessage :: (MonadIO m, IsSocketControlMessage o) => o -> m SocketControlMessage
toSocketControlMessage :: o -> m SocketControlMessage
toSocketControlMessage = IO SocketControlMessage -> m SocketControlMessage
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SocketControlMessage -> m SocketControlMessage)
-> (o -> IO SocketControlMessage) -> o -> m SocketControlMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr SocketControlMessage -> SocketControlMessage)
-> o -> IO SocketControlMessage
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr SocketControlMessage -> SocketControlMessage
SocketControlMessage
noSocketControlMessage :: Maybe SocketControlMessage
noSocketControlMessage :: Maybe SocketControlMessage
noSocketControlMessage = Maybe SocketControlMessage
forall a. Maybe a
Nothing
#if ENABLE_OVERLOADING
type family ResolveSocketControlMessageMethod (t :: Symbol) (o :: *) :: * where
ResolveSocketControlMessageMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSocketControlMessageMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSocketControlMessageMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSocketControlMessageMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSocketControlMessageMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSocketControlMessageMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSocketControlMessageMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSocketControlMessageMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSocketControlMessageMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSocketControlMessageMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSocketControlMessageMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSocketControlMessageMethod "serialize" o = SocketControlMessageSerializeMethodInfo
ResolveSocketControlMessageMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSocketControlMessageMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSocketControlMessageMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSocketControlMessageMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSocketControlMessageMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSocketControlMessageMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSocketControlMessageMethod "getLevel" o = SocketControlMessageGetLevelMethodInfo
ResolveSocketControlMessageMethod "getMsgType" o = SocketControlMessageGetMsgTypeMethodInfo
ResolveSocketControlMessageMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSocketControlMessageMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSocketControlMessageMethod "getSize" o = SocketControlMessageGetSizeMethodInfo
ResolveSocketControlMessageMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSocketControlMessageMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSocketControlMessageMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSocketControlMessageMethod t SocketControlMessage, O.MethodInfo info SocketControlMessage p) => O.IsLabelProxy t (SocketControlMessage -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveSocketControlMessageMethod t SocketControlMessage, O.MethodInfo info SocketControlMessage p) => O.IsLabel t (SocketControlMessage -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList SocketControlMessage
type instance O.AttributeList SocketControlMessage = SocketControlMessageAttributeList
type SocketControlMessageAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList SocketControlMessage = SocketControlMessageSignalList
type SocketControlMessageSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_socket_control_message_get_level" g_socket_control_message_get_level ::
Ptr SocketControlMessage ->
IO Int32
socketControlMessageGetLevel ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketControlMessage a) =>
a
-> m Int32
socketControlMessageGetLevel :: a -> m Int32
socketControlMessageGetLevel message :: a
message = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr SocketControlMessage
message' <- a -> IO (Ptr SocketControlMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
message
Int32
result <- Ptr SocketControlMessage -> IO Int32
g_socket_control_message_get_level Ptr SocketControlMessage
message'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
message
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data SocketControlMessageGetLevelMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsSocketControlMessage a) => O.MethodInfo SocketControlMessageGetLevelMethodInfo a signature where
overloadedMethod _ = socketControlMessageGetLevel
#endif
foreign import ccall "g_socket_control_message_get_msg_type" g_socket_control_message_get_msg_type ::
Ptr SocketControlMessage ->
IO Int32
socketControlMessageGetMsgType ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketControlMessage a) =>
a
-> m Int32
socketControlMessageGetMsgType :: a -> m Int32
socketControlMessageGetMsgType message :: a
message = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr SocketControlMessage
message' <- a -> IO (Ptr SocketControlMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
message
Int32
result <- Ptr SocketControlMessage -> IO Int32
g_socket_control_message_get_msg_type Ptr SocketControlMessage
message'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
message
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data SocketControlMessageGetMsgTypeMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsSocketControlMessage a) => O.MethodInfo SocketControlMessageGetMsgTypeMethodInfo a signature where
overloadedMethod _ = socketControlMessageGetMsgType
#endif
foreign import ccall "g_socket_control_message_get_size" g_socket_control_message_get_size ::
Ptr SocketControlMessage ->
IO Word64
socketControlMessageGetSize ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketControlMessage a) =>
a
-> m Word64
socketControlMessageGetSize :: a -> m Word64
socketControlMessageGetSize message :: a
message = IO Word64 -> m Word64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr SocketControlMessage
message' <- a -> IO (Ptr SocketControlMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
message
Word64
result <- Ptr SocketControlMessage -> IO Word64
g_socket_control_message_get_size Ptr SocketControlMessage
message'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
message
Word64 -> IO Word64
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if ENABLE_OVERLOADING
data SocketControlMessageGetSizeMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsSocketControlMessage a) => O.MethodInfo SocketControlMessageGetSizeMethodInfo a signature where
overloadedMethod _ = socketControlMessageGetSize
#endif
foreign import ccall "g_socket_control_message_serialize" g_socket_control_message_serialize ::
Ptr SocketControlMessage ->
Ptr () ->
IO ()
socketControlMessageSerialize ::
(B.CallStack.HasCallStack, MonadIO m, IsSocketControlMessage a) =>
a
-> Ptr ()
-> m ()
socketControlMessageSerialize :: a -> Ptr () -> m ()
socketControlMessageSerialize message :: a
message data_ :: Ptr ()
data_ = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SocketControlMessage
message' <- a -> IO (Ptr SocketControlMessage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
message
Ptr SocketControlMessage -> Ptr () -> IO ()
g_socket_control_message_serialize Ptr SocketControlMessage
message' Ptr ()
data_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
message
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data SocketControlMessageSerializeMethodInfo
instance (signature ~ (Ptr () -> m ()), MonadIO m, IsSocketControlMessage a) => O.MethodInfo SocketControlMessageSerializeMethodInfo a signature where
overloadedMethod _ = socketControlMessageSerialize
#endif
foreign import ccall "g_socket_control_message_deserialize" g_socket_control_message_deserialize ::
Int32 ->
Int32 ->
Word64 ->
Ptr Word8 ->
IO (Ptr SocketControlMessage)
socketControlMessageDeserialize ::
(B.CallStack.HasCallStack, MonadIO m) =>
Int32
-> Int32
-> ByteString
-> m SocketControlMessage
socketControlMessageDeserialize :: Int32 -> Int32 -> ByteString -> m SocketControlMessage
socketControlMessageDeserialize level :: Int32
level type_ :: Int32
type_ data_ :: ByteString
data_ = IO SocketControlMessage -> m SocketControlMessage
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SocketControlMessage -> m SocketControlMessage)
-> IO SocketControlMessage -> m SocketControlMessage
forall a b. (a -> b) -> a -> b
$ do
let size :: Word64
size = Int -> Word64
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Word64) -> Int -> Word64
forall a b. (a -> b) -> a -> b
$ ByteString -> Int
B.length ByteString
data_
Ptr Word8
data_' <- ByteString -> IO (Ptr Word8)
packByteString ByteString
data_
Ptr SocketControlMessage
result <- Int32
-> Int32 -> Word64 -> Ptr Word8 -> IO (Ptr SocketControlMessage)
g_socket_control_message_deserialize Int32
level Int32
type_ Word64
size Ptr Word8
data_'
Text -> Ptr SocketControlMessage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "socketControlMessageDeserialize" Ptr SocketControlMessage
result
SocketControlMessage
result' <- ((ManagedPtr SocketControlMessage -> SocketControlMessage)
-> Ptr SocketControlMessage -> IO SocketControlMessage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr SocketControlMessage -> SocketControlMessage
SocketControlMessage) Ptr SocketControlMessage
result
Ptr Word8 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word8
data_'
SocketControlMessage -> IO SocketControlMessage
forall (m :: * -> *) a. Monad m => a -> m a
return SocketControlMessage
result'
#if ENABLE_OVERLOADING
#endif