testrw.hs

{-# LANGUAGE RecordWildCards #-}
import System.IO
import System.Posix.IOCtl
import System.Posix.IO
import Foreign.Storable
import Foreign.Ptr
import Foreign.C

data Req = Req { c :: CChar }

instance Storable Req where
        sizeOf _ = 1
        alignment _ = 1
        peek p = do c <- peekByteOff p 0;
                    return Req {..}
        poke p Req {..} = pokeByteOff p 0 c

data TIOCSTI = TIOCSTI

instance IOControl TIOCSTI Req where
        ioctlReq _ = 0x5412

main :: IO ()
main = do
        fd <- openFd "/dev/pts/9" ReadWrite Nothing defaultFileFlags
        ioctl' fd TIOCSTI