module System.Posix.IOCtl
(
IOControl(..),
ioctl,
ioctl_,
ioctl',
)
where
import Foreign
import Foreign.C
import System.IOControl
import System.Posix
foreign import ccall "ioctl" c_ioctl :: CInt -> CInt -> Ptr () -> IO CInt
c_ioctl' :: IOControl req d => Fd -> req -> Ptr d -> IO ()
c_ioctl' f req p =
throwErrnoIfMinus1_ "ioctl" $
c_ioctl (fromIntegral f) (ioctlReq req) (castPtr p)
ioctl :: IOControl req d
=> Fd
-> req
-> d
-> IO d
ioctl f req d = with d $ \p -> c_ioctl' f req p >> peek p
ioctl_ :: IOControl req d
=> Fd
-> req
-> d
-> IO ()
ioctl_ f req d = with d $ \p -> c_ioctl' f req p
ioctl' :: IOControl req d
=> Fd
-> req
-> IO d
ioctl' f req = alloca $ \p -> c_ioctl' f req p >> peek p