{-# LINE 1 "src/System/Posix/Socket/Local.hsc" #-}
{-# LANGUAGE UnicodeSyntax #-}
{-# LINE 2 "src/System/Posix/Socket/Local.hsc" #-}
{-# LANGUAGE CPP #-}
{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE TypeFamilies #-}

-- | Local address family.
module System.Posix.Socket.Local
  ( LocalAddr(..)
  , aLocalAddr
  , AF_LOCAL(..)
  ) where

import Data.Typeable (Typeable)
import Data.Proxy (Proxy(..))
import Data.Word (Word8)
import Data.ByteString (ByteString)
import qualified Data.ByteString as BS
import qualified Data.ByteString.Internal as BS
import qualified Data.ByteString.Unsafe as BS
import Control.Applicative ((<$>))
import Foreign.Ptr (castPtr, plusPtr)
import Foreign.Storable (Storable(..))
import System.Posix.Socket


{-# LINE 27 "src/System/Posix/Socket/Local.hsc" #-}

{-# LINE 28 "src/System/Posix/Socket/Local.hsc" #-}

-- | Local socket family.
data AF_LOCAL = AF_LOCAL deriving (Typeable, Eq, Show)

-- | Local socket address.
data LocalAddr = LocalAddr ByteString
               | NoLocalAddr
               deriving (Typeable, Eq, Ord, Show)

-- | 'LocalAddr' proxy value.
aLocalAddr ∷ Proxy LocalAddr
aLocalAddr = Proxy

instance SockAddr LocalAddr where
  sockAddrMaxSize _ = (110)
{-# LINE 43 "src/System/Posix/Socket/Local.hsc" #-}
  sockAddrSize (LocalAddr path) = (2)
{-# LINE 44 "src/System/Posix/Socket/Local.hsc" #-}
                                + BS.length path + 1
  sockAddrSize NoLocalAddr = (2)
{-# LINE 46 "src/System/Posix/Socket/Local.hsc" #-}
  peekSockAddr p sz = do
    let offset = (2)
{-# LINE 48 "src/System/Posix/Socket/Local.hsc" #-}
    if sz < offset + 1
      then return NoLocalAddr
      else LocalAddr <$> BS.packCStringLen
                           (castPtr $ plusPtr p offset, sz - offset - 1)
  pokeSockAddr p (LocalAddr path) = do
    let offset = (2)
{-# LINE 54 "src/System/Posix/Socket/Local.hsc" #-}
    BS.unsafeUseAsCStringLen path $ \(pBs, len) → do
      BS.memcpy (castPtr $ plusPtr p offset) (castPtr pBs) (fromIntegral len)
      poke (castPtr $ plusPtr p $ offset + len) (0 ∷ Word8)
  pokeSockAddr _ NoLocalAddr = return ()

instance SockFamily AF_LOCAL where
  type SockFamilyAddr AF_LOCAL = LocalAddr
  sockFamilyCode _ = 1
{-# LINE 62 "src/System/Posix/Socket/Local.hsc" #-}