{-# LINE 1 "libraries/unix/System/Posix/SharedMem.hsc" #-}
{-# LINE 2 "libraries/unix/System/Posix/SharedMem.hsc" #-}
{-# LANGUAGE Safe #-}
{-# LINE 6 "libraries/unix/System/Posix/SharedMem.hsc" #-}
module System.Posix.SharedMem
(ShmOpenFlags(..), shmOpen, shmUnlink)
where
import System.Posix.Types
{-# LINE 32 "libraries/unix/System/Posix/SharedMem.hsc" #-}
import Foreign.C
{-# LINE 34 "libraries/unix/System/Posix/SharedMem.hsc" #-}
{-# LINE 35 "libraries/unix/System/Posix/SharedMem.hsc" #-}
import Data.Bits
{-# LINE 37 "libraries/unix/System/Posix/SharedMem.hsc" #-}
data ShmOpenFlags = ShmOpenFlags
{ shmReadWrite :: Bool,
shmCreate :: Bool,
shmExclusive :: Bool,
shmTrunc :: Bool
}
shmOpen :: String -> ShmOpenFlags -> FileMode -> IO Fd
{-# LINE 52 "libraries/unix/System/Posix/SharedMem.hsc" #-}
shmOpen name flags mode =
do cflags0 <- return 0
cflags1 <- return $ cflags0 .|. (if shmReadWrite flags
then 2
{-# LINE 56 "libraries/unix/System/Posix/SharedMem.hsc" #-}
else 0)
{-# LINE 57 "libraries/unix/System/Posix/SharedMem.hsc" #-}
cflags2 <- return $ cflags1 .|. (if shmCreate flags then 64
{-# LINE 58 "libraries/unix/System/Posix/SharedMem.hsc" #-}
else 0)
cflags3 <- return $ cflags2 .|. (if shmExclusive flags
then 128
{-# LINE 61 "libraries/unix/System/Posix/SharedMem.hsc" #-}
else 0)
cflags4 <- return $ cflags3 .|. (if shmTrunc flags then 512
{-# LINE 63 "libraries/unix/System/Posix/SharedMem.hsc" #-}
else 0)
withCAString name (shmOpen' cflags4)
where shmOpen' cflags cname =
do fd <- throwErrnoIfMinus1 "shmOpen" $
shm_open cname cflags mode
return $ Fd fd
{-# LINE 72 "libraries/unix/System/Posix/SharedMem.hsc" #-}
shmUnlink :: String -> IO ()
{-# LINE 76 "libraries/unix/System/Posix/SharedMem.hsc" #-}
shmUnlink name = withCAString name shmUnlink'
where shmUnlink' cname =
throwErrnoIfMinus1_ "shmUnlink" $ shm_unlink cname
{-# LINE 82 "libraries/unix/System/Posix/SharedMem.hsc" #-}
{-# LINE 84 "libraries/unix/System/Posix/SharedMem.hsc" #-}
foreign import ccall unsafe "shm_open"
shm_open :: CString -> CInt -> CMode -> IO CInt
{-# LINE 87 "libraries/unix/System/Posix/SharedMem.hsc" #-}
{-# LINE 89 "libraries/unix/System/Posix/SharedMem.hsc" #-}
foreign import ccall unsafe "shm_unlink"
shm_unlink :: CString -> IO CInt
{-# LINE 92 "libraries/unix/System/Posix/SharedMem.hsc" #-}