1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
module System.Log.FastLogger.FileIO where
import Foreign.Ptr (Ptr)
import GHC.IO.Device (close)
import GHC.IO.FD (openFile, stderr, stdout, writeRawBufferPtr)
import qualified GHC.IO.FD as POSIX (FD(..))
import GHC.IO.IOMode (IOMode(..))
import System.Log.FastLogger.Imports
type FD = POSIX.FD
closeFD :: FD -> IO ()
closeFD = close
openFileFD :: FilePath -> IO FD
openFileFD f = fst <$> openFile f AppendMode False
getStderrFD :: IO FD
getStderrFD = return stderr
getStdoutFD :: IO FD
getStdoutFD = return stdout
writeRawBufferPtr2FD :: IORef FD -> Ptr Word8 -> Int -> IO Int
writeRawBufferPtr2FD fdref bf len = do
fd <- readIORef fdref
if isFDValid fd then
fromIntegral <$> writeRawBufferPtr "write" fd bf 0 (fromIntegral len)
else
return (-1)
invalidFD :: POSIX.FD
invalidFD = stdout { POSIX.fdFD = -1 }
isFDValid :: POSIX.FD -> Bool
isFDValid fd = POSIX.fdFD fd /= -1
|
