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

Timestamp:

11/06/05 01:28:07 (3 years ago)

Author:

autrijus

Message:

* New compiler backend targets around PIL2:

./pugs -C PIL2-Perl5
./pugs -C PIL2-JSON
./pugs -C PIL2-Binary

The dash is optional (all nonalphanum is dropped), and
it's case insensitive. Eventually these will replace
the PIL1 variants when our p5/js codegens finishes the
migration.

Files:

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

src/Pugs/CodeGen/PIL2.hs

@@ -2 +2 @@
 {-# OPTIONS_GHC -#include "../../UnicodeC.h" #-}
 
-module Pugs.CodeGen.PIL2 (genPIL2) where
+module Pugs.CodeGen.PIL2 (
+    genPIL2,
+    genPIL2Perl5, genPIL2Binary, genPIL2JSON
+) where
 import Pugs.Internals
 import Pugs.AST
-import Pugs.PIL1
-import Pugs.Compile
+import Pugs.PIL2
+import Pugs.Compile.PIL2
+import System.IO
+import System.Directory
+import DrIFT.Perl5
+import DrIFT.Binary
+import DrIFT.JSON
 
 genPIL2 :: Eval Val
@@ -17 +25 @@
         , "    }"
         ]
+
+genPIL2Perl5 :: Eval Val
+genPIL2Perl5 = do
+    penv <- compile () :: Eval PIL_Environment
+    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
+    penv <- compile () :: Eval PIL_Environment
+    return . VStr . unlines $ [showJSON penv]