Changeset 8684 for src/Pugs/CodeGen.hs

Timestamp:

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

Author:

audreyt

Message:

* Pugs.AST.Internals now adopts DrIFT.

Files:

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

src/Pugs/CodeGen.hs

@@ -14 +14 @@
 import Pugs.Internals
 import Pugs.CodeGen.PIL1 (genPIL1)
-import Pugs.CodeGen.PIL2 (genPIL2, genPIL2Perl5, genPIL2Binary, genPIL2JSON, genPIL2YAML)
+import Pugs.CodeGen.PIL2 (genPIL2, genPIL2Perl5, genPIL2JSON, genPIL2YAML)
 import Pugs.CodeGen.PIR (genPIR, genPIR_YAML)
 import Pugs.CodeGen.Perl5 (genPerl5)
 import Pugs.CodeGen.YAML (genYAML)
 import Pugs.CodeGen.JSON (genJSON)
-import Pugs.CodeGen.Binary (genBinary)
 import Pugs.Compile.Pugs (genPugs)
 import Pugs.Compile.Haskell (genGHC)
@@ -34 +33 @@
     , ("PIL1",        genPIL1)
     , ("PIL1-Perl5",  genPerl5)
-    , ("PIL1-Binary", genBinary)
     , ("PIL1-JSON",   genJSON)
     , ("PIL1-YAML",   genYAML)
@@ -41 +39 @@
     , ("PIL2-JSON",   genPIL2JSON)
     , ("PIL2-YAML",   genPIL2YAML)
-    , ("PIL2-Binary", genPIL2Binary)
     , ("Pugs",        genPugs)
+    , ("Parse-YAML",  genParseYAML)
 --  , ("XML",         genXML)
     ]
@@ -60 +58 @@
     norm' "pil2"   = "PIL2"
     norm' "perl5"  = "!PIL1-Perl5"
-    norm' "binary" = "!PIL1-Binary"
     norm' "json"   = "!PIL1-JSON"
     norm' "yaml"   = "!PIL1-YAML"
@@ -66 +63 @@
     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"
     -- norm' "xml"    = "XML"