Changeset 8723

Timestamp:

01/17/06 12:04:43 (3 years ago)

Author:

audreyt

Message:

* new backend: -CParse-Pretty, to show a pretty parse tree.

Files:

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

src/Pugs/CodeGen.hs

@@ -12 +12 @@
 module Pugs.CodeGen (codeGen, backends) where
 import Pugs.AST
+import Pugs.Pretty
 import Pugs.Internals
 import Pugs.CodeGen.PIL1 (genPIL1)
@@ -41 +42 @@
     , ("Pugs",        genPugs)
     , ("Parse-YAML",  genParseYAML)
+    , ("Parse-Pretty",fmap (VStr . (++"\n") . pretty) (asks envBody))
 --  , ("XML",         genXML)
     ]
@@ -67 +69 @@
     norm' "pil2yaml"   = "PIL2-YAML"
     norm' "parseyaml"  = "Parse-YAML"
+    norm' "parsepretty"= "Parse-Pretty"
     norm' "pugs"   = "Pugs"
     -- norm' "xml"    = "XML"