Changeset 21673 for src/Pugs/CodeGen/Binary.hs

Timestamp:

08/01/08 13:56:05 (5 months ago)

Author:

audreyt

Message:

* Import Pugs 6.2.13.11 from Hackage into our source tree.
* Highlights:

• Much faster startup time
• Slightly faster compilation time (mostly due to refactored Pugs.AST.Internals)
• Portable-to-Win32 readline thanks to Haskeline

Files:

• src/Pugs/CodeGen/Binary.hs (modified) (1 diff)

src/Pugs/CodeGen/Binary.hs

@@ -1 @@
-{-# OPTIONS_GHC -fglasgow-exts #-}
+{-# OPTIONS_GHC -fglasgow-exts -fallow-undecidable-instances -fno-warn-orphans -funbox-strict-fields -cpp #-}
 
-module Pugs.CodeGen.Binary (genBinary) where
+module Pugs.CodeGen.Binary (genParseBinary) where
 import Pugs.Internals
 import Pugs.AST
-import Pugs.Compile
-import Pugs.PIL1
-import DrIFT.Binary
-import System.IO
-import System.Directory
+import Data.Binary
+import qualified Data.ByteString.Lazy.Char8 as L
 
-genBinary :: Eval Val
-genBinary = do
-    penv <- compile () :: Eval PIL_Environment
-    io $ do
-        tmp         <- getTemporaryDirectory
-        (file, fh)  <- openBinaryTempFile tmp "pugs.bin"
-        bh          <- openBinIO fh
-        put_ bh penv
-        hClose fh
-        return $ VStr (unlines [file])
+genParseBinary :: FilePath -> Eval Val
+genParseBinary file = doGenParseBinary file
+
+doGenParseBinary :: FilePath -> Eval Val
+doGenParseBinary file = do
+    pad  <- filterPrim =<< asks envGlobal
+    main <- asks envBody
+    return $ VStr (L.unpack $! encode (mkCompUnit file pad main))