Changeset 8675 for src/Pugs/CodeGen

Timestamp:

01/15/06 08:26:19 (3 years ago)

Author:

audreyt

Message:

* DriFT.YAML: Dumping Haskell structures as YAML.
* ./pugs -CPIL1-YAML etc works.

Location:

src/Pugs/CodeGen

Files:

• PIL2.hs (modified) (3 diffs)
• YAML.hs (added)

src/Pugs/CodeGen/PIL2.hs

@@ -4 +4 @@
 module Pugs.CodeGen.PIL2 (
     genPIL2,
-    genPIL2Perl5, genPIL2Binary, genPIL2JSON
+    genPIL2Perl5, genPIL2Binary, genPIL2JSON, genPIL2YAML
 ) where
 import Pugs.Internals
@@ -15 +15 @@
 import DrIFT.Binary
 import DrIFT.JSON
+import DrIFT.YAML
 
 genPIL2 :: Eval Val
@@ -46 +47 @@
     penv <- compile () :: Eval PIL_Environment
     return . VStr . unlines $ [showJSON penv]
+
+genPIL2YAML :: Eval Val
+genPIL2YAML = do
+    penv <- compile () :: Eval PIL_Environment
+    yaml <- liftIO (showYaml penv)
+    return . VStr . unlines $ [yaml]