Changeset 8675 for src/Pugs/CodeGen.hs

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.

Files:

• src/Pugs/CodeGen.hs (modified) (3 diffs)

src/Pugs/CodeGen.hs

@@ -14 +14 @@
 import Pugs.Internals
 import Pugs.CodeGen.PIL1 (genPIL1)
-import Pugs.CodeGen.PIL2 (genPIL2, genPIL2Perl5, genPIL2Binary, genPIL2JSON)
+import Pugs.CodeGen.PIL2 (genPIL2, genPIL2Perl5, genPIL2Binary, genPIL2JSON, genPIL2YAML)
 import Pugs.CodeGen.PIR (genPIR)
 import Pugs.CodeGen.Perl5 (genPerl5)
+import Pugs.CodeGen.YAML (genYAML)
 import Pugs.CodeGen.JSON (genJSON)
 import Pugs.CodeGen.Binary (genBinary)
@@ -34 +35 @@
     , ("PIL1-Binary", genBinary)
     , ("PIL1-JSON",   genJSON)
+    , ("PIL1-YAML",   genYAML)
     , ("PIL2",        genPIL2)
     , ("PIL2-Perl5",  genPIL2Perl5)
     , ("PIL2-JSON",   genPIL2JSON)
+    , ("PIL2-YAML",   genPIL2YAML)
     , ("PIL2-Binary", genPIL2Binary)
     , ("Pugs",        genPugs)
@@ -57 +60 @@
     norm' "binary" = "!PIL1-Binary"
     norm' "json"   = "!PIL1-JSON"
+    norm' "yaml"   = "!PIL1-YAML"
     norm' "pil1perl5"  = "PIL1-Perl5"
     norm' "pil1json"   = "PIL1-JSON"
+    norm' "pil1yaml"   = "PIL1-YAML"
     norm' "pil1binary" = "PIL1-Binary"
     norm' "pil2perl5"  = "PIL2-Perl5"
     norm' "pil2json"   = "PIL2-JSON"
+    norm' "pil2yaml"   = "PIL2-YAML"
     norm' "pil2binary" = "PIL2-Binary"
     norm' "pugs"   = "Pugs"