Changeset 15365 for src/Pugs/Parser

Timestamp:

02/26/07 18:00:32 (21 months ago)

Author:

audreyt

Message:

* Pugs.Parser.Program: Make decodeProgram sufficiently

chunky-lazy so memory use stays constant for source
code size >4k.

Files:

• src/Pugs/Parser/Program.hs (modified) (1 diff)

src/Pugs/Parser/Program.hs

@@ -33 +33 @@
 
 decodeProgram :: String -> String
-decodeProgram str = removeCRLF $! case detectSourceEncoding str of
-    UTF8 xs                 -> decodeUTF8 xs
-    UTF16 LittleEndian xs   -> decodeUTF16LE xs
-    UTF16 BigEndian xs      -> decodeUTF16BE xs
-    UTF32 LittleEndian xs   -> decodeUTF32LE xs
-    UTF32 BigEndian xs      -> decodeUTF32BE xs
+decodeProgram str = case detectSourceEncoding str of
+    UTF8 xs                 -> decodeUTF8    (removeCRLF xs)
+    UTF16 LittleEndian xs   -> decodeUTF16LE (removeCRLF xs)
+    UTF16 BigEndian xs      -> decodeUTF16BE (removeCRLF xs)
+    UTF32 LittleEndian xs   -> decodeUTF32LE (removeCRLF xs)
+    UTF32 BigEndian xs      -> decodeUTF32BE (removeCRLF xs)
     where
-    removeCRLF ('\r':'\n':xs)   = let rest = removeCRLF xs in seq rest ('\n':rest)
-    removeCRLF (x:xs)           = let rest = removeCRLF xs in seq rest (x:rest)
+    removeCRLF ('\r':'\n':xs)   = '\n':removeCRLF xs
+    removeCRLF (x:xs)           = x:removeCRLF xs
     removeCRLF []               = []
     decodeUTF16BE (a:b:c:d:xs)