Changeset 8566 for src/Pugs/Prim/Yaml.hs

Timestamp:

01/03/06 23:03:30 (3 years ago)

Author:

gaal

Message:

* beginning of .yaml emitter. "string".yaml.say segfaults, but hey,

it's a start :)

Files:

• src/Pugs/Prim/Yaml.hs (modified) (2 diffs)

src/Pugs/Prim/Yaml.hs

@@ -3 +3 @@
 
 module Pugs.Prim.Yaml (
-  evalYaml
+  evalYaml, dumpYaml
 ) where
 import Pugs.Internals
@@ -34 +34 @@
     hv      <- liftSTM $ (newTVar (Map.fromList vals) :: STM IHash)
     return $ VRef (hashRef hv)
+
+dumpYaml :: Val -> Eval Val
+dumpYaml v = do
+    obj  <- toYaml =<< fromVal v
+    rv   <- liftIO (emitYaml obj)
+    case rv of
+        Left err  -> fail $ "YAML Emit Error: " ++ err
+        Right str -> return $ VStr str
+
+toYaml :: Val -> Eval YamlNode
+toYaml VUndef = return YamlNil
+toYaml (VStr str) = return $ YamlStr (encodeUTF8 str)
+toYaml (VList nodes) = do
+    fmap YamlSeq $ mapM toYaml nodes
+--toYaml (VHash hash) = do
+--    fmap YamlMap $ Map.toList hash
+
+
+