{-# LINE 1 "Network/Socket/ByteString/MsgHdr.hsc" #-}
{-# LANGUAGE CPP #-}
{-# LINE 2 "Network/Socket/ByteString/MsgHdr.hsc" #-}

-- | Support module for the POSIX 'sendmsg' system call.
module Network.Socket.ByteString.MsgHdr
  ( MsgHdr(..)
  ) where


{-# LINE 9 "Network/Socket/ByteString/MsgHdr.hsc" #-}

{-# LINE 10 "Network/Socket/ByteString/MsgHdr.hsc" #-}

import Foreign.C.Types (CChar, 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
    , msgControl    :: Ptr CChar
    , msgControlLen :: CSize
    , msgFlags      :: CInt
    }

instance Storable MsgHdr where
  sizeOf _    = (28)
{-# LINE 29 "Network/Socket/ByteString/MsgHdr.hsc" #-}
  alignment _ = alignment (undefined :: CInt)

  peek p = do
    name       <- ((\hsc_ptr -> peekByteOff hsc_ptr 0))       p
{-# LINE 33 "Network/Socket/ByteString/MsgHdr.hsc" #-}
    nameLen    <- ((\hsc_ptr -> peekByteOff hsc_ptr 4))    p
{-# LINE 34 "Network/Socket/ByteString/MsgHdr.hsc" #-}
    iov        <- ((\hsc_ptr -> peekByteOff hsc_ptr 8))        p
{-# LINE 35 "Network/Socket/ByteString/MsgHdr.hsc" #-}
    iovLen     <- ((\hsc_ptr -> peekByteOff hsc_ptr 12))     p
{-# LINE 36 "Network/Socket/ByteString/MsgHdr.hsc" #-}
    control    <- ((\hsc_ptr -> peekByteOff hsc_ptr 16))    p
{-# LINE 37 "Network/Socket/ByteString/MsgHdr.hsc" #-}
    controlLen <- ((\hsc_ptr -> peekByteOff hsc_ptr 20)) p
{-# LINE 38 "Network/Socket/ByteString/MsgHdr.hsc" #-}
    flags      <- ((\hsc_ptr -> peekByteOff hsc_ptr 24))      p
{-# LINE 39 "Network/Socket/ByteString/MsgHdr.hsc" #-}
    return $ MsgHdr name nameLen iov iovLen control controlLen flags

  poke p mh = do
    ((\hsc_ptr -> pokeByteOff hsc_ptr 0))       p (msgName       mh)
{-# LINE 43 "Network/Socket/ByteString/MsgHdr.hsc" #-}
    ((\hsc_ptr -> pokeByteOff hsc_ptr 4))    p (msgNameLen    mh)
{-# LINE 44 "Network/Socket/ByteString/MsgHdr.hsc" #-}
    ((\hsc_ptr -> pokeByteOff hsc_ptr 8))        p (msgIov        mh)
{-# LINE 45 "Network/Socket/ByteString/MsgHdr.hsc" #-}
    ((\hsc_ptr -> pokeByteOff hsc_ptr 12))     p (msgIovLen     mh)
{-# LINE 46 "Network/Socket/ByteString/MsgHdr.hsc" #-}
    ((\hsc_ptr -> pokeByteOff hsc_ptr 16))    p (msgControl    mh)
{-# LINE 47 "Network/Socket/ByteString/MsgHdr.hsc" #-}
    ((\hsc_ptr -> pokeByteOff hsc_ptr 20)) p (msgControlLen mh)
{-# LINE 48 "Network/Socket/ByteString/MsgHdr.hsc" #-}
    ((\hsc_ptr -> pokeByteOff hsc_ptr 24))      p (msgFlags      mh)
{-# LINE 49 "Network/Socket/ByteString/MsgHdr.hsc" #-}