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

consolidate fputbytes

This commit is contained in:
darkf 2014-11-01 21:06:35 -07:00
parent df693a83f7
commit eec9bda75b
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Interp.hs
View File

@ -117,13 +117,8 @@ fromDict m =
-- some built-in functions
_fputbytes (TupleV [StreamV handle, StrV str]) = do
io <- liftIO $ TIO.hPutStr handle str
return unitv
_fputstr (TupleV [StreamV handle, StrV str]) = do
io <- liftIO $ TIO.hPutStr handle str
return unitv
_fputstr (TupleV [StreamV handle, StrV str]) =
liftIO $ TIO.hPutStr handle str >> return unitv
_fgetline (StreamV handle) = do
str <- liftIO $ TIO.hGetLine handle
@ -162,7 +157,7 @@ _sockopen (TupleV [StrV host, IntV port]) = do
return $ StreamV handle
_putstr str@(StrV _) = _fputstr $ TupleV [StreamV stdout, str]
_putbytes str@(StrV _) = _fputbytes $ TupleV [StreamV stdout, str]
_putbytes str@(StrV _) = _fputstr $ TupleV [StreamV stdout, str]
_getline (TupleV []) = _fgetline (StreamV stdin)
_print v = _putbytes $ StrV $ T.pack (show v) `T.snoc` '\n'
@ -259,7 +254,7 @@ initialState = [M.fromList [
("getline", bif _getline),
("fgetline", bif _fgetline),
("putbytes", bif _putbytes),
("fputbytes", bif _fputbytes),
("fputbytes", bif _fputstr),
("fputstr", bif _fputstr),
("freadbytes", bif _freadbytes),
("feof", bif _feof),