Changeset 8684 for src/Pugs/CodeGen/PIL2.hs

Timestamp:

01/15/06 18:15:06 (3 years ago)

Author:

audreyt

Message:

* Pugs.AST.Internals now adopts DrIFT.

Files:

• src/Pugs/CodeGen/PIL2.hs (modified) (3 diffs)

src/Pugs/CodeGen/PIL2.hs

@@ -4 +4 @@
 module Pugs.CodeGen.PIL2 (
     genPIL2,
-    genPIL2Perl5, genPIL2Binary, genPIL2JSON, genPIL2YAML
+    genPIL2Perl5, genPIL2JSON, genPIL2YAML
 ) where
 import Pugs.Internals
@@ -13 +13 @@
 import System.Directory
 import DrIFT.Perl5
-import DrIFT.Binary
 import DrIFT.JSON
 import DrIFT.YAML
@@ -32 +31 @@
     return . VStr . unlines $ [showPerl5 penv]
 
-genPIL2Binary :: Eval Val
-genPIL2Binary = do
-    penv <- compile () :: Eval PIL_Environment
-    liftIO $ do
-        tmp         <- getTemporaryDirectory
-        (file, fh)  <- openBinaryTempFile tmp "pugs.bin"
-        bh          <- openBinIO fh
-        put_ bh penv
-        hClose fh
-        return $ VStr (unlines [file])
-
 genPIL2JSON :: Eval Val
 genPIL2JSON = do