uplime/lamb
uplime
/
lamb
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Interp: implement freadcontents

This commit is contained in:
darkf 2015-01-17 03:14:17 -08:00
parent f4c3747b19
commit 7f16ca95e3
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Interp.hs
View File

@ -128,6 +128,9 @@ _fgetline (StreamV handle) = do
_freadbytes (TupleV [StreamV handle, IntV n]) = do _freadbytes (TupleV [StreamV handle, IntV n]) = do
liftIO $ StrV . T.take (fromIntegral n) <$> TIO.hGetContents handle liftIO $ StrV . T.take (fromIntegral n) <$> TIO.hGetContents handle
_freadcontents (StreamV handle) = do
liftIO $ StrV <$> TIO.hGetContents handle
_fopen (TupleV [StrV path, StrV mode]) = do _fopen (TupleV [StrV path, StrV mode]) = do
let mode' = case T.unpack mode of let mode' = case T.unpack mode of
"r" -> ReadMode "r" -> ReadMode
@ -251,6 +254,7 @@ initialState = [M.fromList $ map (\(k,v) -> (T.pack k, v)) $ [
("fputbytes", bif _fputstr), ("fputbytes", bif _fputstr),
("fputstr", bif _fputstr), ("fputstr", bif _fputstr),
("freadbytes", bif _freadbytes), ("freadbytes", bif _freadbytes),
("freadcontents", bif _freadcontents),
("feof", bif _feof), ("feof", bif _feof),
("fclose", bif _fclose), ("fclose", bif _fclose),
("fopen", bif _fopen), ("fopen", bif _fopen),