Changeset 8685 for src/Pugs/CodeGen

Timestamp:

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

Author:

audreyt

Message:

* The extremely Syck backend to dump parse tree as YAML:

./pugs -C Parse-YAML -e '...'

Files:

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

src/Pugs/CodeGen/YAML.hs

@@ -2 +2 @@
 {-# OPTIONS_GHC -#include "../../UnicodeC.h" #-}
 
-module Pugs.CodeGen.YAML (genYAML) where
+module Pugs.CodeGen.YAML (genYAML, genParseYAML) where
 import Pugs.Internals
 import Pugs.AST
@@ -9 +9 @@
 import DrIFT.YAML
 
+genParseYAML :: Eval Val
+genParseYAML = do
+    main    <- asks envBody
+    yaml    <- liftIO (showYaml main)
+    return (VStr yaml)
+
 genYAML :: Eval Val
 genYAML = do
     penv <- compile () :: Eval PIL_Environment
     yaml <- liftIO (showYaml penv)
-    return . VStr . unlines $ [yaml]
+    return (VStr yaml)