Changeset 9054 for src/Pugs/CodeGen/YAML.hs

Timestamp:

02/18/06 21:47:47 (3 years ago)

Author:

audreyt

Message:

* pugs -CParse-HsYaml? backend for yaml-node based serialization.
* slightly improved DrIFT.YAML syntax.

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, genParseYAML) where
+module Pugs.CodeGen.YAML (genYAML, genParseYAML, genParseHsYAML) where
 import Pugs.Internals
 import Pugs.AST
@@ -9 +9 @@
 import DrIFT.YAML
 import qualified Data.Map as Map
+
+genParseHsYAML :: Eval Val
+genParseHsYAML = do
+    glob        <- asks envGlobal
+    MkPad pad   <- liftSTM $ readTVar glob
+    pad'        <- fmap (MkPad . Map.fromAscList . catMaybes) . mapM checkPrim $ Map.toAscList pad
+    -- munge the glob to filter out prim stuff in it
+    main    <- asks envBody
+    yaml    <- liftIO $ toYamlNode (pad', main)
+    return (VStr $ show yaml)
 
 genParseYAML :: Eval Val