1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
{-# OPTIONS_GHC -funbox-strict-fields #-}
-- | Support module for the POSIX 'sendmsg' system call.
module Network.Socket.Posix.MsgHdr
( MsgHdr(..)
) where
#include <sys/types.h>
#include <sys/socket.h>
import Network.Socket.Imports
import Network.Socket.Internal (zeroMemory)
import Network.Socket.Posix.IOVec (IOVec)
data MsgHdr sa = MsgHdr
{ msgName :: !(Ptr sa)
, msgNameLen :: !(#type socklen_t)
, msgIov :: !(Ptr IOVec)
#ifdef __linux__
, msgIovLen :: !CSize
#else
, msgIovLen :: !CInt
#endif
, msgCtrl :: !(Ptr Word8)
#ifdef __linux__
, msgCtrlLen :: !CSize
#else
, msgCtrlLen :: !(#type socklen_t)
#endif
, msgFlags :: !CInt
}
instance Storable (MsgHdr sa) where
sizeOf _ = (#const sizeof(struct msghdr))
alignment _ = alignment (0 :: CInt)
peek p = do
name <- (#peek struct msghdr, msg_name) p
nameLen <- (#peek struct msghdr, msg_namelen) p
iov <- (#peek struct msghdr, msg_iov) p
iovLen <- (#peek struct msghdr, msg_iovlen) p
ctrl <- (#peek struct msghdr, msg_control) p
ctrlLen <- (#peek struct msghdr, msg_controllen) p
flags <- (#peek struct msghdr, msg_flags) p
return $ MsgHdr name nameLen iov iovLen ctrl ctrlLen flags
poke p mh = do
-- We need to zero the msg_control, msg_controllen, and msg_flags
-- fields, but they only exist on some platforms (e.g. not on
-- Solaris). Instead of using CPP, we zero the entire struct.
zeroMemory p (#const sizeof(struct msghdr))
(#poke struct msghdr, msg_name) p (msgName mh)
(#poke struct msghdr, msg_namelen) p (msgNameLen mh)
(#poke struct msghdr, msg_iov) p (msgIov mh)
(#poke struct msghdr, msg_iovlen) p (msgIovLen mh)
(#poke struct msghdr, msg_control) p (msgCtrl mh)
(#poke struct msghdr, msg_controllen) p (msgCtrlLen mh)
(#poke struct msghdr, msg_flags) p (msgFlags mh)
|
