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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
{-# LANGUAGE NoImplicitPrelude #-}
module Data.Text.IO where
import Compiler.Base -- for String
import Compiler.IO -- for IO
import Control.Monad -- for IO
import Foreign.String -- for CPPString
import Data.Text -- for Text
import Data.Functor -- for fmap
import Data.Function -- for $
import System.FilePath -- for FilePath
import System.IO (Handle, IOMode(..), stdin, stdout, openFile, hPutChar, hClose)
readFile :: FilePath -> IO Text
readFile path = do handle <- openFile path ReadMode
text <- hGetContents handle
hClose handle
return text
writeFile :: FilePath -> Text -> IO ()
writeFile path text = do handle <- openFile path WriteMode
putStr text
hClose handle
appendFile :: FilePath -> Text -> IO ()
appendFile path text = do handle <- openFile path AppendMode
putStr text
hClose handle
foreign import bpcall "File:" hGetContentsRaw :: Handle -> IO CPPString
hGetContents :: Handle -> IO Text
hGetContents h = fmap fromCppString $ hGetContentsRaw h
-- hGetChunk :: Handle -> IO Text
foreign import bpcall "File:" hGetLineRaw :: Handle -> IO CPPString
hGetLine :: Handle -> IO Text
hGetLine h = fmap fromCppString $ hGetLineRaw h
foreign import bpcall "File:" hPutStrRaw :: Handle -> CPPString -> IO ()
hPutStr :: Handle -> Text -> IO ()
hPutStr h s = hPutStrRaw h (toCppString s)
hPutStrLn :: Handle -> Text -> IO ()
hPutStrLn h s = hPutStr h s >> hPutChar h '\n'
interact :: (Text -> Text) -> IO ()
interact f = do contents <- getContents
putStr (f contents)
getContents :: IO Text
getContents = hGetContents stdin
getLine :: IO Text
getLine = hGetLine stdin
putStr :: Text -> IO ()
putStr s = hPutStr stdout s
putStrLn :: Text -> IO ()
putStrLn s = hPutStrLn stdout s
|
