123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354 |
- {-# LANGUAGE ForeignFunctionInterface, InterruptibleFFI, EmptyDataDecls #-}
- module System.IO.Uniform.External where
- import Foreign
- import Foreign.C.Types
- import Foreign.C.String
- import System.Posix.Types (Fd(..))
- data Nethandler
- -- | A bounded IP port from where to accept SocketIO connections.
- newtype BoundedPort = BoundedPort {lis :: (Ptr Nethandler)}
- data Ds
- data TlsDs
- -- | UniformIO IP connections.
- data SocketIO = SocketIO {sock :: (Ptr Ds)} | TlsSocketIO {bio :: (Ptr TlsDs)}
- -- | UniformIO type for file IO.
- newtype FileIO = FileIO {fd :: (Ptr Ds)}
- -- | UniformIO that reads from stdin and writes to stdout.
- data StdIO = StdIO
- closeFd :: Fd -> IO ()
- closeFd (Fd f) = c_closeFd f
-
- -- | Closes a BoundedPort, and releases any resource used by it.
- closePort :: BoundedPort -> IO ()
- closePort p = c_closePort (lis p)
- foreign import ccall interruptible "getPort" c_getPort :: CInt -> IO (Ptr Nethandler)
- foreign import ccall interruptible "createFromHandler" c_accept :: Ptr Nethandler -> IO (Ptr Ds)
- foreign import ccall safe "createFromFileName" c_createFile :: CString -> IO (Ptr Ds)
- foreign import ccall interruptible "createToIPv4Host" c_connect4 :: CUInt -> CInt -> IO (Ptr Ds)
- foreign import ccall interruptible "createToIPv6Host" c_connect6 :: Ptr CUChar -> CInt -> IO (Ptr Ds)
- foreign import ccall interruptible "startSockTls" c_startSockTls :: Ptr Ds -> CString -> CString -> CString -> IO (Ptr TlsDs)
- foreign import ccall safe "getPeer" c_getPeer :: Ptr Ds -> Ptr CUInt -> Ptr CUChar -> Ptr CInt -> IO (CInt)
- --foreign import ccall safe "getFd" c_getFd :: Ptr Ds -> IO CInt
- --foreign import ccall safe "getTlsFd" c_getTlsFd :: Ptr TlsDs -> IO CInt
- foreign import ccall safe "closeFd" c_closeFd :: CInt -> IO ()
- foreign import ccall safe "prepareToClose" c_prepareToClose :: Ptr Ds -> IO CInt
- foreign import ccall safe "closeHandler" c_closePort :: Ptr Nethandler -> IO ()
- foreign import ccall safe "closeTls" c_closeTls :: Ptr TlsDs -> IO (Ptr Ds)
- foreign import ccall interruptible "sendDs" c_send :: Ptr Ds -> Ptr CChar -> CInt -> IO CInt
- foreign import ccall interruptible "stdDsSend" c_sendStd :: Ptr CChar -> CInt -> IO CInt
- foreign import ccall interruptible "tlsDsSend" c_sendTls :: Ptr TlsDs -> Ptr CChar -> CInt -> IO CInt
- foreign import ccall interruptible "recvDs" c_recv :: Ptr Ds -> Ptr CChar -> CInt -> IO CInt
- foreign import ccall interruptible "stdDsRecv" c_recvStd :: Ptr CChar -> CInt -> IO CInt
- foreign import ccall interruptible "tlsDsRecv" c_recvTls :: Ptr TlsDs -> Ptr CChar -> CInt -> IO CInt
|