module Network.Socket.ByteString.MsgHdr
( MsgHdr(..)
) where
import Foreign.C.Types (CInt, CSize)
import Foreign.Ptr (Ptr)
import Foreign.Storable (Storable(..))
import Network.Socket (SockAddr)
import Network.Socket.ByteString.IOVec (IOVec)
data MsgHdr = MsgHdr
{ msgName :: Ptr SockAddr
, msgNameLen :: CSize
, msgIov :: Ptr IOVec
, msgIovLen :: CSize
}
instance Storable MsgHdr where
sizeOf _ = (28)
alignment _ = alignment (undefined :: CInt)
peek p = do
name <- ((\hsc_ptr -> peekByteOff hsc_ptr 0)) p
nameLen <- ((\hsc_ptr -> peekByteOff hsc_ptr 4)) p
iov <- ((\hsc_ptr -> peekByteOff hsc_ptr 8)) p
iovLen <- ((\hsc_ptr -> peekByteOff hsc_ptr 12)) p
return $ MsgHdr name nameLen iov iovLen
poke p mh = do
((\hsc_ptr -> pokeByteOff hsc_ptr 0)) p (msgName mh)
((\hsc_ptr -> pokeByteOff hsc_ptr 4)) p (msgNameLen mh)
((\hsc_ptr -> pokeByteOff hsc_ptr 8)) p (msgIov mh)
((\hsc_ptr -> pokeByteOff hsc_ptr 12)) p (msgIovLen mh)