Changeset 15000 for src/Pugs/Prim.hs

Timestamp:

01/05/07 11:51:51 (23 months ago)

Author:

audreyt

Message:

* Pugs.Prim: Now encodeUTF8 autochunks, remove hardcoding in op2Print.

Files:

• src/Pugs/Prim.hs (modified) (2 diffs)

src/Pugs/Prim.hs

@@ -1162 +1162 @@
 
 op2Print :: Bool -> Val -> Val -> Eval Val
-op2Print newline h v = do
+op2Print wantNewline h v = do
     handle <- fromVal h
     strs   <- mapM fromVal =<< case v of
@@ -1168 +1168 @@
         _         -> return [v]
     guardIO $ do
-        forM strs $ \str -> do
-            forM (chunk 4096 str) $ \chunk -> do
-                hPutStr handle chunk
-        when newline (hPutStr handle "\n")
+        forM_ strs (hPutStr handle . encodeUTF8)
+        when wantNewline (hPutStr handle "\n")
         return $ VBool True
-    where
-    chunk :: Int -> [a] -> [[a]]
-    chunk _    [] = []
-    chunk size xs = case splitAt size xs of (xs', xs'') -> xs' : chunk size xs''
 
 op2Split :: Val -> Val -> Eval Val